p*(@G@@@@@))o@K@ 00070 A$*255,FILENAME$*35K@00080  B$(3)*106 !a@a@Z@6%o@ Z@  A@^@IjB@!o@0" o#" !d A o@o@#!d A@/" o #  !d Ao@ #  " !d A@o@ # " !d A@o@oo@!a@  A@ !!a@ a@o@ a@  A@ o@#o o@  A@#o@ o@ o@P@o@ !SAk@,: (f2'F PD?&x H 8 <  0N Hd< =0[Hb0H|^",68(@JTL ^<"h 9r8>F| bY 0pf!Hm"u)x(Dvn.o#dH f$ZY%<0 HyA$PMAT B$Qj?@ NAME=WORK.WBSLINECNTX@@Z@Z@i@@@ @i@A@o@PAGECNT@PAGE @ DATE @ TIME @ @j 1........1.........2.........3.........4.........5.........6.........7.........8.........9.........0XFILENAME$P #@LIST <@ >WORK.WBS@Enter PROGRAM to list@LIST8X14,wbutil\supphelp&2KWcht*00010! Workstation Basic Utilities000201,00030! list programs on 8 x 14 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 106.00160RDLOOP: B$=("")00170#1: A$ 8BYEYB00180( LEN(A$)<107 ,B$(1)=A$(1:LEN(A$)) -,CHECKLENC00190,WRITEOUT(00200CHECKLEN: B$(1)=A$(1:106)F00210( LEN(A$)>206 ,B$(2)=" "&A$(107:206) -,PART2P,00220B$(3)=" "&A$(207:LEN(A$)) 00230,WRITEOUT400240PART2: B$(2)=" "&A$(107:LEN(A$))00250,WRITEOUT.00260WRITEOUT: ( LINECNT<35 ,,CONT00270# 255: NEWPAGE 00280PAGECNT=PAGECNT + 1L00290#9255: "PAGE ";PAGECNT;" DATE ";DATE$;" TIME ";TIME$00300#255: " "00310#255,FORM1: l" 1........1.........2.........3.........4.........5.........6.........7.........8.........9.........0""00320#255: " "00330 LINECNT=000340CONT: "X=1 )3"00350(B$(X)="" ,,RDLOOP00360LINECNT=LINECNT+1$00370#255,FORM1: B$(X)00380#X00390,RDLOOP00400BYE: #1: 00410/5<00420SHELP: !HELP$("LIST8X14,wbutil\supphelp"): +R