N p$,)@G@@@@@)*o@K@ 00070 A$*255,FILENAME$*35K@00080 B$(4)*68 !a@a@Z@6'o@ Z@  A@^@IPB@#o@0" o#" !d A o@o@#!d A@/" o #  !d Ao@ #  !d A@# " !d A@o@J" o #  !d A # " !d Ao@ # " !d A@o@oo@!a@  A@ !!a@ a@o@ a@  A@!o@#o o@  A@#o@ o@ o@P@o@ #!SAk@,: (l2+F PD?(~ H 8 < 0P Hf< =W0&u|<|0|" ,:6Z@=J8JT Y^6fhLLprWORK.WBS@Enter PROGRAM to list@LIST8X11,wbutil\supphelp&2KWcht %6<*00010! Workstation Basic Utilities000201200030%! list a program on 8-1/2 by 11 paperD000407! free program by Mike Defnet, Mountain Medical Systems600050)! Golden, CO00060)#,SHELP00090NEWPAGE$00100"Enter PROGRAM to list"00110 FILENAME$4001206"LIST <"&FILENAME$&" >WORK.WBS" (100&00130#1: "NAME=WORK.WBS",,00140 LINECNT=99W00150FORM1: C 8000160RDLOOP: B$=("")00170#1: A$ 8BYEY@00180( LEN(A$)<67 ,B$(1)=A$(1:LEN(A$)) -,CHECKLEN00190,WRITEOUT(00200CHECKLEN: B$(1)=A$(1:66)(D00210( LEN(A$)>186 ,B$(2)=" "&A$(67:126) -,PART2(00220B$(3)=" "&A$(127:186) ,00230B$(4)=" "&A$(187:LEN(A$)) 00240,WRITEOUTv00250PART2: ( LEN(A$)>126 ,B$(2)=" "&A$(67:126) : B$(3)=" "&A$(127:LEN(A$)) : ,WRITEOUT*00260B$(2)=" "&A$(67:LEN(A$))00270,WRITEOUT.00280WRITEOUT: ( LINECNT<50 ,,CONT00290# 255: NEWPAGE 00300PAGECNT=PAGECNT + 1L00310#9255: "PAGE ";PAGECNT;" DATE ";DATE$;" TIME ";TIME$00320#255: " "d00330#255,FORM1: D" 1........1.........2.........3.........4.........5.........6""00340#255: " "00350 LINECNT=000360CONT: "X=1 )4"00370(B$(X)="" ,,RDLOOP00380LINECNT=LINECNT+1$00390#255,FORM1: B$(X)00400#X00410,RDLOOP00420BYE: #1: 00430/7<00440SHELP: !HELP$("LIST8X11,wbutil\supphelp"): +R