1700:& 2000.53280,0:53281,0T0,0,79,24::0,0,79,7:(142);"------------------------------ 128 F-KEY UTILITY -----------------------------"" F1= DISK/NAME CHANGER";:" F5= RENAME FILES";:" '+'= DIRECTORY 8 PRINT" " F2= SCRATCH FILES";:" F6= COLLECT";:" '-'= DIRECTORY 9 PRINT"!" F3= DIRECTORY 8";:" F7= FORMAT DISK";:" '^'= SEQ./READ/PRINT"T"" F4= DIRECTORY 9";:" F8= EXIT";:" '*'= DISK LABEL MAKER"2"------------------------------------------------------------------------------" : 17" PLEASE CHOOSE SELECTION..."<25,8,79,24 FB132)PI182:I,(B1):BB1:3ZB136RdI282:I,(B1):BB1:fA$:A$"" 230yA$(133)350A$(137)850A$(134)D8:1400A$(135)1000A$(138)D9:1400"A$(139)790,A$(136)600 6A$(140)2000:65341+ ;A$"+"DN8:3000< <A$"*"5800S =A$"-"DN9:3000d >A$"^"5500m @230 ^" DISK NAME CHANGER":SP$" " c" -----------------------" m" PRESS 'Y' TO CONTINUE"!r"PRESS 'N'TO EXIT TO MENU""!|N$:N$""3802!N$"Y"400A!N$"N"20J!380g!15,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$;9"15,"U2:2,0,18,0":2J"15,A,B$:B$["15,"I0":15c"20p"X15,8,15"b"------- DISK FORMATTER -------""g" INSERT A NEW DISK""l"ENTER NAME UP TO 16 CHARACTERS" #vN$:(N$)16"NAME TOO LONG":6203#"ENTER A TWO CHARACTER DISK ID#"d#ID$:(ID$)2"TOO MANY CHARACTERS":640#" PRESS 'Y' TO FORMAT"#" PRESS 'N' TO QUIT"#B$:B$""656#B$"Y"660#B$"N"15:20#656 $" WORKING..."%$15,"N0:"N$","ID$:$15,EN,EM$,ET,ESH$EN0700f$" STATUS:";EN;EM$;ET;ESn$15$" FORMAT ANOTHER DISK ?"$" 'Y' OR 'N'"$S$:S$""750$S$"Y":600$S$"N"20$750%" ARE YOU SURE YOU WANT";%" TO VALIDATE THIS DISK ?"Y%" 'Y' OR 'N'"l%T$:T$""793|%T$"Y"800%T$"N"20%793% " VALIDATING DISK"%%" PLEASE WAIT..."%*15,8,15,"V0"%415%>20&R" DISK FILE SCRATCH"D&S "DISK DRIVE NUMBER (8/9) ? 8 ";i&T D: D8 D9 "": 851&W" LIST THE DIRECTORY ?"&\" 'Y' OR 'N'"&fF$:F$""870&pF$"Y"1600:900&zF$"N"900&870'" ENTER FILENAME TO SCRATCH""'N$:N$""20C'" SCRATCH THIS FILE ?"a'" 'Y' OR 'N'"t'B$:B$""940'B$"Y"970'B$"N"20'940'15,D,15,"S0:"N$'15'" SCRATCH ANOTHER FILE"'" 'Y' OR 'N'" (A$:A$""987(A$"Y":855.(A$"N"207(987W(" DISK FILE CHANGER"x(" ---------------------"( "DISK DRIVE NUMBER (8/9) ? 8 ";( D: D8 D9 "": 1006(" LIST THE DIRECTORY ?" )" 'Y' OR 'N'"!)N$:N$""10309) N$"Y"1600:1050J)N$"N"1050T)1030)"ENTER NAME OF FILE TO BE CHANGED")$A$:A$""20)."ENTER NEW NAME FOR FILE")8R$:R$""20)B15,D,15,"R0:"R$"="A$:15*L" CHANGE ANOTHER FILE?"'*V" 'Y' OR 'N'";*`B$:B$""1120O*jB$"Y":1010^*oB$"N"20h*t1120*x" DIRECTORY ON DRIVE ";D*" PRESS 'A' TO ABORT LISTING"*%:1,D,0,"$":#1,A$,A$*#1,A$,A$:A$""1471*#1,B$,C$+BL(B$(0)):BH(C$(0))6+D$((BL256BH),2)(32)S+D$;:#1,D$:D$""1460k+:F$:F$"A"1425r+1+" LIST ANOTHER DIRECTORY ?"+" 'Y' OR 'N'"+C$:C$""1480+C$"Y":1400+C$"N"20+1480,@:" DIRECTORY ON DRIVE ";DA,J" PRESS 'A' TO ABORT LISTING"],T%:1,D,0,"$":#1,A$,A$w,Y#1,A$,A$:A$""1675,^#1,B$,C$,hBL(B$(0)):BH(C$(0)),rD$((BL256BH),2)(32),|D$;:#1,D$:D$""1660,:F$:F$"A"1625-1:&: -0,0,79,24::(142);b-" ...DRIVE SECECTION..."-" 1) ONE 1541 DRIVE"-" 2) ONE 1571 DRIVE"." 3) TWO 1541 DRIVES"L." 4) TWO 1571 DRIVES"." -----------------------------"." PLEASE MAKE SELECTION"/" (1,2,3,4)"/B$:B$""1760(/B$"1"18009/B$"2"1850J/B$"3"1900[/B$"4"1950v/15,8,15,"U0>M0":15:/: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:0S54272:S6,240:S5,34#0S24,15:S4,21/0I130L0S1,(1)180:S,(1)20\0J160::g0S4,0m00 " PLEASE SELECT YOUR PRINTER"0 "  F1 FOR COMMODORE PRINTER0 "  F3 FOR STAR PRINTERS1 "  F5 FOR MAIN MENU 1 S$1 S$(133)311011 S$(134)3720C1 S$(135)20M1 3070S1& q10 " DISK DIRECTORY1D " PRESS '2' FOR 2 COLUMNS":" PRESS '3' FOR 3 COLUMNS"1N G$:G$"2"G$"3"31501X NC(G$)2b " PRESS  RETURN WHEN DISK IS READY"+2l CC$:CC$""3180@2v CC$(13)3110I2 PN4W2 ES$(27)b2 BI$""t2 RS$ES$(64)2 P$(150):C$"DISK NAME=":N$(0)2 T$"--------------------------"2 I1NC:X$X$T$:I:T$X$2 "":X1:Z1:X$""3 4:6:4,PN:6,DN,0,"$0"*3 #6,A$,A$,A$,A$,A$,A$A3 #6,A$:A$""3350T3 X$X$A$:3330t3 B$(X$,21,2):A$(X$,3,16)3 DN$C$(34)A$(34)B$3* P$"":""DN$""34 #6,A$,A$:A$""6:34203> #6,A$,B$:B$((A$N$)(B$N$)256)" "-4H #6,A$:A$""P$(X)B$:P$(X);:3560:XX1:B$"":3380@4R B$B$A$:3400u4\ :"PRESS  RETURN WHEN PRINTER IS READY4f G$:G$(13)34304p 4:4,U$4z 4,BI$;BO$;DN$;":":4,T$4 B1NC:P$P$(P$(Z),26):ZZ14 ZX14,P$:35205 B:4,P$:P$"":ZX135205 3460,5 4:4,RS$:465 :20C5 J1:\5 (P$(X),15,1)"."u5 (P$(X),16,1)"."5(P$(X),17,1)"."5.Y$:5"5ES$(27)5J(820)5LI$ES$(70)(0)5SP$ES$(45)(10)'6" NUMBER OF COLUMNS  2 TO 5 ";NC:NC2NC53780Z6" PRESS  RETURN WHEN DISK IS READY"p6CC$:CC$""37866CC$(13)37906PN46ES$(27)6BI$ES$(15):BI$BI$LI$SP$6BI$BI$LI$SP$6RS$ES$(64) 7 P$(150):C$"DISK NAME=":N$(0)/7T$"---------------------------"M7(I1NC:X$X$T$:I:T$X$d72"":X1:Z1:X$""7<4:6:4,PN:6,DN,0,"$0"7F#6,A$,A$,A$,A$,A$,A$7P#6,A$:A$""39407ZX$X$A$:39207dB$(X$,21,2):A$(X$,3,16)8nDN$C$(34)A$(34)B$8xP$" ":""DN$""68#6,A$,A$:A$""6:4010d8#6,A$,B$:B$((A$N$)(B$N$)256)" "8#6,A$:A$""P$(X)B$:P$(X);:3560:XX1:B$"":39708B$B$A$:39908:" PRESS  RETURN WHEN PRINTER IS READY9G$:G$(13)402094,BI$:(15)?94,BI$;BO$;DN$;":";LI$;P$(X1);BF$:4,T$g9B1NC:P$P$(P$(Z),26)" ":ZZ1~9ZX14,P$:41009B:4,P$:P$" ":ZX141009405094:4,RS$:49":209|"SEQUENTIAL FILE READER/PRINTER": "DISK DRIVE NUMBER (8/9) ? 8 ";E: D: D8 D9 "": 5505t:"LIST TO (S)CREEN OR (P)RINTER ?":F$:F$""5510:F$"S"DN3:5515:F$"P"DN4:5515:5510:"LIST THE DIRECTORY?(ٙ/Ι) ?":N$:N$""5516;N$"Y"1600:5520&;N$"N"55200;5516A;15,4,15:15u;3,DN,7:15,D,15: DN=PRINTER IF ON ELSE SCREEN; "INPUT FILE-NAME TO LIST";S$;S$""3:15:20;0,6,79,24: <" PRESS 'A' TO ABORT LISTING"<2,D,2,S$",S,R":<15,E,M$,T,S:E05590L<"";E;M$;T;Sg<E62 E642:3:15<" TRY AGAIN ?(ٙ/Ι)"<T$:T$""5575<T$"Y"5665<T$"N"20<5575<5620<#2,A$:RSST=K$:K$""5620'=3,A$;:RS055908=3:2:3:15t=" LIST ANOTHER?(ٚ/Ι)"=T$:T$""5640=T$"Y"5665=T$"N"20=!0,6,79,24::25,6,79,24:5500=" DISK LABELS" >" (28 CHAR. MAX.)">:I1500:\>"ENTER FIRST LINE":A$:(A$)28"NAME TOO LONG":5820>B$"---------------------------">"ENTER SECOND LINE":C$:(C$)28"NAME TOO LONG">"HOW MANY SPACES BETWEEN LABELS";L?"HOW MANY COPIES";C ?""!?NS$(18):NT$""??RS$(18):RT$"":RU$(2)^? 7)"GET PRINTER READY"v?10)"HIT ANY KEY"? 6110?*208,0:208,1?>"":11)"PRINTING"?H4,4:4?RA1C?\NS$NT$:"1. "A$:""B$:"2. "C$@fRS$RT$RU$:I1L:::0@p4:4:4)"WAIT FOR PRINTER TO STOP"U@u5)"PRINT ANOTHER ? (Y/N)"`@208,0h@K$y@K$"Y"5820@K$"N"20@S54272:S24,15@S1,110:S5,9@S6,9:S4,17@S4,16:I1500:@K$""6030@5820AK12::A208,0:208,1: