SK SKIPPING DISK ERRS. PRIMITIVEf 6:COMPARED COMMERCIAL PROGRAMS, IT IS MOST USEFUL RECOVERING FILES @:DISKS WHICH AIN ERRS (CE DUPLICATE CRASHES EITHER DISK AINS J:DISK ERRS). THE DISK IS A FILE AS FROM WORDPROCESSING, COPYIN ATTING. THERE WAS'T ROOMEp: THEM THE DISK. SPEED OF THE ER IS LIMITED BY DISK ROTAT. SPEEDKu:z:DUAL FILE COPY A DUAL DRIVE VERSI OF THE ABOVE FILE COPY PROGRAM: PPED WITH BUSCARD II. THE FILES ARE DESIGNED THE SD2, BUT CAN BEu:ADAPTED THE SD1. RIBUTED BY PAUL RUSHN{::REMAT REMATS A PROGRAM DRIVE 1 A HIGH SPEED EQUIENT  :DRIVE 0: :FAST HIGH SP 2705 HULMAN ST:TERRE HAUTE, IN 47803":81223201212345PȀȉCHANGE STER SUITABLE0v: VIEWING ING IN A WD PROCESS PROGRAM6:x:DISK COPY FILE COPYING PROGRAM USE WITH A GLE DISK DRIVE~::DIS6511Q DISASSEMBLER PROGRAM THE EXTRA OP CODES USED BY MSD DRIVES:WRITTEN IN BASIC COMPIL 0:POWER.RB-R 4 0 1 5#0:MOREPOWER.RB-P 4 100B-R 4 0 2 3  L `$p (`   - L l7,Lii  %$ )( ˠ   L8ROM A5:TERMINAL PROGRAM O SHTER FILES SUITABLE EDITING IN A WDy:PROCESS. SPLITTER WKS BY COUNTING BLOCKS; TRANSLAR WKS BY&:COUNTING S (LINES IN SOME FILES).0:::KENIZER PROGRAM CVERT II FILES IN BASIC AS DOWNED WITH AINTER (S/P) ? S";< d P$: P$"S" D3: L39:P19: 150Z n P$"P" "": 100 x " PRINTER DEVICE NR (2/4-6) ? 4"; D: D2 150 " PRINTER SECONDARY ADDRESS ? 27";: SA (SA)0 (SA)30 132 D4 D6 ESPECIALLY IF THEJ:DISK AINS MACHINE LANGUAGE ROUTINES THAT ARE ENCRYPTED. IT IS:LESS USEFUL COMMERCIAL DISKS CE MOST PROTECTED DISKS ARE ENCRYPTED.::DISPLAY BASIC. A MODICATI OF DISPLAY T&S THE 1541 DEMO DISK, THIS0:PRF$: F$"END" 320. F$(F$,16): V$"D" 190] " PUT TARGET DISK IN UNIT";U;"DRIVE";N A$"": " PRESS ANY KEY TO CONTINUE" A$: A$"" 194 500: F$(21) 190 F$N1$":"F$: A2 P$"P" " READY PRINTER AND AGE T:THIS WAY CLEARS THE ERRS (THOUGH THE ERR BLOCK IS LOST) SO THAT FUTURE h:BACKUPS CAN BE MADE WITH THE DUPLICTE FEATURE (WHICH IS FASTER). |: :EXAMINER. A BRUISER, PROGRAM SEARCHES ALL PART OF A DISK, DETERMINES':WHICH BLOCKS ARE+:RIBUTIS OF PROGRAMS THE EXCHANGE DISK ARE REQUESTED. ANY DISKN:UTILITY PROGRAM IS OF EREST.T:Z:::MSD INMATI EXCHANGE:PAUL E ECKLER:EED ER. "FAST",8,8*:"4:MSDQ PROGRAM CALLED BY FAST(>:gH:INFO.ER S IN THE THREE INSTRUCTION FILES THAT FOLLOWmR:\:THE IGINAL DISK PROVIDED BY PAUL RUSHN AINED TWO SAMPLE PROGRAMSf: THE HIGH SPEED ER BEE AFTER REM   e   e  L  e   L  e  e  L`0 )  LL   `(`ʠ     2S 1L  ݿ 0     `hh LED. RIBUTED BY BILL WENTZ OF ALBUQUERQUE:_:6511Q 49152 MACHINE LANGUAGE DISASSEMBLER MSD EXTRA OP CODES:RIBUTED BY PAUL RUSHN OF EDMN, ALBERTA::THE FIVE PROGRAMS ARE PART OF A FAST ER ROUTINE MSD SD2*:EQUI!  ``  e   L  e  e  L`0 )  LL   `(`ʠ     2S 1L  ݿ 0     `hh 4D:TERMINAL PROGRAM O A KENIZED PROGRAM FILE SO IT CAN BE EXECUTED.:N:X:WRITE PROTECT PROGRAM SOFTWARE WRITE PROTECT UNPROTECT DISK FILES]:RIBUTED BY BILL WENTZ OF ALBUQUERQUE, NMb:l:STER 1 SEQUENTIAL FILE OF THE FIRST EX "": 120B " ENTER PRINTER LINE LENGTH ? 80";: L:LL5[ L30 L160 142 " ENTER PAGE LENGTH ? 66";: P P40 P100 P66 PP10 V$"T" " FILE-NAME TO LIST (OR END)" 190 " ? END";OGRAM CVERTS BASIC KENS FOUND A DISK THEIR BASIC KEY WDS.y:IT AMOUNTS A BASIC MIR DISK. IT IS USEFUL IN FOLLOWING BASIC:PROGRAMS DISK RECOVER LOST FILES.::SPLITTERTRANSLAR PROGRAMS SPLIT LG SEQUENTIAL FILES AS F# LIGN PAPER": 220 2356 " PRESS ANY KEY TO CONTINUE"N A$: A$"" 230c 15,U,15,"I"N1$ (14): 2,U,A,F$: 4,D,SA: C$(13) 360 4," LISTING OF: ";F$:W$"":X0:Y0:Z1:V0 #2,A$:EST: A$C$ (XYL) X0:V1 OCCUPIED, WHICH AIN ERRS, WHERE MACHINE LANGUAGEq:KERNAL CALLS (WHICH INCLUDE MOST DISK CALLS) ARE LOCATED, PREPARES:A OF THE WARD LINKS ( BLOCK) THE DISK FILES. IT IS USEFUL:IN IDENTYING FILES IN RECOVERING FROM A BAD DISK,   2073 RLE RL Rd? hhLHRTL-64 R q _``%`H h` _ G R`@ 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,32, 133,252, Od:MSD EXCHANGE DISK PROGRAMS 1ASSEMBLED 101586 MSD INMATI EXCHANGEUn::DIRECRY ITEMS THIS SIDE ARE ED DESCRIBED BELOW.:ALL BASIC PROGRAMS APPEAR TWICE. THE .C COPY HAS BEEN COMPILED WITH :INSTASPEED. COMPILED PROGRA D PROGRAMS. :Q :DOS DISK. UTILITY PROGRAM ING ALL PART OF DOS DOWN : DISK. RESULTING FILES MAY BE ED O MEMY WITH A MACHINE LANGUAG :MIR INSPECTI DISASSEMBLY. : :MSD DOS 2.3 ROM ING. THE DISK FILE ADDRES "PRESS RETURN TO TRY";:ң"ANOTHER DISK.";DM$:+OH⒣ +OH^:^IDPCNBKIXDETYZENUENTEETESN5NSDSBELEBCD51,141,174,31' 165,252,141,175,31,169,0,1337' 251,169,32,133,252,160,0,177[' 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,132,25XЀ+OH8Ї/OЇ(PL$,4);:ЎЕ+O Е3B33AA+O  AAJFָB" ":FJpV+O ЇHCL$;"READING ";NM$:JӐH>+O+OHtМJCL$;"WRITING ";NM$:JH+OHDM$"": "ANOTHER DISK."; DM$: DM$"" 40701 DM$(13) 10107V' 76,15,31,76,88,31,76,154r' 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,255,145B' 251,23NM$,TY$:LNM$;"EXISTS. ENTER NEW NAME":HVNM$:LP2,8,2,"0:"NM$","TY$",R":JH.O2:L2:JWLP2,8,2,"1:"NM$","TY$",W":JH.O2:L2:JWL-p-OOLp+OOLCL$;:+O "READ";: WRITE THE FILE > EN0 3010&H 510: GET NEW FILE:R NM$"" 2090V\ CL$;"FILE NOT COPIED"af 3100 DISPLAY COMPLETION STATUS CL$; NBBC 3060 "COPY SUCESSFUL. ";: 3070 "ERROR. ONLY ";NB;" OUT "; 9,0,76,12,31T[VL-DUAL FILE COPY CW4P8PIBD: PFPPBF'B F  15,8,15:HP15,"I"2,8,2,"$":2:JWLP(PL$,3);(18):%B%((K));:160,0,32,207,255,145, 251,230,251,208,2,230,252,165, 144,208,13,165,252,201,160,144, 235,32,204,255,160,0,240,19, 164,144,32,204,255,192,64,208, 10,164,251,165,252,56,233,32, 76,12,31,169,240,76,12,31, 32,9,31,152,170,32,201,255, 168,176,240,165,251,141,MS WITH ,8 AS USUAL .[ :COMPILED PROGRAMS MAY BE ED MODIED. CHANGES, USE THEp :BASIC EQUIENT.v : : FURTHER CFUSE THE ISSUE PROGRAMS THIS DISK HAVE BEEN ALPHABETIZED : :RTL64 TIME LIBRARY PROGRAM USED BY COMPILES AS SPECIED THET :DISK IS $1100. THE ING COVERS $C000 $FFFF. THEREE, IN MEMYx :$1100 CRESPDS $C000 IN ROM~ : ":MD COPY. DUAL DRIVE COPY DISK UTILITY PROGRAM. IT WILL BACKUP A DISK ,: A FILE. IT WILL ALSO DUPLICATE A DID/ Ӎ0ILE NOT COPIED":HCL$;:.OH"COPY SUCESSFUL. ";:H"ERROR. ONLY ";NB;" OUT ";BC;"BYTES COPIED.""PRESS ";(18);"RETURN";(146);" TO COPY FILE"DM$:+OHX +OH^(PL$,21);"NO FILES ON THIS DISK."D1,24 ' 105,32,133,252,160,0,177,251"' 168,169,0,76,12,31235,32,204,255,160,0,240,19h`' 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,176,240,165,2JpV.OH0CL$;"FILE NOT COPIED":HCL$;:.OH"COPY SUCESSFUL. ";:H"ERROR. ONLY ";NB;" OUT ";BC;"BYTES COPIED.""PRESS ";(18);"RETURN";(146);" TO COPY FILE"DM$:+OHX +OH^(PL$,21);"NO FILES ON THIS DISK."0,251,208,2,230,252,165"L' 144,208,13,165,252,201,160,144DV' 235,32,204,255,160,0,240,19h`' 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,176,240,165,2+O "WRITE";" ERROR #";NB61440:^15,EN,EM$,ET,ES:H+H>+H?+OL15CL$;"DISK ERROR#";EN(PL$,22);EM$:^(147);" DUAL DRIVE FILE COPY":y+O4y"INSERT SOURCE IN DR 0; TARGET IN DR 1":H"READING DIRECTORY":J BC;"BYTES COPIED." "PRESS ";(18);*& "RETURN";(146);@0 " TO COPY FILE"Z: DM$: DM$"" 3130qD DM$(13) 1010wN  NO FILES ERROR HANDLING (PL$,21); "NO FILES ON THIS DISK." "PRESS RETURN TO TRY";F(146):LP3 3,,-OL,::+:*OLZ1$;" ";:,%,B%((K));:F16);",";("SPU",TY,1):LCL$;15,"I":LCL$;:H?+OHO+ONM$;"TOO LARGE.";:H>+ONM$;" NOT FOUND.";"ENTER FILE,TYPE":VHO 174,31, 165,252,141,175,31,169,0,133, 251,169,32,133,252,160,0,177, 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,132,251,24, 105,32,133,252,160,0,177,251, 168,16 :#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":410 1 1 41 0 1# 0 ? 0 2 2 2 4Ӣ š 1(),? 0 ? 0 ? 0 1 , 1 ,ؠ51 0 2 , ? 0 ? 0 ? 0 2 , 2 , 5Ӣ 1# 1(,)? 0 ? 0 1  10: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 1 01 0 ? 0 0 ? 0 2 2 2 0Ӣ á 1(),? 0 ? 0 1 , 1 , 1 , 11 0 2 , 0 ? 0 ? 0 2 , ? 0 1Ӣ 1# 1(,)1# ? 0 1 1 DUAL DRIVE FILE COPY2( 52,31: 56,31:B- I0 173W2 D: 7936I,D:l7 785,0: 786,31z<PL$(19)A I1 24: PL$PL$(17):F I1 39:CL$CL$" ":KCL$CL$(13)CL$(13)PCL$(PL$,21)CL$(145)(145) U ;(18) K142 169%  ((K));:2  (146)8 W 6 PRINT DIRECTORY ENTRY DEw J 785,6: SELECT FETCH CHAR TIX(DE1)32254((DE1)8)2 Y (IX)128 ^TY(IX)128: TY0 TY3 c Z1$;" "; h KIX3 IX18 rTY$: D NM$;"EXISTS. ENTER NEW NAME"8 NEN0:NM$"": NM$:L b READ THE FILEo v 785,0: SELECT READ FUNCTION  2,8,2,"0:"NM$","TY$",R"  910: EN0 2: NB(2): READ THE FILE  2: 810: CHECK RESULTS   WRIT NB61440 UE128:\ CL$;0f (785)0 "READ";Lp (785)3 "WRITE";hz " ERROR #";NB61440: READ ERROR CHANNEL15,EN,EM$,ET,ES EN0 EN62 EN63  15: CL$; "DISK ERROR#";EN (PL$,22);EM$:FILESLDS1V NSDS DS1: STSRT OVER/` (PL$,4);JjBE(DS1)81:LEBE15bt DS1NS LEBE8~ DEBE LE:Z1$(DE): (Z1$)2 Z1$" "Z1$ 310:: DISPLAY FILES I(214) 20: CLEAR " "AME:::* ,"[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&KQF721 1 61 0 1# 0 ? 0 2 2 2 6Ӣ ѡ 1(),? 0 ? 0 ? 0 1 , 1 , 71 0 2 , ? 0 ? 0 ? 0 2 , 2 , 7Ӣ # 1(,)? 0 ? 0 1 #":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 TAB 1 21 0 1# 0 ? 0 2 2 2 2Ӣ ӡ 1(),? 0 ? 0 1 , 1 , 1 , 31 0 2 , 0 ? 0 2 , 2 , 2 , 3Ӣ 1# 1(,)? 0 ? 0 1 4 S$" ": (142): " SEQUENTIAL FILE LISTER"?(V$"D"g2 " DISK UNIT NR (8-15) ? 8 ";< U: U8 U15 "": 50F " DISK DRIVE NR (0/1) ? 0";P N:N1$((N),1): N0 N1 "": 70 Z " TO SCREEN OR PR15,8,15: OPEN ERROR CHAN" Z 1010; n READ THE DIRECTORY[ 785,0: LOAD DIR INTO MEMs 15,"I": 2,8,2,"$" NB(2): LOAD DIR INTO MEM 2: 810: CHECK ERROR DISPLAY DISK NAME 785,6: SELECT FETCH CHAR (PL$,3) ((K)); |: 16);",";,  ("SPU",TY,1):3 :>  CL$;L 15,"I":e  GET A FILE TO COPY~  CL$;: EN63 580  UE128 NM$;"TOO LARGE."; & EN62 NM$;" NOT FOUND."; 0 "ENTER FILE,TYPE":NM$"":EN0:UE0 : NM$,E THE FILE$  785,3: SELECT WRITE FUNCTIONF  2,8,2,"1:"NM$","TY$",W"`  910: EN0 2:~ NB(2): WRITE THE BYTES  2: 810: CHECK RESULTS  * CHECK USR() RETURN VALUE >NBNB(NB0)65536 H NB61440 UE0: R  MAIN ROUTINE# (147);: CLEAR SCREENJ " DUAL DRIVE FILE COPY"N50N51:"INSERT SOURCE IN DR 0; TARGET IN DR 1":3100:"READING DIRECTORY$ 110: READ THE DIRECTORY8NS((NB1)254)B NS1 4010: NO   510: GET FILE NAME+ NM$"" DSDS2: 1110? COPY THE FILEJ CL$;_ "READING ";NM$y 610: READ THE FILE  EN62 UE128 1200BCNB: SAVE COUNT  410: GET DEST. DISK* CL$;"WRITING ";NM$4 710: B0/ 0DEY, \, 0TXA, \, 2STY , 2STA, 2STX, *BBS0/ 90:0 1BCCR,1STAY), \, \, 1STYX, 1STAX, 1STXY, 1SMB1y0 0TYA, 2STAY, 0TXS, \, \, 2STAX, \, *BBS10  A00 1LDY#,1LDAX), 1LDX#, \, 1LDY ,  \, 2JMP , 2EOR, 2LSR, *BBR4-v 50. 1BVCR,1EORY), \, \, \, 1EORX, 1LSRX, 1RMB5\. 0CLI, 2EORY, \, \, \, 2EORX, 2LSRX, *BBR5e. 60. 0RTS,1ADCX), \, \, \, 1ADC, 1ROR, 1RMB6. 0PLA, Lf          s LENTER FILE NAME K­ K `*&*&*&i…i… Z 0+ 10, 1BPLR, 1ORAY), \, \, \, 1ORAX, 1ASLX, 1RMB1@, 0CLC, 2ORAY, \, \, \, 2ORAX, 2ASLX, *BBR1I, 20,& 2JSR,1ANDX), \, \, 1BIT , 1AND, 1ROL, 1RMB2,0 0PLP, 1AND#, 0ROL, \, 2BIT , 2  =O0 ȌJ  J OeѢ  LsHJJJJ Vh)c¬`0123456789Ʃ, .=`͹ ͸8``0 1(,)? 0 ? 0 ? 0 1 1 ,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$" "*,1SBCX), \, \, 1CPX , 1SBC, 1INC, 1SMB63 0INX, 1SBC#, 0NOP , \, 2CPX , 2SBC , 2INC , *BBS6%3 F0d3 1BEQR,1SBCY), \, \, \, 1SBCX, 1INCX, 1SMB73 0SED ,2SBCY , \, \, \, 2SBCX, 2INCX , *BBS7 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"( S#,1SBCX), \, \, 1CPX , 1SBC, 1INC, 1SMB63 0INX, 1SBC#, 0NOP , \, 2CPX , 2SBC , 2INC , *BBS6%3 F0d3 1BEQR,1SBCY), \, \, \, 1SBCX, 1INCX, 1SMB73 0SED ,2SBCY , \, \, \, 2SBCX, 2INCX , *BBS7 21 0 1# 0 ? 0 2 2 2 2ڢ ɡ 1(),? 0 ? 0 ? 0 1 , 1 , 31 0 2 , ? 0 ? 0 ? 0 2 , 2 , 3ڢ 0 1(,)? 0 ? 0 ? 0 1  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), \ 1ADC#, 0ROR, \, 2JMP), 2ADC, 2ROR, *BBR6. 70+/ 1BVSR,1ADCY), \, \, \, 1ADCX, 1RORX, 1RMB7j/ 0SEI, 2ADCY, \, \, \, 2ADCX, 2RORX, *BBR7s/ 80/ \,1STAX), \, \, 1STY , 1STA, 1STX, 1SM) K0 `ɢ  Z )i$ Z­ Z8ɢ , Z©$ Z¢ mmHɢh K­ K¢  ZOeL=0 L bH L=, AND, 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,  01 0 1# 0 ? 0 ? 0 2 2 0ڢ ̡ 1(),? 0 ? 0 ? 0 1 , 1 , 11 0 2 , ? 0 ? 0 ? 0 2 , 2 , 1ڢ 2 1(,)? 0 ? 0 1 1 1"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, *BBR1 61 0 1# 0 ? 0 2() 2 2 6ڢ ӡ 1(),? 0 ? 0 ? 0 1 , 1 , 71 0 2 , ? 0 ? 0 ? 0 2 , 2 , 7ڢ ? 0 1(,)? 0 ? 0 1 1 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$" z111 41 0 1# 0 ? 0 2 2 2 4ڢ á 1(),? 0 ? 0 ? 0 1 , 1 , 51 0 2 , ? 0 ? 0 ? 0 2 , 2 , 5ڢ 0 1(,)? 0 ? 0 ? 0 1 , \, 1CPY , 1CMP, 1DEC, 1SMB42\ 0INY, 1CMP#, 0DEX, \, 2CPY , 2CMP, 2DEC, *BBS42f D0V2p 1BNER,1CMPY), \, \, \, 1CMPX, 1DECX, 1SMB52z 0CLD, 2CMPY, \, \, \, 2CMPX, 2DECX, *BBS52 E02 1CPX  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:  ";: 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);: 3360 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 "; 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: I4,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******************"; 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" " " K"(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 ":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$BSE 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 " ;: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: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"\ "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 ""(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 KEYNIT 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! "C64***GET KEY D$ D$:""; I125::"";; I125:: D$""2000]D(D$): D34 D148 2000l" ";: 2000: D13   D$;:***************************MENU : " CHANGE OPTIONS": *" Q " "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):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  **************************BEGIN$L"BEGIN ";: 3790%V DO D13: %`AN: B%j****************************ENDV%t"END ";: 3790i%~ D0 D13:s%EN:%**********************NORMALIZE%AANO:EENO:NO0%"NORMALIZE TO " " 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 TRAC3910& 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'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 :LCL$;:H?+OHO+ONM$;"TOO LARGE.";:H>+ONM$;" NOT FOUND.";"ENTER FILE,TYPE":VHONM$,TY$:LNM$;"EXISTS. ENTER NEW NAME":HVNM$:LP2,8,2,NM$","TY$",R":JH.O2:L2:JLP2,8,2,NM$","TY$",W":JH.O   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(  9,0,76,12,31T[VL-DISK COPY CWP!PP P4P8PIBD: PFPPBF'B F  15,8,15:H-P15,"I"2,8,2,"$":2:JLP(PL$,3);(18):%B% 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 *****160,0,32,207,255,145, 251,230,251,208,2,230,252,165, 144,208,13,165,252,201,160,144, 235,32,204,255,160,0,240,19, 164,144,32,204,255,192,64,208, 10,164,251,165,252,56,233,32, 76,12,31,169,240,76,12,31, 32,9,31,152,170,32,201,255, 168,176,240,165,251,141, 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-R"EBC]/b =CL$;"FILE NOT COPIED":H{CL$;:.OH"COPY SUCESSFUL. ";:H"ERROR. ONLY ";NB;" OUT ";BC;"BYTES COPIED.""PRESS ";(18);"RETURN";(146);" TO COPY ANOTHER FILE"DM$:A+OH?A +OH-^(PL$,21);**************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";NM$:J2H+OHJV.OHCL$;"FILE NOT COPIED":H{CL$;:.OH"COPY SUCESSFUL. ";:H"ERROR. ONLY ";NB;" OUT ";BC;"BYTES COPIED.""PRESS ";(18);"RETURN";(146);" TO COPY ANOTHER FILE"DM$:A+OH?A +OH-^(PL$,21);(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)2:L2:JL-p-OOLp+OOLCL$;:+O "READ";:+O "WRITE";" ERROR #";NB61440:^15,EN,EM$,ET,ES:H+H>+H?+OL15CL$;"DISK ERROR#";EN(PL$,22);EM$:^(147);" SINGLE DR8:"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): `((K));:F(146):LP3 3,,-OL,::+:*OL,%,B%((K));:F16);",";("SPU",TY,1):LCL$;"INSERT DESTINATION DISK.""PRESS";(18);"RETURN";(146);" WHEN READY."DM$:A+OH.A .OH.15,"I"*****************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 174,31, 165,252,141,175,31,169,0,133, 251,169,32,133,252,160,0,177, 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,132,251,24, 105,32,133,252,160,0,177,251, 168,16"(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 ****** ""; 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 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$:"NO FILES ON THIS DISK.""PRESS RETURN TO TRY";:A"ANOTHER DISK.";DM$:A+OHɒA +OH-^:^IDPCNBKIXDETYDENUENTEETESNSDSBEL(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 IVE FILE COPY""READING DIRECTORY":JMyy+OHЀy/OЀ(PL$,4);:ЇЎy+O Ў3B3JFָB" ":FJV+O ЀHCL$;"READING ";NM$:JkH>+O+OHcЕJCL$;"WRITING  :C80C825541803r" VALUE FOR BYTE $03"3|B$:B$""42204C9(B$):B$"":C90C925542104/4:TRACK LIMIT SRy4"TO MINIMIZE RUNNING TIME PROGRAM IS LIMITED TO 18 TRACKS/RUN"4"BEST STRATEGY IS SEARCH FOR EMPTY TR "01 02 03 OF AN EMPTY BLOCK"2"SOME DISKS CONTAIN 00 00 00 OR OTHER COMBINATIONS"%2"ENTER YOUR CHOICE----"h2" 1-FOR 01 01 01 2-FOR 00 00 00"2" 3-FOR USER SELECTION"2B$:B$""41002B6(B$) ,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, 0/"ENTER PRINTER PAGE LENGTH (INCHES)--11 OR 0 FOR NO PAGES" 0(B$:B$""3880$02P1(B$):PLP161090<P10PL0:3940P0FPL30PL15038700PPN1"ADJUST PRINT HEAD TO ONE INCH DOWN FROM "0ZPN1" TOP OF PAGE":WXILE 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 PROTBD9"PRESS F7 TO ABORT DISK RUN"-LQ$:Q$""3660-VQ$(13).`Q$(136)Q$(140)3700+.jQ$"":3660D.tD9D90:LTT:BY1:N.~3690T.u.:SR TO SAVE PRINT VARIABLES.B$"":"CHANGE ONLY TRACKS AND TITLE--Y OR N?".B$@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 PROTION+ "SETTING UP DATA MATRIX":+ :SR TO SELECT SCREEN MODES, "SCREEN OUTPUT OPTIONS"X, 5)"1--CONTINOUS OUTPUT--PAUSE WITH "50)" F1 KEY", 5)"2--RETURN TO CONTINUE AFTER EACH "50)" SCREEN", "OPTION 1 RECOMMENDED WITH1,FF$;:WX2FH01,":";:50656WX31,":";:50656XP7FF$;:WX2FH0":";:51007WX3":";:5100"7K7p:SR TO CONVERT DEC TO HEX AND PRINT\7zF4FI%(FJ,3)n7F9(F416)17G1F4(F91)1617F7$(F8$,F9,1)(F8$,G30,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,22ACKS TO SCREEN"4""5)"THEN OCCUPIED TRACKS TO PRINTER"4XC145:SR TO EXAMINE AN ENTIRE DISK>5"EXAMINE AN ENTIRE DISK--Y OR N?"R5B$:B$""4310o5B$"Y"HZ1:B$"":43705B$"N"431055360:540:3220:34905:B$"":B64130,4140, 4150240702"C701:C801:C901:2,C700:C800:C900:'36"ENTER DECIMAL VALUE FOR BYTE $O1";3@B$:B$""4160`3JC7(B$):B$"":C70C725541503T" VALUE FOR BYTE $02"3^B$:B$""41903hC8(B$):B$""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 F15000:0d0n:SR TO COUNT PRINT LINES0xPL00R7R71:R7PL1R701WX18:1::PNPN191WX1(PW10):1," ";:M11,"PAGE "PN:1S1{1:SR TO SELECT EMPTY BLOCK CRITERIA1"MOST DISKS CONTAIN 01 01 01 IN BYTES"1ECT 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 .B$"Y"3790.B$"N"3740.B$"":90/BY0:B$"":C$"":F60:360:400/P600!/140:190D/:SR TO SET PRINTER PARAMETERSs/"ENTER PRINTER COLUMN WIDTH--40,80,120"/B$:B$""3840/ PW(B$):B$""/PW25PW200383 2073 RLE RL Rd? hhLHRTL-64 R q _``%`H h` _ G R`@  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,32, 133,252, PRINTER", ""5)"ENTER YOUR CHOICE", B$, R4(B$) - R42R413500- 7-:SR TO COUNT SCR LINES AND PAUSE_-R41Q$:Q$(133)Q$(137)3640k-R41w-$R5R51-.R522-8R50:"PRESS RETURN TO CONTINUE":Q$""-.1,1)":":XP0F7$;7XP1,F7$;75D1,12,13,23,24,355XF605b1405l6v*6:SR TO CONV T&S TO STRS AND PRINTI6FE%(1)FF$" E":5035t6FF$(FE%):(FF$)2FF$" 0"(FF$,1)6(FF$)4FF$(FF$,3)6XP050706/ Ӎ0 BASIC--Y OR N?"K1$:N+OLY.OH" \=MEMORY ADDRESS OF NEXT ";" BASIC STATEMENT ":L ː BKW$(K3):FL4,"\=MEMORY ADDRESS OF NEXT BASIC STATEMENT"4:L^K2K4P38205&403050Y7135:BT,LT5D1,12,13,23,24,355XF605b1405l6v*6:SR TO CONV T&S TO STRS AND PRINTI6FE%(1)FF$" E":5035t6FF$(FE%):(FF$)2FF$" 0"(FF$,1)6(FF$)4FF$(FF$,3)6XP050706 "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`" 4 0 :SR TO PRINT LIST OF OCC BLOCKS  :35902  "OCCUPIED BLKS--BTS 02 AND 03";:Q94? $ Y51B5g . XP0:WX12:FE%FG%(Y5,WX):5000: 3 Q9Q91:Q95Q90::3590 8 B :3590::3590:L50 L "KERNAL ROUTINES IN OCC BLKS--TR 2)B3$! F1$(3)B4$! Y503:F3$F1$(Y5)" F3$""F3$(0)" 2570:(" Y542554" #2,F3$I" F3$""F3$(0)U" 2570:_" 2690i" F4F5w" F5(F3$)" F5255F6F61:FI%(F6,1)(T):FI%(F6,2)(S):2610"( 2690"2 FI%(F6,3)( L9L91:L9S2Y5W1L90:1,"":3950f:L90p1,"":3950:1:3950Iz1,"ERROR BLOCKS AND ERROR NO ":3950dWE01,"NONE";:2220qY51WEXP1:FH1:WX13:FE%FB%(Y5,WX):5000::FH0L9L91:L9S4Y5WEL90:1,"":3950$} P1,4:1:1,"RUN ABORTED AT TRACK "T"--MORE THEN 350";2$ P1," KERNALS":3950:3950:1:3950:1=$ R20:|$" XP1:1,"KERNAL ROUTINES IN OCC BLOCKS ":3950::FROM 442$, K5$"":F601,"NONE FOUND ";:2955$6 S3(PW15)$@ Y51F6$A0"NONE":3590:2000Y51W1"XP0:WX12:FE%FC%(Y5,WX):5000:AQ9Q91:Q95Q90::3590U::3590:2310i:3590::3590uP2030{1,4:1:39501,"FIRST BLOCKS":3950X90 1,"N0NE";:2100 S2(PW7):S:Q9Q91%| K5$K6$% & 1:1:3950:1,"RUN TIME: ";TI$;" FREE BYTES-"(0);9& 1," KERNALS-"F6:3950:3950_& 1:1,4:3950:1:1,"":3950:1:u& :DISK ERROR READ& 15,EN,EM$,ET,ES& EN0& "IN LINE "ZZ" ERROR "EN;EM$;" BLOCK "E:(LT$)2LT$" 0"(LT$,1)700:R9LSS0R9<LS$(S):(LS$)2LS$" 0"(LS$,1)hA2%(T,S)(0)LT$;LS$;":";:MZ1:1850&MZ0SR9TLT"NONE";01870:X9X91:FD%(X9,1)(T):FD%(X9,2)(S):Q9Q91DQ95Q90::3590","TALK ","READST","SETLFS","SETNAM"!(b "OPEN ","CLOSE ","CHKIN ","CHKOUT","CLRCHN","CHRIN "T(l "CHROUT","LOAD ","SAVE ","SETTIM","RDTIM "(v "STOP ","GETIN ","CLALL ","UDTIM ","SCREEN"( "PLOT ","IOBASE","NO KER"( ( :SR FOR KEAX ESTIMATED AT"50);RT" MIN") RTLTBT2&* ""5)"IF NO RUN TIME MAX ESTIMATED AT "50);RT" MIN"<* "ENTER Y OR N"F* 3250f* : SR TO CAUTION OF GARBAGEu** LTBT5*4 ""5)"CAUTION!!! "*> 5)"C-64 OS 'GARBAGE COLLECTION' ) 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,SEC ":3590:Q90 V F60"NONE":3590:2430 !` Y51F6F!j XP0:FH1:WX12:FE%FI%(Y5,WX):5000::" $FF";:FJY5U!l 6000:FH0t!o Q9Q91:Q93Q90::3590z!t !~ :3590::3590:! F1$(0)X$::FROM 170! L50! F1$(1)Y$! F1$(F4):F4129F6F61:2690#< FM0:R11292433:FMFM1:F4R1R21:FI%(F6,4)(FM)9#F :R21F6F61:2690J#i F63502690#n F6349BY1:"MORE THAN 350 KERNAL ROUTINES--DISK RUN ABORTED"#s 2690#x BYF6349"TRY RUNNING FEWER TRACKS":LTT:L901,"":3950:1:3950:PRINT LIST OF OCC BLOCKSC1,"OCCUPIED BLOCKS--BYTES 02 AND 03 ":3950PY51B5xXP1:WX12:FE%FG%(Y5,WX):5000:L9L91:L9S2Y5B5L90:1,"":3950:L901,"":3950:1:3950285 FK$(FI%(Y5,1)):FL$(FI%(Y5,2))%B (FK$)2FK$" 0"(FK$,1)(%C (FL$)2FL$" 0"(FL$,1)<%J K6$FK$FL$":"u%T K5$K6$1:3950:1,"BLOCK ";K6$;"***";:Q91:2920%^ Q9S3Q90:1:3950%h 1," $FF";:FJY5:6000%r 1,K3$(FI%(Y5,4));":";4(PW11)Y51X9 XP1:WX12:FE%FD%(Y5,WX):5000:@%L9L91:L9S2Y5X9L90:1,"":3950K*:L90e41,"":3950:1: 3950>1,"LAST BLOCKS":3950HW101,"NONE";:2160RY51W1\XP1:WX12:FE%FC%(Y5,WX):5000:aT;ES& 2:1:15:& & :KERNAL NAME VARIABLES' Y5140:K3$(Y5):C': "CINT ","IONIT ","RAMTAS","RESTOR","VECTOR"'D "SETMSG","SECOND","TKSA ","MEMTOP","MEMBOT","SCNKEY"'N "SETTMO","ACPTR ","CIOUT ","UNTLK ","UNLSN "'X "LISTENN:X:3590::3590b" ERROR BLKS FOUND- ";:Q924lWE0"NONE":3590:1940AvY51WEsXP0:FH1:WX13:FE%FB%(Y5,WX):5000::FH0Q9Q91:Q93Q90::3590:3590::3590" LAST BLOCKS FOUND-- ";:Q93W1 RNAL OPTION SELECT) "EXAMINE OCCUPIED BLOCKS FOR KERNAL ROUTINES-Y OR N?") 3290%) B$8) B$"N"L50:J) B$"Y"3220U) L51:) BT0"IF YES RUN TIME IS 1-3 HR":3340) RT(LTBT1)54) ""5)"IF YES RUN TIME MMAY"45)"CAUSE DELAYS DURING"*H 5)"EXECUTION"+R ""5)"DELAYS UP TO 10 MIN ARE POSSIBLE"K+\ ""5)"BE PATIENT THE PROGRAM RUNS!!!"r+f ""5)"WHY NOT TAKE A BREAK AND"+p ""5)"LEAVE THE WORK TO EXAMINER"+z + :SR TO IDEN ACT 10,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 1 15,DR,15,"I"D$:ZZ118:29704 2,DR,2,"#":ZZ120:2970S"BLOCK NEXT BLOCK":R51oTBTLT:T5T:700:740T518LS20:T525LS18:T531LS17:LS16:LT$(T):BY1070(LT$)2LT$" 0"(LT$,1)  BT0BT1 B$""T "ENTER LAST TRACK NO, OR 0 FOR ALL TRACKS"g B$:B$""460z LT(B$):B$"" LT0LT35  LTBT LT35 "ILLEGAL TRACK NO":460 LTBT1184250 XC1XC0:400 "O ILE:::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$: AMINE DISK BLOCKS FOR ERRORS, NEXT BLOCKS,"n " PROGRAM STRINGS, AND KERNAL ROUTINES"t " ,:PROGRAM OPTION SELECTION 6"ENTER DRIVE NO OF DISK TO BE EXAMINED --8 OR 9" @B$ JDR(B$):B$"" TDR8 ":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 PROTE :260::TITLE ON SCREEN+ P:PROGRAM OPTIONSX ZBY0:P0:F60:C$"":300:4310:HZ1190w d360:400:540:3220:3490 nP3820 x4030:: SELECT EMPTY BLOCKS CRITERIA 140:190 1690::ZERO ARRAY 640::ACCESS BLOCKS 1100::PRI .T82:15BL:PRINT SECTION)VD90:BY0:P0F`1550: READ DISK HEADERYj 1,4:1:3950ot1:3950:1:3950~1,"DISK EXAMINER OUTPUT";PLW1(PW30):1," ";:PLPN11,"PAGE ";PN;1:3950:1:39501 ):NXNPNPNP1LPBT1PA1NP*(1,"SECT";:XM0LPXM72MTS6LPH<MTLTMTLTYFT(LP1)MTfPPT$(T)Z(PT$)2PT$" 0"(PT$,1)dPT$" "PT$" "n1,PT$;x:1:3950S020PS$(S)(PS$)2P (Y$)4Y$(Y$,3)(Y$)2Y$" 0"(Y$,1)7(X$)4X$(X$,3)rA$" "X$","Y$":":FA%(T,S,1)(RT):FA%(T,S,2)(RS)|1020FA%(T,S,2)(EN)M12WEWE1:FB%(WE,1)(T):A2%(T,S)(1):10051010FB%(WE,2)(S):FB%(WE 15,DR,15:ZZ298:2970" 2,DR,2,"#":ZZ300:2970-,15,"U1:2,"D$;18;0O615,EN,EM$,ET,ES:EN2:15:c@15,"B-P:2,144"mJD$""yTI123^#2,D1$hD1$(160)D1$(32)rD$D$D1$|2:15:ZERO ARRAYSTI$ S0LS:M10:M20:F50:L6$"EMPTY"BY1060+ LS$(S)K(LS$)2LS$" 0"(LS$,1)a 15,"U1:2,"D$;T;Sv*15,EN,EM$,ET,ES4ENA$" E,"(EN)":":M12:FA%(T,S,1)(1):995>#2,X$,Y$,B3$,B4$HB3$""B3$(0)RB4$""B4$(0) UTPUT RESULTS TO PRINTER--Y OR N?"&B$30B$"Y"P1:600D:B$"N"540NDB$""TNX;"ENTER TITLE FOR PRINTOUT IF DESIRED"bC$l (C$)40" 40 CHAR MAX":600v:DISK ACCESS SECTIOND$"0":WE0:W10:B50:D9740: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, DR9310 ^T h"INSERT TEST DISK IN DRIVE "DR" WHEN READY PRESS RETURN"k rB$:B$(13)370u |B$""{  "ENTER BEGINNING TRACK NO, OR 0 FOR ALL TRACKS" B$:B$""400 BT(B$) BT0BT35400 CT* 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 F NT OUTPUT# 1750::FIND FIRST BLOCKS) G :OPTION FOR ANOTHER DISKU HZ0:BT0 "EXAMINE ANOTHER TRACK OR DISK--Y OR N?":R5R52:3590 B$ B$"Y"3730 B$"N"210 :PROGRAM TITLE ON SCREEN* " PROGRAM TO EX ,"DISK ID: ";D$:3950 1:39501,C$:3950&1:3950l1," TRACK NUMBERS (DATA ARE BYTES 00/01--NEXT TR AND SEC)"3950:PW6039501:3950:CALC NO COLS AND PAGESNCLTBT1:S6((PW3)9)NXNCS6 NP(NX S$"0"(PS$,1) (PS$)3PS$(PS$,2)$PS$PS$":":1,PS$;5T(LP1)MTdXP1:1," ";:WX12:FE%FA%(T,S,WX):5000vWX11,",";:XMTT1:3950SPANP1:3950PA1:READ DISK HEADER ,3)(EN):1050:A1$(W)=ERROR BLOCKS LISTVL6$"EMPTY"A2%(T,S)(1):1050: A2% MARKS EMPTY BLOCKSM10RS21RT36A2%(RT,RS)(1):1050M1L6$"OCCUPIED"W1W11:FC%(W1,1)(T):FC%(W1,2)(S)LT$;LS$;1);A$;1);L6$:3590$S"000000": WX1 35: WX1 3360WX2034601Y5020:A2%(WX,Y5)(0)=J112UFA%(WX,Y5,J1)(1)a::::FIND FIRST,ERROR AND LAST BLOCKSX90:MZ0::3590:" FIRST BLOCKS ARE-- ";:Q93TBTLT:T5TLT$(T) \X$""X$(0)fY$""Y$(0):M21Bp(B3$)C8(B4$)C9(Y$)C7910Tz(X$)0M11]930xB5B51:L6$"OCCUPIED"FG%(B5,1)(T):FG%(B5,2)(S):2440:890RT(X$):X$(RT):RS(Y$):Y$(RS)(X$)2X$" 0"(X$,1) 10: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  2073 RLE RL Rd? hhLHRTL-64 R q _``%`H h` _ G R`@`T[ VL-MD COPY CWF$(100):A"DUAL DRIVE DISK COPY/SCRATCH PROGRAM""WITH ERROR HANDLING AND HEADER READ"" :.O COPYH15,"B-P:2,144":B#2,D1$:%+O %%F21515,8,1515,"I0"15,"I1"1515,8,155,8,5,"#": J15,"U1";5;0;19;6:0 J#5,AE$#5,AE$#5,AE$515,"M-R";(18);(00)#15,I$15,"M-R";(19);(00)  2073 RLE RL Rd? hhLHRTL-64 R q _``%`H h` _ G R`@ T[VL-DOS TO DISK.CW""6)"DISK ROM TO FILE""START AT LOCATION (HEX) C100";A$: J<+OHH""3 ::*O)"DISK ERROR"EN;EM$;ET;ES115:^"":3V3V]1,(LL);(LH);:d%Bddkdkr15,"M-R"(KL)(KH)#15,A$:+O1,A$;"WORKING ON"K:F115:^: *O!"HEX STRING TOO LONG":L -O" | / Ӎ0N;EM$;ET;ES115:^"":3V3V]1,(LL);(LH);:d%Bddkdkr15,"M-R"(KL)(KH)#15,A$:+O1,A$;"WORKING ON"K:F115:^: *O!"HEX STRING TOO LONG":L -O"  "":HOMH"DISK DUPLICATION IN PROGRESS"15,8,1515,"D1=0":JH"READY TO BEGIN COPYING""ENTER BEGINNING TRACK NO--(1?)"TB"ENTER FINAL TRACK NO--(35)"TF:d#*d-kd-OH kdV< r"COPY TISNHFISDJTSKB6B7JZABNC5B1CB2ENEETESA1AA2AK5B9KK3  *OyЇyB15,"U1:"8;0;T;S15,A$,B$,C$,D$:.OH15,"U2:"8;1;T;S: JFF815"DO ANOTHER DISK--Y 0R N?"AN$:Y+O15"":H^"PROGRAM OPTIONS--"" 1-DUPLICATE DISK WITHOUT ERRORS"" 2-DUPLICATE DISK SKIPPING DY TO BEGIN COPYING":VO(" FORMATTING DESTINATION DISK":VO/15,8,1515,"N1:"(DN$,16)","IR$15:V15,8,15,"I0"1515,8,15,"I1"1515,8,15"":иBҿ" FILE "NA$:+O15,"C1:"NA$"=0:"NA$:H15,"S0:"NA$15,A$,B  PRESS RETURN"RE$:Ɖ .OH"READY TO BEGIN SCRATCHING FILES""DO YOU WANT TO ABORT PROCESS?--Y OR N"JT$:HY+O "":HЪH^RZZADIDAIDIJC1JZFTBT INSERT SOURCE DISK IN DRIVE 0"" WRITE PROTECT THE SOURCE DISK""INSERT DESTINATION DISK IN DRIVE 1"" WHEN READY PRESS RETURN"RD$: .OHk15,8,1515,"I0"15,"I1"1515,8,152,8,2,"#": J15,"U1:";2;0;18;015,A$ #15,D$15:3:A"DISK ID NO--";IR$"DISK HEADER--";DN$"IS THIS THE CORRECT DISK?"JT$:HY.O "":HJkO+O+OH@V"FORMAT DESTINATION DISK? Y OR N"F1$:]Y.OH@V"DO YOU WANT TO ABORT PROCESS?--Y OR N"JT$:HY+O 1)Z"QUIT AT LOCATION (HEX) FFFF";A$: J<%+OH""31)Z"SAVE IN FILE NAMED ROM 1541";F$"WITH LOAD ADDRESS OF (HEX) 1100";A$: J<3+OH""31)Z15,8,15,"I0"1,8,5,"@0:"F$",P,W"15,EN,EM$,ET,ES "HEX STRING TOO SHORT":LdBd d0yy *Oyyy-y*O"BAD HEX CHARACTER":LydFL^AZSZZFQFLENEETESLHLLKKHKLZN ":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 TAB ME APPROX "CT" MINUTES":VO(" FORMATTING DESTINATION DISK":VO/15,8,1515,"N1:"(DN$,16)","IR$15:Vy""15,8,15:\ J15,"I0"15,"I1"1515,8,158,8,8,"#":z JՐdЀkB"COPYING TRACK--";T:*O yH*O yH  : DISK EXAMINER PROGRAMS: EDN 1.1 PAUL E. ECKLER COMPLETED JULY 1, 1984l: DIMENSION SECTION(FA%(35,20,2):FD%(360,2):FG%(360,2): FI%(400,4)2A2%(35,20):FB%(200,3):FC%(360,2):K3$(40)<F8$"0123456789ABCDEF":PN1 F3030 ERRORS"" 3-COPY FILES FROM DISK TO DISK"" 4-SCRATCH FILES FROM DISK""ENTER YOUR CHOICE"C1:LCOPYңJЪH"ENTER NUMBER OF FILES TO "DZ$"--1?"C2:-d*OHиB"ENTER NAME OF FILE NO "R1F$(R1):*OHOFL"REA $,C$,D$:+OH"IN FILE "NA$" "A$" "B$" "C$" "D$:FH15,A$,B$,C$,D$:.O!"IN LINE "ZZ;A$;B$;C$;D$:^:LSCRATCHңJ"REMOVE WRITE PROTECTION NOTCH""INSERT DISK WITH FILES TO BE SCRATCHED IN DRIVE 0"" WHEN READYxFCTSFTSBCADZXC2R1NRI~/ Ӎ0SCRATCHңJ"REMOVE WRITE PROTECTION NOTCH""INSERT DISK WITH FILES TO BE SCRATCHED IN DRIVE 0"" WHEN READY XPWXIDY5J1X9MZQ9R9FHS2S4L9L5FJFF4FMR1R2KS3FFKR4QP1R7B6Y7FF9G1 ;:H,+O ":";:H,L xxx:+OF7$;:O 1,F7$;:L^FPNBYPF6CHZBTR5BDRLTXCDWEW1B5D9ZZ  2073 RLE RL Rd? hhLHRTL-64 R q _``%`H h` _ G R`@u "END","FOR","NEXT","DATA","INPUT#","INPUT","DIM","READ","LET","GOTO", "RUN","IF","RESTORE","GOSUB","RETURN","REM"," B$:A+OH@AA-*OH]L"TO MINIMIZE RUNNING TIME PROGRAM IS LIMITED TO 18 TRACKS/RUN""BEST STRATEGY IS SEARCH FOR EMPTY TRACKS TO SCREEN"""5)"THEN OCCUPIED TRACKS TO PRINTER":VL"EXAMINE AN ENTIRE DISK--Y OR N?" OS","SQR","RND","LOG","EXP","COS","SIN","TAN","ATN", "PEEK","LEN","STR$","VAL","ASC","CHR$","LEFT$","RIGHT$","MID$","GO"T[VL-DISPLAY BASIC CH(10):A WKW$(80):A Jw"""DISPLAY BLOCK CONTENTS"" PAGE "PN1:L"MOST DISKS CONTAIN 01 01 01 IN BYTES""01 02 03 OF AN EMPTY BLOCK""SOME DISKS CONTAIN 00 00 00 OR OTHER COMBINATIONS""ENTER YOUR CHOICE----"" 1-FOR 01 01 01 2-FOR 00 00 00"" 3-FOR USER SELEC "15,8,15,"I"D$:J4,4:AP++OJ\2,8,2,"#":J"TRACK, SECTOR";T,S:H+H#*O"15,"I"D$2415"END":^:AS+O"TRACK"T" SECTOR"S"":AP+O44,"TRACK"T" SECTOR"S415,"U1:2,"D$;T;S:J#2,A$(0):+OAS+OH OLA"CHANGE ONLY TRACKS AND TITLE--Y OR N?"B$:AY+OHAN.OH4AH9A%JJVOJJH"ENTER PRINTER COLUMN WIDTH--40,80,120"B$:A+OHܗA=A=-=*OH"ENTER PRINTER PAGE LENGTH (INCHES)--11 OR ]dkBkV,B,#2,A$(I):,+O,V+,-O ,G,Vy:ҀkЇJ˒y:yy00 :++OЕ,B,,ЇJː,+,+k+OJPHU,ҜJKҀG,AP+O4,A$4," ";B$:GkH1"NEXT TRACK AND SECTOR"NB(1)NB(2) HrN+O ЕУЎLrQ+OHXrY.OH"TRACK"T" SECTOR"S"":Lk+,++O]k+,++Od+OЎƒƁ͒yyԒԁےyyے00+OЕyyL++O ҜJL+]+d+O ҜJL -O Ҝ2F,6*/ Ӎ0F5LLENEETESAXYBBC8C9C7RTRSPLWPWNCS6NXNPLPPAXMMTPP TT5LSLSM1M2F5LLENEETESAXYBBC8C9C7RTRSPLWPWNCS6NXNPLPPAXMMTPP STOP","ON","WAIT","LOAD", "SAVE","VERIFY","DEF","POKE","PRINT#","PRINT","CONT","LIST","CLR", "CMD","SYS","OPEN","CLOSE","GET","NEW","TAB(","TO","FN","SPC(","THEN", "NOT","STEP","+","-","*","/","^","AND","OR",">","=","<","SGN","INT", "ABS", "USR","FRE","P B$:A+OHgAY+O ,AHAN.OHgLJJ=JSJOJJ-jBjBT,LT:JFL+O  EqHנqq+O 0qqq+O qq+OH[1,FF$;:+׀+O1,":";:Ha+O1,":";:HaOLFF$;:+׀+O ":" ": 0123456789ABCDEF%@,_B,%,%G, 3,B,3,3G,A$(15):ANB(2):A0:J" SCREENOR PRINTER"JJ$:A+OHSAS+O" SCREEN":AP+O" PRINTER TION"B$:A+OH7AcAcMHڭ L L"ENTER DECIMAL VALUE FOR BYTE $O1"B$:A+OHВAA-*OH" VALUE FOR BYTE $02"B$:A+OHوA A - *OH٥" VALUE FOR BYTE $03" AP+OHV]dk?Bkk +O JIrN+O PkHV,B,#2,A$(I):,+O,V+,-O ,G,Vy:ҀkЇJ˒y:yy00 :++OЕ,B,,ЇJː,+,+k+OJPH*,ҜJKҀG,AS+OA$B$:GkH1V  0 FOR NO PAGES"B$:A+OH(AUU /U+O /Hۉ/-/*OHk +O3"ADJUST PRINT HEAD TO ONE INCH DOWN FROM ": +O"" TOP OF PAGE":BFL/+OL\\\/-OL\B1:F  = B1," ";:F1," """DO YOU WANT NEXT TRACK AND SECTOR""ENTER Q TO QUIT"Z$:r+OHӒrY+OHOHrN+OЕУЎHΒrQ+OHXH15,EN,EM$,ET,ES:+OL"DISK ERROR"EN,EM$,ET,ES2415:^"CONTINUE(Y/N)"" ENTER Q TO QUIT"Z$:r+O L-*OL+O3ҜL.OL +OLҜLУ, .OL + + +O\ END OF PROGRAMҜH` \     ҜЕУ]dЎL-OH NB,,, ҀL "INTERPRET BASIC--Y OR N?"K1$:N+OLY.OH" \=MEMORY ADDRESS OF NEXT ";" BASIC STATEMENT ":L ː BKW$(K3):FL4,"\=MEMORY ADDRESS OF NEXT BASIC STATEMENT"4:L^K2K4 J+O 1,",";:FnG1:JۈGgY.O 1:JۈGg1:L15,DR,15:*ЀJ2,DR,2,"#":,ЀJ15,"U1:2,"D$;18;015,EN,EM$,ET,ES:O 215:L15,"B-P:2,144":]B#2,D1$:+O ]]F215:L000000#B 6=B61," ";:F/ +O1,"PAGE ";PN;1:Jۈ1:Jۈ1,"DISK ID: ";D$:Jۈ1:Jۈ1,C$:Jۈ1:Jۈ1," TRACK NUMBERS (DATA ARE BYTES 00/01--NEXT TR AND SEC)":Jۈ=<-OJۈ1:JۈO3D= KDKRRYRY.O YY $+O1,"NONE FOUND ";:H(=+B 2 92+O 0229+O 09929:@$@.O(1:Jۈ1,"BLOCK ";K6$;"***";:Hdɔ++O 1:Jۈ1," $FF";:J+1,K3$(FI%(Y5,4));":";:Ɂɖ@ ..OH+OЪHÐrrOCCUPIEDҿrrJ)H!!((+O 0+O +O 0+O  ,:鐇!(H͸+Oddd +OLB+OJFB#2,F3$:+OJFHaи+O  HHa -O HaC+O F.O Ha^-OHa] Y+OHAN.OH=AL;"ENTER TITLE FOR PRINTOUT IF DESIRED"C$:%(*O" 40 CHAR MAX":HL0]dkry15,DR,15,"I"D$:vЀJ2,DR,2,"#":xЀJ"BLOCK NEXT BLOCK"::3ЇOBЎJ4H -OЕL-OЕL-OЕL ה+d.O1,"":JۈF1,"":Jۈ1:Jۈ1,"OCCUPIED BLOCKS--BYTES 02 AND 03 ":JۈrBBJF+r.O1,"":JۈF1,"":Jۈ1:JۈH[L:J"OCCUPIED BLKS--BTS 02 AND 03";:Ɂ NAL ROUTINES-Y OR N?":HB$:AN+OLAY.OHSL3+O'"IF YES RUN TIME IS 1-3 HR":H6O3!""5)"IF YES RUN TIME MAX ESTIMATED AT"50);RT" MIN":O3!""5)"IF NO RUN TIME MAX ESTIMATED AT "50);RT" MIN""E :JHЁkBBJFɁɔɅ+O :JF:JJR:J:JOHL1,41:Jۈ1,"FIRST BLOCKS":Jۈ+O1,"N0NE";:H=ޔ= BBJF+.O1,"":JۈF ""5)"LEAVE THE WORK TO EXAMINER":L"SETTING UP DATA MATRIX":L"SCREEN OUTPUT OPTIONS"5)"1--CONTINOUS OUTPUT--PAUSE WITH "50)" F1 KEY"5)"2--RETURN TO CONTINUE AFTER EACH "50)" SCREEN""OPTION 1 RECOMMENDED WITH PRINTER"""5 +OJ +OJ B BFFFL:J" FIRST BLOCKS ARE-- ";:ɐ3ЇOBЎҜ+O 0ҜJ4ЀУBƒƸ+O 0ƁƐ +OLT$;LS$;":";:H€++O+O "N 3`gYBg1,"SECT";:n.On`K`uuO*OOu`ЇuB||+O 0|| | |1,PT$;:F1:JۈУB+O0+O :1,PS$;:`ЇuB1," ";:B $F11:Jۈ1,"RUN TIME: ";TI$;" FREE BYTES-"(0);1," KERNALS-"F6:JۈJۈ11,4:Jۈ11,"":Jۈ1:L15,EN,EM$,ET,ES:̀+OL"IN LINE "ZZ" ERROR "EN;EM$;" BLOCK "ET;ES2115:^:L(BK3$(Y5):FL"EXAMINE OCCUPIED BLOCKS FOR KER  HHdd͸HEMPTY+O H+(-!$-O!( HOCCUPIED+OkkkkLT$;LS$;1);A$;1);L6$:JGG215:Ly+OLJ1,41:Jۈ1:Jۈ1:Jۈ1,"DISK EXAMINER OUTPUT";:/O *O8"MORE THAN 350 KERNAL ROUTINES--DISK RUN ABORTED":Ha]*O#"TRY RUNNING FEWER TRACKS":OO81,411,"RUN ABORTED AT TRACK "T"--MORE THEN 350";:O!1," KERNALS":JۈJۈ1:Jۈ1:L1,"KERNAL ROUTINES IN OCC BLOCKS ":Jۈ ЕLҜOHl+O 0ҜУBЪбиEMPTYҿOHoƒƸ+O 0Ɓ15,"U1:2,"D$;T;S15,EN,EM$,ET,ES:O& E,͸:ЪH3#2,X$,Y$,B3$,B4$:+O+O+O+O б . rBBJFɁɔɅ+O :JF:J:J+OL"KERNAL ROUTINES IN OCC BLKS--TR,SEC ":Jɐ+O"NONE":JH6BׁB JF" $FF";:J+הɁɔɃ+O :JF:J:JL NTER Y OR N":HO3-OL""5)"CAUTION!!! "5)"C-64 OS 'GARBAGE COLLECTION' MAY"45)"CAUSE DELAYS DURING"5)"EXECUTION"""5)"DELAYS UP TO 10 MIN ARE POSSIBLE"""5)"BE PATIENT THE PROGRAM RUNS!!!"""5)"WHY NOT TAKE A BREAK AND" 1,"":Jۈ1:Jۈ1,"LAST BLOCKS":Jۈk+O1,"NONE";:H甁kBBJF+k.O1,"":JۈF1,"":Jۈ1:Jۈ1,"ERROR BLOCKS AND ERROR NO ":Jۈd+O1,"NONE";:HdBׁBJF )"ENTER YOUR CHOICE"B$:AGG.G.OHLG+OQ$:N+N+OH˔G+OL:::-OL:"PRESS RETURN TO CONTINUE":NyO""PRESS F7 TO ABORT DISK RUN"Q$:N+OH݀N +OLN+N+OHGNH݀yO yOLH ONE";:HޔɁɔɅ+O :JFF:J:J" ERROR BLKS FOUND- ";:ɐd+O"NONE":JHWdBׁBJFהɁɔɃ+O :JF:J:J" LAST BLOCKS FOUND-- ";:ɐk+O"NONE" -d: COPY PROGRAM FOR MSD SD-1 DUAL DRIVE;f F$(100)ji"DUAL DRIVE DISK COPY/SCRATCH PROGRAM"n"WITH ERROR HANDLING AND HEADER READ"s"INSERT SOURCE DISK IN DRIVE 0"v" WRITE PROTECT THE SOURCE DISK" x"INSERT IR$:15:JZ0-15,8,15,"I0":15:15,8,15,"I1":15:15,8,15:""Y R11 C2:NA$F$(R1):" FILE "NA$ ZX1 15,"C1:"NA$"=0:"NA$:145015,"S0:"NA$15,A$,B$,C$,D$: (A$)0 1460"IN FILE "NA$" "A$" "B$" "C$" "D$ " 2-DUPLICATE DISK SKIPPING ERRORS"=" 3-COPY FILES FROM DISK TO DISK"a" 4-SCRATCH FILES FROM DISK"|"ENTER YOUR CHOICE" C1: FILE COPY ROUTINEFDZ$"COPY": 1355:ZX1: 1410K"ENTER NUMBER OF FILES TO "DZ$ WHEN READY PRESS RETURN"r RE$: RE$(13) 1650G|"READY TO BEGIN SCRATCHING FILES"v"DO YOU WANT TO ABORT PROCESS?--Y OR N" JT$: JT$"Y" "": 115ZX0: 1420(A$)0 1460"IN FILE "NA$" "A$" "B$" "C$" "D$ 5\ZZ860: 1500f15,"I0":15,"I1":158p 15,8,15:8,8,8,"#"JzZZ890: 1500Z TTB TFt"COPYING TRACK--";T T30 SF16: 950 T24 SF17: 950 T17 SF19 S0 SF15,"U1:"8;0;T;S15,A$,B$,C$,D  2073 RLE RL Rd? hhLHRTL-64 R q _``%`H h` _ G R`@ )+ "CINT ","IONIT ","RAMTAS","RESTOR","VECTOR", "SETMSG","SECOND","TKSA ","MEMTOP","MEMBOT","SCNKEY", "SETTMO","ACPT 0,800,1300,1600  6455 "DISK DUPLICATION IN PROGRESS"S 15,8,15:15,"D1=0":1500^  1030 "READY TO BEGIN COPYING" *"ENTER BEGINNING TRACK NO--(1?)": TB 4"ENTER FINAL TRACK NO--(35)": TF 6 TB35 TB1 TFTB 8 )(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 " ZZ540:1500" &15,"U1";5;0;19;63 0ZZ560:1500R :#5,AE$:#5,AE$:#5,AE$:5t D15,"M-R";(18);(00):#15,I$ N15,"M-R";(19);(00):#15,D$ X15 bIR$I$D$:"DISK ID NO--";IR$ l"DISK HEADER--";DN$ v"IS THIS THE CORRE 12,13,23,24,35T[ VL-EXAMINER.CF1$(10):AWFA%(35,20,2):AFD%(360,2):AFG%(360,2):AFI%(400,4):A A2%(35,20):A FB%(200,3):AFC%(360,2):AK3$(40):A0123456789ABCDEF JhJ%JJg,+OHJJVJ=JSJOJJ DESTINATION DISK IN DRIVE 1"B }" WHEN READY PRESS RETURN"_ RD$: RD$(13) 130p :********** :READ DISK HEADER 15,8,15:15,"I0":15,"I1":15 15,8,15 2,8,2,"#" ZZ230:1500 15,"U1:";2;0;18;0 15,A$:  1040215,A$,B$,C$,D$: (A$)0 "IN LINE "ZZ;A$;B$;C$;D$:8T@: FILE SCRATCH ROUTINEmJDZ$"SCRATCH": 1355T"REMOVE WRITE PROTECTION NOTCH"^"INSERT DISK WITH FILES TO BE SCRATCHED IN DRIVE 0"h" "--1?"P C2: C21 C2100 1350"Z R11 C2Cd"ENTER NAME OF FILE NO "R1fn F$(R1): (F$(R1))16 1380nx:"READY TO BEGIN COPYING" JZ " FORMATTING DESTINATION DISK"JZ15,8,15:15,"N1:"(DN$,16)"," TER DRIVE NO OF DISK TO BE EXAMINED --8 OR 9"B$:AHAH.H .OHL"INSERT TEST DISK IN DRIVE "DR" WHEN READY PRESS RETURN"B$:A .OHlAL"ENTER BEGINNING TRACK NO, OR 0 FOR ALL TRACKS"B$:A+ $: (A$)0 101015,"U2:"8;1;T;S-ZZ1000: 150039E 8:15m"DO ANOTHER DISK--Y 0R N?": AN$ AN$"Y" 15:"": 115$:OPTION SR"PROGRAM OPTIONS--"" 1-DUPLICATE DISK WITHOUT ERRORS" R ","CIOUT ","UNTLK ","UNLSN ", "LISTEN","TALK ","READST","SETLFS","SETNAM", "OPEN ","CLOSE ","CHKIN ","CHKOUT","CLRCHN","CHRIN ", "CHROUT","LOAD ","SAVE ","SETTIM","RDTIM ", "STOP ","GETIN ","CLALL ","UDTIM ","SCREEN", "PLOT ","IOBASE","NO KER",1, 109CT(10(16(TFTB1)JZ20)60)10E<"COPY TIME APPROX "CT" MINUTES"V@:**********nC:DISK COPY ROUTINED JZ " FORMATTING DESTINATION DISK"FJZ15,8,15:15,"N1:"(DN$,16)","IR$:15:JZ0HSF20:""R 15,8,1 OHVA33-3#*OHV3+O3A"ENTER LAST TRACK NO, OR 0 FOR ALL TRACKS"B$:A+OHAOAO+O#OO3-O#*O"ILLEGAL TRACK NO":HO3*OJV+OVHVL"OUTPUT RESULTS TO PRINTER--Y OR N?"B$:A CT DISK?""  JT$: JT$"Y" "":115-  1200E  C14 C11 700z JZ0:"FORMAT DESTINATION DISK? Y OR N": F1$  F1$"Y" 700 JZ1 "DO YOU WANT TO ABORT PROCESS?--Y OR N"  JT$: JT$"Y" "": 115  C1 74 -JHJ-JJ`JL,3"EXAMINE ANOTHER TRACK OR DISK--Y OR N?":::JB$:AY+OH4AN.OH^" PROGRAM TO EXAMINE DISK BLOCKS FOR ERRORS, NEXT BLOCKS,"" PROGRAM STRINGS, AND KERNAL ROUTINES":L"EN  (A$)0 DN$"COPY":320+ 15,"B-P:2,144"6 DN$""M  I1 23:#2,D1$h "D1$(160) D1$(32)x ,DN$DN$D1$~ 6 @2:15 :************** :READ ID FROM BLOCK HEADER 15,8,15:15,"I0":15,"I1":15  15,8,15: 5,8,5,"# TPUT FILE": G31 G2CD "FIELD" G3;: G4$:G5(G3)(G4$): G5(G3)0G5(G3)G21860INX"ENTER EACH FIELD LENGTH AT OUTPUT--70 CHAR MAX TOTAL"bTT0: G31 G2l "FIELD" G3;: G4$:G6(G3)(G4$): G6(G3)0G6(G3)601900vTTTT  L0 J2T#2,A$YW1(A$(0))-\ W1127 W1W1128I^ W132 W195 W163]` W134 W163mhB$B$(W1)smyr:SR TO STORE SELECTED FILESP4P41N5$(P4)N2$:NT(P4)(T$):NS(P4)(S$):READ SELECTED  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, 2:P28:P32: 1490s FT$"" FT$(0)%xJ2150 1600;N2$B$^ J1 9:#2,A$::#2,LO$,HI$LE(LO$(0))256(HI$(0)): LE0 1480 (FT$)129 1480""N2$,LE;" BLOCKS"" CONVERT THIS FILE?": G1$: G1$"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$:HIGGYSPLIT,PC": 1500:15#: DISK DIR READP"ENTER Y FOR FILES TO BE TRANSLATED"| 15,C(2),15,"I"(C(1)):ZZ1220: 15002,C(2),2,"$":ZZ1230:1500:C20::CT NO PROGS SEL15,"B-P";2;144J218:1600:P40: CT OF FILES SEL (NX$,LZ1,1)" " N5$(G3)(NX$,(NY1)):LZ18 - :WRITE FILE OPEN SR> G4 3400c 14,C(4),15:ZZ3320:ZF1: 1500H (N5$(G3))15 N5$(G3)(N5$(G3),15)R N5$(G3)N5$(G3)".T"((R),1)\ 3,C(4),3,"@"D1$":"N5$(G3)",S,W":) G4: SINGLE DRIVE3 G70:ZF0: G 540,550,560,570[ "ERROR IN DRIVE DESIGNATION": 210~ &I1:J2:480:I2:J4:480:580 0I1:J1:480:I2:J3:480:580 :"INSERT SOURCE DISK IN DRIVE" D" WHEN READY PRESS RETURN" N K$:G2:E2$(G9)"":* G91 G24E2$(G5(G9))E1$(G9)>3R G72 2150>\ 2190NfLN$(5G8)\pL1(LN$)z L15 LN$" 0"(LN$,(L11)): 2160F0$(LN$,4)" "(34) G91 G2F0$F0$E2$(G9)" "3, F0$AME:::* ,"[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$G5(G3)2 TT(80G2) "TOTAL FIELD LIMIT IS 70--RE-ENTER": 1880\"ENTER 1 FOR WORD PROCESSOR OUTPUT"" 2 FOR SOURCE GENERATOR OUTPUT" G7: G71 G72 1940:DISK READ SECTION G31 P4:G80:R115,C(2 SOURCE FILES 2:15.  P40 "NO FILES SELECTED":2: 3100X"ENTER NO OF FIELDS IN RECORD--3?" G1$:G2(G1$): G21 G210 1810&"ENTER ORDER IN WHICH FIELDS SHOULD APPEAR IN OUTPUT FILE"0"ENTER 0 TO OMIT FIELD FROM OU"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$:Y" 1700 P28 #2,A$,A$': P3 1355,1800J"ERROR IN EOF DETECTOR": 530]: ERROR CHECK ZF1 14, EN,EM$,ET,ES: 152015,EN,EM$,ET,ES EN0 "IN LINE "ZZ" ERROR "EN;EM$,ET,ES2:3:15:@B$""J :#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 NN2$B$:N2$(N2$,18):P31::FLAG END OF FILE(J223 1600> N3$B$^J22:"DISK ";N2$;", ";N3$i 1600v( L1292#2,A$,A$,A$<F#2,A$K P21 8P#2, FT$,T$,S$Z S$"" S$(0)d T$"" T$(0)n ST ZZ3420:1500f 300 2030 2:3:15:ZF0) 3100D3:RR1:G80: 3400:g "DO ANOTHER DISK?--Y OR N"& 15: C1$: C1$"Y" 530:  NX$N5$(G3) LZ1 18 (NX$,LZ,1)" " NYLZ: 3240 :  K$(13) 590 :DISK MAINT SECTD "NEW THE TARGET DISK?--Y OR N"^  L$: L$"Y" 1200 "CONFIRM--THE TARGET DISK WILL BE NEWED DESTROYING ALL DATA"  M$: M$"Y" 1000 ZZ1050:15,C(4),15:150015,"N"(C(3))" G71 G8501 2300 2030 2:3:15:ZF0) 3100D3:RR1:G80: 3400:g "DO ANOTHER DISK?--Y OR N"& 15: C1$: C1$"Y" 530:  NX$N5$(G3) LZ1 18 (NX$,LZ,1)" " NYLZ: 3240 : (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":410),15,"I"(C(1)):ZZ2010:1500:3200 "--"N5$(G3)"--"[2,C(2),2,(C(1))":"N5$(G3)",S,R":ZZ2020:1500:3300nG8G81:F0$""~ G91 G22, E1$(G9)  (E1$(G9))G6(G9) E1$(G9)(E1$(G9),G6(G9)): ST 2240  G91   2073 RLE RL Rd? hhLHRTL-64 R q _``%`H h` _ G R`@"k0,8,1,8,10T[VL-TRANSLATOR.CC(10):ANT(10):ANS(10):AG5(10):AG6(10):AA$(10):AH$(10):A  FOH]6B66F6B666FA+OHH씅!==DD-O 0=D=Hʖ= "/6B6/6 /F3,F0$:A+!+OJKHT2315:HFH73:((!JL"DO ANOTHER DISK?--Y OR N" D"G3;G4$:  - *OHF"ENTER EACH FIELD LENGTH AT OUTPUT--70 CHAR MAX TOTAL": B "FIELD"G3;G4$:  - <*OH FP*O+"TOTAL FIELD LIMIT IS 70--RE-ENTER":H"ENTER 1 FOR WORD PR DDEFIJGG7ZFKLMZZC2J2P4NBP3NLAP2FTSLHLEGENEETESW1G2J-O #2,A$,A$:FM"ERROR IN EOF DETECTOR":H9H+O14,EN,EM$,ET,ES:H15,EN,EM$,ET,ES:+OL"IN LINE "ZZ" ERROR "EN;EM$,ET,ES2315:^:҇МrB#2,A$:*O  -_*O?"+O?҇FLyyyOO ,O9/OHOHH2,(50);(50);:HVV]V]d2,(L%);(H%);:,,kr,ryy"+Okky:+Ok+OkkOHЀZB,r.OH,r,r,++OkZЀGrrr,]Y.OHd15,C(4),15:J15,"N"(C(3))":HIGGYSPLIT,PC":J15"ENTER Y FOR FILES TO BE TRANSLATED"15,C(2),15,"I"(C(1)):dJ2,C(2),2,"$":dJҀk15,"B-P";2;144:rJlyҀҀЎrJlҕr"DISK ";N2$;", ";N3$:Jl2"COMPILED BY INSRASPEED"Ad: SEQUENTIAL FILE TRANSLATOR~f: SUPERBASE OUTPUT TO PAPERCLIP AND TO SOURCE GENERATORi U$(1000)nA$(1)"SOURCE DISK, DRIVE NO"xA$(2)"SOURCE DISK, DEVICE NO"A$(3)"TARGET DISK, DRIVE NO" A$(4) BE CHANGED"E$:%%-%*OH"ENTER CORRECT DATA"" "A$(F)E$:+OH%%2*OHHHe"INSERT "H$(I)" DISK IN DRIVE "C(J):L:+O:+O:++O:AH:M'"ERROR IN DRIVE DESIGNATION": "PROGRAM DEFAULTS"@ B1 4: B;" ";A$(B);35);C(B):j " ARE CHANGES NEEDED?--Y OR N" D$: D$"Y" D0$(C(1)):D1$(C(3)): 500 "ENTER NO OF ITEM TO BE CHANGED": E$:F(E$)  F1 F5 250 "ENTER CORN5$(10):A E1$(10):AE2$(10):AW"COMPILED BY INSRASPEED"U$(1000):ASOURCE DISK, DRIVE NOSOURCE DISK, DEVICE NOTARGET DISK, DRIVE NOTARGET DISK, DEVICE NONO OF BLOCKS IN TARGET FILESBC(B):FSOURCE TARGET 15C1$:KY+OH9^: RYBYRY +O Y`JFLRY +O R` YL:+OH14,C(4),15: dHJҔ *O     .T( 3,C(4),3,"@"D1$":"N5$(G3)",S,W": \dJL^BDOCESSOR OUTPUT"" 2 FOR SOURCE GENERATOR OUTPUT"G7:A.A.OH+ yB !(15,C(2),15,"I"(C(1)):dJJ"--"N5$(G3)"--"2,C(2),2,(C(1))":"N5$(G3)",S,R":dJJ묔!!/6B62,E1$(G9):66*O666G3GTTG8RFG9LL1CNLZNY@/ Ӎ0HJҔ *O     .T( 3,C(4),3,"@"D1$":"N5$(G3)",S,W": \dJL^BD yyL215:y+O"NO FILES SELECTED"2:H7"ENTER NO OF FIELDS IN RECORD--3?"G1$:۸- *OH"ENTER ORDER IN WHICH FIELDS SHOULD APPEAR IN OUTPUT FILE""ENTER 0 TO OMIT FIELD FROM OUTPUT FILE": B "FIEL/OH2,L$;2,(0);:3+OH|2,(0);(0);1215:^:^ISDEEPLSSGANINȀ̀QFPTASWN:/ Ӎ0A0-A9*OHH,МB#2,A$,A$,A$:F#2,A$:ЪB#2,FT$,T$,S$:+Oҿ+OҸO2:ЪЎH+OұrJlҀ3 B3#2,A$:F#2,LO$,HI$:ƀ̀ԐԀ+OH .OH ""N2$,LE;" BLOCKS"" CONVERT THIS FILE?"G1$:ۊY+O "TARGET DISK, DEVICE NO"@ A$(5)"NO OF BLOCKS IN TARGET FILES"X B1 5: C(B):h 0,8,1,8,10 H$(1)"SOURCE":H$(2)"TARGET" "PRGR TO TRANSLATE SUPERBASE SEQ FILES FOR EDITING BY PAPERCLIP" "AND FOR USE IN SOURCE GENERATOR"H,3J,3JH,3J,3JH"INSERT SOURCE DISK IN DRIVE"" WHEN READY PRESS RETURN"K$:O .OH"NEW THE TARGET DISK?--Y OR N"L$:VY.OH"CONFIRM--THE TARGET DISK WILL BE NEWED DESTROYING ALL DATA"M$:RECT DATA") " "A$(F): E$: E$"" 270H "C(F)(E$): C(F)50 270R , 210\  500 "INSERT "H$(I)" DISK IN DRIVE "C(J)  G1  C(1)C(3) G2::TWIN DRIVES  C(2)C(4) G3: DUAL DRIVES  C(1)C(3) C(2)C(4"PRGR TO TRANSLATE SUPERBASE SEQ FILES FOR EDITING BY PAPERCLIP""AND FOR USE IN SOURCE GENERATOR""PROGRAM DEFAULTS":BB;" ";A$(B);35);C(B):F" ARE CHANGES NEEDED?--Y OR N"D$: Y.OHe"ENTER NO OF ITEM TO 'd TOKENIZER, DAVID WILLIAMS, 1983in PROGRAM TOKENIZES LISTINGS OF BASIC PROGRAMS (VERY SLOWLY!)s THIS MAY BE USEFUL IN CONNECTION WITH DOWNLOADING PROGRAMSu FROM SOME SYSTEMS.x: W$(90) I0 90 W$(I): "1" 270  DN$. " 2,8,9,DN$":"PF$",P,W"P ,15,E,E$: E E$: 2: 250r 62,(1);(4);: START ADDRESSx @: J START OF A LINE TL$"" ^ SS 710 h#1,G$:SSST r G$(13) L$L$G$: 350 | L$  (L$,1)" " L$  L$(L$,I): CUT OFF LINE # :2  TOKENIZE TEXT; QF0D PT1W &AS((L$,PT))m 0 AS34 QF QF : AS58 QF3 QF0 D QF 650 N WN0 90 X (L$,PT,(W$(WN)))W$(WN) 640 bL$(L$,PT1)(128 WN)(L$,PT,LET,GOTO5 RUN,IF,RESTORE,GOSUB,RETURN,REM,STOP,ON,WAIT,LOADo SAVE,VERIFY,DEF,POKE,PRINT#,PRINT,CONT,LIST,CLR,CMD  SYS,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN NOT,STEP,+,-,*,/,^,AND,OR,>  =,<,SGN,INT,ABS,USR,FRE,POS,SQR,RND* 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, 2073 RLE RL Rd? hhLHRTL-64 R q _``%`H h` _ G R`@I[  END,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READ,LET,GOTO, RUN,IF,RESTORE,GOSUB,RETURN,REM,STOP,ON,WAIT,LOAD, SAVE,VERIFY,DEA(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$DER,COLLECT,BACKUP,COPY,APPEND,DSAVE,DLOAD,CATALOG,RENAME,SCRATCH, DIRECTORYT[VL-TOKENIZER.CWW$(90):AZBW$(I):F"NAME OF SEQ FILE";SF$"DRIVE # ? ";DN$:0-1*OH_DN$15,8,151,8,5,DN$":"SF$",S,R"15,E,E$:OE$15:H4:FL^SVUNNPDLPSAFAACWXYZVEKEEEEZZTSV3V2TSV1JRND MAILING FEE OF $15 FOR> $"EACH DISK YOU WANT FROM THE LIBRARY.k 8"THERE IS A SEPARATE CATALOG DISK FOR B"EACH OF THE COMMODORE COMPUTERS, SO L"SPECIFY WHICH COMPUTER AND DISK DRIVE YOU HAVE. V"SEND YOUR REQUEST FOR MEMBERSHIP TO THE AREAS OF2 "SCIENCE, EDUCATION, GAMES, MATH,W "MUSIC, GRAPHICS, UTILITIES AND| "MORE THAN 25 OTHER CATEGORIES. "THE PROGRAMS RUN ON VARIOUS COMMODORE "COMPUTERS. "PRESS RETURN TO CONTINUE A$:A$""6112 "  "NAME OF SEQ FILE";SF$. "DRIVE # ? ";R DN$: DN$"0" DN$"1" 200\ DN$j 15,8,15 1,8,5,DN$":"SF$",S,R" 15,E,E$: E E$: 15: 180 "NAME OF PROGRAM FILE";PF$  "DRIVE # ? ";  DN$: DN$"0" DN$(L$,2): 390  L$"" 330+  LINE NUMBER7 A(L$)O  A48 A57 690] N$"":I1n I$(L$,I,1)  I$" " I$"9" N$N$I$:II1: 450 2,(50);(50);: DUMMY LINE LINK N(N$):H%N256:L%N256H% 2,(L%);(H%);(W$(WN)))5 l WN15 WN3 QFWN: 'REM' OR 'DATA' IN LINE? vWN90H  WNe PTPT1:PT(L$) 550p 2,L$;v : 2,(0);  SS0 330 : 2,(0);(0); 1:2:15  :  END,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READɃ LOG,EXP,COS,SIN,TAN,ATN,PEEK,LEN,STR$,VAL\4 ASC,CHR$,LEFT$,RIGHT$,MID$,GO,CONCAT,DOPEN,DCLOSE,RECORD> HEADER,COLLECT,BACKUP,COPY,APPEND,DSAVE,DLOAD,CATALOG,RENAME,SCRATCHH DIRECTORY :  END,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READF,POKE,PRINT#,PRINT,CONT,LIST,CLR,CMD, SYS,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN, NOT,STEP,+,-,*,/,^,AND,OR,>, =,<,SGN,INT,ABS,USR,FRE,POS,SQR,RND, LOG,EXP,COS,SIN,TAN,ATN,PEEK,LEN,STR$,VAL, ASC,CHR$,LEFT$,RIGHT$,MID$,GO,CONCAT,DOPEN,DCLOSE,RECORD, HEA"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$:"NAME OF PROGRAM FILE";PF$"DRIVE # ? ";DN$:0-1*OHDN$2,8,9,DN$":"PF$",P,W"15,E,E$:O E$2:H2,(1);(4);:,3OH#1,G$:3: .O ,:,HwL$:, +O,,HM,+OH|,AA0-A9*OHH,BP/ Ӎ0--Y OR N? N";R$:Y+O 215:L͉ ͉-OH𬐸+OHH15,"B-P";2;BP:бJGHk"END OF DIRECTORY"215"DO ANOTHER DIRECTORY--Y OR N ? N";A$:OY+O HL^:y:-OLy%S+OJL B [" THE MEMBERSHIP SECRETARY"A `" FOLKLIFE TERMINAL CLUBl j" BOX 555-MD CO-OP CITY STATION t" BRONX, NEW YORK 10475"LISTING OF ALL THE AVAILABLE PROGRAMS, "AND COMPLETE INSTRUCTIONS. THERE IS "A COPYING A YOU ARE INVITED TO BECOMEA "AN ASSOCIATE MEMBER. DUES ARE $15k "PER YEAR. YOU RECEIVE A COPY OF THE "CATALOG DISK WHICH CONTAINS A "LISTING OF ALL THE AVAILABLE PROGRAMS, "AND COMPLETE INSTRUCTIONS. THERE IS "A COPYING A o53280,6:53281,6:""Dp" THE FOLKLIFE TERMINAL CLUBoz"IS AN INTERNATIONAL COMMODORE USERS"GROUP WITH MEMBERS IN MORE THAN 15"COUNTRIES. THE CLUB MAINTAINS A"LIBRARY OF MORE THAN 5000 PUBLIC "DOMAIN PROGRAMS IN  2073 RLE RL Rd? hhLHRTL-64 R q _``%`H h` _ G R`@ T[VL-EXCH LISTER.CW (142)" SEQUENTIAL FILE LISTER":D " DISK UNIT NR (8-15) ? 8 ";U:- 27";SA:A-A*OH%,-,*O "":HY" ENTER PRINTER LINE LENGTH ? 80";L:333-3*OH" ENTER PAGE LENGTH ? 66";P::(-:d*OB:: : T+O$" FILE-NAME TO LIST (OR END)":H" ? END";F$:HEND+OH  2073 RLE RL Rd? hhLHRTL-64 R q _``%`H h` _ G R`@0,8,1,8,10T[ VL-SPLITTER.CC(10):ANT(10):ANS(10):AA$(10):AH$(10):A N5$(10):A W"COMPILED BYITING BY PAPERCLIP""PROGRAM DEFAULTS":BB;" ";A$(B);35);C(B):F" ARE CHANGES NEEDED?--Y OR N"D$: Y.OH"ENTER NO OF ITEM TO BE CHANGED"E$:%%-%*OHs"ENTER CORRECT DATA"" "A$(F)E$:N READY PRESS RETURN"K$:A .OH"NEW THE TARGET DISK?--Y OR N"L$:HY.OH"CONFIRM--THE TARGET DISK WILL BE NEWED DESTROYING ALL DATA"M$:OY.OHV15,C(4),15:J415,"N"(C(3))":HIGGYSPLIT,PC":J415"ENTER Y FOR F+OңdJyr3 B3#2,A$:F#2,LO$,HI$:Ɛƀ+OHl.OHl""N2$,LE;" BLOCKS"" SPLIT THIS FILE?"G1$:͊Y+OJ𞐜-O #2,A$,A$:FMN"ERROR IN EOF DETECTOR":H15,EN,EM$,ET,ES:Ԁ+OL"IN LINE "Z!J 15,C(2),15,"I"(C(1)):CVJ42,C(2),2,"#":HVJ4(B((F/(!!6B6+ *O6H"TRACK "T" - SECTOR "S" - NO "Z915,"U1:2,"D0$;T;S:RVJ4=B=#2,X$:.O =HD+OD=+O15:+OH L"DO ANOTHER DISK?--Y OR N"15C1$:`Y+OH^:^BDDDEFIJGKLMZZC2J2P4NBP3NLAP2FT(14)2,U,A,F$4,D,SA: ]JG4," LISTING OF: ";F$:dkryЀ#2,A$:ЇO]+kr3-O kЀH?O]+OЀHYdOdrrr*OHcO .+OHk-OH?kr3*O4:kyyJ24,W$;:krkrd+OЀ4:yyJ2+OH$;E2$;S$;E3$;S$;E4$2415:^15,8,15,"I"N1$2,U,2,"#":бJGип15,"U1:2,"N1$;T;S:͍бJG#2,T1$,S1$:Ԋ+OԒۊ+OےԸи۸п́#2,A$:O+OHNHˊHB#2,A$:-OH+OHO+OHHOHF*O "":H2" DISK DRIVE NR (0/1) ? 0";N:-*O "":H" TO SCREEN OR PRINTER (S/P) ? S";P$:%S+O,'3:HR%P.O "":H" PRINTER DEVICE NR (2/4-6) ? 4";D:,+OHR" PRINTER SECONDARY ADDRESS ?  HH D+OH" PUT TARGET DISK IN UNIT";U;"DRIVE";N:O" PRESS ANY KEY TO CONTINUE"A$:O+OHJH+OH:HHV%P+O)" READY PRINTER AND ALIGN PAPER":HFH" PRESS ANY KEY TO CONTINUE"A$:O+OH(15,U,15,"I"N1$ INSRASPEED"U$(1000):ASOURCE DISK, DRIVE NOSOURCE DISK, DEVICE NOTARGET DISK, DRIVE NOTARGET DISK, DEVICE NONO OF BLOCKS IN TARGET FILESBC(B):FSOURCE TARGET "PROGRAM TO SPLIT HIGGYTERM BUFFER FILES FOR ED+OH6%%2*OH6HH"INSERT "H$(I)" DISK IN DRIVE "C(J):L:+O:+O:++O::M`K6"ERROR IN DRIVE DESIGNATION":H,3J,3JH,3J,3JH"INSERT SOURCE DISK IN DRIVE"" WHEILES TO BE SPLIT"15,C(2),15,"I"(C(1)):VJ42,C(2),2,"$":VJ4]15,"B-P";2;144:dJkyrrrЀdJy҇d"DISK ";N2$;", ";N3$:JЎB#2,A$,A$,A$:F#2,A$:МB#2,FT$,T$,S$:+Oұ+OҪO2:МЀH[Z" ERROR "EN;EM$215:^:yЎdB#2,A$:*O  -_*O?"+O?yyFLkkkr kkL215:k+O"NO FILES SELECTED"2:H"SPLITTING FILES":kB10);N5$(X):  DH=+O D HDK((K///P+O((/FF215: *O  !RR+O0RR.R V15,C(4),15:J42,C(4),2,D1$":"N$",S,W": VJ4Y(BY2,U$(B1);: VJ4F22SLHLEGENEETESW1XZ9TSNA2RVWZPXZ1NB1C;/ Ӎ0Y(BY2,U$(B1);: VJ4F22 @.O4," READ ERROR":%S+OJ4,C$;" END OF FILE: ";F$4215(142);" LIST ANOTHER FILE (Y/N) ? Y";A$:OY+OHH4,C$" Ӡ٠٠Ϡ"K$:+OHWL15,E1$,E2$,E3$,E4$:+OL"DISK ERROR ";ZZ;S$;E1$;S"";F$"READ THIS FILE--Y OR N? N";R$:Y+O 215:L͉ ͉-OH𬐸+OHH15,"B-P";2;BP:бJGHk"END OF DIRECTORY"215"DO ANOTHER DIRECTORY--Y OR N ? N";A$:OY+O HL^:y:-OLy%S+OJL BA ,P lMSD PROGRAMS 1MD2A6511Q SYS49152 6511.INFODIS6511Q CDIS6511Q.DISK COPY C DISK COPY DISPLAY BASIC C DISPLAY BASIC DOS TO DISK.CDOS TO DISKDUAL FILE COPY C DUAL FILE COPY EXAMINER.C% EXAMINER1EXCH LISTER.C EXCHANGE LISTER  FAST.INFO FASTFOLKLIFE INFO.LISTERLIST ME MD COPY C MD COPY MSD DOS 2.3A MSDQ NEWS 2'NEWSLETTER 1% REFORMAT.INFO REFORMATRTL-64!SPLITTER.C SPLITTERTOKENIZER.CTOKENIZERTRANSLATOR.CTRANSLATORWRITE PROTECT.CWRITE PROTECTLL-LLLE ,t7&yH{ݽX{}ߴzdld4 ˼ 9ai 9 { n`rȹs`9:9؍؍L%`fIfEnoaL 衐9L}pVii8a$anfIiVap0ʨpV $oWai vvvvvj`Lp q&'()p >e >d >c >b CLLҡJ )em)(el('ek'&ej&f&f'f(f)fpJ`iea0,iaLJof`hhLFL͡v 8aa qajbkc ldme* )24(m&l&k&j0⨥memldlkckjb ұ$Ef0a!$ bȱ$cȱ$d ȩp$efILУ ` ab8$f h 4L4i [LXa 衄h`f)Fbbb h`aɠ 9pffI*aeL!bcde` ` debc أnEfo۳ɚ* ۳zjhk,hLh|䦍,hL i0vvvvvj`i08$n i `n)Fjjj `jklm`;Dhz 3|}ߴ~ '9:zE /=>L/;!  "0 ``i ۳ `< a 8`&a'b(c`<c dbȱdc`ꥑ ٦ 妥9z:{ {8Ln`{:z99 z;L9<9=iz:>i{<8 Ʌu Lɔ b W  {<8 n 妩 s<z89{:}L$  l2{{4-4q?ލ/`738412-.JI0/ȩIIiߥ12`IJ`&  `38&'4(2i(1' Ȅ bLLq  痢(4'3"Lq&'(`a b'12L 3~ '9:z pLXhhhhhhzi9{i:zLXhhhhhh=9>:z ۳LX" ٦ 妥99::"Lq`xþO88tff@|goLF׀\X2̸>-A@s#kUJ*>gب_ڃLKRpc# $L   $a L a L Ldbec ˼L   $ {a nL L<%d!becn 9Lbdcef $L< -  e%med%ldL -  emedldL afIfL L  2eIIcȱIdȱIe;L Mϥ; h   2 de ٱ ٱ ; 黠 ;9ed9i9:L; 黠; 9dȱ9e9i9:L; 黩 <Ȅ;9a9ib:icaie99:L MIdȄ;Ie L; hL  c 4b3<a m  ߧ  ;aIȥbIȥcILhiIhiJh hlhmlIhihjhkhlhmhnEfolI9e-I.iJ9i9:`9e-I9e.J9i9:`9e/i0ij9i9:i_ȱi`_ ie_X`iY `9e/i9e0j9iL iIȭiI WL -L i i eHdHHH. fHeHdHcHbHaH ,fHeHdHcHbHaH H9i9H:i:HJHIHH;L - Lz hhdhe  L B  2 i i  fHeHdHcHbHaH }L5eHdHmHlHLG 9TLLhɍHJ  Lqhhi9hi:LhIhJhILi  2 =;9ie9m:ilee l:m9Leee99:i8mlHHHL; 0dee99: "L 痢a9q99: "L  2LǵdLheq B  L)-./012L+ LE/0L9i:i 8GHG|ȱG{G8|/IȱG0JȱG8{-ȱG.+} L9÷ɷ·zL zI ȱILqȱIHI~hq+HȊq+he+9e,:Ie-HIe.JhIIHJHIH QLX99i9:ȻCBL b[rfs nLqdk๿ !deL deLdeL af*ߐ L L deIieIie Eeih B 9deLLhh8 eijj 8 iie hߴ b iL۳ɚ L*ߴP9Q:L 8+,{z {Ln9iz} ٦" LX()``" LXOL䷭DLL_d\`ȱ_eRP`hiIhiJqrh"hihjhkhlhmhn "hlhm_'ȱ_&l' m&Lqmrq("&'f'f& eqerq&rem"elq& ЂlI 9e-I9e.J:H9HdLFfL  9 dMfeedLaed 里 L & sbca m ߧL  痢a deȄ LbzHc{HabHH b yH {h( nhhhkhjjL aLbed 里 L EeH mh' < L E _ Ee8e Lw;`hiIhiJ "0 eHdHHlIeHdHcHbHaH "ݐ4i)@, Ǡi UȱiV ǮL =qL 6NU;NV [ ¥[UL ԩ 3 ҅U ҅VU L LǠi LեtL ɭmLT - F͹L ɐL^ȭLLL`LNLNLi@CBL (Ʌu)ɅvLPFPPPQ^QQQ0RvRRS wuB`OvuNUNVXL F `LLLLͪN`LL  ɩ*'1NNO膳L; - <¥)U0NN*膳L!ʩ0L)LmLBgLhL:bLcL2 _̩ d XLLL k٢ FL 4L x̭lL)T 2֦ ˩X  ˩Ld Y ˩   YЦ䳐ɩXLVڦlL)TkUbLV ԦgL 3զqL) ؠ ȘL3թX ԅZW~L)  ` +⥺HN N`  $&%'NN/LL30L̢LHI`Hi=hL3ͬN0 DE` `L)  DLȱDLlLLTXH OhXO  LͩpL Zή;N [K9LKLL ҦW;NTLLXL @LWL hV LhVUUL e e L ѡz` ϩ 3 ϙL~L`  UL M ϹLLLL Sը 3՘ ЊH h WL M L ϩHi@I LlH ϥ ܥWLX ѭL 3ՠi iUiȥViLbLLgLL L1٭6NbLL ,qL`LqL)żdLLi)OiXHX  0NqL*N  0N 5 < # ѦWLTL vL`X L LE VڥX+NLLX VX+NLLXL`)W  Ѱ L +⦻LLIJ8K ߦWI:LJBL@  LҦW:LBL SAXL @LRL ILҦWZLLULV  զWJL 3 L ҦWL~L`W z z:LBLL` B  ܦWH TvLh~L`XL)? @LRL ILҦWZL S ULVLWZL ֩ {ߩ ܩ ܩ ܥ ܥU ܥV ܩ { ݥV` ݩiȦWJLʊi` _ {ji` _݅ LULV`N NWZL0N  _ݪTL r _ݪLqթ 3 хU хV` c ޥe9L 9L9L`e i` ߅gW:LeBLfe e8efRLHFH ( ߥH8Le``ab`,xHdH_dh_ NiUȱiV ֦LզWZLLVթx KJ ߥLeIIJ` cŻi,`,` ii,`,` ݩ FW:LBLWJL0 SզWJL WJL 3աzZ  sH) a"h ѵzL Z` WJL`hWJLL 2 jP  ϩ 3 $ L W L~LPLWJL\\\RL] SզW\ WLL ϩ\  SզWL` ݤ\i ]]`8` c߅i 0'iJŻ WZL ߠii ȱiL{ߩg NX ѐLͩ  d vL)TN:LNBLW~LN8 RLQ+Nm9L 滩\i {ߥR 8\K[LIJ ߥJI]L ͭLIƩ aiWJL ݥ]   OLI  O  ݥUHVH ݥVHUH ߪ  {[h h hVhU[ŻЧ ź H mߩih8i  B ECT O) ID01234YNTAX`c EXISTd TYPEeO BLOCfgLLEGAL TRACK OR SECTOa9bS SCRATCHEpO CHANNEqIRr FULs.S.D. DOS V2.tRIVE READ RRO RITILPEISMATCOOUNIS ECORH (ֆUVh)t ʊH)N)Nh 8 ֦LթX ۩L3թXL> ݩH5LH5L h5L 3եU ХV թ 3 ЩLЅH _ {jHzi`X ҩXL _ {jzi`J _ݪi@KJ`L)NH (օN+L&hH)ɐKhHJLL͹/ N- թfL榶 (ֆUV`UL Viȥi hWhXLbLLgLLqLTlL`XL )NNL.**SOULTlLqLLV  ۩TWvLL$LL kUV ۥT L6#LzͩLTL  0L0N 膳 2 âL䲰 K䲰9 KٮLXL@ hX حLS kLiLȱiLȱi ŹP 6NU;NV ۤWbLLgLL`lL)T > 2֥X ݥUSTLVLL0NN0٘L0ٜ` ˩  2ަV ^ҩ 3զW~LWXL` )NO*NqL LlL; N 0)lL S ϦW:LBL:L8H 3 h LϦWLXHLVLLvL)TkU _H Ԡi@\L[[) C D[)[ȱ[UJ[ UhVg H[ȑ[hJ[ȱ[Vh[ L۱[) [L:L[ȽBL[hT hXLѩ ܥH TvL TѦWUVLhU ܥV  թ 3զW8RLJL O  LHWZLLЦWvLWI=vLvL`W=vL` _ݪL)ɐ`JLJ`J)?vL)ILlL)ILbLعLgL`W)`WL i LI)$I`W0`W `` jP  ` ݥUiȥViLb ݱiUȱiߢedg$H0 dFd( ! ( $H0 ߥdeeefggf¥e8H `abe``ab` &e&f&g`cuhc`HHJi@Ii@KhHJ`i@IHH` mߠi`iWZLi@j`H mH h{hz` 0PWZL  +,` {,`HvL)ThT 2ޥU ` b _ Zzz WJL WJL Lz `+N 'Z ॱ ` Q+N P +NLL-)`ZH hZ L  Z LP`@ j @L` j)L` 7 ѵz٥L"z ѡzL~Lz٥L`~L` ! ѥZL8L B P L ⩀ LL 9L 3զWRL88LLcm9Li8 _Li^j_ >" ݥU > ݥU `^Uȱ^VLh ݠ^Uȱ^V` ݠi sJLi sJL`WJL8}RL ,`i8` + =Х\[]8L B WRL pL⩀ ܩP _H SߦWZLh 5ߩ mߠiH 3hii i^8_U\iȥV]iiȩi 3 զWZLH jݦWZLhL 3ՠUiȥViLV _ݦW ߩ 3__^\iȥ]i  դ_LO !"#$'EADR TOO LARGP PRESENQVERFLOW IN%(& PROT Lh 8 6 EթY)X1xPQXL)WL i l  Lq骩iLتJJJJ %) 0` UVdN ,ȭdNL x,ȥU ,ȥV 爘idL攩L`[H\Ht[\[!H  \ [hLhL dNLZL LL ɩLLLL-L.L QͩʢLLLL q򩁍1L2L 5L6Ls 2 L( T ( xX7*N *N3L X/lL?lLXIJ L ЭL _ zz _ zWLޥLL@N ` `ZWL~LZ`H oh`  Щ@ F <VkU g LȱiHȱiHi UȱiV ghVhU g Ġi0 LV  ԩ 3 хU хVUL  Lp 2­lL0 3L)T UULhU LզTLLLL` 톶k LL` =8"FKF HFiFUk0LL` =6F]KF HF8FUk LLLL Lr 8` c혅HVJJJ8eHV)F=K` F`TLtLULfL U F`TL զTLLTLhHVͰL CV`HHHlFJHFHзhH`ݺʰ`7x_PQR  ?S_ 8?Pg_Q]x QʆP)w PʆQ)``8Y)X).X x7RP LqQ #  LL^x Ѱ x7W~L0` () Y)L 8X uLLqR?`?LL^x7 37/~')Ikk)`@+ `1Qkw ?PLL\PQ XYL0QkxQP筯LkYH)Xh) X x7l LP ' ~LqQ Lqxl % Ѱ~Lj2YNʎNN$LNL0 LlN) LpNNL)xN LNLN 3Ni@COvuBNN NLN  !eL^ZNRN <͠N8NNN Y(L 8`*LN`ήNЮ8`NN0$L(LN`ߩ` =8o`L L^  *N ( L F`GguBw`QB`@BNCNOCAN N@ȥ@ȥ@Ȅ @ȥ@@ȥ@ȄᥬBȥB`NN %N- GN ((N΍NN NNWGN NJǨJר 'N` %NNLG (??ΎN𦰩L`WNLN NN T g L`NN` NΊN7L T( Y@ȩY?Y?Y?Y??NNͪNHB@C /h  $BC *N .NB N@UOBUNNi NζNЈwȍNB@CNN ( B h\h[` Ȋ x``[\[ [)` [\`,,i'i̥AHPLxآ@UЬФʚ@AU@@Ʃ@@о@AAX %)I HxI`w@zzLNHHL)?W _ݪL H L TH  hT-N"0-N -NLILL,NI UL)I`T-LLөX ҩ 3զWL _ݪTL Щ Щ ЭL Щ _ zz Щ Ő,L ЭL _ zWL~LZ` T1NON$LN&L WL ЦTL͹LզTL F 튨 nz0N ŠTL$LiȽ&Liȩ2iȭiFkU V  WF V L FȘFȩHIJJJ FȪ8&H&I&JHF L. _ݪL)TTL.UHU F L`Ti@GF` ݩHHH chHF9UkUULkʆUVHөr UʮkUVHмVm5LVU LNV 8VLVV LV J[H[k8[U  cFke[U[Lr cFh[V Lq cH U  ( ()W~L) () ()  () +)3WLjL  # L 0 Ʃ ()X LL L#GG``WW`` I0``y () # ) +)   # () _8fZ () y WZ`x7 Ѱ~Lj)*X `Lx'7L'IZ)x7X uL~?Lqx  ѰW~L0`?K/LI~L)1/ ?Lq!?X xl 7L L``0NÅU<&L)LNL(L$L)L&L, L^BHCHBNCN *L+L,L )L(LhChB`L LBu`N NͬN *ͣN,,L^ FL^`$L(L&L)LN*LN+LM(LM)LM*L,L "NNZ `ٙ BȥBȥBȥBȄE@CAB@B@OBN` L *N ( LL^uEBE`` =LCANCNN,L+L*L g)L(L gAC` N0LNLNN 3NLLj NʎN7L g( YN'`H %))h/L/L-L 0L0L.L` %)`LγNLp LN NL)xNLTx 3 X Y LLL OvuNGgNN@ȭN@ȽN@Ƚ&L@Ƚ$L@ȩ@ Bi BLεNǩL OBζNСNL LLNX`δNLQHNUV7L( YhXL@E@@E@`DOB`B@NCAOC@ȱ@ȱ@ȱ@ gLDLgnqN)JJJJ m) NB)JJJmB) nNCNB)***nnB)>JoB) pȱB)JJJJppB) qȱB)**)qqB)|JJrB) sNCNB)****ssB)tȌNmGngoGpgqGrgsGtg`@P 0`p   O HHH hhh@ 3'. 3w# 37H 'h@GH 'hl` @ @VIDMBUP&CRSN Ɖ Y6nBBB B BB?HH hhh@ 3'. 3w# 37H 'h@GH 'hl` @ @VIDMBUP&CRSN Ɖ2"COMPILED BY INSRASPEED">d: HIGGYTERM FILE SPLITTERMi U$(1000)onA$(1)"SOURCE DISK, DRIVE NO"xA$(2)"SOURCE DISK, DEVICE NO"A$(3)"TARGET DISK, DRIVE NO"A$(4)"TARGET DISK, DEVICE NO" A$(5)"NO OF BLOCKS IN TARGET FILE-Y OR N"7 D$: D$"Y" D0$(C(1)):D1$(C(3)): 500l "ENTER NO OF ITEM TO BE CHANGED": E$:F(E$)  F1 F5 250 "ENTER CORRECT DATA" " "A$(F): E$: E$"" 270 "C(F)(E$): C(F)50 270 , 210  500! 480:I2:J4:480:5801 0I1:J1:480:I2:J3:480:580V :"INSERT SOURCE DISK IN DRIVE"| D" WHEN READY PRESS RETURN" N K$: K$(13) 590 :DISK MAINT SECT "NEW THE TARGET DISK?--Y OR N"  L$: L$"Y" 12006 "(1)):ZZ1220: 1500>2,C(2),2,"$":ZZ1230:1500:C20::CT NO PROGS SELR15,"B-P";2;144yJ218:1600:P40: CT OF FILES SELN2$B$:N2$(N2$,18):P31::FLAG END OF FILEJ22 1600 N3$B$J22:"DISK ";N2$;", ";N3$ 16(LO$(0))256(HI$(0)): LE0 14803 (FT$)129 1480L""N2$,LE;" BLOCKS"" SPLIT THIS FILE?": G1$: G1$"Y" 1700 P28 #2,A$,A$: P3 1355,1800"ERROR IN EOF DETECTOR": 530: ERROR CHECK15 ED FILESP4P41*N5$(P4)N2$:NT(P4)(T$):NS(P4)(S$)0Q:READ SELECTED SOURCE FILES\ 2:15  P40 "NO FILES SELECTED":2: 3100"SPLITTING FILES" X1 P4&Z90: 10);N5$(X)0TNT(X):SNS(X):N$N5$(X) :A2jfnjfn)mBȥ)JJJJ nn)****o*)nBȥ)JJJJjoBj)p) )|pp)JJJJjfqjfqjfq)pBAC)qBȌN`   N`B@NNCAOCN@ȱ@ȱ@Ȅ g@@ȱ@ȱ@᭣NLg N`N@NONNCA N@ȥ@ȥ@Ȅ @@ȥ@ȥ@ᥫNAC`Jh8QRWAMDSPULDSPUREERSELQGRL?A)N-+ L`l1L0:: FLAGS END OF SOURCE DISK FILE*DR0::CT OF TARGET FILES5l 2100E4:DISK READqC 15,C(2),15,"I"(C(1)):ZZ2115: 1500H2,C(2),2,"#":ZZ2120: 1500J V1 1000:U$(V)""::W0::COUNTER FOR MEM VAR LENGTHLV1MRR1: Z1 S" B1 5: C(B):( 0,8,1,8,10J H$(1)"SOURCE":H$(2)"TARGET" "PROGRAM TO SPLIT HIGGYTERM BUFFER FILES FOR EDITING BY PAPERCLIP" "PROGRAM DEFAULTS" B1 5: B;" ";A$(B);35);C(B): " ARE CHANGES NEEDED?-"INSERT "H$(I)" DISK IN DRIVE "C(J)' / G1S  C(1)C(3) G2::TWIN DRIVESw  C(2)C(4) G3: DUAL DRIVES  C(1)C(3) C(2)C(4) G4: SINGLE DRIVE  G 540,550,560,570 "ERROR IN DRIVE DESIGNATION": 210 &I1:J2:CONFIRM--THE TARGET DISK WILL BE NEWED DESTROYING ALL DATA"P  M$: M$"Y" 1000n ZZ1050:15,C(4),15:1500 15,"N"(C(3))":HIGGYSPLIT,PC": 1500:15 : DISK DIR READ "ENTER Y FOR FILES TO BE SPLIT" 15,C(2),15,"I"(C00( L1292#2,A$,A$,A$<#F#2,A$2K P21 8EP#2, FT$,T$,S$ZZ S$"" S$(0)od T$"" T$(0)n ST 2:P28:P32: 1490s FT$"" FT$(0)xJ215 1600N2$B$ J1 9:#2,A$::#2,LO$,HI$LE ,EN,EM$,ET,ES  EN0 +"IN LINE "ZZ" ERROR "EN;EM$82:15:B@B$""QJ L0 J2\T#2,A$nYW1(A$(0))\ W1127 W1W1128^ W132 W195 W163` W134 W163hB$B$(W1)mr:SR TO STORE SELECT "Z KW$ (80):K20:K4127:1560Fd******************************jn* DISPLAY ANY TRACK $ SECTOR *x* ON THE DISK TO THE SCREEN ** OR THE PRINTER WITH BASIC *******************************"" " / SS$" ": I192 223:SS$SS$""(I)"": IB A$(15),NB(2)M D$"0"X 1500 " SCREENOR PRINTER" JJ$: JJ$"" 254 JJ$"S"" SCREEN"  JJ$"P"" PRINTER" 15,8,15,"I"D$: 15,"I"D$:2:4:15:"END":> T JJ$"S" "TRACK"T" SECTOR"S""j U JJ$"P" 4:4,"TRACK"T" SECTOR"S:4 ^15,"U1:2,"D$;T;S:650 h****************************** r* READ BYTE 0 OF DISK BUFFER * ******************************  63: J32 710: Z$"N" J80: 458) IK 3N#2,A$(I): A$(I)"" A$(I)NL$o K1 I2 NB(2)(A$(I)){ I:K0A$"":B$":":NJ4: 790:A$A$":": A$"00 :" C50 B10 I0 3:N(A$(I)): 790 (I0 I1) J C(5):Z9Z91: T0 S20 A21:ZC(5): 2220@P"TRACK "T" - SECTOR "S" - NO "Z9fR15,"U1:2,"D0$;T;S:ZZ2130: 1500}\ P0 255:#2,X$f ST0 P255: 2210p X$"" X$(0)z P0 T(X$): 2210 P1 S(X$): 2210N$",S,W":ZZ3030: 1500  B11 V 2,U$(B1);- ZZ3050: 15003 : 2E 2:15Y A20 2115_  "DO ANOTHER DISK?--Y OR N"& 15: C1$: C1$"Y" 530: )z P0 T(X$): 2210 P1 S(X$): 2210#2,A$(I): A$(I)"" A$(I)NL$6 K1 I2 NB(2)(A$(I))B I:K0A$"":B$":":NJ16: 790:A$A$":": A$"00 :" C50 B10 I0 15:N(A$(I)): 790 (I0 I1) J0 1100: 484C$A$(I): 850:B$B$C$  TO QUIT" N Z$: Z$"" 590/X Z$"Y" TNB(1):SNB(2):330Sb Z$"N" B10:B20:C50: 320fg Z$"Q" 700pl 590v******************************* SUBROUTINES ******************************** ERROR  CONTINUE(Y/N)"" ENTER Q TO QUIT"+Z$: Z$"" 750K Z$"N" B10:B20:C50:^ Z$"Q" 700r Z$"Y" 750 "TRACK" T " SECTOR"S "":****************************** * DISK BYTE TO HEX PRINT ********************************,J0 I2 N1 B618. J0 I3 N8 B71J0 B11 C51u4A1(N16):A9$(HX$,A11,1):A$A$A9$>A2(N16A1):A8$(HX$,A21,1):A$A$A8$:(A8$A9$)"00"B11HA$A$SP$:R**********************DISPLAY BLOCK CONTENTS"4 "":X ******************************| * SET PROGRAM CONSTANT * ****************************** SP$" ":NL$(0):HX$"0123456789ABCDEF" FS$"":I64 95:FS$FS$""(I)"": I 650" 4,4: JJ$"P" K21 17008  2,8,2,"#": 650\ ****************************** "* LOAD TRACK AND SECTOR * ,* INTO DISK BUFFER * 6****************************** @"TRACK, SECTOR";T,S J T0 T35 #2,A$(0):A$(0)""A$(0)NL$%  JJ$"S"4307  JJ$"P"460[ ****************************** * READ & CRT DISPLAY * * REST OF THE DISK BUFFER * ****************************** K1:NB(1)(A$(0)):B60:B70 J0 0 1100: 454C$A$(I): 850:B$B$C$8 I: JJ$"S" A$B$E J:571i******************************* READ & PRINTER DISPLAY *******************************K1:NB(1)(A$(0)):B60:B70 J0 15 IK 15Z1(X$) U$(V)U$(V)(Z1):WW1: W80 VV1:W0&,72:15P :DISK WRITE SECTIONm (N$)12 N$(N$,12) N1$(R): (N1$)2 N1$"0"(N1$,1) N$N$"."(N1$,2) ZZ3025:15,C(4),15:1500 2,C(4),2,D1$":"********\* DISK BYTE TO ASC DISPLAY *4f* CHARACTER *Xp******************************zu K21 B11 C$"":1000:x K21 B61 B71 C$"": 1000:z (C$)32 C$" ": (C$)128 (C$)203 I JJ$"P" 4,A$:4," ";B$ J:571B;******************************f<* NEXT TRACK AND SECTOR *=******************************?"NEXT TRACK AND SECTOR"NB(1)NB(2) ""D"DO YOU WANT NEXT TRACK AND SECTOR"I"ENTER QROUTINE *$******************************D15,EN,EM$,ET,ES: EN0 d"DISK ERROR"EN,EM$,ET,ESt2:4:15:******************************* SCREEN CONTINUE MESSAGE *******************************")ADDRESS OF NEXT BASIC STATEMENT":4:,"IF","RESTORE","GOSUB","RETURN","REM","STOP","ON","WAIT","LOAD"@ "SAVE","VERIFY","DEF","POKE","PRINT#","PRINT","CONT","LIST","CLR"J "CMD","SYS","OPEN","CLOSE","GET","NEW","TAB(","TO","FN","SPC(","THEN""  2073 RLE RL Rd? hhLHRTL-64 R q _``%`H h` _ G R`@' 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,253,230,253,32,228,255,133, ,240,3,32, 175,3,173,168,2,240,171,32,204,255,96,160,0, 185,172,2,240,8,217,189,2,208,7,200,208,243, 238,168,2,96,169,0,133,252, 96,160,0,185,189,2,240,6,32,210,255,200,208, 245,165,252,41,64,240,10,169,144,32,210,255,169,60,32,210,255,169, 13,32,210,255 :AHJp#2,A$:OV#2,A$:O]dBd15,"B-P";2;P32I#2,A$:Okk+OHyk@OHy15,"B-P";2;P32I2,(A64);:FJ[rOL"TRACK"T"SECTOR"S"IS LOCKED":V:]A:OHJJLy"HOLD [SHIFT] TO PAUSE"15,8,151,8ЪA$:O+@+OH,+3+O (20):LO++OHO +.O (20):LO ++OHO+O(20)A$CU$;:ңH(20)A$CU$;:OңH"";NS)"LOCK A FILE"U$:JU,+OL3+OJ:HePJnJi:AJp","=","<","SGN","INT".Y "ABS"v^ "USR","FRE","POS","SQR","RND","LOG","EXP","COS","SIN","TAN","ATN"h "PEEK","LEN","STR$","VAL","ASC","CHR$","LEFT$","RIGHT$","MID$","GO"r4,"\=MEMORY  "INSERT DISK IN DRIVE [F1] TO ABORT":ƍBFJ,+OLJi:AJp15,"B-P 2 2"2,(66);15,"B-P 2 166"2,(66);:J[rOH8JiJ"THE DISK IS NOW WRITE PROTECTED":JL"";NS)"SCRATCH A FILE"U$:JU,+OL3+OJ:H`"ARE YOU SURE";A$:OY.OH`Ji15,"S0:"F$15,E,EM$,ET,ES:r*OJ9H`J+O,"FILE IS LOCKED OR NOT ON DISK":JH`*OET;EM$:JH`F$"IS SCRATCHED":JH`""NS)" REMOVE WRITE PROTECT*"U$"INSERT DISK IN DRIVE [F1] TO ABORT":ƍBFJ252,165,253,133,255,32,228, 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,240,191, 165,140,240,3,32,199,3,173,167,2,169,144,32,210,255,96T[VL-WRITE PROTECT.CW"": )  %,3P! PP PJ*Hy15,"U1";2;0;T;S:HI15,"B-P 2 0"15,"U2";2;0;T;S:HI:AL""NS)"LOCK ALL FILES"U$:Ji,0,"$0"#1,A$#1,A$:Ѐ#1,A$#1,A$#1,A$:OЇ#1,A$:OЇҎЕBO SF,1,1#1,A$:.OHoOҎFBL;N$:Ѐ+OHBL;N$115:JJPL"[F1] EXIT [F7] DIRECTORY""FILENAME? "CU$;:PңkOHJ8:OH"FILE NOT FOUND":HHk@O&F$" IS ALREADY LOCKED":JJHsHJp15,"B-P";2;P2,(A64);:J[rOHeJF$"IS LOCKED":JPHe"";NS)"UNLOCK A FILE"U$:JU,+OL3+OJ:HkPJnJi:AJp ------------------------------------------------------------------ SSUE O. 1 NFORMATION XCHANGE  ,+OLJi:AJp15,"M-W";(136);(76);(1);(65);15,"B-P 2 2"2,(65);15,"B-P 2 166"2,(65);:J[rOHwJiJ"DISK HAS WRITE PROTECT REMOVED":JL""NS2)"<>"" 1) DIRECTORY"" 2) LOCK ALL FILES"" 3) LOCK A FILE"" Ҝ<ԍBZQ:ԐPFL""NS2)"<>"" WARNING : DO NOT USE THIS PROGRAM ON"" COPY PROTECTED COMMERICAL SOFTWARE!!"" NOTE1 : WHEN A FILE IS LOCKED IT"" CAN NOT BE SCRATCHED, UNTIL IT IS "" UNLOCKED. THE DIREC ECTORY"" WITH A SHORT NEW IE. OPEN 15,8,15,"" 'N0:DISKNAME', BUT WRITE PROTECT* WILL""NOT PREVENT A FULL NEW - REFORMAT IE. "" OPEN15,8,15,'N0:DISKNAME,ID#' ":JL^QUKBSFKLNSF1F7TSPEASE SEND IN $5.00 FOR THE NEXT FIVE ISSUES. HE NEWSLETTER WILL CONTAIN SUMMARIES OF INFORMATION RECEIVED FROM EVERYONE. HETHER YOU SUBSCRIBE TO THE NEWSLETTER OR NOT, YOUR LETTERS WILL CONTINUE TO BE ANSWERED. ('S ARE APPRECIATED.) ONTRIBUTUPERBASE FORMAT) ARE ON THE XCHANGE ISK. COPY OF THE XCHANGE ISK MAY BE OBTAINED BY SENDING IN A BLANK DISK WITH RETURN POSTAGE, OR YOU MAY RECEIVE A PRINTOUT OF ONE CATEGORY FROM THE DATA BASE BY SENDING IN AN . ATEGORIES ARE WORD PROCESSOEMORY MAP OF AS A SECOND PROJECT. OLUNTEERS TO HELP ARE NEEDED. HE MEMORY MAP IS ABOUT 50% COMPLETE AT THIS WRITING. HE XCHANGE ISK INCLUDES A DATABASE OF THE ROUTINES IN RANSACTOR NTHOLOGY/NSIDE OMMODORE TERMINOLOGY AT PRESEN522 CHIPS IN THE 1541. HE 6511 IMPLEMENTS FOUR EXTRA OPCODES IN ADDITION TO THE 6502 CODES. HE ARE (TWO BYTES; SETS ONE BIT OF THE SPECIFIED ZERO PAGE LOCATION TO "1"), (TWO BYTES; RESETS ONE BIT TO "0"), (THREE BYTES; TESTS ONE BIT OF T TESTED IS SPECIFIED BY THE OP CODE AS FOLLOWS-- CN1 IT TO BE TESTED NSTRUCTION 0 1 2 3 4 5 6 7 ------------------------------------------- 87 97 7 7 7 7 7 7 07 17 27 37 47 57 67 77 8 9 0 1 2 3 4 5 6 7 CN0 HESE EXTRA OP CODES DISASSEMBLE AS "???" ON MOST MONITORS. NE DISASSEMBLER THAT REPORTLY HANDLES THEM (AS WELL AS UNDOCUMENTED 6502 OP C UNE, 1986 ------------------------------------------------------------------ HE XCHANGE JU1 HE NFORMATION XCHANGE IS A NOT-FOR-PROFIT USER GROUP FOR DISK DRIVES. HE NEWSLETTER IS AN EXPERIMENT. O CONTINUE RECEIVING IT, PL 4) UNLOCK A FILE"" 5) WRITE PROTECT* DISK"" 6) REMOVE WRITE PROTECT*"" 7) SCRATCH A FILE"" 8) QUIT"" 9) INSTRUCTIONS AND WARNINGS"" ENTER YOUR CHOICE"A$:O+OHsO͐́-͉ *OHsN:)ek8w`6Hy215:^:PPTORY INDICATES A"" LOCKED FILE WITH A '<' SYMBOL."" NOTE2 : WRITE PROTECT* IS A SOFTWARE"" TYPE OF WRITE PROTECTION. AS WITH THE"" WRITE PROTECT TAB IT WILL PREVENT THE"" DISK BEING WRITTEN TO, FILES BEING"" SCRATCHED OR THE CLEARING OF DIRAT1S1IAEHBYBLNKCFKQEETESTDCQZZQu/ Ӎ0T THE"" DISK BEING WRITTEN TO, FILES BEING"" SCRATCHED OR THE CLEARING OF DIRIONS OF INFORMATION FOR THE NEWSLETTER ARE ALWAYS WELCOME. HAT'S THE PART OF THE DEAL. OFTWARE ATA ASE HE DATABASE OF SOFTWARE COMPATIBILITIES IS NOW READY. T THIS POINT IT CONTAINS 120 SOFTWARE TITLES. HE DATABASE DATA FILES (RS, SPREADSHEETS, DATA BASE, MUSIC, DISK COPY, UTILITIES, TERMINAL, GRAPHICS, ENTERTAINMENT, LANGUAGES, BUSINESS AND OTHER. DDITIONAL USER INFORMATION FOR THE DATA BASE IS BEING SOUGHT. EMORY AP N RESPONSE TO MANY REQUESTS, WE ARE WORKING ON A MT STATE OF COMPLETION. XTRA P ODES DRIVES USE DRIVE MECHANISMS MADE BY OKYO LECTRIC ORKS AND AN 6511 CHIP MADE BY OCKWELL EMICONDUCTORS AS . HE 6511 CONTAINS A 6502 IN ADDITION TO DATA PORTS AND TIMERS, FUNCTIONS HANDLED BY TWO 6HE ZERO PAGE ADDRESS SPECIFIED IN BYTE TWO AND IF "1" BRANCHES TO THE RELATIVE ADDRESS STORED AT THE ZERO PAGE ADDRESS SPECIFIED BY BYTE THREE; IF THE BIT IS "0", NO BRANCH OCCURS); AND (THREE BYTES; BRANCHES IF THE BIT IS "0"). HE BIT TO BE SET OR ODES) IS OURCE ENERATOR FROM OFTWARE. NE USER ASKED HOW TO TRANSFER DATA FROM THE SERIAL TO THE PARALLEL PORT. ETAILS ARE SKETCHY, BUT THE 6511 PARALLEL PORTS ARE LOCATED AT $00, $01, $02, AND $03. HE SERIAL DATA REGISTER IS LOCATED AT $17 RSIONS EVERAL HAVE ASKED ABOUT VERSIONS. RESENT INFORMATION IS THAT THE MOST RECENT IS 2.3. OME EARLIER DRIVES HAVE 2.0. OTH -1'S AND -2'S HAVE THE SAME . OU CAN DETERMINE WHICH YOU HAVE FROM THE SERIAL NUMBER. HE  #15, $:#15, $ 40 $<>"." "": 60 50 $=$+$+$:" "$ 60 15: JU1 HIS PROGRAM READS THE VERSION DIRECTLY FROM ITS STORAGE LOCATION AT $000-002. OR THOSE WHO NEED OSTAGE, AND WE WILL SUPPLY THE DISK. FP ISK PEED ARTRIDGES EVERAL MEMBERS HAVE ASKED ABOUT DISK SPEED-UP CARTRIDGES FOR THE DRIVES. ONE OF THOSE DESIGNED FOR THE 1541 ARE COMPATIBLE BASED ON REPORTS SO FAR. F YOU ARE USING YOUR IN SERIBILITY PROBLEMS COMPARED TO SERIAL CONNECTION. T ALSO INCLUDES THE FEATURES OF 1541 LASH. NOTHER POPULAR INTERFACE IS USCARD FROM ATTERIES NCLUDED. NE USER REPORTS USING -INK. NCOMPATIBLE OFTWARE OME HAVE ASKED ABOUT THE CONVEE. HIS IS A TIME CONSUMING PROCESS FOR ANYONE BUT THE MOST EXPERIENCED USER. T IS NOT USUALLY WORTH IT. OWEVER, IF YOU WANT TO LEARN HOW, THE OFTWARE ROTECTION ANUALS OFFERED BY OFTWARE ARE AMONG THE BEST. ALSO PUBLISHES A NEWSLETTER DUL FOR ME. BETTER CARTRIDGE IS REPORTEDLY OFFERED BY OFTWARE. AST ACKEM REPORTEDLY PROVIDES FILES ON DISK TO CONVERT POPULAR PROGRAMS TO RUN ON DISK DRIVES. HE FILES ARE SAID TO BE SPECIFIC FOR EACH PROGRAM, AND ARE UPDATED MONTHLY. ADVERTIZED FOR $220. ERVICE IPS EVERAL HAVE REPORTED DRIVES THAT DO STRANGE THINGS LIKE OVERHEAT OR STOP RUNNING UNEXPECTEDLY DURING DISK OPERATIONS. ROBLEMS LIKE THESE CAN BE DUE TO SUBTLE SOFTWARE INCOMPATIBILITIES OR SOFTWARE BUGS. ESWA OU ARE USING THE . LECTRONIC INTERACTIONS HAVE BEEN KNOWN TO CAUSE PROBLEMS--EVEN FOR LONG BOARD, SHORT BOARD 1541'S. HE MOST COMMON SERVICE PROBLEM IS SAID TO BE THE POWER SUPPLY CONNECTOR. HIS CONNECTOR ATTACHES FOUR WIRES FROM THE TRANSFORMER TO THE CIRCUIT BOARD. ORROSION AND HEAT (AS INDICATED BY BROWN DISCOLORATION OF THE CONNECTOR) CAN CAUSE THE CONNECTOR TO FAIL. HE BEST SOLUTION IS TO REPLACE THE CONNECTOR. OME HAVE REPORTED SOLDERING THE WIRES DIRECTLY TO THE BOARD. SECOND CO AND IS CONTROLLED BY BITS AT $15 AND $16. N THE 1541, THE PARALLEL PORTS ARE USED AS THE DISK CONTROLLER AND FOR DATA FOR THE READ/WRITE HEAD. T IS NOT YET CLEAR HOW THEY ARE USED ON THE . F ANYONE FIGURES IT OUT, PLEASE PASS THE WORD. ESERIAL NUMBER PLATE ON THE BACK OF THE DRIVE WILL HAVE A -23 SUFFIX IF YOU HAVE 2.3. NOTHER WAY IS WITH THE FOLLOWING SHORT PROGRAM-- JU0 10 15,8,15,"0" 20 #15,"-" $(00) $(192) $(3) 30 #15, $: A UPGRADE, 2.3 IS ON THE XCHANGE ISK. NTERNATIONAL ONSIDERATIONS O ASSIST ANADIAN MEMBERS, HE XCHANGE ACCEPTS ANADIAN CURRENCY. USTOMS ASPECTS OF THE XCHANGE ISK ARE UNKNOWN. F YOU ARE CONCERNED, SEND IN $3 TO COVER DISK AND PIAL MODE, YOU WILL GET A SIGNIFICANT INCREASE IN SPEED BY CHANGING TO PARALLEL CONNECTION. HE CONVERSION REQUIRES AN INTERFACE. UICKSILVER FROM KYLES LECTRIC ORKS (WHICH USE) IS REPORTEDLY THE FASTEST. T CAUSES ONLY RARE ADDITIONAL COMPATRSION OF INCOMPATIBLE SOFTWARE. SUALLY ITS THE PROTECTION SCHEME THAT CAUSES THE PROBLEM. OMETIMES THE DIFFICULTIES ARE MORE SUBTLE, AND EXTENSIVE SOFTWARE MODIFICATION MAY BE REQUIRED. N EITHER CASE THE FIRST STEP IS TO REMOVE THE PROTECTION SCHEMESCRIBING HOW TO REMOVE PROTECTION FROM POPULAR COMMERCIAL PROGRAMS. ARTRIDGE BASED PROGRAMS THAT CAPTURE AN UNPROTECTED COPY OF THE PROGRAM FROM MEMORY ARE ALSO BEING ADVERTIZED. HAVE TRIED SEIC FROM TAR OINT OFTWARE. T HAS NOT BEEN SUCCESSFľ (64) AND RANSACTOR HAVE PUBLISHED ITEMS INDICATING THAT IS STILL AROUND. HE ADDRESS AND PHONE NUMBER ARE THE SAME. DRIVES ARE STILL AVAILABLE FROM . OME HILDREN'S ALACE STORES STILL HAVE THEM. NE USER REPORTED SEEING -2'S RE'S ULTIPLAN FOR EXAMPLE RUNS FINE ON AN UNTIL YOU TRY TO SAVE A SPREADSHEET. HEN THE DRIVE CRASHES AND YOU LOSE YOUR SPREADSHEET. PG61 F YOU ARE USING YOUR ON THE SERIAL BUS WITH A 1541, YOU MAY HAVE BETTER LUCK TURNING OFF THE 1541 WHEN Y MMON SERVICE PROBLEM IS BURNED OUT CHIPS CAUSED BY LIGHTNING. HE SYMPTOM IS A BLANK SCREEN AT POWERUP WHEN THE DRIVE IS CONNECTED, BUT NOT WHEN IT IS DISCONNECTED. HE CAUSE IS BURNED OUT 74XX CHIPS IN THE DRIVE. HE ODDS ON LIGHTNING DAMAGE TO YOUR  FTWARE, COPY UTILITIES FOR VARIOUS FILE TYPES, FILE MANAGEMENT UTILITIES, AND TERMINAL PROGRAMS HAVE BEEN REQUESTED. CHEMATICS AND WIRING DIAGRAMS ARE ALSO BEING SOUGHT. AS ANYONE HAD TO CLEAN THE DRIVE HEADS? OW AND HOW OFTEN? ONTRIBUTIONS OF IN LECTRONICS, 36, 1129, ARSELLE, 35640, 800-221-7770, -2 ERVICE, $85. (DV IN , UNE, 1986, P 91.) UPPLIERS UPPORTING RIVES OFTWARE, OX 563, ROWN OINT, 46307, 219-663-4335 KYLES LECTRIC ORKS, 231- OUTH HISMA?------------------------------------------------------------- -2 ERVICE, $85. (DV IN , UNE, 1986, P 91.) UPPLIERS UPPORTING RIVES OFTWARE, OX 563, ROWN OINT, 46307, 219-663-4335 KYLES LECTRIC ORKS, 231- OUTH HISMA 53281,0: 53280,06 SINGLE DRIVE FILE COPYL( 52,31: 56,31:\- I0 173q2 D: 7936I,D:7 785,0: 786,31<PL$(19)A I1 24: PL$PL$(17):F I1 39:CL$CL$" ":KCL$CL$(13)CL$(13) PCL$(PL$,21 FETCH CHAR (PL$,3);(18). K142 169?  ((K));:L  (146)R q 6 PRINT DIRECTORY ENTRY DE J 785,6: SELECT FETCH CHAR TIX(DE1)32254((DE1)8)2 Y (IX)128 ^TY(IX)128: TY0 TY3 h KIX3   GET A FILE TO COPY(  CL$;: EN63 580K  UE128 NM$;"TOO LARGE.";n & EN62 NM$;" NOT FOUND."; 0 "ENTER FILE,TYPE":NM$"":EN0:UE0 : NM$,TY$: D NM$;"EXISTS. ENTER NEW NAME" NEN0:NM$"": NM$: b READ THE FILEN0 2:NB(2): WRITE THE BYTES< 2: 810: CHECK RESULTSB a* CHECK USR() RETURN VALUEx>NBNB(NB0)65536H NB61440 UE0:R NB61440 UE128:\ CL$;f (785)0 "READ";p (785)3 "WRITE";z :"READING DIRECTORY%$ 110: READ THE DIRECTORY:8NS((NB1)254)WB NS1 4090: NO FILES`LDS1V NSDS DS1: STSRT OVER` (PL$,4);jBE(DS1)81:LEBE15t DS1NS LEBE8~ DEBE LE 310:: DISPLAY FI LES  I(214) 20: CLEAR+ " "1K 510: GET FILE NAMEi NM$"" DSDS2: 1110} COPY THE FILE CL$; "READING ";NM$ 610: READ THE FILE  EN62 UE128 1200BCNB: SAVE COUNTSYSTEM ARE LOWER IF IT IS UNPLUGGED WHEN NOT IN USE. EQUESTS HE XCHANGE WOULD LIKE TO RECEIVE DRIVE COMPATIBLE PROGRAMS FOR DISTRIBUTION TO MEMBERS ON THE XCHANGE ISK. NYONE WITH SUITABLE SOFTWARE IS INVITED TO SUBMIT IT. ISK SPEED UP SOFORMATION, PROGRAMS, ETC ARE ALWAYS OF INTEREST. OUR COMMENTS ON THE INFORMATION IN THE EWSLETTER ARE ALSO WELCOME. OR ALE USARD NTERFACE FROM ATTERIES NCLUDED, $60 OR WILL TRADE. INGLE ISK RIVE, MAKE OFFER. ERVICE N D., ONTAIN IEW, 94041, 415-965-1735 FT4:,,AGE <> ------------------------------------------------------------------ UBLISHED BY NFORMATION XCHANGE, 2705 ULMAN T., ERRE AUTE, 47803, 812-232-0121, 812-234-8240, AUL . CKLER -----  410: GET DEST. DISK* CL$;"WRITING ";NM$94 710: WRITE THE FILEK> EN0 3010dH 510: GET NEW FILExR NM$"" 2090\ CL$;"FILE NOT COPIED"f 3100 DISPLAY COMPLETION STATUS CL$; NBBC 3060 "COP)CL$(145)(145)1 U 15,8,15: OPEN ERROR CHAN< Z 1010U n READ THE DIRECTORYu 785,0: LOAD DIR INTO MEM 15,"I": 2,8,2,"$" NB(2): LOAD DIR INTO MEM 2: 810: CHECK ERROR DISPLAY DISK NAME 785,6: SELECT IX18 r ((K));! |: 16);",";7  ("SPU",TY,1):R  GET DESTINATION DISK]  CL$;~  "INSERT DESTINATION DISK."  "PRESS";(18);"RETURN";  (146);" WHEN READY."  DM$: DM$"" 470  DM$(13) 470 15,"I": v 785,0: SELECT READ FUNCTION6  2,8,2,NM$","TY$",R"P  910: EN0 2:l NB(2): READ THE FILE  2: 810: CHECK RESULTS   WRITE THE FILE  785,3: SELECT WRITE FUNCTION  2,8,2,NM$","TY$",W" 910: E " ERROR #";NB61440:! READ ERROR CHANNEL615,EN,EM$,ET,ESU EN0 EN62 EN63 e 15: CL$;} "DISK ERROR#";EN (PL$,22);EM$: MAIN ROUTINE (147);: CLEAR SCREEN " SINGLE DRIVE FILE COPY"  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),Y SUCESSFUL. ";: 3070" "ERROR. ONLY ";NB;" OUT ";; BC;"BYTES COPIED."Q "PRESS ";(18);h& "RETURN";(146);0 " TO COPY ANOTHER FILE": DM$: DM$"" 3130D DM$(13) 1010N  NO FILES ERROR HANDLING (PL$,7,169,0,133,251,169,328' 133,252,160,0,32,207,255,145CB' 251,230,251,208,2,230,252,165hL' 144,208,13,165,252,201,160,144V' 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,251,205 ' 174,31,144,227,32,204,255,76,' 73,31,32,9,31,132,251,24O' 105,32,133,252,160,0,177,251h' 168,169,0,76,12,31235,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,169LJ000LJ$L%%,3,%O %HLJ:::*O ::HAM:OVH]OLHddk+O"END OF FILE":]Ld-dk*O"ADDRESS ERROR":]LHdrdy+OH 4,PF$"ADDR OBJECT LABEL DISASSEMBLY "NM$4," ": :J: Jﱒ      0+OHBJﱒ  2+OH줖 R.OH *O  : *OJH #+OJ#$HB )+O(J$  +OHB Y)+O),YHB, HB !Jﱒ ! J )+O()HB  +OHB,  *.OHJﱒ (,(H`4 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 J021);  "NO FILES ON THIS DISK.") "PRESS RETURN TO TRY";GDM$"": "ANOTHER DISK.";` DM$: DM$"" 4070w DM$(13) 1010}' 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,5,240,76,12,31~' 32,9,31,152,170,32,201,2557' 168,176,240,165,251,141,174,31Z' 165,252,141,175,31,169,0,133}' 251,169,32,133,252,160,0,177' 251,32,210,255,164,144,208,20' 230,251,208,2,230,252,165,252' 205,175,31,144,234,165,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 RdydЀ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   Hi" ";:LJiu +OLD$;:L" CHANGE OPTIONS"" QUIT MENU""SOURCE ";"(FILE/C64/*MSD DISK DRIVE) "" "NM$"OUTPUT ";"(VIDEO/PRINTER/FILE)"" "O$"TYPE ";"(HEX DUMP/DISSASEMBL Hu +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 (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 Ї, nB €+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=JGnL#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 GDH^NVBDN1N2N3HASRAM1NOFESNBLBCSITRSEA1ADAHLPLNOSFDMPNOO+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:MDLAHA %#/ Ӎ03HASRAM1NOFESNBLBCSITRSEA1ADAHLPLNOSFDMPNOO*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+OJOO:=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+OY)"" "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"NORMALIZE TO ";:J+O uL:V:V:=V=LJ u +u +OH߹u+OHȒgHHJ߅€+*OHߝLnBn" ";:FHY’gg+OLnBng3n+O nnGnnn 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:+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  . 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+OAOAOYV1OLCEXLLFOHDIDTAADPTTYTFJAFBKBMM2N0 nnnAnk++OH⡔*$-OH"INVALID TRACK"(T):knFBAD FILÉA2:H15,"U1:";2;0;T;S:J J AGnyЀЇJOOkkO:=AV"":HЀAЇTRK- SEC-A  "FILE REFORMATTER"%02168=ME$"M-E"(00)"P"[N$"":"FILE";N$:N$""v15,8,15,ME$N$:15:3 o  "  "m`"PW-MOȹNNO )NXL`Y ץSRLRiRȄ  ="/ L4 o ` ķ fLLPE-MH   d ]Åą3l)lޭlJ *lޮm*l)lHhl lޭmޑeL@hHhLm LLLL0` pQ UUU`VU VV8`_Q pQ_Q = `QLQURVRLN$:15:3 o  "  "m`"PW-MOȹNNO )NXL`Y ץSRLRiRȄ @ o B@ "H@ @@ "mD@D@C@`"PW-MOȹNNO )NXL`Y xSNLN KP@N@N rPXLڭL@COv 3N  LP @@@@@?@`?`@53272,23:D4:CR$(13)1 "ILE AME";N$K4,D:2,8,2,N$",S,R"US$""j(#2,C$:ST64702C$CR$S$S$C$:40<4,S$:30F4,S$:4P2:4: AST OADER FOR -2 RIVE AND NSTRUCTIONS: UST ISSUE THE COMMAND "",8,8 OU WILL GE A MESSAGE FOLLOWED BY ANOTHER HEN THE PROMPT APPEARS, ALL LOADS ISSUED SUBSEQUENTLY WILL BE  LOADABOUT 12 TIMES FASTER. HE FAST LOADER USES MEMORY LOCATIONS $020...$02 AND $0334...$03 SO IF A PROGRAM USES THESE LOCATIONS, THE FAST LOADER CANNOT BE USED. INTERFACE AND AN -2 DISK DRIVE ARE REQUIRED. ECAUSE 4 USES SOME MEMORY LOCATIONS IN THE $0334...$03 AREA, THE FAST LOADER WILL NOT WORK WITH 4. OTE: ROGRAMS STORED WITH THE COMMAND WILL LOAD APPROXIMATELY 5 TIMES FASTER. F THE PROGRAM HAS BEEN REFORMATTED WITH THE PROGRAM, THEN IT WILL ROGRAM EFORMATTER FOR UPER AST OADING WITH NSTRUCTIONS: 1. SSUE THE COMMAND "",8 2. NSERT SOURCE DISK INTO DRIVE 1 3. NSERT DESTINATION DISK INTO DRIVE 0 4. SSUE THE COMMAND 5. NTER THE FULL NAME OF THE FILE TO BE REFORMATTED. (HE FILE WILL BE COPIED FROM DRIVE 1 TO DRIVE 0). 6. HEN YOU HAVE FINISHED REFORMATTING FILES, JUST PRESS . E FAST LOADER CANNOT BE USED. INTERFACE AND AN -2 DISK DRIVE ARE REQUIRED. ECAUSE 4 USES T РUV QU RV R PQ@Hi @@ LULV QU@V@ VQ@@R LRLR@ VQR X LڬRL PQ@RR@RR RU RV QR@R@ R R PQRRRRR RR RLPVMSDQ L@#l)lކJ`lJ *lޮml)lޭlJ* lޭm` 6511 IS-SSEMBLER NSTRUCTIONS: 1. SSUE THE COMMAND "6511*",8,8 2. NSERT DISK CONTAINING PROGRAM INTO DISK DRIVE 3. AKE SURE YOUR PRINTER IS CONNECTED TO THE SERIAL BUS AS DEVICE 4. 4. SSUE THE COMMAND 49152 JJJA)HH*H*BDCEJJ)FG@HIJHAGBgCJ)DjJJJmGmgEm D*)GFgG)nFmjFmjJJJGngHJ@I`@ȥ@ȥ@LQ< 5. NTER THE NAME OF THE FILE TO BE DIS-ASSEMBLED. O DRIVE 0). 6. HEN YOU HAVE FINISHED REFORMATTING FILES, JUST PRESS . E FAST LOADER CANNOT BE USED. INTERFACE AND AN -2 DISK DRIVE ARE REQUIRED. ECAUSE 4 USES VERY FAST. ESTRICTIONS: HE FAST LOADER USES MEMORY LOCATIONS $020...$02 AND $0334...$03 SO IF A PROGRAM USES THESE LOCATIONS, THE FAST LOADER CANNOT BE USED. INTERFACE AND AN -2 DISK DRIVE ARE REQUIRED. ECAUSE 4 USES !6=27:7=71:8=14 PP66 PG59 ^6^8 VP6 ^6^8 AI+0 LM6 RM71 FT4: NFORMATION XCHANGE, UGUST 1986,AGE <> ------------------------------------------------------------------ SSUE O. 2 NFORMATION XCHAN! TER WILL APPEAR IRREGULARLY--PROBABLY EVERY OTHER MONTH. UBSCRIPTIONS ARE $5 FOR FIVE ISSUES. SSUE 1 IS ON THE XCHANGE ISK. HEN COMMUNICATING WITH HE XCHANGE, SELF ADDRESSED STAMPED ENVELOPES ('S) ARE APPRECIATED. ERVICE ANUAL ERVI! 1. RIVE FREEZES ( CRASHES) COULD RESULT. IGH PEED OADER SUPER HIGH SPEED LOADER FOR -2'S EQUIPPED WITH USCARD , AS PROVIDED BY AUL USHTON OF DMONTON, LBERTA, IS ON THE XCHANGE ISK. HE LOADER RESIDES IN BOTH -64 MEMORY AND DISK! 1 ONROE R, UITE 206, ALLAS, 75229, PHONE 214-357-4434. SERS REPORT MUCH IMPROVED SERVICE FROM . ETTERS GET ANSWERED. OOD WORK . ARTS ARTS ARE ALSO AVAILABLE FROM AS FOLLOWS--AIN BOARD -1, $65; -2, $75; DRIVE MECHANIS! TOWARD SUPER HIGH SPEED DISK DUPLICATION ROUTINES WOULD SEEM TO BE LOGICAL NEXT STEPS. NY VOLUNTEERS? OPY ROGRAMS HAT'S THE BEST BACKUP PROGRAM FOR DRIVES? ROM YOUR LETTERS, HURECOPY FROM EGASOFT AND AST ACK'EM FROM ASEMENT OYS !H PLUS SHIPPING. NE USER REPORTS OBTAINING A ODEL -501 REPLACEMENT DRIVE MECHANISM FROM LECTRONICS, 13992 158TH T , UPITER, 33478, PHONE 305-747-7384, FOR $55, BUT BE WARNED, DRIVES REQUIRE MODIFICATION TO / OMMODORE CODE. !Y IS NOT UICKSILVER COMPATIBLE, AND USERS REPORT SOME LOAD DIFFICULTIES AND SOME BUGS. T IS COMPATIBLE WITH USCARD . O FAR NO HIGH SPEED BACKUP PROGRAMS FOR THE -1 HAVE BEEN REPORTED. EITHER OF THE ABOVE TWO ARE -1 COMPATIBLE. AST ACK 'E! TRAP TABLE THAT CONVERTS SOME PROGRAM, ZERO PAGE, 1541 ADDRESSES TO THEIR EQUIVALENT FOR IMPROVED SOFTWARE COMPATIBILITY. HIS CONVERSION IS ON THE CHIP. T IS NOT CLEAR IF BOTH CHIPS MUST BE REPLACED TO UPGRADE . SERS REPORT THAT "HE BEST KNOWN PUBLIC DOMAIN PROGRAM FOR THE 1541, TO THE -1 WHEN THE MEMORY MAP PROJECT IS COMPLETED. EVERAL HAVE ASKED ABOUT DISK DUPLICATION PROGRAMS THAT WORK WITH TWIN DRIVES, AN -1 AND A 1541 OR A 1571. O HIGH SPEED PROGRAMS OF THIS NATU!GE UGUST, 1986 ------------------------------------------------------------------ HE XCHANGE JU1 HE XCHANGE IS NOT AFFILIATED WITH ANY COMMERCIAL ORGANIZATION. ECOMMENDATIONS ARE BASED SOLELY ON THE EXPERIENCES OF USERS. HE EWSLET!ATION OF UP TO 8 OF . -1'S ARE SHIPPED WITH 4; -2'S WITH 6. USES THE EXTRA -2 IN THE HIGH SPEED DISK DUPLICATION ROUTINE. AS ANYONE TRIED EXPANSION? OME REPORT THAT CAN BECOME CONFUSED WHEN EXTRA IS PRESENT ON AN -!CE ANUAL IS AVAILABLE FROM PRICED AT $39.95. T INCLUDES A PROGRAMMERS REFERENCE MANUAL, FUNCTIONAL DIAGRAMS, SCHEMATICS, AND A DIAGNOSTICS DISK IN ADDITION TO EXTENSIVE SERVICE INFORMATION (ABOUT 100 PAGES TOTAL). ONTACT USAN UINN AT , 1003! AND LOADS AT 6700 BYTES/SEC, COMPARED TO 750 BYTES/SEC ON THE -64 SERIAL BUS. HE ROUTINE IS SAID TO BE CAPABLE OF LOAD SPEEDS OF 23,000 BYTES/SEC, BUT IS LIMITED BY DISK ROTATION SPEED. DAPTING THIS TECHNIQUE TO OTHER INTERFACES, TO -1'S, AND!M, $80; , $15; , $15; TATIC 2 8, $4; EGULATOR CHIPS, 7805 (5 ) OR 7812 (12 ), $2 EA; 6511, $20; AND ALIGNMENT DISK, $60. THER PARTS INCLUDE S, CABLES, FILTERS, SWITCHES, ETC. -1'S ARE AVAILABLE AT $200; -2'S AT $450, BOT!OFTWARE ARE THE TWO MOST POPULAR FOR THE -2. EVERAL OTHERS ARE SUPPLIED IN COMPATIBLE VERSIONS INCLUDING R IBBLE, ITTO, AND UPERCLONE. HURECOPY WILL BACKUP MOST IF NOT ALL COMPATIBLE SOFTWARE (AND SOME INCOMPATIBLE SOFTWARE). HURECOP! HE PARTS LIST WOULD SEEM TO MAKE IT ECONOMICAL TO UPGRADE AN -1 TO AN -2. AS ANYONE TRIED THE CONVERSION? PGRADES SUPPLIES ON TWO CHIPS, ONE COVERING $000-; THE OTHER COVERING $000-. NE IMPROVEMENT IN 2.3 IS A!M IS SAID TO BE DEVELOPING AN -1 COMPATIBLE VERSION. -1 OWNERS REPORT USING 1541 ACKUP AND SIMILAR PROGRAMS. HESE MAY BE ACCEPTABLE FOR NON-PROTECTED SOFTWARE WHEN COMPILED AND USED WITH AN INTERFACE. HE XCHANGE PLANS TO ADAPT "4MINUT", T! VERSION CAN ALSO BE DETERMINED BY EXECUTING THE COMMAND AT POWERUP AND READING THE ERROR CHANNEL, A SOMEWHAT SIMPLER METHOD THAN THE PROGRAM GIVEN IN SSUE 1. FP XTRA ; CCORDING TO , THE DRIVES ARE SHIPPED WITH EXTRA SLOTS TO PERMIT INSTALL" RE ARE KNOWN. KYLES LECTRIC ORKS REPORTS HAVING MIXED UICKSILVER/1541 LASH VERSIONS, WHICH MAY ACCOMMODATE SOME TWIN DRIVE USERS. NCOMPATIBLE OFTWARE OME HAVE REPORTED BASIC PROGRAM DISKS THAT ARE INCOMPATIBLE. LMOST ALL UNPROTECTED BA" Y. HE FILE NOW INCLUDES 250 TITLES WITH PARTIAL INFORMATION ON MOST PROGRAMS. DDITIONAL ENTRIES ARE BEING SOUGHT. 2. EMBERS. LIST OF MEMBERS TO ENCOURAGE INTERACTIONS BETWEEN USERS AS IS COMMON IN MOST LOCAL USER GROUPS. 3. EMORY MAP. LIS" 541 PREFERABLY TO AN DRIVE. O NOT USE A HIGHLY SOPHISTICATED BACKUP PROGRAM, WHICH MAY DUPLICATE THE MISALIGNMENT. N SSUE 1 BACKUP CARTRIDGES WERE MENTIONED AS ONE METHOD TO CONVERT INCOMPATIBLE SOFTWARE TO RUN ON AN . EVERAL REPORT CARTRID" OUT OF THE SOFTWARE FILE IS NOW AVAILABLE. T REQUIRES $0.39 POSTAGE. FP PG62 CM:FT4:,,AGE <> HE XCHANGE ISK ROGRAM SIDE INCLUDES 2.3, THE HIGH SPEED LOADER, TWO 6511 DISASSEMBLERS, EWSLETTER NO. 1, A DUAL DRIVE COPY UTILITY, A SINGLE DRIV"DUCT IS COMPATIBLE. XCHANGE ISK HE XCHANGE ISK IS AVAILABLE FREE TO THOSE WHO SEND IN A BLANK DISK WITH RETURN POSTAGE. OSTAGE FOR A DISK IS TYPICALLY $0.56 ($0.58 TO ANADA). HEN SUBMITTING A DISK, PLEASE PUT YOUR NAME ON YOUR DISK, "D BY NSTASPEED. NSTASPEED IS COMPATIBLE. HE DISK IS NEARLY FULL. SECOND PROGRAM DISK WILL BE STARTED SOON. DDITIONAL PROGRAMS ARE BEING SOUGHT. OTES EVER TURN THE DRIVE POWER OFF WHEN THE WHITE DRIVE LIGHT IS ON. S A LAST STEP, THE "FILES. ACH SIDE INCLUDES A " " PROGRAM CONTAINING BRIEF INSTRUCTIONS. HE MOST COMMON DISK MAILER IS A REUSED OMPUTE'S AZETTE MAILER. HE SIMPLEST IS A 6 9 ENVELOPE WITH THE DISK HELD BETWEEN TWO PIECES OF CORROGATED BOXBOARD. HE XCHANGE" IALLY COMPATIBLE DISK SPEED CARTRIDGES SUCH AS ACH 5, THAT ERASE THE DISK DIRECTORY IF NOT WRITE PROTECTED. HE MOST FREQUENT SOFTWARE COMPATIBILITY QUESTION IS . T IS NOT COMPATIBLE. HE MOST OFTEN LISTED IS RINT HOP. HE ORIGINAL IS COM"OT HAVE UPERBASE, HE XCHANGE DATABASE FILES NOW ARE SUPPLIED AS SEQUENTIAL FILES SUITABLE FOR READING IN A WORD PROCESSOR (EXCEPT WHEN UPERBASE FILES ARE REQUESTED). HE XCHANGE ISK ATABASE FILES INCLUDE THE FOLLOWING-- 1. OFTWARE COMPATIBILIT#PATIBLE; RINT HOP OMPANION IS NOT. HEN MODIFIED BY OMPANION, RINT HOP BECOMES INCOMPATIBLE. USIC HOP, ALSO FROM RUDERBOND, IS INCOMPATIBLE. INCE IS VERY SIMILAR, THE SAVE WITH REPLACE BUG SHOULD BE PRESENT ON DRIVES, BUT HAS NOT BEE"SIC PROGRAMS ARE COMPATIBLE UNLESS THEY MODIFY . HE PROBLEM PROBABLY IS DISKS WRITTEN ON AN OUT OF ALIGNMENT 1541. DRIVES HAVE A NARROWER READING RANGE THAN 1541'S. HE BEST SOLUTION IS TO COPY THE OUT OF ALIGNMENT DISK ON A PROPERLY ALIGNED 1"TING OF 2.3 SUBROUTINES. COMPLETE LISTING OF SUBROUTINES AND MEMORY LOCATIONS SHOULD BE AVAILABLE SOON. HIS LARGE FILE IS NOW ON A SEPARATE DISK IN UPERBASE FORMAT OR IN SEQUENTIAL FORMAT. OR THOSE ONLY INTERESTED IN SOFTWARE, A SUMMARY PRINT"GES THAT RUN ON AN , BUT FEW ARE REPORTED TO MAKE INCOMPATIBLE SOFTWARE COMPATIBLE. NE USER HAS REPORTED EXCELLENT SUCCESS WITH SEPIC RUN ON A 1541. HEN THE PROGRAM IS RELATIVELY SHORT AS WITH A GAME PROGRAM, SEPIC IS OFTEN EFFECTIVE AND THE PRO"E FILE COPIER, A UTILITY TO TRANSFER TO DISK, SEVERAL PROGRAMS TO SPLIT LONG SEQUENTIAL FILES, TOKENIZER, A BASIC MONITOR FOR DISK FILES, A DISK ANALYSIS PROGRAM, AND A WRITE PROTECT UTILITY. LL BASIC PROGRAMS ARE SUPPLIED BOTH IN BASIC AND COMPILE"INCLUDE A RETURN MAILING LABEL, AND INDICATE WHETHER YOU WANT UPERBASE FILES. LSO INDICATE IF YOU ARE SUBMITTING PROGRAMS TO HE XCHANGE. OUR DISKS ARE RETURNED COPIED ON BOTH SIDES. IDE ONE CONTAINS THE DATABASE FILES; SIDE TWO CONTAINS PROGRAM "/ HEAD IS MOVED TO ITS HOME POSITION AT RACK 40. F THE HEAD IS NOT AT RACK 40, YOUR DISK MAY BE DAMAGED WHEN INSERTED OR REMOVED. SERS REPORT BETTER SOFTWARE COMPATIBILITY FOR THE -2 WHEN A FORMATTED BLANK DISK IS IN DRIVE 1. SERS REPORT PART" ISK CONTENT CHANGES FREQUENTLY. UPERBASE FILES CONTINUE TO BE MOST UP-TO-DATE. UPERBASE IS A HIGH PERFORMANCE DATABASE PROGRAM FROM RECISION OFTWARE SOLD BY MAIL ORDER HOUSES FOR ABOUT $50. T IS USUALLY REGARDED AS A CLASSIC. ECAUSE MANY DO N#ILE:::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$:# N REPORTED. N INTERFACES, USCARD IS MOST POPULAR AND HAS THE HIGHEST SOFTWARE COMPATIBILITY; UICKSILVER IS FASTEST AND HAS VERY HIGH SOFTWARE COMPATIBILITY; 'S INTERFACE HAS VERY POOR SOFTWARE COMPATIBILITY AND IS NOT RECOMMENDED. # "S" 330-"4,C$;" END OF FILE: ";F$: 4: 2:15^, (142);" LIST ANOTHER FILE (Y/N) ? Y";w6 A$: A$"Y" 190@ 390J4,C$" Ӡ٠٠Ϡ"T K$: K$"" 340^h15,E1$,E2$,E3$,E4$r (E1$)# ATTLE ROUND, 98604, 800-541-1541 SERS ROUP, IMITED, 6041 ONONA R, ADISON, 53716 ------------------------------------------------------------------ UBLISHED BY NFORMATION XCHANGE, 2705 ULMAN T, ERRE AUTE, 47803, AU#$):S(S1$)V2V21#2,A$(! A$(129) 5502$ 640L&F$"":V10: J1 18d0#2, A$: J3 600u: V11 600D A$(160) V11: 600NF$F$A$Xb"";F$l"READ THIS FILE--Y OR N? N";v R$: R$"Y" # ) 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,824 P$"S" 330:> N1 10:4:H) 5502$ 640L&F$"":V10: J1 18d0#2, A$: J3 600u: V11 600D A$(160) V11: 600NF$F$A$Xb"";F$l"READ THIS FILE--Y OR N? N";v R$: R$"Y" #CT* 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 F#"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`" 4  f k f k t` tLtH ih` n lk @p h hɓ o 1pɅI ]j0k,kɔ3 oH 5lhK h h.# o+ȩ# oLJɅ LLJHk hk ohH  ]j hhLJh! 3l h 0#: 270  A$C$ V1: 2684 W$W$A$:YY1: Y20 266N  A$" " E0 260_  X20 270  (XY)L 4:X0:ZZ1:800 4, W$;:XXY:Y0:W$""  V1 V0:4:ZZ1:800  E0 260  E64 4," READ ERROR" P$#ERVICE , 14034 AMBERT OAD, HITTIER, 90605, 213-696-6250 (ERVICED -2 FOR USER) ORPORATION, 225 AIN T, OLLINSVILLE, 62234, 800-448-5819 (EPORTED BY (64)) UPPLIERS UPPORTING RIVES EGASOFT TD, OX 1080, #0 -| "DISK ERROR ";ZZ;S$;E1$;S$;E2$;S$;E3$;S$;E4$=2:4:15:j15,8,15,"I"N1$:2,U,2,"#":ZZ500: 360|T18:S1:V3015,"U1:2,"N1$;T;S:V20:ZZ520: 360#2,T1$,S1$ T1$"" T1$(0) S1$"" S1$(0)T(T1kL CKLER, 812-234-8240, 812-232-0121 ------------------------------------------------------------------ RATION, 225 AIN T, OLLINSVILLE, 62234, 800-448-5819 (EPORTED BY (64)) UPPLIERS UPPORTING RIVES EGASOFT TD, OX 1080, # 2:15:BPV2322 V28 670' T0 7001 520Q15,"B-P";2;BP:ZZ670: 360[ 540u"END OF DIRECTORY"2:15"DO ANOTHER DIRECTORY--Y OR N ? N";: A$ A$"Y" F$(21):  ZP *Z0#":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 PROTE#740: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,