%:3085:DWN$(17):UP$(145):RETRN$(13):ESC$(27):40,0,79,24,1:6,1:(158)" D I R E C T O R Y "::"* FOR NEW DIRECTORY *"::::DS$:0,0,39,24,1:(7):(5)" D I S K G O O D Y! V5":(150)B" Ϸ":" COMMODORE 128 ":" ":" AND 1571 ":" ̯̯ ":" BY JOHN READING":(154)J"Ϸ Ϸ":" Ϸ ":" ":" ":" ":" "fP" ̯ ":"̯ ̯"::(153)"MOVE MENU BAR WITH ARROW KEYS PRESS FIRST LETTER OF OPTION NAME":(7):" PRESS TO CONTINUE":50000,0,79,24::N1116:5,N1:(18);:N179:(32);:N::N1:"PRESS ANY KEY TO CONTINUE";A$$A$:A$""1060)26 :"FILE TO SCRATCH ";A$:(A$)0N :"NOW SCRATCHING "A$:15:15,8,15,"S:"A$:DS$:15: 1:26 0,19,79,24,1:"PRESS < ESC > TO STOP FORMATTING... ANY OTHER KEY TO CONTINUE FORMATTING";Z$ Z$:Z$""3001 Z$ESC$2630206! :"FORMAT AS SINGLE (S) OR DOUBLE (D) SIDED";SS$:SS$"D"15,8,15,"U0>M0":15:3040Y! SS$"S"15,8,15,"U0>M1":15!" :2)"ENTER A NAME FOR THE DISK ":HD$"":ID$""::"NAME ";HD$::"SELECT A TWO CHARACTER DISK ID OR HIT RETURN TO JUST CLEAR DIRECTORY"::"ID ";ID$:"INSERT THE DISK TO FORMAT AND HIT RETURN";" W$"":W$:W$""3070c" 15,8,15,"N0:"HD$","ID$:DS$:15k" 26" BEGIN NOTEMAKER"0,0,79,24,1:6,13:3,4,7:L66:L04005:ՅA$:4016t#20)"* USE OF COMMA WILL TRUNCATE LINES":19)" * BACK ARROW WILL RETURN TO MAIN MENU ":" <......:10.......:20.......:30.......:40.......:50.......:60.......:70.......>":"";A$#B$(95):A$B$4040#A$(95)3,A$:LL1:#3:4:7:26w$40,0,79,24,1:" THIS IS A LISTING OF ":"S E Q U E N T I A L FILES"::"*=S":0,19,79,24,1:"PRINT WHICH FILE ";A$:0,0,79,24,1:15:15,8,15:5:5,8,5,"0:"A$",S,R":4,4,7$#5,B$:CKST:4,B$;:CK04520$4:4:5:15:DS$: 1:26$ BEGIN NAMECHANGEo%0,19,79,24,1:"CHANGE WHICH FILENAME ";OF$:"MAKE THE NEW NAME ";NF$:"* RENAME IS IN PROGRESS *":15,8,15:15,"R0:"NF$"="OF$:15:DS$: 1:25+&\0,19,79,24,1:"* THIS PROGRAM VALIDATES A DISK WITHOUT KILLING THE AUTOBOOT SECTOR *":"* PUT THE DISK INTO DRIVE 8":"* PRESS RETURN TO CONTINUE OR TO QUIT":A$:A$ESC$26F&mU8:DS21DS74""&r15,8,15:8,8,8,"#":15,"U1:8,8,1,0":15,"B-P:8,0":#8,C$,B$,M$:C$B$M$"CBM"'~(159)"THIS DISK HAS A BOOT SECTOR. YOUR OPTIONS ARE..."::" V -VALIDATE & PRESERVE BOOT":" =QUIT":('A$:A$"V"4760?'A$ESC$U8:26N'"";:4742i':C$B$M$"CBM"'"- NO AUTOBOOT SECTOR HERE... WANNA KEEP GOING? (Y/N)":A$:A$"Y"4760:U8:26'1("DONT INTERRUPT UNTIL DISK LIGHTS ARE OFF":D0:DS"BAD NEWS!":DS$:"BOOT NOT PRESERVED":U89(25(15:15,8,15:A$"Y""NOW ALLOCATING TRACK ONE, SECTOR ZERO":15,"B-A";8;1;0(DS65"TRACK ONE, SECTOR ZERO IS ALREADY ALLOCATED":U8("FINISHED VALIDATE FUNCTION": 2:DSDS$)25X):40,0,79,24,1:" THIS IS A LISTING OF ":" P R O G R A M S "::"*=P")0,0,39,24,1:(153)"WHICH PROGRAM WOULD YOU LIKE TO RUN?":"( ENTER QUIT TO QUIT )":">";A$:A$"QUIT"26)A$RETRN$4805(*0,0,79,24,1:(159)"LOADING..."A$:""A$:"RUN"(13):DS$:15 +::INDEX$:SELECT$(CTR)"###":CTRCTR1:COL(CTR),ROW(CTR),SELECT$(CTR)::NOCTR1:ESC:52000:CHOICE1:LASTNO:54000:RETRN0:ESC0:RETRNESC:53000:54000::,0,22:CHOICE1000,2000,3000,4000,4500,4600,4700,4800:F+ ::CTR1NO:(5):,COL(CTR),ROW(CTR),SELECT$(CTR),0::+::LASTCHOICE:A$:(INDEX$,A$)CHOICE(INDEX$,A$)+ϋA$UP$CHOICECHOICE1+&ϋA$DWN$CHOICECHOICE1++ϋA$ESC$25+0ϋA$RETRN$RETRN1+5ϋCHOICE1CHOICENO,7ϋCHOICENOCHOICE1h,,COL(LAST),ROW(LAST),SELECT$(LAST),0:,COL(CHOICE),ROW(CHOICE),SELECT$(CHOICE),1:x,` MENU DATA,o"AESNPRVB": FIRST LETTER INDEX-t5,10," ADJUST MONITOR COLOR ":5,11," ERASE A FILE ":5,12," SINGLE/DOUBLE FORMAT ":5,13," NOTEMAKER PRINTER "y-5,14," PRINT SEQUENTIAL FILE":5,15," RENAME A FILE ":5,16," VALIDATE SAFELY "-5,17," BOOT A PROGRAM "-0,0,"###": END MARK. THANKS TO ALL THE PUBLIC DOMAIN AUTHORS WHO SHOWED ME MANY ROUTINES USED HERE>. ON GENIE I AM JOHNREADING, ON QLINK I AM LAWDAW