KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK XT BLOCK F3 FIRST BLOCK F5 RETURN TO MENU F7 END OF DIRECTORY ONLY 30 FILES CAN BE SELECTED INSUFFICIENT BUFFER SPACE READ FILESSCRATCH FILESRENAME FILES XXXXXXXXXXXXXXXX XXX 0 XXX CANNOT COPY RELATIVE FILES BLK EVICE 8 DRIVE 0 F3 DEVICE 8 DRIVE 1 F5 DEVICE 9 DRIVE 0 F7 DEVICE 9 DRIVE 1 INSERT SOURCE DISK ENTER FILE NAME TO SCRATCH OR HIT RETURN TO QUIT SCRATCHING: ENTER FILE NAME TO RENAME RENAMING: DISK NAME: DISK ID: KKKKK OCK COUNTS WRONG (BUG IN THIS PGM!) ABORTED WITH RUN/STOP F1 RETRY THIS FILE F3 REJECT FILE, CONTINUE F7 QUIT READING BUFFER FULL, REJECTING THIS FILE XXXXXXXXXXXXXXXX XX XXX INSERT DISK INSERT OUTPUT DISK IK SAME DEVICE & DRIVE F1 RETRY F2 SKIP THIS FILE F3 RETRY WITH NEW NAME F4 DOS COMMAND F8 QUIT WRITING COPYING:  DEVICE NOT PRESENT XXXXXXXXXXXXXXXX NEW NAME: COPY FILESELETE LAST FILE F7 RETURN TO MENU F1 DKKKKK NSUFFICIENT FREE SPACE ON DISK F1 BACKGROUND F3 CHARACTER F7 RETURN TO MENU F1 SCRATCH FILES F2 VALIDATE DISK F3 RENAME FILES F5 FORMAT A DISK F7 RETURN TO MENU F1 DELETE LAST FILE F7 RETURN TO MENU F1 DKKK  2061  !  b O à b b[ Ʌ"ɉ*Ɇ Ɋ.ɇ0ɋ2ɈɌ DL L L L @ L  L L LY! b8` `Ȣ !&"x y ș ȈX HJJJJ 0h) `  0ș ɆɈ[Sk8`[ J Sk`L7 b b -   ɅɆɈL -  ] bSk, b  ɆɈL L (?ȈYƩ  opIH hɅ ɍ V 8` V `Y. @ȄYLxɠ [YZ GMUSRREL***Ԉԩԩԩ!Ԡ `'(  !"  ( !"`, *ȅ!Q+ȅ"R ȝ bmn` ` W \!]" ȝ b`@P !  `iǥ[%k!S SSk LSkUi8`)8ejL - (1  [*e+ei[  J L[;7))?T*ȥ+Ȑ>8*ȅ+ȅ[ 0 (ȑ  iL$ b  LG bL bL  F i& i0j0 1 ~1`e b8` b )@N? bZ jUYQBY?ȝAȢ bZ j'Y,R@ȍSAȍTȩ[  ` b *M   ` `  !Щ%"&ik#$`Ơ b   S[ ? SSk   I `<ȅ=ȅ e  U v`  RL   >ۥ?L- R bLkl `   b ɅɉɆɊ?Ɍ8``` I ! b Z jY,Y?ȝ+ǥ[H  ɆɈ8` LO S DSSk L 7Sk`  ` *M%'&(j `WX l  l - ` -  8` - [ J bLm`l!" ȍ6ȍ7 y` l" " L `` )   (C) 1984 BY LARRY COATS F1 READ FILES INTO BUFFER F3 WRITE FILES FROM BUFFER F5 2-DRIVE COPY F7 DISPLAY FILES IN BUFFER F2 DISPLAY FREE SPACE ON DISK F4 DOS COMMAND F6 CHANGE COLORS F8 QUIT XXX BLOCKS AVAILABL ` Ѕ`8``mnQRQ[  mn k QR k [  `!"  `!" ȝi!" ȝ`(ȩ *) ȝ*ȅ!+ȅ" ȝ,   @ȄY Lx  Lx op`[ b -5jt b  `  DS - ( SSj `J b b[ bZ j᩠,Yӽ?ȝ+ LeR?M@,ȝS q!񢡠 bq! b! bZ j&Y"BY? ?  - ` - 8`, b ɅɉɆɇɈ`LLbLL% F i  bLS ?  bSSi  LZ  b ɅɈ`ii %ȱ&L@ S - ( SSj  LC?O@NS:T=R,ȝ [ à b I j b Ϧw - 0x  bxwwj - L b[f bLvq bLv bLv! b` M1 ,  8 `[' b KN b KN ̠ ɇɈɅ0`1` 0` 1` , =L- -  8`  067 y` \] #  e\\]  W X `) L [0 I P ` - *)MP *  L h[ DLv "ɀɂɕ ɜɠ `*`` %hȕK`%Kh`U1:2,0,18,XXB-P:2,0X0:  HIT RETURN TO CONTINUETO RETRY  ULTIMATE COPIER  , * +ȭ)&[ (Ȣ(  j` %&[ ? e L    LYL8L L - QR2i%ȥ&ȥ%ȥ&#m*ȅ#$m+ȅ$`͠ b, b   m*ȥnȑ+ Ʌ E IN BUFFER XXX FILES CURRENTLY SELECTED F1 KEEP THESE FILES F3 CLEAR BUFFER F7 RETURN TO TOP MENU TOO LITTLE BUFFER SPACE FOR DIRECTORY DISK HAS NO FILES  XXXXXXXXXXXXXXXX XXXX XXX 1-8: SELECT/DESELECT FILE F1 NE `x)H hX`Hx)hH hX`     ` D `8%ȩ&ȥ&ɰȩ8ȰLr ` b Ʌ Ɇ Ɉ`!L L Ȉ)*Ȋ)?8`ʊ! e!  `SEQP A=R$ `[ b -8jt b  `  F S - ( wSSj  `J b? bZ j詠,Yڽ?ȝ+ wLJS?M@,ȝB q!Ȣv bq! bL  iU  19ZɅɆɇɈUi>i BU q!&ȢM! bq! b ` v,ȝB0ӦkS k`(Ȉ`!i"iSiiߩk!"`k+S (`SSk L 8`0Ʌ `i`% i b `*LMO \]K*NM  4ڥ%&  DKLL S - ( ESSj  L 7Dɝ<[ [` b )@V? L b bL b b  `i` b *LMO `\#]$ ̠ b L  `# - K)NP 6K ));R,ȝARTN?? L`SPU0:XXXXXXXXXXXXXXXX,X,R - L)OP 6L ));R,ȝAWTO?? L` `' b -*KMNj t bL Li` F à b b Ʌ ܙ ۙ/ڈ L L               ,           .         6 $ DISK PATCH BY KEVIN ANDERSON@ REVISION A.4 2/20/84e B$(255),D$(255),K$(75):N$(0)zI175:K$(I):I0255:B$(I)N$:D$(I)N$:53280,15:53281,15:(142);"""   PATCH " " F1 READ A BL 9NX1000+>(MO$,1)"A""NEW CHARACTER";NC$:NX(NC$)UC(MO$,1)"D""NEW DECIMAL";NV:NXNVvH(MO$,1)"H""NEW HEX";HX$pNX10001000: INSERT NEW VALUEz(MO$,1)"H""";:815(HX$)1HX$"0"HX$H%(HX$)48 :L%( ;SM;")";: SE# SESMSE0"";:227@ 15,8,15,"I0":2,8,2,"#"e 15,"U1:"2;0;TR;SE:15,"B-P:2,0" I0255:#2,A$:B$(I)((A$N$),1): T2:15 ^20 P100 "  EDIT BLOCK " " F1 LIST NEXT 16 VALUES"  BUFFER "  "F1 HEX" "F3 ASCII"6 "F5 DECIMAL"J A$:A$""3013S 4,4l 4," ":4," ":4," " 4," TRACK";TR;" SECTOR";SE 4," " I024016:4,I; I104," "; I1004," "; L116 ";K"";hS2:I100S3:I10S4I;S);H$,4);(A$),"'";(A$)31(A$)91A$;"'";(A$)32(A$)90" '";(A$)128(A$)203 (A$)127(A$ 17:5227iTC17SM18:5227 jSM20-k"SECTOR (0-";SM;")";: SCIlSCSMSC0"";:5227fn15,8,15,"I0":2,8,2,"#"}x15,"U1:"2;0;TC;SC}15,"B-P:2,0"I0255:#2,A$:D$(I)((A$N$),1):2:15 NOW COMPARE THE TWO 0 20p"  CHECK DISK STATUS "6:::15,8,15:15,AA,AA$,BB,CCL15:AA,AA$,BB,CCp:" HIT A KEY TO CONTINUE"A$:A$""607020 N 75 BASIC KEY WORDS*N END,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READ,LET,GOTO,R4      .       ,           "  "  . fLt1544 OCK INTO THE BUFFER"1 #" F2 PRINT THE BUFFER"O (" F3 EDIT THE BUFFER"v -" F4 COMPARE BUFFER WITH DISK" 2" F5 WRITE THE BUFFER TO DISK" 7" F6 CHECK DISK STATUS" <" F7 EXIT FA$:(A$N$)133(A$N$)13970) H( (HX$,2,1))48 H%9H%H%7L%9L%L%7/NX16H%L%bNX0NX255"OUT OF RANGE":I11000:I:510pNN$(NX)B$(WN)NN$510"  WRITE BLOCK TO DISK """"";TR:"";:"TRACK ";TR" " F3 LIST PREVIOUS 16 VALUS"7 " F5 CHANGE A VALUE"X &" F7 EXIT EDIT ROUTINE" (:"WORD# HEX DEC ASCII BASIC" +650 0A$:A$""560 :A$""20 DA$""PP16:650 NA$""PP16:650 XA$""800: CHAN  C$B$(IL1) A$""3070/ (C$)30(C$)90H$" "C$:4030A H$" *":4030R A$""3079g H$(((C$)),2) (H$)3H$H$" ":3073 4030 N(C$):H%N16:L%N16H% H%H%48:L%L%48 H%H%7(H%57):L%L%7(L%57 )2045);K$((A$)127)I560; "";_%" ":"";p*"WORD #";WN-WN0WN255800/" ":"";4"ASCII, DECIMAL, OR HEX";MO$6" ":""; : EC0I0255:B$(I)D$(I)" #";I,"BUF:";(B$(I)),"DSK:";(D$(I)):ECEC1NA$:A$""5340bA$:A$""5336h EC0:"PERFECT MATCH" EC0:" ";EC;"MISMATCHES":" HIT A KEY TO CONTINUE"A$:A$""538 UN,IF,RESTORE,GOSUB;4N RETURN,REM,STOP,ON,WAIT,LOAD,SAVE,VERIFY,DEF,POKE,PRINT#,PRINT,CONT>N LIST,CLR,CMD,SYS,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN,NOT,STEPHN +,-,*,/,^,AND,OR,>,=,<,SGN,INT,ABS,USR,FRE,POS,SQR,RND,LOG,EXP,COS RN SIN,TAN,A3TN,PEEK,LEN,STR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$6:::15,8,15:15,AA,AA$,BB,CCL15:AA,AA$,BB,CCp:" HIT A KEY TO CONTINUE"A$:A$""607020 N 75 BASIC KEY WORDS*N END,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READ,LET,GOTO,R (A$N$)132) 200,500,2000,80,3000,5000,6000; P"* BYE *":j "  READ BLOCK FROM DISK ":: "TRACK (1-35)";TR TR35TR1"";:210 TR30SM16:227 TR24SM17:227 TR17SM18:227 SM20 "SECTOR (0-" ";SE:"";:"SECTOR";SE6:"TRACK";TR;" SECTOR";SE;" CORRECT";: A$HA$"Y"2000` 15,8,15:2,8,2,"#"r15,"B-P:"5;015,"M-W:"(0)(5);1;B$(0)*I1255:2,B$(I);:I+15,"U2:"2;0;TR;SE32:15:20 "  PRINT GE A VALUE b5603  LIST 16 VALUES IN HEX DECIMAL ASCII@ P0P0W P25515P25515f ""t IPP15 A$B$(I) N(A$):H%N16:L%N16H% H%H%48:L%L%48 H%H%7(H%57):L%L%7(L%57) H$(H%)(L%)" )H$(H%)(L%)A$""A$"" 4,H$;" ";1A$""4,H$;" ";9 LD4," "KI\4:4:4:20"  COMPARE BUFFER WITH DISK "::Z"TRACK (1-35)";TCfTC35TC1"";:5210gTC30SM16:5227hTC24SM  ":A1:192C$" "(((T$)),2)" "B" "(((S$)),2)" n "NPUT : ";:9,T$::T$(32)74!" ":"NPUT : ";:9,S$::S$(32)74"" ":T$(((T$)),2):S$(((S$)),2):% "HX$"$"(HE$,HI%1,1)(HE$,LO%1,1)(#CO116:(B$,2,1)(HE$,CO,1) HI16(CO1)0#CO]#CO116:(B$,3,1)(HE$,CO,1) LOCO1u#CO:B$(HILO):63#""#D14:" " CH2 POS1828I0:198,0102B255(B$)160174>SSI,B\15,"B-P:2,"(I):2,(B);kII1:1642:285:270:C$" (Y OR N)"A$:J(A$"Y")2(A$"N"):J176,191:175(T$)0174 265:(S$) HR$,LEFT$,RIGHT$: MID$,GO%<GOOD,BLOCK HEADER NOT FOUND,NO SYNC CHARACTERj>DATA BLOCK NOT PRESENT,CHECKSUM ERROR IN DATA,BIT PATTERN ERROR@WRITE (VERIFY) ERROR,WRITE PROTECT ON,HEADER CHECKSUM ERRORBDATA BLOCK TOO LONG,ID MISMATCH E I18:" ";:F""e" "" ""[@]-HANGE BYTE []-DD EXT STRING""[]-ISPLAY EADER []-RINT BLOCK" " !p15,"M-R"(22)(0)(5):J15:#15,HD$(J):1!r15,"M-R"(58)(0)(1):#15,HD$(6)S!tJ16:HD(J)(HD$(J)(0)):!v" "HD(3)8)HD(4)13)HD(1)17)HD(2)23)HD(5)32)HD(6)!x1346,HD(3):1353,HD(4):1358,HD(1):1362,HD(2):1368,HD(5 0:" - EAVING AREA OF MISMATCH.":258YX$"Ҡ#29":" !- HIS BLOCK HAS AN ERROR #29."{" OF (18/0)="I1","I2" OF THIS BLOCK="I","J1260,I1:1261,I2:1300,I:1301,J" PRESS TO RE " TRACK: "T$;" SECTOR: "S$;" HEX DUMP"&4,(13)8& C1015:P1$"":P2$" ":C216C1 1516C1M&"T1(SSC2):555k&$P1$P1$HX$" ":570:C2&%T1C116:555:C1$" $"HX$": "&&4,C1$;P1$;P2$:C1&*C114:4,(13)::560 ,HE$"0123456789ABCDEF":BA$(76),ER$(12),HD$(6),HD(6):LT$"18":LS$"0":EN0a.I176:BA$(I)::X$"":I112:ER$(I):/C$"":0 END,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READ,LET,GOTO,RUN,IF,RESTORE,GOSUB2 ;:#C$#4,4,4:4,(27)"B"(2):4,(27)"M"(5)&$" ĒECIMAL, ȒEX, OR ’OTH ?":$A$:A$"D"520J$A$"H"540Z$A$"B"520d$ 507$4," TRACK: "T$;" SECTOR: "S$;" DECIMAL DUMP"$ 4,(13)$ C1015:P1$"": J(T$)37E1$"66":E2$ER$(12):183E2,DN,2,"#2":15,"M-W"Z$(19)(2)((SS))((SS1))TA144:390gE1$"20"128270:"  #"E1$:" "E2$:E1$"66"286:1762:"TRY AGAIN? (Y OR N)";A$:J(A$"Y")2(A$"N"):J RROR,ILLEGAL TRACK OR SECTOR]A0:192:EN2M^X$"Ҡ#"E1$"":" !-THIS BLOCK HAS AN ERROR# "E1$_" "E2$:" YOU MAY READ AND MODIFY THE DATA, BUT"`" YOU CANNOT RE-WRITE TO THIS BLOCK."a" *** : ATA MAY BE INC "[]-EWRITE BLOCK []-UIT PROGRAM"/"[]-ERESH BLOCK []-EW LOCK"\"[+]-CAN FORWARD [-]-CAN BACKWARDS""[]-EXT BLOCK []-AST BLOCK""[]-UMP TO BLOCK--LINK UNDER CURSOR" "D14:" )!z1377,HD(6):C$"PRESS ANY KEY TO CONTINUE""|A$:A$""380"~156K"270:15,"M-W"(10)(0)(2)((T$))((S$))i"15,"M-W"(2)(0)(1)(A)"15,"M-R"(2)(0)(1):#15,B$:A(B$(0))"A99394"E1$((A18),2):E2$ER$(A)" AD"A$:A$""25915,"M-W";(18);(0);(2);E1$;E2$:128O I(T$):J20:I17J18:I24J17:I30J16U C$" "" "" &+HI(T116):LOT1HI16',HX$(HE$,HI1,1)(HE$,LO1,1):&'04:4:"":202:10B':T164 T191T1T132a';T1191 T1219T1T1128'<T132T1126P2$P2$".":'=P2$P2$(T1):114:4,(13):%A$"D"560%4, RETURN,REM,STOP,ON,WAIT,LOAD,SAVE,VERIFY,DEF,POKE,PRINT#,PRINT,CONTa4 LIST,CLR,CMD,SYS,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN,NOT,STEP6 +,-,*,/,^,AND,OR,>,=,<,SGN,INT,ABS,USR,FRE,POS,SQR,RND8 LOG,EXP,COS,SIN,TAN,ATN,PEEK,LEN,STR$,VAL,ASC,C P2$" ":C216C11516C1:T1(SSC2)#%TE$(T1):T1100TE$TE$" ":T110TE$TE$" "<%P1$P1$TE$:570:C2~%C1$(16C1)": ": C17C1$" 0"(C1$,2):C10C1$" 000: "%4,C1$;P1$;P2$:C1%C114:4,(13):%A$"D"560%4, 178,191:186A$:A$""188 "2,DN,2,"#2":156@EN0X$""i""X$" ";"ISK OCTOR 64.0 :"(" "T$,2)":"(" "S$,2)"";""; OMPLETE. ***" b" PRESS ANY KEY TO CONTINUE" cA$:A$""355 d156O hA1:192:"  Ҡ"| j" EADER ATA" l" RACK ECTOR 1 2 HECKSUM HECKSUM" n"  ";::A1221 C$"VALUE: ";11);"HEX:";12):E"POSITION:";12);":";10)lA0:D217242:D,(D)128::"";rA0:192:15,"M-R";(22);(0);(2):#15,E1$,E2$I(E1$(0)):J(E2$(0)):I1II2J253ENܙ ۙ/ڈ L L4 (   3)       "   ", "    ", "    ",    ,  "    DN8: DEVICE #H53280,11:53281,0:A$,I,S$,T$,B,SS,J:300:78rTV(SSI):HI%(TV16):LO%TVHI%16HX$"$"(HE$,HI%1,1)(HE$,LO%1,1)TV128TV203BX$"???":BX$BA$(TV127): I0I280I:I255II40 I255I S, RECORDS, RECIPES, ETC. ON ELECTRONIC INDEX CARDS. "HCM$CM$" UNDREDS OF USES AROUND THE HOME ":"CM$CM$"AND OFFICE. EE IT AT YOUR LOCAL DEALER.":CV2:CM$"ELEASED TO PUBLIC DOMAIN BY OLIDUS NTERNATIONAL ORPORATI"  "360 &A$"Q"15,"I0":5 (A$"+"S$((S$)1):128E )A$"F"128d *A$"-"S$((S$)1):128t ,A$"R"174 .A$"B"116 /A$"P"500 0A$"T""":64 2A$(3)74 4A$"@"10 6I0I280I:I255II40 8 :TT1UT36T1YSK0SKS^S$(SK):T$(T):128]h" WAP DISKS, THEN Β. N TO ABORT.";hm198,0rA$:A$(13)A$"N"370w2,DN,2,"#2":A$"N"72|178'"$'"ROGRAM: ""IS ,49L" ";::N FILEREAD.P210,3:209,60:211,0bR""(34)(34)(20)"B ƿ @ YDз̿"T(788)49788,52: STOP KEY DISABLEV"";XSS1144:I0:B0:J0\"ˠҙ VERSION 3.00 7/27/84" ]"LEASE PUT TDRIVE, WE RECOMMEND USING:!'Z$(0):"D!'15,DN,15:"k!'9,0:"!':"!'" *** ***!'"!'"fA$:A$""1022hZ$(0):15,DN,15:9,0:15,"I":A$(3)74hr2,DN,2,"#2":15,"M-R";(18);(0);(2):#15,A$,B$sI1(A$(0)):I2(B$(0)):"":T$"18":S$"0":132t285:130265:(S$)J(T$)37T$((T$)1):S$"0"(S$)0"     . fLt1544I(I40)401 4:C$10)(SSI);" ";30)HX$;"` ""10)I;" ";30)" "BX$ J12:ISS,((ISS)128)255:D05:D,J A$:A$""18 PF66 A$"N"A$"J"A$"+"A$"-"A$"B"LS$S$:LT$T$ A$""I(I1)255:CM$CM$"ON. ODIFICATIONS BY OHN LSEN."::"CC02485CC550CC0:CV236,224OCCCC1:CC292:"q"";~CP(CC)CP3939CP)(CM$,CP)"";::"(((CM$,CP38),39)" I255II(I40)405 :C$10)(SSI)" ":""10)I" "f ;198,0:C$"(FOR HEX ENTRY, START WITH $)" <198,0:C$"NEW VALUE: ";:9,B$: =198,0:C$"":218 >(B$,1)"$"410 ?B(B$):166 @D110:" K OCTOR "%'10123:")'",.'"UTHOR: ON EKEIV3'"(MODIFICATIONS BY OHN LSEN)c4'"8'"HIS PROGRAM IS PROVIDED COURTESY OF:='"B'" OLIDUS NTERNATIONAL ORPORATHE IN DRIVE 0."9^"OU SHOULD USE THE '' COMMAND TO"f`"UPDATE THE ON THE DISK WHEN DONE."a"OTE: ISK DEVICE IS"DN"."b"RIGINAL VERSION BY ON EKEI":"PDATED BY ON LAMINKO"d"RESS TO CONTINUE" ""HE LTIMATE ROGRAM ANIPULATION-"'" YSTEM FOR OMMODORE ICROCOMPUTERS."d"'"OW AVAILABLE AT YOUR OMMODORE DEALER.gXO GET THE USE OUT OF YOUR NEW t'"OMMODORE-64 COMPUTER AND YOUR DISK ~'"(T$)1T$((T$)1):265:S$(J)"(T$)0116[B0:265:(S$)J(T$)37E1$"66":E2$ER$(12):140uA128:390:EN2EN0A2156BB1:B5A2132A3A11349A11EN1:250E3$T$:E4$S$:E2$" #"E1$" ,"E2$A1:192("":I1(E2$):"";:::""E2$BI1(E2$):"";::}"IN "(E3$)", "(E4$):E1$"66"286:130"TRY AGAIN? (CR/N OR Y)"A$:A$""150A$"Y"13115,"I0":A0:192:15,"B-P:2,0":14 A$""I(I1)255:141 A$""II40:10H A$""II40:10\ A$""I0:10 "A$"N"T$((SS)):S$((SS1)):130 #A$"L"B$S$:S$LS$:LS$B$:B$T$:T$LT$:LT$B$:130 $A$"J"T$((SSI)):S$((SSI1)):130 %A$"H ",39)"" (653)1T$((T$)1):300-S$((S$)1):300N(653)1T$((T$)1):300`S$((S$)1)z,S20:T(T$):SK(S$)1SK0TT12T0T356T17S18@T24S17JT30S16TSKSSK0 ":H A" RESS [] TO END TEXT MODE":PF1:A$:10s BA$(13)PF0:"":202:10 DA$""20 FB(A$):168 H2:2,DN,2,"#2":"":202:10 J15,"I0":"":(788)52788ION L'" UITE #5, 144 EST 15TH TREET- V'" ORTH ANCOUVER, ..W ['" HONE: (604)984-0477d `'" j'"O GET THE USE OUT OF YOUR NEW t'"OMMODORE-64 COMPUTER AND YOUR DISK ~'"ܙ ۙ/ڈ L L    /.              .           ,         DN8: DEVICE #O53280,15:53281,12:A$,I,S$,T$,CC,B,SS,E$,J,TE,A:78A$:A$""" ";:CC293:A$""252 T3T2:T2T1:T1(T$):S3S2:S2S1:S1(S$): I0I f4:A$""102h10021:A$(3)74Fj1,DN,2,"0:,S,R":15,E$:E$"62"1:114hlE$"21"E$"74"184:1:106nE$"64"1,E$:""E$" ON DRIVE 0"p15,"I0"r2,DN,2,"#2":"":T10:T20:T30:S10:S20:S30:130t192:198,0! $((SSI)):S$((SSI1)):128] %A$""A$""T$(T1):S$(S1):T1T2:S1S2:T2T3:S2S3:128t &A$"Q"15,"I0": ,A$"R"174 -A$"C"2:360 .A$"B"9:116 0A$"T""":218:"":218:64 2A$(3)74 192:E2$" #"E1$","E2$<"":I1(E2$):"";:::""E2$VI1(E2$):"";::"IN "(E3$)", "(E4$):E1$"66"118"TRY AGAIN? (CR/N OR Y)"A$:A$""150A$"Y"13615,"I0":192:15 210):211,03R""(34)(34)(20)"B ƿ @ YDз̿"RT788,52: STOP KEY DISABLE]V"";yXSS1024120:I0:B0:J0ZA$"":E$"":T$"":S$""[" ISK OCTOR "\"(WITH SECTOR COPY & SCAN WRAP-AROUND)"]";7"ISK OCTOR 64.2 :"(" "T$,2)":"(" "S$,2)"";h"";I18:" ";:"""PRESS [@] - HAN "" [] - DD ԒEXT STRING "G" [+]/[-] - ONTINUOUS SCAN FWD/BKWRD "y" [] - ÒOPY SECTOR TO SECOND DISK ";D15:" ";:D217242:D,(D)128::"";*    ,                   .  -                . fLt1544280I:I255II40+ I255II(I40)40Z ""23)(SSI)" " ""23)I" " ""14)"VALUE:POSITION:" J12:ISS,((ISS)128)255:D01:D,J (197)40v""18)" "((T$))""Ax18)" "((S$))""bz12)"NPUT : ";:9,T$~{:(T$)1T$" 0":118|12)" ":12)"NPUT : ";:9,S$~" ":T$(((T$)),2):S$(((S$)),2)(T$)0S 4A$"@"10& 6I0I280I:I255II40@ 8I255II(I40)40o :""23)(SSI)" " ;""23)I" ":198,0 <""10)" VALUE: ";:9,B$: >""10)" ":B(B$):,"B-P:2,0": CH2 POS1TEMI0:198,0#10<B255(B$)160174ISSI,B:g15,"B-P:2,"(I):2,(B);vII1:164"  (N OR Y)";A$:J(A$"Y")2(A$"N")3(A$(3)):J" LEASE PUT THE IN DRIVE 0."L^" F YOU MODIFY THE DIRECTORY, "{`"THE DISK (WHEN DONE) TO UPDATE THE ."b" OTE: ISK DEVICE NUMBER IS"DN"."d" RESS TO CONTINUE"eT$" 18":S$" 1"GE BYTE UNDER CURSOR ")" [] - O TO ΒEXT BLOCK OF FILE "Y" [] - ʒUMP TO LINK UNDER CURSOR "" [] - ђUIT "" [] - ҒEWRITE CURRENT BLOCK "" [] - EW ’LOCK CV1:CM$"ET , THE ULTIMATE PROGRAM MANIPULATION SYSTEM, AT ":"fCM$CM$"YOUR LOCAL DEALER. T ADDS OVER 1100 NEW":"CM$CM$" EDITING AND DISK FUNCTIONS. PEND LESS TIME CORRECTING YOUR "CM$CM$"MISTAKES AND MORE TIME PROGRAMMING. ":"2CM$CM$" OMMODORE 64 WITHOUT IS ONLY A OMMODORE 63.5!"::CV2:CM$"**** FROM ... "CM$CM$", THE PERSONAL DATA FILER. ":"CM$CM$"TORE NOTEPF09:280% (197)43PF09:2826 4:A$""18A PF66] A$""I(I1)255:10y A$""I(I1)255:10 A$""II40:10 A$""II40:10 A$""I0:10 "A$"N"9:T$((SS)):S$((SS1)):128 $A$"J"9:T$" 0":T$" 0":116C" "r" "" "15,"U1:2,0,"T$","S$: CH2 DR015,E1$,E2$,E3$,E4$:E1$"00"156166D @" RESS Β TO END TEXT MODE.":PF1:A$:10o BA$(13)PF0:"":202:10} DA$""20 FB(A$):168 H"":202:10 J15,"I0": NA828:TEMA: FILEREAD P210,(A256):209,A256(178,72,74:176 15,"M-W"Z$(19)(2)((SS))((SS1))915,"U2:2,0,"T$","S$B130m"O DISK IN DRIVE 0""LACE DISK IN DRIVE 0, PRESS ANY KEY.":198,0A$:A$""188" $)160174SSI,B:15,"B-P:2,"(I):2,(B);.II1:164d" (N OR Y)"A$:J(A$"Y")2(A$"N")3(A$(3)):J178,72,74:17615,"M-W"Z$(19)(2)((SS))((SS1))15,"U2:2,0,"T$","S$ CP(CC) CP3939CP)(CM$,CP)"";::"V(((CM$,CP38),39)" ",39)""\ f'"$'"ROGRAM: ""ISK OCTOR 64"%'10123:")'".'"UTHOR: ON EK 174 .A$"B"116G 0A$"T""":218:"":218:64W 2A$(3)74g 4A$"@"10 6I0I280I:I255II40 8I255II(I40)40 :""10)(SSI)" ":""10)I" " <198,0:" UNDER CURSOR """ [] - ђUIT "R" [] - ҒEWRITE CURRENT BLOCK "" [] - EW ’LOCK "" [] - DD ԒEXT STRING "" [+]/[-] - CAN FORWARD/BACKWARD " 0:J0ZA$"":E$"":T$"":S$""G\"LEASE PUT THE IN DRIVE 0."v^"OU SHOULD USE THE '' COMMAND TO"`"UPDATE THE ON THE DISK WHEN DONE."b"OTE: ISK DEVICE IS"DN"."d"RESS TO CONTINUE"f ")CM$CM$", THE PERSONAL DATA FILER. ":"wCM$CM$"TORE NOTES, RECORDS, RECIPES, ETC. ON ELECTRONIC INDEX CARDS. "CM$CM$" UNDREDS OF USES AROUND THE HOME ":"CM$CM$"AND OFFICE. EE IT AT YOUR LOCA "*" "Y" "|15,"U1:2,0,"T$","S$: CH2 DR015,E1$,E2$,E3$,E4$:E1$"00"156192:E2$" #"E1$","E2$"":I1(E2$):"";::'9,0:" ':"J'" *** ***W'"'" ""HE LTIMATE ROGRAM ANIPULATION'" YSTEM FOR OMMODORE ICROCOMPUTERS."'"OW A15,"I0":"NO DISK IN DRIVE 0;"PLACE DISK IN DRIVE 0, PRESS ANY KEYNA$:A$""188T" ";"ISK OCTOR 64.0 :"(" "T$,2)":"(" "S$,2)"";"EI3'"4'"&8'"HIS PROGRAM IS PROVIDED COURTESY OF:3='"dB'" OLIDUS NTERNATIONAL ORPORATIONL'" UITE #5, 144 EST 15TH TREETV'" ORTH ANCOUVER, ..['" HNEW VALUE: ";:9,B$:A >""20)" ":B(B$):166 @" RESS [] TO END TEXT MODE":PF1:A$:10 BA$(13)PF0:"":202:10 DA$""20 FB(A$):168 H"":202:10' J15D15:" ";:=D217242:D,(D)128::"";CCV1:CM$"ET , THE ULTIMATE PROGRAM MANIPULATION SYSTEM, AT ":"CM$CM$"YOUR LOCAL DEALER. T ADDS OVER 1100 NEW":"CM$CM$" EDIT4:A$""102h10021:A$(3)74Fj1,DN,2,"0:,S,R":15,E$:E$"62"1:114slE$"64"1,E$:""E$" ON DRIVE 0"nE$"21"184p15,"I0"r2,DN,2,"#2":""t192v" "(((T$)),2)""xL DEALER."::CV2:CM$"HIS PROGRAM HAS BEEN RELEASED TO PUBLIC DOMAIN COURTESY OF "pCM$CM$"OLIDUS NTERNATIONAL ORPORATION"::"CC0248CC550CC0:CV236,224CCCC1:CC292:""";:""E2$I1(E2$):"";::C"IN "(E3$)", "(E4$):E1$"66"118a"TRY AGAIN? (CR/N OR Y)"tA$:A$""150A$"Y"13615,"I0":192:15,"B-P:2,0": CH2 POS1TEMI0:198,010B255(B'VAILABLE AT YOUR OMMODORE DEALER.O GET THE USE OUT OF YOUR NEWXt'"OMMODORE-64 COMPUTER AND YOUR DISK~'"DRIVE, WE RECOMMEND USING:'Z$(0):"'15,DN,15:"";3I18:" ";:d"""PRESS [@] - HANGE BYTE UNDER CURSOR "" [] - O TO ΒEXT BLOCK OF FILE "" [] - ʒUMP TO LINK ONE: (604)984-0477`'"(j'"O GET THE USE OUT OF YOUR NEWXt'"OMMODORE-64 COMPUTER AND YOUR DISK~'"DRIVE, WE RECOMMEND USING:'Z$(0):"'15,DN,15:","I0":"":(788)52788,49/ L:J NA828:TEMA: FILEREADu P210,(A256):209,A256(210):211,0 R""(34)(34)(20)"B ƿ @ YDз̿" T(788)49788,52: STOP KEY DISABLE V""; XSS1024120:I0:BING AND DISK FUNCTIONS. PEND LESS TIME CORRECTING YOUR "SCM$CM$"MISTAKES AND MORE TIME PROGRAMMING. ":"CM$CM$" OMMODORE 64 WITHOUT IS ONLY A OMMODORE 63.5!":CV2:CM$"**** FROM ... " "(((S$)),2)"@z"NPUT : ";:9,T$::T$(160)74w|" ":"NPUT : ";:9,S$::S$(160)74~" ":T$(((T$)),2):S$(((S$)),2)(T$)0116" ܙ ۙ/ڈ L L          18,  0.   ,   "",                DOS CHANGER 1984%E53281,0:53280,11:Q$(34)f(142)"DOS CHANGER 1984"A PUBLIC DOMAIN PROGRAM$"THIS PROGRAM WILL READ THE CURRENT DOS."VERSION ON ANY GIVEN DISKETTE AND8"ALLOW YOU TO CHANGE IT.) B THEIR3h"OWN NAME.."(34)"ODIFICATIONS BY IFF ONES"(34)")";]r"BUT TO REMOVE THE ORIGINAL AUTHORS'|"NAMES AND SUBSTITUTE YOUR OWN...THAT'S"BOTH CHILDISH AND TRANSPARENT."HAME ON YOU, RIK OSEID. "[MORE]"198,0: 1250' "LOCKED.":"UNLOCK THIS DISKK "CHANGE TO SOMETHING ELSEf "A BRIEF MESSAGEx "EXIT R$:R$""1280 R$"X""":15,"I0":15: R$"A"1510 R$"L"G$"A"P$"E":1370 (R$"U"G$"A"P$"A"  Q$(34):1008[ DISK E FILES .N1544 ( (C) 1985 BY NOEL NYMAN 2 <F:d"THE DISK DIRECTORY LISTS SEVERAL n #" THE OFTWARE RBAN ERRORIST EAGUED" ()r" IS A PUBLIC DOMAIN PROGRAM"FROM A SOURCE IN ANADA, WHICH MEANS IT"IS OKAY TO GIVE AWAY, BUT NOT TO SELL.""ECENTLY, IT HAS COME TO OUR ܙ ۙ/ڈ L L   64          ,       ,   ' ().     ,    DN8: DEVICE #N53280,11:53281,0:A$,I,S$,T$,CC,B,SS,E$,J,TE,A:78A$:A$""" ";:CC293:A$""252 I0I280I:I255II40 I255II(I40)408    .       "  "           . fLt"*** PLEASE NOTE: A DISK WITH ANYTHING\ L" OTHER THAN AN ASCII 65 ("Q$"A"Q$") WILL V" BE "Q$"LOCKED"Q$" I.E. WRITE-PROTECTED. `"INSERT DISK, PRESS RETURN j198,0:198,1:R$:R$(13)1130 t"OK. ~15:15,8,15,"I0":15198,1:R$)"F ANYONE KNOWS WHO THE ORIGINAL AUTHORV"OF IS, PLEASE FEEL FREE TO"MODIFY THIS PROGRAM TO DISPLAY THE"CORRECT AUTHOR(S)."E NOW RETURN YOU TO OUR REGULARLY"SCHEDULED PROGRAM...""[PR:1370 2R$"C"1280 <9:9,09 F"CHANGE TO: ";:9,P$:Z P(P$)0(P$)1P$((P$))e Z"OK.{ d15:15,8,15,"I0" n3:3,8,3,"#" x15,"M-W"(250)(2)(1)(171) 15,"M-W"(1)(1)(1)(65) 15,"M-W"(2)(6)(1)(65) 15,Q$"NOTE"Q$" FILES WHICH? x"DESCRIBE THE PROGRAMS ON THIS DISK.m "EACH NOTE FILE ENDS WITH "Q$".N1544"Q$ "TO READ A NOTE FILE, HOME THE CURSOR "THEN LOAD THE FILE WITH A "Q$",8,1"Q$ "WHEN THE "Q$"READY"Q$" PROMPT APPEARS,& "TYATTENTION*,"THAT  HAS PUT HIS OWN NAMEW6"ON THE NUCLEUS OF THIS UTILITY AND HAS@"BEEN PASSING IT AROUND AS HIS OWN.J"HIS IS NOT RIGHT.T"E APPLAUD ANYONE WHO MODIFIES A UBLIC^"OMAIN PROGRAM (AND EVEN TACKS ON                      .      .            -          '. fLt""10)(SSI)" ":""10)I" "n "VALUE: ":"POSITION:" J12:ISS,((ISS)128)255:D01:D,J 4:A$""18 PF66 A$""I(I1)255:10 A$""I(I1)255:10 A$""II40:10 A$""II40:103 A$""I0:10^ "A$"N"T$((SS)):S$((SS1)):128 $A$"J"T$((SSI)):S$((SSI1)):128 &A$"Q"15,"I0": (A$"+"S$((S$)1):128 *A$"-"S$(((S$)1)((S$))):128 ,A$"R",ER,ER$:ER201480! 3:3,8,3,"#"7 15,"U1";3;0;18;0I 15,"B-P";3;2T #3,G$w  *** ERROR ROUTINE GOES HERE "CURRENT DOS VERSION IS "Q$G$Q$", ASCII"(G$(0)) "THIS DISK IS "; G$"A""UNLOCKED.":"LOCK THIS DISK":)ESS ANY KEY]"198,0:198,1:R$:ONS BY IFF ONES"(34)")";]r"BUT TO REMOVE THE ORIGINAL AUTHORS'|"NAMES AND SUBSTITUTE YOUR OWN...THAT'S"BOTH CHILDISH AND TRANSPARENT."HAME ON YOU, RIK OSSEID."[MORE]"198,0:"M-W"(2)(7)(1)(65): 15,"B-P";3;2* 3,P$;@ 15,"U2";3;0;18;0[ 15,ER,ER$:ER211150v "DISK ERROR:"ER;ER$ "PRESS RETURN TO CONTINUE... 198,0:198,1:R$:R$(13)1500 " - PE "Q$"SYS1544"Q$" AND PRESS "Q$"RETURN"Q$Q "LOADING AND VIEWING NOTE FILES WILL} "NOT DISTURB ANY BASIC OR MACHINE CODE "IN MEMORY. <F:d"THE DISK DIRECTORY LISTS SEVERAL nAl C64 DISK DOCTORS002ARUN ME FIRST----------------DISK DOC64.N1544DISK DOCTOR 64----------------DISK DOC.3.N1544DISK DOCTOR.3----------------KKDOC MOVER .N1544DISK DOC MOVER----------------DOC PLUS .N1544DISK DOCTOR PLUSDR. INSTRUCTIONS----------------DOCTOR4 .N1544KK DOCTOR4 ----------------SECTOR DOC.N1544SECTOR DOCTOR)---------------- DISK BUFF .N1544 DISK BUFFER----------------KKDOS CHANGE.N1544DOS CHANGER ---------------- FILE COPIER 2.4KKKKKKKKܙ ۙ/ڈ L L  .3                          .     / *** DISK DOCTOR, REVISED BY N NYMAN 4/84CDN8: DEVICE #53280,11:53281,12:A$,I,S$,T$,CC,B,SS,E$,J,TE,A:TL18:SL0:440(I0I280I:I255II402I255II(I40)40<1190F""10)(SSI)" "% P F0:"":1080:40! A$""1102 B(A$):910O "":1080:40 15,"I0":"":(788)52788,49 : A828:TEMA: FILEREAD 210,(A256):209,A256(210):211,0""(34)(34)(20)"B  "715,"U1:2,0,"T$","S$: CH2 DR0]15,E1$,E2$,E3$,E4$:E1$"00"8501030:E2$" #"E1$","E2$ "":I1(E2$):"";:::""E2$ "IN "(E3$)", "(E4$):E1$"66"640*  (N OR Y)"FA$:J(A$"Y")2(A$"N")3(A$(3)):J960,410,420:950q15,"M-W"Z$(19)(2)((SS))((SS1))15,"U2:2,0,"T$","S$15,"I0":"NO DISK IN DRIVE 0"PLACE DISK IN DRIVE 0, PRESS ANY KEY 1270:T$(TL):S$(SL):1280:710Q A$"J"1260:T$((SSI)):S$((SSI1)):710v A$"+"1260:S$((S$)1):710 "A$"-"1260:S$(((S$)1)((S$))):710 ,A$"B"1260:630 640 @I0I280I:I255II40 JI255II(I,E$:""E$" ON DRIVE 0"XE$"21"990,b15,"I0"Bl2,DN,2,"#2":""Lv1030" "(((T$)),2)""" "(((S$)),2)""NPUT : ";:9,T$::T$(160)420T$(T$,2)#"88"PRESS [@] - HANGE BYTE UNDER CURSOR "fB" []/[] - O TO ΒEXT/̒AST BLOCK "L" [] - ʒUMP TO LINK UNDER CURSOR "V" []/[] - ВOSITION CURSOR/ђUIT "`" [] - ҒEWRITE     .  -          "    "  . fLt""15)"HEX: "Z1$;Z2$:""10)I" "[ Z"VALUE: ":"POSITION:" dJ12:ISS,((ISS)128)255:D030:D,J nA$:A$""100 xPF380 A$""I(I1)255:40 A$""I(I1)255:40 A$""II40:40  @ YD)@Yв̿"=(788)49788,52: STOP KEY DISABLEG"";cSS1024120:I0:B0:J0A$"":E$"":T$"":S$"":646,6"LEASE PUT THE IN DRIVE 0.""OU SHOULD USE THE '' COMMAND TO""UPDATE"TRY AGAIN? (CR/N OR Y)"4A$:A$""820&>A$"Y"7505H15,"I0":XR1030:15,"B-P:2,0": CH2 POS1a\TEMifI0vp:198,0~z40B255(B$)160940SSI,B:15,"B-P:2,"(I):2,(B);II1:890"A$:A$""1010-" ";v"ISK OCTOR 64.0 :"(" "T$,2)":"(" "S$,2)"";"";$I18:" ";: ."40)40< T""10)(SSI)" ":""10)I" "t ^198,0:"NEW VALUE: ";:9,B$: h""20)" ":B(B$):900 r" RESS [] TO END TEXT MODE":PF1:A$:40 |A$(13)P" ":"NPUT : ";:9,S$::S$(160)4202S$(S$,2)b" ":T$(((T$)),2):S$(((S$)),2)s(T$)0630" "" ""CURRENT BLOCK "%j" [] - EW ’LOCK "Ut" [] - DD ԒEXT STRING "~" [+]/[-] - CAN FORWARD/BACKWARD "D15:" ";:D217242:D,(D)128::"";Z(SSI):Z1(Z16)1:Z2Z((Z11)16)1/ZZ$"0123456789"UZ1$(ZZ$,Z1,1):Z2$(ZZ$,Z2,1):"POSITION: """;: I$I(I$):40Z$(0):15,DN,15:9,0:TL(T$):SLA$""II40:40$ A$""I0:40; A$"Q"15,"I0":N A$"P" 1220^ A$"R"940 A$"T""":1160:"":1160:370 A$(3)420 A$"@"320 A$"N"1260:T$((SS)):S$((SS1)):710 A$"L" THE ON THE DISK WHEN DONE."8"OTE: ISK DEVICE IS"DN"."\&"RESS TO CONTINUE"+"RESS / TO EXIT PROGRAM"0 A$:A$""560:1250:A$(3)420D1,DN,2,"0:,S,R":15,E$:E$"62"1:620 NE$"64"1ܙ ۙ/ڈ L L                                 .  DN8: DEVICE #N53280,11:53281,0:A$,I,S$,T$,CC,B,SS,E$,J,TE,A:78A$:A$""" ";:CC293:A$""252 I0I280I:I255II40 I255II(I40)408  ,"I0":"":(788)52788,49/ L:J NA828:TEMA: FILEREADu P210,(A256):209,A256(210):211,0 R""(34)(34)(20)"B ƿ @ YDз̿" T IFPEEK(788)=49THENPOKE788,52:REM STOP KEY DISABLE V"";XSS ,E4$:E1$"00"156'192:E2$" #"E1$","E2$P"":I1(E2$):"";:::""E2$jI1(E2$):"";::"IN "(E3$)", "(E4$):E1$"66"118"TRY AGAIN? (CR/N OR Y)"A$:A$""150A$"Y"13615,"4(S$):TM(T$):SM(S$):TLTM:SLSM: "Ut" [] - DD ԒEXT STRING "~" [+]/[-] - CAN FORWARD/BACKWARD "D15:" ";:D217242:D,(D)128::""; 174 .A$"B"116G 0A$"T""":218:"":218:64W 2A$(3)74g 4A$"@"10 6I0I280I:I255II40 8I255II(I40)40 :""10)(SSI)" ":""10)I" " <198,0:"r2,DN,2,"#2":"" t192Hv" "(((T$)),2)""ox" "(((S$)),2)"z"NPUT : ";:9,T$::T$(160)74|" ":"NPUT : ";:9,S$::S$(160)74~" ":T$(((T$)3)):J178,72,74:176(15,"M-W"Z$(19)(2)((SS))((SS1))325000L15,"U2:2,0,"T$","S$[15,"I0":v"NO DISK IN DRIVE 0"PLACE DISK IN DRIVE 0, PRESS ANY KEYA$:A$""188" fLt1544""10)(SSI)" ":""10)I" "n "VALUE: ":"POSITION:" J12:ISS,((ISS)128)255:D01:D,J 4:A$""18 PF66 A$""I(I1)255:10 A$""I(I1)255:10 A$"1024120:I0:B0:J0$ZA$"":E$"":T$"":S$""U\"LEASE PUT THE IN DRIVE 0."]"ODIFIED TO BE USED FOR SECTOR COPYING BY 10/13/83^"OU SHOULD USE THE '' COMMAND TO"`"UPDATE THE ON THE DISI0":192:15,"B-P:2,0": CH2 POS1TEM"I0/:198,0710PB255(B$)160174]SSI,B:{15,"B-P:2,"(I):2,(B);II1:164" (N OR Y)"A$:J(A$"Y")2(A$"N")3(A$( BYTE UNDER CURSOR ")" [] - O TO ΒEXT BLOCK OF FILE "Y" [] - ʒUMP TO LINK UNDER CURSOR "" [] - ђUIT "" [] - ҒEWRITE CURRENT BLOCK "" [] - EW ’LOCK NEW VALUE: ";:9,B$:A >""20)" ":B(B$):166 @" RESS [] TO END TEXT MODE":PF1:A$:10 BA$(13)PF0:"":202:10 DA$""20 FB(A$):168 H"":202:10' J15),2):S$(((S$)),2)(T$)0116W" "" "" "15,"U1:2,0,"T$","S$: CH2 DR015,E1$,E2$,E3$ ";7"ISK OCTOR 64.0 :"(" "T$,2)":"(" "S$,2)"";h"";I18:" ";:"""PRESS [@] - HANGE "" [] - DD ԒEXT STRING "G" [+]/[-] - CAN FORWARD/BACKWARD "D15:" ";:D217242:D,(D)128::"";CV1:CM$"ET , THE ULTIMATE PROGRAM MANIPU"II40:10 A$""II40:103 A$""I0:10^ "A$"N"T$((SS)):S$((SS1)):128 $A$"J"T$((SSI)):S$((SSI1)):128 &A$"Q"15,"I0": (A$"+"S$((S$)1):128 *A$"-"S$(((S$)1)((S$))):128 ,A$"R"K WHEN DONE."%b"OTE: ISK DEVICE IS"DN"."Id"RESS TO CONTINUE"[f4:A$""102rh10021:A$(3)74j1,DN,2,"0:,S,R":15,E$:E$"62"1:114lE$"64"1,E$:""E$" ON DRIVE 0"nE$"21"184p15,"I0" "CM$CM$" UNDREDS OF USES AROUND THE HOME ":"MCM$CM$"AND OFFICE. EE IT AT YOUR LOCAL DEALER."U:CV2:CM$"HIS PROGRAM HAS BEEN RELEASED TO PUBLIC DOMAIN COURTESY OF "CM$CM$"OLIDUS NTERNATIONAL ORPORATION"::" E LTIMATE ROGRAM ANIPULATION%'" YSTEM FOR OMMODORE ICROCOMPUTERS."\'"OW AVAILABLE AT YOUR OMMODORE DEALER.oa MODIFICATIONza2:15a "WRITE TO TRACK";T$a "WRITE TO SECTOR";S$a15,DN,15a2,DN,2,"#2" " 53280,15:53281,12:Q$(34)X"ISK OCTOR NSTRUCTIONS""HESE INSTRUCTIONS CAN ALSO BE USED WITH";("THE ORIGINAL ISK OCTOR. NY CHANGES"2"WILL BE NOTED."<"OAD AND RUN THE PROGRAM FROM DISK: G OF"* W"TEXT BY PRESSING "Q$""Q$", THEN TYPING"Y X"YOUR TEXT FROM THE KEYBOARD. RESS THE" Y" KEY TO SIGNAL COMPLETION." ^"UT REMEMBER, IF YOU CHANGE ANYTHING, IT"; h"IS ONLY CHANGED IN THE COMPUTER'S MEMORY"; r"ԠӠ LATION SYSTEM, AT ":"4CM$CM$"YOUR LOCAL DEALER. T ADDS OVER 1100 NEW":"CM$CM$" EDITING AND DISK FUNCTIONS. PEND LESS TIME CORRECTING YOUR "CM$CM$"MISTAKES AND MORE TIME PROGRAMMING. ":"CM$CM$" OMMODORE 64 WITHOUT  UITE #5, 144 EST 15TH TREET%V'" ORTH ANCOUVER, ..O['" HONE: (604)984-0477\`'"j'"O GET THE USE OUT OF YOUR NEWt'"OMMODORE-64 COMPUTER AND YOUR DISK~'"DRIVE, W"( "ITH ISK OCTOR , YOU CAN STILL"S "CHOOSE YOUR OWN TRACK AND SECTOR BY" "SELECTING THE OPTION (EXPLAINED LATER)"; "BUT USUALLY YOU WILL WANT THE DIRECTORY.":9999 ,"HE TOP HALF OF THE SCREEN WILL SHOW THE"; 6"CONTEND TOGETHER."1"HE FIRST TWO BYTES OF EACH SECTOR POINT";Y"TO THE NEXT SECTOR OF THE FILE."&"ISK OCTOR WILL GO TO THE NEXT SECTOR"0"IF YOU PRESS "Q$""Q$".":"R IF THE CURSOR IS AT POSITION 0, YOU"D"CAN PRESS "Q$""Q$" CC0248CC550CC0:CV236,224CCCC1:CC292:"?"";LCP(CC)sCP3939CP)(CM$,CP)"";::"(((CM$,CP38),39)" ",39)"" '"$'"aMEND USING:'Z$(0):"<'15,DN,15:"c'9,0:"':"'" *** ***'"'" ""H"& F""Q$" "Q$",8"7 P"":9999f d"EMOVE THE DISK CONTAINING ISK OCTOR," n"AND INSERT THE ONE YOU NEED TO EXAMINE." x"ISK OCTOR ASKS YOU TO PRESS ANY KEY" "AFTER INSERTING THE SICK DISK. HEN"! "YOU D."+|"O PERMANENTLY CHANGE THE DISK, YOU NEED";Z"TO REWRITE THIS SECTOR BACK TO THE DISK""AGAIN BY PRESSING "Q$""Q$".":9999"EARLY ALL PROGRAMS ARE MORE THAN ONE""SECTOR LONG. HEY ARE MANY SECTORS THAT";"ARE LINKE IS ONLY A OMMODORE 63.5!":UCV2:CM$"**** FROM ... "CM$CM$", THE PERSONAL DATA FILER. ":"CM$CM$"TORE NOTES, RECORDS, RECIPES, ETC. ON ELECTRONIC INDEX CARDS.E RECOMMEND USING:'Z$(0):"<'15,DN,15:"c'9,0:"':"'" *** ***'"'" ""HTS OF THE CHOSEN SECTOR."B @"HE CURSOR KEYS WILL MOVE THE CURSOR TO"m J"ANY BYTE DESIRED. HIS BYTE CAN BE" T"CHANGED BY PRESSING THE "Q$"@"Q$" KEY." U"F YOU WISH TO CHANGE MORE THAN ONE BYTE"; V"AT A TIME, YOU CAN ENTER ANY STRINTO JUMP TO THE NEXT"5N"SECTOR. ORE ABOUT THE "Q$""Q$" COMMAND"IX"LATER.":9999v"F YOU ACCIDENTALLY JUMP TOO FAR, YOU""CAN JUMP BACK TO THE PREVIOUS SECTOR BY""HOLDING DOWN THE KEY AND PRESSING" Q$""Q$" OR "Q$""Q$ROGRAM: ""ISK OCTOR 64"%'10123:"#)'"A.'"UTHOR: ON EKEIN3'"[4'"8'"HIS PROGRAM IS PROVIDED COURTESY OF:='"B'" OLIDUS NTERNATIONAL ORPORATIONL'"". OU CAN JUMP A MAXIMUM OF"-"THREE SECTORS BACKWARDS."^": HE ORIGINAL ISK OCTOR DOES NOT";"HAVE THIS "Q$"BACKWARDS JUMP"Q$" FEATURE.""OTICE AS YOU JUMP FORWARDS, THAT THE" "SECTORS ARE NOT IN ANY PARTICULAR ORDERO THIS, YOU WILL BE SHOWN THE FIRST";O "SECTOR OF DIRECTORY ENTRIES (TRACK 18,"b "SECTOR 1)." ": HE ORIGINAL ISK OCTOR DOES NOT" "AUTOMATICALLY GO TO THE DIRECTORY. T" "ASKS YOU TO CHOOSE YOUR OWN TRACK AND" "SECTOR.EED TO CORRECT THE DATA AND" "WRITE IT BACK TO THE DISK."< "HIS CAN BE DONE EASILY IF YOU HAVE A"k "BACKUP COPY OF YOUR DISK (YOU KEEP A" "BACKUP, DON'T YOU?)." "LACE THE GOOD DISK IN THE DRIVE AND" "READ IN THE PROPER  NG DOWN THE "Q$"-"Q$" KEY WILL SCAN"!"IN REVERSE."P": N THE ORIGINAL ISK OCTOR, YOU""CANNOT CONTINUOUSLY SCAN BY HOLDING DOWN";"EITHER KEY. NSTEAD, YOU MUST KEEP""TAPPING THEM TO KEEP SCANNING.":9999L"F YOU  FEATURE.":9999x"OU CAN QUIT ISK OCTOR AT ANY TIME BY"U"PRESSING EITHER "Q$""Q$" OR THE / KEY.""OMETIMES IT WILL BE FASTER TO USE "Q$""Q$"TO JUMP TO A SPECIFIC TRACK AND SECTOR""THAN TO USE "Q$"+"Q$" OR "Q$"-"Q "FRONT OF THE NAME TELL WHERE THE PROGRAM";"STARTS ON THE DISK."K"HE FIRST BYTE SHOWS THE TRACK. HE"y"SECOND BYTE SHOWS THE SECTOR. ND THE""NEXT BYTES SHOW THE PROGRAM NAME.""OVE THE CURSOR OVER THE BYTE CONTAINING THINGS WITH""H"IT IF YOU KNOW HOW TO USE IT.".#R"HESE INSTRUCTIONS HAVE GIVEN YOU A VERY";\#\"BRIEF INSIGHT INTO ISK OCTOR. ON'T"#f"STOP HERE. XPERIMENT WITH IT FURTHER."#p"ACKUP A NON-CRITICAL DISK AND PLAY WITH";#z"THE V .";"HIS MAY BE CONFUSING TO YOU, BUT NOT"N "THE COMPUTER. ON'T WORRY ABOUT IT.":9999"OU MAY WISH TO SCAN THROUGH THE SECTORS";"IN ORDER. EMEMBER, NO PROGRAM FILE""WILL BE IN THIS ORDER. OWEVER, THERE""MAY BE VARHE ORIGINAL ISK OCTOR DOES NOT";1"HAVE THIS FEATURE. CANNING PAST THE"e"END OF A TRACK WILL GENERATE AN ERROR.":9999"F YOU WISH TO SCAN THROUGH THE TRACKS""INSTEAD OF SECTORS, SIMPLY HOLD DOWN THE";(" KEY WHILE HOLDIR 1"""CONTAINS THE FIRST EIGHT DIRECTORY"5,"ENTRIES. NY SUCCESIVE ENTRIES WILL BE"c6"FOUND ON TRACK 18 SECTOR 4, ETC. UST"@"FOLLOW THE FIRST TWO BYTES OF EACH"J"SECTOR WHICH INDICATE THE NEXT TRACK AND";T"SECTOR."^"SECTOR. RESS "Q$""Q$" TO";!"COPY THE SECTOR TO THE DAMAGED DISK."E!"ISK OCTOR WILL ASK YOU TO REMOVE THE"r!"GOOD DISK AND REPLACE IT WITH THE BAD"!"ONE, THEN PRESS . HE CORRECT"!"INFORMATION WILL BE WRITTEN TO THE DISKSCAN FORWARDS, ISK OCTOR WILL"7V"WRAP AROUND TO THE BEGINNING OF THE NEXT";e`"TRACK, AFTER REACHING THE END OF ONE."j"ND IF WHILE SCANNING BACKWARDS YOU"t"REACH THE BEGINNING OF A TRACK, ISK"~"OCTOR WILL WRAP AROUND TO THE EN$" TO GET THERE."!"FTER PRESSING "Q$""Q$", YOU WILL BE ASKED"P"WHICH TRACK AND SECTOR YOU WANT. FTER""ENTERING THE INFORMATION, YOU WILL JUMP""THERE IMMEDIATELY.":9999"RESSING "Q$""Q$" CAUSES ISK OCTOR TO JUMP"";"THE TRACK, THEN PRESS "Q$""Q$". OU WILL"4"JUMP TO THE BEGINNING OF THE PROGRAM."c"HIS IS A VERY COMMON PROCEEDURE.":9999l"ISK OCTOR CAN REPAIR A DAMAGED DISK,"v"UNLESS THE DAMAGE IS PHYSICAL. O DO""THIS, YOU NARIOUS COMMANDS."$"ND READ YOUR DISK MANUAL OVER SEVERAL"7$"TIMES. T IS NOT EASY READING, BUT THE"c$"INFORMATION TO BE FOUND THERE CAN BE"~$"EXTREMELY USEFUL."$"OOD LUCK.":$'"RESS ANY KEY TOIOUS REASONS YOU WANT TO VIEW"1"THE SECTORS IN SEQUENTIAL ORDER."a"HIS IS DONE BY HOLDING DOWN THE "Q$"+"Q$"KEY. S LONG AS THIS KEY IS HELD DOWN,""ISK OCTOR WILL CONTINUE TO SCAN""FORWARDS THROUGH THE DISK." "OLDING DOWN EITHER THE"2Q$"+"Q$" OR "Q$"-"Q$" KEYS."G<"HE USUAL WRAP AROUND APPLIES: WHEN YOU";uF"REACH ONE END OF THE DISK, ISK OCTOR"P"WRAPS AROUND TO THE OTHER END."Z": HE ORIGINAL ISK OCTOR DOES NOT";d"HAVE THISACH TRACK CONTAINS THE NAMES OF UP TO"*h"EIGHT PROGRAMS. ND THIS IS WHERE THE"\rQ$""Q$" COMMAND COMES IN HANDY. ET'S SEE"w|"HOW IT WORKS.":9999"HE NAMES OF THE PROGRAMS WILL BE EASY""TO SEE. HE TWO BYTES IMMEDIATELY IN".""": HE ORIGINAL ISK OCTOR DOES NOT";1""HAVE THIS FEATURE. F YOU OPEN THE DISK";b" "DRIVE, YOU CANNOT WRITE ANYTHING FURTHER";|" "TO THE DISK.":9999"4"ISK OCTOR IS A TOOL. ND LIKE ANY"">"OTHER TOOL, YOU CAN DO MANYD OF""THE PREVIOUS TRACK."2"OING FORWARDS AT THE END OF THE DISK"`"(TRACK 35, SECTOR 16) WILL WRAP AROUND""TO THE BEGINNING OF THE DISK (TRACK 1,""SECTOR 0). HE SAME APPLIES IF SCANNING";"BACKWARDS."": "TO THE TRACK AND SECTOR FOUND UNDER THE"1"BLINKING CURSOR ON THE TOP HALF OF THE"["SCREEN. HIS IS USUALLY USED WHEN""VIEWING THE DIRECTORY SECTORS.""RACK 18 SECTOR 0 CONTAINS THE AND""DISK NAME AND ID. RACK 18 SECTO CONTINUE.";$'197,64,64:198,0:"";:% N" OHN . LSEN R.'%!N" .. OX 181E%"N" EWBERG, R 97132`%#N" (503) 538-3031 HERE. XPERIMENT WITH IT FURTHER."#p"ACKUP A NON-CRITICAL DISK AND PLAY WITH";#z"THE V ܙ ۙ/ڈ L L                      .                K" INITIALISING":" (INITIALIZING)"A$(15),NB(2),BA$(128),ML$(255):TE828:1:2:15SB$(150),TB$(150):TB$(0)"18":SB$(0)"0":ML1:BA1:1800:QQ1:S40HE$"0123456789" 210,(TE256):209, 0 15,"I"DR$ 2,Q,2,"#2":""5 S41S40:990:310 990:T(T$):S(S$):"NPUT RACK "T"";:T$:T$(160)1260 " RACK :" (T$,1)"L"T$TB$(0):S$SB$(0):320 "(T$,1)"Q"12602,"NPUT ":" DISK ERROR #"E1$:"":E2$" IN TRACK"(E3$)", SECTOR"(E4$):"TRY AGAIN? (CR/N OR Y)"qA$:A$""430A$"Y"35015,"I"DR$:59015,"B-P:2,0":C""18)((C),2)QQ1C0CC1TEM:I0198,0:600 R$:15:2:1:200X910EbA$:PISS:J12:P,((P)128)255:D01:D,J:PF1210cvA$"B"BABA:2330:600A$""I(I1)255:600A$""I(I1)255:600A$""I0:600A$""II40:600A$"L"1600:320A$"R DRIVE NUMBER" : " RESS THE  _ KEY TO EXIT "k "RESS (ALMOST) ANY OTHER KEY TO CONTINUE" "OURTESY OF OLIDUS, HE ANCOUVER SER" " ROUP, AND MANY UNKNOWN PROGRAMMERS" "(OME OF WHOM TRY TO SELL THIS PROGRA00A$"S"C0:260A$"D"2700#A$"H"2800D A$"T""":1200jA$"C"C1:""18)((C),2):C2*J(A$"R")2(A$"")3(A$"Q")4(A$"I")5(A$"")6(A$(3))/J2900,1360,1260,600,600,1260>A$"@"6001I255II(I40)40@SC(SSI):H$"":LSC16:L%L:L$(48L%(L%9)7):H$H$L$sL16(LL%):L%L:L$(48L%(L%9)7):H$H$L$""17)"OS :AL :"""22)I" """33)SC" "32)": $"(H   .             ""           . fLt1544TE256(210):211,0O ""(34)(34)(20)"B ƿ @ YD)GYв̿" 53280,11:53281,0:646,13:""(14):SS1144:I0:P0:B0 (J0:SU1082:C0:A$"":E$"":T$" 18":S$" 0":DR$"0":DV$"8" x"  ISK OCTOR 64  ECTOR "S:"";:S$:S$(160)1260Z6QQ1:CTB$(C)TB$(0):SB$(C)SB$(0)@T((T$)):S((S$)):T35C0:260TS20C0:260^15,"U1:2,"DR$","T$","S$:990:15,E1$,E2$,E3$,E4$:E1$"00"460^|"B255(B$)1605508SSI,B:15,"B-P:2,"(I):2,(B);:II1:500Y&" (N OR Y)"0A$:J(A$"Y")2(A$"N")3(A$(3)):J570,1250,1260:560:15,"M-W"(0)(19)(2)((SS))((SS1)):15,"U2:2,"DR$","T$","S$N15,"I"D"II40:600 A$"P"2300)A$"-"S$((S$)1):320HA$"+"S$((S$)1):320zA$"N"TB$(0)T$:SB$(0)S$:T$((SS)):2910A$"J"TB$(0)T$:SB$(0)S$:T$((SSI)):S$((SSI1)):310A$"M"MLML:2350:600A$"P"23M"* " EVEN THOUGH IT'S IN UBLIC OMAIN!)"7 Q(DV$)J A$:A$""191[ A$"\"2470v A$"_"15,Q,15:1260 15,Q,15:1,Q,2,DR$":,S,R":15,E$,EE$ E$"62"1:250 E$"64"""EE$" ON DRIVE "DR$: E$"21"87H910:""21)" EW ALUE : ";:B$:B$""500`\""19)" ":B(B$):510f"NO DISK IN DRIVE "DR$".":"PLACE DISK IN DRIVE "DR$" PRESS ANY KEY."zA$:A$""890I0I280I:I255II40$,2)BA0950SC128SC203SC255950E"ASIC TOKEN :":""14)BA$(SC127)""N951W951" "ML0960ML$(SC)""960"̒ :"(ML$(SC)" ",15)"":970"  "K1(197):K1K2197,0K2K1:P" ";"ISK OCTOR 64 RACK:"(" "T$,2)"ECTOR:";(" "S$,2)"";"";I18:"  "* " EFAULTS TO EVICE #8, RIVE 0"^ " UT THE DISK TO BE EXAMINED IN DRIVE "DR$" " OU SHOULD USE THE '' COMMAND TO"" " UPDATE THE ON THE DISK WHEN DONE " RESS THE  \ KEY TO CHANGE" " DEVICE O"&" ADDR16,",,,," ADDR16,"," ADDR16,",,," (ADDR,)",,Q&" ADDR"," ADDR"," ADDR",,"",,"",," ADDR16"& " ADDR16"," ADDR16",," DISP","(ADDR),",,," ADDR,"&" ADDR,"," ADDR,",,""," CURSOR ЙOSITION" d" [D/H] - ęECIMAL/șEX VECTOR"Hf" [] - HEX TO ЙRINTER"" [+/-] - +/- ONE SECTOR":2330:2350D217242:D,(D)128::"[Β]":"TO END":"EXT":"M ,(C$)128(C$)1596C$(SS$,3((C$)127),3)::30%@QQCC1:C0C07BTM$T$:SM$S$vEQQ0:QN1:C0T$TB$(0):S$SB$(0):TB$(0)TM$:SB$(0)SM$:JT$TB$(C):S$SB$(C):CCC1:C0C0TC10C0:""18)" "^ X ADDR,"," ADDR,",,"" $" ADDR16,",,,," ADDR16,"," ADDR16,X",,""h$" (ADDR,)",,,," ADDR"," ADDR",,""," DATA"," ",$" LABEL"," ADDR16"," ADDR16",," DISP"," (ADDR),",,,$" ADDR,"," ,,,," ADDR,")f" ADDR,",,""," ADDR16,",,,," ADDR16,"," ADDR16,",a)p" DATA"," (ADDR,)",,," ADDR"," ADDR"," ADDR",,"")z" DATA","",," ADDR16"," ADDR16"," ADDR16",," DISP")" (ADDR) ";:4""d" ""RESS [@] - CHANGE BYTE UNDER CURSOR"" [N/L] - JMP TO ΙEXT / ̙AST SECTOR"8" [J] - 3456789ABCDEF"ZSS$" ":L192223:SS$SS$""(L)"":L:4Od4," TRACK "T$" SECTOR "S$:4:15,"B-P";2;0qn#2,A$(0):A$(0)""A$(0)NL$K1:NB(1)(A$(0)):U015:LK15:#2,A$(L):A$(L)""A$(L)NL$K1L2NB(2)(A$(L))","","$","","","$","$","$","$""X""."lX0254:A$:ML$(X)A$:s"v""," (ADDR,)",,,," ADDR"," ADDR",,""," DATA""" ",,," ADDR16"," ADDR16",," DISP"," (ADDR),",,,#" ADDR, ADDR16,","",,' " ADDR16,",,," DATA"," (ADDR,X)"," DATA",," ADDR"_'*" ADDR"," ADDR",,""," DATA","",," ADDR16"q'/" ADDR16"'4" ADDR16",," DISP"," (ADDR),",,," ADDR,"," ADDR,"'>ODE":PF1:A$:600K20:A$(13)PF0:"":1040:6004A$"@"B0:520CA$""610TB(A$):520r"":1040:60015,"I"DR$:2:1:15:2500R04:15,"M-R"(64R)(67):#15,I$(R)::I0$I$(0)I$(1):I1$I$(176:A$:BA$(X)(A$" ",7)::BA$(128)"PI "P "","","","","#","","","","","" "","","","","","","","","","" &"","","","","#","" ADDR,",,""," ADDR16,",,,," ADDR16,"B%" ADDR16,",,""," (ADDR,)",,,," ADDR"," ADDR",,""%" DATA","Ҡ",," (LABEL)"," ADDR16"," ADDR16",%" DISP"," (ADDR),",,,," ADDR,"," ADDR,",,",",,,," ADDR,"*" ADDR,",,""," ADDR16,",,,," ADDR16,"," ADDR16,",, *Y*""22)" ";n* I$:I(I$):600* BA0""21)"™ASIC":*$ ""ʙUMP TO LINK UNDER CURSOR"/:" [Q/R] - љUIT / ҙEWRITE SECTOR"d<" [B/M] - TOGGLE ™ASIC/͙ DISPLAY">" [S/C] - NEW әECTOR / START ÙOUNT"`" [T] - ADD ԙEXT STRING"b" [P] - NEW L:K0:A$"":B$":":NU16:1540:A$A$":":L015:N(A$(L))91540:C$A$(L):1570:B$B$C$:Lg4,A$B$:U:4,(13):4,(27)(64):4:500A1(N16):A$A$(HX$,A11,1):A2(N16A1):A$A$(HX$,A21,1):A$A$SP$:"(C$)32C$" ":"," ADDR,",,""," ADDR16,",,,," ADDR16,"I#" ADDR16,",," LABEL"," (ADDR,)",,," ADDR"," ADDR"Z#" ADDR",#""," DATA"," ",," ADDR16"," ADDR16"," ADDR16",#" DISP"," (ADDR),",,,,"" ADDR,",,""," ADDR16,","",," ADDR16,"C(H" ADDR16,"," ADDR16,",," DATA"," (ADDR,)",,," ADDR"(R" ADDR"," ADDR",,""," DATA","",," ADDR16"(\" ADDR16"," ADDR16",," DISP"," (ADDR),"2)I$(3):ID$I0$:DR$"1"ID$I1$'("RIVE "DR$:".= "ID$:<"USH ":".=....";:PI$:PI$(PI$,4):15,"M-W"(64)(67)(4)IP$:SU40,201:SU39,196:600P4,4,6:4,(27)(64):SP$" ":NL$(0):HX$"012,"","",""-!0"","","","","","","(","","","(",""v!:"","","+","-","*","/","^","","",">","=","<","",""!D"","","","","","","","","","","""N"","K 21)"ASIC":*. ML0""27)"͙": +8 ""27)"̙":E+ "":"EVICE NUMBER 8";DV$f+ "RIVE NUMBER 0";DR$x+ Q(DV$):200+ "":X((0)10)1+ X2500,2520,2530,2540,2550,2560,25K6):A1$(HE$,A11,1)/, A2N(16A1):A2$(HE$,A21,1)/6 H$H$A1$A2$: 0T S41:55010^ S$((SS1)):QN1QN0:C0CC1:0h 310RAID TO MAKE A FOOL".- " OF YOURSELF. F YOU DON'T, SOMEBODY".2 " ELSE WILL!":. N1(SSI)((SKK IN SECONDS!"-% X911:""18)X:I1500::/.& "":53281,2:53280,2:15,Q,15,"I"DR$:15:64738U.( "ON'T BE AFRAID TO MAKE A FOOL".- " OF YOURSELF. F YOU DON'T, SOMEBODY".2 " ELSE WILL!":. N1(SSI)((SKK70,2580,2590,2600+ "AVE A NICE DAY!":, "LD DISK DRIVES NEVER DIE..."/, " THEY JUST LOSE THEIR .":T, "LL'S TO BE FEAR'D WHERE ALL "w, " IS TO BE LOST!(YRON)":, "AY THE BE WITH YOU!":, "ON'T FORGET TO ALIKKKKSI1)256). ""20)""(N1)" ". X1750:/ ""20)" ":600G/ H$"":N(SSI1):2850:N(SSI):2850l/ ""20)" "H$" "{/ X1750:/ ""20)" ":600/" A1(N1KKDATE ":, "'IS BETTER TO HAVE D AND LOST"- "HAN NEVER TO HAVE D AT ALL.":3- "IME YOU ENJOY WASTING"V- " IS NOT WASTED TIME.":- "OU'VE MADE A CATASTROPHIC !!!"-" "OUR DISK DRIVE WILL SELF DESTRUCT"-$ " KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK