KKKKKKKKKKKKKKKKKKKKK 01,20,208,3072,8,169,60,32,210,255,169,68,32?210,255,169,69,32,210,255,169,76,32h210,255,169,62,32,210,255,40,104,96201,148,208,30,72,8,169,60,32,210255,169,73,32,210,255,169,78,32,210255,169,83,32,210,255,169,62,32,210 53281,1> " UNIVERSAL LISTER":""l" COMMODORE 64":T12000:T COMPUTE DEC 82d19,147,17,145,29,157,18,146,20,148,141,32n80-COLUMN CURSOR STUFFx7,21,149,22,150,14,142,25,15315,143  K,WHITE,RED,CYAN,MAGENTA,GREEN,BLUE,YELLOWO LOCK,UNLOCK,F1,F2,F3,F4,F5,F6,F7,F8h A(40),A$(40),K$(90)} J040:A(J):J J040:A$(J):J END,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READ,LET,GOTO,RUN,IF,RESTORE,GOSUB' RETURN,REM,STOP,ON,WAI CONCATG ,DOPEN,DCLOSE,RECORD,HEADER,COLLECT,BACKUP,COPY,APPEND,DSAVE,CATALOGe 6RENAME,SCRATCH,DIRECTORY{ @J089:K$(J):J 1:"NAME OF PROGRAM FILE";G$ 1,8,3,G$",P,R" #1,A$,B$ A$(1)A$""400 A$""A$(1):#1,X$ ST TO PRINTER N";Z$>bP3:(Z$)89P4:L$"":P3$(219):P4$(221)olP1$"[":P2$"]":"GRAPHICS OR TEXT G";Z$v(142):(Z$)84(14):M$L$:P1$P3$:P2$P4$"TRANSLATE CURSOR MOVES ";Z$(Z$)89T714,P:F$P1$J4,M$;P$:P$(L)" "  START TEXT HERE0*#1,A$:A$""710Q4T0:A(A$):A32F$","840n>Q0(A127)31T70900HJ040:AA(J)B$A$(J):860RJ:1000\B$B1$BB1:810fB0A$((B1),2)F$B$:890pA$F$B$zB0:B,6032,210,255,234,234,234,234,234,169,70132,210,255,169,56,32,210,255,169,62Y32,210,255,40,104,96,201,14,208,3072,8,169,60,32,210,255,169,76,32210,255,169,79,32,210,255,169,87,32210,255,169,62,32,210,255,40,104,962C((A$,1)):C1((C48C57)(C65C90))A37-$P$P$A$:25006.810N8 SKIP TO NEXT LINEdB#1,A$:A$""710nL1090 CLOSE OFF CURSOR EXPRESSIONF102040B0P$P$((B1),2):2500B0:F10:B1$"":P$P$P2$:2500:F$P10,32,210,255,169,52,32210,255,169,62,32,210,255,40,104,96D201,135,208,30,72,8,169,60,32,210o255,234,234,234,234,234,169,70,32,210255,169,53,32,210,255,169,62,32,210255,40,104,96,201,139,208,30,72,8169,60,32,210,255,234,2F20"** NO LINES FOUND **" 1:2000:4255,40,104,96,201,133,208,30,72,83169,60,32,210,255,234,234,234,234,234\169,70,32,210,255,169,49,32,210,255169,62,32,210,255,40,104,96,201,137208,30,72,8,169,60,32,210,255,234234,234,234,234,169,70,32,210,255,16950, VIC STUFF+ 144,5,28,159,156,30,31,158T 8,9,133,137,134,138,135,139,136,140 HOME,CLEAR,DOWN,UP,RIGHT,LEFT,RVS,RVOFF,DEL,INST,RETURN,SPACE BELL,D.LINE,I.LINE,ER.BEGIN,ER.END,TEXT,GRAPHIC,SCROLL.UP,SCROLL.DOWN TOP,BOTTOM& BLACT,LOAD,SAVE,VERIFY,DEF,POKE,PRINT#,PRINT,CONTn LIST,CLR,CMD,SYS,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN,NOT,STEP +,-,*,/,^,AND,OR,>,=,<,SGN,INT,ABS,USR,FRE,POS,SQR,RND,LOG,EXP,COS "SIN,TAN,ATN,PEEK,LEN,STR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$,GO,"LINE NUMBER RANGE -";Z$* L00:L10:L21E9F J1(Z$):Y$(Z$,J,1)c Y(Y$):Y48Y57510q Y32510 L0J:Y45600 J L0(Z$)L2((Z$,L01)):L20L21E9 L01L1(Z$) L00L1L2 XP3$"[":P4$"]":"LI80:P36900"":"++++++++++++":J181:(1024J)32JML940:4,"PROGRAM: ";G$[NEW LINE2010:Q0:T11:C11:#1,A$,B$:ST03000B$""3000#1,A$,B$L(A$(0))(B$(0))256LL11080LL23000F21:1$B$:F$",":F11:1010 AA128:A0Q010007A127A$"":1000HT1:A$K$(A)VA15Q2`2010tA$(34)Q1Q C=-1 FOR ALPHANUMERICC((A$,1)):C(C48C57)(C65C90)TT1T1T1T:CC1P$P$" ":250001,142,208,30,72,8,169,60,32,210!255,169,85,32,210,255,169,80,32,210J255,169,82,32,210,255,169,62,32,210i255,40,104,96,76,71,171,0,234,234,169,70,32,210,255,16955,32,210,255,169,62,32,210,255,40104,96,201,140,208,30,72,8,169 $ (P$)L92600 JL9L9.61/ (P$,J,1)":"2580I J:JL91L9.611Z P((P$,J))i P912580 P59P44P93JJ1:2580 J:JL91 4,M$;(P$,J1) P$" "(P$,J)(  (P$)0F21:4,M$;P$ 34,234,234,234169,70,32,210,255,169,54,32,210,255<169,62,32,210,255,40,104,96,201,136c208,30,72,8,169,60,32,210,255,234234,234,234,234,169,70,32,210,255,16955,32,210,255,169,62,32,210,255,40104,96,201,140,208,30,72,8,169"":"++++++++++++":J181:(1024J)32JML940:4,"PROGRAM: ";G$[NEW LINE2010:Q0:T11:C11:#1,A$,B$:2580 J:JL91 4,M$;(P$,J1) P$" "(P$,J)(  (P$)0F21:4,M$;P$ 32,210,255,169,62,32,210,255,40&104,96,201,134,208,30,72,8,169,60Q32,210,255,234,234,234,234,234,169,70z32,210,255,169,51,32,210,255,169,6232,210,255,40,104,96,201,138,208,3072,8,169,60,32,210,255,234,234,234234,234,169,7 &"EASY LISTER"L"BY J. ROY PINEAU"y"PLEASE WAIT 45 SECONDS" X4096049151:X,(X):X1,54:42740,0:42741,192I4915250379:A:I,A:I (631,147:632,13:633,78:634,69:635,VICE NOT PRESENT ERROR -- {9 9xآ蚩/7X +KLK *L * Щ! D I V _.`/l.W t+ K CL CKLL  MNPXMMiMN 210,255,169,62,32,210,255,40,104,968201,159,208,30,72,8,169,60,32,210a255,169,67,32,210,255,169,89,32,210255,169,78,32,210,255,169,62,32,210255,40,104,96,201,17,208,30,72,8169,60,32,210,255,169,68,32,210,255169,87,32,210 湩HHLo< {9 9xآ蚩/7X +KLK *L * Щ! D I V _.`/l.W t+ K CL CKLL  MNPXMMiMN01,154,208,30,72,8-169,60,32,210,255,169,76,32,210,255V169,66,32,210,255,169,76,32,210,255169,62,32,210,255,40,104,96,201,155208,30,72,8,169,60,32,210,255,16971,32,210,255,169,89,32,210,255,16951,32,210,255,169,62,32,210 TRY IT AGAIN (Y/N/Q)?  COPY COMPLETED.  (M)AKE ANOTHER COPY  (E)DIT SAME FILENAMES  (R)ETURN TO MAIN MENU SELECTION? 5QCPis Laȱ9Lȱ9e-dȱ9e.eȱ9e-lȱ9e.me9j:ikjdƠ9e-G9e.H169" }76,32,210,255,169,82,32,210,255,169J ~68,32,210,255,169,62,32,210,255,40q 104,96,201,151,208,30,72,8,169,60 32,210,255,169,71,32,210,255,169,89 32,210,255,169,49,32,210,255,169,62 32,210,255,40,104,96,201,152,208,3072 SELECT FILES TO BE COPIED  <SPC>SELECT  <CRSR> MOVEMENT N) NEXT PAGE X) RVS FIELD C) COPY    SELECT FILES TO BE SCRATCHED  <SPC> SELECT <CRSR> MOVEMENT N( NEXT255,169,85,32,210,255,169,62? q32,210,255,40,104,96,201,129,208,30e r72,8,169,60,32,210,255,169,79,32 s210,255,169,82,32,210,255,169,71,32 t210,255,169,62,32,210,255,40,104,96 u201,144,208,30,72,8,169,60,32,210 v255,169,66,32,210,25234,169,8532,210,255,169,80,32,210,255,169,62F32,210,255,40,104,96,201,157,208,30l72,8,169,60,32,210,255,169,76,32210,255,169,70,32,210,255,169,84,32210,255,169,62,32,210,255,40,104,96201,19,208,30,72,8,169,60,32,210 87:636,13:198,64 d201,5,208,30,72,8,169,60,32,210] e255,169,87,32,210,255,169,72,32,210 f255,169,84,32,210,255,169,62,32,210 g255,40,104,96,201,28,208,30,72,8 h169,60,32,210,255,169,82,32,210,255 i169,69,32,210,255,169,68,32,210,2,8,169,60,32,210,255,169'82,32,210,255,169,69,32,210,255,169O86,32,210,255,169,62,32,210,255,40v104,96,201,146,208,30,72,8,169,6032,210,255,169,82,32,210,255,169,7932,210,255,169,70,32,210,255,169,6232,210,255,40,104,96,2 ,255,169,78,32,210,255*169,62,32,210,255,40,104,96,201,29Q208,30,72,8,169,60,32,210,255,169z82,32,210,255,169,71,32,210,255,16984,32,210,255,169,62,32,210,255,40104,96,201,145,208,30,72,8,169,6032,210,255,234,234,234,234,XLMZN[ L(  ` ^Zx L 80xآ蚩7 LH7 h@ - EXCEEDS BUFFER CAPACITY, CANNOT COPY.  USE TWO DRIVES OR "DI-BACKUP"  SCRATCHING FILES... SCRATCHING  -- DE,255,40104,96,201,156,208,30,72,8,169,60G32,210,255,169,80,32,210,255,169,85p32,210,255,169,82,32,210,255,169,6232,210,255,40,104,96,201,158,208,3072,8,169,60,32,210,255,169,89,32210,255,169,69,32,210,255,169,76,329iH:iHGL:G9GIȱGJȱIHJHIHL+ȱ9 ȱ9Eȱ9F1_/i2`0i!9e/k9e0lkkXikȊk ;rE_ȥF_ʆq _  i_Ȋ_ L"qr LLMȄ F  Z     L<^LY,8,169,60,32,210,255,169,71,32;210,255,169,89,32,210,255,169,50,32d210,255,169,62,32,210,255,40,104,96201,153,208,30,72,8,169,60,32,210255,169,76,32,210,255,169,71,32,210255,169,78,32,210,255,169,62,32,210255,40,104,96,2 PAGE X) RVS FIELD S) SCRATCH  COPYING FILES... READING OK  INSERT SOURCE DISK- HIT RETURN.  INSERT DESTINATION DISK- HIT RETURN. WRITING  FILE EXIST. REPLACE IT (Y/N/Q)? I/O ERROR:  5,169,76,32,2100 w255,169,75,32,210,255,169,62,32,210W x255,40,104,96,201,149,208,30,72,8 y169,60,32,210,255,169,66,32,210,255 z169,82,32,210,255,169,78,32,210,255 {169,62,32,210,255,40,104,96,201,150 |208,30,72,8,169,60,32,210,255, 255,169,72,32,210,255,169,79,32,2106255,169,77,32,210,255,169,62,32,210]255,40,104,96,201,147,208,30,72,8169,60,32,210,255,169,67,32,210,255169,76,32,210,255,169,82,32,210,255169,62,32,210,255,40,104,96,201,18208,30,7255& j169,62,32,210,255,40,104,96,201,30M k208,30,72,8,169,60,32,210,255,169v l71,32,210,255,169,82,32,210,255,169 m78,32,210,255,169,62,32,210,255,40 n104,96,201,31,208,30,72,8,169,60 o32,210,255,169,66,32,210,255,169,76 p32,210, 8192:DR. CHIPX +KLK *L * Щ! D I V _.`/l.W t+ K CL CKLL  MNPXMMiMNXLMZN[ L(  ` ^ZȱZ$  h s Kۢ`~WڠL # Ӡ Lޠ X   L[ ./l.Q$ XLN- XQLNQXiYXXQ LNL[Q8XXQ LNQ XY LHQ K" QQQ aQ aP Q aQ  a  L BK P <LLpMMN`xP8(RS  LC\TMNSTi(TMiHMNNNNޥTUY(UPUY\Si1Ri1 DL NXCS G`֝     ARE YOU SURE (Y/N/Q)?   ܭ Тԩ ԩԩԩԢ}LԎ`"L  $. U o g W U o o o w L   `M-Ww*JM-Ww)IM-Ww(HK L Li0  o  LKi0  KLLi0  LL  Y S:L o I L o b  3 L WLg`ha`  ( `Ѡ '>L` L^ < W'N L Y L] Q L ɀɠ? ` o ( 8(0`+)ܭ) L ) L <) L COPYING - OPERATION ABORTED. W tz MNPXM` MbS:ȱM bbK  b  K Lq) MiMNXL] Lhi D$`1 " " 6 " ""; " "8@ " "MJ " "WO ::T " PUT DISK, CONTAINING THE FILE YOU WISH"Y " TO READ, INTO THE DRIVE."^  WT$"S" 1,8,5,"0:"F$",S,R":L LK  ` x`'` aaɀaad `ceLI Ն7X' L Le K ) Q`gahMiMN[NZML XMZN[ LL MNPX ML  MbȱM< b BROKEN BY DR. CHIP  COMMANDS  D) DIRECTORY @) DISK COMMAND   C) COPY FILES S) SCRATCH FILES   X) CHANGE DEVICE# P) DISK STATUS   M) SOURCE DRIVE#8 N) DEST. DRIVE#8  $Zְe^0ְ,^ZiZ[XL9 ZȱZ . LNHMHQ`g(ahMLB  MbȱM b,M,RbK  b  K LMK  ` '/x'`` aaɀa7 LXYX LNQ XLXX LN Xʊ =Z芑Z Y詝 L[RSSS LCL[Y =Z芑ZZiZ[  LCWL[LWL[L\ O 3  N   LCY`Qhh  (ޠ XQX7Y3 = Y XiY = Y XL`MZN[eZZ[` Z ZHȱZ] ɀɠ?] 婒 h``a $`08`(`a` X `AD G.H/l.KL(  `LL D p DLK *L *LK$MER(4 < W'N M 3 LB >Y 3 LO Q Le <(6L-)3L- g> Q L' N Q s`taQ L  80L ``+Ȏ+ ILUq  q Ki0Li0L DMNP$`K K  LH a  Ĥt a a " `    ``K *L *   LK o P L o L4UI+UI-D@CSXPMN C . џџџџџџџџџ  מC64 FAST BACK'EM  BY  MIKE J. HENRY  K K   ĤW å ͽ   + LH   L B L > H K o h K  <LK ) L WT$"R" 1,8,5,"0:" " " "/ " "G " "` " "z " "" " "' " ===>", " TO DRIVE",<>M=RW?bK b  K L L b<  L L K e ' @yL L f ' D MiMNXL L K )   SCREEN BLANKING (15% FASTER) COMMAND?  PRESS ANY KEY TO SEE MENU. POWER OFF DRIVE TO BE CHANGED TO #9. POWER DRIVE BACK ON (NEW DEVICE#9).  HIT RETURN WHEN DONE. DRIVE X: SOURCE DRIVE= XDESTINATION DRIVE= X01/01X@L @K LML K ) Q `sgathQMiMN[N ZM Lb LO hMhNR  ` Q`g(ahML  MbȱM b,M,WbeQ sctdK  b   )**********************************Q** **y** FILE READER **** **** WRITTEN BY A.J.SAVERIANO **** ** **  B$:SB$""455SB$" "455S54272N54272,50:542721,F:TT1200::542721,0:ZX(147)}]::" PICK COLOR COMBINATION"_""b:" PRESS F1 KEY FOR TEXT"g:" AND F3 KEY FOR BACKGROUND" i: ANT TO READ")r" OU ARE THEN ASKED IF YOU WANT INFO TO"W|" BE SENT TO THE SCREEN OR THE PRINTER."" NTER AN '' OR A '' ACCORDINGLY."" OU MAY TEMPORARILY HALT THE FLOW OF"" INFO BY PRESSING THE LETTER ''."" RESSING THE R":T$(4)"REL"J17:1500FN$B$:J2:1500:I$B$:#1,V$:J2:1500:O$B$:L188:#1,V$:s(147)"ISK NAME: "N$;"D:"I$::"ENGTH","YPE","AME":P18:#1,T$,V$,V$ T$""T$(128)J15:1500:N$B$4#1,V$,V$,V$ "CHILDREN'S COMPUTER"8a "̯":Vb " WORKSHOP"uc " "dD16:::8)"MULTI-FILE READER":D15:::" A.J. SAVERIANO"eD12800::(147):(14)g:" -ŠJ#1,V$V$(96)V$(160)B$B$V$2Q$:Q$""2000B4,8,15:194(147):::" NTER PRINTER DEVICE NUMBER"::" (3,4, OR 6)";9" 6 IS FOR THE 1520 RINTER">PN$:PN$""2110CPN$"3"A3:DPN$"4"2,A$;: 60 X$:X$""200/ X$"G"F70:500:808 200p :::10)"EAD ANOTHER FILE?":" OR " Q$:Q$""251 Q$"Y"6:13 Q$"N"300 251 ,A67,6,7:7:7 6(142):(147):(9):650,0 7TI$"00******************** ***** SUBROUTINES *****& ************************, := 2560: V1VC :W #5,C$ : 2600m C$"" V0 : } V(C$) :  :( 15,EN,EM$,ET,ES2 EN0 < :F : "DISK ERROR"P EN;(R)EL,(U)SR";WT$. WT$ "S"WT$ "R"WT$ "U"29j " FILE MUST USE AN 'S' OR 'R' OR 'U'":JH13500::19z "":(14) :" ANT THE INFO ON THE ()CREEN" :" OR ON THE ()RINTER ?":: " (NTER OR ) (K$: K$""40 - K$"M$"N" 826 KM$"Y"2562 2557; 15,8,15:15,"S:"SF$:15:::":::P O O F:::"L TP12000:t :" ILE GONE !!":TP13000::13 :::8)"ISH TO THE PROGRAM ?" E$:E$""2702 E$"N"19 E$"Y"300 270 FEBRUARY 5, 1985 **A ** **i ********************************** 4,8,15:(8):650,127 TI$"000000":S54272 I024:SI,0::S5,128:S6,128:S4,17:S24,15 53280,6 :53281,6 :646,14:600::" PRESS SPACE BAR WHEN FINISHED"lC$:C$""620KqC$""53281,C1:53280,C1:C1C11:600lvC$""646,C2:C2C21:600z{C$" "620(147):1,8,2,"$":X1141:#1,V$::T$(0)"DEL":T$(1)"SEQ":T$(2)"PRG"T$(3)"US LETTER '' CONTINUES IT."1" O ABORT THE ENTIRE PROCESS, PRESS"^" THE LETTER ''. F THE LETTER '' IS"" NOT USED, THE PROCESS WILL STOP"" AUTOMATICALLY WHEN THE FILE IS ENDED.":::" RESS THE SPACE BAR TO BEGIN"S,V$,V$,V$,V$,V$,V$,L$,H$%9L(L$(0))256(H$(0)):L0835]: ST 1::" ISH TO SCRATCH ANY FILE?":2500; ST :"  RESS ANY KEY TO CONTINUE":2000<L,T$((T$)128),N$>P8#1,V$,V$CP:765B$""L0 IS EASY TO USE.":2h" OU ARE FIRST ASKED IF YOU WANT TO"Ri" SEE THE DISK DIRECTORY."j" OU ARE OFFERED THE OPTION TO SCRATCH"k" A FILE AT THIS TIME.l" OU ARE THEN PROMPTED FOR THE NAME AND"m" THE TYPE OF FILE THAT YOU W A4:EPN$"6"A6:2200H21106,6,6:6,1:50. M$:M$""2500< M$"N"M M$"Y"2550W 2500 (147):::" YPE NAME OF FILE TO BE SCRATCHED" :SF$ :" Œ ? ( OR ) " KM$:KM$""2557 K0060"315B8TI$"000060""TOTAL TIME USED WAS ";:(TI$,2)" SECONDS":316t;"TOTAL TIME USED WAS ";(TI3600);" MINUTES"<PI14000::PI112:::6)"SYSTEM RE-START IN PROGRESS":64738^(147)_(147)::"Ϸ"`EM$;ET;ESZ :PHASE COMPLETE-DO NOT TOUCH THE KEYBOARD YET"8j J13000:J:Q$(34)Xt "LOAD"Q$D0$":"FO$Q$",8"p~ "CLR:SYS46262" "SAVE"Q$"@"DO$":"FO$Q$",8" 158,3:J623625:J,13:J "";: : : ****S" A3:50 . K$"P"2100:50# / 404 2(147):2,A> 43000K 54,A$,B$[ 6A$"00"60 7"UH,OH ===> DISK ERROR => " B$:2:1:F$"":TY12500::13 <#1,A$:ST 1:2:250 =Z$ >Z$"H"F30:500:200 AZ$"A"1:2:250 P0 (142):: " " " "/ " "G " "` " "z " "" " "' " ===>", " TO DRIVE"350:(147)M ""::" O YOU WANT TO SEE THE DISK DIRECTORY?"::17)" OR "_ D$:D$""14q D$"N"2700 D$"Y"15,8,15:15,"I":15:700 14 (147)::2800::" ENTER NAME OF FILE TO BE READ";F$ :" ENTER FILE TYPE (S)EQ, **************  SORT TARGET LINES,  *****************2 :C  N2 1060S  X0 N1f : Y0 N2 : TL(Y) TL(X) 1000 : VTL(Y) : TL(Y)TL(X) : TL(X)V  Y,X :  *********************  GET READY  0  2560: V32 650$  V48 V57 7409 LT(10LT)(C$)K  2560: 660Q :n  **********************  CHECK IF ALREADY FOUND  ********************** :  X0 N  TL(X)LT 870  X TL(N)LT : NN1 ************* CHK IF LINE# IS A TARGET'  ************************-:;  X0 NP* TL(X)LN Xf4 TL(X)LN 2270l>:H ********************R NOT USED -\ DISCARD LINK & LINE#f ********************p:z $",P,R" :&  ***************************H  READ LOAD ADR, LINK & LINE#j  ***************************p :  2600: 2540  2540: VV10 950  2540: LNV1(256V) :  ******************************  SCA****************** IF COLON - CHK NEXT CHAR+ ELSE COPY CHARJ& ************************P0:c: V58 1500nD 2560N V32 V58 1860X V143 1630b V0 1980l6,":"; : RR1v 1520: *******)" COMPACTOR 5"THIS PROGRAM WILL COMPACT A PROGRAM"e"LOCATED ON ANY DRIVE BY DELETING ALL REM"""NOTATIONS, BLANK LINES, AND BY LINKING","TOGETHER ALL POSSIBLE LINES."6"THE NEW COMPACTED PROGRAM WILL BE SAVED"@"TO ANY DIS V167 F1: V0 1980: V32 1510!:<" ********************P, 'REM' TOKEN -k6 DISCARD REST OF LINE@ ********************J:T V143 1710^ 2560: V0 1630h 1980r:| *****************O, N.J. 08004 *3Z ***************************|d> MOD.RAY THOMAS.830116 TO GIVE CHOICE OF DRIVES & AUTO-LINK FIX <n***************************x* INSTRUCTIONS ADDED BY ** JOHN EASTON FOR **CHRISTIAN COMPUTER/BALNL1(256L2) : LN,  2560&( V32 V58 131072 V0 1360K< V143 1400dF 2560: V0 1350xPF1 : X0 NZ: TL(X)LN Xd: TL(X)LN 1400n 1270x6,(K1);(K2);6,(L1);(L2); : R46,(L1);(L2); : R4 2560 V32 V58 22901 V0 V143 6,":";B F0 : 1520H :c$ ********************z. END OF COMPACT -8 WRITE END OF PROGRAMB ********************L :V 6,(0);(0);(0);:5:6:1FOR COMPACT *********************:8$ "COMPACTING LINES....@. 5_8 5,8,5,DI$":"FL$",P,R"jB 2600LFO$(FL$,14)"/C"V15,"S1:"FO$` 6,8,6,D0$":"FO$",P,W"j 2600t:~ ************* COPY LOAD A  LT,  N1000 870, "TOO MANY TARGET LINES!7 * 2660= 4:_ > *************************** H CHECK FOR 'ON...GOTO/GOSUB' R *************************** \: f V44 640 p V32 560 z 2560: 870 :  *** 2560: V143 1630 V32 V58 2170 V0 199066,":"; : RR1 : 1520<:_ ****************************t LINE# NEEDED - WRITE LINE END, LINK & LINE# ****************************:6,(0);(1);(1);N BASIC LINES&  FOR GOTO, GOSUB, & THEN TOKENSK  ******************************Q :\ & 2560l 0 V0 470 : V137 V141 640 D V167 550 N: X **************** b GET TARGET LINE# l **************** v: LT********************* END OF LINE -* CAN WE COMPACT THESE LINES ?M ****************************S:r F (R170) V0: 1210} 2540 VV10 2390 2540: LNV1(256V)L1V1 : L2V : LN,: ***********K DRIVE WITH THE SAME FILENAME"7J"BUT WITH A '/C' SUFFIX."WT" INPUT FILE DRIVE #";DI$w^"OUTPUT FILE DRIVE #";DO$h"INPUT FILE NAME";FL$r"SCANNING FILE|" FOR TARGET LINES..... 15,8,15: 2600 5,8,5,DI$":"FL********* QUOTE - COPY TILL NEXT OR LINE END; **************************A:T V34 1850g6,C$; : RR1r 2560 V34 1500 V0 1720 F V0 : 12106,(34); : RR1 1980: ******SED*!* COMMUNICATIONS *B* 44 DELMA DRIVE *c*TORONTO, ONTARIO M8W 4N6****************************: : TL(1000): **************** READY DISK FILES ****************: ""14: F 6,":"; : R5F0 : 1520:6 ***************************X **** SCAN BASIC LINE ****z **** & COMPACT PROGRAM **** ***************************:6,C$; : RR1 2560: V137 F1: V1395` "MODIFY PHASE COMPLETE-DO NOT TOUCH THE KEYBOARD YET"8j J13000:J:Q$(34)Xt "LOAD"Q$D0$":"FO$Q$",8"p~ "CLR:SYS46262" "SAVE"Q$"@"DO$":"FO$Q$",8" 158,3:J623625:J,13:J "";: : : ****DR *************: 25406,(V1);16,(V);: R07:W *************************w COPY LINK AND LINE NUMBER *************************: 2540: K1V1 :K2VF0 : VV10 2390  2540: L1V1 : L2V ! ͽ ͽ !% 0&1 L7& JeiL80 `S0: X.Lt: ii8/0L18.) ȱ8.)  ȘeHih Lb% ȱHȱh Lb$  *********************************** * GRAPHICS BASIC * * FOR THE COMMODORE 64 * *********************************** BY DAN ROTHWELL *********************************** * * * GRA ************************** HIRES ::::::ENABLES HIRES GRAPHIC SCREEN *********************************** TEXT ::::::ALLOWS KEYBOARD CHARACTERS TO ::::::BE PRINTED TO THE HIRES SCREEN *********************************** SPLIT :::::PROVIDES A 4 LINE TEXT SC RAWS COORDINATE AXES) *********************************** DRAW (THE 3 DRAWING MODES) *********************************** ERASE *********************************** FLIP ^ *********************************** BOX :::::BOX X,Y TO X,Y (DIAGONAL CL7 L7  !ېL7Q0 LI I ! ^ \Ƣl΅υ   Ş \Bx67XH h  )x67XH h Lj  L7۰8LA `iITE X,Y,"TESTING 123" :::::WRITE X,Y,CHR$(33)+CHR$(45) :::::WRITE X,Y,B$ *********************************** POINT ::::: IF POINT(X,Y) THEN . . . :::::(A FUNCTION WHICH RETURNS :::::::::::::: 0=CLEAR,1=SET) *********************************** EY < {  _`  ȱ Hȱȱ 2ȱ  @#ѼL5ȘeiL 3 L1 3Ȅ q Lɦ L6  <'L6eid::160,100(n0,0,124:0,0,102OxB$"121 2 3 4 5 6 7 8 9 1011":T1lD024(B$):TT2X120(D):Y90(D):X0XX8Y0YY8X,Y,(B$,T,2)TT$TI$TI$TT$190S1((TI$,2))M1((TI$,3,2))i L>L !mi`8咍 `B `ecbefe褴 cf` ॴ8`8咅哅`ȱH):S(DQ):L2L34: CW,SWSL,CL2CW,SWCW,SW@ 11":T1lD024(B$):TT2X120(D):Y90(D):X0XX8Y0YY8X,Y,(B$,T,2)TT$TI$TI$TT$190S1((TI$,2))M1((TI$,3,2))ȱHȱ"ȱ#h $Lb= ` ݽHh ` "# !"8 "#!#"#x]XL7m cm!b8 I ݽw wL xA !XLAÍ L7:'9 :[ 9: ɽPHICS BASIC ADDS * * THE FOLLOWING COMMANDS: * * * *********************************** *********************************** PLOT :::::PLOT X,Y :::::PLOT TO X,Y :::::PLOT X,Y TO X,Y (AND ON AND ON) *********REEN :::::AND HIRES SCREEN FOR PLOTTING :::::IN DIRECT MODE *********************************** CLEAR ::::::CLEARS THE HIRES SCREEN *********************************** OFFSET :::::OFFSET X,Y (SET ORIGIN AT X,Y) *********************************** AXES (DORNERS) *********************************** CIRCLE :::::CIRCLE X,Y,RADIUS (Y-RADIUS IS 3/4 OF X-RADIUS TO MAKE CIRCLE "ROUNDER" *********************************** FILL ::::: FILL X,Y (WITH CURRENT COLOR) *********************************** WRITE :::::WR L枩٘`8 L A [iL ٩` `  P ed  L7ԥ-`H Lr !Э Эl  W-ƍ sL  > TO CONTINUE: *************************** CIRCLE :::::CIRCLE X,Y,RADIUS (Y-RADIUS IS 3/4 OF X-RADIUS TO MAKE CIRCLE "ROUNDER" *********************************** FILL ::::: FILL X,Y (WITH CURRENT COLOR) *********************************** WRITE :::::WRm e Li` )@L6ȹ8@ȹ+" @ ȹ")@Ȅz` lxHHH Lr !Э Эl  W-ƍ sL   & H1((TI$,2))M160:H112H1H112J D1S1:D2S2:Q30:W5:L100:380T S2S1w D1M1:D2M2:Q30:W5:L75:380 ,M2M1 JD1H1:D2H2:Q6:W5:L50:380 ^H2H1 r180 |۵(LD1Q)(LD2Q)382 }DD2::390 ~DD1: C(DQKȱ8e ȱd  ͽ`$Hȥhmm Lķ ȐÅą ΩI ΍ͩͩ ΢W Ί   >,CLFBU1:<<<P! L‘?B,$ E()V` l  l , PH  7  $  < i$-L B  HECK DISK AND RERUN THE PROGRAM>aaO RENAME(R(d RENAME < 6>P NEW NAME( 4 4 6 /> LOCK/UNLOCK(R(Ɩ 42ח@  (@ ז3 6 <<< WHICH FILE

 PRESS KEY>+Հ1֖ R%떱+~!(% DELETE(X 2@ " LOCKED FILE >+& DELETE < 6>ARE YOU SURE Y/N>+ՀY R&BS0:< 6C WORKING>&R&҃ HUWW >L뫩 X (23001L7LL XL7I&'`HHH hhhL,  LZ P ͽL  ͈ ΍ҩE Ω  ,0,HhHhHhHh & &٭0F>Υ ̠̅̅̐СHЩh`,8H ΩM - hL ۩ `1"^ P0PPZANARDAIQABFEETESZNNZZBCBQFYR+BU1:<<<BV0:C&)DO YOU WANT TO SOFTWARE PROTECT THE DISK>P NX8ɐ8 \L7  SR( WRITING NEW DIRECTORY>"DO NOT REMOVE DISK UNTIL RED>LIGHT IS OUT. THANK YOU>)+ 3Ñу !܃ ܜR)ɜ BB-A 0<<Cɐ BB-F 0<<Cݰϰȱޞ 3ߦ3 )3ߞ3 BB-P< ESTARjTERMINA@TRACŮTROFUNNEכVCHANGż@Г=zL("$J;78 ia_ 'Iԩ" w ކL1 0/+ iai  "L7 l ꓍ Lߓlx_ QR&<<<<>IR&;PRESS ANY KEY TO CONT>+DISK IS SOFTWARE LOCKED>PDO YOU WANT TO UNLOCK IT;WRITE PROTECTION MUST BE REMOVED FOR IT TO WORK CORRECTLY.>!CK _ȥ`!LL1L˓ ` Lt <8 L7  iӠ ҕ: LM:  L. ! ͽ> ` ݽȹ1:  Lhi*hL- ,#ɂ *#i #ѐީ, Liۤ# , !!*!*HhHhHhҥкС 7*# 0x`$E  cL!8 ]ȥadJ$p de8a48/ic$bJdc(bJf( d( ݽ e$f    9=:=8 Ii<0 dJeF<Ӑ ;L  C L edLH  9DȄ;L )ed$0L-LLhac4b3 bLaa)ia34821 z34bcibL0 d2h h,h.&h0#h8hhhhJ  edLH hhPhQPPi95#ʊniIeeiI iinaa=348a21 Ѓѱ҃ 6-R! 6- 6- Ӡ DIRECTORY EDIT>Ɉ R"Z 2@ <0ԉ0/5 << 6>R" 2@ <)F1 INSERT SPACE F2 REMOVE SPACES>&F3 bJed`aedc4b3 ea34bL 9 i( կL0fLd L0aɐ $p  ̼L BLd0eȘA0> +Lw edLLedc4b3 ea34a edLbc#"eda4 3 P ꓐ<3>!  -=>IRECTORY EDIT<=- >BF +LACE THE DISK TO EDIT IN THE DRIVE AND > RESS []>+զ3<<` eYJe dcdbdaL$;_0ȱ_pL IJdeLpL p aIȥf %bIȥcIȥdIȥeI;LereYJaHc4b3L<' YLq). "C L9:LC*F5 ADD ------- _ WRITE OR EXIT>'F7 RENAME FILE F8 DELETE FILES>#CRSR UP/DOWN PAGE IF LISTING >36 <3<+Հ_R%'Ź 6R##j#$$(e$'& ##!Ȉ"  eb34a L0\adK$p de9aɁ3/ic$bJdc(bJf( d( ݽ e$f  mQnlkPȹaLdLH a34821 z34bcebL ed  ;L H 0h0: BIC#`&0:TZ,U,W`& aaa aBS0:TZCñűDZȱɻ 3333---------------- READING FILES.>BU1 2 0<BB-P 2! 1 TO RETURN TO EDITING> 2 TO REWRITE DIRECTORY>< 0 TO END WITHOUT CHANGING O eidL{Lkj$"jzȹ"ȹ:,8jaLSPECTOR<=-L LL    tb* 2V0rfI6$$$$$$$$$$zttAC`ڞmmںkk22\\\ =uuuvuuuuuuutuuw#*18?FMT[bipw  * HELP MENU *2 *************/<" DIRECTORY MANIPULATOR HELP MENU"sF" F1-> RE-LIST DIRECTORY":" F2-> ALPHABATIZE DIRECTORY"P" F3-> INSERT BLANK ENTRY":" F4-> DELETE BLANK ENTRIES"Z" F5-> INSERT-----ENTRY": 3b54c6o#o"i"5"5ie556d#d"n"5"5L edc4b3 a e334oȱojȱokpok4j3 ej34aaf jb%<de Lfi"af0,%<de **********************)1490:"ENTER REMARK:";:RM$:(RM$)161170Z(RM$)16I1(16(RM$)):RM$RM$(160):sF$(BL)TY$RM$FL$: ************************** * SWAP DIRECTORY ENTRIES * **************************"1ST dc(bJf( d(e$f <L L L1 \ 0 BF< l%ddm%e lddmeeLLHkiɁjJfknIlkIm` 9P:Q L# LP9Q:L-.`_0/ȑ_e_7834hhHH; ************ * INSERT BLANK ENTRY *, **********************V1490:F$(BL)(0)(0)(0)SP$FL$:u ************************ * DELETE BLANK ENTRIES * ************************I1N1:(F$(I))01070$:.XBL kcm&l&kީ L9:z{=>Lᧅ2,F$(XX);: * PUT DIR ENTRIES INTO BUFFER *dHZ8XX(N1)2,"SG";: * TRASH BYTES FOR DIR ENTRIES 2-7 *kRZ\15,"U2:";2;0;18;S%(I): * WRITE DIR SECTOR *f"WRITING TRACK 18 SECTOR"(S%(I))pI:2:15:1660z *********PULATE ANOTHER DISKETTE (Y/N)";:"";AN$AN$"Y"AN$"N"1660U"DISKETTE BEING VALIDATED":15,8,15:15,"V":15,"I":15dAN$"Y"jET,ES:EN01600" ***************************, * DISK UNIT ERROR ROUTINE *6 ** CM$"" NN1:IN1BL11:F$(I)F$(I1)::) *********************E * DISK STATUS CHECK *a *********************15,EN,EM$,ET,ES:EN01600" ***************************, * DISK UNIT ERROR ROUTINE *6 ** ~'d jS+{ $d -qbd ' eKd " #8ȥe#ed"dee#ede"db b 0qqqe 0L LafIfL0 BdIdeIeLLXoedanoieaaf348a21 z " F6-> INSERT 'REMARK' ENTRY"Dd" F7-> SWAP DIRECTORY ENTRIES":" F8-> DELETE DIRECTORY ENTRYPn1430:mx ********************** * HIT KEY SUBROUTINE * **********************:13)"HIT ANY KEY!!!"CK$:CK$""1440 Lan0fEn0ajbkcld pme𺐰РijklnIlmImmllmm0m*jmkilm <L U VnEfoa TLldme Ed0%<deLadD$p dePaɁJFic;bJ3 ";:1490:ABL:"2ND";:1490:F$(B)F$(A):F$(A)F$(BL)'F$(BL)F$(B):H **************************i * DELETE DIRECTORY ENTRY * **************************1490:XBLN1 BLN1F$(X)F$(X1):NN1: *************( AB`NmeeldL meeeleddpLbcff p ۼLbcd0f LdElfd lIlmImmldel llmmbcdejkF()()F(f)eemedeldcekcbejbm&l&k&jѥdIdeIeed`Jeemedeldce N18BLN1F$(X)F$(X1)B:NN1:10500L **********************MV * INSERT ----- ENTRY *j` **********************j1490:F$(BL)TY$"----------------"FL$:t *************************~ * INSERT 'REMARK' ENTRY * *** 06" "$p a-ȥf %b-ȥc-ȥd-ȥe-;L8e-I.iLa;9 LLe:;;~padD$p deEaɁ?;ic0bJ(dc(bJf(d(e$f LeHdHcHbHaHfHHeHdHH;ɠHk-ȱ-dȱ-e **************** * ALPHABATIZE DIRECTORY *8 *************************@XNTX(X2):X0kI1((N1)X):YIZYX:(F$(Y),4,16)(F$(Z),4,16)970FF$F$(Y):F$(Y)F$(Z):F$(Z)FF$:YYX:Y0950:930 ********** Lȱ-< 8e-Id.iJeIcIbIaLɦ}9 ɤ9L:ȱ-aȱ-f bȱ-cȱ-dȱ-e pL99 :)H`9G &` &` &`8G`He-_e.`_iI`iJLoɰ)ed Lɪ}ɧ9ȱ9edȘ L9aȱ9f bȱ9cȱ *************************@""12"DISK UNIT ERROR!">J"ERROR # -"EN";TRACK -"ET"; SECTOR -"SEXT"ERROR MSG - "EM$:}^ ******************************h * EXIT DIRECTORY MANIPULATOR *r ******************************|"MANI 4  4B<@<@C&--=== PRINTER ERROR ===-->a!Da!Q aaaFR#*HUWWQ1Xaa--=== << << << << ===-->DŽ!?ńƅ F#*>?!OABTCD 06 "3 /4"3HFR!"3R HF"3!HF 3R!' "3/4HFR!^ŀ4*/4ń4F#*R j0 BLOCKS FREE/5 & ******************************K * DIRECTORY MANIPULATOR INIT *p ******************************(""9)"DIRECTORY MANIPULATOR"25)"INSERT DISKETTE TO MANIPULATE":1430<F$(144):I111:FL$FL$(0)::TY$(131)(18)(0 湩HHLo< {9 9:`F LLHhiEhiFh hhelEh0h8ܨhhhhJ   ƹ     Z LLL &348a21`L5#$$ڪDN A( 12)"DISK UNIT OK !"6 ***************************X * READ DIRECTORY ROUTINE *z *************************** 2,8,2,"#" 15,"U1";2;0;T;S 1550 #2,T$,S$: * TRACK & SECTOR OF NEXT DIR ENTRY * T(T$(0)):S(S$(0 eDLa;;Ȇ<dLH 9e 9LF<e9H:iHHȱ9ȱ99:Lihɍ iLhIhJhIh:h9L; deLaL; de Laȱ9Lȱ9e-dȱ9e.eȱ9e-lȱ9e.me9j:ikjdƠ9e-G9e.H *************' ^ * PRINT DIRECTORY ROUTINE *I h *************************** rZ1:OD0:P120:PGP1:X((N1)2)1:(N1)(2(X1))1XX1:OD1 |XXX1:PC(XXPG):(XXPG)PC0PCPC1 XXPGXPG1 I1XX:""((Z),2)"";(F$(Z),4 eidL{Lkj$"jzȹ"ȹ:,8jaL#*SR#PR";E"ń?"ENTER PRINT HEADING FOR DISK #<<>PS4/4`D Ȳ  ȳ  ȰňF#* /4>aa DŽR! ?"SCREEN, PRINTER, OR END (S/P/E)?>#*SR#PR";E"ń?"ENTER PRINT HEADING FOR DISK #<<>PS4/4`D Ȳ  ȳ  ȰňF#* ) FS%(18):S%(1)1:I1170 PI6S%(I1)2:F ZI12S%(I1)3:\ dS%(I1)S%(I)3:r nT18:S1:N1:OK0 xSP$"":I116:SP$SP$(160): ****************** * INIT DISK UNIT * ****************** 15,8,15,"I0":1550  ðİŰưǰȼP P!ꓛ>?READ DIRECTORY: NO.<< (Y/N)?>#*N !Y  U 5`$0`HFHFHFHF#C>LJ $------------------------- uHFHFŀ2Ł 2 ń )) I185 F$"":X130: * GET DIRECTORY ENTRIES *V #2,B$:B(B$(0)):X1ABc "X4CBu ,F$F$(B):X 6A0(A0C160)F$(N)F$:NN1 @#2,B$,B$:I: * DIR ENTRIES 2-7 GARBAGE 1ST 2 BYTES * JT0220 T ************** 9iH:iHGL:G9GIȱGJȱIHJHIHL+ȱ9 ȱ9Eȱ9F1_/i2`0i!9e/k9e0lkkXikȊk ;rE_ȥF_ʆq _  i_Ȋ_ L"qr LLMȄ F  Z     L<^LY ,16):ZZ1C OD0(OD12XXX)19)""((X),2)"";(F$(X),4,16):XX1t (IPG)1PC2PGPGP1:1430:PCPC1:440} 460 ZX:PC2XZP1 PC1X(((2XX)(2I))2)Z I 15:2  ******************  * CHECK DIR f %bb"#LC + 8:H9HJHIH HLiJI iL0JI Ȱ&iHi$h f IJ g л ]LqIIe  qIId de Ed0' i;L8 :9Lِيi;L; d *: ********************>D"SELECT DIRECTORY MANIPULATION COMMAND:"SNCM$:CM$""590{XCM$"""RE-LIST DIRECTORY":370bCM$"H"1340:370lOK1:CM$"""ALPHABATIZE DIRECTORY":920:370vCM$"""INSERT BLANK ENTRY":101 "":580 **********************5 * RE-WRITE DIRECTORY *R **********************"WRITING NEW DIRECTORY...PLEASE WAIT!"F$"":I132:F$F$(0):I15,8,15,"I0":155012)" DISK UNIT OK !" 2,8,2,"#":X(( N1)8):XX0:((N1)8)X0XX1D I1X:15,"B-P:";2;0: * POSITION BUFFER POINTER *T18:IXT0: * SET NEXT DIR SEC POINTER TO 0 IF LAST SECTOR * 2,(T);(S%(I1));: * POINTER TO NEXT TR/SE OF DIR **Z18:XXXX14XXN2,F$ 2076T.J.M.L LL    tb* 2V0rfI6$$$$$$$$$$zttAC`ڞmmںkk22\\\ =uuuvuuuuuuutuuw#*18?FMT[bipw eYJe dcdbdaL$;_0ȱ_pL IJdeLpL p aIȥf %bIȥcIȥdIȥeI;LereYJaHc4b3 +Lw edLLedc4b3 ea34a edLbc#"eda4 3 9dȱ9e L)99: )a9ea9::ȆbcL  -ɬ {Lɯ HLLʆdeL L9e/iȱ9e0j9:ie/_ȊifiLձ9/e/_Ȋ/N/e0`_F_E_ ie_Xe`Yh0hnhihjhkhh \ )ed$0L-LLhac4b3 bLaa)ia34821 z34bcibL0 d2h h,h.&h0#h8hhhhJ  edLH hhPhQPPi95#ʊniIeeiI iinaa=348a21 06" "$p a-ȥf %b-ȥc-ȥd-ȥe-;L8e-I.iLa;9 LLe:;;~padD$p deEaɁ?;ic0bJ(dc(bJf(d(e$f LeHdHcHbHaHfHHeHdHH;ɠHk-ȱ-dȱ-e SK? (Y/N)"40:K$"Y""":NR,7:6""\" PROGRAM TERMINATED """1:2:15 65418 160,2,177,45,153,137,0,200,192,6,208,246,162 1,32,198,255,3 AB`NmeeldL meeeleddpLbcff p ۼLbcd0f LdElfd lIlmImmldel llmmbcdejkF()()F(f)eemedeldcekcbejbm&l&k&jѥdIdeIeed`Jeemedeldce Lan0fEn0ajbkcld pme𺐰РijklnIlmImmllmm0m*jmkilm <L U VnEfoa TLldme Ed0%<deLadD$p dePaɁJFic;bJ3 ]ȥadJ$p de8a48/ic$bJdc(bJf( d( ݽ e$f    9=:=8 Ii<0 dJeF<Ӑ ;L  C L edLH  9DȄ;L ~'d jS+{ $d -qbd ' eKd " #8ȥe#ed"dee#ede"db b 0qqqe 0L LafIfL0 BdIdeIeLLXoedanoieaaf348a21 z dhelUfʆde`pabcdf dee0e*becade`) 0$p aɁEf0(ibJd bJfcdce` Mb8jfc ed+LHf0$p aɁ㪥bJfcc`ed`$p f0aɁ  eb34a L0\adK$p de9aɁ3/ic$bJdc(bJf( d( ݽ e$f  mQnlkPȹaLdLH a34821 z34bcebL ed  ;L H 0h0: mHlHhr_ h_LEhq Nh0hnhihjhkhh \ mHlHhl_ h_LEhmrq Lem"elqr гr &r$E0F$F0p &reqeXIereYJ$;PL)IeIdIcIf bIa pLeXIreYJ$;pȱIeId L0} BveqeXI$;pxder  zb3c4Pen"ȱPi#a"b"babc ȆdeiLLд<  LᧅL<' YLq). "C L9:LCM$"":., 32$ 0,254,169, 1, 76,105,249,234ASING TRACK"TD SEEKPJOB176Y360g EXECUTEs"JOB224|,3606T@"DONE! "J15T^ JOB QUEUEhTRY0r15,"M-W"(8)(0)(2)(T)(0)|15,"M-W960N$(T)M$83070:B0(NN1:XNF11<N$(X)N$(X1):JN$(F)LN$S830m30:K$"Y"90:840y70:B0$NN1:XFN.N$(X)N$(X1):8N$(N1)""BNC1C0LFN1RR(R1)V830`A(N$(F))(0)(4)(24)D$T1359"ERASING TRACK"TD SEEKPJOB176Y360g EXECUTEs"JOB224|,3606T@"DONE! "J15T^ JOB QUEUEhTRY0r15,"M-W"(8)(0)(2)(T)(0)|15,"M-W ":120:M dNR,RL2::CL20);""(N$(RL(I1)CLD1),4,16)S n xNR,R2::C20);"";(N$(R(I1)CD1),4,16) ""HE$; D1NC,21:" P = PRIOR SCREEN " DN40NC,21:" N = NEXT SCREEN " I((ND1):RIRI1 RIRI "120:2 ,40:CLC:RLRe 6K$(13)K$""K$"-"K$","K$" "K$""y @K$""R1:C0 JK$""K$""CC1 TK$""K$""R(R12(K$"")) ^CN1R1:C0 hRI1R1 rR1RI1 |N$(R(IG DIRECTORY " N8(N8)1270$NN1:N$(N)Z$:1250NS0:T18:S(N8.5)255:N1:2,8,2,"#"bS(S1)255T0t 15,"B-P";2;02,(T);(S(S1));:P2XNN7:15,"B-P";2;P(2,N$(X);:PP32::NX215,"U2";2;0;18;S(S):15,EN$ DIRECTORY FILER "4 " "Z " INSERT DISKETTE IN DRIVE "} " X16:N$N$N$: N$(N$,2):N$N$N$ X828861 &Y:X,Y: 0X130:Z$Z$(0)::N$(144),S(18)AL),WITHOUT COUNTING THE TIME CHANGING THE DISK THREE TIMES. - WITH TWO DRIVES YOU CAN BACKUP A HOLE DISK IN 38 SECONDS ! - AND THERE ARE MANY MORE FEATURES. T'S OBVIOUS, THAT IT MAKES,LIKE ALL S, FULLY ERIFY AFTER READING AND"40:K$""430@NR,7::" READING DISK NAME "]15,8,15,"I0":1,8,3,"$"828:15,EN$,EM$:EN$"00"710NR,7:" DISK READ ERROR # "EN$" ":1480HE$(N$,143,16)","(N$,161,2)NR,3: 140 H300:FR(I1)CD1RK$"-"9900\K$" "N11040AfK$","1120RpK$""1190czK$""1230tM$N$(F):80300:TR(I1)CD1FT1FT90:84070FTV1FTV1:TT1N$(F)N$(FV):FFV:FT ,EM$:EN$"00"1370<NR,1:%F" DISK WRITE ERROR # "EN$;PT12000::1440UZSS1:S(S)2551280adB1410n2,(0);(255);Z$:15,"U2";2;0;18;18xNR,1::"VALIDATING BAM ":15,"V0"2:15,"I0":15NR,1::"ANOTHER DI jA130A194:1150tA194A130,~N$(F)(A)(N$(F),29)HNR,RL2::CL2018);n""(60(A194));(32(A130))w84010030:K$"Y"1440K$""120090:840100:30:K$"Y"90:840NR,1::"WRITIN"(1)(0)(1)(JOB)TRYTRY1315,"M-R"(1)(0)?#15,E$RE$""E$(0)^E(E$)oTRY500470~E12739015"FAILED" 21 ERROR 32,163,253,169, 85,141, 1, 28 162,255,160, 48, 32,201,253 "2084:"AMOEBA ؠ ʠ W      L o `   `M-W M-EM-Wyz  2061Lx',Pݠ?pFjFjJJ ݥi@`',Pݠ   &(&I`x P P`x',PݢpFjFjJJL`x',Pݢ  &(&`@̢   3 3 & #1 :0 &   ,, $ܥv &  RESS '' FOR INSTR./ THER TO START I1L  & RESS A KEY  &   4Й   ид)?9: !L  m L 9:!  L 6$Ln L 6`X%ԩԩ+ԩ/ԩ4ԩ ԩ! hIYL iبJJJJ ) 0LHl560 (e556h@@5 w LLEEE 4Z VP$ VP0P 8G) :   I,  Le CCLL7 L  0ʆ I : PL  P ) P KC e^w,Cwr  CLx Lt Lt&w L[ 8 x`   $ 8eCL     3   `,,?JJJf(fi@`I,,* * `,,JJJf(f` HIS IS A NEW VERSION OF WRITTEN BY HOMAS EMPELMAN,201,13,240,15,164,142,1452 ' 140,200,132,142,196,139,240,4,165,144,240,234,76,204,255;2"' MODIFY STRING THING - END LINES EVERY 255 BYTES2$' 164,142,145,140,200,132,142,192,0,240,4,165,144,240,238,76,204,25565850FT$"S"00I1800wPP0 ƼLgƽвƺL8`"# L`Ѝ, ,0`hhLX n gA*HI``0`HILE AND INTEND TO USE IT,PLEASE SEND A CHEQUE OR MONEY ORDER FOR $5.00 (MADE OUT TO ) TO HOMAS EMPELMANN C/O , 1912 VENUE D., TE. 1, ORONTO, NTARIO, ANADA 5 41 (OR TO THE ADRESS BELOW). IS WILLING TO ACT AS A CLEARI" x -J J    ) X`    LBLANK 002A "L `))ƻ`" K D)D` ) `" KC 9" o M - W    i i ܊ o M - E S   ݩݩݩݩݩ؝ٝڝ &  2.5 WRITTEN BY H. EMPELMANN 0 &  NSERT SOURCE DISK w   LL  T9(09 9ʩ* ׅ ϥ o  е)ʩ L.  L. )?L. m &  NSERT DESTINATION DISK w  G (0 56iԅ65l`ԩ ,,0,5`h5h6565 5656l5  &  AM IS UNREADABLEL &  ND OF COPYL &  AD TRACK: & - ND OF COPY m w m L ' (`1)   LLLDJJJJJP0PP ILx      & Lx L L  !"    w  xL L   2   ީ    ǩL$L; L Ltx`X vx`X0$ p0x` PM0PMLHL  `,,* * N. T'S FASTER THAN THE LAST AND COPIES ONLY THE USED BLOCKS MARKED IN THE . ND IT DOESN'T FORMAT THE DESTINATION DISK. HOMAS EMPELMANN IS A STUDENT,WHO LIVES IN EST ERMANY. F YOU FIND THIS OR THE OLD VERSION OF WORTHWHNER TR.25 2900 LDENBURG EST ERMANY FOR MORE INFORMATION. IS A NEW - RESIDENT OPERATING SYSTEM WITH AN EXTRA 8-BIT CABLE, WITH THAT YOU CAN LOAD UP TO TEN TIMES FASTER AND SAVE UP TO THREE TIMES FASTER. MPLEMENTED IS ALSOKNG HOUSE, WILL PURCHASE ERMAN MARKS AND FORWARD THE MONEY TO THE AUTHOR.  F YOU DON'T USE MY , BECAUSE IT COPIES TOO SLOWLY, PLEASE WATCH OUT FOR IN YOUR COMPUTER MAGAZINE OR CONTACT HOMAS EMPELMANN RNST UDWIG IRCYYYYi漥CH芝K1 0h 1 : 2P 2P2PUPPP0UPƼКPPL LgȅC2 w 2P02  00$IS1"ONE":9:%"DDING EXISTING FILES TO NEW LIBRARY..."0%8,D1,8,L$".LBR,"FT$",R"F%20:E0E73c%#8,A$,B$,C$:8,N:A1Ny%"8,A$:8,A$:8,A$%,:IS1:5300%p%q DISK UTILITIES%r%u40%z" :V$A$B$C$ #PV$"DWB""NCOMPATIBLE LIBRARY ILE!!!":8:5#Z8,N:A2N1:8,F$(A),T$(A),C(A)::8X#dNN1:F$(1)F$:T$(1)T$:C(1)H#n9,D1,9,LN$".LBR,"FT$",W":20:E0E73#x"REATING EW IBRARY IRECTORY..."#9,"DWB";:9, 15,"R0:"Q3$"=0:"Q1$-(20:E0E736460-28)E$:6470.<:5)Q1$" ENAMED TO "Q3$ .FI1800:&.Z,.dL.e SET DISK PARAMETERSR.gZ.h40.i""9)"PDATE ISK ARAMETERS".n"".s11);"URRENT ARAMETERS".x ,(L$)4)!:"AME OF FILE TO ADD ";:1,F$:F$""(F$)1650408!:"ILETYPE OF ";F$;"(P/S/U) ";^!T$:T$"P"T$"S"T$"U"5060y!T$:"OUNTING ";F$;!8,D,8,F$","T$",R"!20:E0E73!H0!896:HH(142):(144,15,0++10)"";+Q$:Q$""6285,8:U0, ,), SCRATCH FILE/,7,40W,""14)"CRATCH ILE","AME OF ILE CRATCH";:30:Q1$Q$,:Q1$,15,"S0:";Q1$,20:E0E73636 8,D,8,F$","T$",R"20:E0E73 H0@896:B$(H)(TX$,(142)):SR(144):SR08:4840UHH1:H104810_HH1vA0H:9,B$(A);:SR04800IS1"ONE":9:"DDING EXISTING FILES TO NEW LIBRARY..." LIBRARY DIRECTORY);)>U1:40)BSI0*G"AME OF IBRARY ILE: ";:30:L$Q$:2*LL$""(L$)126215W*Q(L$,4)".LBR"L$(L$,(L$)4)t*V:L$L$".LBR,"FT$",R"*[ 8,D,8,L$:20:E0E73*`#8,A$,B$,C$:T$A$B$C$*eT$N$""(LN$)1246504(L$,4)".LBR"L$(L$,(L$)4)9>"EADING LD IBRARY IRECTORY..."cH:8,D1,8,L$".LBR":20:E0E73R#8,A$,B$,C$:V$A$B$C$WV$"DWB"4710\"NCOMPATIBLE LIBRARY ILE!!!":8:I1500::f8,N:A1'40:13)"ISK IRECTORY"(8,D,0,"$0":20:E0E73 (CT0("";-(70:917,0L(#8,A$,A$,A$,A$,A$,A$:896`(#8,A$,A$,A$,B$(C(A$(0))(B$(0))256( (144)0 6160(5)C;(896:SS(144):(TX$,(";:6544/" ";/Q$"S"6570:6505/Q$"T"6575:6505 0Q$"L"6580:65050Q$"E"%0" ";/06540E0DD1:D11D8:K0e0D1D11:D111D18:k0}0FT$"P"65840FT$"P":65850FT$"S"00I1800":13)"ISK TILITIES"%}""&5)"[]ISK IRECTORY."%&5)"[]IBRARY IRECTORY."A&5)"[]CRATCH ILE."\&5)"[]ENAME ILE."&5)"[]PDATE RIVE PARAMETERS."&5)"[]XIT."&5)"ELECT:[ ]";&Q$:Q$""N#A1N:9,F$(A):9,T$(A):9,C(A):$"DDING "F$" TO LIBRARY...".$ 8,D,8,F$","T$",R"D$20:E0E73L$H0$896:B$(H)(TX$,(142)):SR(144):SR08:5340$HH1:H105310$HH1$A0H:9,B$(A);:$SR053 5)"[]OURCE RIVE:";" "D;""/}5)"[]ARGET RIVE:";" "D1;""'/5)"[]IBRARY ILE YPE: ";A/FT$"P""PRG":6534L/"SEQ"a/5)"[]XIT."|/5)"ELECT:[ ]";/Q$:Q$""6540/((Q$)64 (Q$)91)Q$")648:5130! 5110! " =";H;"BYTES"""NTER EW AME OF IBRARY ";@"1,LN$:LN$""(LN$)125150e"((L$,4)".LBR"L$(L$,(L$)4)"2"EADING LD IBRARY IRECTORY...""<:8,D1,8,L$".LBR":20:E0E73"F#8,A$,B$,C$0,:,E,E$:6370,:5)E1;" FILES CRATCHED.",I1800:--"- RENAME FILE(-0-40P- ""14)"ENAME ILE"-"AME OF ILE TO ENAME:";:30:Q1$Q$:-"EW AME :";:30:Q3$Q$:-8,D1,8,L$".LBR,"FT$",R" 20:E0E73 $#8,A$,B$,C$:8,N:A1N6 .8,A$:8,A$:8,A$G 8:IS1:4800M c  ADDi  "IBRARY AME (12 CHARS MAX) ";:1,L$ L$""(L$)125010 :(L$,4)".LBR"L$(L$"DWB"6260*j"NCOMPATIBLE IBRARY ILE!!"*oI1500::+t8,N$+yA1N:8,F$(A),T$(A),C(A):AD+~4)"ILES IN THIS LIBRARY"n+:4)"ILENAME";20);"IZE IN BYTES"w+CT0+A1N+4)F$(A);19);C(A):CTCT1+CT14UP,0,8,392N1:8,F$(A),T$(A),C(A)::8pNN1:F$(1)F$:T$(1)T$:C(1)HHz9,D1,9,LN$".LBR,"FT$",W":20:E0E73s"REATING EW IBRARY IRECTORY..."9,"DWB";:9,NA1N:9,F$(A):9,T$(A):9,C(A):"DDING "F$" TO LIBRARY..."142))((TX$,3)"BLO"6160)CTCT1:CT13UP,0,7,39,15,0:""") 61256)UP,0,7,39,15,0W)8: 917,13:80:15,"U9":NUk)UP,0,7,39,15,0)12)"";)Q$:Q$""6175)!U0)$)8)9 :00@0A THE END0B0D"":0 '0' 1' M/L DATA1'81' JIM BUTTERFIELD'S STRING THING_1' 160,2,177,45,153,137,0,200,192,61' 208,246,162,8,32,198,255: MODIFIED FOR FILE NUMBER 81' 32,228,2556050&((Q$)64 (Q$)91)Q$"";:6065&" ";'Q$"D"6100:6005*'Q$"L"6200:6005B'Q$"S"6300:6005Z'Q$"R"6400:6005r'Q$"U"6500:6005'Q$"E"'" ";:6050'' DISK DIRECTORY''U 1000: MAIN5 THE LIBRARY UTILITY 2.0\ * * * * * * * * * * * * * * * * * DAVID BOLT AND GREG PFOUNTZ * * ALRIGHT TO COPY NOT TO SELL * * * * * * * * * * * * * * * * * * THIS PROGRAM WILL TAKE A * * N:F$(A)""3430)4 F$F$(A):8,D,8,F$",M":20:E0E731> H0YH 896:HH(142):(144)648:3420dR 3400\ C(A)H:F$(A);"=";C(A);"BYTES"f :ZQ0:I1N:F$(I)""3450p ZQZQ1z  "RITING IBRARY ILE..." 9,D1,9 8: 917,13:80:15,"U9":NU 3260M C(U)C:T$(U)((C)A$,25,1):F$(U)((C)A$,7,16)e T$(U)"R"F$(U)""w A1(F$(U)) (F$(U),A,1)(34)F$(U)(F$(U),A1) A:UU1: :NN1:" FILENAME (12 CHARS MAX) "; 1,L$:L$ 4):SR08:3610 HH1:H103580HH1.A0H:9,B$(A);:=$SR03570D.IM89:Sk UNCREATEqz"" UN-LIBRARIZE!!:SI0"AME OF IBRARY ILE ";:1,L$L$""(L$)124030(L$,4)RARY" "", "SE THESE FILES IN THE LIBRARY?"4 U1V 8,D,0,"$0":20:E0E73e 70:917,0 #8,A$,A$,A$,A$,A$,A$:896 #8,A$,A$,A$,B$ C(A$(0))(B$(0))256 (144)0 3180 C; 896:SS(144):(TXIBRARY":"ILENAME";20);"IZE IN BYTES"0"A1N:A;F$(A);20);C(A)::4260m,"REATING":Z1N:CC(Z):B(C254):MC(B254):F$(Z)6 9,D1,9,F$(Z)","T$(Z)",W"@20:E0E73E80JB0924,M:896:9,(TX$,(142));:4210T40 ""15)"AIN ENU"# ""E 5)"[]REATE NEW IBRARY."n 5)"[]NCREATE EXISTING IBRARY." 5)"[]DD FILE TO EXISTING IBRARY." 5)"[]ISK TILITIES." 5)"[]UIT." 5)"ELECT:[ ]"; Q$:Q$A$:A$"S"A$"A"4290A$:A$"A"41408"HICH FILE (1-";((N),2);")? ";M1,A$:Z((A$))_Z1ZN4320k:4400"ANY MORE FILES? (Y/N) ";A$:A$"Y"A$"N"4360A$A$"Y"4010&0Z1SI99:CC(;::"";' 1"";:I115:"";38);"";:J 4"";:I239:"";::""; 7"";14);" V5.0"; 28)"" : <"":53281,0:53280,0:(8) >TX$"A":A1254:TX$TX$"A"::1,0:Z$"Y":D8:D18:FT$"S" @15,D,15,"U999:CC(Z):B(C254):MC(B254):"RITING "F$(Z):4150A"IBRARY AME (12 CHARS MAX) ";:1,L$ZL$""(L$)124510:(L$,4)".LBR"L$(L$,(L$)4):"AME OF FILE TO ADD ";:1,F$:F$""(F$)164540:"ILETYPE OF ";F$;" GROUP OF RELATED FILES IN *B * A MULTI-FILE PROGRAM AND *h  * JOIN THEM INTO ONE FILE *  * FOR EASIER TRANSFERS *  * MODIFIED 10/85 D.MOSLEY *  * * * * * * * * * * * * * * * * 15,E,E$,E1,E2 E0E74,L$".LBR,"FT$",W" 20:E0E73  9,"DWB";* 9,ZQD I1N:F$(I)""3530b 9,F$(I):9,T$(I):9,C(I)i I I1N:F$(I)""3630 8,D,8,F$(I)","T$(I)",R" 20:E0E73 H0 896:B$(H)(TX$,(142)):SR(14""(L$)123270" (L$,4)".LBR"L$(L$,(L$)4); :Q320:DD1Q660Q A1 N:QQC(A)l Q1QQC(A):F$(A)""s A "HESE FILES WILL FIT IN THE LIBRARY" A1N:F$(A)""F$(A) A "OUNTING FILE SIZE.."* A1".LBR"L$(L$,(L$)4):L$L$".LBR,"FT$",R": 8,D,8,L$:20:E0E73W#8,A$,B$,C$:T$A$B$C$jT$"DWB"4100"NCOMPATIBLE IBRARY ILE!!"8:I1500::8,NA1N:8,F$(A),T$(A),C(A):A "ILES IN THIS L$,(142));:(TX$,3)"BLO"3180# 30);"(Y/N) ";8& A$(TX$,(142))n0 UY0T$:T$" "T$"Y"T$"N"T$(13)3120: T$(13)T$Z$:UY1D T$:T$(32)3190N T$"N"3170X T$"Y"3210b Z$T$:3050l "BLOCKS FREE" vA1B:896:9,(TX$,(142));:A:924,M^M04210/h896:9,(TX$,(142));?r924,254:9T|SI998:4350^Z:8k"ONE."q"O YOU WISH TO EXTRACT A SINGLE FILE""OR CONVERT THE ENTIRE LIBRARY?""(S)INGLE OR (A)LL ";""1026$((Q$)64 (Q$)91)Q$"";:1030/" ";GQ$"C"3000:1006_Q$"U"4000:1006w Q$"A"5000:1006 Q$"D"6000:1006Q$"Q"8000" ";:1026  CREATE  40 13)"REATE IB Z):B(C254):MC(B254):F$(Z):4150$:"KIPPING UNWANTED FILES...">D READ BYPASSED FILESpNQ1Z1:CC(Q):B(C254):MC(B254):F$(Q)XB0924,M:896:4490bA1B:896:A:924,MlM04490v896Q924,254:9SI":UP49408:FI49955. BF$(144),T$(144),B$(10),C(144)K F:I896937:X:I,X::f P:I896937:X:I,X: RI916933:X:I,X::924,254: Z(49500)202(50000)165"LIB.ML",8,1 \   MAIN  90 60 (P/S/U) ";T$:T$"P"T$"S"T$"U"4560#T$:"OUNTING ";F$;=8,D,8,F$","T$",R"S20:E0E73[H0896:HH(142):(144)648:4630  4610" =";H;"BYTES" "NTER EW AME OF IBRARY ";*1,LN$:L23 E,E$:8:9:I1900: ) Q$""> #1,A$:A$""31O A$(13)34e !Q$Q$A$:A$;:31k " ("":"";:I239:"";::""; +I15:"";38);"";: -"";:I239:"";::""; .U155 /"";:I239:""Al JkUTILITIES #21CK2ALIBRARY V5.0+LIB.MLSUPER XFER  DEBLITZ 2L9 SEC FORMAT70 SEC COPYBULK ERASERDIR FILERKK MULTI DIRECTORYSDFC DISK MANIPULADISK SORT MASTE DIRECTORY EDITO&CATALOGER# FAST METABASICKK MBG-BASIC G-BASIC.DOCCLOCK.GBASCONSTRICTORLIBRARY2.5ERROR DETECTLIST MAKER KKFILE READERFILE COPYMENU MAKEREASY LISTER DISK MONGER BOOTLISTERKKKKKKKK  ¥ 0i(֥҅i w йHԈ X`   ª 8(֥҅ w0) ؅פґб֑ԈӅѥ҅Хׅեօ`H؅Ьi(ХiheЅЅԥi) ؅դ` ,Й ԙH` )? ) ʆe X`   ¥ Ԉ0 񷆯z, ,  ¥ ХԈ0 񷆯z, ,  ¥ ХԈ0" ХԈ0 X` ,Й ԙH` )? ) ʆe 15:15,8,15,"U9":15B "AILY XCHANGE (703)989-7461t""12)"UPER FER 8.4":18)"BY14)"AVID OLT":13)"REG FOUNTZ53281,0:53280,0""10)"1) ORMAL":10)"2) AX BUFFER SIZE 10)"3) AX  OP),T$(OP),P(OP),B%(OP):1200:1100:A111 AV0990_ FML3:"EADING":A1V:F$(A)""100| KF$(A)F$(A)","T$(A)", MBFBFB%(A):BF01300:77 O(F$(A),(F$(A))3) P15,D,15:2,D,2,F$(A)"R" R999:ER20)""ER$:2:993 T`#8,A$,A$,A$,A$,A$,A$:ML< b"LKS "(TX$,(142))" OTAL"P e#8,A$,A$,A$,B$p jC(A$(0))(B$(0))256 oST01190 yML:SSST:(TX$,3)"BLO"1190 {((C),2)(TX$,(142)) ~"";28);:CMA"OO IG!":1125 "Y/N $UOP1"AXIMUM";OP1;"FILES":8:1190.1125=8:VU1:]"OURCE DRIVE 8 ";DpD8D151200""20);:"ARGET DRIVE 8 ";D1D18D1151220198,1:631,34:"ATTERN MATCH *";PM$PM$""125$:993 "ORMAT ANOTHER? (Y/N) ";@ A$:A$"Y"A$"N"A$(13)1292U A$(13)A$"N"uA$:A$"Y"15:A$"":128215:DD1"NSERT SOURCE":198,0:198,1:198,0DD1"LEASE SWAP":198,0:198,1:198,0MLDD1"RITE FILES TO ANOTHER DISK (Y/N)? ";:23003>A$"Y"1300B@F99990tADD1"LEASE SWAP":198,0:198,1:198,0CML3:"EADING"FBFMA:A1A:B%(U)C:A$(TX$,(142))F$(U)((C)A$,7,16) A116:(F$(U)n ȥ  L ` `x4`7X`78` ȱ    LSWAP":198,0:198,1:198,0CML3:"EADING"FBFMA:A1A:B%(U)C:A$(TX$,(142))F$(U)((C)A$,7,16) A116:(F$(U) 2073FILE")$*99Ry.W}  &/ (,04bb!#r#!,K9%]BKTfoq6B#l"E"Z  m H#K3,K ?LF xW ( ʆe`LHxHh`   ¥ ЅұH ȱHԈh ,ґh X`   ¥ ЅұHHȑhЈ ,ґh0De` z, ,  ¥ IХԈ@ g T H B N  N##!$o$$9:9   L L L &?'@l?()(f(d(epL& p(a(b(c(d(e(fL& ()(n(l(mL& (i(j(k(l(m(nL& (e(x0 d(e(L& b(2NUMBER OF FILESE "ELECT CONFIGURATION1";A:B35:A2B23S A3B65c 56,B:55,0 :TX$"A":A140:TX$TX$"A": OP((56)22)6:MA256(56):BFMA #"UFFER SIZE ="BF"BLOCKS,"OP"FILES$ (ML5000:OP(OP)1:F$(ML6# W2:999:ER20)""ER$:993+ Z15= dA:BFMA990M nF99:1300o "NY MORE FILES? (Y/N) "; A$:A$"Y"A$"N"991 A$:A$"Y" 56,160::15:"": 15,ER,ER$: LU1:::AY0:Q$"Y" V8,D,0,"$0:"PM$ "; A$(TX$,(142))F AY99T$:T$" "T$"Y"T$"N"T$(13)1160c T$(32)" "VC:1190~ T$(13)AY99:T$Q$ T$"N"Q$T$:"";:1185 Q$T$:2200:T$(U)"R""N";:F$(U)"":1185 UU1:VCVCC:""; " "VC"0"ORMAT TARGET (Y/N)? ";(2300:A$"N"WA$"":"AME (16 CHARS MAX)";A$:A$""B$"":" (2 CHARS - OPTIONAL)";B$:B$""A$A$","B$DD1"NSERT BLANK":198,0:198,1:198,0 15,D1,15,"N0:"A$:999:ER""ER3:"RITING":BA1A1:F$(B)""13400(F$(B),(F$(B))3)>(15,D1,15Y)2,D1,2,F$(B)"W":999*ER6315,"S0:"(F$(B),(F$(B))3):2:1321+ER20)""ER$:993,ML9/2:999:ER20)""ER$:993015<B:A$"""=,A,1)(34)F$(U)(F$(U),A1):A17+:T$(U)((C)A$,25,1):SA$:A$"Y"A$"N"A$(13)2300h A$(13)A$"N"r A$:LLLL"-LLLL"- ȄċL     )@ 0(/(/ȩ/f2dȱe dbȘdeȩ(efb(d(e(L& Р(/  /L pp8 #ed(aE"ɐ) %c 𾪽%bca(b(c(d(e(f(L& (J((L& 9) L L Lf L L3 L LB LT L Ȅ9eȱ9d9 $$ML79%i9:Hȥ:ȥ9E3*HEdEȥeEL& de H L&   DHL8LH  HL2 h/h0hmhlhh @ lm @ 0H/HHLL& deaɐ) %c```%bc`?x(L0h a j`EWhW   HLkLEl0m/ n Efoa j hh    L:9 @ 0/ @ EHFHHL& E`E`xhL0/h9Fh9E9i9:$/f/L/ i LiLlmƶjkI*jI  浥dIdeIeL& H)6+ H)-" H)$ H) H) H) deL& deL& %%d0l0ld0 em```  f0n`n I)`aiƨƥbjлckгdlЫemУ`a ed9e99 nhmhlL& hhL& de膵L& ml膶L& deL& lmL& ʎ7L& LH#)@U fL[7\膵 ; ).ǽ$-\+ .@0:Lf B p L%Ƚ9,6 :0.EȤ;" p  #Ƶ;$ p< $ E$"Ș n9A _LC!L& AX/)?$/0p"0 m c0 L% cAeȱAd d cAeȄH$H8eAAB`AB"Ȅ#`*lABeȄfȱA\)?d$\pȘ cL%ABL& de Ƶ` BӅeL&   ̼ L /L& deL f L  浠edL& B 0 :)eL%L Ȫ$Ȅ% nL  e/  e0  edLr E/%0L& /LV !/90: `8LK\^#def  e  e  e L&` 9:L, LL9Х de Ƶ` `.ldldmeme` `h`hp` L%de ƵL% 0/ Ƶ`eIedIdedL& fIfL& %e/emed0eldpL&  fEnoa jL& JL%8e/meed0lddpL&  %de ƵfEnoa L&  L%kl%m$e?d@p-cmRm&lldmeL& deL& imeldL@i %l$mLbL&  fEnoa {L& %$ @? ƵL LdedȄL& e"f#d  i9:L& Ȅ9mȱ9l9i9:L& 9`9i99hL) dȄ9e9:L& lȄ9m9й:L& 9:ifeȱ9dee9::L, 9:inmȱ9lem9::L, ȱ9ȱ9:9L㨥 ݽL ;L& d - LL b8e:"ed @ %$ @ HL& h ( HHH @ L hh L h?h@?@h`l?h?h@?@aHl?HHHdHeHHHHL&  Lc aHHH HHHHHL& h%9EHȱ9FH$% i L ii08i FEʆH%e$FhEp E Ea0 EdȱEe _EdȱEehmhl 0LeemedeldpdeEdEhmhl 0.ld0Ad0l0 Lme.h:h9XL& LL(ld0d0lLemXhhL& E! EȱE fEnoa j LLHHWH0de E8Ln EfojkIkkjnlmijkjlki in`ik&j8iIiiifjfk`L~涥iɐiݥ LHlm`8$nƶi `涥mImlIlml騥i)Fjj L{% d%lde%meL& % dldemeL&  K`浥 K `:L& 9ȱ9:9L, 9iH:HHL5hɤ h:h9L&  D Lਊiۊi e? /9/64ȱ9/e99:9L:L㨊e9H:ȘHHԱ9e99:L& dHeHfHHL& p #aHHL& hhfhehdL& h`L& hh L% Bӈ80 :"eee;"eddp ڥ\ L9AB L& _L _L de膵`EddEeeed`9:`L`, "fle l l de/h$hhL dLH` de` ( f  e L& e L& e L& L& h?h@?@hL4 hehdl? ehhfhehddfe D"HXH12-/.0 +,L9 _ ?@l?,:66%%%% &%%%% &B&Y&h&& L& L& & fEnoa SL& JL%8e/med0ldp L&  fEnoa SfIfL& JL%{l%m$ibcjkEFe/d0El\FdfebembcelcjeEjkeFkm&l&E&F֥becdE\0kjk iL& LgiL fEnoa +L& %$  ML L& BL& d(l ldem d```l` )"- )$  % deL& deȄL& L5 }&e$f%dd6Ȅ/43/ʆ43ef33$3$342F`f`LX8delp/3/43lm3 ;"de}:"ed};"d b bi/! о! de! f` תL& e ;eL& e8Ӑ  ;L& de"f# %L& 8 Iiע#ʆ"L% h(hmhlHHHlHmHdHeHHL& D hإd%e$ (  dlem%d$eL HHH ""i""""A !""9"""" /!0/%/$/d$/$/$/i/0` DLt `Lt9/ȱ90ȱ9/ȱ9/ȱ9e99:L, 9Pȱ9Q9i9:PPHȱPHȱPHH PHHPHQHHL$L5hh0 /k/j/iL& 9:9PQ &Q &Q &Q8PPQ8Qi(QPXP0VePdPL& pp8 # P  L%fPePdPcPbPaPL& Ь͠P2%P$P$ȑ$f2 dȱe ddPiQeȊefPePdPL& ed ?ʤ?л вiE 'E)bcjkjbȱjbE`X78_N5`O64~3xvX0 ' 'N N '8fX 'XSFXN_ȱN_" '56 'N_^"NO43 'N '0L'" '56 'L!'563 )+)m3le3$4%de$e$/33d3e4f2 XL& dldlLL em$n%ll nL& ed8l_eem$n% nL& dL& ݽȄeȹdf dL& eȄ$Ȅ% nL& dfL& `L`*eIeJ/D>=L& /0/dȱ/eL& / e d*eeedeIeJ/J=>L& 0/ȱ/dȱ/eȱ/fL& !L !L !L, !/lȱ/mL& !/iȱ/n jȱ/kȱ/lȱ/mL& !/lȱ/mȱ/nL& 9=9i9:9>  d$Jʆ%$P/0Fdfe /eP/0eQ0P&Q楶 K/eme0eld\PR0 L>LbJLR0DL'd  "9#:$1%2ABD" " D"L& "("8473AB)"/"0/ɖܩ(ͣh/h/h/h/h/L& h/L& !9H:HH/9ȱ/:L, 9:9/0 &0 &0 &08//080i(0/)/f/e/dL& /f/e/d/c/b/aL& 9:9/0 &0 &0 &08//080i(0/)/n/m/lL& /n/m/lL& mlL& /  ( cd0/ L& (L& O\ ( ^%$q]$ h n\L& (L& dLHe"f# L& v&`L& v&hL& ڡiI>)HȘ2/FEȹȄ?EȱE4` 'I8eNONO`I8e_`_``N"`TROLY STGARB $CJ&I3@%L0KISMEAG!HUSR&ITR^!%+ BLITZ DECOMPILER FROM BLITZBUSTERS K`ln8dmi`mZʊee$f% nL& e`L& 8lee)ʊem$n% nL& deedȄL& LH }&831e42dL& / 浥ed &d &deeedeIeJ/>=>L& /0/Laȱ/f bȱ/cȱ/dȱ/eL& / e d =ȥe=L& 9=9i9:9>0O=dȑ=ȥe=L& pp   L a=eӥbȦf0)=ȥc=ȥd=ȥe=L& =20=/=/ȑ/f2dȱe dd=eȥ>ef=e=d=L& 9Iȱ9J9i9:L, 9/9i9:90`\ 8I  d@ @~U U>UU, R>RRF,P,Rһ98)Fo:R0?F0o>q"1͈(:-o(//O 00000000000000000000000000000000 ?F"F"oF OaY;ѱ>:R@?@gABBBB$CJCvCCRCCD:D`DDDDRDEErB{BiBIR,FRMFBRIRIRIRIRIRRwIRIRIRIRIRIRIRIRRѷOOOOOOOORѷOOOOOOOORѷOOOOOOOORѷOOOOOOOOROIRIRIROIR8PQPRbPsPPPPPPPRQQQQQQQQRQQQQQQQQR5Q5Q5Q5Q5Q5Q5Q5QR5Q5Q5QaWRJ:F aWRJ:F aWR`$*O(F O)0?`$*O(F O)0?`$*O(FF O)0?`$*O(F O)0?`$*O(FF O)0?`$*O  aWRRILRILRIL`F$* aWR;FaF %O,a,FaF 0O,aaF F,aWR;FO, aF F, aF F, aF F,aF F,aWR;FaF7aFFF,aF$aWRR`F O, aF F,aF F,aWR;F aF F,aF F,aWR;F aF F,aF F,aWR;FaF%aFFF,aF$aWR;FaF %O,a,FaF 0O,aaF F,aWR;Fa `0?FO EXTENSION BISa{WR$*F`0?$*FST`0?$*FTI`0?$*FDS`0?$*FDS$`0?$*FTI$`0?Rh$* (×`0?Rh$* (×`0?`R-F$* aWR:`-"F!FO FaY;0? Y$"":UULH XX1^ #8,A$:ST038 m A$""38 (A$)34 28 #8,A$:(A$)34L$L$A$:31 #8,A$:(A$)3232 !Y$Y$A$:#8,A$:A$""33  "R$(L$,5):H17(R #1,A$:64ST142 }A$Q$124< ~#1,A$:A$Q$F$F$A$:126T #1,A$:A$" "127k #1,T$:T$" "128 #1,A$:A$""129 SZ0(T$"P"T$"S")121 SZ;5);T$;" ";Q$;F$;Q$;26); ADSZ25653247" Ő":121 "_ S."# 1:"";N;"FILES TO READ": ADPG256:N0189E I1N` " ";Q$;F$(I);Q$;20);q SZ(AD256) 251,ADSZ256:252,SZ 1,8,2,"0:"F$(I):193 E741:NI1:157 E1:F$(I)"":156 831:193:1:E74NI1 DISKETTE N";A$ A$"Y"1657" ISK NAME,ID";F$,T$O15,"N0:"F$","T$a:193:E157lI1N~F$(I)""183" ";Q$;F$(I);Q$;20);1,8,2,F$(I)",W"193:E01761:E63172 CLOSE1:IFE<>63GOTO840(I)F(I)),5);" BYTES OF MEM"IA" AVE SAME PROGRAMS AGAIN? N";A$QA$"Y"157\15:1" ORE PROGRAMS TO COPY? Y";A$A$"Y" 15:1:10714)" "7)"LEASE REMOVE THE DISKETTE"11),8,230,252,165,252 201,208,240,6,165,144,41,64@ 240,231,76,204,255,162,1,32a 201,255,162,54,134,1,160,0 177,251,32,210,255,230,251 208,2,230,252,165,251,197,253 208,239,165,252,197,254,208 233,162,55,134,1,76,204,2F$""F$:42 +HD$(D)N$F$&,A$:A$""44 ;-A$"N""":14L.A$"C"94 \/A$"E"49 e044 n14,42"LEASE WAIT.....SORTING"34:444,(16)"20ALPHABETICAL DIRECTORY OF DISK PROGRAMS"54:4:88 6 * SORT ROU),W10)(16)"17"(P1$,3);%?4,(16)"20"(P1$,5,3);T@F((PR$(Z),2)):4,(16)"24"(HD$(F),16);iAJ14," ":69 B4,(16)"40"(PR$(R),Y10)(16)"57"(P2$,3);C4,(16)"60"(P2$,5,3);DF((PR$(R),2)):4,(16)"64"(HD$(F),16)ELL1E *  TAL NUMBER OF DISKS . R  IGINATED BY DAVE SCHMOLDT t MODIED 80 COLUMN ER BY STEVEN SLOOP 74366,2252 010985 a (14)": : #8,A$:N$N$A$::#8,A$:#8,A$:#8,A$a N$N$" "A$:#8,A$:N$N$A$:#8,A$:#8,A$:N$N$"/"A$ #8,A$:N$N$A$:#8,A$:"ISK ITLE ---> "N$: #8,A$:#8,A$:#8,A$:#8,H$ L(A$(0))256(H$(0)) L$((L),2):B(L$) $):T$(Y$,3)(L$,4):D$(D)' #D10D$""D$I $X,R$H)T$D$:PR$(X)R$T$D$W %ST020 a &XX1 '"<>EXT DISK OR <>ND TO SORT AND PRINT OR <>HECK MEMORY AVAILABLE (8:F664UL:"LOCKS FREE ---> "F )F$(F)*(F$)3C:R:B:A?"; A$:A$""134@ A$"R""REJECT FILE":121a A$"B""BEGIN COPY":142 A$"A""ABORT COPY":186 A$"C"134 NN1:F$(N)F$","T$:"COPY FILE " ADADSZ256:NMX121 " AXIMUM OF";MX;"FILE:157EF$(I)"":156;(252)208F$(I)"":" Œ":156dF(I)AD:AD(251)(252)256:T(I)AD(" "(T(I)F(I)),5);" BYTES OF MEM"IN0189"LEASE INSERT THE ΐ DISKETTE""Ԑ THIS":" Ő EXISTING FILE ? N";A$(9A$"Y"183R15,"S0:"F$(I):167eSZ(F(I)256)251,F(I)SZ256:252,SZSZ(T(I)256)253,T(I)SZ256:254,SZ828:193:1:E72E74184E183 (" "(T"FROM THE DISK DRIVE"(9);:"15,E,E$,E1,E2-E0]EE$((E),2):E1$((E1),2):E2$((E2),2)iE63:"";EE$;",";E$;",";E1$;",";E2$ 76,96,3,162,1,32,198,255,32 228,255,160,0,145,251,230 251,20855(9);:"15,E,E$,E1,E2-E0]EE$((E),2):E1$((E1),2):E2$((E2),2)iE63:"";EE$;",";E$;",";E1$;",";E2$ 76,96,3,162,1,32,198,255,32 228,255,160,0,145,251,230 251,208 TINE * 7 49152,X,PR$(1)%8 * PRINT ROUTINE *I9J0: * SET FLAG FOR 2 COLUMN *:Z1X:W(PR$(Z)):RZ50: * COUNT FOR 2 COLUMN *;Y(PR$(R))<Y0J1: * IF NO 2 COLUMN SET FLAG *=P1$(PR$(Z),10):P2$(PR$(R),10) >4,(PR$(Z :L5882 FXZ50 XZTD58LZX1G7HZX1 C164L:4:^I4:4:4,"TOTAL DISKS READ --->";DhJ4:4}K 49152,D,HD$(1)L4,"DISK NAME"(16)"18ID"(16)"25FREE BLOCKS"MC145:4,"-";::4," "N B1D:Q(HD$(B))O4, E"(16)"21SIZE"(16)"26DISK NAME";DZ4,(16)"40PROGRAM NAME"(16)"56TYPE"(16)"61SIZE";^[4,(16)"66DISK NAME"t\T180:4,"";:~]L8:^53281,15:GTI:"_"GARBAGE COLLECTION IN PROGRESS":K(0)`53281,0:"GARB/COLL TIM 3,165,21,133,254,32, 253,174,32,158,173,162Ch 1,165,71,157,85,193, 157,125,193,165,72,157wi 105,193,157,145,193,165,253,208,2,198,254,198j 253,160,3,24,189,125,193,101,253,157,125,193k 189,145,193,101,254,157,145,193,136,208,236,189l 3,247,0,136,16,248,32,32,193-r 144,230,56,165,82,233,3,133,82,176,2,198\s 83,32,21,193,176,31,160,2,177,82,153,247t 0,136,16,248,32,32,193,176,225,160,2,177u 80,145,82,185,247,0, 145,80,136,16,244,48v 183,160,2,177,80,145,78,185,25,145,193| 157,146,193,32,69,193,232,32,53,193,76,71E} 192,165,81,197,83,208,4,165,80,197,82,96x~ 160,255,200,196,247,176,11,196,250,176,6,177 248,209,251,240,241,96,196,250,96,24,165,80 105,3,157,85,193,165,81,105,0,157,105,1932076BLITZ!L LL    tb* 2V0rfI6$$$$$$$$$$zttAC`ڞmmںkk22\\\ =uuuvuuuuuuutuuw#*18?FMT[bipw3b54c6o#o"i"5"5ie556d#d"n"5"5L edc4b3 a e334oȱojȱokpok4j3 ej34aaf jb%<de Lfi"af0,%<dedc(bJf( d(e$f <L L L1 \ 0 BF< l%ddm%e lddmeeLLHkiɁjJfknIlkIm` 9P:Q L# LP9Q:L-.`_0/ȑ_e_7834hhHH; kcm&l&kީ L9:z{=>LᧅL<' YLq). "C L9:LC@1. ATALOG A SET OF DISKS>@2. EE ALL FILE NAMES>@3. RINT ALL FILE NAMES>@4. ORT NAMES ALPHABETICALLY>@5. REATE A SEQUENTIAL FILE>@6. REATE A PROGRAM FILE>@7. OAD AN OLD FILE>@8. ELETE A DISK>@9. TART NEW FILE>@ . IRECTORY>@ RESS''TO UIT' >LFXa>ODR'19 R!]1!##$% %#%&&ISK&ъXXꓞa$`"9dȱ9e L)99: )a9ea9::ȆbcL  -ɬ {Lɯ HLLʆdeL L9e/iȱ9e0j9:ie/_ȊifiLձ9/e/_Ȋ/N/e0`_F_E_ ie_Xe`Yh0hnhihjhkhh \ eYJe dcdbdaL$;_0ȱ_pL IJdeLpL p aIȥf %bIȥcIȥdIȥeI;LereYJaHc4b3 +Lw edLLedc4b3 ea34a edLbc#"eda4 3)ed$0L-LLhac4b3 bLaa)ia34821 z34bcibL0 d2h h,h.&h0#h8hhhhJ  edLH hhPhQPPi95#ʊniIeeiI iinaa=348a21]ȥadJ$p de8a48/ic$bJdc(bJf( d( ݽ e$f    9=:=8 Ii<0 dJeF<Ӑ ;L  C L edLH  9DȄ;LeidL{Lkj$"jzȹ"ȹ:,8jaLҵ%  THE ENU NY THER EY TO PRINT>LFMR۰ʰр"<<@O ILES IN EMORY>#o&0:,S,Wʲa`"XX R$;R$)R$;>ҀB@C. #o>a#o"<<@O ILES IN EMORY>#oܜݰ !ݝ ޜ XX0:,S,R`"R%΀ҵHFHF3R&%a R'=%DISK&ъXX<<@ELETING>հΰҀ6 Β&6 Հ<@ILE NOT FOUND>&ĕ &&Ҁ&&&<@ELET HF޸HFH"FHF'2(( RG <( EQ <( SR <)H*F)*)*R(y߹H*FH+FH,F H*FH*F-(R(q)<+'2,'2 >-R'DZa  >LOCDBOBACSKBLLSWF'2(( RG <( EQ <( SR <)H*F)*)*R(y߹H*FH+FH,F H*FH*F-(R(q)<+'2,'2 >-R'DZa  >LOCDBOBACSKB 2061wE< !ύύϭ tLH ݭ ϩH`HHHHLrhhh@HH tl  x~č4ōō  ō <XLʽ2vʦLʩι#&)DGH#/HIRESPLITEXCLEASETCOLOḬ #" LĄ#&""  "#"0ȱ"0 GLL s̐ް L HHLs yL秩 sL L(LݰL s ; 0Ϩ L yɉ a L yL̐ްL yL >L7` L6 L6 3ˤ>Lb ύϭύώόiϭ Bȍϭ Cȍ80nnϠό7mύϭmύ08ύϭύ  έͫϭϐ` oHnH` ȥ)I i9i` /ȥ)89ƨƧ` ϐ .ϥƨ` Nϐ nϥ Κϭ͞ϐL` Kɭ ɭ ɭ ɭ ɭ ɭHύh`mύϩmύ`ɭ8骍ϭ` mύ` ɍɭ8骍`ύ.mύϊmJnJnύϭ` PLέϮϬL ;Ʃ f΍ώό  > !LƭHύhϭHύh`Hύh`ϮϠ >ƩǍ Ʃ >Ʃ?ϩLƩ !)Ϣ`  `Lέύϩϭ( x^ύXϩ;Э) Щ`ύϩϭ' ˩Э) ЩxX >?<<<<<>?R#6) O YOU WANT TO REPLACE THE FILE ?[/]>FNXYR#ͿBSCa?* RESS ANY KEY TO CONTINUE  TO UIT >LF?! RESS ANY KEY TO CONTINUE>Lٰڱʰ$<<;RESS [] TO TO ߞ ! !# " !!"  R$˞ޞR$$ȸٵ۲ILEɱъ,S,W$&0:ʊ0:XXa,P,W`"XX R%3R%#R%3B3<3#o!UT ISK IN RIVE AND NTER << AME>" (P TO 16 HARACTERS) 'X'TO UIT>P #o>BI0C$0`3'HF'2ұަROSAFDXNFEXFLLHNMANRFENMTSDVSASPDMJKILTLNHBLBSNNFPX`ύϩϭ & Q .`B̐xʍˍ&̍')ЭB̍ЩܩX`3ϭ)E̍йC̍йG̍xЩܩ1ʍ&'X`ТA Aʠ F̍ݭ)D̍нB̍н@̍ЭЍLL1H($h:̎6̌8ɓ AXEOFFSEPLODRAERASFLIFILCIRCLBOWRITICONPOKPOINz? 8"W$p.?&0<qL z8&ɀ0 qș[8:I8UОșz ȹ%&д 8ɀz ȹL D@$0<f΍ύώώόόϩ8H) & & &Hϥh & &mυmυ)eeh)ei)ύ` f΍ώό8ύϭύ8ύϩϭύϭύϭύϩ, Bȍϭ Cȍϩ, Bȍϭ CȍiϮϭϨi`8Ii` ; LLϭ ɭ ɭ ɭ ɭύϩύύϩϭ .mύϭmύϭ8ύϭϭ8ύϭ Hɭύϭύϭύϭύϭ Bȍϭ Cȍϭ Bȍϭ Cȍϭͫϭϐύϭ "HE IBRARY TILITY 3.0%?"() OPYRIGHT 1985"e"Y AVID OLT AND REG FOUNTZ.k"LRIGHT TO COPY NOT TO SELL."ALL THE AILY XCHANGE "AT (703)-989-7461.  "HIS PROGRAM WILL TAKE A "GROUP O Y TILITY 3.1":"";5);"BY AVID OLT AND REG FOUNTZ":71:" NPUT FILE(S) ON DRIVE? 8":" UTPUT FILE(S) ON DRIVE? 8 " NPUT FILE(S) ON DRIVE 8 ";D:D8D11"";:23. " UTPUT FIL $:C(A$(0))(B$(0))256:(144)047\ %C;:896:SS(144):(TX$,(142)):(TX$,3)"BLO"47 '"";30);"(Y/N) ";:A$(TX$,(142)) )UY0T$:T$" "T$"Y"T$"N"T$(13)41 *T$(13)T$Z$:UY1 +T$:T$(32)48 ,T$"N"46 :113C:C(U)C:T$(U)((C)A$,25,1):F$(U)((C)A$,7,16):T$(U)"R"F$(U)"|<A1(F$(U)):(F$(U),A,1)(34)F$(U)(F$(U),A1)f>:UU1::160,2,177,45,153,137,0,200,192,6,208,246,162,8,32,198,255,32,228,255,201,13,240,15,164,142,145,140,2001,L$:L$""(L$)1274,K(L$,4)".LBR"L$(L$,(L$)4)EL:Q320:DD1Q660oMA1N:QQC(A):Q1QQC(A):F$(A)"O:"HESE FILES WILL FIT IN THE LIBRARY:":A1N:F$(A)""F$(A)R:"OUNTING FILE SIZE..":A1N:F$(A)""90 墪`hL; ; Ϡϭ),"5L Lɒ ,Lɀ `)L)?L)^ @ & & &x3Iψ7XϠϮϹ=  Pά  %ήѬ̳ϰLZ̩`ϮϬ ΰL.LǭΗΖ ȭΗΖLΜL HH ΍hh` VHmϪhmHmϨih ΰ`hhLH@ȭh` L V ΍ώό` yɤ s L y ɤ L` ;ƥJfJfJfi ϑ >MLH >I ILH > LHϩ,,,"S0:"L$".LBR":94`E0E73E,E$:206ca9,"DWB";:"RITING LIBRARY HEADER...":9,ZQ:I1N:F$(I)""101d9,F$(I):9,T$(I):9,C(I)e:I1N:F$(I)""111g8,D,8,F$(I)","T$(I)",R":"RITING "F$(I)"...":50:E0E73206i .LBR,S,R":8,D,8,L$:50:E0E73E,E$:206ex#8,A$,B$,C$:T$A$B$C$:T$"DWB""NCOMPATIBLE IBRARY ILE!!":206z8,N:A1N:8,F$(A),T$(A),C(A):|"ILES IN THIS LIBRARY:":" ILENAME";21);"ENGTH":A1N:A;F$(A);20);C(A)::138+~:Z1N:CC(Z):B(C254):MC(B254):"REATING "F$(Z)"...g9,D1,9,F$(Z)","T$(Z)",W":50:E0E73E,E$:206B0924,M:896:9,(TX$,(142));:133A1B:896:9,(TX$,(142));::924,M:M0133896:9,(TX$,(142));F RELATED FILES IN/ "A MULTI-FILE PROGRAM ANDM "JOIN THEM INTO ONE FILEi "FOR EASIER TRANSFERS. "":53281,0:53280,0:TX$"12345":TEM7660:TEM A125:TX$TX$"1234567890"::1,0:Z$"Y":15,8,15,"U9":15:"";8);"HE IBRARE(S) ON DRIVE 8 ";D1:D18D111"";:25l F$(144),T$(144),B$(10),C(144):15,D,15,"I0":TE:"":52 "SE THESE FILES IN THE LIBRARY?":U1:8,D,0,"$0":50:E0E73206 70:917,0:#8,A$,A$,A$,A$,A$,A$:896# "#8,A$,A$,A$,B -T$"Y"58 .Z$T$:34, /"BLOCKS FREEU 08:917,13:71:15,"I0":NU:N1206] 173r 215,E,E$,E1,E2: 4"REATE/DD/ISSOLVE LIBRARY (C/A/D) "; 5A$:A$"C"A$"D"A$"A"53 6A$"A"A$:164 7A$"C"A$:29 8A$,132,142,196,139,240,4,165,144,240,234,76,204,255,164,142,145,140,200,132,142,192,0,240,4,165,144,240,238,76,204,255F:I896937:X:I,X::G:I896937:X:I,X::I916933:X:I,X::924,254:I:NN1:" FILENAME(12 CHARS MAX) ";JUF$F$(A):8,D,8,F$",M":50:E0E73206%VH0KW896:HH(142):(144)648:89SX87uYC(A)H:F$(A);"=";C(A);"BYTESZ:ZQ0:I1N:F$(I)""92[ZQZQ1\:"PENING LIBRARY FILE...^9,D1,9,L$".LBR,S,W":50:E639:15΢L ;  ώL`ʩ6ϽϽϩ7 P P .   4 έȰ P  .(Щ P  4 L P  .(& !ϩ6ϝϝϝ7莵` .  P(`ϮϬ ΰ 0`L/ ( + z` >-,` RϠLX RϠLXx5`7X`HHH hhhl..++ǀ@  DAN ROTHWELL .(Щ P  4 L P  .(& !ϩ6ϝϝϝ7莵` .  P(`ϮϬ ΰ 0`L/ ( + H0$j896:B$(H)(TX$,(142)):SR(144):SR08:1098kHH1:H10106BlHH1cmA0H:9,B$(A);::SR0105no:206yq:SI0s"AME OF IBRARY ILE ";:1,L$:L$""(L$)12115u(L$,4)".LBR"L$(L$,(L$)4)v:L$L$" 924,254:9:SI998:147:8:"ONE!":206"O YOU WISH TO EXTRACT A SINGLE FILE":"OR CONVERT THE ENTIRE LIBRARY?":"(S)INGLE OR (A)LL ";A$:A$"S"A$"A"141A$:A$"A"126"HICH FILE (1-";((N),2);")? ";1,A 1:CC(Q):B(C254):MC(B254):B0924,M:896:1627A1B:896::924,M:M0162B896:924,254:9:SI99:CC(Z):B(C254):MC(B254):"REATING "F$(Z)"...":127"IBRARY AME (12 CHARS MAX)? ";:1,L$:L$""(L$)12164: 896:HH(142):(144)648:176 174A" =";H;"BYTES":"NTER EW AME OF IBRARY ";b1,LN$:LN$""(LN$)12178(L$,4)".LBR"L$(L$,(L$)4):"EADING OLD LIBRARY HEADER..."::8,D,8,L$".LBR":50:E0E73E,E$: ";:9,N:A1N:9,F$(A):9,T$(A):9,C(A)::"DDING "F$" TO LIBRARY...":8,D,8,F$","T$",R":50:E0E73206SH0896:B$(H)(TX$,(142)):SR(144):SR08:197HH1:H10194HH1A0H:9,B$(A);::SR0193IS1""NO":"NO"xHHhhX`1QA [8@L5a{8 (֦l tHE lIBRARY uTILITY v3.1 (c) cOPYRIGHT 1985 BY dAVID bOLT AND gREG pFOUNTZ AND IS pUBLIC dOMAIN...bE SURE TO CALL THE  53281,0:53280,0;d INTERROGATE A DISKETTE - 1541FnT(35)RxI135]T(I)1dI"INTERROGATE A DISKETTE - 1541""INSERT MASTER IN DRIVE""PRESS  RETURN TO CONTINUE"C$:C$""180C$(13)180 (E18)" READ ERROR"4 r"TRACK";T;"- SECTOR "S$" ="EM$; |SB TJ 15P `  JOB QUEUEj TRY0 15,"M-W"(8)(0)(2)(T)(S) 15,"M-W"(1)(0)(1)(JOB) TRYTRY1 15,"M-R"(1)(0) #15,E$ E$""E$(0) E(E$  100" LN$"":ML15002LI$(ML22)T I125:BL$BL$" ":Z(d 53280,11: 53281,11:"";(14);n14)" 2.1"x"----------------------------------------" " EGUN: AN 14, 198 ----------------" LM53 LM)"()ETRIEVE A LIST"[ LM)"()AVE URRENT IST TO ISK" LM)"()ENGTHEN URRENT IST" LM)"()ELETE AN TEM ROM URRENT IST" LM)"()IND AN TEM IN URRENT IST" LM)"()LPHABETIZE URRENT IST". LM)"()ORRECT AN ITEM IN URRENT IST"W "LM)"()RINT/ISPLAY URRENT IST" ,"----------------------------------------" 1"----------------------------------------"; 6" : "(LN$,25) ;"-------------------------$:Z((A$)):Z1ZN144:152&"NY MORE FILES? (Y/N) ";CA$:A$"Y"A$"N"148WA$:A$"Y"124`206nZ1154SI99:CC(Z):B(C254):MC(B254):"REATING "F$(Z)"...":127"KIPPING UNWANTED FILES...":Q1Z(L$,4)".LBR"L$(L$,(L$)4)7"AME OF FILE TO ADD? ";:1,F$:F$""(F$)16167`:"ILETYPE OF ";F$;" (P/S/U)? ";T$:T$"P"T$"S"T$"U"169T$:"OUNTING ";F$;:8,D,8,F$","T$",R":50:E0E73:E,E$:206H0206-#8,A$,B$,C$:V$A$B$C$:V$"DWB""NCOMPATIBLE LIBRARY ILE!!!":2068,N:A2N1:8,F$(A),T$(A),C(A)::8:NN1:F$(1)F$:T$(1)T$:C(1)H:9,D1,9,LN$".LBR,S,W":50:E0E73E,E$:206K"REATING NEW LIBRARY HEADER...":9,"DWBONE!":206B"DDING EXISTING FILES TO NEW LIBRARY...":8,D,8,L$".LBR,S,R":50:E0E73E,E$:206}#8,A$,B$,C$:8,N:A1N:8,A$:8,A$:8,A$::IS1:1931:8:9:15:"GAIN (Y/N)? ";A$:A$"Y"A$"N"208A$"Y""YES":dAILY eXCHANGE 703-989-7461 24 HOURS...AND tHE gRAFIX cONNEXTION 304-768-9360 10PM - 7AM...1 mEG dOWNLOADS, gRAPHICS AND pUNTER.:8:9:15:"GAIN (Y/N)? ";A$:A$"Y"A$"N"208A$"Y""YES":"READING DISK ..." % 15,8,151 T135A T(T)0390b NS202(T17)(T24)(T30)m  SEEKy JOB176 430 " READ ,S0NS 6JOB128 @430 JE1380 TS$((S),((S))1) ^S10S$" "S$ hE1E12EM$E) TRY500540 E127460! 5 EM$"?TIME OUT"; &b NS202(T17)(T24)(T30)m  SEEKy JOB176 430 " READ ,S0NS 6JOB128 @430 JE1380 TS$((S),((S))1) ^S10S$" "S$ hE1E12EM$5"+ " OMPLETED: AN 16, 1985"V " PDATED: EB 03, 1985"^ 10 " IT NY EY TO EGIN." 198,0 I$:I$""180 --- MAIN MENU ""; 15)" " "------------------------ ---------------"; @I$:I$""320/ J I$"R" 400B T I$"S" 600U ^ I$"L" 900i h I$"D" 1100} m I$"F" 1300 r I$"A" 1600 w I$"C" 2700 | I$"P" 1800 320  RETRIEVE A LISTIST TO DISK ""; 12 8,LN$8,LL$LL(LL$)% I1 LL38,LI$(I); IO8:LI$(LL1)""Y 200yX SAVE CURRENT LIST TO DISKb"";l07)" ԠԠϠ"v"----------------------------------------"{ LN$"" 680 E4$:158:8,8,8,"@0:"(LN$,16)",S,W"$C0?CC1: LI$(C)""740JLLC1o"OW WRITING LIST TO DISK..."}LL$(LL) 8,LN$8,LL$ I1LL 8,LI$(I)*48:200 LENGTHEN CURRENT LIST"ALCULATIN TES"""----------------------------------------"c"NTER DESIRED ITEM OR '_' TO RETURN TO THE ."tIT$"": IT$ IT$""910 IT$"_"LI$(LL1)"":200LLLL1:FMFM(IT$): LLML FM0 1020LI$(LL)IT$:910 Ԡ"*j"----------------------------------------"ct"NTER THE ITEM THAT YOU WOULD LIKE TO DELETE."s~IT$"":IT$ IT$"" 200"EARCHING FOR... "IT$S0SS1: SLL"O MATCH...":1220 LI$(S)IT$ Ԡ"2"----------------------------------------"Z<"NTER THE ITEM THAT YOU WOULD LIKE TO SEARCH FOR."jFIT$"":IT$}P IT$"" 200Z"EARCHING FOR... "IT$dS0nSS1: SLL"O MATCH...":1410s LI$(S)IT$ 13--------"aC0 cCC1: LI$(C)""1635eLLC1^h"HERE ARE CURRENTLY"LL"ITEMS TO":"ALPHABETIZE IN THIS LIST."r"LPHABETIZING CURRENT LIST. LEASE WAIT."w""| A1LL1 BA1LL LI$(B)LI$(A) TS$LI$(B):LI$0MA4 :MA)"[1] IDEO (SCREEN) DISPLAY";DMA)"[2] RINTED DISPLAY (SINGLE COLUMN)"jNMA)"[3] RINTED DISPLAY (MULTI COLUMN)"SMA)"[4] ETURN TO MAIN MENU"XDM$:DM$""1880bDM$"1" 1950lDM$"2" 2150vDM$"3" 2 'F7' TO SCROLL DOWN."198,0 SC$:SC$""2040#SC$"" 20806 SC$"" 2100@2030U  RA190 1800h*RARA19:1960}4 RA19LL 1800>RARA19:1960f//PRINTED DISPLAY(SINGLE COLUMN)p"";z04)"  (Š)""----------------------------------------"& 3000;"RINTING..."J4:4,4,SAU4,CL$gC0:PC0:PG14," ":4," ":4,LN$;" ---";LL;" ITEMS"X1CL:4,"-";:PC1552310C1LL 2330PC)"Š"8 "----------------------------------------"} "LEASE ENTER THE NAME OF THE LIST YOU WISH TO RETRIEVE." F$""  F$  F$""200 LN$F$ 8:8,8,8,"0:"LN$ " OUND... "LN$:"OW READING...""ILL THY NAME BE: ";LN$'" ES";:A$M (A$,1)"Y" (A$,1)"" 720s (A$,1)"N" (A$,1)"" 680} 610"HEN WHAT SHALL THY NAME BE:"F$"": F$ F$""200LN$F$15:15,8,15:15,E1$,E2$,E3$,G FREE MEMORY...":FM(0):FMFM500"";<09)" Ԡ"l"----------------------------------------""UMBER OF ITEMS IN LIST... "LL" REE MEMORY REMAINING... "MLLL" ITEMS"" -- ... "FM"BYLI$(LL1)""" ..."F"ETURN TO AND ()AVE THIS LIST"w"IT ANY KEY TO RETURN TO THE ."$ 198,0.I$:I$""10708200L DELETE ITEM FROM CURRENT LISTV"";`04)"ŠΠ͠1190"ELETING... "IT$& IS1 LL:LI$(I1)LI$(I):=LI$(LL)"":LLLL1o"IT ANY KEY TO RETURN TO THE ."{ 198,0I$:I$""1240200 FIND AN ITEM IN CURRENT LIST"";(06)"ĠΠ͠ 90x"'"IT$"'":"WAS FOUND IN THIS LIST."C"IT ANY KEY TO RETURN TO THE ."O 198,0cI$:I$""1430l200@ ALPHABETIZE CURRENT LISTJ"";T08)" Ԡ"^"--------------------------------(B)LI$(A):LI$(A)TS$ " "(ALL) B,AI"IT ANY KEY TO RETURN TO THE ."U 198,0iI$:I$""1720s 200 ---DISPLAY MENU"";14)" "&"----------------------------------------"400DM$"4" 200 1880 ///VIDEO DISPLAYRA1$"";=13)" "n"----------------------------------------"; IRARA19LI$(I):I"----------------------------------------";"'F1' TO SCROLL UP. T 200$ $$$ INPUT SECONDARY ADDRESS % "RINT IN LL-APS ? ";)% I$:I$"Y"I$"N"3010D% I$"Y" SA0:"ٞ"_% I$"N" SA7:"Ξ"s% $$$ INPUT CPL% :"ELECT NUMBER OF CHARACTERS PER LINE:"% " [1] 80 [2] 97  PC1:CC1:4,CK$;LI$(C):2280 I16:4," ": PC0: 22700 I1LLC6:4," ":;$ 1800c. I14:4," "::4,"PAGE";PG:4," "{8 PC0:PGPG1: 2270` //PRINTED DISPLAY (MULTI COLUMN)j "";t 04)" (ŠqPE LIST ? ";&0 I$:I$"Y"I$"N"3120 ': I$"Y" CK$"[] ":"ٞ")'D I$"N" CK$"":"Ξ"/'N SA0:"ٞ"_% I$"N" SA7:"Ξ"s% $$$ INPUT CPL% :"ELECT NUMBER OF CHARACTERS PER LINE:"% " [1] 80 [2] 97  504 NC$"COLUMN" NP1 NP$"PAGES": 2506 NP$"PAGE"@ "UTPUT WILL BE IN"NC;NC$" ON"NP;NP$"."r " IT ANY KEY TO GO ON OR 'F1' TO ABORT. "~ 198,0 I$:I$""2509 I$""1800 "RINTING..." 4:4,4,SA C """"7"INSTRUCTIONS (Y/N)"I I$:I$""4_I$"Y" 2000u 15,8,15,"I":15 53281,1:53280,1:"" FL$(200)"";:5)"MENU MAKER"("*BY GEOFFREY BILDER*"! 2"!2 4,(13);!< M55NCPG 2547"F I14:4," "::4,"PAGE ";PG:4," "H"P PGPG1: PGNP C(PG1)NC55: 2520R"Z 4:4]"d 1800s" CORRECT AN ITEM}" "";" 03)"ԠΠ͠ Ԡ"" "--------------------------- PRINTA$; 140 : "";Z@ L L(W$)X :I1Lt :::(W$,I,1)(34)260| :I 340 II1: Z=Z+1 :XIL ::L$(W$,X,1) ":::L$(34)W$"":ZZ1: ,:::L$""340 6OW ENTER THE CORRECTED ITEM."# IT$"":IT$$ IT$"" 200$ LI$(S)IT$A$" "EQUESTED ITEM HAS BEEN CORRECTED"q$, "HIS LIST MAY NEED TO BE E-LPHBETIZED"$6 "IT ANY KEY TO RETURN TO THE ."$@ 198,0$J I$:I$""1240$ : 10 ENTRIES PER MENUk hML (Z10) MLML1: : FIGURE EXTRAx iML(ML) m:::::::::::::::::::::::::::::::::::::::::::: ML=MAX# OF MENUS rT$FL$(0): : DISK NAM E( |::::::::::::::::::::::::::::::::::::::::::::; }: UP MENUl ~:::::::::::::::::::::::::::::::::::::::::::: MN1:S1:N1:MD$"LOAD": : START VARIABLES  1000: : DRAW MENU BOX)""; [3] 146";% I$:I$"1"I$"2"I$"3"3060(& I$"1"CL$(27)"<":"1 ";:CL80V& I$"2"CL$(27)"=":"2 ";:CL97& I$"3"CL$(27)">":"3 ";:CL146& $$$ INPUT CK BOX&& :"OULD YOU LIKE A CHECKLIST-TY)"~ "----------------------------------------" 3000. "ORMATING OUTPUT..."; C0:LI0p CC1:(LI$(C))(CK$)LILI(LI$(C))(CK$)1 CLL 2470 NC (CLLI) NP ((LL(NC55)).99999) NC1 NC$"COLUMNS": 2 :8)" MENU # ";MN: : MENU NUMBER DISPLAY59);T$s"":ISS9 : 10 PER MENU:::: :IN9);"";FL$(I);"":415::: :9);FL$(I)IA$:A$"" 420: 0:M0:PG1 4,CL$:4," "! IT$(LL)" ITEMS"$! 4,LN$;CL(LN$)(IT$));IT$;:! X1CL:4,"-";:K! CC1:MMNC\! I0 NC1i! J55IC! JLL PI$(BL$,LI)! JLLPI$CK$LI$(J)(BL$,LI((CK$)(LI$(J))))! 4,PI$;!( ";:7)"ONE MONMENT PLEASE..."D <"READING # "b F 1,8,0,"$0": DIRECTORYn PN$(0)| Z#1,A$,A$ d#1,A$,A$ nA$""180 x#1,A$,B$ THIS WAS THE BLOCKS #1,A$: :W$W$A$ :A$""210:190:100 -------------"# "NTER THE ITEM THAT YOU WISH TO CORRECT."# IT$"":IT$+# IT$"" 200I# "EARCHING FOR... "IT$Q# S0x# SS1: SLL"O MATCH...":2710# LI$(S)IT$ 2790# "'";IT$;"' EXISTS IN THIS LIST."# "OU MAY N::::FL$(Z)FL$(Z)L$ @:X JM O::::::::::::::::::::::::::::::::::::::::::::p T: THIS FIGURES # OF MENUS Y1 :::::::::::::::::::::::::::::::::::::::::::: ^ZZ1: : GET RID OF TITLE1 cMLZ10: E YOU SURE ";S$ 4 S$"YES"MD$"LOAD ":1050:38549SC$"S:"FL$(N)M> 15,8,15,SC$:15:6fRMD$"VALIDATE":1050~W 1,8,15:1,"V0":1\MD$"LOAD ":1050:390996::::::::::::::::::::::::::::::::::::::::::::: MENU 6)"PRESS RETURN TO LOAD"!6)""B6)" MODE- "V 1050: "";MD$;""""S$"YOU CAN GET ANYTHING YOU WANT":2500:S$"AT GEOFFREY'b  : GET RESPONSEAA$"" NN1: NS MNML NN10: 475iA$"" NN1: NS9 NS: 475 IF VAL(A$)<>0 THEN 600: :REM MENU CHANGEA$"" SS10:MNMN1:MNMLMN1:S1:N1 : 385&A WHILE.":2500:S$"YOU CAN GET ANYTHING YOU WANT":2500:IS$"AT GEOFFREY'S RESTAURANT.":2500:R::~S$"(APOLOGIES TO ARLO GUTHRIE)":2500:J140:2600:J:""S$"F1=RENAME":2500:S$"F2=SCRATCH":2500:S$  850 : :A$"" 900I 390: : CHANGE TO RESPONSExU::::::::::::::::::::::::::::::::::::::::::V::::::::::::::::::::::::::::::::::::::::::W:XA(A$):Q1Y AML 500]MNAbSQ(A10):NS "":  J1(S$) L$(S$,J,1) L$;:2600 :J .( T150:T4) ENAME":1050"":'"TO WHAT NAME ";RN$JRN$""MD$"LOAD":1050: 385f PN$"R:"RN$"="FL$(N) 15,8,15,PN$:15:PN$"":FL$(N)RN$:RN$"":MD$"LOAD ":1050::385 MD$"SCRATCH":1050%"";:S$"NO"*"AR A"":53280,0:53281,0:" DISK MONGER!!":""}9)"BY TOM A. PELLEGRINO":"":2005)"INSERT DISK AND PRESS [RETURN]" I0 50: A$:A$: A$(13) 4 1,8,15:15,8,15 TI$"00000 DRAWING SUBRINE'::::::::::::::::::::::::::::::::::::::::::::0""O6)"ϣ"n6)" "6)" "6)"̤":::::::::::A113:6)" ":A  S RESTAURANT.":2500:'S$"YOU CAN GET ANYTHING YOU WANT":2500:RS$"AT GEOFFREY'S RESTAURANT.":2500:wS$"JUST LOAD YOUR DISK":2500:S$"AND BOOT THIS FILE":2500:S$"AND IT WILL FIND YOUR PROGRAMS":2500:S$"IN A LITTLE !0" TT184 " "T " DISK TITLE";: Z$j 1,"N0:";Z$;",00"{ C1$""(13) C2$" PLEASE WAIT APPROX. 80 SECONDS":"" CC$C1$C2$: 100  TIN 80 P ******************************** $"" SS10:MNMN1:MN1MNML:SML109 :NS :385F A$""A$"" NS: 385L:e MNMLNSNZ:500k: MNMLNZNS:500 A$(13)700: :A$"" 750: :A$"" 800: :A$"N" 6: :A$"" "F3=VALIDATE":2500:S$" R=RESTART":2500:""NS$"USE LEFT/RIGHT CURSOR TO CHOOSE THE MENU":2500:S$"USE UP/DOWN CURSOR TO CHOOSE FILE":2500::S$"PRESS RETURN TO LOAD PROGRAM":2500:J140:2600:J J125:2600:J: g A1 S1:N1 l 3852::::::::::::::::::::::::::::::::::::K: DYNAMIC KEYBOARDt::::::::::::::::::::::::::::::::::::"""LOAD"(34);FL$(N);(34)",8""RUN":"" 631,13: 632,13: 198,2:MD$"R! ;:C$"" ^C$C$B$:#1,B$: B$"" 3501 h" "(C$,3)L r T$: T$"" 2000] | ST0 240k BLOCKS E " BLOCKS FREE":"" 1: 10000  T$"Q" 1:  T$: T$"" 2000   COPYRIGHT TOM A. PELLEGRINO C$"":">K! MMAND"$'" Q-QUIT PROGRAM"@.'" S-DRIVE STATUS"d8'" F-FORMAT DRIVE"9'" E-SCRATCH FILE":'" GREYHAWKS GALLERY BBS 718-848-5673";'""t'A$:A$""10506' A$"D" "": 220KbROYING ";K$ )15:2:"":200@ )A99:53280,A:53280,A6::53280,0:10100L* 10100F-FORMAT DRIVE"9'" E-SCRATCH FILE":'" GREYHAWKS GALLERY BBS 718-848-5673";'""t'A$:A$""10506' A$"D" "": 220! d CC$ i1,EN,EM$,ET,ES! j""? n9)""EN;EM$;ET;ES;"":""m s EN2 "FORMAT ANOTHER DISK?";: X$ t X$"Y" 1: 15:"": 2 u X$"N" 2:1:"": 200 x " CHECK DISK AND TRY AGAIN!":15:2:"" y1:200 }TM$TI$K!,0,"$0" #1,A$,B$ #1,A$,B$) #1,A$,B$1 C0H  A$"" C(A$)e  B$"" CC(B$)256 "" "((C),2);3);""; ,#1,B$: ST0 1000 6 B$(34) 300 @#1,B$: B$(34) B$;:320 J#1,B$: B$(32)330 T18)KK!"; B$:B$"" 4011$B$;:B$(13)40208C$C$B$: 4011P2,C$:2:"": 200[" ";|#2,A$:A$;: A$(13)5010"":"HIT RETURN TO CONTINUE":2:Q$:"":200'" D-DIRECTORY"'" .-DISK COK!<( A$"." 4000F(A$"Q" :)P( A$"S" 5010AZ( A$"F" "": 2x( A$"E" " "( A$"E" "SCRATCH WHAT FILE";: K$(15,8,15:15,"S:";K$(A130:"":) A$"E" " I'M DESTKK!6 A1155:53270,A::" (C)1986 GALLERY SOFTWARE"g "֡" "":" DISK MONGER!" " MENU" " " 2,8,15 10000 15:1:1,8KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK