DN8L""K(14)"  OMMANDER 64 1.0 BY ICHAEL ARVEY "Qpx13)""13)" ---- ݒ"@13)" ݒ"13)" 1)IRECTORY ݒ"13)" 2)NITIALIZE ݒ" l13)" 3)ORMAT ISK ݒ"* 13)" 4)OPY FILE ݒ"I 413)" 5)RROR HECK ݒ"h 13)" 6)ENAME FILE ݒ" 13)" 7)CRATCH ݒ" ` 13)" 8)ALIDATE ݒ" 13)" 9)NSTRUCTIONSݒ" 13)" 10) XIT ݒ" ( 13)"" O 198,0: " CHOICE*";C$:C(C$): C$"*" 1100U T :w ***CHECK FOR VALID INPUT***  C1 C10 1100 : ***CHECK FOR CHOICE*** H C1 10300 C2 X$"I":4500:1100  C3 9400 t C4 6500&  C5 8400: 11009 < C6 5700L  C7 5100k  C8 X$"V":4500:1100} h C9 12000  C10 : 0 ***DECIDING DEVICE NUMBER*** " NTER DRIVE NUMBER"DN"";: DN9 "";  A: A8 A11 4500 \DNA4  15,DN,15:15,X$:15C $ 8400: I :d  ***SCRATCH FILE***m P"" F$"":" NTER FILE TO SCRATCH";F$: F$"" 1100 X$"S0:"F$ |4500: 1100 : D ***RENAME FILE*** ""* OF$"": " NTER OLD FILE NAME";OF$: OF$"" 1100d pNF$"": " NTER NEW FILE NAME";NF$: NF$"" 1100} X$"R0:"NF$"="OF$ 84500: 1100 :  ***COPY FILE*** d"" " OPY FILE WILL DUPLICATEOR COMBINE"," UP TO 4 FILES ONTO THE SAME SOURCE":" DISK."INF$"": " NTER NEW FILE NAME";NF$] NF$"" 1100X" NTER FILENAME(S) TO DUPLICATE OR"" COMBINE INTO ";NF$;"" X$"C0:"NF$"=" L14"ILENAME #";L;"(* = STOP)*";:A$"": A$ L A$"*" MLL:L4: 77001X$X$A$","H L: ML1 6500]xX$(X$,(X$)1)" OMBINE/OPY :";(X$,(X$)(NF$)4)@" AS:";NF$;" (Y/N)";: A$ A$"N" 6500 4500: 1100l : ***ERROR CHECK***4! PRINT""/!15,DN,15:15,EN,EM$,ET,ESM! " "EN;EM$;ET;ESV`" 15""  IT ANY KEY TO CONTINUE "(# A$: A$"" 9000##:T$ ***FORMAT DISK***$""%"NTER NEW DISK NAME";DN$% DN$"" 1100%"NTER DISK ";ID$2H& (ID$)2 ID$"" 9700K&X$"N0:"DN$","ID$]'4500: 1100ct':{' ***DIRECTORY***<(" NTER DRIVE NUMBER"DN"";: DN9 "";( DN: DN8 DN11 10300 )" "#h)5,DN,0,"$":#5,A$,A$B)#5,A$,A$:A$""5:11200P0*#5,B$,L$*LN$((B$(0))(L$(0))256):" ݒ"LN$" ";*#5,A$:L$;A$;:A$"":34)"":10700\+11000+" "$,"";: 8600: 1100 ,:&. ***INSTRUCTIONS***5.(14)"";h."````````````iNSTRUCTIONS``````````````";."} }";."} dIRECTORY: }";."} }";6."} tHIS LET'S YOU VIEW THE DIRECTORY }";i."} OF ANY DISK DRIVE. }";."} }";."} iNITAILIZE: }";."} }";7."} tHIS WILL reset THE DISK DRIVE }";j."} OF YOUR CHOICE. }";."} }";."} fORMAT DISK: }";."} }";8."} tHIS WILL ERASE A DISK AND MAKE }";k."} IT READY TO BE USED. yOU MUST }";."} GIVE IT A NAME LESS THAN 16 }";."} CHARACTERS LONG, AND AN id }";."} COMPOSED OF ANY 2 LETTERS OR }";7."} NUMBERS. yOU MUST FORMAT A DISK }";j."} AT LEAST ONCE BEFORE USING IT. }";."} }";."} }";."}  pRESS return TO CONTINUE. }";5."";R.2023,253: 198,0:198,1av/(14)"";w/"NSTRUCTIONS";x/"} cOPY: }";y/"} }";/z/"} cOPY WILL DUPLICATE OR COMBINE }";b{/"} FILES ON ONE DISK ONLY. yOU }";|/"} MAY COMBINE UP TO FOUR FILES INTO }";}/"} ONE FILE. }";~/"} }";0/"} eRROR CHECK: }";c/"} }";/"} tHIS WILL TELL YOU WHAT ERROR }";/"} MAY HAVE OCCURED WITH THE DISK }";/"} DRIVE. uSE THIS OPTION WHEN THE }";//"} RED LIGHT ON A DISK DRIVE BLINKS. }";b/"} }";/"} rENAME: }";/"} }";/"} tHIS ALLOWS YOU TO GIVE A NEW }";0/"} NAME TO AN EXISTING FILE IN ANY }";c/"} DISK DRIVE. }";/"} }";/"} }";/"} }";1/"}  pRESS return TO CONTINUE. }";a/"";~/2023,253: 198,0:198,1/(14)"";/"NSTRUCTIONS";/"} vALIDATE: }";(/"} }";[/"} vALIDATE WILL REORGANIZE A DISK }";/"} MAKING ROOM FOR MORE FILES. iT }";/"} WILL ALSO ERASE ALL 'SPLAT' FILES }";/"} INDICATED BY: '*' IN A DISK }";'/"} DIRECTORY. sPLAT FILES must }";Z/"} BE ERASED BY A vALIDATE COMMAND. }";/"} vALIDATE MUST NOT BE USED ON }";/"} DISKS CONTAINING relATIVE OR usr }";/"} FILES. }";& /"} }";[ /"} iNSTRUCTIONS: }"; /"} }"; /"} yOU ARE READING THEM NOW. }"; /"} }";)!/"} eXIT: }";\!/"} }";!/"} cHOOSING eXIT WILL STOP THIS }";!/"} UTILITY PROGRAM. }";!/"} }";("/"} }";]"/"}  pRESS return TO RETURN TO MENU }";"/"``````````````````````````````````````";"/2023,253: 198,0:198,1" 0 1000