CD4##NNKEPMLN12LCNLSULNPHFNBLMAXENTSTEFIRS @ +(+( ENTER Ϡ TO RUN FROM BASIC. $&$USE LINE 0 FOR YOUR 1LINERS  B DO INITCLEAR SCRNl-@##-@@'(?2$@C(G i2l$'GET KEY, CHECK HELP=EXIT(!AdAU!6-AU)%F:A2,"@'% A*.$++4A,)+F:@w,"AT,,. @p+*F:B2y,"@ 6.A* AP,*F:B2y,"@ 6.Y* AP-*F:B2y,"@ 6.N* A."F:Ad,"AU" @A/@@(@@K:5)@@@0%F:A2,"@'% A1$;CLEAR VARS.<(67,. 67,. (67@,.> 6-6-A.67,. 67B ,. .67@,.D$Fa6-P:H:,$@,?++8, @E,)+8,!A,,a68,-H:,$AP%@PGR+6-8,%++H:,$@P,&@%,@F:@w,"ATRA#@@H% 8,-8,%B2H%I. 8, -8,6@.B2H%J:-@@ 0F:Ad,AU: @wK LA%F:@ ,M 68,-O$6-$+&@,%@6.7<$,$6-$+&@,%@67<$,.$+ENTER L$ AT ROWS 16,17,18,!-@@!(Ԡ15-@/(7@<@,56-6= @@"AU+-@!@3( = A`@ (>:,^81++F:@,"@,*+F:@,"@5,,8(c AhK-@@%-@9-1;67<,.>:,C6-%G K |!-@@!(ՠ$ADD/EDIT/LIST @ 6-!-@@!(ՠ4-@@4(ED1LN EDIT/ADD/LIST KEYS:=-@@=(" = CLEAR, = EDIT, = RUN LINE,<-@@ <(!TYPE Ϡ TO RETURN FROM BASIC5-@@5( = BWDS 1,  = FWDS 1,/-@@/(, , OR = MENU.C-C((=PM ACTIVE,=PMON,=PMOFF.-@9#-@*(. AR@%-@@%(#LINES: -@1@( +-@@+(CURRENT LINE: 1 A-@$(((,(1( @@,)++"@',)+>:,4Q,)+>:,4M,,,$>:,0E AeAR+ A A !+6-%@ AAR@@>:,4=6-%@4++!,)+!%@,,@6-@6>:,4-6-&@(66-%@>:,4C @`"++>:,4R,*+,," A A ] + A)-@-(6(CONTH-ZAB@]&AB@ &SHOULD NEVER GET HERE,##PROGRAM SHOULD TRY TO EXECUTEYOUR 1 LINE AT LINE 520 LOAD  @`% 6-** A0*@@4 AH"@6-%" A \ A@p$@ B6-$6-z$ SAVE A0 @@-@ A(@ @6-@$EXIT TO BASICW-@@#+(ŠҠ׮?-@@I AS A W  @# +( A,CLEAR HELP:CLEAR KBD-'A2'AdAU2PLAYER STRIPS OFF/-B2aB2a%@+/ A-B2HB2H%@+/ AA#@/B2w'AY@4/6.N$ PLAYER STRIPS ONA#@6--POKE 54279,255:POKE 53277,2:POKE 559,42W68,-@U-68@,-@uB68@,-AEW68@,-Ae/-B2VB2V%@+@/ /-B2aB2a%@+AU/ KB2H@U'B2I@u9B2PAEKB2QAe'$` @)(PRESS 1 TO 8 FOR RANDOMD(COLORS IN REGS 704-708`(0=RESET DEFAULT COLORS##(PRESS OR FOR MENU @@J++"@2,)+"@',,+6-AU=AdAUG AJ$5 @H)!@W+AdAU5 A%6-&@H%"A&+A%,F:B7p,& A0@@70@@@Q0@@@k0@@@0@;-@7A%@%+$@D,;  AGET FILENAME (FN$) 6.AR@.-@((!(%()(.(<-@@<("ENTER FILE NAME. TO ABORT'$( SPECIFY DEVICE > ĺ, ú .'(AR9-@@!,(ENTER ź 9@2 4Q6.' B&B:, @ A& A`&7@<@,4:& A37@<@,0:)(>:AS,3 A0.-@((!(%()(.(AR$ G-A@ C2A&@@G a-@;2$@@@? a2$V-@-2@1 S2V$&r-@@ +-@@E2%%@I M o2r$+{-@@@<-@@6@N2$R V x2{$0-@@@<-@@6@R2@h2@@l p 2@2$*MAIN LOOP+ @+C-C((=PM ACTIVE,=PMON,=PMOFF+-@ +$$( DIT/LIST, SET OLORS, +%%( ELLS, HISTLES, OAD,  +&#( AVE, DIR, or UIT ?&(+))( PRESS ETTER or DRIVE ...+ @@+..DRIVES 1,2 AND 8 SUPPORTED FOR DIRECTORY +<(++>:,41,)+>:,42,)+>:,48,,2 B < B%+>:,4Q' A*+<>:,4L A" A, B<LOAD AND EDIT4+">:,4C A" B>+">:,4E A" BH+">:,4S A " BJ+4>:,4B A@ (* A@4 BL+6>:,4W A0" A , A06 BR+! A A5! B.INITIALIZATION. +.'@'@@9.'A2'AA'.A#@4."@ B /6-@ /9@,/&&;B ,;A ,;@,/&6-A&CHANGE HERE MAX 1LNS/&&;@,;@9,;@,/'6-6-@'6-A / @`!/ B@+/467@,. %67@9,. 467@,.4/ APPMSTRIPS ON5//-@+B2V%/ 7/;-@7A%@%+$@D,; :/ B6 +@6,-@@,(@e1L B62-@@2(@Sct rMtA67-@7(@FOR THE PRIVATE USE67-@7(@OF COMPUSERVE USERS66-@6(@any use67-@7(@of any of this code67-@ 7(@WITHOUT THE 66-@6(@餤75-@5(@IS A OF 73-@3(@ FEDERAL LAW !71-@@1(@  78-@8(@COPYRIGHT S.ARMITAGE78-@ 8(@PRESS FOR (77-@!7(@ANY TO 7'A2'AdAU7>>0H:,$@H:,$@H:,$@7-@@% 7%F:A2,"@'% A@8"F:Ad,"AU" BCJ8 +T8'A2'AA'8$} DIR}!AR@!6-@  }!!CHANGE HERE FOR MORE DRIVES }1>:,411@@D:*.* }2>:,422@@D2:*.* }2>:,482@@D8:*.*}: @ B @(:( ˠ٠ }(})@( )6-&@#}@(%}# @  B `# B &} B 0(}@)}*-@##-@&(* *}3AdAU'AR36-AU0} B2}$<}*-@##-@&(* ?}"-@(("(A}--@@!-( ٮF} @@K}6-@ $ D:ED1LN.BASnnnnnnnnnnnnnnnnnn