stn!}!INFFNRECCDOFSVERDVERBRFSLOTONBLCOCONSOKESTSCRNNNFFRESECMAXMAXHDDELABYTBYT@@k@ @<AU@ @ @Q @@6@5L@@@B2yAUAd@@@!@@@ |!~"@#A$Ah%A@&A'@(@2) *********************** * ˠ٠ * * by * * Roger Humphries ************************REVISION DATE: 84-09-31##NOTE: The binary load portionof this program makes an""illegal jump into the Rev. B##operating system. It may notwork for other versions!""If you wish to ENTER but notRUN Listed files, delete!!line 4420 from the program.Z A d A An A ASubroutinesSet Up File Name ArrayR6-@#-@@07<,0 @67<,.7<,N6-%@R $$7@<@,4 AV67<,..6-%@.-%@R67<,.7@%&<@%&,V 67B:,%@,.!!Then Set Up Directory ArrayU67@<@,. 57@<@,4*U67@<@,.>:@,O-@@567<,.>:@:7<,,&@2,9 E6-@O A'6.7<,6-@:,G!@d* @/67<,.>:%@2,=6-%@G A#7 4.67<,.>:@,-6-%@7 A#G!@G* @X/67<,.>:&@2,=6-%@G A#.67@<@,..67B:,%@,. B$Select File Namef 6-%6-$@%-@@(@7&@<,H6-%T6-` @f6- !6-@q 6-%6-$@,6.7&@<,:6-$@H6-&@T-@b(@q67@,.$Screen Headera +AR@1-^((ĠɠӠˠĠɠҠŠàԠϠҠ٠a$""Peel Trailing Blanks from F$: 6-B:,7,4 06.7@<&@,: AR$Genral DOS Function,"@, A,"@, ASound Routine'6-@ At'Prompt Tone6-@Warning Tone7-@@032@@7 B -@9@6@>2@'@B (%2($ Delay-@A $"Blank Line$%-@@"(@%$,-Check Console and Keys.6Y 6-F:,6-F:,A6-R:,%A$+@&T:,,M@YAU@ A0 A%J A@ A%T A A%Set Up Screenj +@'0@A0@[0@j6.>:AB,=-=(@8-@@#-4(@8 U-@)-@@ 7(@; U0@@@$Display Directory070@Q0@k0@}AR@6-@!6-@S6-+&@,$@36-+%@,$@9"S6-&@$+&@,33(}Files on Disk:  ^H ^U ^L ^D ^R ^Q00(Free Sectors:    &C!@(C(Screen  of  for more0--@@6-%-6-$@:8-@*(@7&@<,. 8 A0D-@@)(@;-@@Q(@k0@@0@@@N(@AU% Aq($XYRead DirectoryZbe@1@@D:*.*=6-D6.K6.e0@@gS-@@*(@READING<-@@ S(@ DIRECTORYl4@47@<@,4FREEA@v1 6.6.6-%@' A1 A  6. @6. ""67B:,%@<@,.=:,~6.7@<@,37@<@,40L67@<@,. e7@<@,40~67@<@,. R6-P:'@%?,"6.:-%@$@N67B:,%@,.R $Initialize Program76-@$@d+6-@$@d7;,;,]];@,;@1,;@,;@,;@,;@,;@,;@,]@@'@@99AR@E6-@Q6-@]6-36-B2y6-Ad'6-A@36-A%6. %6.D:.@.@@K:$$6-6@ A0$ A$6-5@ A0$ AhO A!( }Locking ==> % 967<,.>:@,E6-@5O AbsJ A#(}Unlocking ==> ' 467<,. @6-@6J Abv$6-6@ A0$ Aw$6-5@ A0$ A A4 + A  A3%1 A6-%@'6-@1 A$6-5@ A0$ A A@$6-5@ A0$ A$6-6@ A0$ A A@Help Menu4F -@F((ȠŠ̠Р͠ŠΠՠ>**(" or  Select file (down)C7@@(7(  Select file (up)H%(%( Load and run fileM'('( Display next screenOA@@(A($+ Rerun (for new disk)P.(.(#, Select and run fileR*@@(*( ^ = CTRL keyW%%(^H Help (display this page)\(^L Lock filea(^U Unlock filef""(^D Delete file from diskk(^R Rename filep!!(^Q Quit (exit to Basic)zQ@@'-@@#G(Press for DirectoryQ Aq0)@"AU& A0 A A!  Delete File  i A'0@@@A0@@@_(}Press Y to delete ==> i Aq <)@"@& A3P26-@3< Ad '(}DELETE cancelled ' A F:A,AgA (} File is LOCKED% w(Press Y to delete# Ar0)@<"@a@6@m6-@3w Ad* A3 H I Rename FileJ R H A,(}Input new name for ==> H( \ 8 AqAR#5AR@8(f K AP67@,."6.<7@<@,4D:K6.7@,p 0 6-B:,67%@,.,067%@,.z # A4`6-@2# Ad (} File is LOCKED w(Press Y to rename# Ar0)@<"@a@6@m6-@2w AdLOAD and RUN program:77@<@,4DOS)7@<@,4DUP:.+ AA0 ('( Loading ==> +%" F:A,@!AB0hm AB0@5@@B)@O)@mAU)AUACr)()(|:@+@@:6-?:AUv,-(#(Ġ- A!p5 AP6-B:,57&@<,0DOCADm(("(D( Press to stop readingG(m(! Press - to pause/restart@(5@+@@5 AC@T)@*@2F:Ad,"@(DAdAUG(J(T A!p AC0D@@((7(End-of-File Encountered:(D A!p0-(-("宠:8-@@8(ENTER >:@4,>:@4,?66*** Delete line 4420 to LOAD file but not RUN itDL-@@2(POKE 764,12:D-@@L(RUNN[-@@ 8(ŠǠӠŠ[(Ġ١X6AR'-@@3@6D2:MENU