55,0:56,160R-------BLOCKMOD4------------------ -----------------JERRY BYBEE----------------- 404 ROSEMERE LN-MAQUOKETA,IA 52060 --USES SOME ROUTINES FROM-- --BACKUP 1541--I828883:A:I,A:I RE SURE HIT ANY KEY"::197,64,64C.;1,"B-A";0;T1;S1:1,"B-P";3;0_996,(3):997,(4):4,BB:MA3w3,(996):4,(997)ST.ST64"IEEE WRITE ERROR"ST"":19301,"U2";3;0;T1;S11050:ER1040CC1:C31000  READ BLOCK T1,S1 TO BUFFERC.) 3:1:1,8,15@1,"I0":3,8,3,"#"V 1,"U1";3;0;T1;S1i*1050:ER840|4CC1:C3800>ER$:JBB256BB256255:J,.:J:880H1,"B-P";3;0R996,(3):997,(4):4,BB:MA\3,(996):4, CONVERT"1!"TO AN AUTO BOOT FILE. THEN ENTER THE"2#"PROGRAM TYPE, EITHER BASIC OR BINARY."J2%"THE BOOTMAKER WILL THEN CONVERT YOUR"u2'"FILE. NOW WHENEVER YOU RESET YOUR "2)"C-128 YOUR PROGRAM FILE WILL BE LOADED"2+"AND RUN AUTOMATIROGRAM'S LOAD ADDRESSNC:NC1120/NC21090?NC31170ONC41270_NC51600o&NC61780x0450:1,8,15D1,"I0":3,8,3,"#"N760X"READING BLOCK #";bS1S11:S120S10:T1T11lT1TF1550REFUL. THE FORMATTING PROCESS " 0"WILL ERASE ALL THE INFORMATION ON A "70"DISKETTE. THE FORMAT DISK PROGRAM "c0 "WILL WORK WITH ANY COMPUTER AND DISK"q0 "DRIVE."{0 %END0%TITLE,AUTOBOOT MAKER0" THE AUTOBOOT MAKER PROGRAM ALLOWD%D:H$H$(48D%(D%9)7):D16(DD%)::R "DIRECTORY"::"TRACK";T1;:"SECTOR";S1::t " (# BLOCKS)" V07:V1;" ";:W015:((BA5V32W));:W:(BAV3230):V "NEXT DIRECTORY BLOCK:" "TRACK:";(BA)"SEBOX' CAN"-"NOT BE USED UNTIL IT IS PREPARED TO"$."STORE INFORMATION. THIS PROCESS IS "R."CALLED FORMATTING THE DISK. THE FORMAT"|."DISK PROGRAM WILL HELP YOU PREPARE"."YOUR DISKETTES FOR FIRST USE.".." TO USE THE PROGRAM :120 120* "HOW DO YOU WANT TO SEE IT?"r "(1) CHR$'S (DIRECTORY)":"(2) DECIMAL NUMBERS":"(3) HEXADECIMAL" "(4) DISK NAME,ID AND DOS" CA:  CA 390,300,330,350  CA1CA2CA3CA4230 "450 ,ZX0 6Q0248$:NA$NA$""V"NEW ID";ID$"`JE116Bj(BA143JE),((NA$,JE,1))JtJEt~JE12:BA161JE,((ID$,JE,1)):JE890:760::350:"(NAME,ID,AND DOS-AS READ FROM DISK)"::T118S10"YOU CAN ONLY UNSCRATCH A DIRE (BB(44)27:995,BB= 2998,(55):999,(56):55,0:56,BB:U <BB(995):BABB256` FMA828y P"":"BLOCK MOD4": Z:"DO YOU WANT INSTRUCTIONS (Y/N)";YN$: dYN$"Y"1330:120 nYN$"N"90 x"DO YOU WANT TO:":" (1) READ A BLOCK" "UNRECOVERABLE WRITE ERROR"ER$:19304 READ ERR CH TO ER,ER$k$1,E0$,E1$,E2$,E3$:ER$E0$","E1$","E2$","E3$.ER(E0$):ERER(E0$)8BT118S10"ONLY TRACK:18 SECTOR:0 HAS THE NAME & ID ":L"NEW DISK NAME";NA(997)fST.ST641050:830p9z WRITE BLOCK T1,S1 FROM BUFFER"HAVE YOU READ AND MODIFIED THE BLOCK FIRST....IF YOU HAVEN'T IT";"WILL REALLY SCREW UP THE ENTIRE BLOCK. TO ESCAPE HIT RUN/STOP-";"RESTORE""IF YOU':CALLY IF IT IS IN THE"2-"DISK DRIVE."2/%END,%%OMATICALLY ON THE C-128. THIS "D1"PROGRAM WORKS ONLY WITH THE C-128 AND"e1"1541 OR 1571 DISK DRIVES."k11" TO USE THE PROGRAM ENTER THE NAME OF"1"THE PROGRAM FILE YOU WISH TO v""3D$"D":3200:IR$I1$65041,"I0":3,8,3,"#"E890:1:201^"WRITING BUFFER #";~S1S11:S120S10:T1T11T1TF1650""3SS11:S20S0:T1T11TT1:TTF550D$"S":3200:IR$I2$750S YOU"0"TO CREATE A PROGRAM THAT WILL RUN"1"AUTOMATICALLY ON THE C-128. THIS "D1"PROGRAM WORKS ONLY WITH THE C-128 AND"e1"1541 OR 1571 DISK DRIVES."k11" TO USE THE PROGRAM ENTER THE NAME OF"1"THE PROGRAM FILE YOU WISH TO CTOR:";(BA1):Q:" WHAT DO YOU WANT TO DO TO THE CURRENT BLOCK ? (";T1;",";S1;")":" (1) NOTHING":" (2) CHANGE DISK NAME & ID":" (3) UNSCRATCH THE BLOCK" (4) CHANGE A BYTE":" (5) SEE A PROGRAM'S BLOCK SEQUENCE" (6) FIND A PENTER THE HEADER,"/"OR MAIN TITLE, OF THE DISKETTE. YOU"+/"CAN USE ANY TITLE YOU WANT. NEXT, "Y/"ENTER THE DISK ID. ANY TWO CHARACTERS"/"CAN BE USED. THEN INSERT THE DISKETTE"/"YOU WANT TO FORMAT AND PRESS ANY KEY."/"BE CA8:"";Q;")";:K07:(BAQK);:K::Q& @i JQ02488:Q;")";:Q107:D(BAQQ1):380:H$;" ";:Q1::Qo T ^T118S10"YOU NEED TRACK-18,SECTOR-0 TO READ THE NAME & ID": hN144167:((BAN));:: r" |H$"":DD16:I12:# CTORY BLOCK":1260"# OF PROGRAMS IN BLOCK";NO&JE0NO1>BB2562JE32,130FJEk:"NEXT BLOCK OF DIRECTORY IS:""TRACK:";(BB256)"SECTOR:";(BB2561)"YOU ARE TRYING TO UNSCRATCH":"TRACK:";T1:"SECTOR:";S1:" (2) WRITE A BLOCK^ " (3) REVIEW SOMETHING AGAIN":" (4) SELECT A NEW FUNCTION":" (5) STOPr RW::RW4450 RW3230 RW51530 "WHAT BLOCK DO YOU WANT?" "TRACK";T1 "SECTOR";S1: RW1760: 230:450 RW2890 THE""SPACE FORMERLY OCCUPIED BY THE"0"SCRATCHED FILE."6c" THE UNSCRATCH PROGRAM WILL WORK WITH""ALL COMPUTERS AND DISK DRIVES." %END%TITLE,LOAD ADDRESS" THIS PROGRAM ALLOWS A PROGRAMMER TO""CHANGE THE T WILL NOT WORK CORRECTLY."#[%END$]%TITLE,HEADER CHANGEC$_" THIS PROGRAM ALLOWS YOU TO CHANGE THE"o$a"HEADER, OR MAIN TITLE, OF A DISKETTE"$c"WITHOUT ERASING THE FILES ON THE DISK."$e$g" TO CHANGE THE HEADER OF A DISKETTE"$i"U NE" "C"CODE PROGRAM ALREADY IN MEMORY INTO"6"E"BASIC DATA STATEMENTS THAT CAN LATER"d"G"BE MERGED INTO A BASIC PROGRAM. THERE""I"ARE TWO VERSIONS, .C64 FOR THE 64 AND""K".TED FOR THE PLUS/4 AND C-16. TO USE""M"THE PROGRAM YOU MUST  HEADER CHANGE PROGRAM WILL WORK"&y"WITH ANY COMPUTER AND DISK DRIVE."'&{%ENDA&}%TITLE,C64 AUTOSTARTl&" THE C64 AUTOSTART PROGRAM LETS YOU"&"CONVERT YOUR MACHINE CODE AND BASIC"&"PROGRAM FILES INTO PROGRAMS THAT WILL"&"AUTOMATROM DISK OR FROM TAPE. IF YOU CHOOSE"2 '"DISK, THE PROGRAM WILL THEN ASK WHAT"` )"DEVICE NUMBER TO USE. NEXT ENTER YOUR" +"CHOICE FOR SCREEN OR PRINTER OUTPUT." -"THEN ENTER THE NAME OF THE SEQUENTIAL" /"FILE YOU WANT TO LIST. USE TH'"NAMES: THE NAME OF THE FILE YOU WANT"'("TO CONVERT AND THE NEW NAME FOR THE"S("AUTOSTART FILE. THIS PROGRAM IS NOT"w("FOR BEGINNERS SO BE CAREFUL."}((" C64 AUTOSTART WORKS ON THE C-64 WITH"("A 1541 OR 1571 DISK DRIVE." " THESE DEMO PROGRAMS ARE SIMPLE. TRY"7 "MODIFYING THEM TO SUIT YOUR OWN "e "PURPOSES. THEY WILL WORK WITH ANY DISK""DRIVE AND COMPUTER. (YOU WILL NEED THE""3K EXPANSION CARD WITH THE VIC-20.)"%END%TITLE,SEQ LISTER "DRIVEN. ALL COMMAND KEYS ARE DISPLAYED"*"AT THE MAIN MENU."*B*" DISKPATCH FUNCTIONS INCLUDE READING A"p*"SPECIFIC TRACK AND SECTOR, READING THE"*"BAM AND VIEWING THE DIRECTORY. YOU "*"MAY ALSO MODIFY AND REWRITE THE DATA ""CBM COMPUTER, USE A LOAD ADDRESS OF"#"1025 DECIMAL.))U" THE LOAD ADDRESS PROGRAM WILL WORK "~"WITH ANY COMPUTER AND DISK DRIVE."%END%TITLE,REL.FILE.DEMO AND SEQ.FILE.DEMO" THESE TWO PROGRAMS ARE INCLUDED ON""RINTER TEST," THE PRINTER TEST PRINTS A LISTING OF"-,"CBM ASCII CHARACTERS IN A FORMAT THAT"[,"ALLOWS EASY CHECKING OF THE ELECTRONIC","AND MECHANICAL COMPONENTS OF THE","PRINTER. SINCE THE PROGRAM INCLUDES A","CHECK OF GRAPHWO BYTE LOAD ADDRESS OF"-"ANY FILE ON A DISKETTE. THIS IS "X"USEFUL FOR CREATING BASIC PROGRAMS ""THAT WILL RUN ON ANY CBM COMPUTER AND""OTHER SPECIAL PURPOSES. TO USE THE""PROGRAM, JUST ENTER THE FILE NAME OF ""THE PRSUALLY REQUIRES YOU TO RE-FORMAT THE"&%k"ENTIRE DISK WHICH ERASES ALL FILES."R%m"WITH THE HEADER CHANGE PROGRAM, YOU "}%o"CAN CHANGE THE HEADER NAME WITHOUT "%q"ERASING ANY OF THE OTHER INFORMATION "%s"ON THE DISKETTE."%u%w" THE KNOW THE STARTING"#O"AND ENDING LOCATIONS OF THE MACHINE"C#Q"CODE THAT YOU WANT TO CONVERT. THE "o#S"PROGRAM WILL ASK WHAT LINE NUMBER TO"#U"START THE DATA STATEMENTS AT. PICK A"#W"NUMBER GREATER THAN EIGHT (8) OR THE "#Y"PROGRAM ICALLY RUN WHEN LOADED. BOTH"'"THE STOP AND STOP/RESTORE KEYS ARE"G'"DISABLED BY THE AUTOSTART LOADER. SO"q'"YOU CAN USE THE PROGRAM TO PROVIDE"'"SIMPLE PROTECTION FOR YOUR PROGRAMS."''" YOU WILL BE ASKED TO ENTER TWO FILE "E SEQ"!1"LISTER PROGRAM TO FIND OUT THE DETAILS"7!3"OF HOW SEQUENTIAL FILES WORK."=!7k!9" THE SEQ LISTER PROGRAM WILL WORK WITH"!;"ANY COMPUTER AND DISK DRIVE."!=%END!?%TITLE,DATAMAKER.---!A" THIS PROGRAM WILL CONVERT A MACHI(%END(%TITLE,C64 DISKPATCH)" C64 DISKPATCH IS A MACHINE LANGUAGE"F)"PROGRAM FOR THE C-64 AND 1541 DISK"p)"DRIVE THAT LETS YOU READ, DISPLAY,")"MODIFY AND REWRITE DATA BLOCKS TO AND")"FROM A DISK. THE PROGRAM IS MENU ")" THE SEQUENTIAL LISTER PROGRAM CAN BE"7"USED TO EXAMINE THE CONTENTS OF ANY"d"SEQUENTIAL FILE ON DISK OR TAPE. YOU""CAN LIST THE FILE ON THE SCREEN OR ON""THE PRINTER."!#" THE PROGRAM WILL ASK WHETHER TO READ" %"F *"IN A BLOCK WITH THE SPECIAL MODIFY "!+"MENU. USE THE CURSOR KEYS TO SCROLL "O+"THROUGH THE DATA IN THE BLOCK AND THEN"b+"REWRITE IT."h++" USE THIS PROGRAM WITH CAUTION. IT IS"+"NOT FOR BEGINNERS."+%END+%TITLE,PTHE TEST/DEMO DISK AS PROGRAMMING"6"EXAMPLES AND CAN BE USED AS GUIDELINES"c"WHEN WRITING YOUR OWN PROGRAMS. THEY""ALSO SHOW THE IMPORTANT TECHNIQUE OF""CHECKING THE ERROR CHANNEL AFTER EACH""ACCESS TO THE DISK DRIVE."IC CHARACTERS, IT IS "-"INTENDED PRIMARILY FOR USE WITH CBM"0-"PRINTER MODELS 1525, MPS-801 AND "]-"MPS-803. THE PROGRAM WILL RUN ON ANY"}-"COMPUTER AND DISK DRIVE."-%END-%TITLE,FORMAT DISK-" A DISKETTE 'RIGHT OUT OF THE OGRAM YOU WISH TO CHANGE." 3" THE CURRENT LOAD ADDRESS WILL BE"^"DISPLAYED. NEXT ENTER THE NEW LOAD""ADDRESS YOU WANT TO USE AND THE FILE""WILL BE CHANGED. (HINT: TO CREATE A ""BASIC PROGRAM THAT WILL LOAD ON ANY "  CL mL3ͭ  ɩ`ͭ$ͬ͹lL"L ͭ#ͬ͹lLCL ͹lL ͭ$L ͭͭ#ͬ͹lL `"΅#$υ%ȱ$"L WL ɍ ` ȱ" ,  ,   ɩ 3L"#"8d" 0 [#"8 "# 0 [" 0 LmL ȹ  "΅#ȱ" 3 L  `  r ) 3 $נ@  3hhL 3 I L!? L $@D L8 C i `8 CL.H$JJJih) mi $ 9`JJJih)iL$VA)iL$VAiL$VA)iL$VA= 0( 2 L$" ------------------------------------- "> "";L$e" HOW TO USE, PART 2":L$("PRESS P TO PRINT A COPY OF THE"-"INSTRUCTIONS ON YOUR PRINTER."2"PRESS ANY OTHER KEY TO VIEW THE"<"INSTRUCTIONS ON 8x0 i L? L $@D L8 C i `8 CL.H$JJJih) mi $ 9`JJJih)iL$VA)iL$VAiL$VA)iL$VA= 0(MA$"%%":4:4:89%OA$"%END"70BQA$"%T"4,L$:XX1:70WSA$"%TITLE"87UA$:4:4,L$:4,((40(A$))2));A$:4,L$VXX4:75W4," "A$:XX1:75YA$[A$"%%"115]A$"%END"109:89_A$"%TITLE"A$"%T" 2LOCKS FREE : RK.[=]-SED SECTOR : [.]-REE SECTOR ɍ  ɠȹ ɹ L/X00:0A0G 1ɭ"80 08 ɹ) əL80 08ɹ)L) L/ɬəέ8JJJiUCTIONS"%u"AGAIN, OR PRESS Q TO QUIT."8wA$:A$""119FyA$"Q"L{d%TITLE,CHANGE UNIT" THE CHANGE UNIT PROGRAM ALLOWS YOU TO""TEMPORARILY CHANGE THE DEVICE (UNIT)""NUMBER OF A DISK DRIVE. THIS IS USEFUL""IN "i:Ɋi0ɭ mLmhhhɩɍ LLhILENAME YPE IZE RK. ECT. RESS ..... ELEQRGSRELHHHɍɩͩ    $  &'()&&$7(( ɥ) ɠ M MN "#"ENTER THE NEW DEVICE NUMBER, USUALLY"Q"9. THE DEVICE NUMBER CHANGE WILL LAST"{"AS LONG AS THE DRIVE IS NOT RESET."" THE CHANGE UNIT PROGRAM WILL WORK ""WITH ALL COMPUTERS AND DISK DRIVES."%END%TITLE,UNSCLf$騭0lܭ ͙ĭ͙ĭ΍ͭ΍Lɭ č͹čLHɍɍɭHHͩ   m M $ȹɠ mL} M m $@   ɍ ɩ$΅% LL ɠ$H$% h`  0 3   $ CLhHɢ 8d ɭ d L yd Ɋ,0LU 0 mh 0Lm'd #5#4U1:5,U2:5,B-P5,0, % $ m m $ m , mL" NOTE THAT UNSCRATCH MAY NOT WORK"A"IF THE DISKETTE HAS BEEN WRITTEN TO OR"n"HAD OTHER FILES SAVED ON IT SINCE THE""ORIGINAL FILE WAS SCRATCHED. THIS IS""BECAUSE ANY DISK OUTPUT AFTER A FILE""HAS BEEN DELETED MAY USE SOME OFSCREEN.">A$:A$""62(?A$"P"89T@"MAKE SURE YOUR PRINTER IS ON AND"}A"CONNECTED. ADJUST YOUR PAPER."B"PRESS ANY KEY WHEN READY..."CA$:A$""67D4,4:4:X12:75FX5275HYX72:4,"":Y:X6KA$(<  L WARNING: THIS PROGRAM IS INTENDED FOR EXPERIENCED PROGRAMMERS. MAKE A BACKUP COPY OF THE DISK YOU WILL BE WORKING ON BEFORE USING THIS PROGRAM...!  107aA$"%T"101cA$:T$A$(e"";L$Bg((40(T$))2));T$ui" -------------------------------------":89k" "A$:89m" ";oK$:K$" "111qs:"PRESS ANY KEY TO VIEW INSTR $)   JL/|J9hhL 1ɭL 1hhɭhhLL 1ɍɩL 1ɭLy88 L 1 ɭ8ɰ  L 10080  8L 18 SYSTEMS THAT HAVE MORE THAN ONE "E"DISK DRIVE, SINCE EACH DRIVE MUST HAVE"r"A DIFFERENT DEVICE NUMBER IN ORDER TO""WORK RIGHT WITH THE SAME COMPUTER."" TO USE THE PROGRAM, ENTER THE OLD""DEVICE NUMBER, USUALLY 8, AND THE $  hhhL'' 'iH Mh $ &"  C >&# '  L&l%& ȹ΍ XL|ɠ nɰ= mL]().`ȹ΍ Xȹ΍ɥ%8ɨL] ECTOR 012345678901234567890 0 1  RATCH$" THIS PROGRAM ALLOWS YOU TO RECLAIM A"N"FILE WHICH HAS BEEN 'SCRATCHED' OR"z"DELETED FROM THE DISKETTE DIRECTORY.""TO USE THE PROGRAM YOU MUST KNOW WHAT""KIND OF FILE WAS SCRATCHED (PRG, SEQ,""OR REL)."ɭ ` ɩ$΅% ɠ ` ɭ   M iɨ $ ɠ mLNɢ $) Y m $ H Hύ ɭύ h h ɢ $υ" ɢ# $υ" ɍɥ"  0"8 " " MACHINE CODE TO DATA STATEMENTS":" MACHINE CODE LOCATIONS IN DECIMAL:":"  START OF MACHINE CODE";A:"  END OF MACHINE CODE";B:" DATA STATEMENT LINE NUMBERS:" "  INITIAL LINE NUMBER";L:"  LINE-NR STEP";S:6: ( " CHANGE DISKETTE HEADER-NAME"P " DISK UNIT NR (8-15) ?8 ";v U: U8 U15 "": 20( " DISK DRIVE NR (0/1) ?0";2 D: D0 D1 "": 40< " PUT TARGET DISK IN UNIT";U;" DRIVE";D F " THEN " NEW NAME (MAX 16 CHARACTERS) OR 'QUIT'"V " ? QUIT";N$: L(N$): LV 130v N$"QUIT" "";: 370 " OK TO WRITE NEW HEADER-NAME (Y/N) ? Y"; X$: X$"Y" 130 LV 220 XLA V: N$N$P$: 1,"2,U,2,"#": 350: H$""+ @1,"U1:";2;D;T;S: 350J J1,"B-P:";2;144: XA Ve T#2,T$: H$H$T$: :  ^1,E,M$,J,K: E0 h " ERROR: ";E;M$;J;K r 2: 1: X$: X$"Y" 130 LV 220 XLA V: N$N$P$: 1," 7424Lb !( 9e !` LmL $& C` a C 8 !`ɨ ɬ` ɠ  9L}"#Ɋ)ȱ"^ɩ(8J)? $)@ mȱ" ^ mLLm OMMAND EQUIRED . CRATCHED FILE: ";F$: W 290= " REVIVE MORE FILES (Y/N) ? Y";W X$: X$"Y" 520j 2: 1: 901,E,M$,J,K: E0  " ERROR: ";E;M$;J;K 2: 1: G0  " RE-BUILDING VALID BAM" " ON DISK-UNIT";U;"  ' ȹ H# $h m#L  $@ N k L =64 ISK ATCH ---------------  $  ' 9 L ݫݭ'''$'$$'۱%%%  iɭ``8L  M ɹ w C a M ɹ  m mJJJJ k mLm 0:0iLmHJJJJ k h)Lk ɨ L $  mɨ m $?    C  $( m$ m w123456789:;<=>? `abcdefghijklmnopqrstuvwxyz{|}~@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_Щɍɍɍɍɍččɍɍɍ ɍ͍̩ͩͩͅL  ɭL  $ E f   1 i) L2!i)!L3i) L`NC. RACK ..[F 1]:EAD RK/ECT. .[]EC. RACK ..[F 2]:RITE RK/ECT. []NC. ECTOR .[F 3]:ISPLAY ATALOG []EC. ECTOR .[F 4]:ISPLAY ... .[]EAD INK + .[F 5]:OGGLE NIT .START 0,0,0,0:0 A$:A$"START"A$"":57 3s A:B:L:S:S0"THE DATA STATEMENTS ARE FORMED": CA7:CBCB:S0% JAC:A$A$(((J))",",2)::"GOTO3":198,4:631,13:632,13:633,19:634,13:"2DATA"A8","B","LS","S PRESS ANY KEY TO CONTINUE"/ P X$: X$"" 80R ZA1: V16: Q$(34): P$(160)r dT18: S0: I$"I"((D),1) n 1,U,15,I$: 350 x 310: F$H$: #2,X$,X$,A$,B$ " CURRENT HEADER-NAME ";Q$;F$;Q$ " DISKETTE ID IS: ";A$;B$' B-P:";2;144: 2,N$;) 1,"U2:";2;D;T;S: 350? 1,I$: 350: 2c " OLD HEADER-NAME ";Q$;F$;Q$w  310: 2: 1  " NEW HEADER-NAME ";Q$;H$;Q$  " CHANGE ANOTHER DISKETTE (Y/N) ? Y"; " X$: X$"Y" 60 , "";:  6 IFY...AT. RWCBMUITZ ? ɠȹ >ɹ?  L@m 6W$ hhhLLͅ L3ͅ L3 L   "΅#$υ% "$L3"# ɠ*؅+**+*+`H $hH m"h`H $hH m' 9"h`RACK ECTOR NIT 8:RIVE 0AST T/S $0123456789ABCDEF ELECT ? FOR ENU 0/ 1/ 2/ 3/ 4/ 5/ 6/ 7//8 /9 /A /B /C /D /E /F H     ) DRIVE";D& 1,U,15,"V"D$: 1: 0- W 2906470[ " 1=SEQ 2=PRG 3=USR 4=REL" " ENTER FILE-TYPE (1-4) ? 1"; P: P1 P4 "": 4001,"B-P:";2;H: 2,(P128);1,"U2:";2;D;T;S: 500:G1 " UN-S("L "L+ H mh mLm   % ȹ H# $h m#LA  $  $  $i @  $r @  ${ @  $  &L ` # ɍɩ ``iɍɩɪ $ ) m $G    C  $( m$ m w ) m $O  0 0 $^  w / m$ mLw   !"#$%&'()*+,-./0123456789:;<=>?  !"#$%&'()*+,-./0 L ODIFY ATA XIT ODIFY .............. [F 1]ESTORE RIGINAL ATA .... [F 3]OGGLE EX TO ...... [F 5]SE [] & [] TO LOCATE CURSOR $+ m $̠ m $m m $ m   L EVICE NOT RESENT  ...[]EAD INK - .[F 6]:NITIALISE ISK []EAD ECT. + [F 7]:ESTORE ATA ...[]EAD ECT. - [F 8]:ODIFY ATA ....[]HANGE ORDER[1]:ACKGROUND[2]:EXT[3]CROLL UP/DOWN .[]:ERMINATE ..[]RESS TO REDISPLAY DATAENU IEW OD-:A$(L)"DATA "A$:(A$,(A$)1):"":S":" MACHINE CODE LOCATIONS IN DECIMAL:":"  START OF MACHINE CODE";A:"  END OF MACHINE CODE";B:" DATA STATEMENT LINE NUMBERS:" "  INITIAL LINE NUMBER";L:"  LINE-NR STEP";S:6:  Q20:QS0:QE0:F0F" DISPLAY BLOCK ALLOCATION MAP"p " DISK UNIT NR (8-15): ? 8 ";U( U8 U15 "": 302 " DISK DRIVE NR (0-1): ? 0";D< D0 D1 "": 50F " PUT TARGET DISK IN DRIVE";  Z$(0): B$(2)< " CHANGE DISK DEVICE NUMBER"g " IF  ALL DISK UNITS ARE STILL"( " DEVICE NR 8, THEN POWER-OFF ALL"2 " BUT THE FIRST UNIT TO BE CHANGED."< "  OLD DEVICE NR (8-15): ? 8 ";F F F8 F15  " DEVICE";F;"CHANGED TO DEVICE";TN " CHANGE MORE UNITS (Y/N): ? N";C$a C$"N" 260 C$"Y" "": 170 " OK, POWER-ON NEXT UNIT TO CHANGE" 60#1,C$: C(C$Z$) ST0  " DEVICE ERROR ON";F: 2040 / V1.2")J C213 M12: A$"4040 / V2.1"/TG^1,"M-R"(234)(16)_h 220: C1 2700~r C0 A$"4040 / V2.7":|1,"M-R"(172)(16) 220: C1 C2 250 C1 A$"8050 / V2.7" C2 A$"8250 / V2.7"W$":"bXX134:#96,A$:XX;l#96,A$,B$:F(A$(0))256(B$(0))Ev96:/N) ? N";A$t 2: 15: A$"Y" z (Y$,Y);(X$,X)"";QS1470#2,C$#2,A$: B(0)(A$Z$)#2,A$: B(1)(A$Z$) #( " REVIVE SCRATCHED DISK FILES"Q " DISK UNIT NR (8-15) ?8 ";w U: U8 U15 "": 20( " DISK DRIVE NR (0/1) ?0";: G02 D: D0 D1 "": 40< " PUT TARGET DISK IN UNIT";U;"DRIVE";DF "AT DISK.":" CAN ONLY READ SIDE ONE ON THIS DRIVE."Z " VIEW ANOTHER DISKETTE (Y/N) ? N";A$t 2: 15: A$"Y" z (Y$,Y);(X$,X)"";QS1470#2,C$#2,A$: B(0)(A$Z$)#2,A$: B(1)(A$Z$) #% RjF>Њ F<>R2RPˊ͓)`F2RPVђVFWF WF$mWF.W(ëCV(ˊ[)F(VFCV(×Fh#W(×hF.`zWF ѧWF FѧWѧWmWF0(J),2);"";:QS12509#2,A$:#2,A$: #2,A$: #2,A$R(A$(0))128Q21rQ21QS031)"(SIDE 1)";Q21QS131)"(SIDE 2)";QS0TT1 35:TTTQS1TT3670:TTT35" 450,Y22: XT5: 430: 5106:QN$(N$,V): L(N$), (N$,1)"*" 170MLL1: N$(N$,L): W1: 190] LV 190 XL1 V: N$N$(160): : LV 1,U,15,"I"D$: 500 2,U,2,"#": 5001,"U1:";2;D;T;S: 5001,"B-P:";2;0: #2,A$,B$TR(A$D;"UNIT";U-P " THEN PRESS ANY KEY TO START"DZ A$: A$"" 90^dZ$(0): D$((D),1)nY$""xX$""}15,U,15,"U0>M1":15 15,U,15: 15,"I"D$: 2,U,2,"#" QQ1 "": 60;P "  NEW DEVICE NR (8-15): ? 9 ";T\Z T8 T15 "": 80yd 1: 1,F,15: ST 240n1,"M-R"(255)(255)x 220: 270 " UNIT-TYPE/DOS VERS: ";A$1,"M-W"(M)Z$B$(T32)(T64) ST 240! 260 " UNKNOWN DEVICE TYPE";F( 1: B C198 M12: 350h C255 M12: A$"D90XX / V3.0"" C254 M119: A$"1571-1541/V3.0-2.6", C242 M12: A$"8050 / V2.5"6 C241 M12: A$"1551 / V2.6"@ C226 M50: A$"n:81223482408122320121V:ER STATEMENT OBTAIN UPPER LOWER CASE CHARACTERSX:IN THE OUT.b:R:UNSCRATCH RECOVERS A FILE WHICH HAS PREVIOUSLY BEEN SCRATCHEDIRECTORY": 470(@ " THERE IS NO SCRATCHED"JE " FILE WITH THE NAME: ";N$dJ " IN THE DIRECTORY"T X1 4000: : 490^A(A$Z$): B(B$Z$)h " FOUND FILE: ";F$r " AT TRACK";A;" SECTOR";B| " WANT TO REVIVE THIS FIL THEN PRESS ANY KEY TO CONTINUE"4P X$: X$"" 80bZ " ENTER SCRATCHED FILE-NAME (OR END)"d " USE * AT NAME-END FOR WILD-CARD SEARCH"n " ? END";N$: N$"END" 520xV16: Q32: F256: T18: S1: W0Z$(0): D$((D),1)2,A$: B(2)(A$Z$): & "";: T$((TT),2)G(T$,1);"";(T$,1);"";_L20: T17 L18q T24 L17& T30 L160 S0 L:Z2(S(S8)8)(B((S8)))D Z0 "ё";: : N "+";: : X96,U,0,"$"DE (Y/N) ? Y"; X$: X$"Y" 410- W 2906470[ " 1=SEQ 2=PRG 3=USR 4=REL" " ENTER FILE-TYPE (1-4) ? 1"; P: P1 P4 "": 4001,"B-P:";2;H: 2,(P128);1,"U2:";2;D;T;S: 500:G1 " UN-S21QS1350 @15,"B-P";2;144: N$""DJ J1 20: #2,A$: N$N$A$: NT 600j^ Y$;" PRESS ANY KEY ";h A$: A$"" 350rQ21QS0QS1:140| " DISK HEADER = ";(34);N$;(34):F;" BLOCKS FREE")QE1"1571 FORMZ$): SC(B$Z$): H2*1,"B-P:";2;H: #2,T$FC(T$Z$): C0 290f#2,A$,B$: F$"": X1 V#2,T$: F$F$T$: : F$"" 310 L0 N$(F$,L) 350"HHQ: HF 240, TR0 TTR: SSC: 2106 W " END OF D8:QS1QQ53 15,"U1:";2;D;QQ;0115,A,B$,C,DKA66QQ53QE1:380A0"DOS ERROR:"A;",";B$;",";C;",";D:15:15,"B-P";2;0 "";Y$;" = BLOCK USED";Y14: X1: 430 "SECTORS";  J0 20: ( vC!6SxRx@8FEPFIS DISK WITH D.D.D. IN 0 (Y/N)?a}88FYRLRRRFI0RRRFDAVID'S DESIGNER,P,RұFRR%RLF"LOADING DAVID'S DIRECTORY DESIGNERaҀ8F0:DAVID'S DESIGNERRFFF'F YOU FIND THIS PROGRAM  NEW NAME aRzV(ëOCONFIRM O (Y/N)?a}88FNkIFYѵIFRRRR$OIұF%BJR$ORO:O=F:.,ұFF RENAMING .,F TO %BJRtқ=tRRRRFI0ұF%JRFI1ұF%J,"U COPYRIGHT (C) 1985 a҇8F DAVID LOVELOCK a҇8F a҇8FPERMISSION TO COPY BUT NOT SELLa҇8F a҇8@=b}@;U"=Ίb$U@ R ͅ)b"Қ7Қ7ў8RRR RC؊ UlR7F R@F .,RY2,F $ONO FILES IN DRIVE a҇8Ҳ7F_G؊ U U@lF U? F  > FIS THIS THE ONE (Y/N)?a}8WgF:HFNхHF U? F *5,ѲH5,,,U RENAME FILES/FP VALIDATE DISK/FQ INITIALIZE DRIVE/FR FORMAT DISKF DRIVE: S RESET THE DRIVEF T STATUSXF!PRESS LETTER (A - T), OR ^ TO ENDa}8X8F^8F j'SF jKX*SF *U@`F/_)?a}88FRF_ыEF_ER@ OWHICH ONE A - O, OR _ ?a}88F_EFAR@ EH\E;PL2#Uf#Ri8F&ˊX(@9Rˊ(ҋGҲ7F_*F՞ bFk@9)ˊ(ҋGҲ7F_UFRRR$RSRRR$a҇8F& VERSION 1.4 a҇8F&BOTH DRIVES: A LOAD DIRS INTO MEMORYF# B SEE DIRS IN MEMORYFCOPY 0 TO 1: C SELECTED FILESF% D ALL FILES (- FORMAT)/FE ALL FILES (+ FORMAT)F% DRIVE 0: FILES FROM DRIVE O (Y/N)?a}88FY;PsL2#ˊ(F5"JsՊқ=;PҤ7Bҫ7BRRRRFUIR"D$ODELETE OPTION : DRIVE a҇8RRRRReup%O 50a}7RS$ORENAME OPTION : DRIVE a҇8Ҥ7цDҫ7цBTAIN A DEMO VERSION OF ... SEND AF&DISK AND POSTAGE TO THE ABOVE ADDRESS,F%OR CHECK WITH YOUR LOCAL USERS GROUP.F'O BECOME A REGISTERED OWNER OF ...,F%SEND A TAX-DEDUCTIBLE DONATION OF $15F'TO THE SAME ADDRESS. LL MONIES RAISEDF&IN Ir2L@2RR2RPˊ͓)`F2RPVђVFWF WF$mWF.W(ëCV(ˊ[)F(VFCV(×Fh#W(×hF.`zWF ѧWF FѧWѧWmWF0USEFUL, PLEASEF'SEND A TAX-DEDUCTIBLE DONATION OF $5 TOF a҇8F .... a҇8F .. OX 32548, UCSON, 85751a҇8F a҇8F'NOTHER PROGRAM YOU WILL FIND USEFUL F CANNOT COPY ."UJR."UOC1:O=0:"UF COPYING  ."UF FRRRRR$OIұFREKR$OSO:."F DELETING  ."F ұFRF  DELETED R;O R ؊wRwC 7SvR $OIұF%RRRF#ұF%RFU1R#RϞRFB-PRRRFA6#6#R#ˊ(RRbRFB-PRRRF6##RR!U(UF !Fh:ˊ[)F.:ˊ[)FRRrR' R(rLVRU({ѲHF U? F 5,,,,U{FK&F O O BLOCKS LEFT a҇8؊ U U@lF U? F  > FIS THIS THE ONE (Y/N)?a}8WgF&IFNTIF U? F *kIF U? F xGRRFF WKFpKFщKFѢKFAFT*S U@}+X=jX=ѳ9{?;>>9)8CzDAAR }=ѩ9/8CDAA9C"DFFRRF a҇8F DAVID'S DUAL DISK DRIVE AID a҇8F a҇8F ұF%SRқ=;PRRR$RSRқ=SReupRFҊ7RR%O 50O a҇8RRҲ7Ҋ7؞qReupҊ7RR%O 50O a҇8FABORT OR PROCEED (A/_)?a}88FAF_TGF_xGRqҊ7@  LOAD DIR INTO MEMORYF G SEE DIRECTORY/FH DELETE FILES/FI RENAME FILES/FJ VALIDATE DISK/FK INITIALIZE DRIVEF% DRIVE 1: L LOAD DIR INTO MEMORYF M SEE DIRECTORY/FN DELETE FILES/FODL2#јDg7SL2#Uf#RiUE&ˊX(FYDRˊ(ҋGFRENAME OR PROCEED (R/_)?a}88FRF_DF_LEFWHICH ONE: A - T, OR _ ?a}88F_LEFAFT'EHѺD՞ EkFYD)ˊ(ҋGFRENAME OR PROCEED (RTHIS WAY WILL GO TOWARDS PURCHASINGF'COMPUTER EQUIPMENT FOR EARCH & ESCUE.F%OR DETAILS SEE THE ECEMBER ISSUE OFFOPULAR OMPUTING (PAGE 53).F)  .Ҳ7;PjFFF& DAVID'S DUAL DISK DRIVE AID F9ѧW(V h CV(ѧWF(ˊ[)F՞ҭWCVR ˊͯ)CRCR* F  R jX>F<>F>Њ F  R j+XF>R F ISF' a҇8F(HAT PROGRAM ALLOWS YOU TO DO MANY, MANYF&DIFFERENT THINGS TO A DISK - REARRANGEF'THE DIRECTORY, LOOK AT SEQUENTIAL FILESF(AND PROGRAMS ON DISK, EDIT SECTORS, DUMPF(DIRECTORY TO PRINTER, AND MUCH MORE. OF&O ,.V2dvRwRxFFC!6C 7@8S,"O R,,O RFNO FILENAMES LOADEDa}8ҭWҚ7Қ7@ RC@ˊ  RRFI0RFI1FFORMATTING & DUPLICATING DISKa}8RFD1=0F?q?ъ?Rё=F#ABORT, DELETE, SELECT, _ (A/D/S/_)?a}88FDF_FAFS@$cL2#6#@6#\U%؊RRRR$OIұF%؊R$O$ұ 1dқ=;PF$OPLEASE WAIT - READING DRIVE a}8FB@%L2# GҲ7؊t@9L2#ˊ(=7F ."RY2"F Ҳ7؞ U U@,؊ FCAN'T COPY FILES OF LENGTH ZEROa}7F!ABORT, COPY, SELECT, _ (A/C/S/_)?aGl>FC&k ;G;՞ <kFFCOPY FROM 0 TO 1 OPTIONa҇8FK O O BLOCKS LEFT a҇8)ˊ(ҋGl>FCFY9SFF DISK NAME aRzV( F FLOVELOCK FCONFIRM NAME IS  F (Y/N)8FYW:F 99F9FDISK ID aRzV(FFDLU FW:FCONFIRM IL2#UѡA Ѡ@RL2###.?L2#Y2.L2#,FI|F0dcFFI|F1dcFFV|F0dvFFV|F1dvFL2#Bg7SL2#ˊ(5"L2#Uf#RiB&ˊX(FDRˊ(ҋG?FD&kVCFA&k;PF_BFWHICH ON͡)F0dcF1dcFPRESS _ TO PROCEEDa}8W`F_7RRR$OIFR8qS7R$F@=Ҳ7;PW`F8Ҥ728ҫ7F#SEE DIR ON DISK OR IN MEMORY (D/M)?a}88FDFM[8FD7u?{GRR!U&UF !F  F%؊`gL2#`g`gFFnF F 'Ig鞀 ѡAF"@gF"'@?UA?Uˊ(gՊgF A'ngF&AROPRG F PRGnҧAROSEQ F SEQnҧAROUSR F USRnҧAO* RnҧA}88FCF_FAFSѓ>>FYъ?SF!FORMAT THE DISK IN DRIVE 1 (Y/N)?a}886I6FNOT ENOUGH ROOMa}7SFCONFIRM COPY ALL FILES (Y/N)?a}88FYN?SL2ˊ(FCJq?L2bqё=)9;PҤ7)9ҫ7)9;PRR OWHICH ONE A - O, OR _ ?a}88F_ ѓ<Gѓ<FNOT ENOUGH ROOMa}7;PsL2ˊ(5"sL2b՞;PF$CONFIRM COPY FILES TO DRIVE 1 (Y/N)?a}88FY;PL2ˊ(F5" CJѐ=L2bqFD IS F (Y/N)8FY:F99FW:RRRRFI1R ON1:O,ұF%;PRё=L2;g7SL2ˊ(5"՞cL2UfRL2i6{<&ˊX(FFCOPY FROM 0 TO 1 OPTIONa҇8FK O O BLOCKS LEFT a҇8Rˊ(E: A - T, OR _ ?a}88F_BFAFTѝBGB՞ VCkFD)ˊ(ҋG?FDVCFA;PF_VCR@ OWHICH ONE A - O, OR _ ?a}88F_VCFAR@ ,CGCsL2#ˊ(5" sL2#b՞;P$ODELETE FF yF oF ~FmRˊ(F mRˊ(5";PFCONFIRM EXIT TO BASIC (Y/N)?a}88FYSFL2# @9GGEF$ODRIVE a҇86#'FTHIS DISK IS WRITE PROTECTEDa҇8у96#O BLOCKS FREE a  L& dldlLrLz Yem$n%ll 2L& Yed8l_eem$n% 2L&  (L& ݽȄeȹdf (L& YeȄ$Ȅ% 2L& dfL& `L` `ln8dmi`mZʊee$f% 2L& Ye`L&   m$e?d@p-cmRm&lldmeL& deL& imeldLi %l$mL&L&  fEnoa {L& %$ ?@? LF LdedȄL& e"f#d   L& L& d(l ldem d```l e' T'N N V'8fX t'XSFXN_ȱN_" e'56 V'N_^"NO43 O'N t'0LF'" e'56 V'L&5634` e'I8eNONO`I8e_`_``N"`& & , = D Gdmeme` `h`hp` ;Lde L ;0/ `eIedIdedL& fIfL& %e/emed0eldpL&  fEnoa jL& Lb%8e/meed0lddpL&  fEnoa SL& L%8e/med0ldp L&  $fPePdPcPbPaPL& Ь͠P2%P$P$ȑ$f2 dȱe (dPiQeȊefPePdPL& edL& mlL& /   cd0/ L&  L& O\  ^%$q]$ h 2\L"̿" /!0/%/$/d$/$/$/i/0` DLt `Lt9/ȱ90ȱ9/ȱ9/ȱ9e99:L, 9Pȱ9Q9i9:PPHȱPHȱPHH PHHPHQHHL$L5hh0h/h/h/h/h/L& h/L& m!9H:HH/9B70FB32 C204C255B32 C228C255C201B13 C240B60ef=e=d=L& 9Iȱ9J9i9:L, 9/9i9:90`\ 8I$Jʆ%$P/0Fdfe /eP/0eQ0P&QY8lee)ʊem$n% 2L& deedȄL& LH &831e42dL& / ed &d &deeedeIeJ/>=>L& /0/Naȱ/f bȱ/cȱ/dȱ/epL& / e d*eIeJ/D>=L& /0/dȱ/eL& / e C169A1B32 C195C255C169B36$C133C250C169A1C162A8C160A0B32 C186C255C169A2C162C250B32 C189C255B32 C192C255C169B64@B32 C144C255C162A1B32 C198C255B32 C144C255B32 C207C255B32 C207C255B32 C207C255B32 C207C255C201A0C240` )"- )$  % deL& deȄL& L5 &e$f%dd6Ȅ/43/ʆ43ef33$3$342F`f`LX8delp/3/43lm3m3le3$4%de$e$/33d3e4f2 U e v      fEnoa SfIfL& L%{l%m$ibcjkEFe/d0El\FdfebembcelcjeEjkeFkm&l&E&F֥becdE\0kjk iL& L+iLT fEnoa +L& %$ ? L| %de ;fEnoa L&  L%kl%&  L& dLHe"f# L& &`pL& &hL& ڡiI>)HȘ2/FEȹȄ?EȱE?ʤ?л вiE &E)bcjkjbȱjbE`X78_N5`O64~3xvX0 /:L, /)/f/e/dL& p/f/e/d/c/b/aL& 9:9/0 &0 &0 &08//080i(0A/)/n/m/lL& /n/m/l/k/j/iL& /P0QPXP0VePdPL& pp8 # P  L 208A9 C169B13 B32 C210C255C201B13 C240C181B32 C210C255C208C235C169A1B32 C195C255B32 C204C255C165C204C133C178B96`256C169A0C133C253C169C212C133C254C160A0C152C145C253C200C192B24C208C249B96`9 /eme0eld\PR0 L>L&JLR0DL'd  "9#:$1%2AB " H"  "L& i"(j"8473ABi"/j"0/ɖܩ(j"i"ii"j"j"i"A !""""d*eeedeIeJ/J=>L& 0/ȱ/dȱ/eȱ/fL& m!L m!L\ m!L m!/lȱ/mL& m!/iȱ/n jȱ/kȱ/lȱ/mL& m!/lȱ/mȱ/nL& 9=9i9:9>  d=ȥe=L& 9=9i9:9>0P=dȑ=ȥe=L& p  (2073) PETSPEEDL "),67XFv=gz Mrqhg&&!#9#!sTX\ju^,Tq5b #3" "\ < o Ve#07~ $H Y 9 HHԱ9e99:L& dHeHfHHL& p #aHHL& hhfhehdL& ph`L& hhnhmhlL& hhL& deL& mlL& deL& lmL& ʎL& %9 ɀȘe99:L& )@U L\ ; ed`9:`L/`, "MA0HCB d"de}"ed}"d b bi/# о# de# f` תL& Ye ;eL& Ye8Ӑ  ;L& de"f# %L& 8 Iiע#ʆ"L% h(hmhlHHHlHmHdHeHHL& D hإd%e$ *  dlem%d$eL HH 0(/(/ȩ/f2dȱe (bȘdeȩ(efb(d(e(L& Р(/  /L pp8 #ed(aE"ɐ) %c 𾪽%bca(b(c(d(e(f(L& (J((L& 9) L L Lh L L5 L LD LV L Ȅ9eȱ9d9 FOR MORE INSTRUCTIONS"' " PRESS  SPACE TO COPY DISKS"#' K$"A":K$:K$""23306'$ K$(13)2360@'. 1400t'8 " ";'B " * * * * BACKUP 228 * * * * ";'L " ";) " IF YOU NEED TO COPY A PORTION OF THE ";K) " DISK, YOU CAN SPECIFY WHICH TRACK ";}) " AND SECTOR YOU WISH TO START ON. ";) " YOU MAY ALSO SPECIFY WHICH TRACK TO ";) " FIN  (65535)255TM56:30'TM53C(TM)127(TM)15950S(TM,(TM)1Y2b<590jFF0{PTI$"000000"ZZ$d(N$)1TI30Z$" ":F1:nZ$""90x15,ER,ER$ER0"DISK ERROR #"ERER$: SPACE TO MAKE COPIES "* A$"A":K$:K$(32)2550* 1400/+ 15:15,8,15:15,"I":15:"@0:BACK-UP 228",8U+ 5:15:15,8,15,"I0:":5,8,5,"#":k+ 15,"U1";5;0;18;0+( #5,AE$:#5,AE$:#5,AE$:5+2 15,"M-R";(18);(00):#15,I$+< 15,"M- $Z$!|(N$)2T$N$:N$"":T(T$)HT0TNPCL(TH):RLTCLH:T0`(ZK)19CL0:RL0(ZK)17RL(RL12(Z145))15Z13I1V$(RLCLH)B$J1J(TCCL)(TRRL)480IXA,TR3TC2 LE SCREEN ER.LD:SUPPTS GLE, TWIN DUAL DRIVES. MAY REQUIRE A SECDARY ADDRESS OFN:27 IN THE ER STATEMENT OBTAIN UPPER LOWER CASE CHARACTERSX:IN THE OUT.b:R:UNSCRATCH RECOVERS A FILE WHICH HAS PREVIOUSLY BEEN SCRATCHED 60B$" "#V$(NV),NP05SL1KV$(0)"Ԡ"Y""HE$fSLSLNPuNPMASL1NPNVNPNVNP01330 550I1NP V$(I)((I),2)" "PS$(SLI1)*I 4"" THE DISK3\:HAS OVERWRITTEN THE WITH SUBSEQUENT DISK WRITES.9f:z::MSD INMATI EXCHANGE:PAUL E. ECKLER:2705 HULMAN ST:TERRE HAUTE, IN 47803 E$",2040 " PR$(SE8),PS$(SE8)* I1SE5 CB70E J125432Y A((IN$,J))K A2MAMA1:PR$(MA)(IN$,J3,H) J STISE I 1 $15,"I"DR$ .2100 815 B LUN8 VDR0 `DR$"0" j" DR DR$(DR) ( 2550C <" . :"\ FV$(0)" "z PV$(2)" " ZV$(4)" " d180 nRL0 xRL2700 KILL(65533)256(65532) (KILL) (213) IRQ64696KB631"SC1024,TM56#6XA214.@XB198EJ(65535)2551690PTCB826^^IRQ64731ihKB623vrSC32768|TM53XA216XB158J(TM)256(TM1)K02551960JK,V".";KIC  "(V " THE BAM METHOD OF BACKUP WILL".(` " WORK ON MOST DISKS. IF THE BAM "[(j " WON'T WORK TRY THE DIRECT METHOD."(t " IF THE DIRECT METHOD WON'T WORK "(~ " YOU MAY NEED TO TRY BAD BLOCKS."( " ""I015J0NC4J20);V$(IJH);;JAHIRXB,0[RL0dCL0m510z"I010,706Z(Z$)@TCCLJTRRLTJ010^(ZK)29CL(CL12(Z157))NChFN$Z$N$rZ$"/"Z$":"N$N ISH ON. ";* " IF YOU DO NOT WISH TO START ON A ";E* " SPECIAL TRACK JUST PRESS RETURN ";w* " AT THE PROMPTS. ";* " "* " PRESS  0);V$(TRHTC)XA,RL38CL20);"";V$(RLHCL)>J&I1NVW0V$(I)B$^:IdDN"  ";X1510b1980l"";v(65535)25559468,14NC1(213)79NC3NV(NC1)H186R";(19);(00):#15,D$+F 15+P IR$I$D$+Z DO NOT WISH TO START ON A ";E* " SPECIAL TRACK JUST PRESS RETURN ";w* " AT THE PROMPTS. ";* " "* " PRESS  ((213)2)7)"Ԡ" >180- HCLRL07407 R1430A \1100J fMA0` p15,UN,15,"I"DR$i z130} 1,UN,3,"$"DR$ CB FO(IN$) HE$(IN$,143,H) FO1SE18:HE$HE$",1541/2031/4040 ":960 FO1SE19:HE$H ISK:B:MSD FAST DUPLIC8 MODICATI OF THE DUPLICATE ROUTINE THE SD2.:COPIES A DISK IN 60 65 SEC COMPARED WITH 120 130 SEC DUPLICATE&:RIBUTED BY PAUL RUSHN OF EDMN, ALBERTA0:::SEQ ER S THE ENTS OF A SEQUENTIAL FI #" tX14 ~(X)") "(X7)" X9 " :";O SSC5((213)1)Z FS13d 1890x SP1SP41200 UNSP7 UN " # (0/1):"; SSC7((213)1) FS13 1890 SP0SP11270 DRSP 3959468,12/ "LOAD";(34);PR$(SLRLHCL1);(34);",";UN@ "RUN";K (IRQ)V KB,13c KB1,13m XB,2s  IN$"ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" IN$IN$IN$IN$IN$IN$ IN$(IN$,2) CB828 BCB36X$(X$,1)"A"1800'X((X$,(X$)1))>X$(X3(XA216))KI,(X$)U".";\Ie&H16o0K127u:D160,2,177,A45,153,A137,0,200,192,6,208,246,162N1,32,198,255,32,228,255,168,177,A55,164,A142,145,A140,200 K$(13)1520$940.I828915:A:I,A:E845,033:46,017:4349,0:4350,0:120B76,66,3,76,97,3,162,3,32,198,255,160,0,132,3,32,207,255,32,138,3L145,3,32,128,3,165,144,208,3,200,208V238,32,204,255,96,162,3,32,201,255,160,0,132 INSERT DESTINATION THEN PRESS SPACE"K$"A":K$:K$" "1700;1,9,15:1,"I":860:1:65511NERER$:2080W940" INSERT DESTINATION THEN PRESS SPACE"K$"A":K$:K$" "1750""" DISC NAME ",DN$ $:DR$A$B$:1:2:65511,2580F6D$S$(9)S$(10)S$(11)S$(12)S$(13)S$(14)S$(15)S$(16)S$(17)S$(18)x@N$S$(19)S$(20)S$(21)S$(22)S$(23)S$(24):JDN$D$N$:1:2:65511T" DISC NAME ",DN$^" ACTUAL ID ",IR$h AE$ MODIFIED" N" TO DEVICE # 9 Y";WE$ XWE$"N"1950$ bWE$"Y"1910. l1860a v" DRIVE #8 WILL BE THE  SOURCE DRIVE" " DRIVE #9 WILL BE THE  DESTINATION " QW12500:: 1005,234 1530 " TU " USE THIS PROGRAM TO FORMAT YOUR "2" DESTINATION DISKS. THIS PUTS THE "W" EXACT HEADER AND ID ON THE "r" DESTINATION DISK."" HOW MANY DISK DRIVES 2";NU$:NU$"2"FD9:18601005,120:FD8:15301,8,15:1,E NUMBER CHANGE IS DONE !"""" TURN ON  SOURCE DRIVE":QW11000::K$"A"b"QW11000::" PRESS  SPACE WHEN DONE":K$"A"x"K$:K$" "2050" 1005,234"1530" " "ER$"*1:2:3:5:65511"4" <" ";BF" "sP" PRESS  RETURN FOR MORE INSTRUCTIONS"Z" PRESS  SPACE TO COPY DISKS"dK$"A":K$:K$""1380nK$(13)2150x53281,246:  ";$p" * * * * BACKUP 228 * * * * ";4$z" "b$" IF THIS PROGRAM HAS DIFFICULTY "$" READING A BLOCK OF INFORMATION,"$" THE BLOCK IS PROBABLY BAD."$" NING!"" ";O" ";" ";" SOME DISKS HAVE BAD BLOCKS WHICH ";" MUST BE DONE WITH OTHER PROGRAMS. NUMBER IS THE TRACK. ";&" THE SECOND NUMBER IS THE SECTOR. ";F&" THE THIRD NUMBER IS A COUNTER, THIS ";x&" KEEPS TRACK OF THE TOTAL BLOCKS. ";&" "& " PRESS  RETURN  `3,32,138,3,177,3,32,128,3,32;j210,255,165,144,208,3,200,208,238,32,204,255t96,72,165,1,9,3,133,1,88,104,96,72,120,165,1,41,252,133,1,104,96~(45)044(46)019120" ";S$(28):N$(28) " ACTUAL ID ",IR$" FORMATTING DESTINATION .. PLEASE WAIT":EIR$" ""NO ID NUMBER EXISTS":2080Y1,FD,15:1,"I"x1,"N0:"DN$","IR$:DN$""&860:1:53281,490ERER$:2080:1730D" HAS ONE DRIVE BEEN VE PROGRAM AFTER RUNNING"1" IF YOU WISH TO MAKE MORE COPIES "Y" FORMAT DESTINATION DISKS NOW. "" PRESS  RETURN TO FORMAT MORE DISKS"" PRESS  SPACE TO MAKE COPIES ."K$"A":K$:K$""1030K$(32)1070 "A"1660 r" TR 18, BL 0 DOES NOT CONTAIN AN 'A'"4w" IT DOES CONTAIN AN '";AE$;"'"q|" IS THIS THE PROPER SOURCE DISC";QW$:QW$"Y"1530" DO YOU WANT TO FORMAT DESTINATION";QQ$:QQ$"Y"1740NU$"1"QQ$"Y"1730" R$,E1$,E2$,E3$:ER(ER$):ER$ER$E1$E2$E3$:53281,246[T11000::" INSERT SOURCE DISK THEN PRESS SPACE"zK$"A":K$:K$(32)15402,8,0,"$0":1510:ERER$:2080J127:#2,S$(J):J:#2,B$:"#2,A$:#2,A$:#2,B RN OFF ALL DISK DRIVES "!" EXCEPT  DESTINATION DRIVE "^!QW11000::" PRESS  SPACE WHEN DONE":K$"A"t!K$:K$" "1980!5,8,15!5,"M-W"(119)(0)(2)(932)(964)!5:65511!" DEVICE " ";F" BE SURE WRITE PROTECT NOTCH IS COVERED ";x" ";" ON SOURCE DISK ";" "  ";'#>" ** ERROR PLEASE TRY AGAIN ** ";X#H" "#RQX14:53281,11:QW1500::53281,246:QW1500:#\:1390#f"  "; " ";I" BAD BLOCKS CAN BE DETECTED ON THE ";{" ORIGINAL DISK BY A LOUD CLICKING ";(" NOISE FROM THE DISK DRIVE DURING ";2" THE PROGRAM LOAD. "; ";%" IN THE LOWER PORTION OF THE SCREEN ";L%" THREE NUMBERS WILL APPEAR DURING ";~%" THE READ OR WRITE. ";%" ";%" THE FIRST " * * * * BACKUP 228 * * * * ";J" ";{" "T11000:"'GOTO 920' IF PROGRAM QUITS ABNORMALLY"" DO NOT SAVE THIS PROGRAM AFTER RUN IN PROG* 00 + 0BRK, 1ORAX), 0DTH, 1SLOX), 1SKB#, 1ORA, 1ASL, 1SLOH+ 0PHP, 1ORA#, 0ASL, 1ANN#, 2SKW , 2ORA, 2ASL, 2SLOQ+ 10+ 1BPLR, 1ORAY), 0DTH, 1SLOY), 1SKB#, 1ORAX, 1ASLX, 1SLOX+ 0CLC, 2ORAY, 0NOP, 2SLOY, 2SK ":DM$"D"( P3 O$"VIDEO "(" P4 O$"PRINTER "),NA:1120:AB$DD$*)6NE:1120:AE$DD$T)@ P8 O$"0:"S$DM$AB$AE$",S,W"Z)J)T**INITIALIZE (NOT A SUBROUTINE))^" D I S A L L ":)h46,(46)1: 256 BYTE BUFFER DIFY PROGRAM LOWER THAN 930 !U" THE PROGRAM IS NOW READY TO MAKE COPIES . . . "" TO MAKE MORE ROOM FOR THE COPIES,"" THE PROGRAM WILL NOW HAVE TO ERASE "" THE PORTION YOU HAVE JUST USED! "" DO NOT SA N&FN0:MO&PMM1:J0:D$(DD$,M,1)&Z D$"" J1: 'd I1 B)'n D$(H$,I,1) JI:IB1'x I?' J0 M'NNBJ1X' 3920}'*******************MAIN PROGRAM' 2270: SELECT' 1410: DO IT'"RETURN TO CONTINUE: 1CMPY), 0DTH, 1DCMY), 1SKB#, 1CMPX, 1DECX, 1DCMY2z 0CLD, 2CMPY, 0NOP, 2DCMY, 2SKW , 2CMPX, 2DECX, 2DCMX%2 E0c2 1CPX#,1SBCX), 1SKB#,1ISBX), 1CPX , 1SBC, 1INC, 1ISB2 0INX, 1SBC#, 0NOP ,1SBC# , 2CPX , 2SBC , 2INC , 2ISB2 F0 ************END$t"END ";: 3790$~ D0 D13:%EN:+%**********************NORMALIZEB%AANO:EENO:NO0^%"NORMALIZE TO ";:3790q% N0 D13:%NONA:AANO:EENO:%****************GET HEX DD$ & N%DD$""% 2  1STAX, 1STXY, 1AXSY0 0TYA, 2STAY, 0TXS, 2LSSY, 2YASX, 2STAX, 2XASY, 2AXSY 0  A0K0 1LDY#,1LDAX), 1LDX#, 1LTXX), 1LDY , 1LDA, 1LDX, 1LTX0  0TAY, 1LDA#, 0TAX, 1OXX#, 2LDY , 2LDA, 2LDX, 2LTX0* B004 1BCSR,1LDAY), 0DTH, *********************TYPE" "TYPE ";" 2000# D$"H" 3530$# D$"D" 35406# D13 2290J# (20);: 3480g# "HEX DUMP ":DM1: 3550# "DISSASEMBLY":DM2# LN0:D13: 2290# ************************ADDRESS# "ADDRESS  0CLI, 2EORY, 0NOP, 2SREY, 2SKW , 2EORX, 2LSRX, 2SREX- 602. 0RTS,1ADCX), 0DTH, 1RRDX), 1SKB#, 1ADC, 1ROR, 1RRDp. 0PLA, 1ADC#, 0ROR, 1ARR#, 2JMP), 2ADC, 2ROR, 2RRDy. 70. 1BVSR,1ADCY), 0DTH, 1RRDY), 1SKB#, 1ADCX, 1RORX, 18:S10:C0$(.):430T%(BY4)41)" ";T%;\(BABY).J.20:BM%(T%,J).::BYBY4:720dS.BYBY1:A0(BABY):J.7:BM%(T%,S)A0TA(J):SS1:S22690BYBY1ES21:T%17ES19T%24ES18T%30ES17 W , 2ORAX, 2ASLX, 2SLOX+ 20,& 2JSR,1ANDX), 0DTH, 1RLNX), 1BIT , 1AND, 1ROL, 1RLNV,0 0PLP, 1AND#, 0ROL, 1ANN#, 2BIT , 2AND, 2ROL, 2RLN_,: 30,D 1BMIR,1ANDY), 0DTH, 1RLNY), 1SKB#, 1ANDX, 1ROLX, 1RLNX,N 0SEC, 2ANDY, 0 )r:LA(45):HA(46)1)|ADLAHA256) 15: 15,8,15,"UJ:"*S2:P3:DM14* M$(255): H$"0123456789ABCDEF"G*LB$" "_*"INITIALIZING...."u* X0 255: A$* A$"*" A$"0*?*"*M$(X)(A$" .",6): X*4010:MA PY"R0\1,ER$,E1$,E2$,E3$:ER(ER$):ER$ER$E1$E2$E3$:DfFW%1CX,16:mpS1$"SOURCE":D$"D"S1$"DEST."z" INSERT ";S1$;" DISK, PRESS SPACE"A$"A":A$:A$" "900CX,16:ER$:56,(999):: ::::DO NOT MO  M FOR MENU"' 2290: 4020(*************************STATUS&( S2 NM$"C64 ":S$"C"H( S3 NM$"1541 ":S$"D"h( S1 NM$FM$:S$"F":FE0( S4 NM$FM$:S$"TS"( DM1 T$"HEX DUMP":DM$"H"( DM2 T$"DISAS2 1BEQR,1SBCY), 0DTH ,1ISBY), 1SKB#, 1SBCX, 1INCX, 1ISBX)3 0SED ,2SBCY , 0NOP ,2ISBY , 2SKW , 2SBCX, 2INCX , 2ISBX1SKB#,1DCMX), 1CPY , 1CMP, 1DEC, 1DCM1\ 0INY, 1CMP#, 0DEX, 1ACM#, 2CPY , 2CMP, 2DEC, 2DCM1f D01p 1BNER, 050% D13 D32 3860% D20 3840&DD$DD$D$:3800%&DD$(DD$,(DD$)1):3800J& *************GET N VALUE OF DD$Y&B16:3910t& J0 N65535 3890z&(&2 I1 (DD$):" ";:: 3790&<***********CONV DD$ BASE B TO  1LTXY), 1LDYX, 1LDAX, 1LDXY, 1LTXY1> 0CLV, 2LDAY, 0TSX, 2LSAY, 2LDYX, 2LDAX, 2LDXY, 2LTXY1H C0W1R 1CPY#,1CMPX), 1SKB#,1DCMX), 1CPY , 1CMP, 1DEC, 1DCM1\ 0INY, 1CMP#, 0DEX, 1ACM#, 2CPY , 2CMP, 2DEC, 2DCM1f D01p 1BNER, ";# 2000# D$"B" 3660$ D$"E" 3700$ D$"N" 3740.$$ D13 : 2290@$. D32 3580U$8 (20);: 3580z$B**************************BEGIN$L"BEGIN ";: 3790$V DO D13: $`AN: $j****************  1RRDX. 0SEI, 2ADCY, 0NOP, 2RRDY, 2SKW , 2ADCX, 2RORX, 2RRDX/ 80>/ 1SKB#,1STAX), 1SKB#, 1AXSX), 1STY , 1STA, 1STX, 1AXS|/ 0DEY, 1SKB#, 0TXA, 1OXA#, 2STY , 2STA, 2STX, 2AXS/ 90/ 1BCCR,1STAY), 0DTH, 1AXSY), 1STYX, TY$"D"S.ES:BM%(T%,S).:0JES24:BM%(T%,J)1:VSM.:J.20:BM%(T%,J).SMSM1n :12);SM:S9S9SMSM.TST%TSTS1:810 SM.TFT%*BY14365043>:S9"BLOCKS TO TRANSFER"H(S9.0408)1"MIN. FOR CO NOP, 2RLNY, 2SKW , 2ANDX, 2ROLX, 2RLNX,X 40%-b 0RTI,1EORX), 0DTH, 1SREX), 1SKB#, 1EOR, 1LSR, 1SREd-l 0PHA, 1EOR#, 0LSR, 1ASR#, 2JMP , 2EOR, 2LSR, 2SREm-v 50- 1BVCR,1EORY), 0DTH, 1SREY), 1SKB#, 1EORX, 1LSRX, 1SREX- : "RETURN TO OUTPUT/ANY KEY TO HALT"<******************SELECT OPTIONQ 4060: STATUSd 2080: MENUz 2000: GET KEY D$"Q" 2390 D$"M" 2270 D$"S" 2500 D$"O" 3350$ D$"T" 3470. (D$): D34 D148 2000" ";:) 2000: D13 5  D$;:Z***************************MENU} : " CHANGE OPTIONS": *" QUIT MENU":4"SOURCE ";>"(FILE/C64/1541) "H" "NM$R" L$:BLBK 15:15,8,15,"I":2:2,8,2,"# & I0 BL0 TR(I)T:SC(I)S7: IBL T0 3190OD T0 T36 3170pN "INVALID TRACK"(T):IBL:X FM$"BAD FILE":S1: 2: 2270b 15,"U1:";2;0;T;Sl 2750:TAA%:2750:SAA%v I DD$(DD$,1):B16:3910 0LL7: P4 P8 LL15=:PF$"": P4 PF$" "RDF$"": XO LLmNF$F$(H$,N1,1)" "XNN1: N15 N0b Xl4,PF$NM$:4,PF$"ADDR "F$PF$PF$" -ASCII-"vNA:1110:AR$DD$": "F$" ":HD$"": YP,TRK,SEC,BLKS"r 2580: DISPLAY DIR SEC| I1 7@ " ": "SELECT FILE N,0 ,0 ,0 ,0 "; FL$,TY,T,S,BK FL$"N" TR 2890 FL$"N" TR0 2880  (A$,5,2)"Y)" OA$OA$"),Y":17306|OA$OA$","(A$,5,2):1730QV1V:1200:O3$DD$" "hNV1(256V):1120 (A$,5,1)")":OA$"("DD$")":1730OA$OA$DD$ (A$,5,1)" " 1730OA$OA$","(A$,5,1)4,PF$AR$O1$O2$O3$ ****GET#2 #2,AA$:AA%(AA$(0)):& *****READ TR&SE TO AD 256 BYTESG 2780:TR(AD):SE(AD1):a TR0 TR36 2800} "INVALID TRACK"(TR): 2:2,8,2,"# 15,"U1:";2;0;TR;SE I0 255 #2,AA$:AA%(AA$(0)) SSEMBLEPF$"": P4 PF$" "W4,PF$"ADDR OBJECT LABEL DISASSEMBLY "NM$: 4," "tO2$" ":O3$O2$:OA$""NA:1110:AR$DD$": "1200:O1$DD$" "A$M$(V):OC$(A$,2,3)" " (A$,1)"0" 17301200:O2$DD$" " 0 (20);: 2510 *************DISPLAY DIR SECTOR7 2750:TRAA%:2750:SEAA%S DL$", ": I0 7n( PT%I322: TR 26202 PTSE I7: 2730< 15,"B-P 2"(PT%)F 2750:TYAA% 127: TY 2650P 2730Z 2750:TAA "TRK-"(TR)" SEC-"(S)! 2780: RD TRK & SEC5! M1AD:AM1:M2AD256:EM2:S4:N00:"": 2270Z! *********************C64 MEMORYs! "C64";: S2: 3330! ********************1541 MEMORY! "1541";: S3! D13: 2550! ************  D$"A" 35708 D13 4060B (20);: 2290>L ***************************QUITJV "QUIT"k` 46,(46)1: RESTORE VARTABj 4: 2: 15: t *******************GET FILENAME~ "FILENAME ";: N0: FM$"" 2050: D13  OUTPUT ";\"(VIDEO/PRINTER/FILE)"$f" "O$6p"TYPE ";Xz"(HEX DUMP/DISSASEMBLY)"i" "T${"ADDR ";"(BEGIN/END/NORMALIZE)"" BEGIN "AB$" END "AE$ NO " NORMALIZED" SI0:TRTR(0):SESC(0):2780: RD 1ST SECTOR$ M1(AD2)256(AD3): LOAD ADDRM M2M1(BL1)254SC(BL)2: END ADDRz AM1:EM2:S1:NO0: INIT DISPLAY VALUES "": 2270: SELECT MENU ************READ TRK & SEC ONLY TRT:SES:FM$  X0 LL 1200:HD$HD$DD$" "VV 1276 V32 VV64: 1970J V95 VV32YF$F$(V)w X:4,PF$AR$HD$F$: 1740*********************GET KEY D$ D$:""; I125::""; I125:: D$""2000D FL$"Q" "": 2270 FL$"T" 3260 BK BKBM 3090. BK BM0 3080P ""FL$","TY","T","S","BK" "~ " " "SELECT SOURCE FILE AFTER" 4210:INIT BMBK: TR(BM),SC(BM) FM$F LB$OC$OA$(13); LNLN1" C$: C$"" 18109 AE : 1810R P3 LN20 1810 P4 LN60 X1 4:4," ": X:LN0: 1470 P8 ""; DM 1910, 15104:***********************HEX DUMP&NA:1110: ADI,AA%::2: " ***************************FILE, "DIRECTORY"A6 15:15,8,15,"I":2:2,8,2,"#P@ TR18:SE1hJ 15,"U1:";2;0;TR;SET "TO QUIT Q,0 ,0 ,0 ,0"^ "FOR TR & SE T,0 ,TRK,SEC,0"h "FILENAME ,T  " (A$,1)"2"1670#, (A$,5,1)"R"162086 V127 VV256V@YAV: Y65535YY65536sJNY:1120:OA$DD$: 1730T (A$,5,1)"#" 1100:OA$"#$"DD$:1730^ (A$,6,1)")" OA$"("h1100:OA$OA$"$"DD$:(A$,5,1)" "1730r %d 2750:SAA%n FI$"": J3 18x #2,A$:FI$FI$A$: J7 15,"B-P 2"(PT%28)\ 2750:BLAA%:2750:BLBLAA%256 " " TY FI$;DL$;TY;DL$;T;DL$;S;DL$;BL I: ********************** *************OUTPUT! "OUTPUT ";! 2000"* D$"V" 3420""4 D$"P" 34306"> D$"F" 3440H"H D13 2290]"R (20);: 3360x"\ "VIDEO ": P3: 3450"f "PRINTER ": P4: LN0: 3450"p "FILE ": P8"z D13: 3400" ******  D20 2480  N15 (20);: 2440* FM$FM$D$: NN1: 2440L NN1: FM$(FM$,1,N): 2440q *************************SOURCE "SOURCE "; 2000 D$"F" 2860 D$"C" 3300 D$"1" 3320 D13 : 229 a01H" `SPEEDLOAD INSTALLED BY JESSE KNIGHT HHH [lhhh@  $Lt 윢?ɠގsn܍m ܭ)qIrs=?Aש #   4190 1010 ["DIS.BAK",8:1,8,15,"S0:DISALL.2C":1,"R0:DISALL.2C=DIS.BAK":u"TYPED 12/13/83 BY RQ"DISK EXPLORER BY ROBERT W. BAKER"PAGE 298 DECEMBER 1983 COMPUTE! MAGAZINE"ADDED C64 AS SOURCE, 1541 AS OUTPUT $"ADDED  d(46)017120n1160[x999,(56):56,(46)9::BB(56):"":CX53281:CL65511{N254:(999)160N(999)NNBB:BABB256:MA828:BM%(35,24):J.7:TA(J)2J::WD8:FW%0(1005)234WD9:FW%1:" BE SURE DISKS ARE INSERTED" " j***********CONV N TO DD$ BASE B2 tDD$"":N1NM ~N2(N1B): N3N1N2Bf DD$(H$,N31,1)DD$~  N2 N1N2: 1150  ******************ADVANCE COUNT 1240 AA1: A65535 AA65536 1100 **********************R1,8,15:1,"I":3,8,3,"#") "READ BLOCK";R BM%(T1,S1).430:NUNU1:NUN280r S1S11:S120S1.:T1T11 T1TF1250 "":3:1:CL "D$"D":CX,49:870 ,1,WD,15:1,"I":3,WD,3,"#" 6"WRITE BLOCK"; @NU1:T1T:S1S J z11;3;0;T1;S1 860:ER470' CC1:C24408 1,"B-P";3;0u NU(" "(T1)(S1)" #"(NU),12)""; P3(3):P4(4):4,BBNU:MA:3,P3:4,P4 ST.ST64860:ER$  C.:1,"B-P";3;0 (" "(T1)(S1)" , \, 1CPY , 1CMP, 1DEC, 1SMB42\ 0INY, 1CMP#, 0DEX, \, 2CPY , 2CMP, 2DEC, *BBS42f D0V2p 1BNER,1CMPY), \, \, \, 1CMPX, 1DECX, 1SMB52z 0CLD, 2CMPY, \, \, \, 2CMPX, 2DECX, *BBS52 E02 1CPXI  ]Ø  ,  IXLӅ 31  P0P 8G :`̅), )JJJJ )`     EEE 4 P=SECTOR IN MEMORY; SISN:TRTR(SN):SESC(SN): 2770: NEW SECTORO (A1ADBC: 1340p 2A1ANO: A10 A1A165536 <V(A1): AC$(V): F**********************READ 1541 PRAANO ZH(RA256):LRA(H256) d15,"M-R"(L);(H) n ## ee  xq ,0 D8p tLv p p8m (nX`  `M-RM-WM-E @oLhhhhL @oL ڜ H hFILENAME AS SOURCE 8 JUNE 1984> ."FILE FROM SECTOR MOD 5/25/85i 8"ADD UNDOCUMENTED OPCODES 8/20/85 R.Q. B*********CONV N TO DD$ HEX ADDR 4916 RETURN LNV:B16:1140:DD$("0"DD$,2): VB16: 1140:DD$("000"DD$,4): `1110:DD$"$"DD$:2 CX,246:" TYPE B FOR BAM. D FOR DIRECT";TY$o " STARTING TRACK 1";TA:" STARTING BLOCK 0";BS " FINISH TRACK 35";TZ N"BUFFERS AVAIL.":1,8,15:CX,16 D$"S":870 610 TTS:SBS:NU1:T1T:S1S:TFTZ:1:CL  EAD BYTE  S 1250,1330,1360,1330J RAAM1NO2: FE : RELATIVE ADDRk SN(RA254): SECTOR NUMBER  SNBL :"END OF FILE":FE1:  SN0 SNBL :"ADDRESS ERROR":FE1: BCRASN2542: BYTE COUNT  SNSI 1320: SIBM%(T1,S1).520:NUNU1:NUN360= TS1S11:S120S1.:T1T11N ^T1TF1330a h"":1:3:CL~ rSS11:S20S.:T1T11 |TT1:TTF410 D$"S":53281,49:870 NU1:T1T:S1S:230 1:3:CL 56,(999):: C0 1,"U1",1SBCX), \, \, 1CPX , 1SBC, 1INC, 1SMB63 0INX, 1SBC#, 0NOP , \, 2CPX , 2SBC , 2INC , *BBS6%3 F0d3 1BEQR,1SBCY), \, \, \, 1SBCX, 1INCX, 1SMB73 0SED ,2SBCY , \, \, \, 2SBCX, 2INCX , *BBS7 #"(NU),12)"";A P3(3):P4(4):4,BBNU:MA3:3,P3:4,P4W &ST.ST64920m 01,"U2";3;0;T1;S1 :860:ER600 DCC1:C2560 N920 X bTSTA:TF0:S90 l1,"I":3,8,3,"#" v"TRACK# BLOCKS" BY4:NU0:T1#,1SBCX), \, \, 1CPX , 1SBC, 1INC, 1SMB63 0INX, 1SBC#, 0NOP , \, 2CPX , 2SBC , 2INC , *BBS6%3 F0d3 1BEQR,1SBCY), \, \, \, 1SBCX, 1INCX, 1SMB73 0SED ,2SBCY , \, \, \, 2SBCX, 2INCX , *BBS7x$LNЍ,,0`H8"1Ii Je)í)Í,0Jh" K ­)`@@Ø |A@ |A@, |A3NXLӭN  F LI3****_jjjjHhHhjjHh`x ~` 15,AC$: V(AC$(0)): 3 x**************************DO ITN  P3 4: 4,3:LN0d  P4 4: 4,4u  P8 1460  4: 4,8,8,O$: LN0:  S$"F" 4,"SOURCE IS "FM$  LN 1800  DM 1830,1490 ********************DISA`q ,.)qHhJJMJJHhHhMJJMMr`Cꝝ x 3N@COv+L@*LN@N cA@@Ø |A@ |A@, |A3NXLӭN  F LI3****_jjjjHhHhjjHh`x ~` **************************BEGIN$L"BEGIN ";: 3790%V DO D13: %`AN: B%j****************************ENDV%t"END ";: 3790i%~ D0 D13:s%EN:%**********************NORMALIZE%AANO:EENO:NO0%"NORMALIZE TO " "\ "VIDEO ": P3: 3450#f "PRINTER ": P4: LN0: 3450#p "FILE ": P8+#z D13: 3400P# ***************************TYPE^# "TYPE ";i# 2000}# D$"H" 3530# D$"D" 3540# D13 2290# (20);: 3480# "HEX DUMP " \, 2JMP , 2EOR, 2LSR, *BBR4-v 50. 1BVCR,1EORY), \, \, \, 1EORX, 1LSRX, 1RMB5\. 0CLI, 2EORY, \, \, \, 2EORX, 2LSRX, *BBR5e. 60. 0RTS,1ADCX), \, \, \, 1ADC, 1ROR, 1RMB6. 0PLA, NIT DISPLAY VALUES "": 2270: :SELECT MENU$! ************READ TRK & SEC ONLYP! TRT:SES:FM$"TRK-"(TR)" SEC-"(S)j! 2780: RD TRK & SEC! M1AD:AM1:M2AD256:EM2:S4:N00:"": 2270! *********************C64 MEMORY! "C640+ 10, 1BPLR, 1ORAY), \, \, \, 1ORAX, 1ASLX, 1RMB1@, 0CLC, 2ORAY, \, \, \, 2ORAX, 2ASLX, *BBR1I, 20,& 2JSR,1ANDX), \, \, 1BIT , 1AND, 1ROL, 1RMB2,0 0PLP, 1AND#, 0ROL, \, 2BIT , 2 " "SELECT SOURCE FILE AFTER" 4210::INIT. BMBK: TR(BM),SC(BM)@ FM$FL$:BLBKb 15:15,8,15,"I":2:2,8,2,"#q& I0 BL0 TR(I)T:SC(I)S: IBL T0 3190D T0 T36 3170N "INVALID TRACK"(T):,S,W")J)T**INITIALIZE (NOT A SUBROUTINE)*^" D I S 6 5 1 1 ":)*h46,(46)1: 256 BYTE BUFFERC*r:LA(45):HA(46)1T*|ADLAHA256m* 15: 15,8,15,"UJ:"~*S2:P3:DM1* M$(255): H$"0123456789ABCDEF"*LB$" "*TO QUIT Q,0 ,0 ,0 ,0"^ "FOR TR & SE T,0 ,TRK,SEC,0"Jh "FILENAME ,TYP,TRK,SEC,BLKS"gr 2580: DISPLAY DIR SECu| I1 7 " ": "SELECT FILE N,0 ,0 ,0 ,0  3920'*******************MAIN PROGRAM' 2270: SELECT( 1410: DO IT9("RETURN TO CONTINUE: M FOR MENU"L( 2290: 4020q(*************************STATUS( S2 NM$"C64 ":S$"C"( S3 NM$"MSD 6511":S$"D"( SB0/ 0DEY, \, 0TXA, \, 2STY , 2STA, 2STX, *BBS0/ 90:0 1BCCR,1STAY), \, \, 1STYX, 1STAX, 1STXY, 1SMB1y0 0TYA, 2STAY, 0TXS, \, \, 2STAX, \, *BBS10  A00 1LDY#,1LDAX), 1LDX#, \, 1LDY , ;:3790% N0 D13:%NONA:AANO:EENO:&****************GET HEX DD$ & N)&DD$""4& 2050M& D13 D32 3860_& D20 3840t&DD$DD$D$:3800&DD$(DD$,(DD$)1):3800& *************GET N VALUE OF DD$&B16::DM1: 3550# "DISSASEMBLY":DM2$ LN0:D13: 2290&$ ************************ADDRESS7$ "ADDRESS ";B$ 2000X$ D$"B" 3660n$ D$"E" 3700$ D$"N" 3740$$ D13 : 2290$. D32 3580$8 (20);: 3580$B 1ADC#, 0ROR, \, 2JMP), 2ADC, 2ROR, *BBR6. 70+/ 1BVSR,1ADCY), \, \, \, 1ADCX, 1RORX, 1RMB7j/ 0SEI, 2ADCY, \, \, \, 2ADCX, 2RORX, *BBR7s/ 80/ \,1STAX), \, \, 1STY , 1STA, 1STX, 1SM";: S2: 3330" ********************1541 MEMORY" "MSD DRIVE";: S3'" D13: 2550L" *************************OUTPUT\" "OUTPUT ";g" 2000{"* D$"V" 3420"4 D$"P" 3430"> D$"F" 3440"H D13 2290"R (20);: 3360AND, 2ROL, *BBR2,: 30-D 1BMIR,1ANDY), \, \, \, 1ANDX, 1ROLX, 1RMB3N-N 0SEC, 2ANDY, \, \, \, 2ANDX, 2ROLX, *BBR3W-X 40-b 0RTI,1EORX), \, \, \, 1EOR, 1LSR, 1RMB4-l 0PHA, 1EOR#, 0LSR, IBL:X FM$"BAD FILE":S1: 2: 2270 b 15,"U1:";2;0;T;S* l 2750:TAA%:2750:SAA%2 v Ic SI0:TRTR(0):SESC(0):2780: RD 1ST SECTOR M1(AD2)256(AD3): LOAD ADDR M2M1(BL1)254SC(BL)2: END ADDR AM1:EM2:S1:NO0: I"INITIALIZING...."* X0 255: A$* A$"\" A$"0*?*"+M$(X)(A$" .",6): X2+4010::MAIN PROG;+:00z+ 0BRK, 1ORAX), \, \, \, 1ORA, 1ASL, 1RMB0+ 0PHP, 1ORA#, 0ASL, \, \, 2ORA, 2ASL, *BBR"; FL$,TY,T,S,BK FL$"N" TR 28901 FL$"N" TR0 2880M FL$"Q" "": 2270b FL$"T" 3260{ BK BKBM 3090 BK BM0 3080 ""FL$","TY","T","S","BK" " " 1 NM$FM$:S$"F":FE0( S4 NM$FM$:S$"TS") DM1 T$"HEX DUMP":DM$"H"7) DM2 T$"DISAS ":DM$"D"Q) P3 O$"VIDEO "k)" P4 O$"PRINTER "),NA:1120:AB$DD$)6NE:1120:AE$DD$)@ P8 O$"0:"S$DM$AB$AE$" 1LDA, 1LDX, 1SMB21  0TAY, 1LDA#, 0TAX, \, 2LDY , 2LDA, 2LDX, *BBS2 1* B0H14 1BCSR,1LDAY), \, \, 1LDYX, 1LDAX, 1LDXY, 1SMB31> 0CLV, 2LDAY, 0TSX, \, 2LDYX, 2LDAX, 2LDXY, *BBS31H C01R 1CPY#,1CMPX), \3910& J0 N65535 3890&( '2 I1 (DD$):" ";:: 37900'<***********CONV DD$ BASE B TO N<'FN0:MOX'PMM1:J0:D$(DD$,M,1)k'Z D$"" J1:y'd I1 B'n D$(H$,I,1) JI:IB'x I' J0 'NNBJ1'   4190(:"TYPED 12/13/83 BY RQP:"DISK EXPLORER BY ROBERT W. BAKER:"PAGE 298 DECEMBER 1983 COMPUTE! MAGAZINE:"ADDED C64 AS SOURCE, 1541 AS OUTPUT$:"ADDED FILENAME AS SOURCE 8 JUNE 1984.:"FILE FROM SECTOR MOD 5/25/85(  4,PF$NM$:4,PF$"ADDR "F$PF$PF$" -ASCII-"/vNA:1110:AR$DD$": "LF$" ":HD$"": X0 LLf1200:HD$HD$DD$" "tVV 127 V32 VV64: 1970 V95 VV32F$F$(V) X:4,PF$AR$HD$F$: 1740****************** (A$,1)"*"17351200:O3$DD$" "0OD$OD$",":1590V4,PF$AR$O1$O2$O3$LB$OC$OA$(13);bLNLN1{ C$: C$"" 1810 AE : 1810 P3 LN20 1810 P4 LN60 X1 4:4," ": X:LN0: 1470 P8  UIT MENU":4"SOURCE ";1>"(FILE/C64/*MSD DISK DRIVE) "CH" "NM$UR"OUTPUT ";w\"(VIDEO/PRINTER/FILE)"f" "O$p"TYPE ";z"(HEX DUMP/DISSASEMBLY)"" "T$"ADDR ";1200:O2$DD$" "" (A$,1)"2"16705, (A$,5,1)"R"1620J6 V127 VV256h@YAV: Y65535YY65536JNY:1120:OA$OA$DD$: 1735T (A$,5,1)"#" 1100:OA$"#$"DD$:1730^ (A$,6,1)")" OA$"("h1100:OA$OA$"$"DD$: D$"Q" 2390 D$"M" 2270 D$"S" 2500. D$"O" 3350B$ D$"T" 3470V. D$"A" 3570h8 D13 4060}B (20);: 2290L ***************************QUITV "QUIT"` 46,(46)1: RESTORE VARTABj 4: 2: "(L);(H) n #15,AC$: V(AC$(0)): E x**************************DO IT`  P3 4: 4,3:LN0v  P4 4: 4,4  P8 1460  4: 4,8,8,O$: LN0:  S$"F" 4,"SOURCE IS "FM$  LN 1800  DM 1830,1490 ******URCE "; 2000 D$"F" 2860 D$"C" 3300, D$"*" 3320C D13 : 2290X (20);: 2510} *************DISPLAY DIR SECTOR 2750:TRAA%:2750:SEAA% DL$", ": I0 7( PT%I322: TR 26202 PT*****************READ BYTE2  S 1250,1330,1360,1330\ RAAM1NO2: FE : RELATIVE ADDR} SN(RA254): SECTOR NUMBER  SNBL :"END OF FILE":FE1:  SN0 SNBL :"ADDRESS ERROR":FE1: BCRASN2542: BYTE COUNT  " TY FI$;DL$;TY;DL$;T;DL$;S;DL$;BL" I:G **************************GET#2e #2,AA$:AA%(AA$(0)): *****READ TR&SE TO AD 256 BYTES 2780:TR(AD):SE(AD1): TR0 TR36 2800 "INVALID TRAC8:"ADD UNDOCUMENTED OPCODES 8/20/85 R.Q.O ; UNDOCUMENTED OPCODES REMOVED AND{ = OPCODES ADDED FOR R6511Q 6/21/86 W.W. B*********CONV N TO DD$ HEX ADDR 4916 RETURN LNV:B16:1140:DD$("0"DD$,2): VB16: 1140:DD$("000"DD$,4): `***GET KEY D$ D$:""; I125::"";; I125:: D$""2000]D(D$): D34 D148 2000l" ";: 2000: D13   D$;:***************************MENU : " CHANGE OPTIONS": *" Q ""; DM 1910, 15104:6***********************HEX DUMP\&NA:1110:DD$(DD$,1):B16:3910y0LL7: P4 P8 LL15:PF$"": P4 PF$" "DF$"": XO LLNF$F$(H$,N1,1)" "XNN1: N15 N0b Xl"(BEGIN/END/NORMALIZE)"$" BEGIN "AB$" END "AE$D NO " NORMALIZED"Ju: "RETURN TO OUTPUT/ANY KEY TO HALT"{******************SELECT OPTION 4060: STATUS 2080: MENU 2000: GET KEY(A$,5,1)" "1730,r (A$,5,2)"Y)" OA$OA$"),Y":1730L|OA$OA$","(A$,5,2):1730gV1V:1200:O3$DD$" "~NV1(256V):1120 (A$,5,1)")":OA$"("DD$")":1730OA$OA$DD$ (A$,5,1)" " 1730OA$OA$","(A$,5,1)15: t *******************GET FILENAME)~ "FILENAME ";: N0: FM$""@ 2050: D13 R D20 2480p N15 (20);: 2440 FM$FM$D$: NN1: 2440 NN1: FM$(FM$,1,N): 2440 *************************SOURCE "SO**************DISASSEMBLE,PF$"": P4 PF$" "i4,PF$"ADDR OBJECT LABEL DISASSEMBLY "NM$: 4," "O2$" ":O3$O2$:OA$""NA:1110:AR$DD$": "1200:O1$DD$" "A$M$(V):OC$(A$,2,3)" " (A$,1)"0" 1730 SE I7: 2730< 15,"B-P 2"(PT%)&F 2750:TYAA% 127: TY 26501P 2730AZ 2750:TAA%Qd 2750:SAA%gn FI$"": J3 18x #2,A$:FI$FI$A$: J 15,"B-P 2"(PT%28) 2750:BLAA%:2750:BLBLAA%256 "  SNSI 1320: SI=SECTOR IN MEMORYM SISN:TRTR(SN):SESC(SN): 2770: NEW SECTORa (A1ADBC: 1340 2A1ANO: A10 A1A165536 <V(A1): AC$(V): F**********************READ 1541 PRAANO ZH(RA256):LRA(H256) d15,"M-RK"(TR): 2:2,8,2,"#  15,"U1:";2;0;TR;SE I0 2556 #2,AA$:AA%(AA$(0))K ADI,AA%::2:p" ***************************FILE, "DIRECTORY"6 15:15,8,15,"I":2:2,8,2,"#@ TR18:SE1J 15,"U1:";2;0;TR;SET "1110:DD$"$"DD$:4 j***********CONV N TO DD$ BASE BD tDD$"":N1N_ ~N2(N1B): N3N1N2Bx DD$(H$,N31,1)DD$  N2 N1N2: 1150  ******************ADVANCE COUNT 1240 AA1: A65535 AA65536 1100 ***** & ** FILE COPY, PUBLIC DOMAIN **:(52,31:56,31:G-I0173Z2D:7936I,D:m7785,0:786,31{<PL$(19)AI124:PL$PL$(17):FI139:CL$CL$" ":KCL$CL$(13)CL$(13)PCL$(PL$,21)CL$(145)(145)U15,8,15 6,240,165,251,141,174,31$'165,252,141,175,31,169,0,133F'251,169,32,133,252,160,0,177i'251,32,210,255,164,144,208,20'230,251,208,2,230,252,165,252'205,175,31,144,234,165,251,205'174,31,144,227,32,204,255,76'73,31,32,9,31,13 SK!""PRESS RETURN TO TRY ";%"ANOTHER DISK.";;DM$:DM$""4070ODM$(13)1010Us'76,15,31,76,88,31,76,154'31,108,3,0,108,5,0,32$'9,31,152,170,32,198,255,168.'176,57,169,0,133,251,169,328'133,252,160,0,32,207,2 " MSD DUAL DRIVE FAST COPIERA53280,11:53281,11:646,0j" UAL RIVE AST OPIER"(" BY"2" AUL USHTON"dA$"M-R"(183)(0)(1)n15,8,15,A$:#15,A$:15 x A$"" " Ԡ 510NM$""DSDS2:1110!CL$;5"READING ";NM$>610U EN62UE1281200_BCNBh 410*CL$;"WRITING ";NM$4710>EN03010H510RNM$""2090\CL$;"FILE NOT COPIED"f3100  CL$; NB"OPY ANOTHER DISK (ْ/Β) ";A$:A$"N"? A$"Y"220 " ":140 o  "  "m  `"WW-MlLʎmLT - -TI$L$L&L&L (785)3"WRITE";# z" ERROR #";NB61440:) > 15,EN,EM$,ET,ESV EN0EN62EN63d 15:CL$;{ "DISK ERROR #";EN (PL$,22);EM$:  (147); TAB$(6)"FILE COPY" "INSERT SOURCE DISK, PRESS A KEY" Z9$:Z9$""d59468,129n"DRIVE ADDRESS CHANGE PROGRAM"Yo"TURN OFF ALL DRIVES NOW"~p"EXCEPT THE ONE TO BE CHANGED."x"OLD DEVICE ADDRESS 8"; OD: OD8 OD15 120"NEW DEVICE ADDRESS 9"; ND: ND8 ND15 1EN63580$ UE128NM$;" TOO LARGE.";C &EN62NM$;" NOT FOUND.";~ 0"CURSOR UP TO FILE NAME, HIT RETURN":NM$"":EN0:UE0 :NM$,TY$: DNM$;" NEED A DIFFERENT NAME" NEN0:NM$"":NM$: b v785,0 2,8,2,NM$","TY$",R" 1000#T C254 MT119: : 2031 V2.6E^ C226 MT50: : 2040 V1.2gh C213 MT12: : 4040 V2.1r C242 MT12: : 8050 V2.5| C198 40015,"M-R"(234)(16):#15,ZB$:ZB(ZB$(0)) ZB0 MT12: : 4040 V2.7  Z1010 n 785,00 15,"I":2,8,2,"$"< NB(2)H 2:810N T :_ 785,6u (PL$,3);(18); K142169 ((K));: (146)  6: J785,6 TIX(DE1)32254((DE1)8)2 Y(IX)128 ^TY(IX)128F2,251,24'105,32,133,252,160,0,177,251*'168,169,0,76,12,31,160,144ZV'235,32,204,255,160,0,240,19}`'164,144,32,204,255,192,64,208j'10,164,251,165,252,56,233,32t'76,12,31,169,240,76,12,31~'32,9,31,152,170,32,201,255'168,1755,145B'251,230,251,208,2,230,252,1659L'144,208,13,165,252,201,160,144ZV'235,32,204,255,160,0,240,19}`'164,144,32,204,255,192,64,208j'10,164,251,165,252,56,233,32t'76,12,31,169,240,76,12,31~'32,9,31,152,170,32,201,255'168,17 ": 2691D "UT Œ DISK IN  0"_ " AND" "Β DISK IN  1" " RESS Β WHEN READY" A$:A$(13)180 A$"M-E"(0)(87) 15,8,15,A$:15- BC3060 "COPY COMPLETED! ";:30709 "ERROR. ONLY ";NB;" OUT ";Q BC;"BYTES COPIED."f "PRESS ";(18);|& "RETURN";(146);0 " TO COPY ANOTHER FILE": DM$:DM$""3130D DM$(13)1010N :(PL$,21);"EMPTY DIw x ^ ©Lx hWLLLH ^h ^LGW`L sWL F C ɐ ^  ɐL^L]Β DISK IN  1" " RESS Β WHEN READY" A$:A$(13)180 A$"M-E"(0)(87) 15,8,15,A$:15- 1046:"READING DIRECTORY"$110%.210:8NS((NB1)254)IBNS15000RLDS1cVNSDSDS1r`(PL$,4);jBE(DS1)81:LEBE15tDS1NSLEBE8~DEBELE310:I(214)20" " 40 300: FIND DRIVE TYPE9 600: CHANGE ADDRESSh"THE SELECTED DRIVE HAS BEEN CHANGED...""NOW TURN ON THE OTHER DRIVE(S)",: IDENTIFY DRIVE TYPE615:15,OD,15@15,"M-R"(255)(255):#15,C$:C(C$(0))J ST 910:EN02: NB(2) 2:810& , 7 785,3S 2,8,2,NM$","TY$",W"h 910:EN02:t NB(2) 2:810  * >NBNB(NB0)65536 HNB61440UE0: RNB61440UE128: \CL$; f(785)0"READ"; pZB1 440 ST 1000E15,"M-R"(172)(16):#15,ZC$:ZC(ZC$(0))f ZC1 MT12: : 8050 V2.7 ZC2 MT12: : 8250 V2.7X15: 15,OD,15b15,"M-W"(MT)(0)(2)(ND32)(ND64)v" DEVICE ERROR " ST :TY0TY3  hKIX3IX18* r((K));; |:16);",";P ("SPU",TY,1):V ` CL$;y "DESTINATION DISK!" "PRESS ";(18);"RETURN"; (146);" WHEN READY." DM$:DM$""470 DM$(13)470 15,"I":  CL$;:A l 0MSD PROGRAMS 2PE2ABACKUP 228%BLOCKMOD4C64 DISKPATCHCHANGE UNITDATAMAKER.C64DIR PRINTDIR SQUEEZE DIS6511Q CDIS6511Q.DISALL.2.DOCDISALL.2C,DISK ADDR CHANGEDISK MOD2.0 DISK-DUMPDISPLAY BAM DUAL DRIVE AIDR FBACKUPFILE COPY FILE PURSUIT3.0FILEPARAMETER1.0 FORMAT DISKHEADER CHANGEHOW TO PART 2$ HOW TO USE* INSTRUCTIONS DDA LIST ME LOAD ADDRESSMSD FAST DUPLIC8MSD FILE PROTECTOPTIONSSB@9BSB@C0SB@CBSD.BACKUP.C64 SD.COPY.C64"SEQ LISTER SPEEDLOAD SUPERDIRECTORY6UNI-COPYUNSCRATCH  2061Lx',Pݠ?pFjFjJJ ݥi@`',Pݠ   &(&I`x P P`x',PݢpFjFjJJL`x',Pݢ  &(&`@̢   3 3 & #1 :0 &   ,, $ܥv &  RESS '' FOR INSTR./ THER TO START I1L  & RESS A KEY  &   4Й   ид)?9: !L  m L 9:!  L 6$Ln L 6`X%ԩԩ+ԩ/ԩ4ԩ ԩ! hIYL iبJJJJ ) 0LHl560 (e556h@@5 w LLEEE 4Z VP$ VP0P 8G) :   I,  Le CCLL7 L  0ʆ I : PL  P ) P KC e^w,Cwr  CLx Lt Lt&w L[ 8 x`   $ 8eCL     3   `,,?JJJf(fi@`I,,* * `,,JJJf(f` HIS IS A NEW VERSION OF WRITTEN BY HOMAS EMPELMANHILE AND INTEND TO USE IT,PLEASE SEND A CHEQUE OR MONEY ORDER FOR $5.00 (MADE OUT TO ) TO HOMAS EMPELMANN C/O , 1912 VENUE D., TE. 1, ORONTO, NTARIO, ANADA 5 41 (OR TO THE ADRESS BELOW). IS WILLING TO ACT AS A CLEARIHNER TR.25 2900 LDENBURG EST ERMANY FOR MORE INFORMATION. IS A NEW - RESIDENT OPERATING SYSTEM WITH AN EXTRA 8-BIT CABLE, WITH THAT YOU CAN LOAD UP TO TEN TIMES FASTER AND SAVE UP TO THREE TIMES FASTER. MPLEMENTED IS ALSOAL),WITHOUT COUNTING THE TIME CHANGING THE DISK THREE TIMES. - WITH TWO DRIVES YOU CAN BACKUP A HOLE DISK IN 38 SECONDS ! - AND THERE ARE MANY MORE FEATURES. T'S OBVIOUS, THAT IT MAKES,LIKE ALL S, FULLY ERIFY AFTER READING AND!SS4000056,155:52,155-SS:O "INSTALL WHICH SPEED LOAD?""SPEED LOAD AT 1)49152 2)51968 3)39680";A:A1A315A20,30,40:5S49152:L$"SB@C0":50S51968:L$"SB@CB":50(S39680:L$"SB@9B"2L$,8,1 o M - W    i i ܊ o M - E S   ݩݩݩݩݩ؝ٝڝ &  2.5 WRITTEN BY H. EMPELMANN 0 &  NSERT SOURCE DISK w   LL  T9(09 9ʩ* ׅ ϥ o  е)ʩ L.  L. )?L. m &  NSERT DESTINATION DISK w  G (0 56iԅ65l`ԩ ,,0,5`h5h6565 5656l5  &  AM IS UNREADABLEL &  ND OF COPYL &  AD TRACK: & - ND OF COPY m w m L ' (`1)   LLLDJJJJJP0PP ILx      & Lx L L  !"    w  xL L   2   ީ    ǩL$L; L Ltx`X vx`X0$ p0x` PM0PMLHL  `,,* *N. T'S FASTER THAN THE LAST AND COPIES ONLY THE USED BLOCKS MARKED IN THE . ND IT DOESN'T FORMAT THE DESTINATION DISK. HOMAS EMPELMANN IS A STUDENT,WHO LIVES IN EST ERMANY. F YOU FIND THIS OR THE OLD VERSION OF WORTHW A - SUPPORT AND A MICRO - MONITOR.  ND 'VE PROGRAMMED THE FASTEST ACKUP PROGRAM FOR IT. HAT MEANS: - WITH ONE DISKDRIVE IT TAKES YOU LESS THEN 70 SECONDS TO ACKUP A HOLE DISK (OF COURSE, USED-BLOCK- SELECTED COPY IS OPTION WRITING. HANK YOU FOR READING AND, PLEASE, MAKE MANY COPIES OF THIS PROGRAM, IN ORDER TO REACH EVERYONE WITH THIS NOTE !  70 SECONDS TO ACKUP A HOLE DISK (OF COURSE, USED-BLOCK- SELECTED COPY IS OPTION(DISK COPY DISK COPY C N N N COMPILER  &L& ! L  2073 RLE RL Rd? hhLHRTL-64 R q _``%`H h` _ G R`@$ 0BRK, 1ORAX), \, \, \, 1ORA, 1ASL, 1RMB0, 0PHP, 1ORA#, 0ASL, \, \, 2ORA, 2ASL, *BBR0, \, \, 1ANDX, 1ROLX, 1RMB3, 0SEC, 2ANDY, \, \, \, 2ANDX, 2ROLX, *BBR3, 0RTI,1EORX), \, \, \, 1EOR, 1LSR, 1RMB4, 0PHA, 1EOR#, 0LSR, \, 2JMP , 2EOR, 2LSR, *BBR4, 1BVCR,1EORY), \, \, \, 1EORX, 2ADCY, \, \, \, 2ADCX, 2RORX, *BBR7, \,1STAX), \, \, 1STY , 1STA, 1STX, 1SMB0, 0DEY, \, 0TXA, \, 2STY , 2STA, 2STX, *BBS0, 1BCCR,1STAY), \, \, 1STYX, 1STAX, 1STXY, 1SMB1, 0TYA, 2STAY, 0TXS, \ *BBS3, 1CPY#,1CMPX), \, \, 1CPY , 1CMP, 1DEC, 1SMB4, 0INY, 1CMP#, 0DEX, \, 2CPY , 2CMP, 2DEC, *BBS4, 1BNER,1CMPY), \, \, \, 1CMPX, 1DECX, 1SMB5, 0CLD, 2CMPY, \, \, \, 2CMPX, 2DECX, *BBS5, 1CPX#,1SBCX),LJ000LJ$L%%,3,%O %HLJ:::*O ::HAM:OVH]OLHddk+O"END OF FILE":]Ld-dk*O"ADDRESS ERROR":]LHdrdy+OH4,PF$"ADDR OBJECT LABEL DISASSEMBLY "NM$4," ": :J: Jﱒ      0+OHBJﱒ  2+OH줖 R.OH *O  : *OJH ,PF$AR$O1$O2$O3$LB$OC$OA$(13);:иC$:6.OH느:=,O:H느++OH느+<+ODBD4," ":GDиH-+O"";:M4:L:JJ߅K++OKې+O  ۊRYDKBDR3 RHi" ";:LJiu +OLD$;:L" CHANGE OPTIONS"" QUIT MENU""SOURCE ";"(FILE/C64/*MSD DISK DRIVE) "" "NM$"OUTPUT ";"(VIDEO/PRINTER/FILE)"" "O$"TYPE ";"(HEX DUMP/DISSASEMBL (20);:Hy"QUIT":..P4215:^"FILENAME ";:J u +OLu+OH祐+O(20);:H͖g͐H́H"SOURCE ";:JigF+OH倖gC+OHg*+OHu +O:Hy(20);:HJ ЀJ Ї, nBnn OH,O nH%15,"B-P 2"(PT%):J OHH%J J A‰B#2,A$: G15,"B-P 2"(PT%28):J kJ kk" ":O!FI$;DL$;TY;DL$;T;DL$;S;DL$;BL: 1BPLR, 1ORAY), \, \, \, 1ORAX, 1ASLX, 1RMB1, 0CLC, 2ORAY, \, \, \, 2ORAX, 2ASLX, *BBR1, 2JSR,1ANDX), \, \, 1BIT , 1AND, 1ROL, 1RMB2, 0PLP, 1AND#, 0ROL, \, 2BIT , 2AND, 2ROL, *BBR2, 1BMIR,1ANDY), \, 1LSRX, 1RMB5, 0CLI, 2EORY, \, \, \, 2EORX, 2LSRX, *BBR5, 0RTS,1ADCX), \, \, \, 1ADC, 1ROR, 1RMB6, 0PLA, 1ADC#, 0ROR, \, 2JMP), 2ADC, 2ROR, *BBR6, 1BVSR,1ADCY), \, \, \, 1ADCX, 1RORX, 1RMB7, 0SEI,, \, 2STAX, \, *BBS1, 1LDY#,1LDAX), 1LDX#, \, 1LDY , 1LDA, 1LDX, 1SMB2, 0TAY, 1LDA#, 0TAX, \, 2LDY , 2LDA, 2LDX, *BBS2, 1BCSR,1LDAY), \, \, 1LDYX, 1LDAX, 1LDXY, 1SMB3, 0CLV, 2LDAY, 0TSX, \, 2LDYX, 2LDAX, 2LDXY, \, \, 1CPX , 1SBC, 1INC, 1SMB6, 0INX, 1SBC#, 0NOP , \, 2CPX , 2SBC , 2INC , *BBS6, 1BEQR,1SBCY), \, \, \, 1SBCX, 1INCX, 1SMB7, 0SED ,2SBCY , \, \, \, 2SBCX, 2INCX , *BBS7T[ VL-DIS6511Q CWH J0dydЀdЇJ rЎHݐ:VЎ-O Ў ҜL:VHHУHЪ15,"M-R"(L);(H)#15,AC$: L+O44,3:и+O 44,4:.OH544,8,8,O$:иƊF+O4,"SOURCE IS "FM$:OH듐M%ې+O  #+OJ#$HB )+O(J$  +OHB Y)+O),YHB, HB !Jﱒ ! J )+O()HB  +OHB,  *.OHJﱒ (,(H`4*OGD4,PF$NM$4,PF$"ADDR "F$PF$PF$" -ASCII-"::J:  R`DKBDJﱖ` `  -O @ Hꊐ _*O  R RGD4,PF$AR$HD$F$:HD$"";:nBnF"";:nBnFg+OHiguu"+u+O Y)"" "T$"ADDR ";"(BEGIN/END/NORMALIZE)"" BEGIN "AB$" END "AE$:VO" NORMALIZED""RETURN TO OUTPUT/ANY KEY TO HALT":LJJJigQ+OHgM+OHgS+OH瓖gO+OHؖgT+OHPgA+OHu +OH GnL#2,AA$:ɀLJЀЇL*$-OH"INVALID TRACK"(TR):L22,8,2,"#"15,"U1:";2;0;TR;SE:nBn#2,AA$:ɀnPF2:L"DIRECTORY"1515,8,15,"I"22,8,2,"#":ЀЇ15,"U1:";2;0;TR;SE"TO QUIT  +OHRЊQ+O "":HЊT+OHNהה/OH\הހ+OHz""FL$","TY","T","S","BK" "" ""SELECT SOURCE FILE AFTER":HTR(BM):ASC(BM):A͔k1515,8,15,"I"22,8,2,"#":nkB JOO:=A"":H"C64";:AH"MSD DRIVE";:A uH_"OUTPUT ";:JigV+OHፖgP+OH|gF+OHfu +OHy(20);:H"VIDEO ":бHX"PRINTER ":биHX"FILE ":б uH"TYPE ";:JigH+OHgD+O "NORMALIZE TO ";:J+O uL:V:V:=V=LJ u +u +OH߹u+OHȒgHHJ߅€+*OHߝLnBn" ";:FHY’gg+OLnBng3n+O nnGn+O0:,S,WҿL" D I S 6 5 1 1 ":..PI-.Е1515,8,15,"UJ:":AбM$(255):A0123456789ABCDEF3 /"INITIALIZING....":DBDA$: \+O 0*?* D  .OAOAOYV1OLCEXLLFOHDIDTAADPTTYTFJAFBKBMM2N0+d:MSD INMATI EXCHANGE PROGRAM DISK 2mn:THIS DISK IS A COLLECTI OF PROGRAMS SUBMITTED BY MSD USERS.x:ALL PROGRAMS ARE REPTEDLY MSD COMPATIBLE ARE BELIEVED BE PUBLIC:DOMAIN. THEY ARE BELIEVED BE :FUNCTIAL. PLEASE REPT ANYa01H" `SPEEDLOAD INSTALLED BY JESSE KNIGHT HHH [lhhh@  $LtĠ ?ɠގsĺnĭ܍mĩ ܭ)qIrĮsĽ=…?…A…ש # `q ,.)qčHhJJMJJHhHhMJJMMrĎ`C x 3N@COv+L@*LN@N cA@@Ø |A@ |A@, |A3NXLӭN  F LI3****_jjjjHhHhjjHh`x ~`x$LNЍ,,0`H8"1Ii Je)í)Í,0Jh" K ­)`@@Ø |A@ |A@, |A3NXLӭN  F LI3****_jjjjHhHhjjHh`x ~` Q,0 ,0 ,0 ,0""FOR TR & SE T,0 ,TRK,SEC,0""FILENAME ,TYP,TRK,SEC,BLKS":JEnBn" ":F"SELECT FILE N,0 ,0 ,0 ,0 ";FL$,TY,T,S,BK:ЊN+OHJЊN+nnnAnk++OH⡔*$-OH"INVALID TRACK"(T):knFBAD FILÉA2:H15,"U1:";2;0;T;S:J J AGnyЀЇJOOkkO:=AV"":HЀAЇTRK- SEC-AHu +OHy(20);:HF"HEX DUMP ":H"DISSASEMBLY":Ԁи uHy"ADDRESS ";:JigB+OJgE+OJdgN+OJDu +O:Hyu +OH(20);:H"BEGIN ";:JuY+O uL:L"END ";:Ju+O uL=L:V:=V=V€+OLH|JJ"RETURN TO CONTINUE: M FOR MENU":JyHA+OC64 CƐA+OMSD 6511DƐA+OFƀ]A+O TSƐԁ+OHEX DUMP|HԂ+ODISAS |D+OVIDEO ҿ+OPRINTER ҿ:J=JGDH^NVBDN1N2N3HASRAM1NOFESNBLBCSITRSEA1ADAHLPLNOSFDMPNOO:MDLAHA %#/ Ӎ03HASRAM1NOFESNBLBCSITRSEA1ADAHLPLNOSFDMPNOO ˩a0ˍ1Hˍ" `SPEEDLOAD INSTALLED BY JESSE KNIGHT HHH [lhhh@  $LtϠ ̠ ̢?ɠގsϺnϭ܍mϩ ܭ)qIrϮsϽ=ͅ?ͅAͅש ̥ # # ee  xq ,0 D8p tLv p p8mĎ (nĚX`  `M-RM-WM-E @oLhhhhL @oL H h I  ]Ø  ,  IXLӅ 31  P0P 8G :`̅), )JJJJ )`     EEE 4 P `q ,.)qύHhJJMJJHhHhMJJMMrώ`C x 3N@COv+L@*LN@N cA@@Ø |A@ |A@, |A3NXLӭN  F LI3****_jjjjHhHhjjHh`x ~`x$LNЍ,,0`H8"1Ii Je)í)Í,0Jh" K ­)`@@Ø |A@ |A@, |A3NXLӭN  F LI3****_jjjjHhHhjjHh`x ~` +d:MSD INMATI EXCHANGE PROGRAM DISK 2mn:THIS DISK IS A COLLECTI OF PROGRAMS SUBMITTED BY MSD USERS.x:ALL PROGRAMS ARE REPTEDLY MSD COMPATIBLE ARE BELIEVED BE PUBLIC:DOMAIN. THEY ARE BELIEVED BE :FUNCTIAL. PLEASE REPT ANY SD1 FILE COPIER A FASTER DUPLICATE i :THE SD2. THERE ARE ALSO MANY COPY PROGRAMS VARIOUS DRIVES. :PICK E YOU LIKE. :MSD INMATI EXCHANGE :PAUL E. ECKLER :2705 HULMAN ST :TERRE HAUTE, IN 47803 :81223482408122320# EXCEPTIS THE EXCHANGE. :n : :THESE PROGRAMS WERE RIBUTED BY BILL WENTZ, SNY SIMS, STEVE KAWAMO : BOB KAUFFMAN. THANKS. :# :SOME OD ES INCLUDE A *NB"DISALL.2.DOC" *LM5:RM75:VP2:SP0 *HD2:.UIRING,12/21/85,.2 *FT2:DISALL.2.DOC,-#-, IS WRITTEN IN ASIC: IT IS SLOW! OAD AND RUN IS NORMAL. XIT IS WITH "" OR THE "STOP" KEY. "" FOR QUIT IS RECOMMENDED TO STRIP OUTSHOWS THE FUNCTIONS AVAILABLE WITH DEFAULT VALUES. YPE "" TO GET THE STATE OF THE FUNCTIONS. YPE "" WITHOUT AN ENTRY TO START THE "" OF THE "" OF OPERATION. HE FIRST BYTE WILL BE TAKEN FROM THE "" AT THE "" ADDRESS. PERTHE WORD. HEN TYPE THE FIRST CHAR OF THE SUB-FUNCTION DESIRED. HIS ACTION CHANGES THE STATE OF THE PROGRAM AND USUALLY DOES NOT RETURN YOU TO THE MENU. OURCE: ILE: HE SOURCE IS FROM THE TRACK AND SECTORS ASSIGNED TO THE FILENAME SELECTED. HE USER: CODE APPEARS TO COME FROM THE ADDRESS. (O ERROR TRAPPING IS DONE ON VALUES OUTSIDE THIS RANGE AND RESULTS ARE UNKOWN.) HE ADDRESS MAY BE "NORMALIZED" SO THAT DISASSEMBLY MAY APPEAR AS IF FROM A DIFFERENT ADDRESS. SKIP AROUND ALL YOU WANT BUT BECTORY AND THE NUMBER OF SECTORS FOUND IN THE FILE. OVE THE CURSOR UP AND PRESS "RETURN" TO SELECT THE FILE WANTED. SCAPE TO THE MENU WITH "" FOR FILE NAME. RESS "" WITH FILE "" TO CONTINUE THE DIRECTORY SEARCH. R, ENTER A FILENAME AND THE# ee ̩  xq ,0 D8p ̅ ̅tLv p ̑p8mώ (nϚX` ̢ `M-RM-WM-E @oLhhhhL @oL H hI  ]Ø  ,  IXLӅ 31  P0P 8G :`̅), )JJJJ )`     EEE 4 P EXCEPTIS THE EXCHANGE. :n : :THESE PROGRAMS WERE RIBUTED BY BILL WENTZ, SNY SIMS, STEVE KAWAMO : BOB KAUFFMAN. THANKS. :# :SOME OD ES INCLUDE A W121M : :THESE PROGRAMS WERE RIBUTED BY BILL WENTZ, SNY SIMS, STEVE KAWAMO : BOB KAUFFMAN. THANKS. :# :SOME OD ES INCLUDE A  CORRECT TRK, SEC, AND BLK NUMBERS IF YOU KNOW THEM. HE FILENAME WILL APPEAR ON ALL OUTPUT FOR DOCUMENTATION. F A FILE HAS ALLREADY BEEN SELECTED PRIOR TO ENTRY AND THE NEW FILE HAS MORE SECTORS THAN THE PREVIOUS FILE THEN THE PROGRAM WILL REQUEST TH THE 256 BYTE SECTOR BUFFER AT , IF YOU WANT TO SAVE THE PROGRAM AFTER RUNNING. O SAVE: LINE 1010 AND MOVE THE CURSOR UP AND WIPE OUT 1010 THEN . HE TIME IS SPENT ING IN THE OPCODE VARS FROM DATA STATEMENTS. HE MENU ATION WILL TERMINATE AT THE "" ADDRESS. F THE ADDRESS HAS BEEN "" THE OUTPUT WILL APPEAR TO BE FROM THE NORMALIZED ADDRESS. HE FUNCTIONS ARE CHANGED BY TYPING THE FIRST CHAR OF THE MAIN FUNCTION. HE COMPUTER FILLS OUT THE REMAINDER OF "" AND "" ADDRESSES ARE INITIALIZED TO THE VALUES SAVED WITH THE FILE. OU MAY SELECT ANY ADDRESS WITHIN THIS RANGE. HE ADDRESS IS CONVERTED TO A TRACK AND SECTOR IN ORDER TO READ THE BLOCK FROM THE . HIS CONVERSION IS TRANSPARENT TO THE  PREPARED TO WAIT WHILE THE HUNTS FOR THE PROPER TRACK & SECTOR. OU WILL GET A DIRECTORY OF THE FILES ON THE DISC WITH OTHER INFO NEEDED BY THE PROGRAM. (EATHLY SLOW) HE PROGRAM ENSIONS VARIABLES TO HOLD THE NUMBER OF FILES FOUND IN THE DIRE E" AND "" OR "" TO OBTAIN THOSE FUNCTIONS. DDRESS: ND: NPUT A HEXADECIMAL NUMBER OR "RETURN" TO ESCAPE. FTER THE NUMBER TRY "RETURN" OR "SPACE" AND "" OR "". DDRESS: ORMALIZE: RESS "RETURN" TO CANCEL ANY PREVIOUS NORMALIZED ADDRESS. NT FFER: HE KEYBOARD INPUT BUFFER IS ACTIVE AT ALL TIMES. EWARE OF TOUCHING THE KEYBOARD ACCIDENTALLY. HE PROGRAM IS IN ASIC AND IS DEATHLY SLOW. T'S ONLY VIRTUE IS THAT IT WORKS.(THE IMPORTANT PARTS!) ROGRAMS OF ANY SIZE ON DISK MAY BE DISASSEMBL AY UIRING .. OX 135 ERBY, 97531 (503) 592 4594 G THE KEYBOARD ACCIDENTALLY. HE PROGRAM IS IN ASIC AND IS DEATHLY SLOW. T'S ONLY VIRTUE IS THAT IT WORKS.(THE IMPORTANT PARTS!) ROGRAMS OF ANY SIZE ON DISK MAY BE DISASSEMB  MSD FILE PROTECTORB ORIGINAL PROGRAM : COMPUTE APR 85d MODIFIED FOR MSD DISK DRIVEv"":Q$(13) U$" ":KB198:SF653:KL203:NS12F14:F73:53281,12:53280,621240:1080 <15,AT YOU SELECT THE NEW FILE AGAIN AND THEN PROCEED TO CLEAR ALL VARS AND "". HIS IS DONE IN ORDER TO RE-ENSION THE SECTOR VARS. TRACK AND SECTOR READ FUNCTION HAS BEEN TACKED ONTO THE FILE FUNCTION WHICH RESULTS IN SOME CONFUSION. NY SWITHIN THE 1541. NY ADDRESS WITHIN THE 64 ADDRESS SPACE IS ALLOWED, BUT THERE IS MEMORY ONLY FROM 0000-07FF AND C000-FFFF. HE DISK CONTROL PORT IS AT 1C00-1C0F. HE SERIAL PORT IS AT 1800-180F. LL OTHER MEMORY IS A GHOST OF REAL MEMORY. UTPUT:S WITH A HEADER ON EACH PAGE. ISTING MAY BE HALTED AT ANY TIME WITH ANY KEY. HE LINE COUNTER IS NOT CHANGED BY THE HALT OR ANY FUNCTION EXCEPT "". UTPUT: ILE: INES WILL BE WRITTEN TO A FILE ON THE 1541. HIS WORKS EVEN IF THE SOURCE IS A NIQUE FILE. F NOT YOU WILL GET A DISK ERROR. (UG - RED LIGHT FLASHES BUT PROGRAM IGNORES IT.) HE SCREEN IS FILLED WITH "" (RPHIC SYMBOL: SOLID CIRCLE) FOR EVERY LINE SENT. HE LISTING CAN BE HALTED AT ANY TIME WITH ANY KEY. HE FILE IS CLOSED WTES. N ATTEMPT TO CONVERT NON PRINTABLE CODES TO CATCH POSSIBLE SCREEN CODES IS MADE. HIS MIGHT BE IMPROVED UPON. "YPE" ALSO RESETS THE LINE COUNTER FOR PRINTER OUTPUT. YPE: ISASSEMBLY: UTPUT IS IN LINES OF DISASSEMBLED CODE. HE FORMAT ILT OUTPUT. "" WILL RESUME OUTPUT. "" IS THE ONLY FUNCTION THAT RESETS THE LINE COUNT FOR PRINTER OUTPUT. DDRESS: EGIN: NPUT A HEXADECIMAL NUMBER OR "RETURN" TO ESCAPE. FTER ENTERING THE NUMBER PRESS "RETURN" TO GET A NEW LINE OR "SPACER A HEXADECIMAL NUMBER WHERE YOU WANT OUTPUT TO BEGIN. NLY THE OUTPUT LISTING ADDRESSES ARE AFFECTED! PCODES ARE STILL TAKEN FROM THE ORIGINAL "" ADDRESS. E CAREFUL THAT THE "" ADDRESS IS CORRECT. HECK THE MENU TO BE SURE. EYBOARD BULED IN PART OR IN WHOLE. HE OUTPUT MAY BE TO A PRINTER OR TO A DISK FILE FOR FUTURE USE. PLAN TO CONVERT TO MACHINE LANGUAGE, BUT WHO CAN TELL WHEN! UG ANNOUNCEMENTS ARE APPRECIATED. SPECIALLY IF YOU SHOW HOW TO CORRECT THE BUG! END TO: A(A$(0)):A.170 A64170B 15,"B-P";2;P32I:2,(A64);Q :70:E "TRACK"T"SECTOR"S"IS LOCKED":TT1:SS1:T110 730:740: :::READ DIRECTORY::: H$(18):"HOLD [SHIFT] TO PAUSE 15,8,15:1,8,0,"$0" #1,A$ "U1";2;0;T;S:6707 F15,"B-P 2 0":15,"U2";2;0;T;S:670O PT(681):S(682):i Z:::LOCK ALL FILES::: d""NS)"LOCK ALL FILES":U$:660:T18:S1 nP2:60 x#2,A$:T1(A$(0)):#2,A$:S1(A$(0)) I07:15,"B-P";2;P32I #2,A$:INGLE TRACK AND SECTOR MAY BE SELECTED WITHOUT ANY REFERENCE TO A FILE NAME. OME LOOSE ENDS NEED TYING UP. OURCE: 64: HE SOURCE IS FROM THE 64 MEMORY. NY ADDRESS WITHIN THE 64 ADDRESS SPACE. OURCE: 1541: HE SOURCE IS FROM THE MEMORY  IDEO: INES ARE LISTED TO THE SCREEN UNTIL THE SCREEN IS FULL. ISTING MAY BE HALTED AT ANY TIME BY PRESSING ANY KEY. UTPUT: RINTER: INES ARE LISTED TO THE PRINTER UNTIL THE "" ADDRESS IS FOUND. HE OUTPUT IS FORMATED INTO PAGES OF 66 LINEFILE OR THE 1541. HE FILENAME WILL BE MADE UP FROM A SOURCE CODE ("C" FOR 64, "D" FOR 1541, "F" FOR FILE); THE TYPE OF OPERATION ("H" FOR HEX DUMP, "D" FOR DISASSEMBLY); THE BEGIN ADDRESS ($XXXX); AND THE END ADDRESS ($YYYY). HIS USUALLY CREATES A UHEN THE OPERATION TERMINATES OR IS HALTED WITH ANY KEY. NEW FILE WILL BE OPENED IF OPERATION IS RESUMED. YPE: EX DUMP: UTPUT IS IN LINES OF EIGHT HEX BYTES FOLLOWED BY THE DISPLAYABLE CHAR FOR EACH BYTE. RINTER OUTPUT IS IN LINES OF 16 HEX BY S (ALL NUMBERS IN HEX): FOUR BYTE ADDRESS HE OPCODE AT THE ADDRESS ONE OR TWO BYTE OPERAND SPACE FOR THE LABEL (LABELS AND EQUATES ARE NOT IMPLEMENTED YET) HE MNEMONIC FOR THE OPCODE HE ADDRESS MODE NY KEY WILL HA 252,41,64,240,10,169,144,32,210,255,169,60,32,210,255,169?n 13,32,210,255,169,144,32,210,255,96c""NS2)"<>"" WARNING : DO NOT USE THIS PROGRAM ON"" COPY PROTECTED COMMERICAL SOFTWARE!!"" NOTE1 : WHEN A F ECT TAB IT WILL PREVENT THE"" DISK BEING WRITTEN TO, FILES BEING"N" SCRATCHED OR THE CLEARING OF DIRECTORY"y" WITH A SHORT NEW IE. OPEN 15,8,15,"" 'N0:DISKNAME', BUT WRITE PROTECT* WILL""NOT PREVENT A FULL NEW - REFORMAT  :#1,A$:BY26 #1,A$:#1,A$2 #1,A$:BL(A$(0))R #1,A$:BLBL256(A$(0))d N$"":K1BYw (SF)SF,1,1 #1,A$:ST0234 N$N$A$: BL;N$:BY28 ST0222 BL;N$ 1:15 730:740:140,0: ":::INPUT N (F$,(F$)1):320( |(20)A$CU$;:F$F$A$:320? :::LOCK A FILE:::I "";d NS)"LOCK A FILE":U$v 300:KQF1 KQF7210:400 679,1:780:660:T18:S1 60:828:A(252):A470 80:T440 "FILE NOT FOUND":41010:5300679,1:780:660:T18:S14:60:828:A(252):A600CD80:T570bN"FILE NOT FOUND":540X(A64).F$Q$"IS ALREADY UNLOCKED":730:740:640bP(255):60:15,"B-P";2;P:2,(A135);l70:E530v730:F$:"IS UNLOCKED":740:2:15:!"PRESS ANY KEY":KB,0CKQ(KL):A$:A$""KQ64750If:::STORE NAME FOR ML::: (F$)16F$F$(160):780I1(F$):683I,((F$,I,1))::700,0: :::WRITE PROTECT* DISK:::*""NS)"WRITE PROTEILE:::z"";NS)"SCRATCH A FILE":U$*300:KQF1?KQF7210:890d"ARE YOU SURE";A$:A$"Y"890660:15,"S0:"F$:15,E,EM$,ET,ES:E1680:890730:ET."FILE IS LOCKED OR NOT ON DISK":740:890ET1ET;EM$:"B-P 2 2":2,(65);:15,"B-P 2 166""2,(65);:70:E980R660:730:"DISK HAS WRITE PROTECT REMOVED"]$740:r.:::MAIN MENU:::8""NS2)"<>"B" 1) DIRECTORYL" 2) LOCK ALL FILESV" 3) LOCK A FILE`" 410,980,890,1220,15001080 2:15:(:::VARIABLES & M/L:::R679,0:140,0:CU$(31)(161)(144)rQZ8281006:ZQ:QZ,ZQ:: 169,0,141,168,2,133,253,162,2,32,198,255,32 228,255,141,169,2,32,228,255,141,170,2,230,2532,240,1912 165,140,240,3,32,199,3,173,167,2,240,3,32H< 175,3,173,168,2,240,171,32,204,255,96,160,0zF 185,172,2,240,8,217,189,2,208,7,200,208,243P 238,168,2,96,169,0,133,252Z 96,160,0,185,189,2,240,6,32,210,255,200,208d 245,165,ILE IS LOCKED IT"" CAN NOT BE SCRATCHED, UNTIL IT IS "C" UNLOCKED. THE DIRECTORY INDICATES A"i" LOCKED FILE WITH A '<' SYMBOL." NOTE2 : WRITE PROTECT* IS A SOFTWARE"" TYPE OF WRITE PROTECTION. AS WITH THE"" WRITE PROT@IE. "" OPEN15,8,15,'N0:DISKNAME,ID#' " " 740@" UNLOCKED. THE DIRECTORY INDICATES A"i" LOCKED FILE WITH A '<' SYMBOL." NOTE2 : WRITE PROTECT* IS A SOFTWARE"" TYPE OF WRITE PROTECTION. AS WITH THE"" WRITE PROTAME:::* ,"[F1] EXIT [F7] DIRECTORYM 6"FILENAME? "CU$;:KB,0:F$""o @KQ(KL):A$:A$""KQ64320 JKQF1KQF7(20): T A$(20)F$""320 ^A$(13)F$""(20): hA$(13)F$""320 rA$(20)(20)A$CU$;:F$)(A64)F$:" IS ALREADY LOCKED":730:740:510TP(255):60:15,"B-P";2;P:2,(A64);c70:E400730:F$:"IS LOCKED":740679,0:400:::UNLOCK A FILE:::"";NS)"UNLOCK A FILE":U$300:KQF1&KQF72":740679,0:530:::OPEN FILE:::?2:15:15,8,15,"I0":2,8,2,"#"S15,E,EM$,ET,ESlE73E26730:710E"ERROR:":E","EM$","ET","ES"":730:E73"DISK IS WRITE PROTECTED*":740:"REMOVE WRITE PROTECT TABCT* DISK":U$64"INSERT DISK IN DRIVE [F1] TO ABORT":TD1900::740C>KQF1gH660:T18:S0:60:15,"B-P 2 2"R2,(66);:15,"B-P 2 166":2,(66);:70:E810\660:730f"THE DISK IS NOW WRITE PROTECTED":740:p:::SCRATCH A F740:890F$:"IS SCRATCHED":740:890,:::UNLOCK A DISK:::U""NS)" REMOVE WRITE PROTECT*":U$"INSERT DISK IN DRIVE [F1] TO ABORT":TD1900::740KQF1660:T18:S0:6015,"M-W";(136);(76);(1);(65); 15,) UNLOCK A FILEj" 5) WRITE PROTECT* DISK1t" 6) REMOVE WRITE PROTECT*J~" 7) SCRATCH A FILEY" 8) QUIT" 9) INSTRUCTIONS AND WARNINGS" ENTER YOUR CHOICE"A$:A$""1180C(A$):C1C91180C210,100,400,530,8 30,253,32,228,255,133,252,165,253,133,255,32,228F  255,32,228,255,230,253,230,253,160,0,32,228,255| 230,253,153,189,2,200,24,192,16,144,242,160,243 32,228,255,230,253,165,144,240,3,141,168,2,200( 208,241,165,252,208,7,173,168,2,208,22 2 "DISK VIEWER/CHANGER JIM BUTTERFIELD"_" CAUTION - USE CARE - THIS PROGRAM"" CAN WRECK YOUR DISK IF USED"(" WITHOUT CARE & UNDERSTANDING!"2J2085<(32768J)3290FJPZL1JdS1L15 n T1T772:15:%" WORKING "<15,"U1:";2;D$;T;SE720\"15,"U1:";2;D$;T;Se,720r6J0255@15,"M-R";(J);(DH)J#15,A$TA$""A$(0)^A(J)(A$)hJrP0|"TRACK";T;"SECTOR";SJPPS2S1 "NEXT TRACK,SECTOR: ";3bA(0)0"NONE":A$"QUIT":640BlA(0);A(1)TvA$"GO THERE"aA$;"?";iZ$xZ$""650""S19Z$" "P128P:380Z$"Y"TA(0):SA(1):250Z$"C"77023015,E,E$,E1,E2 z720 290  C20 J014 C%((C$,C1J))H C%58C%C%48\ C%64C%C%55n C%0C%15~ C2C216C% J  VV16 L12 V%V V(VV%)16 V%9V%V%7 $K$K$(V1) .(V%48); 8LT209DH17 >  SAVE/PROMPT ROUTINE (C) 860811 S H KAWAMOTO TPUG#17834R  SAVE PROGRAM?X f S$"TEMP" "NAME OF PROGRAM ";S$; ("",(S$)2); S$ P$":"S$ (S$)161270 ("SAVE ON WHICH DRIVE 1580"GO AGAIN? (Y/N)"SCSC320"FCSC14,16406X$G$PX$"Y"X$"N"1520aX$"Y"1270g" CHECK FOR DISK ERRORS,15,E,E$,ET,ES6E0@"DISK ERROR:"(E)", "E$","(ET)","(ES)J15T1560^ PR M$(1),FT$(4)4BL$" "@(Z$(.)I2TT5S<BB21mA(213)39TT0:BB24xFM$(0)PM$(1)ZX04dFT$(X)nXx"";59468,12MM(((213)(M$(1)))2.5)X02MM);M$((X1))X$"N"2704"X$"Y"FL1:224,TT:225,BB:"";:380=,FL0X6(213)791580:"";x@MM)"NAME OF FILE *";JF$TF$"*"310^(F$)16380hMM)"FILENAME TOO LONG!"r310|15,8,15,"I0"2,8,2,"#"T18 NF$FF$670%XFLFF$;(BL$,16(FF$)),,bX9lT0640Bv420I2Q15}FL.MM)"FILENAME NOT FOUND!":250FL15,"B-P:";2;X322#2,X$X$""X$Z$TY(X$)FTTY15FT4MM)"INVALID FILE TYPE!":240 TY128CL$"YES":760' CL$"NO"A TY64PR$"YES":780N PR$"NO"g 15,"B-P:";2;X3230r #2,X$ X$""X$Z$ *LB(X$) 4#2,X$ >X$""X$Z$ HHB(X$)256 RBLLBHB \FT4910 f15,"B-P:";2;X3223S2S1161xS35S13$ A(255)5"DRIVE#";D$ND$"0"D$"1"140c 15,8,15,"I"D$l720|2,8,2,"#0"720 FIND DRIVE TYPE1110 GET TRACK/SECTOR" TRACK,SECTOR 0,0";T,SVJ 1010K$""!"- ";/K0S11<VA(JK)F1010P" ";X Kb"-";pK0S11}VA(JK)(V127)32V32(V63)44(V63)58V32&(V);0K,J:DS19 "SPACE";N " CHANGE"XE0 "DISK ERROR:"E;E$,E1;E2 4 "DO CHANGE";C$F (C$)S3230n (C$,3,1)"-"(C$,S3,1)"-"230w C11 *920 4C3C21 >K1S1 HC1K32 R920 \15,"M-W";(C3K);(DH);(1);(C2) fK p15,"U2:";2;D$;T;S B@ L READ DRIVE ADDRESS $FFEB TO DETERMINE DRIVE TYPE (C) 860818 S H Ka V15,"M-R";(235);(255);(1)n `#15,DT$ jDT(DT$Z$) t 2040/4040 ~DT234DH17  1541/2031 DT205DH3  MSD DT207DH64  8050 D(0/1)?"; 2SC32848 <FC25SC F1640& PDR$G$B ZDR$"0"DR$"1"1350P dN$DR$P$j n"SCRATCHING "N$r x15 15,8,15,"S"N$ "SAVING "N$ N$,8 1580 "SEARCHING FOR "N$ "VERIFYING" N$,8 OMPT ROUTINEhSKSCFC rG$|SK,(SK)128*DE122DEDSK,(SK)127PDE12XDEmG$""SK:1640s,8,15,"S"N$ "SAVING "N$ N$,8 1580 "SEARCHING FOR "N$ "VERIFYING" N$,8 X CMM6)"WITH THIS PROGRAM, ALL PARAMETERS OF A"wMM6)"FILE CAN BE OUTPUT TO THE SCREEN OR TO"MM6)"A PRINTER AT YOUR OPTION."(213)791580:"";MM)"LIST FILENAMES (Y/N)?"X$X$"Y"S115,"U1:";2;0;T;S'15,"B-P:";2;02#2,X$CX$""X$Z$OT(X$)Z#2,X$kX$""X$Z$wS(X$)X0715,"B-P:";2;X325FF$""Y015#2,X$&X$""X$Z$0(X$)160590:FF$FF$X$DY p#2,X$ zX$""X$Z$ RL(X$)+ FT21100C 15,"B-P:";2;X323N #2,X$_ X$""X$Z$l TK(X$)w #2,X$ X$""X$Z$ SC(X$) 3,8,3,"#" 15,"U1:";3;0;TK;SC 15,"B-P:";3;2 #3,X$ X$""X$Z$ LB S(BS)BS(BS1) RC(((BLBS)254)RL)3 (213)791580\ "";MM)"SCREEN OR PRINTER (S/P)?"d X$~ X$"S"X$"P"1260 RE$(18) RA$(146) X$"S"1,3:MTMM5:224,TT:225,BB:1,"" X$"P"1,4:MT1 (1,MT)" : "RE$;BL;RA$ dFT414309n1,MT)"RECORD LENGTH: "RE$;RL;RA$fx1,MT)"SIDE-SECTOR BLOCKS: "RE$;BS;RA$1,MT)"DATA BLOCKS: "RE$;BLBS;RA$1,MT)"RECORDS: "RE$;RC;RA$FT21,MT)"START ADDRESS: 216,22",224,226225,24@UJ"===========================","DISPLAY ALL FILE PARAMETERS"T"DELETED","SEQUENTIAL","PROGRAM","USER","RELATIVE"A$1,MT)"RECORDS: "RE$;RC;RA$FT21,MT)"START ADDRESS: ; RTE/84-FILE TRACE+FILE SIZE(INCLUDES FIRST 2 BYTES)|"**FILE PURSUIT : TRACE AND SIZE**":Z$(0):TT0:W256SP$" "("SCREEN OR PRINTER ";2DV$:DV$""(DV$"S"DV$"P")50<DV$"S"": SCREEN"FD(158)0.DR$:DR$"1"DR$"2"DR$"3"140cX(.):DR(DR$):""MD$(SP$,8)": ";DT$(DR)x(15)""DI3:DT18:NF8:SS1: 1540/1541/2031/4040/MSDDR3DT39: 8050/8250D0D$"0"15,8,15: OPEN ERROR CHANNEL(DS$)9),8:SF230D6"SEARCHING FOR : "F$" IN DRIVE "D$e@K140:"-";:::(15):"J FILE EXISTS-GET SECTOR+INDEX INTO DIR TKT2,8,2,"#": OPEN DIRECT ACCESS CHANNEL^NTDT:NSSS h15,"B-R:"2;D;NT;NS:15,"B-P:"2;015,"B-P"2;I:#2,T$:#2,S$: 1ST TRACK AND SECTOR/ NS$""O X116:#2,A$:A$""A$Z$| (A$)160A$((A$Z$)):NS$NS$A$:X FT4#2,SL$,SH$:SL(SL$Z$):SH(SH$Z$):NC2 II32:NFNF1:FT0510 NS$F$530 "SKIPPING"( TK(T$Z$):SC(S$Z$):TK0660J NTT2541#2,SL$,SH$:SL(SL$Z$):SH(SH$Z$):NC2v XCC1LK$"LINK : ":1,LK$;:DV4LK$; bTK$(SP$(TK),4):SC$(SP$(SC),4) lTS$"TRACK:"TK$" SECTOR:"SC$" ":1,TS$;:DV4TS$; vCC31:DV 4- CCCC(CC3)1:15,"U1";2;(D48);TK;SC:15,"B-P:"2;0N #2,T$:#2,S$:TTTT254:580c 1:1:DV4"" I$"INDEX INTO LAST SECTOR :"(SC) 1,I$:DV4I$ TTTTSC:TFTT(W1): FIND FILE SIZEEASLWSHTF:EH(EAW):ELEA(X$) #3,X$ $X$""X$Z$% .HB(X$)2562 8SALBHB9 B3P L15,"U1:";2;0;18;0Y VBF0h `I41404w jI721180 t15,"B-P:";2;I ~#2,X$ X$""X$Z$ BF(X$)BF I BA664BF FT41240 BSBL121 BFILE PARAMETERS "RE$;F$;RA$A 21,MT)"-------------------------------------"s <1,MT)"FILE TYPE: "RE$;FT$(FT);RA$ F1,MT)"FILE CLOSED: "RE$;CL$;RA$ P1,MT)"FILE PROTECTED: "RE$;PR$;RA$ Z1,MT)"ALLOCATED BLOCKS ";RE$;SA;RA$%1,MT)"FREE BLOCKS (DISK): ";RE$;BF;RA$R1,MT)"ALLOCATED BLOCKS (D):"RE$;BA;RA$Y1t(213)791580:"";MM)"MORE (Y/N)?"215X$X$"Y"X$"N"1510X$"Y"59468,14"";WEH: FIND END ADDRESS:TF$"TOTAL FILE SIZE"(SP$,8)":"(TF)" BYTES"P1,TF$:DV4TF$uAD$"ADDRESS"(SP$SP$,16)": "1:840:1: PRINT TO DEVICEDV4840:: PRINT TO SCREEN1:8:15"GO AGAIN?":TTI Z$:V$"P"": PRINTER")PDV3:DV$"P"DV4EZ:DV$"P"DV$"S"30}dDT$(1)"1541/2031":DT$(2)"4040":DT$(3)"8050/8250"nK13:(K)". "DT$(K):KxMD$"DRIVE TYPE""INPUT "MD$" : ";I3340833427:I,(I)128:I,(I)12715,"I"D$6"DRIVE NUMBER 0";D:D1240n"FILENAME *";F$:(F$)16F$"*"250FF1(F$):K$(F$,FF,1):K$"*"K$"?"250FFD$(D48):DN$(D$)":"(F$)"8,8,8,DN$:#8,A$:SFST:SF""(DS$,4,: FIND TRACK/SECTORA rIDI:YTNT:YSNS: INDEX AND PREVIOUS TRACK/SECTORV |NT0NS255760 #2,TK$:#2,SC$:NT(TK$Z$):NS(SC$Z$): NEXT TRACK/SECTOR  GET FILE TYPE #2,FT$:FT(FT$Z$)15 NF0: NUMBER OF FILES PER SECTOR$ SP$,10)": "NS$ NF8430 360: 1,(DV): OPEN DEVICE CHANNELw M$"FOUND"SP$": "F$" IN DRIVE "D$(13)"ON " &M$M$SP$" DIRECTORY TRACK"(YT)" SECTOR"(YS)" INDEX"(I) 01,"";:1,M$:DV4""M$"" :1:CC1 D ' HE PROGRAM IS DESIGNED TO RUN ON A OMMODORE 64 WITH A DUAL DISK DRIVE (EITHER THE 4040 OR THE -2). T'S PRIMARY PURPOSE IS TO TRANSFER SELECTED FILES FROM DRIVE 0 TO DRIVE 1. HEN THE PROGRAM IS RUN, THE FOLLOW ------- 1: -------  ESSING THE APPROPRIATE LETTER (E.G. IF YOU WANTED TO DELETE A FILE IN DRIVE 1), OR BY USING THE CURSOR UP AND DOWN KEYS, AND THEN PRESSING THE KEY. HE FIRST THING YOU SHOULD DO IS TO PLACE THE DISK TO BE COPIED IN DRIVE 0, AND THE RECEIVING DI RECTORY, E.G COPY, AUTOMATICALLY REREADS THE REVISED DIRECTORY. RESSING ALLOWS YOU TO SEE THE DIRECTORIES OF BOTH DISKS AFTER THEY HAVE BEEN READ INTO MEMORY. NCE YOU HAVE BOTH 0 AND 1 IN MEMORY, , , AND , WILL ALLOW YOU TO COPY FROM 0 TO 1. (TITW2)Z$"Y"Z$"N"780 "DONE!"*Z4251,SL:252,SH:55063:"-";:251,EL:252,EH:55063`>HAD$;:820: PRINT TO DEVICER\ SAVE/PROMPT ROUTINE (C) 860811 S H KAWAMOTO TPUG#17834f SAVE PROGRAM?p:S$"TEMP"103015,"S"N$"SAVING "N$:N$,8:1030P"SEARCHING FOR "N$:"VERIFYING":N$,8:1030z"GO AGAIN? (Y/N)":SCSC320:FCSC141060:X$G$:X$"Y"X$"N"990X$"Y"890 CHECK FOR DISK ERRORS15,E,E$,ET,ESIES ALL FILES TO 1 WITHOUT OVERWRITING FILES IN 1 (I.E. IT IS THE COMMAND). FIRST FORMATS 1 AND THEN COPIES ALL FILES FROM 0 (I.E. IT IS THE COMMAND). (AND ) LET YOU SEE THE DIRECTORY OF 0 (OR AME TO BE RENAMED. (AND ) VALIDATES THE DISK, AND REREADS THE DISK DIRECTORY. (AND ) INITIALIZES THE DRIVE. FORMATS THE DISK IN DRIVE 1. AND ALLOW YOU TO RESET THE DRIVE (), AND READ THE ERROR CHANNEL. HERE ARE FOUR COMMANDS WHICH ARE  72@2,(56):56,(46)10::F(56):I1:OF0:BO4:FB1jSD(916):HI:N255:(2)160N(2)NNFI:DF256:M828:B%(35,20)""N"BUFFERS AVAILABLE":1,8,15:D$"S":61:F$H$A$B$"2A""CAN'T COPY THIS DISK":68 48:TJ:S.:ZI:VT:QS0 35:"READING BUFFER #";T B%(VOF,Q).36:ZZI:ZN12n QQI:Q20Q.:VVIz VL9 "":3 D$"D":61:H$C$13 35:"WRITING BUFFER #";:ZI:VT:QS B%(VOF,Q).41:ZZI:ZN18 QQI:QING MENU OF 20 CHOICES IS PRESENTED. : ----------- 0 1 : ----------- (- ) (+ ) 0:  : ----- NY OF THESE OPTIONS CAN BE SELECTED IN TWO DIFFERENT WAYS - BY PRSK IN DRIVE 1. RESSING WILL LOAD BOTH DIRECTORIES INTO MEMORY, AND THEN DISPLAY THEM. (SING AND WILL LOAD THE DIRECTORIES FROM 0 AND 1 SEPARATELY. OU SHOULD USE THESE WHENEVER YOU CHANGE THE DISK IN A DRIVE.) NY COMMAND WHICH AFFECTS THE DIPERMITS YOU TO SELECT PARTICULAR FILES FOR COPYING WHILE DISPLAYING THE REMAINING BLOCKS FREE IN DRIVE 1. OU FIRST SELECT ALL THE FILES AND THEN THE COPYING IS DONE IN ONE GO. F YOU CHOOSE MORE FILES THAN THERE IS ROOM FOR, NO COPYING IS DONE. COPz"NAME OF PROGRAM ";S$;<("",(S$)2);:S$:P$":"S$N(S$)16890"SAVE ON WHICH DRIVE (0/1)?";:SC32848:FC25SC1060:DR$G$:DR$"0"DR$"1"930N$DR$P$:"SCRATCHING "N$:15:15,8,15,"I"DR$::E0"DISK ERROR:"(E)", "E$","(ET)","(ES):15:4 PROMPT ROUTINE`$SKSCFC:G$:SK,(SK)128:DE12:DE.SK,(SK)127:DE12:DE:G$""SK:10608"0"DR$"1"930N$DR$P$:"SCRATCHING "N$:15:15,8,15,"I"DR$:1) IN MEMORY, OR IT CAN BE USED TO VIEW THE DIRECTORY ON DISK (WITHOUT LOADING IT INTO MEMORY). (AND ) ALLOWS YOU TO CHOOSE THOSE FILES YOU WANT DELETED. IKE , YOU FIRST SELECT ALL TO BE DELETED BEFORE THEY ARE DELETED. (AND ) PERMIT ANY FILEN NOT DISPLAYED ON THE SCREEN. HE 1, 3, AND 5 KEYS ALLOW YOU TO CHANGE THE COLORS TO SUIT YOUR TASTE. 8 LOADS ' (...) IF YOU ARE FORTUNATE ENOUGH TO OWN ONE! DELETED BEFORE THEY ARE DELETED. (AND ) PERMIT ANY FILEN 20Q.:VVI VL158 "":3:SQI:S20S.:VVIK TV:(TL)24Y SD226 1:1,8,15:SD3:"SIDE 2...":OF35:BO0:FB0 D$"S":61:H$F$22 7 D$"S":61:H$F$24 ZI:VT:QS:8 1:"BACKUP DONE":681  $F$32# ":G$" DISK-ID NOT UNIQUE":29< #1,"I0":3,8,3,"#":D $C.c %1,"U1";3;0;V;Q:60:E39u &CCI:C337 '1,"B-P";3;0:46:M:47:WST:W.W64 (59:67 )C.:1,"B-A";0;V;Q:1,"B-P";3;0 *46:M3:47:WST:W.W6467 Y0:K30OFG17<4A(DB):X.7:YY2XA:B%(KOF,S)YY:YY0YYIW5SSI:SG:BBI:526BBIFB:G21XG20:B%(KOF,X)I:7UUY:Y.JKJJI:578YLK9B(139OFBO)49:3:"FIRST TRACK ="J" LAST TRACK ="L;" A$,A$,B$:2:C"ERROR: ST="W;E$:D"BACKUP ANOTHER (Y/N)N";Y$SEY$"Y"56,(2)::kFY$"N""":68|G56,(2)::H(46)162I" C=64 SINGLE-DRIVE BACKUP"J" (TO BACKUP 2 SIDES YOU MUST HAVE"K" ACKUP 2 SIDES.":74R""WS" DO NOT TRY TO SAVE A COPY OF THIS":" PROGRAM AFTER RUNNING IT!"~T" <>"UA$:A$""85VX828915:N:X,N:W45,140:46,16:55,0:4239,0:4240,0:2X76,66,3,76,97,3-8,104,96,72,120,165,1,41,252,133,1,104,96O NOT TRY TO SAVE A COPY OF THIS":" PROGRAM AFTER RUNNING IT!"~T" <>"UA$:A$""85VX828915:N:X,N:W45,140:46,16:55,0:4239,0:4240,0:2X76,66,3,76,97,3 d20635"Y!%' ȹ 7+8, N +Ѝ,' s D',,z,厍#o 1 ȹ3K1 1 ȹ` 1   z )   3,2`8#&#%4ii`-" YN @ !,"!N   ` H 1 HH1*H  `  L接+,`z- ,4ȩW4Ȍ$ȱȱ+ȱA,(D42$8$$*2 $ (D L b $2   * ii-.L (T j` $2 S    ` 8 8+卍/,厍0m/m0 j­+, g` ȹp ` ȹ TD (D ȹ YN( ` C=64 SINGLE-DRIVE FILE COPY FORMAT OUTPUT DISKS IN"HAS OUTPUT DISK BEEN FORMATTED ? N";A$:A$"Y"33I A$"N""":27 "ENTER DISK NAME: ? ";A$:X(A$):XIX1629 "ENTER UNIQUE DISK-ID: ? ";C$:C$F$(C$)230 1,"N0:"A$","C$:60:E67 H.: !65:C$H$:C +1,"U2";3;0;V;Q:60:E& ,CCI:C343. -40^ .(" "(Z),3)"";:P(3):R(4):4,FZ:n /3,P:4,R: 0JIOF:L.:U.:BBOFB:Z.:V18OF:Q.:35:37 1S.:K((BBO)(3FB))IOF:"*"K"":G21:K17OFG19 2K24OFG183BLOCKS TO COPY: "U:><1,E$,M$,T$,S$:E(E$):E$E$" "M$" "T$" "S$:b=G$"SOURCE":D$"D"G$"OUTPUT">"INSERT "G$" DISK, PRESS SPACE"?A$:A$" "63@HD$"D"27A2,8,0,"$0":60:E67BXI14:#2,A$,B$:X:H$A$B$:#2,A 1571 DISK DRIVE AND MEDIA.)":""<L" BACKUP 1 OR 2 SIDES1";SD$_MSD$"1"SD$"2""":76|NX(SD$):916,X:X282O1,8,15,"U0>M1":2,8,2,"#":1,"U1:"2;0;53;0:1,A,B$,C,DP2:1:A082Q" USE A 1571 DRIVE TO B,162,3,32,198,255,160,0,132,3,32,207,255,32,138,3EY145,3,32,128,3,165,144,208,3,200,208wZ238,32,204,255,96,162,3,32,201,255,160,0,132[3,32,138,3,177,3,32,128,3,32\210,255,165,144,208,3,200,208,238,32,204,255]96,72,165,1,9,3,133,1,8 ADVANCE ANY RESIDENT PROGRAMS .... (WEDGE, MONITOR, LINK)? N DISK INPUT PATTERN? *$0: ** NO FILES ** READING FILES: ** READY TO WRITE FILES ** PRESS ANY KEY OUTPUT TO TAPE OR DISK? *WRITE END-OF-TAPE MARK? * ANOTHER OUTPUT? HOLD DOWN& )&8#&) SPе)%$$2 $ ?  L ȹ  % ȹNE ȹ_ V '6 '7 ȹ YN `3 7" " 2Ȫ! .$4ɠ$$$ȥ*2 $ b $2 %  ȥii  * -.L `z(D I 0 $4ɠ$$4 $ 1d250:B%(232),C%(232),N$(232),T%(232),T$(4)WnZ(0):X45:V256:Z76X42:120ks(48)4X4624xM(X)(X1)V362:DMVZ(DV):M5,Z:M230,ZPD20:BDP2:Z150:X42300M94,Z:M258,Z:M298,ZM300,Z:M311,Z: N";X$:(X$,1)"Y"!D"12,50,119,0,*,SEQ,PRG,USR,REL~,BB$(160)(160):SB$BB$BB$BB$BB$BB$BB$BB$BB$6Z$(0):BB$" ":B$BB$BB$BB$:C15@" SHALL I CHANGE A UNIT NR ? N";JD$:(D$,1)"Y"450%T" : 1,"M-R"(A)Z$:#1,X$:X$D$400H1,"M-R"(A1)Z$:#1,X$:X$E$400m1,"M-W"(A)Z$(2)(N32)(N64){1:250:J14:X::J04:T$(J):" COPY FROM UNIT ? 8";F:230:F$D$" COPY TO UNIT ? 9";T:230:T$D$:F$ N$"":X(D):X06601&J318:A(DJ):A160J18::570B0N$N$(A):b:XX128:B(D28)(D29)VxDB;6)N$24)T$(X)NX$:ZX$""630XX$"Y"X$"N"Z0:E(X$)78:630bX$(13)Z1:630l590vE0""B$"":650X$:(X$,1)"Y"750." ENTER DISK-NAME, ID":X$,D$:H1a6,T,C,"N"T$":"X$","D$:180:6:H0:E7106,T,C,"I"T$:180:1,T,0,"$"T$":":180X135:#1,X$::X(X$Z$)#1,X$:Z(X$Z$):BXZV:Z1 250:" ("B" BLOCKS FREE):M220:X(D):N$(J)"":BBB%(J):180:(R3:4:5:6:JE\X$"INPUT":260:H0:480lQB%(J):N4(Q1000):QQ(N41000)N3(Q100):QQ(N3100)N2(Q10):QQ(N210)N1Q:BD,(N416)N3BD1,(N216)N1:X}"Е` - " PRINT DISKETTE DIRECTORIES": 50G1,E,E$,B,I: E0 f " DOS ERROR: ";E;E$;B;Iv( 2: 1: 2Z$(Z): A1: L$(232),R$(232)<WA: LZ: RZ: JZ: KZ:V$" "FV16: Q32: P128: F256: MZ: YZ PT$(1)" SEQ ": T$(2)" PRG ":GZ< ZT$(3)" USR ": T$(4)" REL ":NZe d " DISK UNIT NR (8-15) ?8 "; n U: U8 U15 "": 100 x " DISK DRIVE NR (0/1) ?0";: D$ D(D$): DDD "": 120 " PLACE DISKETTE IN UM341,Z:M348,Z:300)4,E,E$,X,A:19096,E,E$,X,ALE:E;E$;X;AnE0E(191ST):E" *ST*";E{EH0" DRIVE ? 0";A:AAA230D$(A48):" UNIVERSAL DISK-FILE COPY":" ANOTHER "X$" DISK READY ? OLD UNIT NR ? 8";Z:Z8Z15"";:340W^" NEW UNIT NR ? 9";N:N8N15"";:350zh" TURN OFF ALL UNITS BUT";Zr" THEN PRESS SPACE-BAR"|X$:X$" "3801,Z,C:D$(Z32):E$(Z64)A:A0" * UNKNOWN UNIT TYPE *":1T$FT)" NAME-SEARCH PATTERN":" ? *";X$KX$(8)Z$Z$(X$SB$,16)Z$kJ019:PJ,((X$,J1)):" PRESS 'Y' OR 'N' KEY TO SELECT"" THE FILES YOU WANT COPIED:":N0:Z0:E04,F,C,"I"F$:170:3,F,3,"$"F$:170 M:NN1:B%(N)B:N$(N)N$:T%(N)X:C%(N)(D21)2ST0N232540C3:4:N680g" * NO FILES SELECTED *":860Z0:J1N:Z0710BB%(J)790" * OUTPUT DISK FULL *":X$"OUTPUT":260" WANT TO NEW THE OUTPUT DISK ? N"; )":1:6:H1:69054,F,C:6,T,C:B%(J);6)N$(J)24)T$(T%(J))" ";g 3,F,3,F$":"N$(J)","T$(T%(J)):170:E850*T%(J)45,T,5,T$":"N$(J)",L,"(C%(J)):83045,T,5,T$":"N$(J)","T$(T%(J))",W">180:E850C900HP,C%(J} s:" k}}Y}:T}01I y s,8 s:}}0  {L, ,,L} }8 LX}LH    Lm`x> NIT";U;"DRIVE";D8 " PRESS SPACE-BAR TO READ DIRECTORY,"e " PRESS 'L' KEY FOR LAST DISK TO READ" M$: M$" " M$"L" 170 T18: S1: W W 1,U,15,"I"D$: 20 2,U,0,"$"D$":": 20 XA 7: #2,X$: : F$"" iʆkgjfj jӱfdȱfc`  H hh @ `e  h eL} }8 LX}LH    Lm`x>  PRESS SPACE-BAR TO CONTINUE"* X$: X$" " 480> 4: YZ: 440b GZ 4,"";47);R$(K): 5304,"";6);L$(J);10);R$(K) G L$(J)"": JJA N R$(K)"": KKA JL WA: JZ: GZ: M$"L" 140 & KR WZ:  1 : " COMPRESS / SORT DIRECTORY ENTRIES"Z " DISK UNIT NR (8-15) ?8 "; U: U8 U15 "": 20( " DISK DRIVE NR (0/1) ?0";2 D: D0 D1 "": 40< " WANT TO SORT DIRECTORY (Y/N) ? N";( F 1,U,15,"I"D$: 6603 2,U,2,"#": 660: H$""O 1,"U1:";2;D;T;Z: 660m 1,"B-P:";2;M: XA 20 #2,T$: H$H$T$: " DISK-NAME + ID: ";Q$;H$;Q$ " OK TO PROCESS THIS DISK (Y/N) ? Y"; X$: X$"Y" 230 2 T$: C(T$Z$)) 6F$F$(C): : JJA: E$(J)F$J @HHQ: : BBA: TZ 240b JXJ: R$"N" 420 T " SORTING DIRECTORY ENTRIES" ^X(X2): YA: HJX: X0 420 hKY rCKX: (E$(K),L,V)(E$(C),L,V) 400 |T$E$(K): E$(K) XN 2,Z$;Z$;*KKA: : TT(B): SS(B): BBAEA$(T(B)): B$(S(B))_ YC A$Z$: B$""|1,"B-P:";2;Z: 2,A$;B$;1,"U2:";2;D;T;S: 660: B20 T(B)Z 5901,"B-P:";2;Z: XA N&2,X$;Z$;Z$;: 0TT(B):gX$: X$"Y"  "";: (1,E,M$,G,P: E0 C " ERROR: ";E;M$;G;PS 2: 1: $""|1,"B-P:";2;Z: 2,A$;B$;1,"U2:";2;D;T;S: 660: B20 T(B)Z 5901,"B-P:";2;Z: XA N&2,X$;Z$;Z$;: 0TT(B):15,8,15,"U0>M1":15? R$"": "","  DISK-DUMP "v " DUMP REL,SEQ,PRG FILES TO SCREEN/PRINT": Z0A1: Q16: T1000: CH98: C$(13): Z$(Z)(V132: V2127: V3160: FF256: X$"0123456789ABCDEF"2 " SCREEN/PRINTER/BOTH:  XA 21: #2,X$: F$F$X$: 9 #2,X$,X$,X$,X$,X$,X$,A$,B$e X(A$Z$)(B$Z$)F: X$(X): C(X$) F$(18)F$(146)(V$,5C)X$" FREE"  W RZ: R$(R)F$: NA: 280 LZ: L$(L)F$: GA  2: 2,U,2,"#": 20 "1,"U1:";2;DT$(CP) | W RRA: R$(R)F$: 4003 LLA: L$(L)F$J HHQ: HF 320X  T 290l  2: 1: ""  MZ MA: M$"L" 140  YZ 4,4: 4,"" YA: STZ 500  " TURN ON PRINTER AND ALIGN PAPER" " THENDUMP/TRACK-SECTOR: (F/T) ? F";E DT$: DT$"F" DT$"T" 120" INSERT THE DISKETTE TO DUMP FROM,":" PRESS ANY KEY WHEN READY"A$:A$""136FTZ: DT$"F" 170 15,U,15,"I"((D),1): 2,U,2,"#": 790: EN 840S9KZ: NZ: M$"L" 1400 J K 500': 4: L)F$J HHQ: HF 320X  T 290l  2: 1: ""  MZ MA: M$"L" 140  YZ 4,4: 4,"" YA: STZ 500  " TURN ON PRINTER AND ALIGN PAPER" " THEN R$: R$"Y" R$"N" "": 70W P " PUT TARGET DISK IN UNIT";U;"DRIVE";D Z " THEN PRESS ANY KEY TO CONTINUE" d X$: X$"" 100 nA1: L4: N8: V16: Q32: F128 xT18: SA: Z0: M144: Q$(34) Z$(0): D$((D),1): 1: "": 60- E$(M),T(20),S(20): BZ: JZI 1,"U1:";2;D;T;S: 660f 1,"B-P:";2;Z: #2,A$,B$ T(B)T: S(B)S: T(A$Z$) S(B$Z$): H2: YA N 1,"B-P:";2;H: #2,T$ "C(T$Z$): F$(C): CF 320 , X2 30: #2,E$(C): E$(C)T$ KKX: KA 3705 YYA: YH 350?  360f  " RE-WRITING DIRECTORY ENTRIES" BZ: KA: C(JN.9): X$""  XA 30: X$X$Z$:  YA C: 1,"B-P:";2;2  XA N: A$X$: KJ A$E$(K)2,A$;: SS(B): 1,"U2:";2;D;T;S: 660-:1,"B-F:";D;T;S: 660GDBBA: T(B)Z 560[N 2: 660: 1{X " DIRECTORY COMPRESSED "b R$"Y" " AND ENTRIES SO??A"l " FOR: ";Q$;H$;Q$v " PROCESS ANOTHER DISK (Y/N) ? Y"; 254: 330, " FILE-NAME TO DUMP: (OR END)"U " ? END";NF$: NF$"END" y15,U,15: NF$((D),1)":"NF$FTZ: SZ: T$NF$",L"(A): 2,U,2,T$ 790: EN64 2: 260 EN62 850: 170SSA: 15,"P"(CH (S/P/B) ? S";<< V$: V$"S" V$"P" V$"B" 50YFSW40: V$"S" 4,4P " UNIT # TO DUMP FROM: (8-15) ? 8";Z U: U8 U15 80d " DRIVE # TO DUMP FROM: (0/1) ? 0";n D: D0 D1 100x " FILE-;T;S: 20 ,1,"B-P:";2;0: #2,A$,B$? 6T(A$Z$): S(B$Z$): H2_ @1,"B-P:";2;H: #2,A$,X$,X${ JC(A$Z$): CP 400 TF$"": XA V: #2,X$: F$F$X$: ^1,"B-P:";2;H28: #2,A$,B$ hX(A$Z$)(B$Z$)F rF$((X)V$,8)F$ 330#@ " CAN'T DUMP USER-TYPE FILE": 170HJC123: P162: P231: P38: P766lTP4(SP3): SP3P4 P4P4A^P4P43: P5(P1P4): P6P7P4P5: C2(C1P4)hRZ: JPZ: JCZ: DT$"F" 420r " TRACK, SECTOR TO DUMP: (0,0 = END) "  / " FIND / CHANGE PROGRAM LOAD-ADDRESS"W " DISK UNIT NR (8-15) ?8 ";} U: U8 U15 "": 20( " DISK DRIVE NR (0/1) ?0";2 D: D0 D1 "": 40< " PUT TARGET DISK IN UNIT";U;"DRIVE";D F  50 890: 170&#2,B$: CCA: B$"" B$Z$@R$R$B$: CS 500SDT$"T" 450cST64450} FT4 EFA: 850 500JPJPA: JCJCA: DT$"F" 530M$C$"TRK-SEC:"(TR)(SC)" NEXT-LINK:"M$M$((TR$ T$":"N$: 2,U,2,T$",P,R"5 1,E,M$,J,K: E0 240U 1: 2: " FILE: ";N$;x E62 " NOT FOUND": 200 E64 " NOT A PROGRAM": 200 " DISK READ-ERROR";E: J1 2000: : 90 J(CV): KCJV M$M$,3)": ": 760*DNNA: KKA: 720: NC KP3 580PN V$"P" "";P2(K36));PC$wX V$"S" 4,"";P2(K36));PP$b N128 V$"P" 940l NC NCNCP3: KZ: 570v EF 890 V$"S" 660 JPP5 P6 6 X$: X$"Y" 90G @ " NEW LOAD-ADDR (DECIMAL) ? 0 ";q J P: P0 P65535 "": 320 TB(PF): APBF: P$(A)(B): M$"" ^CB: 210: CA: 210 h " HEX: ";M$;" DECIMAL: ";BFA r " OK TO WRITE B$"."PC$PC$B$: PP$PP$B$: % V$"P" M$;< V$"S" 4,M$;B Z15,EN,EM$,ET,ES,EDq  EN0 EN64 * EN50 EN51 4 C$;EN;EM$;ET;ES;ED> EN62 EN66 H 2: 4: 15: R 2: 15: \ )(A)(Z)(S) 790: EN51 230Q15,"P"(CH)(A)(Z)(A): FT4: SS1: 330vT$NF$",P,R": 2,U,2,T$: 790 EN64 2: 290FT2: S254: 330"T$NF$",R": 2,U,2,T$: 790, EN64 2: 3206FT1: S254: # A$: A$"" 950 "": : % V$"P" M$;< V$"S" 4,M$;B Z15,EN,EM$,ET,ES,EDq  EN0 EN64 * EN50 EN51 4 C$;EN;EM$;ET;ES;ED> EN62 EN66 H 2: 4: 15: R 2: 15: \ "B-P:";2;H: #2,T$%C(T$Z$): C130 510E#2,A$,B$: F$"": X1 V]#2,T$: F$F$T$: o F$N$ 530HHQ: HF 460 430A(A$Z$): B(B$Z$)1,"U1:";2;D;A;B: 620&1,"B-P:";2;2: 2,P$;01,"U2:";2;D| TR,SC: TR1 840615,"U1:"2;D;TR;SC: 790: EN 370[15,"B-P:"2;Z: 790: EN 840#2,TR$: #2,SC$: 790: EN 840"": R$"": RRA: CZ: NCZ: FT4 45015,"P"(CH)(R((RFF)FF))(RFF)(A) 790: EN" THEN PRESS ANY KEY TO CONTINUE"6 P X$: X$"" 80] Z " ENTER PROGRAM-NAME (OR END)" d " ? END";N$: N$"END" 610 nV16: Q32: F256: N$(N$,V) xH$"0123456789ABCDEF": Z$(0) T$((D),1): 1,U,15,"I"T$: 620 T$Z$))((SC$Z$))C$C$: 560 FT4 550YM$"RECORD NO:"(R)C$C$"USED/TOTAL LENGTH:"(C)!M$M$"/"((S),((S))1)C$C$:560&M$C$"BLOCK: "(R)" BYTES USED: "(C)C$C$0KZ: NZ: 760:PP$"": PC$"": M$((NCT)(H$,J1,1)(H$,K1,1) 0 #2,A$,B$: ST 190D 2: 1: M$""_ A(A$Z$): B(B$Z$)z CB: 210: CA: 210  " CURRENT LOAD-ADDRESS IS:" " " HEX: ";M$;" DECIMAL: ";BFA , " WANT TO CHANGE LOAD-ADDR (Y/N) ? Y";Z 700  DT$"T" 370  EF EFZ: 170; V$"P" JCC2 420R 940: JCZ: 420j X1 P6: 4: XvJPZ: B$(R$,N,A): B(B$): G(BQ): HBGQM$(X$,GA,A)(X$,HA,A)" " 760: BV1 (BV2 BV3)  NEW LOAD-ADDR (Y/N) ? Y";, | X$: X$"Y" 90E J(N$): JV 410d  XJ1 V:N$N$(160):~  1,U,15: 2,U,2,"#"  620: T18: S1 1,"U1:";2;D;T;S: 620 1,"B-P:";2;0: #2,A$,B$ T(A$Z$): S(B$Z$): H21,2: 15: V$"S" fP6P7JPP4: P6 700!pHz 850: P6P7((JP1)P4(CP3)5)e C(CP3)P3 P6P6A V$"P" "END OF FILE": JCC2 V$"S" 4,"END OF FILE": JPP5 " PRESS ANY KEY TO CONTINUE"; Z15,8,15,"U0>M1":15>d"DISK FORMATTER"`n"--------------"x"USE THIS PROGRAM WITH NEW DISKS ONLY.""ALL INFORMATION ON THE DISK WILL BE""ERASED.""HEADER ""(DISKETTE TITLE);A;B: 620: 2: 620: 15D " LOAD-ADDR CHANGED FOR ";N$dN " CHANGE ANOTHER PROGRAM (Y/N) ? Y";|X X$: X$"Y" 90b "";: l1,E,M$,J,K: E0 v " ERROR: ";E;M$;J;K 2: 1: $Z$): S(B$Z$): H21, RESS ANY KEY WHEN READY."(A$:A$""250M"FORMATTING, PLEASE WAIT...."l15,8,15,"N0:"HD$","ID$ 15,A,B$,C,D:A19""A", "B$","C","D 15"FORMAT ANOTHER? (Y/N)" YN$:YN$""275"YN$"Y"100,YN$"N" 2 L$" ------------------------------------- "> "";L$a" HOW TO USE":L$"PRESS P TO PRINT A COPY OF THE""INSTRUCTIONS ON YOUR PRINTER.""PRESS ANY OTHER KEY TO VIEW THE""INSTRUCTIONS ON SCRE AINS SOME FREE "8h"PROGRAMS FOR YOU TO USE WITH YOUR NEW "fj"DISK DRIVE. THERE ARE PROGRAMS FOR "l"BEGINNERS AND FOR ADVANCED USERS."np" MOST OF THE PROGRAMS ON THIS DISK "r"WILL RUN ON ANY COMMODORE COMPUTER."t"HO $"%%":4:4:58!.A$"%END"38>0A$"%T"4,L$:XX1:38S2A$"%TITLE"564A$:4:4,L$:4,((40(A$))2));A$:4,L$6XX4:4284," "A$:XX1:42:A$<A$"%%"84>A$"%END"78:58@A$"%TITLE"A$"%T"76B "INSTRUCTIONS TO MAKE SURE YOU HAVE "?"THE RIGHT COMPUTER AND DRIVE."I%ENDR %T}" THIS DISKETTE IS 'WRITE PROTECTED'""TO PREVENT THE ACCIDENTAL ERASING OF""THE PROGRAMS STORED ON IT. IF YOU RUN""A PROGRAM THAT WRI "INSTRUCTIONS, OR PRESS Q TO QUIT."IX"PRESS ANY OTHER KEY TO VIEW THE"iZ"INSTRUCTIONS AGAIN..."{\A$:A$""92^A$"Q"`A$"L""HOW TO PART 2",8bd %TITLE,1571 TEST DEMO DISK INSTRUCTIONS f" THIS DISKETTE CONT " REMEMBER THAT A BRAND NEW DISK NEEDS"B"TO BE PREPARED (FORMATTED) BEFORE IT"p"CAN BE USED. READ THE SECTION IN THE ""DISK DRIVE MANUAL ENTITLED, 'HOW TO ""PREPARE A NEW DISKETTE'." %END%TITLE,DOS SHELL AND CBM " IF YOU HAVE THE C-128 COMPUTER YOU"9"SHOULD START BY RUNNING THE 'DOS"e"SHELL' PROGRAM. THE DOS SHELL IS A ""SPECIAL UTILITY THAT MAKES IT EASIER""FOR YOU TO WORK WITH THE DISK DRIVE."" TO LOAD THE DOS SHELL ON THE C- ";HD$"":ID$""$"NAME ";HD$=HD$"""":150OHD$(HD$,16)e"DISKETTE ID""(ANY 2 CHARACTERS)";ID$ID$"""":190ID$(ID$" ",2)"INSERT THE DISKETTE TO BE FORMATTED.""THEN P!128,""JUST PUSH IN THE RESET BUTTON ON THE"I"RIGHT HAND SIDE OF YOUR COMPUTER. MAKE"w"SURE THE TEST/DEMO DISK IS IN THE DISK""DRIVE. PRESS F1 TO RUN THE DOS SHELL.""WHEN YOU ARE DONE, PRESS F1 AGAIN TO""QUIT. FOR MORE 6275D$"":ID$""$"NAME ";HD$=HD$"""":150OHD$(HD$,16)e"DISKETTE ID""(ANY 2 CHARACTERS)";ID$ID$"""":190ID$(ID$" ",2)"INSERT THE DISKETTE TO BE FORMATTED.""THEN P EN."A$:A$""24$A$"P"58P"MAKE SURE YOUR PRINTER IS ON AND"y"CONNECTED. ADJUST YOUR PAPER." "PRESS ANY KEY WHEN READY...""A$:A$""34$4,4:4:X12:42&X5442(YX71:4,"":Y:X5*A$,A WEVER SOME ARE SPECIALLY DESIGNED"Av"AND WILL ONLY WORK WITH ONE TYPE OF"mx"COMPUTER (C-128, C-64, PLUS/4, C-16)"z"OR DISK DRIVE (1541, 1571)."|~" IF YOU HAVE A PROBLEM USING ONE OF ""THE PROGRAMS, BE SURE AND CHECK THESE" A$"%T"70DA$:T$A$ F"";L$:H((40(T$))2));T$mJ" -------------------------------------":58|L" "A$:58N" ";PK$:K$" "80RT:"PRESS L TO LOAD PART 2 OF THE"V TES TO DISK YOU WILL"-"GET THE FOLLOWING ERROR MESSAGE:"3X" '26, WRITE PROTECT ON...'"^" USE A DIFFERENT DISKETTE WITH AN OPEN""WRITE PROTECT NOTCH WHEN EXPERIMENTING""WITH PROGRAMS THAT WRITE TO DISK."! ETTE IN A SERIES " ! "OF DISKETTE SWAPS."!=!" IT IS A GOOD IDEA TO COVER THE WRITE"i!"PROTECT NOTCH ON THE SOURCE DISKETTE"!"WITH A PIECE OF TAPE BEFORE MAKING A"!"BACKUP COPY."! %END!%TITLE,SD.BACKUP.C64!" THIS P! ST ")"PRESS THE Y OR N KEY AFTER EACH FILE""*"NAME TO CREATE YOUR COPY LIST."-* %ENDM* %TITLE,COPIES AND BACKUPSy*" IF YOU HAVE THE C-128 COMPUTER, YOU"*"SHOULD USE THE DOS SHELL PROGRAM TO"*"BACKUP YOUR DISKS AND MAKE COPI! *"TURNING IT OFF, AND ON AGAIN. ALSO"+#,"BE SURE TO FORMAT (OR HEADER) THE"D#."DESTINATION DISK."J#0v#2" THIS PROGRAM WORKS BY FIRST READING"#4"FROM THE SOURCE DISK AND THEN WRITING"#6"TO THE DESTINATION DISK IN A SERIES OF"#8"! INFORMATION ON THE DOS"$"SHELL, SEE YOUR 1571 MANUAL. "*V" (NOTE: 'CBM' IS A SPECIAL FILE THAT""LOADS THE SHELL WHEN YOU RESET. IT""CANNOT BE LOADED LIKE A PROGRAM.)" %END%TITLE,DOS WEDGE INSTRUCTIONS" SPECIA!NE DISKETTE TO"%J"ANOTHER OR TO TAPE. YOU CAN USE THE">%L"PROGRAM WITH JUST ONE 1541 DISK DRIVE"l%N"AND A COMMODORE 64. THE PROGRAM FIRST"%P"READS IN FILES YOU WANT TO COPY FROM"%R"THE SOURCE DISKETTE AND THEN WRITES"%T"THEM TO TH!" YOU WILL THEN BE ABLE TO TYPE A SLASH"9"FOLLOWED BY A PROGRAM NAME TO LOAD A"e"PROGRAM FROM DISK. FOR EXAMPLE TYPE""'/SCORE' TO LOAD A PROGRAM CALLED""SCORE."" TYPE '@' OR '>' TO READ THE ERROR""MESSAGE ON THE !"YOU CAN ALSO USE A WILD CARD PATTERN"%'d"(*) TO CREATE A LIST OF THE FILES YOU"S'f"WANT TO COPY. THE SD.COPY.C64 PROGRAM"v'h"CANNOT COPY RELATIVE FILES."'j%END'l%TITLE,UNI-COPY'n" IF YOU HAVE TWO DISK DRIVES, YOU CAN"'p"COPY FI! 1541" "DISK DRIVE. WITH THESE PROGRAMS YOU"> "CAN MAKE A BACKUP COPY OF A DISKETTE"e "USING ONLY ONE 1541 DISK DRIVE."k  " THEY WORK BY FIRST READING FROM THE" "SOURCE DISKETTE AND THEN WRITING TO " "THE DESTINATION DISK!NGE DEVICE NUMBERS BY ANSWERING YES")"TO THE FIRST QUESTION IN THE UNI-COPY"K)"PROGRAM. NEXT ENTER THE NAME OF THE"w)"FILE YOU WANT TO COPY. YOU CAN ALSO")"USE A WILD CARD PATTERN (*) TO CREATE")"A LIST OF FILES TO BE COPIED. JU"+"ALSO WORK ON THE 1571 DRIVE. SEE YOUR" ,"DISK DRIVE MANUAL FOR MORE DETAILS."+, %ENDF,%TITLE,PRINT.---.UTILs," THE PRINT UTILITY PROGRAMS ALLOW YOU","TO PRINT A COPY OF WHATEVER IS ON THE","MONITOR SCREEN ON YOUR CBM PRIN!ROGRAM RUNS ON THE COMMODORE 64"#""WITH A 1541 OR 1571 DISK DRIVE.")" U""" YOU CAN USE THIS PROGRAM TO MAKE A ""$"BACKUP COPY OF A DISKETTE WITH JUST ""&"ONE DISK DRIVE. BEFORE USING THE ""("PROGRAM, YOU MUST RESET YOUR C-64 BY"#! ES OF"*"YOUR FILES. THE DOS SHELL IS SPECIALLY"*+"DESIGNED FOR THIS AND HAS MANY OTHER";+"FEATURES."A+m+" REMEMBER, IF YOU HAVE THE 1571 DISK"+"DRIVE, IT CAN 'MIMIC' THE 1541 DRIVE."+"PROGRAMS THAT WORK WITH THE 1541 WILL"!DISK SWAPS."#:$<" IT IS A GOOD IDEA TO COVER THE WRITE"D$>"PROTECT NOTCH ON THE SOURCE DISK WITH"l$@"A PIECE OF TAPE BEFORE STARTING."w$B %END$D%TITLE,SD.COPY.C64$F" THIS PROGRAM CAN BE USED TO COPY ONE"$H"OR MORE FILES FOM O!L COMMANDS ARE AVAILABLE WHICH"1"ALLOW YOU TO TYPE SHORT INSTRUCTIONS"]"TO THE DISK DRIVE FROM THE VIC-20 OR""C-64. LOAD AND RUN THE VIC-20 WEDGE""IF YOU HAVE A VIC; USE THE C-64 WEDGE""IF YOU HAVE A COMMODORE 64." !E DESTINATION DISK OR TO"&V"TAPE. USE THIS PROGRAM TO MAKE A "B&X"QUICK COPY OF YOUR IMPORTANT FILES."H&Zs&\" THE PROGRAM IS EASY TO USE. JUST "&^"FOLLOW THE PROMPTS AND THEN ENTER THE"&`"NAME OF THE FILE YOU WANT TO COPY. "&b!DISK DRIVE."" TYPE '@$' OR '>$' TO DISPLAY THE "K"DIRECTORY WITHOUT ERASING THE PROGRAM"b"IN MEMORY.",%END%TITLE,SD.BACKUP.+4 AND SD.BACKUP.C16" THESE PROGRAMS ARE DESIGNED TO RUN ON""THE INDICATED COMPUTERS WITH A!LES FROM ONE DRIVE TO THE OTHER"(r"WITH THE UNI-COPY PROGRAM. THIS"A(t"PROGRAM WILL RUN ON ANY COMMODORE"f(v"COMPUTER WITH ANY DISK DRIVE."l(x(z" THE DRIVES MUST HAVE DIFFERENT DEVICE"(|"NUMBERS TO WORK PROPERLY. YOU CAN"(~"CHA" -DUMP3" THE DISK-DUMP PROGRAM CAN BE USED TO"4"READ AND PRINT THE CONTENTS OF ANY ">4"FILE OR BLOCK ON A DISKETTE. THE"k4"PROGRAM WILL CREATE A HEXADECIMAL AND"4 "ASCII DUMP OF THE FILE OR BLOCK AND"4""PRINT ITS CONTENTS ON EIT" TER.","THIS IS ALSO KNOWN AS A SCREEN DUMP.",)-" THERE ARE THREE VERSIONS (C-16, +4,"V-"AND C-64). THESE PROGRAMS RUN IN THE"-"BACKGROUND AND WON'T INTERFERE WITH"-"THE BASIC PROGRAM YOU HAVE IN MEMORY."-"USE THEM AS AN " AT."5254" USE THIS PROGRAM TO LEARN THE DETAILS"66"OF HOW INFORMATION IS STORED IN CBM "D68"DISK SYSTEMS. THE DISK-DUMP PROGRAM"o6: "WORKS WITH ALL COMPUTERS AND DISK "6< "DRIVES."6>%END6@%TITLE,DISPLAY BAM6B" THE DISPL" TIME.)". %END.%TITLE,DIR PRINT/" THIS PROGRAM ALLOWS YOU TO MAKE A "C/"NEAT LISTING OF ALL THE FILES THAT ARE"p/"ON A DISKETTE. THE PROGRAM WILL WORK"/"WITH ANY CBM PRINTER. ALSO YOU CAN"/"PRINT THE CONTENTS OF ANY NUMB"HAVE BEEN ALLOCATED TO FILES."7P7R" SECTORS ARE DISPLAYED IN THE LEFT "+8T"HAND COLUMN AND TRACKS ARE SHOWN AT "W8V"THE BOTTOM OF THE SCREEN. A CIRCLE "8X"MEANS THE BLOCK HAS BEEN ALLOCATED. A"8Z"CROSS MEANS THE BLOCK IS AVAILABLE." PROGRAM WORKS WITH ALL"0 "COMPUTERS AND DISK DRIVES."1 %END1%TITLE,DIR SQUEEZEJ1" THE DIR SQUEEZE PROGRAM ALLOWS YOU TO"u1"CLEAN UP THE DIRECTORY OF AN OFTEN "1"USED DISKETTE. THE PROGRAM HAS TWO"1"FUNCTIONS. FIRST, IT "# " SEQUENTIAL FILE LISTER"N " FROM DISK OR TAPE (D/T) ? D";r V$: V$"T" U1: A0: 90( V$"D" "": 202 " DISK UNIT NR (8-15) ? 8 ";< U: U8 U15 "": 50 F " DISK DRIVE NR (0/1) ? 0"AREFUL WITH THIS PROGRAM. ONCE"3"YOU USE IT, YOU CAN NO LONGER REVIVE"43 "ANY SCRATCHED FILES WITH THE UNSCRATCH"D3 "PROGRAM."J3v3 " THE DIR SQUEEZE PROGRAM WORKS WITH"3 "ALL COMPUTERS AND DISK DRIVES."3%END3%TITLE,DISK" " FILE-NAME TO LIST (OR END)"E " ? END";F$: F$"END" 320e F$(F$,16): V$"D" 190 " PUT TARGET TAPE IN DRIVE AND REWIND": 210 " PUT TARGET DISK IN UNIT";U;"DRIVE";N F$((N),1)":"F$: A2 P$"P" "# READY PRINTER AND ALIGN PAPER"A " THEN PRESS ANY KEY TO CONTINUE"Y A$: A$"" 230y 1,U,A,F$: 4,D: C$(13) 4," LISTING OF: ";F$ #1,A$: EST: D3 A$"" 330 4, A$;: E0 260  E64 4," READ ERROR"HER SCREEN OR"4$"PRINTER. ANY CBM DOT-MATRIX PRINTER"5&"CAN BE USED." 5(85*" FOR A BLOCK DUMP, ENTER THE TRACK AND"_5,"SECTOR OF THE BLOCK YOU WISH TO"5."EXAMINE. FOR A FILE DUMP, ENTER THE"50"NAME OF THE FILE YOU WANT TO LOOK "AID TO HELP WRITE BASIC"-"PROGRAMS."-." ONCE THE PROGRAM IS LOADED, JUST"I."PRESS SHIFT AND CTRL AT THE SAME TIME"o."TO PRINT A COPY OF THE SCREEN."u.." (NOTE: YOU CANNOT USE THESE PROGRAMS"."AND UNI-COPY AT THE SAME "AY BAM PROGRAM ALLOWS YOU TO"6D"EXAMINE THE TABLE USED BY THE DISK"'7F"DRIVE TO KEEP TRACK OF AVAILABLE SPACE"P7H"ON A DISKETTE. THE BAM, OR BLOCK"{7J"AVAILABILITY MAP, IS AN AREA OF THE"7L"DISK THAT KEEPS TRACK OF WHICH SECTORS"7N""ER OF"/"DISKETTES. THE DIRECTORIES WILL BE"0"PRINTED SIDE BY SIDE IF YOU USE THE "E0"PROGRAM WITH MORE THAN ONE DISK."K0u0" USE THE DIR PRINT PROGRAM TO HELP"0"KEEP YOUR DISKETTE LIBRARY ORGANIZED."00 " THE DIR PRINT"8\8^" USE THIS PROGRAM TO LEARN THE DETAILS"9`"OF HOW INFORMATION IS STORED IN CBM":9b"DISK SYSTEMS. DISPLAY BAM WILL WORK"c9d"WITH ANY COMPUTER AND DISK DRIVE."p9f%END,%%THE"7L"DISK THAT KEEPS TRACK OF WHICH SECTORS"7N""REMOVES SCRATCHED"1"FILE ENTRIES FROM THE DIRECTORY AND"&2"COMPRESSES IT. SECOND, IT ALLOWS YOU"P2"TO ALPHABETIZE THE FILE NAMES ON A"{2"DISKETTE. USE THIS PROGRAM TO HELP"2"KEEP YOUR DISKETTE LIBRARY ORGANIZED."22" BE C"";( P N: N0 N1 "": 70U Z " TO SCREEN OR PRINTER (S/P) ? S";u d P$: P$"S" D3: 150 n P$"P" "": 100 x " PRINTER DEVICE NR (2/4-6) ? 4"; D: D2 150 D4 D6 "": 120 # "DID YOU JUST READ THE PROPER DIRECTORY SECTOR (Y/N)?": YN$&&YN$"Y"1860W0"SECTOR OF DIRECTORY PROGRAM NAME IS ON";S1a: 760sDABB256:390N"NUMBER OF PROGRAM IN SECTOR (1-8)";NBXT1(A(NB1)323):S1(A(NB1)324)b"% "4,C$;C$;" END OF FILE: ";F$: 4: 1O , " LIST ANOTHER FILE (Y/N) ? Y";h 6 A$: A$"Y" 150v @ "";: J4,C$" PRESS ANY KEY TO CONT" T K$: K$"" 340 ^";U;"DRIVE";N F$((N),1)":"F$: A2 P$"P" "# ) DISPLAY A BLOCK IN HEX,DECIMAL, OR AS A DIRECTORY/P" (3) UNSCRATCH FILESWZ" (4) CHANGE THE DISK NAME AND IDd" (5) ALTER INDIVIDUAL BYTE(S) WITHIN ANY BLOCKn" (6) DISPLAY A PROGRAM'S BLOCKSx"(7) SHOW A PROGRAM'S LOAD ADDREQ255,160!0,132,3,177,3,32,210,255,165,144,208,3,200,208,244,32,204,255,961860W0"SECTOR OF DIRECTORY PROGRAM NAME IS ON";S1a: 760sDABB256:390N"NUMBER OF PROGRAM IN SECTOR (1-8)";NBXT1(A(NB1)323):S1(A(NB1)324)b# PRG 'TYPE'=2)5"EG. TO UNSCRATCH THE SECOND FILE (A PRG) OF A BLOCK, CHANGE BYTE 34W"((2-1)*32+2) TO 130 (128+2):"AFTER YOU READ AND CHANGE A BLOCK YOU HAVE TO WRITE IT BACK";" TO THE DISK""HIT  TO CONTINUE"T$:T$# , BUT UNED0 F:DIRECRY SLOTS AS FROM SCRATCHED FILES.6 J: T:DIS6511Q DISASSEMBLER THE EXTRA OP CODES USED BY THE R6511Q MICRO ^:PROCESS USED IN MSD DRIVES. h: r:DISALL IMPROVED DISASSEMBLER |: :DISK ADDR CHANGE CHANGES THE #E OF BLOCKS OF PROGRAM ON DISKJT118S101650`T"YOU HAVE TO START WITH A DIRECTORY ENTRY (TRACK 18, SECTOR>0) TO";y^" SEQUENCE THE ";h"BLOCKS ";:"OF A PROGRAM":r"NUMBER OF PROGRAM IN SECTOR (1-8)";NB|" BLOCK#ES BLOCK: ,:SKIPPING ERRS. GLE DRIVE REQUIRES 3 DISK SWAPS.@ 6: @:CHANGE UNIT. SOFTWARE CHANGE OF DRIVE DEVICE NO FROM 8 9 A: B:DIR S OUT THE ENTS OF THE DIRECRY D: E:DIR SQUEEZE ALPHABETIZES THE DIRECRY ELIMINATING #T1:S2S1T1(BB256):S1(BB2561) S120T11T135T1T2:S1S2:*1720I LOAD ADDRESS OF PROGRAM_T118S101820"YOU HAVE TO START WITH THE DIRECTORY (TRACK 18,SECTOR>0)""TO FIND THE LOAD ADDRESS OF A PROGRAM":# ADDRESS SPECIED A DISK FILE. USEDJ : MOVING NRELOCATING PROGRAMS (8,1)P : :DISPLAY BAM S DISPLAYS THE BAM (BLOCK ALLOCATI MAP) INDICATE :WHICH BLOCKS ARE SHOWN AS OCCUPIED WHICH ARE UNUSED. ::MAT DISK UTILITY #:"BYTE # : ";BN"OLD VALUE = ";(BB256BN)6 "NEW VALUE DESIRED ";NVHBB256BN,NV~"IF REWRITTEN TO DISK, BYTE ";BN:" WILL BE ";NV(2:"THIS PROGRAM CAN BE UTILIZED TO:<" (1) READ AND WRITE DISK BLOCKSF" (2#760lLO(A2):HI(A3) v:"LOAD ADDRESS OF THIS PROGRAM:";HI256LO# 2  DROP OUTP 55,(998):56,(999):: 76,66,3,76,91,3,162,3,32,198,255,160,0,132,3,32,207,255,145 3,165,144,208,3,200,208,244,32,204,255,96,162,3,32,201,#SS"TO UNSCRATCH FILES YOU NEED TO CHANGE BYTE 0";C" OF THAT FILE'S DIRECTORY ENTRY"p"(SEE TOP OF P.56 OF 1541 USERS MANUAL)"FOR FILE 'N' OF THAT DIRECTORY BLOCK THE BYTE TO CHANGE IS:((N-1)*32+2)"(FOR SEQ, 'TYPE'=1: FOR  MAT , UNUSED DISKS. E ALL ON DISK5:WILL BE DESTROYED.;::HEADER CHANGE CHANGES THE DISK TITLE AS SHOWN IN REVERSED CHARACTERS AT:THE P OF THE DIRECRY ING.::HOW USE2 INSTRUCTIS UG SOME OF THE PROGRAMS THE D#""1510:9:" DID YOU UNSCRATCH ANY FILES? (IF SO, THE DISK MUST BE RE-";J"VALIDATED)["(Y/N)";YN$mYN$"N"1590"::"RE-VALIDATING DISK...........,1:3:15,8,15:15,"V":15:615,8,15:15:@ SEQUENC#SD1 FILE COPIER A FASTER DUPLICATE i :THE SD2. THERE ARE ALSO MANY COPY PROGRAMS VARIOUS DRIVES. :PICK E YOU LIKE. : :PROGRAM TRIED DATE ARE AS FOLLOWS : ":BACKUP 228. COPY PROGRAM A GLE TWIN DISK DRIVE, IT COPI#S OF PROGRAM"""?" BLOCK NUMBER TRACK SECTOR"I 760T1(BB256(NB1)323):S1(BB256(NB1)324):NM1" ";NM;" ";T1;" ";S1NMNM1 760:T2