f p)%@@)(o@G@@K@ 00050 A$*255,FILENAME$*35K@00060  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@#oo@  A@#o@ o@o@P@o@ !SAk@(l 2<@; nx":HV8t< 0 H <  V9 0WH^0||*J"8,86N@LdJ<T5^8Bh Ur0b|Hi q(FzU!PHb"Zk#d(r$W^ &,'0VH,uA$PMAT B$Qj?@ NAME=WORK.WBSLINECNTX@@Z@Z@i@@@ @i@I@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@LIST1114,wbutil\supphelp&2KWcht*00010! Workstation Basic Utilities*00020! Formatted listings - 11x14 00030)#,SHELP00040100070NEWPAGE$00080"Enter PROGRAM to list"00090 FILENAME$4001006"LIST <"&FILENAME$&" >WORK.WBS" (80&00110#1: "NAME=WORK.WBS",,00120 LINECNT=99W00130FORM1: C 106.00140RDLOOP: B$=("")00150#1: A$ 8BYEYB00160( LEN(A$)<107 ,B$(1)=A$(1:LEN(A$)) -,CHECKLENC00170,WRITEOUT(00180CHECKLEN: B$(1)=A$(1:106)F00190( LEN(A$)>206 ,B$(2)=" "&A$(107:206) -,PART2P,00200B$(3)=" "&A$(207:LEN(A$)) 00210,WRITEOUT400220PART2: B$(2)=" "&A$(107:LEN(A$))00230,WRITEOUT.00240WRITEOUT: ( LINECNT<50 ,,CONT00250# 255: NEWPAGE 00260PAGECNT=PAGECNT + 1L00270#9255: "PAGE ";PAGECNT;" DATE ";DATE$;" TIME ";TIME$00280#255: " "00290#255,FORM1: l" 1........1.........2.........3.........4.........5.........6.........7.........8.........9.........0""00300#255: " "00310 LINECNT=000320CONT: "X=1 )3"00330(B$(X)="" ,,RDLOOP00340LINECNT=LINECNT+1$00350#255,FORM1: B$(X)00360#X00370,RDLOOP00380BYE: #1: 00390/0<00400SHELP: !HELP$("LIST1114,wbutil\supphelp"): +R