1700 2000+53280,0:53281,0<:0,0,79,5"------------------------------ 128 KEYPAD UTILITY ----------------------------"" 1=DISK/NAME 2=SCRATCH 3=$/8 4=$/9 5=RENAME 6=COLLECT 7=FORMAT 8=EXIT"6(" ----- BY IVAN GIEBLER -----"2"------------------------------------------------------------------------------" : 17" PLEASE CHOOSE SELECTION.."<25,6,79,24A$:A$"" 230A$"1"350A$"2"850&A$"3"14007A$"5"1000HA$"4"1500X"A$"6"790h,A$"7"600{6A$"8"65341@230^" DISK NAME CHANGER":SP$" "c" -----------------------"m" PRESS 'Y' TO CONTINUE"'r"ANY OTHER KEY TO EXIT TO MENU";|N$:N$"Y"20KN$"Y"400h15,8,15,"I0":2,8,2,"#"~15,"U1:2,0,18,0"15,"B-P:2,144"J015:#2,A$:D$D$A$:"CURRENT NAME: ";D$:"NEW NAME";DN$:DN$""20 DN$(DN$SP$,16)! 15,"B-P:2,144":2,DN$;: 15,"U2:2,0,18,0":2K 15,A,B$:B$\ 15,"I0":15d 20q X15,8,15 b"------- DISK FORMATTER -------" g" INSERT A NEW DISK" l"ENTER NAME UP TO 16 CHARACTERS" !vN$:(N$)16"NAME TOO LONG":6204!"ENTER A TWO CHARACTER DISK ID#"e!ID$:(ID$)2"TOO MANY CHARACTERS":640!" PRESS 'Y' TO FORMAT"!" PRESS 'N' TO QUIT"!B$!B$"Y"660!B$"Y"15:20!" WORKING...""15,"N0:"N$","ID$("15,EN,EM$,ET,ES6"EN0700T"" STATUS:";EN;EM$;ET;ES\"15"" FORMAT ANOTHER DISK ?""" 'Y' OR 'N'""S$"S$"Y":600"S$"Y"20"" ARE YOU SURE YOU WANT"#" TO VALIDATE THIS DISK ?"4#" 'Y' OR 'N'"<#T$L#T$"Y"800\#T$"Y"20{# " VALIDATING DISK"#%" PLEASE WAIT..."#*15,8,15,"V0"#415#>20#R" LIST THE DIRECTORY ?"#\" 'Y' OR 'N'"$fF$$pF$"Y"1600'$zF$"Y"900L$" ENTER FILENAME TO SCRATCH"^$N$:N$""20$" SCRATCH THIS FILE ?"$" 'Y' OR 'N'"$B$$B$"Y"970$B$"Y"20$15,8,15,"S0:"N$$15%" SCRATCH ANOTHER FILE""%" 'Y' OR 'N'"*%A$=%A$"Y":850M%A$"Y"20m%" DISK FILE CHANGER"%" ---------------------"%" LIST THE DIRECTORY ?"%" 'Y' OR 'N'"%N$% N$"Y"1600%N$"Y"1050$&"ENTER NAME OF FILE TO BE CHANGED"6&$A$:A$""20W&."ENTER NEW NAME FOR FILE"i&8R$:R$""20&B15,8,15,"R0:"R$"="A$:15&L" CHANGE ANOTHER FILE?"&V" 'Y' OR 'N'"&`B$&jB$"Y":1010&oA$"Y"20'x" DIRECTORY ON DRIVE 8"4'5,8,0,"$":#5,A$,A$R'#5,A$,A$:A$""5:1460`'#5,B$,L$'LN$((B$(0))(L$(0))256):LN$" ";'#5,A$:L$;A$;:A$"":1420'1440'" LIST ANOTHER DIRECTORY ?"'" 'Y' OR 'N'"(C$(C$"Y":1400'(C$"Y"20J(" DIRECTORY ON DRIVE 9"c(5,9,0,"$":#5,A$,A$(#5,A$,A$:A$""5:1560(#5,B$,L$(LN$((B$(0))(L$(0))256):LN$" ";(#5,A$:L$;A$;:A$"":1520(1540 )" LIST ANOTHER DIRECTORY ?"*)"" 'Y' OR 'N'"2),C$C)6C$"Y"1500S);C$"Y"20u)@" DIRECTORY ON DRIVE 8")J5,8,0,"$":#5,A$,A$)T#5,A$,A$:A$""5:1660)Y#5,B$,L$)^LN$((B$(0))(L$(0))256):LN$" "; *h#5,A$:L$;A$;:A$"":1620*r1640*|,*0,0,79,24:m*" ...DRIVE SELECTION..."*" 1) ONE 1541 DRIVE"*" 2) ONE 1571 DRIVE"+" 3) TWO 1541 DRIVES"W+" 4) TWO 1571 DRIVES"+" -----------------------------"+" PLEASE MAKE SELECTION"+B$:B$""1760+B$"1"1800 ,B$"2"1850,B$"3"1900,,B$"4"1950G,15,8,15,"U0>M0":15:b,:15,8,15,"U0>M1":15:,l15,8,15,"U0>M0":15:15,9,15,"U0>M0":15:,15,8,15,"U0>M1":15:15,9,15,"U0>M1":15:,S54272:S6,240:S5,34,S24,15:S4,21-I130-S1,(1)180:S,(1)20--J160::8-S4,0>-(34)"DI-SECTOR"(34)",8,1":"(34)"DI-SECTOR"(34)",8,1":"DI-SECTOR"