ECTOR";S$: S(S$): S0 S19 3820," "WHAT IS THE FIRST BYTE": "OF THE FILE YOU WISH"B"( "TO UNSCRATCH?"L"<4600h"P "SELECT FILE TYPE:""d " 1. SEQUENTIAL""x " 2. PROGRAM"" " 3. USER"" " 4. RELATIVE"" "WH _ȥ`!LL1L˓ ` Lt <8 L7  iӠ ҕ: LM:  L. ! ͽ> ` ݽȹ1: ESTARjTERMINA@TRACŮTROFUNNEכVCHANGż@Г=zL("$J;78 ia_ 'Iԩ" w ކL1 0/+ iai  "L7 l ꓍ Lߓlx_ ()L7 ! ͽ_`IVL LɦH?h`H?hL- !  H h  8`ȹ` y' s"8L de` "#8`xA >X8ɐ8 \L7 ? 15,8,15215,"M-W";(106)(0)(1)(133); 15*****, * CLOSE DISPLAY T&S FILES *?, ***************************M,2:15:4S,(c,<(A$,2);:,P **************************,d * CLOSE FILES AND UPDATE *,x * DISK BAM TO RECOVER *, * UNSCRATCHED FILES * - **************************-2:15:4I-"VALIDATE DISK TO UPDATE BAM?","(Y/N)"]-"************"q-"* CAUTION! *"-"************"-"WILL DESTROY RELATIVE FILES!"-, Z$:ANNEL*$ 15: CLOSE COMMAND CHANNEL1+85000: 1560: RESTART DISPLAY T&S PROGRAM IF APPENDEDT+L ****************************w+` * REOPEN DISPLAY T&S FILES *+t ****************************+15,8,15,"I"D$:1900+(BP226)(pBS14680: REJECT INVALID INPUT(8)15,8,15,"I": OPEN COMMAND CHANNEL TO DISKx)8,8,8,"#": OPEN DIRECT ACCESS CHANNEL TO DISK)15,"U1:"8;0;18;S: LOAD SECTOR CONTAINING FILE TO BE SCRATC SET TO PERMANENTLY DELETE' A2 B128: SET TO LEAVE ON DIRECTORYR'"WHICH SECTOR";S$: S(S$): S0 S19 4520'"WHAT IS THE FIRST BYTE":"OF THE FILE YOU WISH"' "TO SCRATCH?"'4600:4760'"INPUT MUS RETURN CHANGED CONTENTS TO TARGET SECTOR5%|4880: CLOSE CHANNELS AND RETURN TO MAIN MENUR% **********************o% * SCRATCH OR *% * SCRATCH AND LEAVE *% * ON DIRECTORY *% ********************ICH ONE?"" A$: A$"" 4040'#A(A$): A1 A4 4040: REJECT INVALID CHOICEm#BA128: SET INPUT BYTE TO MATCH DOS FILE CODES# 15,8,15,"I": OPEN COMMAND CHANNEL TO DISK# 8,8,8,"#": OPEN L0 ` S  " T  8 LZ   +-. PL7+ 3L1 2H$ h LHJJJJ ϖh) ϖ` ii0 `ȱzG ͽX (23001L7LL XL7I&'`HHH hhhL,  LZ P ͽL OQȹQ0-QLzAȹQLȹQML'L|AUTBSAV'CA/CHANGԛDEFAULDELETŶDLIS(DUMWER8FINțHELIN‘KEٕLLISԐMEMOR9MERG%MONITONUMBEҦQUIREAgRENURESAVSCRATCSENSPEL‘ QGB ,$ E()V` l  l , PH  7  $  < i$-L B : Z$""5420-@ Z$"Y" 15,8,15:15,"V0":15-T**********, * CLOSE DISPLAY T&S FILES *?, ***************************M,2:15:4S,(c,<(A$,2);:,P **************************,d * CLOSE FILES AND UPDATE *,x * DIS4,4+ 2,8,2,"#":1900++ ***************************, * CLOSE DISPLAY T&S FILES *?, ***************************M,2:15:4S,(c,<(A$,2);:,P **************************,d * CLOSE FILES AND UPDATE *,x * DISHED)15,"B-P:"8;BP: SET BUFFER POINTER TO TARGET ADDRESSC*8,(B);: CHANGE TARGET FILE CODE IN CHANNEL 8 BUFFER*15,"U2:"8;0;18;S: RETURN CHANGED CONTENTS TO TARGET SECTOR* 8: CLOSE DIRECT ACCESS CHT BE IN DECIMAL."' "2, 34, 66, 98, 130, 162, 194, 226"( "FOR BYTE LOCATIONS OF"@(4"2, 22, 42, 62, 82, A2, C2, E2"}(H BP$: BP(BP$): INPUT FILE TARGET BYTE FOR SCRATCH(\BS(BP2)(BP34)(BP66)(BP98)(BP130)(BP162)(BP194)**%5080: TO CLOSE OPEN FILES &"SELECT OPTION:"(&"1. COMPLETE SCRATCH"F&0 "2. SCRATCH, BUT LEAVE"^&D" ON DIRECTORY"v&X A$: A$"" 4440&lA(A$): A1 A2 4440: REJECT INVALID INPUT& A1 B0:  DIRECT ACCESS CHANNEL TO DISK-$,15,"U1:"8;0;18;S: LOAD SECTOR CONTAINING FILE TO BE UNSCRATCHEDl$@15,"B-P:"8;BP: SET BUFFER POINTER TO TARGET ADDRESS$T8, (B);: CHANGE TARGET FILE CODE IN CHANNEL 8 BUFFER$h15,"U2:"8;0;18;S: *****************************: p * READ & CRT DISPLAY *`  * REST OF THE DISK BUFFER *  ***************************** K1:NB(1)(A$(0)):M1 K0:J063:J16J32J482020:Z$"N"J80:1160 15,"B-P:2"(J4)  ANNEL 815,"U1:"8;0;18;0: READ TRACK 18, SECTOR 0 INTO CHANNEL 8 BUFFERd L15,"B-P:"8;162: MOVE BUFFER-POINTER TO FIRST BYTE OF DISK ID `8,ID$;: PUT NEW ID IN CHANNEL 8 BUFFER, REPLACING OLD ID t15,"U2:"8;0;18;0: STORE  8, DN$;: PUT NEW NAME IN CHANNEL 8 BUFFER, REPLACING OLD NAMEQ\ 15,"U2:"8;0;18;0: WRITE BUFFER WITH NAME CHANGEDp 4880: CLOSE CHANNELS AND RETURN TO MAIN MENU ****************** * PROGRAM #2 * *  * CHANGE DISK NAME *  **********************: 5080: TO CLOSE OPEN FILESU "NEW DISK NAME";DN$ (DN$)16 DN$DN$(160):3280: STRETCH TO 16 CHARS (DN$)16 DN$(DN$,16): SHORTEN NAME TO 16 CHARACTERS16: Z$(HX$,I,1)N1N1(I1)(16J1) h I>| J1:Z$(13)Z$:15,"B-P:2",CS:2,Z9$;:2080r IF RETURN KEY HIT MAKE CHANGES IN DISK BUFFER NN1:A$"":2260:5180:","; ADD NEWLY CHANGED BYTE TO PREVIOUS CHANGES IN Z9$ OINT FOR CHANGE 0-FF": CS$.< Z0 (HX$): (HX$,Z1,1)(CS$,1)TXZ16OP (HX$,Z1,1)(CS$,1)TYZ^d :CSTYTXx 15,"B-P:2",CSTART : POSITION TO START #2,A$(0) A$(0)""A$(0)NL$ N(A$(0)) A$"":226EX PRINT * **************************5 A1(N16):A$A$(HX$,A11,1)[$ A2(N16A1):A$A$(HX$,A21,1)k8 A$A$SP$:L *************************` * CHANGE DISK BYTE TO *t * ASC DISPLAY CHARACTOR *  *****************************4 * SCREEN CONTINUE MESSAGE *X  ***************************** "CONTINUE(Y/N)"," CHANGE (C)"," REWRITE (W)",4" END (E)"HZ$:Z$"" 2120\ Z$"C" 2520: CHANGE DATA INR (Y, N, D, I, U, S, E) Z$: Z$"" 1680> Z$"Y" TNB(1):SNB(2):620P Z$"N" 600v Z$"D"3240: CHANGE DISK NAME Z$"I"3540: CHANGE DISK ID Z$"U"3820: UNSCRATCH FILES Z$"S"4340: SCRATCH FILES Z:B$":":NJ16:2260:A$A$":"Cx I0 15:N(A$(I)):2260: Z$"N" J40:1500_C$A$(I):2380:B$B$C$g I JJ$"P" 4,A$B$ J:1500******************************* NEXT TRACK AND SECTOR ******************** IK 3$#2,A$(I): A$(I)"" A$(I)NL$E M1 I2 NB(2)(A$(I))U$ I:K0:M2|8A$"":B$":":NJ4:2260:A$A$":"L I0 3:N(A$(I)):2260`C$A$(I):2380:B$B$C$t I: JJ$"S" A$B$ J: J80 2020150BUFFER TO DISK!4880: CLOSE CHANNELS AND RETURN TO MAIN MENU>! ***********************]! * PROGRAM #3 * *|! * UNSCRATCH FILES *ID *! ***********************!5080: TO CLOSE OPEN FILES! "WHICH SCHANGE DISK ID * ****************** 5080: CLOSES OPEN FILES5 "NEW DISK ID";ID$h (ID$)2 3540: REJECT IMPROPER ID LENGTH 15,8,15,"I": OPEN DISK COMMAND CHANNEL$ 8,8,8,"#": OPEN DIRECT ACCESS CH  15,8,15,"I": OPEN DISK COMMAND CHANNEL@ 8,8,8,"#": OPEN DIRECT ACCESS CHANNEL 15,"U1:"8;0;18;0: READ TRACK 18,SECTOR 0 INTO CHANNEL 8 BUFFER4 15,"B-P:"8;144: MOVE BUFFER-POINTER TO FIRST BYTE OF DISK NAMEH Z9$Z9$(N):2700 *****************" * REWRITE BLOCK *= *****************Y 15,"U2:2,"D$;T;S:19000 "TRACK ";T;" SECTOR ";S,"HAS BEEN REWRITTEN"D 2080X **********************l * PROGRAM # 1 * 0:5180:"-"; : DISPLAY BYTE IN HEX  N10 J110 1F Z$: Z$""2820: GET 2 CHARACTERSv Z$","N1N:J11:2940: HANDLE COMMA KEY, Z$(13)J11:2940: HANDLE RETURN KEY@ CONVERT HEX ENTRY TO DECIMAL EQUIVALENTT I1************************* (C$)32 C$" ":5 (C$)128 (C$)159 U C$(SS$,3((C$)127),3):x *********************** * CHANGE DATA ON DISK * *********************** Z9$""( "ENTER STARTING P BUFFER!p Z$"N" : DON'T CONTINUEE Z$"W" 3040: REWRITE BLOCK^ Z$"E" 5300: END Z$"Y" 2120: INVALID OPTION"TRACK ";T;" SECTOR"S"": ************************** * DISK BYTE TO H$"E" 5300: END PROGRAM 01680,D *******************KX ** SUBROUTINES **jl ******************* * ERROR ROUTINE * *****************15,EN,EM$,ET,ES: EN0 "DISK ERROR"EN,EM$,ET,ES***********$"NEXT TRACK AND SECTOR"NB(1)NB(2)""`,"DO YOU WANT NEXT TRACK AND SECTOR? (Y/N)":" OR"@"CHANGE DISK NAME OR DISK ID":" OR"T"UNSCRATCH FILES OR SCRATCH FILES"," OR"h"END PROGRAM"|"ENTE 0 ****************************; * READ & PRINTER DISPLAY *_ ****************************vK1:NB(1)(A$(0)) J0 15 IK 15(#2,A$(I): A$(I)"" A$(I)NL$< K1 I2 NB(2)(A$(I))P I:K0dA$"" 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  * LOAD TRACK AND SECTOR *> 0 * INTO DISK BUFFER *b D ***************************~ X"TRACK, SECTOR";T,S l T0 T35 15,"I"D$:2:4:15:"END":  JJ$"S" 2240  JJ$"P" 4:4,"TRACK"T" SECTOR"S:4 15 ":7 ******************************[ * SET PROGRAM CONSTANT * ,****************************** @SP$" ":NL$(0):HX$"0123456789ABCDEF" TFS$"":I64 95:FS$FS$""(I)"": I hSS$" ": I192 223:SS$SS ""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 ~'"ION 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 ~'":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: ""ISCM$CM$"ON. ODIFICATIONS BY OHN LSEN."::"CC02485CC550CC0:CV236,224OCCCC1:CC292:"q"";~CP(CC)CP3939CP)(CM$,CP)"";::"(((CM$,CP38),39)" AMMING. ":"2CM$CM$" OMMODORE 64 WITHOUT IS ONLY A OMMODORE 63.5!"::CV2:CM$"**** FROM ... "CM$CM$", THE PERSONAL DATA FILER. ":"CM$CM$"TORE NOTE "" [] - DD ԒEXT STRING "G" [+]/[-] - ONTINUOUS SCAN FWD/BKWRD "y" [] - ÒOPY SECTOR TO SECOND DISK ";D15:" ";:D217242:D,(D)128::"";*";7"ISK OCTOR 64.2 :"(" "T$,2)":"(" "S$,2)"";h"";I18:" ";:"""PRESS [@] - HAN,"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,"U1:2,"D$;T;S:19002  ******************************X  * READ BYTE 0 OF DISK BUFFER *~  ****************************** 15,"B-P:2,1" 15,"M-R"(0)(5) #15,A$(0):A$(0)""A$(0)NL$ 4 JJ$"S"840 H JJ$"P"1200 \ $""(I)"": I! | A$(15),NB(2), D$"0"[ " SCREENOR PRINTER"r JJ$: JJ$"" 440  JJ$"S"" SCREEN"  JJ$"P"" PRINTER" 4940: OPENS FILES  *************************** %d******************************Ix* DISPLAY ANY TRACK $ SECTOR *m* ON THE DISK TO THE SCREEN ** OR THE PRINTER *******************************"""DISPLAY BLOCK CONTENTS" "DRIVE, WE RECOMMEND USING:!'Z$(0):"D!'15,DN,15:"k!'9,0:"!':"!'" *** ***!'"!'"K OCTOR "%'10123:")'",.'"UTHOR: ON EKEIV3'"(MODIFICATIONS BY OHN LSEN)c4'"8'"HIS PROGRAM IS PROVIDED COURTESY OF:='"B'" OLIDUS NTERNATIONAL ORPORAT ",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@T24S17JT30S16TSKSSK0S, 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" 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 PROGRGE BYTE UNDER CURSOR ")" [] - O TO ΒEXT BLOCK OF FILE "Y" [] - ʒUMP TO LINK UNDER CURSOR "" [] - ђUIT "" [] - ҒEWRITE CURRENT BLOCK "" [] - EW ’LOCK  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"  01234567 89012345 67890 >5) : 00000000 00111111 111 >6<01234567 89012345 678 >5) : 00000000 00111111 11 >6<01234567 89012345 67 >5) : 00000000 00111111 1 >6< v""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 " 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" 166D @" 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($((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)74280I:I255II40+ I255II(I40)40Z ""23)(SSI)" " ""23)I" " ""14)"VALUE:POSITION:" J12:ISS,((ISS)128)255:D01:D,J (197)40jLQFSCRFATSSKPCPA1A2ZSWB;2R7.78.83.74.8$97788:<%/4<띝%49<'6>+ [@] - HANGE YTE [T] - EXT ODE >+ [+] - CAN ORWARD [-] - CAN ACK >+ [N] - EXT LOCK [Ξ] - REV. LOCK>+ [J] - UMP O INK [ʞ] - REV. INK >+ [B] - EW LOCK [ž] - LAA*>A*<"A*>A*A*A*<"A*>A>' [1] ISK DEVICE NUMBER IS<<읟. ># [3] ISK DRIVE NUMBER IS<<띟.>' [5] RINTER DEVICE NUMBER IS<<띟.>3 RESS 01234567 89012345 6 > SED=^<6><<;46< < R6 < <0>6 >66R6߀5 Ȉ.ʈ.ˈ.̈.͖6<#<R6y<<0>6{>6< <Ȱ R6^<$" 0":T$" 0":116C" "r" "" "15,"U1:2,0,"T$","S$: CH2 DR015,E1$,E2$,E3$,E4$:E1$"00"156f4: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!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)"] 4A$"@"10& 6I0I280I:I255II40@ 8I255II(I40)40o :""23)(SSI)" " ;""23)I" ":198,0 <""10)" VALUE: ";:9,B$: >""10)" ":B(B$):PF09: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:TDN8: 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$): I0IYV1V2V3V4DRDNPRLLNTSHQAEEEEHHDRTRPFI3I2I1LASPRRQMVRST LOCK >+ [R] - EWRITE LOCK [C] - OPY LOCK >+ [S] - WAP ISKS [P] - RINT LOCK> [Q] - UIT <;";4<<6<. <6>9)R;jƅŅņƆR;* <ISK OCTOR 64.4 < ݟ:< 5<< ݟ:< 5<<(< << <<<6<< 6.< <Ȱ R6^<6.< <Ȱ R6^<6.< >aaa#ܗFR7 ;S7<<< 1 1 0Ӊ0ԉ ױ***ILLY PRESENTS....>A>A*<" .... 2700 .. NDRESEN OADANCOUVER, ASHINGTON (206) 695-1005 %GET 64.4 CAND LEARN HOW TO GET THE MOST OUT OF THIS POWERFUL SECTOR EDITOR. -ISTRIBUTED BY: (206) 695-1005,FOR THE LATEST N 22333R2Ġ22c32#22#242424243c4334R3222#2330Ԡ20'Ua<% ISKS IT Β. <FR3W2R3W#2`'Ua< ISKS IT Β. <IT Β O  B6A :<10<6>6<<%6;ۗ1R11#R1 ?A >A10<6< 6<) RESS Β TO END TEXT MODE.>+2R.!6>9)2();3&3'3(3)"3*3+. ,`DR1 -.+נ, ,'./R/t-R/t-/05--/R/... (*נ. *)0/".. )()())R+.R+.#R+.R- .R-.R- -+.R+.R+.R+.R+#"$#$7.0ӄ.0'U.R+.#R+.R-~.R-.R--.R+.R+.R+.R+7.0ӄ.0'>+1R+600R+ ! R+54R+50DELޜ51SEQޜ52PRGޜ53USRޜ54RELޜ40R+`48R+w4R+h4R+q+*+w @+w <ޖ611 3؟R+߰ ;H. BU2:2,<0<,<<,/<?<>/<? IN <1< , <1>TYPE Β TO CONTINUE >FR)fQR62R)f'UR)( ( !( . !6ܜaa%1>P P!ɳ  'U>>>>J(/ !A> RUN >P P!1O6<>>>BU1:2,<0<,<<,P 2R&QR&2R&@R%R%R%5Ϗϖ6<$ [1] ISK DEVICE NUMBER IS<<흟. >%5ΎLRCMDSYSOPENCLOSEGETNEWTAB(TOFNSPC(THENNOTSTEP+-*/^ANDOR>=<SGNINTABSUSRFREPOSSQRRNDLOGEXPCOSSINTANATNPEEKLENSTR$VALASCCHR$LEFT$RIGHT$MID$GO PI< !<. <"3<"3<3<B ƿ @ YAMES IN  VISIT ..... >2700 .. NDRESEN OAD, ANCOUVER, ASHINGTON (206) 695-1005 COMMING SOON ˠҠ64.5 MORE POWERFUL THAN EVER. -ISTRIBUTED BY: (206) 695-1005,FOR THE LATEST NAMES IN .<FR32R3ƗNR3#2`NR;H(R6R65R6 !R6 ! 6<%6>( >>& : : > R5n R5 R4ƴ) : 00000000 00111111 11112 >6<>ANPUT : <6;ۓ1R11R11R111R21R21R21R22 >1  >'U<"  ? - (N OR Y)<FYR(NR;H2E1213.+R2.(R2-R2R2.R2222332.R22/R/̠.R/ű0(נ///_R// R//?R//1// 1//@113נ0R0)װ0.R0@B&<'<20666()!R.!6>;";46>;";4±!R+٦.(R2X.+R2X6R+!R.2R,R'UR,R,R,R,ƗR,ΗJR,ӗNR-WR-R-җR-@R-TR.BR1RR2+R2XR2X-R2XR2XSR3'CR3qQR62R6PR/+( !( () ).!. ! 6ܖ6 !6ݝ! ! 6ݖ66661R*.R+.R*.R*6+6/<?<>/<? IN <1< , <1>22R( 23R(FDISPLAY BUFFER? ( OR )>FQR6NR(FYR'(,TRY AGAIN? ( OR ) >FQR6NR6YR'b(eBB-P:2,<0CB3%5АЖ6<' [5] RINTER DEVICE NUMBER IS<<읟.>%5``BI<0CHUWWQ00R`HUWWQ00R&&ISK RROR:   [,]ؖ6<*/ !A>P aDз̿>4<°çxİŰưǰȰɰʰ˰̰ͰθϴЦSL A T1 T2T3S1S2S3T>P P!7cJ    /ұ³J   / /JKJ3 LLJ  VISIT ..... >2700 .. NDRESEN OAD, ANCOUVER, ASHINGTON (206) 695-1005ENDFORNEXTDATAINPUT#INPUTDIMREADLETGOTORUNIFRESTOREGOSUBRETURNREMSTOPONWAITLOADSAVEVERIFYDEFPOKEPRINT#PRINTCONTLISTC Lan0fEn0ajbkcld pme𺐰РijklnIlmImmllmm0m*jmkilm <L U VnEfoa TLldme Ed0%<deLadD$p dePaɁJFic;bJ3 9iH:iHGL:G9GIȱGJȱIHJHIHL+ȱ9 ȱ9Eȱ9F1_/i2`0i!9e/k9e0lkkXikȊk ;rE_ȥF_ʆq _  i_Ȋ_ L"qr LLMȄ F  Z     L<^LY f %bb"#LC + 8:H9HJHIH HLiJI iL0JI Ȱ&iHi$h f IJ g л ]LqIIe  qIId de Ed0' i;L8 :9Lِيi;L; d 0 dߥe L87L L@,,%L9=:>L<' YLq). "C L9:LCLᧅ +Lw edLLedc4b3 ea34a edLbc#"eda4 3eYJe dcdbdaL$;_0ȱ_pL IJdeLpL p aIȥf %bIȥcIȥdIȥeI;LereYJaHc4b3/fDISK DOCTOR MAINDIRECTORY MASTER DIRECTORY SORT DISK CLEANER -"DISK DRIVE MOTOR SPIN ROUTINE"Z"INSERT CLEANING DISK AND CLOSE DOOR"p"PRESS RETURN" A$: A$ (13) 5 *************************** * 1541 MOTOR SPIN ROUTINE *15,8,15  * ML ROUTINE TO S8,5,"#":YT18:YS0:410:15,"B-P";5;143:(14)K RN$;:X124:#5,I$:I$;::RF$: 15,"U1";5;0;YT;YS:LTYT:LSYS:#5,T$,S$:YT(T$C0$) YS(S$C0$): X150: L%(X),M%(X),R%(X),NS$(X) K11:15,8,15,"I":C0$(0):NF0DD$":::::::::C0$,1)::PP8#5,I$,I$= X$C0$:(R$,1,1)C0$X$(255):DD$;t NFNF1:NS$(NF)R$X$:(R$,4,16):PP:YS255220 5:80 "RESS SPACE BAR TO REWRITE DIRECTORY" "A$:A$" "290 ,390:NN0 6410:PP18:NNNN1 @5,(NS$(NN dL2L1:R2R1:KE$NS$(((L1R1)2))N nKE$(KE$,31)(KE$,4,M%(((L1R1)2))) x(NS$(L2),31)(NS$(L2),4,M%(L2))KE$L2L2K1:120 KE$(NS$(R2),31)(NS$(R2),4,M%(R2))R2R2K1:130 L2R2170 N$NS$(R2):HM%(R2):NS$(R2)NS$(L2):M%(RN *< * WITH THE MEMORY INTACT. *"@ * * * * * * * * * * * * * * **N  * WITH THE LAST RESPONSE. *r * PRINTING TO SCREEN CAN BE * * SLOWED BY PRESSING CTRL * * OR FROZEN WITH SPACEBAR * * THE DIRECTORY FILE MUSTTLES * * WITH (Y/N) PRESS RETURN ** * TO FINISH THE LIST, ALL *N  * WITH THE LAST RESPONSE. *r * PRINTING TO SCREEN CAN BE * * SLOWED BY PRESSING CTRL * * OR FROZEN WITH SPACEBAR * * THE DIRECTORY FILE MUST MASTER":4," ":4," ""B$"S"4," DISK ID: "I$:4," "-X1O>B$"S"720U(P$(X),2)I$720^7284,(P$(X)" ",20);PR3A$:A$""724A$(13)148X:4:4:2023,160A$:A$(13)736l452pI$""148(tE0:X1O:(P$(X),2)I$P$(X)L$:EE1CxX:E049152,O,P$(1)R|OOE:148q PRINT OUT DIRECTORY FILE"RINT DIRECTORY FILE""ӒINGLE DISK OR ŒNTIRE FILE?":198,0B$:B$3b54c6o#o"i"5"5ie556d#d"n"5"5L edc4b3 a e334oȱojȱokpok4j3 ej34aaf jb%<de Lfi"af0,%<de2076NOPE!!L LL    tb* 2V0rfI6$$$$$$$$$$zttAC`ڞmmںkk22\\\ =uuuvuuuuuuutuuw#*18?FMT[bipwTART MOTOR" (15,"M-E"(126)(249)A 2 I1 6000: : DELAY *e < * ML ROUTINE TO STOP MOTOR F15,"M-E"(232)(249) P 15 d"REMOVE CLEANING DISK"COPY PGM COPYII64,):::::DELETED":RN$(18):RF$(146):(NS$(NN),4,16):PP85,C0$;C0$;l TPP:15,"U2";5;0;LT;LS:YS255310 ^5:15:"ORT ANOTHER DISK? (Y/N)": CK1 h Z$: Z$"N" "": r Z$"Y" 20 | Z$ "N" Z$ "Y" 360$ 5,),1,30);:(NS$(NN),31)(255)DD$;D J(NS$(NN),4,16):PP85,C0$;C0$;l TPP:15,"U2";5;0;LT;LS:YS255310 ^5:15:"ORT ANOTHER DISK? (Y/N)": CK1 h Z$: Z$"N" "": r Z$"Y" 20 | Z$ "N" Z$ "Y" 360$ 5,2)M%(L2)2 NS$(L2)N$:M%(L2)H:L2L21:R2R21:120Y L2R1SKSK1:L%(SK)L2:R%(SK)R1n R1R2:L1R1100y SK90 NF0:390 410:PP18:R$"":FL0:M%(NF1)16:X130:#5,I$ I$(160)FL0M%(NF1)X4:FL1 R$R$(I$  CK0; (14)"NSERT DISK TO BE SORTED."l"RESS [] TO BEGIN DIRECTORY SORT."( Z$: Z$(13) 402 CK0 430< CK1 440F210P"ORTING":SKK1:L%(K1)K1:R%(1)NFZL1L%(SK):R1R%(SK):SKSK1" *  * BE ON THE SAME DISK AS *&$ * D. M. ML SORT AND *J( * DIRECTORY MASTER *n, * IF THE COMPUTER FREEZES *0 * UP AT ANY TIME, PRESS *4 * RUN/STOP AND RESTORE, *8 * THEN GOTO 100 TO RESUME148  * * * * * * * * * * * * * * *. * DIRECTIONS *R * *v * PRESS RETURN TO ABORT ANY * * COMMAND, EVEN IN THE * * MIDDLE OF PRINTING! * * IF PICKING PROGRAM TI (13)148B$"E"672 B$"S"652452#I$""148L:"ВRINTER OR ӒCREEN?":198,0fA$:A$"S"PR3:692|A$"P"PR4:692A$(13)148676PR3""4,PR,7:4," DIRECTORY -- -FP -Rˊ(-O*-(FS---FP-F+F 8F0tF DIRECTORY F ASSISTANCE*-R--F,8:o=F,8,1r=--2-OO V2.93n*RhR!R˞(K- 0 14 <. d2 15 2,P$(O):P$(O)" "P$(O)ST642:15:1563 OO1:OTN1536[$"OUT OF MEMORY":2:15(2023,160:56295,11:197,64,255:148, SAVE TO DIRECTORY FILE0"AVE DIRECTORY FILE"415,DN,15,"I0":592:EN01 197,64,255:"ISK ?";:198,0.A$:A$(13)I$"":=A$""456FA$;`I$:I$(13)I$"":oI$""468I$;:I$A$I$: ADD A RECORD"DD A PROGRAM""ROGRAM'S NAME ";P$P$(P$,16) ROUTINED"RESS Y OR N TO CHOOSE PROGRAM TITLES";[P0:N11:C89:AF0}1024P,63:55296P,11:198,0AF0A$A$(13)A$(C):AF1A$"Y"C89:1024P,25:55296P,1:436A$"N"C78:1024P,14: X116 $#2,A$:FM(A$(0))1 (FM160X16:308~ , IFFM>192ANDFM<219THENFM=FM-128:REM CONVERTS FILENAMES TO ALL LOWERCASE 0N$N$(FM) 4X 8NN1:N25""; <N2420); @" "N$ DT$(N)N$ HN48384 LFE:TK18508 A$"S"O0556" A$"D"2246 A$"R"O0612J A$"P"O0640^ A$""O0348g 188 READ A DISK'S DIRECTORY ""; 15,DN,15,"I0":592:EN0148 2,DN,2,"#":592:EN0148 15,"U1:"2;0;18;0:592:EN0148 " EVICE UMBER ";DN= |""16)"LOADING"[ 11)"IRECTORY ASTER'S" 5)"MACHINE LANGUAGE SORT ROUTINE" "D. M. ML SORT",DN,1 P$(TN),T$(48) L$"" 53280,12:53281,12:2:4:15 "IRECTORY UB 1ST A MENU UB AUTO PROOFREADER UB DIRECTORY ASST. UB DIRECTORY SORT UB DISK DOCTOR PLUS UB DISK HANDLER UB METABASIC UB UNICOPY64 UB DISK CLEANER UB DISK DOCTOR 64.4 UB DISK DOCTOR MAIN UB DIRECTORY MASTER UB D. M. ML SORT UB SWOPTIONS FAND OTHER UTILITIES SOONFPLEASE FEEL FREE TO WRITEFWITH COMMENTS & QUESTIONSFOK TO COPY THIS PROGRAMFBUT NOT TO SELL!!!!!!!!Ca7UU7U( a7UփU9aRU7U( 2R˞ (jF .?RdѭaaRKaCaR%( =$-F ABORT3@wC)e%IR˞(= AFTPUG FREEWARE PRESENTS:ER3ODIRECTORY ASSISTANCE FF(C) 1984 BY MIKE EMBRYGFIF YOU FIND THIS PROGRAM 4FUSEFUL, PLEASE SEND $20, 5F$10, OR WHATEVER YOU 6FTHINK IT'S WORTH TO: JF <(b\h^FFC!FRˊ(RF(RF-2-2-F (C)1984 BY-F MIKE EMBRYRF R Ѽ]F -FLOAD F3 = -FSAVE MENU2-FUNDO-FMOVE-FSWAP-F FORWARD-F48%82,DN,2,"0:DIRECTORY MASTER,P,R":15,EN:2:EN62576f<15:"UT MASTER DISK IN DRIVE":736@15,"S0:DIRECTORY FILE":592:EN1148D2,DN,2,"0:DIRECTORY FILE,S,W":592:EN0148HX1O:2,P$(X):15,EN:EN0XOTN548OO1:P$(O)" "P$148= LOAD THE DIRECTORY FILEb"OAD DIRECTORY FILE"15,DN,15,"I0":592:EN01482,DN,2,"0:DIRECTORY FILE,S,R":15,EN,EM$,ET,ES EN622:572EN0600:148O155296P,11:420400PP40#P960P20AN1N11:N1N"";:N0:J396| ADD THE TITLE TO THE ARRAY IF THERE'S ROOMOO1:OTN1P$(O)ID$" "T$(N1):420""13)"OUT OF MEMORY":OTN2023,160:56295,11:256P2:15TN0384X148.\ SORT ROUTINE;`O0148pd"F2 TO SORT ALPHABETICALLY"h49152,O,P$(1)lE0:X1O1:P$(X)P$(X1)P$(X)L$:EE1pXtE049152,O,P$(1)xOOE|156 Y/N SUB 15,"B-P:"2;162& #2,A$:#2,B$:ID$A$B$3 SR1:N0J 15,"U1:"2;0;18;SR\ 15,"B-P:"2;0u #2,A$:TK(A$(0)) #2,A$:SR(A$(0)) FE07:15,"B-P:"2;FE322 #2,A$:A$(130)332: NOT A PGM FILE #2,A$:#2,A$ N$""ASTER"! "DD A PROGRAM"? "̒OAD DIRECTORY FILE"] "ӒAVE DIRECTORY FILE"q "ĒIRECTORY" "ҒEMOVE A DISK" "ВRINT DIRECTORY FILE" "F2 TO SORT ALPHABETICALLY" 198,0 A$ A$"A"480 A$"L"Ed O IS TOTAL NUMBER OF PROGRAM NAMES CURRENTLY IN ARRAY (1-O)h IF PRINTER DOES WORK PROPERLY WITH OPEN4,4 CHANGE LINE 9500lTN1000: TOTAL NUMBER OF PROGRAM NAMES PERMITTED IN MEMORYp53280,12:53281,12:"";tDN0140 xtR($RP$Rx$ά(CpF *-04F05F*-06F0J( RAaF10851 NORTH 105TH WAY FSCOTTSDALE, AZ 85259 USAF(& BE A REGISTERED OWNER)FLOOK FOR FUTURE VERSIONSFAND OTHER UTEFFFFGF4F5F6FJFMIKE EMBRY F10851 NORTH 105TH WAY FSCOTTSDALE, AZ 85259 USAF(& BE A REGISTERED OWNER)FLOOK FOR FUTURE VERSIONSFAND OTHER UT BACKWARD-F COMPACT-FINSERT-F REPLACE-FDELETE-FHEADER-F ALPHABET.d^F -FEDIT F1 = -FBYTE MENU1-FEXIT-FDRIVE-F EXTENSIONS-F UNEXTEN.-F @DISK CMDS-F F7 = #Ҧ@;F#Rˊ(K- 0 14 <)i8. C3$FINSERT WHAT:Ҏ@"s#CDF1F6.G3Uj .G3U,sUb?{GkFPlFPROG. TYPE? Pҫ="D?#CD1FDD$F$$sC  eC`(%bRkF"FCoҾ=#CD0!1RCDR?R4OI@#CD.?F>ENTER DISK COMMAND:F(ADD + IF 2ND LINE NEEDED)Rk4OIlF>ҫ=#CDO+GZ"×RkFlF>ҫ=#CD"bF4OIbR"@CDFZZu W(ˊ(њWˊ(R R̊ (0 ,$ `R dњW( sX0 sXCe@R͸(0  7eCw(R$X0 ::c=:sX0 :c=:e%UsXK- UsX4 U  U sX0 ENT DEVICE #?FCURRENT DRIVE # 4kFNlFCHANGE DEVICE #? Nҫ=#CDFYUkF8lF NEW DEVICE #? ҫ=#CDB?!RR Ҧ@ѽUkFNlFCHANGE DRIVE #? Nҫ=#CDFYCDkF0lF NEW DRIVE #? ҫ=#CDF0F1Ҧ@'V"tC ;bB?!f&)Ҧ@R#&'('7 'Uy9Sˊ(R R̊ (0 ,$7yRd( (7yˊ(: 7 (yCˊ(7 070rT7 a !: a  R''RU >1RFB-P:5,001R4OU2:5,R>@#CDCR~( QR4OU1:5,RRRFB-P:5,0R4OU2:5,RR@CD.?FEXIT PROGRAM!kFNlFARE YOU SURE? Nҫ=FYCD FPRINT DIRECTORYkFYlFBYTE BY BYTE? Yҫ=#CDFYCDb\,CD.?R?R4OI@#CD?RF#R4OU1:5,RϞ@#CDRFB-P:5,0{@R5UbR !FDISK ID'S ARE DIFFERENT!FSAVE DIRECTORY:FAR ѓM"{bB?!gR;bB?!f&)MRkF0lFTO #? ҫ=B?!v#CD('&Ҧ@ѧM6'&v' 'i&&6'&''a6&!&(K- 0 4 (6(K- 6. 0C08LF SCRATCH:F 0$F? NЊkFNlҫ=#&dNLFY8LR4OSO:0$0 @#&dNL8L?RF#R4OU1:5,RϞ@#&dNL{@R5UK-$0$14$<( CD.?FF F F  K-=ѾIkFPlFNEW PROG. TYPE? ҫ=?#CD K-=RkFNlFCHANGE PROG. LENGTH? Nҫ=#CDFY 4=lJRkF0lFNEW PROG. LENGTH? ҫ=B?#CDCFF4=R @I@FM%K-= @̊ (K- 0 4 (K-8 FF08348<1 K-8(  H#Uh(R(K- 0 14 <# iCD.?u?FSINGLE REPLACEFMULTIPLE REPLACEkFSlFREPLACE TYPE? Sҫ="%#CDFFRˊ(5uR~u@@\(a !@\RRHnRpR#R)r Rˊ(F Rˊ(F mR""ˊ(}7 AR ˊ(a, !՞R ˊ(|RFRˊ(qRˊ(- ARˊ(F`,,(FS,,,FP-Rˊ(-O--(FS  %c=:R(CD)ˊ(Ce@R (0 $ed( RY0 RRo=eX0 RRr=YRe0 %R(CD.?F EDIT #? F0lRkҫ=B?#CD(Y0!bCe@R(" D.?FALL PROGRAMSFDIVIDED GROUPSCkFDlFADD EXTENSIONS TO:? Dҫ=#CDFAFDbVCFAF 1.o=F2.r=FWHICH EXTENSION:? ЊkF1lҫ=B?Rz#CDRRҦ@VRRi  !(CTCR@9(707 0T7 a !: a !(TC9ˊ(:: C ( f7 (K-&.(0&d2(4&5(( (CD.?FCURR F.?FALL PROGRAMSFDIVIDED GROUPSCRkFDlFSORT BY:? Dҫ=#CDFAFDoRFCCyFARkF1lFFROM # (-TO #)? ҫ=#CDCeRˊ("O- e(C B?!g)fqS"{bB?!gR E YOU SURE? NЊkFNlҫ=FYCDR?R4OI@?RF##CD.?+F SAVING...RpC~R 'RFB-P:5,0 R4OU2:5,0>@#CDR1RR(( CpRFB-P:5,2 '(K- 0 4 (R 0 6d24 65(CD.?RkF0lF SWAP #? ҫ=#CDB?!g(ѕNRkF0lF WITH #? "bҫ=#CDB?!f(Ҧ@NK-'0's4'K-'&0'&4'&K-&0&34&(iK-)L  iCOCDC,.? BLOCKS FREEkFNlFCHANGE HEADER? Nҫ=#CDFYLF NEW HEADER:Ҏ@#CDkFNlFCHANGE ID? Nҫ=#CDFYCDRkF00lF NEW ID:? ҫ=" CD.?RkF0lFMOVE #('S)? ҫ=#CDCeRˊ("O- eR`(C B?!g!f 0=34=CD)ˊ(0 /ѸJK- 0 34 (CD.?RkF0lFDELETE #('S)? ҫ=#CDCeRˊ("O- e(C B?!g!f5K"{bB?!gR;bB?!f&)ѾJR?R4OI@#CD&' (4$U $U I M%FS%Ҧ@KHRkF0lF REPLACE #? ҫ=B?!}#CD(Ҧ@ђH)=iF NEW NAME:Ҏ@"s0=/#CD1/sF0F9LI"Uj LI"U,b? FFU,s<lJkFNlFCHANGE PROG. TYPE? Nҫ=#CDFY a@b\F .( RC,0 F EK-  F ERˊ (0 --wR F?ERRF?E-Ь( F K- aRR R-UEK- L FD nEF* nE4 U U I(Ѵ@Ca)p0ˊ  RpC~22nC Ci?#CD@02RR#2(R2UU R2 (2UU25( (R5UR5U R\?#CD@R(dK- 2U R50 2U UR54 2U UR Rk1lF? ҫ=1RbFFR ˊ(jjF AaRѾ@CaCeF-*-%-%Ѿ@F--FF b\CDF R b\CDFU јA!ˊ(K- . 0 d2 4 5 (<=>? @!h F > Ѿ=CѾ=F Њ boѾ=F >CѾ=*ЊoѾ=+Ѿ=F  ? Ѿ=*ЊoѾ=*Њo /  / bѾ=FRˊ(CaRˊ("jF0 F9 q?R *a(F)Uˊ(FF D       (K- ƫE!K-L aёE  iK- !0 !4 !!K-!01!4<)`(R%FRK-L RhF( Rn%FCD.?u?RkF999lFINSERT BEFORE #? ҫ=#CDB?!x@C..x  5K- L 0 14 <(R4RR RF-C2i)hK-)L2 2 iCCDR RnCDѴ@nCDR RnCDRѴ@RUnR.?R( _DR Ca@&@( a@N@E(  Ai*nB CDFF FB A(ˊ(. K- d2 0 5 4 (!)A.*<=> ?@ BCa"ˊ(}7  a"`(Ѵ@JBDDtE5FHJTLMNcOR ѼO#RoRWUbVyXYYR?R4OI@#CD?RF#.?+F LOADING... IVIDERS:)ˊ( F. U,F UC Rˊ(-  U R`(R4OU1:5,0>RFB-P:5,0@{~CcR9:;R.?FDISK ERROR #F9:F,;FHIT ANY KEYjF }@c.? dTZFbCcCoRR' R(Ѿ=RU(IL77@RRˊͶ)jF Ί)RP>>8 d>*F,bF cR ˊ(, R`(RѾ="     dȄL& e"f#d   L& dL& d(l ldem d```l` )"- )$  % deL& deȄL& L5 a&e$f%dd6Ȅ/43/ʆ43ef33$3$342F`f`LX8d 40(C157C153A3C202C208C247C142B60)HȘ2/FEȹȄ?EȱE?ʤ?л вiE PHHPHQHHL$L5hh0h/h/h/h/h/L& h/L& !9H:HH/9ȱ/:L, /)/f/e/dL& /f/e/d/c/b/aL& 9:9/0 &0 &0 &08//080i(0A/)/n/m/lL& /n/m 9/9i9:90`\ 8I$Jʆ%$P/0Fdfe /eP/0eQ0P&Q K/eme0eld\PR0 L>LJL R0DL'd  "9#:$1%2ABf" " f"L& "("8473AB cȱ/dȱ/eL& / e d*eIeJ/D>=L& /0/dȱ/eL& / e d*eeedeIeJ/J=>L& 0/ȱ/dȱ/eȱ/fL& !L !L !LN !/lȱ/mL& !/iȱ/n jȱ/kȱ/lȱ/mL& !/lȱ/mȱ/nL&  elp/3/43lm3m3le3$4%de$e$/33d3e4f2 zL& dldlLL em$n%ll L& ed8l_eem$n% L&  L& ݽȄeȹdf L& eȄ$Ȅ  URA0A7A6A2B14B C173A2B40(C201C254C240B16B24C169A8C109mB93]A3C141B93]A3C144C238C238B94^A3C176C233C173B93]A3C141C131A3C173B94^A3C141C132A3B96`C162A2C189A2B  &E)bcjkjbȱjbE`X78_N5`O64~3xvX0 ' 'N N '8fX 'XSFXN_ȱN_" '56 'N_^"NO43 'N '0L'" '56 'L'5634` 'I8eNONO`I8 /l/k/j/iL& /P0QPXP0VePdPL& pp8 # P  L$fPePdPcPbPaPL& Ь͠P2%P$P$ȑ$f2 dȱe dPiQeȊefPePdPL& edL& mlL& /  J "/"0/ɖܩ(""i""""A !###### /!0/%/$/d$/$/$/i/0` DLt `Lt9/ȱ90ȱ9/ȱ9/ȱ9e99:L, 9Pȱ9Q9i9:PPHȱPHȱPHH 9=9i9:9>  d=ȥe=L& 9=9i9:9>0O=dȑ=ȥe=L& pp   L!a=eӥbȦf0)=ȥc=ȥd=ȥe=L& =20=/=/ȑ/f2dȱe d=eȥ>ef=e=d=L& 9Iȱ9J9i9:L,  % L& dfL& `L` K`ln8dmi`mZʊee$f% L& e`L& 8lee)ʊem$n% L& deedȄL& LH a&831e42dL& / ed &d &deeedeIeJ/>=>L& /0/Laȱ/f bȱ/  (2073) PETSPEEDLg" +,==aP*y} 9 &/ JNRVA8!#  #!$, %m[GdmvXd#"g"Z  m j#m<:UNm.?n F 'W 8e/meed0lddpL&  fEnoa SL& lL%8e/med0ldp L&  fEnoa SfIfL& lL6%{l%m$ibcjkEFe/d0El\FdfebembcelcjeEjkeFkm&l&E&F֥becdE\0kjk iL& LiL 1 e 1 e 1 e L& e L& e L& e L& L& h?h@?@hL4 hehdl? ehhfhehddfe f"HXH12-/.0 +,L9  ?@l?N\XX%%%%%%%%%%&&=&L e ` dӅeL&   ̼  L&  + 9edL& fd nL& d0eȈ` L& 9   qL&  L&  dL&  kL&  L&  L&  L& H%H d0>fle l l de/h$hhL .EȤ;"   #; LG dӈ80 \"eee]"eddp ڥ\ n9AB L& L! L de`EddEeeed`9:`L`, " LÌ OMȱON Ld   8GKHL  (<P<P( /í 0`<P eý( /í 0LX5PU 5  5PPU 5  5}UPPU 5  5UPPP LP` + ȽLXeLMiLM`PP  5PU 5  5PPU 5  5}UPPU 5  5UPPP LP`  L) * LL`BBiB `2Ѧ ^PP P])`  ` ^, ^PP ` 4 4 4 u… `H hH  4hHh` `)` i   L u   UL…  1 :8膽     Ƚ­eiНӵ ` ^P) ,,?JJJf(fɈi@ɐ` e e` 4 ą  'e Å  'P;  H Å h    %  L Ћ  Le"8HIiϠ  PRESS < RETURN > TO CONTINUE...+ BILITY OF SHRINK WRAP' LICENSES,YOUR RIGHT TO MAKE ARCHIVAL BACKUPS MAY BE LIMITED OR NOT EXIST. WE SUGGEST YOU CHECK WHETHER YOUR STATE LAW APPLIES TO YOU IN THIS REGARD. THIS PRODUCT IS SUPPLI 0L ) LL  /L=ɅL QLL`+`@8@ -LS ܝ`t+9@8@+#@8@+ @8@`Ʌ  ML 08`:`Q L0`8` ``H ) m    - PARAMETER CHANGE -+CHANGE WHAT PARAMETER:+CHANGE DATA RATE TO WHAT VALUE: +# OF SECTORS PER TRACK RANGE +0N1234ؙٙڙ`*8******i'**m***m*** ʊm*_ * i'` *i'm p #-2adns * RETURN-TO-BEGIN Q-TO-QUIT /-TO-MODIFY F1-TO-RESTART+***INSERT ORIGINAL DISK*** ( PRESS RETURN )+***INSERT DUPLICATE DISK*** 1.4 (C) 1985 CENTRAL POINT SOFTWARE, INC. ----------------------------------------+ORIGINAL DRIVE : DEFAULT = 8 DUPLICATE DRIVE : DEFAULT = 8 +ENTER START TRACK : DEFAULT = 1 $  @?GH $ hN L)LL=ɝЮʽGH $ hN L)LSL  &+ @8@$ $ L=V $ L 8""ȹ" U" X" tӹ" tY L0'K## Lt# LtZ# [89 ж`Z#[Z$[ $ t /Z#[Z$F $ tF[[ Ц`" " i" L+  "C #2/8 #Y#He h *#/,8#Y#Heh #K #ȹ#0 #m h)m ` `08 i:) `6X   ` ]Ʌ*Q L)x 7X L hhL )x 7X Щ hhL )x4`6X    KɅ"Q l 1`rio ",cm*i's  *r *i'b/ *a. `  ( PRESS RETURN )+***COPY COMPLETE*** COPY ANOTHER ? (Y-N)+ ENTER END TRACK : DEFAULT = 38 TRACK INCREMENT : DEFAULT = 1 ----------------------------------------+*INSERT-DISKETTE* ɝLF $ `LCL  + @8@$ $ L=Y $ L<ɝL<N $ L<DO YOU WANT DATA COMPRESSION ? + `COPY II 64 BIT COPY PROGRAM VZX 4[Y# `H 2 t 2 hHLh` 8 m ,L,``̅ϩ   + @8@ + @8@x   3LɅL DLw  + @8@$  L "  " ""`  $#$ /  $F#$F ЦL4 8 m L Hh LX"" " i" x)Щ 7X Lx)Щ 7X Щ hhL )x4`6X   v N)x 7X LYӭ)x 7X Щ L   H t h` tL4 r  "," THIS DISPLAY SHOULD NOT CHANGE"J6" PRESS RETURN WHEN INSERTED"k@A$:53280,(162):A$""320vJ4915278,32,18,40,83,67 82,69,69,78,32,87,73,76,76,32,67,76,69,65,82,41,13,32,32,32,32,32,17,83(65,86,69,32,80,82,7 L S0L ! 3 8 L L= H h " & ! ) " L=.D #  5 ) i L,0 ) L, L7H h  #  L, M-E+ Ѝ!ЩЩ  M + @8@,4+ @8@+ @8@+ @8@ 3  ! ̅ϩͩ 8 L  89L ! ! 1 .  xݭ)Р    -g g  .Ll  8   LV     LM L;*-*.8*&*'L *-*.8*&*'- t.&'` % aL 5',Pݢ  &(&ݩ4I`',Pݠ   &(&I `5',PݢpFjFjJJLݩ4`5HH',Pݠ? pFjFjJJ ݭ i@ hh4 cL w8X vxxLX vx $L c c    c c   c  թL $ LA cL cLqP`X0x` PM|0PMLUL PUPUPPݍPݍU P2i 2 ЎPP PLi,,0* * `,,0JJJf(f` LbC c 0ʆ1 )LLLNLDJJJJJJ wwC  ZKR$ VP$ K LiP% EEEE LL "C1L=LEEE 4Z VP$ VP0P 8G- : ?01L  LN 01L $L  SCHREIB-FEHLER ! SPUR  L 6  DISK-ERROR ! TRACK   SECTOR  4xL{ 6`iHJJJJ h) 0LX%ԩԩ+ԩ/ԩ4ԩ ԩ! IYL ԩ    FAST COPY-64 CBM 64 VERS 4.0 *********************************  THIS UTILITY WILL COPY AN ENTIRE DISK IN LESS THAN 4 MINUTES  YOU WILL BE PROMPTED TO INSERT THE SOURCE OR DESTINATION DISK. HIT RETURN AFTER INSERTION. THE RED LIGHT WCd 3,4,31!3,"BAUD=2400"2,3,"CONVERT"93?80-OLUMNSAUTO PROOFREADERCARTRIDGE CLONER. $   5 i L,0 LS0L L  ! ? ! 1 " . # 0    L  ) " . # 0   L 5   L Ѝ "  ) L.E #  5 ) i L 0 ) L H h  #  L . $   5 i L 0 Pp\\6  *\*]   ) Щ6L  + \ ʎ  i \i \L0  ]获 L( 4`#M-W +6    + 4`#`HH5 ? ? hh4` 9 08000 V N Y 46 4* *i' )JJJ ) i * *i' V, , )8  P ) PP|0PP I LLxG    c c xw   x PCLx P L  : |PL  P ) PP|0PP I LLxG    c c xw   x PCLx P L P#! c cI, P( Le CCPL6L DJJJJJ 9ȥ ȥȥȥȩșȹYYY CH1 0hEE 2 ) U $P 2PР x`h5h6565 5656l5k5 ݭݢFkjFkjJJ4`5 ݭݢ  &k(&k4kI`   COPY COMPLETE L `ILL STAY ON ALL THE TIME, THIS IS NORMAL. DEST. DISK FORMATTING IS AUTOMATIC.  **INSERT SOURCE DISK** (  Z (0 Z )ʆLP Z )?L{  INSERT DESTINAT. DISK (  Z  ( (0 ( )   1,8,15$I04:I:J0255Q1,"M-W"(J)(I3)(1)((I256J3328))Z2J,Iq<1,"M-E"(108)(6){F2304 . .⭍᭬ޭvm⭅eei )߭Lͤ߭`ʥ 0P ޭL ޭ0O ޭ0  ޭ Lޭ꭭ :M߭ Jޭĩiԅ `ޭ Ҥ!) !Ѝ` : LBM߭8 ) 8,71,69,32,72,65,83A 32,66,69,69,78,32,84,82,65,78,83,70,69,82,69,68,13 17,17,17,32,32,32,32,80,82,69,83,83,32,82,69,84,85,82,78,32,18,40,83,67 82,69,69,78,32,87,73,76,76,32,67,76,69,65,82,41,13,32,32,32,32,32,17,83(65,86,69,32,80,82,7 MOVE POINTERSA x141,62,8,169,64,133,174,133,45,169,40,133,175,133,46Z y DISPLAY MESSAGE #2 }162,0,189,56,199,32,210,255,232,224,48,208,245,32,207,255 ~162,0,189,44,201,32,210,255,232,224,116,208,245,32,207,255,32,207,255,0 I047:A:5 6,17:54273,40:54272,0. T1100::54276,16J I065:A:50000I,A:p (0,11,8,1,0,158,50,48,54,49,0,0,0 2169,65,141,255,159,141,45,8,169,8,141,46,8,169,255,141,56,8,169,127,141 <57,8,238,45,8,208,3,238,46,8,173,208,7,238,56,8,208,3,238^,205,221,169,032,032,  210,255,032,210,255,173J  251,003,133,214,076,173T  003032,087,241,133  251,134,252,132,253,008  201,013,240,017,201,032  240,005,024,101,254,133  254,165,251,166,252,164  253,040,096,169,01303,141,152,003,169.  150,141,036,003,169,003L  141,037,003,169,000,133j  254,096,032,087,241,133  251,134,252,132,253,008  201,013,240,017,201,032  240,005,024,101,254,133  254,165,251,166,252,164  253,040,096,169,013kQQQQ RY222322220000 //? """"??000000 l, 222> nƨ df @DJFB( *,*@@JNNJĪƪƂΨ@JJJNJF $DF‚ r$/$"   J$JBQQ XX222322220000 //? """"??000000222>@nƨ df @DJFB( *,*@@JNNJĪƪƂΨ@JJJNJF $DF‚ r$/$"   J$JB@@@@@ P@0 p`P@0DjĪȨΨ䊈ꊊ䤤**,*JΪĪʊƨĢJJJJJNJJDD$DDDF‚ r$/$"   J$JB@` :i@8@ĩiԍʽĩiԍĩiԍ O Jܭ( ` :)L_୭J & & &eeL)JJJJ䭱) 䭑ޭi8v歭筩孠歍ޥ筍ߥ8P Ji(.8ޥޥߥߥ(Lť(йM߭ޭĩiԅ8O O Ҥ J` :ޭ8vi)LtM߭9,71,82,65,77,32,84,79,32,68,73,83,75,32,79,82,32,84965,80,69,19x54296,15:54277,0:54278,247:54276,17:54273,40:54272,0T1100::54276,1653281,0:" CAREFULLY""" INSERT CARTRIDGE TO BE COPIED"1000I,A:I 19,17,17,17,17,17,17,17,17,17,17,29,29,29,29,29,82,69,77,79,86,69 17,17,17,17,29,29,29,29,29,29,29,29,29,29,29,29,29,29 82,69,77,79,86,69,68,32 I0115:A:I51500,A: 147,17,17,17,32,32,32,32,32,32,67,65,82,84,82,73,6,57,8,141,208. F7,173,255,159,201,82,208,227,76J PI085:A:I49152,A:{ Z162,0,189,80,195,157,0,8,232,224,66,208,245 [:ML TO MOVE 8K d162,0,160,32,189,0,128,157,66,8,232,208,247,238,19,192,238,22,192,136 n208,238 s SET CHECK & >53281,0:"  "i "  CARTRIDGE CLONER ""  "" THIS PROGRAM MAKES A COPY"19)"OF ANY CARTRIDGE" 54296,15:54277,0:54278,247:5427,032  210,255,165,214,141,251<  003,206,251,003,169,000Z  133,216,169,019,032,210x  255,169,018,032,210,255  169,058,032,210,255,166  254,169,000,133,254,172  151,003,192,087,208,006  032,205,189,076,235,003  032@d"PLEASE WAIT . . . .":I886 1018:A:CKCKA:I,A:n CK17539 "YOU MADE AN ERROR": "IN DATA STATEMENTS":x886: " PROOFREADER": " ACTIVATED":v 173,036,003,201,150,208| 001,096,141,151,003,173  037,0@`(DD(DD` @HDNN$B""*&NĤHDFHDD NN J"$@ ĪȨΨ䊈ꊊ䤤**,*JΪĪʊƨĢJJJJJNJJDD"BOBBBBBRTYR `(DD(DD` @HDNN$B""*&NĤHDFHDD NN J"$@  /  ,&"""""6((HH @@@ACBBBfiifbbbbBBBBBBBBc QQee J` , Ҥ` } :L-୮JJJJ䭭߭ 䭩߭I1 M߭ M߭H h J` : J`Hx)ܩ4h`H6 Xh`HHHHmH JxLG :hhh@@@ L )i步iL步筩孠歍Ҧ筍Ӧ8P J(nҦiҦӦiӦ(L(лii )) 䭱) 䭑)M߭ Ҥ :ޭĩiԅ8O Nȑ JP +53280,0:53281,0:53265,(53265)239c"":J039:55296J,6::53265,(53265)16:198,0|J13:A$:A$""9 "" V53248:F:F$(F):J1F:F$(J): J832895:J,255::J0142:VJ,2416.5J: L$"0 1 2 3 4 5 6 7 8 L 8@Li㭭``# ) n LNLLBɍBɔ LB8@L L:L뭩ԭ f  H 5hޭH Τh COLUMNS FOR THE COMMODORE 64BY GREGG PEELEAND KEVIN MARTIN!) :Йљ J(ؠ : J`Hh *x Ƀ xƽv Ѡ :M߭ JO : ȄȠӄԥ0<ʅ ɀ)@8` !8 mi  Ʃ,  Ʃ, =¥mi?0@ 𨬮ȰLL" B†I5x1XH)hJ``   Ʃ!8 mi  Ʃ,  Ʃ, =¥mi?0@ 𨬮ȰLL" B†I5x1XH)hJ`` )h$  R - ʝ `0 0 - ̅ ة܅Æı%` q((fDfDffdnn]U]U׈] *Ŋ) )` `  H7 s h b)baG` * ŘL@` Щ ܩʍ&'1` Ġ`   = B-JJJE)E}ýeĥ) ) `5xà6X=༤` ĭ88k ȥͨ$ 8op ȭIi86i@iǼ ϼ ؼ 8*缙９8*8*Bō 7`z!L䧥 sz{z{ s). 05Ԣ LBŹ() s6 .©7LDRAWPLOP"(34);F$(Y);(34);",8,1": C"PRINTCHR$(147):POKE646,14:RUN";W D631,13:632,13:198,2:_ E69x ZJ3152:VJ,Y:: c 10: NUMBER OF FILENAMES d "DIRECTORY ASST." e "DIRECTORY SORT" f "DIRECTORY FILE" g "DIRECTORY MASTEDD1:D10P$A1$! +D15P$A2$:D7< ,XXDX:X1X9DXDXY -(D$,Y6);23X);" _"o 1A0:A$:A$""40 2YYY:A$""A$""YY1:A1:YFY1 3A$""A$""YY1:A1:Y1YF 4A$(13)60 5A040 6(D$,YY6);23);"  91011121314151617181920"$ Y95:90@ " ղ "\ " ݫ "x " " "":K1F:V21,254:"";(L$,K2,2);"";F$(K) Y90K898K8:90:: D$""8 A ޭH Τ߭h H ҤhH \h`ɍH 5hɎɑޭH ΤhɒɓH hɔH Phɝ H Ҥh` :᭍⭍$%%%@ ޭ߭ĩiԍkj O Ҥ J`⭥ J .Ȑ4^ ʭޭɅL JLf :M߭ JL>HH :ӱх J)?$ p @ J Щ  * Jhh`HhL*LH㭘HH F D hhh` ` LaL¢`@LɀR8@L ,ɠJ07:V39J,J1::J015:VJ,0: @53280,0:53281,0 A"";(D$,15);9);"LOADING:";F$(Y) B"LOAD (1)11:A(2)12:A(3)15:A(4)1:A(5)15:A(6)12:A(7)11:198,0^ A1$"USE CRSR KEYS TO MOVE ARROW" A2$" PUSH RETURN TO SELECT " P$" PLEASE CHOOSE A PROGRAM " !Y1:X10:DX1:5324821,0 (CC1:C7C0 )646,A(C):D$;P$ *C0A HSCANDINAVIEN PD242A1ST A MENU64 PAINTBOX  80-OLUMNSAUTO PROOFREADERCARTRIDGE CLONER CONVERT19105 SOLLENTUNATEL 08-964072IMPORTKAT.INFO  SC PD.INFO  MANUAL FIXREG!SEQ.FIL.L[SARE- S1COPY PGM COPYII64, COPYII D. M. ML SORT DEFAULTS DIRECTORY ASST.[DIRECTORY FILEDIRECTORY MASTER S2! S3 DIRECTORY SORTDISK CLEANERDISK DOCTOR 64.4 DISK DOCTOR MAIN7DISK DOCTOR PLUS DISK HANDLER'DRIVE NO KNOCKMETABASIC MLX64 2.02NOZAP.64PRINTER LISTING QUICK- $CD00QUICKSCREEN DUMPSEARCHLIGHTSEQ LISTER SWOPTIONS TURBODISK.49152 UNCONVERTUNICOPY64BOOTMCYL  FIXREG. V4.01REG. MC1 SPEEDSCRIPTINS SPEEDSCRIPTBILLIGA PD-PRGC64/128/AMIGASCANDINAVIEN PDBOX 525  A(J)N:J> CKSUMAD(AD256)256:I16:CKSUM(CKSUMA(I))255:X (18);:570:(146);k N1A6:315 (20):NCKSUM530 :"INE NTERED RONG : E-ENTER"::1000:310 2000 I16:ADI1,A(I)::54272,0:54273,0&AD 32670 NA128NA:XA20 630Bb690:I1T44N1:" ";:690Kl570^vA48A57580sA$;:NN10A48N255 A20:1000:600ZZ1:Z3580Z01000:570",";:S%(209)256(210)(211)I13:T ! ͽ ͽ !% 0&1 L7& JeiL80 `S0: X.Lt: ii8/0L18.) ȱ8.)  ȘeHih Lb% ȱHȱh Lb$  ] L䧩 L7     ȱ :ȱJ, QɉIɍEɧȱ :0ϩ ȩde 3 ƚ L1ȘeiL,ȱ :0L= ezi{ Iz{ 3 ƚ TeKȱ8e ȱd  ͽ`$Hȥhmm LL !mi`8咍 `B `ecbefe褴 cf` )3(3 ॴ8`8咅哅`ȱ {  _`  ȱ Hȱȱ 2ȱ  @#ѼL5ȘeiL 3 L1 3Ȅ q Lɦ L6  <'L6eiL7 L7  !ېL7Q0 LI I ! ^ \Ƣl΅υ   Ş \Bx67XH h  )x67XH h Lj  L7۰8LA `i%.fU22<`7Q0 LI I ! ^ \Ƣl΅υ   Ş \Bx67XH h  )x67XH h Lj  L7۰8LA `i ߩ  ߒߩ ";Z "    ߒ "; " " " MACHINE LANGUAGE EDITOR VERSION 2.02" "STARTING ADDRESS? "; S:F1F (14):ADS) 6A1:("0000"((AD),2),5);":";5 ; JA6O @570:N1JJN:320_ N211710p N204 790 N206:"NTER EW DDRESS";ZZ N206ZZSZZE"OUT OF RANGE":1000:410 N206ADZZ::310  N196 480 ; L1,0:1,D:1:* M"SECONDARY ADDR:0";= N1,0:1,S:1:S dX12288:4,D,S:4\ nQT0z o (X)0 (X1)O 150 pP(X2)256(X3):XX4 q""(P);" ";:4,(P);" ";:""; r (X)0 XX1: 120 sA$((X),QT);:$,A$((X),Q ,"DEF","POKE","PRINT#","PRINT"S "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","E D"):DV8F$"0:"F$:15,8,15,"S"F$:15ET$F$:ZK(53)256(54)(T$):782,ZK256n781,ZK(782)256:780,(T$):65469780,1:781,DV:782,1:65466KS:254,K256:253,K(254)256:780,253KE1:782,K256:781,K(782)256:65496 :"ԒAPE OR ĒISK: (/)"&4A$:A$"T"A$"D"820K>DV17(A$"D"):DV8F$"0:"F$zHT$F$:ZK(53)256(54)(T$):782,ZK256I781,ZK(782)256:780,(T$):65469M780,1:781,DV:782,1:65466R780,0:65493\((783)1)(LL SOUND54296,15:54277,0:54278,2472 54276,17:54273,40:54272,0MT1100::54276,16:s C$;"NOT ZERO PAGE OR ROM":1000I781,ZK(782)256:780,(T$):65469M780,1:781,DV:782,1:65466R780,0:65493\((783)1)(: 16  173,236,2,73,1,1417  236,2,208,13,169,131Q  141,2,3,169,164,141j  3,3,76,131,164,169  48,141,239,2,141,240  2,169,7,160,7,32 30,171,32,249,171,160 " 2,185,254,1,153,239 $ 2,240,3,200,208,245 & 140,237,21 8 240,2,238,239,2,173. : 239,2,201,58,208,5I < 169,48,141,239,2,173c > 237,2,162,239,160,2~ @ 32,189,255,169,1,162 B 8,160,0,32,186,255 D 169,43,166,45,164,46 F 32,216,255,169,141,32 H 210,255,169,0,32,189 J 255,169, 76,65,75,69,32,76" ` 65,77,66,69,82,84: b 13,70,73,76,69,78O d 65,77,69,0,256} f B28715"ERROR IN DATA STATEMENTS.": h S32,L(S210):S34,H(S210) j S58,L(S83):S60,H(S83) l S205,L(S67):S206,H(S67) n745 52,48:56,48::A$(255,1)Z 53280,2:53281,0:"LOP BY BOB RICHARDSON""PLEASE WAIT, SETTING UP..."J32255:A$(J,0)(J):A$(J,1)(J)::(J128202:A$(J,0):-J126:A$(J,1)(91)"CTRL-"(64J)(93)* .A$(1:1,F$:1:9 >"READING THE FILE ";(34);F$;(34);"....."] A2,8,2,"0:"F$",P,R":#2,A$,A$q BX12288:Z$(0) C#2,A$:X,(A$Z$):XX1: STATUS 64 2: 70 E 67 F"FILE LENGTH:"((X12288)256)"BLOCKS" K"PRINTER DEV. #:4"T);: (X)34 QT1QT wXX1: 114* x::44 110I "DONE.":4:  "END","FOR","NEXT","DATA","INPUT#","INPUT","DIM","READ","LET"  "GOTO","RUN","IF","RESTORE","GOSUB","RETURN","REM","STOP","ON"  "WAIT","LOAD","SAVE","VERIFY"XP","COS","SIN","TAN","ATN","PEEK","LEN"T "STR$","VAL","ASC","CHR$","LEFT$","RIGHT$","MID$" 5,"WHT",17,"DWN",18,"RVS ON",19,"HOME",28,"RED",29,"RIGHT" 30,"GRN",31,"BLU",129,"ORANGE",133,"F1",134,"F3",135,"F5" 136,"F7",137,"F2",138,((783)1)(191ST)780"ONE.": 310J "RROR ON AVE. RY AGAIN.":DV1720u 15,8,15:15,E1$,E2$:E1$;E2$:15:720"*** OAD ***""(RESS Β ALONE TO CANCEL LOAD)" F$"":" ILENAME";F$:F$"":310 *191ST)870a"ONE.":3104f"RROR ON OAD. RY AGAIN.":DV1800_p15,8,15:15,E1$,E2$:E1$;E2$:15:800l BUZZER54296,15:54277,45:54278,16554276,33: 54273,6:54272,5T1200::54276,32:54273,0:54272,0: BE)56,(56)1::I256(56)(55):SI=H(X)(X256)TL(X)XH(X)256q169,16,141,10,220,96,76 J739745:K:J,K: 746,(55):747,(56) "SYS 739=FORCED SAVE. SYS 745=TOGGLE." A:BBA: A256 102  I,A:II1,162,7,160 ( 7,142,2,3,140,3Y * 3,169,1,141,238,2: CHANGE THE 1 FOR A LONGER INTERVALs , 169,0,141,8,220,141 . 9,220,141,10,220,173 0 10,220,41,240,240,117 2 206,238,2,208,233,238 4 240,2,173,240,2,201 6 58,208,20,169,48,1415,162,8,160 L 15,32,186,255,32,192; N 255,162,15,32,198,255W P 32,207,255,201,13,240q R 6,32,210,255,56,176 T 243,32,210,255,169,15 V 32,195,255,32,204,255 X 76,7,7,76,131,164 Z 18,78,79,90,65,80 \ 146,32,66,89,32,66 ^67)745: 15,32,186,255,32,192; N 255,162,15,32,198,255W P 32,207,255,201,13,240q R 6,32,210,255,56,176 T 243,32,210,255,169,15 V 32,195,255,32,204,255 X 76,7,7,76,131,164 Z 18,78,79,90,65,80 \ 146,32,66,89,32,66 ^ 92J,1)(64J)(8)(95)::A$(160,1)(95)= 2A,A$:A155X 3A$(A,1)(91)A$(93)a 6 50 7J026:A:A$(A,1)(99)(64J): 8J14:A,B:A$(B,1)(99)(A): <"ENTER THE FILENAME OF THE PROGRAM THAT" ="YOU WANT TO LIST:";:1,0)ISK DOCTOR 64.4 DISK DOCTOR MAIN7DISK DOCTOR PLUS DISK HANDLER' DRIVE NO KNOCKMETABASIC MLX64 2.02NOZAP.64 đei` ݭݢ  &(&I`… o  iii i д`M-W  "F4",139,"F6",140,"F8",144,"BLK"R 145,"UP",146,"RVS OFF",147,"CLR",149,"BROWN",150,"LT RED" 151,"GRAY 1",152,"GRAY 2",153,"LT GRN",154,"LT BLU" 155,"GRAY 3",156,"PUR",157,"LEFT",158,"YEL",159,"CYN" -1,-1 164,176,191,188,172,1 ͩ3͍L0͍1" ` QUICK LOAD V1.0 HHH lhhh@$  LmέЍqέ܍vΠ܌Ќ=ķ ȐÅą ΩI ΍ͩͩ &W Ί  ͈ &өE Ω ɂ *i ѐީ, Liۤ , **HhHhHhҥкС7* 0` ͩ &W Ί  ͈ &өE Ω   "";'A$: " ";:A$""20E A$(133) " ";: 100T( A$;: 20~d 56334,(56334) 254: 1,(1) 251n I0 127: J0 7: 32768I8J,(53248I8J):J:Ix 1,(1) 4: 56334,(56334) 1 55,255: 56,127(  B(YQ)N: H(X)H(X)M5 MM2: Y: QQ8: NN2: XC Y0 7 V(S,Y)B(0Y)B(8Y)B(16Y)B(24Y)B(32Y)B(40Y)B(48Y)B(56Y) Y: SS1  S40 320  S0 39: Y0 7: 4,(V(S,Y));: Y: S "S0 ,4,4,4: 4,4: }ϩ"ύ#`{z9:ύL3淩 L 8_ ȱ_ L_ 4 : C$ ""?  "INPUT FILE NAME TO DISPLAY ? DOC"; FI$\ 4,DE : B$ C$ : T 0m  1,8,5, FI$ #1, A$ : OK ST  DE 3 35 A$ "" A$ (17) " 40 # A$ "" 40 $ "PRESS ANY KEY TO CONTINUE" % INwL texts`@A@@@@-g)%#!5 $ ߜ= $-#L01) `T01 TURBODISK DISABLED TURBODISK ACTIVATED $ ķL E o U C x  ,0LæĥĮĄ 00 LđĐ HhX`,8 Bx <K);ɂȹ*=?;0KKb;ЭL XLE"Bb;;ȱ;  `,,0* * HhHh`(X$0xN 2301 :P77,187,165,180,162,181,161,182,167,170,185,175L 171,178,174,163,184,190,179,189,183,173n 42,223,43,166,45,220,92,168N",19,"HOME",28,"RED",29,"RIGHT" 30,"GRN",31,"BLU",129,"ORANGE",133,"F1",134,"F3",135,"F5" 136,"F7",137,"F2",138, ,0,HhHhHhHh & &٭0F=Υ ̠̅̅̐СHЩh`,8H ΩM - hL ܩ `1"^ P0P L7hi*hL- ,W  lQUICK- $CD00**HhHhHhҥкС7* 0` ͩ &W Ί  ͈ &өE Ω  B(63): V(39,7): S0: 4,4,4? 4,CHR4(27)"A"(8)[ 4,(27)(75)(64)(1);y CL1024 2023: C(CL) L(C8)32768 X0 7: H(X)(LX): X Z0 63: B(Z)0: N128:Q0: X0 7: M128: Y0 7 H(X)M E4,(13);: 4,4: 4,4,4, 64,(27)(75)(64)(1);; @ CL: 4,44,(27)(75)(64)(1);y CL1024 2023: C(CL) L(C8)32768 X0 7: H(X)(LX): X Z0 63: B(Z)0: N128:Q0: X0 7: M128: Y0 7 H(X)M = "OMMODORE 64 CHARACTER SET EQUENTIAL ILE RINTER"w "OMPATIBLE WITH ETA- ( UFFER DITED AVE)" "AND ROTOCOL SCII OWNLOAD"DE 3 : C$ "" "OUTPUT TO CREEN OR RINTER ? S"; IN$  (IN$,1) "S" DE $ : IN$ "" 37 (4, A$;6 - (A$) 13 4, B$;J 2 OK 0 100\ 7 DE 3 30s < A$ (34) 30 F T 0 B$ "" : T 1 : 30 P T 1 B$ C$ : T 0 : 30 Z "ERROR" d 4 n 1 x (IN$,1) "S" DE  ± )L , @ @  L `  hh  ``@ (@ ,`   ` ` ,{   ,`H ,© h`H ©,h`  X`ӱ<  aLı>  6 lũ ܥх҅` V<>:;ɔɓɑ Ġ a ĩ Ġ9 6 ĩɝ  ĩ Є ` `Hӱ)h` Ģ$"%%%$Lű#<"'%$L"%#P 8G" :# `iD DL @L|EEEE 4Z |P$` ЯЍ!,,0`W   d20635"Y!%' ȹ 7+8, N +Ѝ,' s D',,z,厍#o 1 ȹ3K1 1 ȹ` 1   z )   3,2`8#&#%4ii`-" YN @ !,"!N   ` H 1 HH1*H  `  L接+,`z-,4ȩW4Ȍ$ȱȱ+ȱA,(D42$8$$*2 $ (D L b $2   * ii-.L (T j` $2 S   ADVANCE ANY RESIDENT PROGRAMS .... (WEDGE, MONITOR, LINK)? N DISK INPUT PATTERN? *$0: ** NO FILES ** READING FILES: ** READY TO WRITE FILES ** PRESS ANY KEY OUTPUT TO TAPE OR DISK? *WRITE END-OF-TAPE MARK? * ANOTHER OUTPUT? HOLD DOWN4,4:4,(27)(0):4@'" KOMMER STRAX!":900Q,PN$"MC1":XsE"":53280,4:53281,4F52000,"FIXREG.V.4":""H52000,"Y.LINDBLAD":""I52000," (C) 1987":""JPN$"MCYL":X ^VS831:MS895:HS959:V53245:A:I,A:I:, 169,80,133,69,169,206,133,70L 32,231,176,160,0,177,71,72m 200,192,3,208,248,162,8,169 0,160,1,32,186,255,104,168 104,170,104,32,189,255,169,0 168,170,32,213,255,96KN$"MCYL":X ^VS831:MS895:HS959:V5324 5PQP⥋ƌƋ`8`Hh`PQePeQ`xsX`f)@ũ,w L@ũ ,w, L @ L @ +L @ ;é L1 4 > _©)@ h,é ` $  ` 4­ i t` 4­!i! t` 4¥åé؅iL[íÅÅ` ` ` G&`ŌŢxX ĩ Ġ9 6 ` ,`Ŭx@ @"'>""""&":'`i(`8(`Ӧ"ŐŐ La ű< `ӦֈŰ ĠL8 *ʱ< ` Ŭ&"'<> LŬű': 6L `( â ': L Ed 3,4,31!3,"BAUD=2400"4,3,"UNCONVERT";3AUICKSCREEN DUMPSEARCHLIGHTSEQ LISTERSWOPTIONSTURBODISK.49152& )&8#&) SPе)%$$2 $ ?  L ȹ  % ȹNE ȹ_ V '6 '7 ȹ YN `3 7" " 2Ȫ! .$4ɠ$$$ȥ*2 $ b $2 %  ȥii  * -.L `z(D I 0 $4ɠ$$4 $  ` 8 8+卍/,厍0m/m0 j­+, g` ȹp ` ȹ TD (D ȹ YN( ` UNICOPY V1.1 JIM BUTTERFIELD FORMAT OUTPUT DISKS IN. 'Y' OR 'N' TO SELECT FILES ... MORE ,厍0m/m0 j­+, g` ȹp ` ȹ TD (D ȹ YN( ` UNICOPY V1.1 JIM BUTTERFIELD FORMAT OUTPUT DISKS IN8:SP20428 c2,8,2,"0:S1,S,R":IVSVS64:2,G:I,G::2i h2,8,2,"0:S2,S,R":IMSMS64:2,G:I,G::2 m2,8,2,"0:S3,S,R":IHSHS64:2,G:I,G::2 "LOAD"(34)"FIXREG. V4.0"(34)",8:" 198,2:631,19:632,131: X52500 IXX4 @ L* Ƌ GH檥ũ ) 0$ūѾ ĪP ` ```O`接Ōŋ8`` ʵ K    * 0 UL eL ?x"ƍX``Δ: ؅) ) 㭓Il>>?xX`1xX`,ƩL  GH  ǰ'GG0 Ѷ Ɛ٩, G'H(GG iȐ) cȩ`ȥ$%'G(H ǩ,cȩ` yȠGGѶ䋐,Lȥ`8`GHG`G& & ` GH  ǰ'GG0 Ѷ Ɛ٩, $d r -qbdeF"#8ȥe#ed"dee#ede"db b 0qqqe 0L r L L 0 dIdeIeL oqdLX u zQP ۶P#P"P po ۶LʴĤe op lm8aaff lb`lnlIlmImml`ldme ʥlEd0` ` 9P:Q Ly L P9Q:L -.`_0/ȑ_e_7834 hhHH;AB`ed ۶bcaLöa`JE8meldL meeleddep`bcff r hihjhkhlhm & L hohp L L $L )$B r9:L )@ֆz{Cz{ y п Eк s$ 08 B y, b=>9:L zC`津浈拥挥Ōŋ8`` )(  Ŷ涩؅ׅ } }ƶ ƴ`i(ii(i膵```ȱ(!) ` N $% 2076 Y.LINDBLAD1987LA L f v ;$2 U sfHHO &-3G jjjjbbW ++ UU%%%UUF{{{~{{{{{{{x{{'d jS+{,%<Lcn %jji [8* X v/ijkn lmm0m*jmkilm <UVnEfoalUޥ<  L L  00 0 F< l%ddm%e lddmee`i0k80LHjJfknIlkImpLۼbcd0f0d`dElfd r del llmm()bcdejk()F(f)eemedeldcekcbejbm&l&k&jѥdIdeIeed`9:z{=>Lhhz{9:$P 8 D Ahh h;9 e99:9<0G UVlUh0hn9i: L 7L ()99:a9:9b:c ʴaL L. LLH,L{Lʆde ` 99:j99: &j8e/ije0jike/_ȱie0`kJ_F_E_ ie_Xqre`Yh0hnhihjhkhh mHlHhl_ h_UhiVhphfhahbhchdhelU Ҩj$p a0080 IFb0f Mb(jfc(dce`0 $f0 0d0L0 edBLH7abcfdf r dee0e*becadep` bL( <i կL 0Ffd r L LK [  q.8 8 Ii qF<H h8  ; ת /?>GJN ' N<>+  >7 0:REG.,S,R`!#(>aܱ6 6HSHS66H7SH7S7766H6SaοBI * > <123456>>>66POS.<6<:<6> ? J/N>GJN )0N'2" NGET REGISTER INLADDAT >6Р68k9>2 1= 3= 5=-50 7 `?§çĨPŧƽMkkk'()Af:P>$0`HFGHFGHFGʳHG߉"3{HG"3 HG 3̳̌HGߋ6͌4SEQ < >: <870301>:< >: <1 >< 41>:ٿ`BIC? ښۛ ۜ '">{ ]RMMDD <<>C,DAT$:<30>:ݝ61,  > >" 8= >" = . >  .: << >/*ISKETTEN FULL G] UR PROGRAMMET VIA F8>G&$)J !"-( < >> (123456)>% ( )># < >>% ( )># < >>% ( & )># <  >>' < >> ISKEN FULL> נ  #   BB-A:<< ISK FEL TRY.S.1///! / [NTA JAG SORTERAR>@,2,SN,REG$(F),TS$(F),NN:#`B<'CE,IN$:a!#<(< P]R/LOCK<'>ISK FEL TRYCK 1>ܟG"v`B3< -<=4CB< <>GJN #֟N.A EN PAUS! \R DETTA KAN TA L]NG TID >BVC111$DBB-A:<<1C251361443$o3461~6144 d4"4FYLLER 40 ]R 62"5$ر6(666B6CB6C6666B6Ca!#)(> >66>{,  ><(4>( . > <>C,TAB$:61C * >) >' . >) .> <123456>>66<6<: <6>P <6S=+50 >2 2=. 4= 6= 8=.>+< >< > :>>87877 '4>*^7< <7<>G"89C 88888 99+I82888maΧ ϏRT U1 5 0 U2 5 0 B-F:0D< >< >< >8<>< ><-><=>F---------------------------------------------------------------------- <(4><<>$ 1= >" 3= >" 5= >" 7= >" 2= >" 4= >" 6= .O#T&+$$ [KERT ATT DU VILL AVSLUTA? J/N>GJN -NO0 7= 1= 5= >,  > ()> >< >>( () ()># < > < >> ()> < >>' ( )>' < >>' < CK 1>ܟG . ) *:#(+,H#U(W+W,Q+ >"--* > <> POS. 123456 9> .: 1>  d  << <>> c <><>>C,RUT$:61061 00 00  0  0 0-. [KERT? HAR DU R[TT REGISTER INN F6 N6D4E86,  ><(4> >  /?>GJN %GNBS0:REG.C!#(>%! 0:REG.,S,W`!#)(>ROVA ANNAN FORMATERAD SKIVA>a%!BCBC RV$:. .>F.,2+>'$B$F21'<66 <6<B <>3)1 `BCa6_1? 1 >G2B>{>66POS.<6<=<6>! = > <> POS.:12=ݘHA hо` ` REG.1 REG.2 MC1PROGRAM. 8888 99+I8288888+*& !),p).O)+)*_*&ߠ988C9ߠ9C C9߱6696*a9C 8''-9C 8'''89 1= > = <<> = >) ? J/N>GJN  @ 4"5J 05@ 1i52N3* ><(4<<<'' . <'>P <:SP . <;S;1 :10#lP . < 1=>GJ N -RN>&+>0' '$)=)3)>". ""    5B.O D5D֟62NB4h < >:ֱB>{" ? <<> = >C,FD$:0c6< >< >`B6#  3= >  =<<>#  5= >#  7= >#  2=- >#  4= >G  DGAXYA1A2SNNNNFQOKƱƲRUIJɱSYFTEEXSMR1R2R3FDLR`B60# 1i*. > ? J/N >GJN 1NJ>?@A)5 "">>F,R1,REG$(SM),7,U LHHH }h#h"0"ɀ))? v˩G PLЅ)؅*e)ܥ)****0ҥ  ܠ 01̅)@ ) 3456>C,URV$:* ># ILL SK[RM ELLER PRINTER ?>GSP 3PC5`B666>Da `B664<6>B?4<>3{?Da5*   ETTA REGISTER [R I F\RSTA HAND AVSETT ATT KUNNA SAMLA FLERA OLIKA ADRESS OCH TELEFONREGISTER I ETT. AN KAN SEDAN G\RA UTDRAG OCH RAPPORTER UR DETTA REGISTER TILL SKRIVARE ELLER SK[RM.C 8''+շ)* '6<  />GJN +N <(4>BB-F:0 <'C'''ܜ ) >)* 㰅) >9C 8>'  1 = >'  2 = >'  3 = >'  5 = >  = <<>'  7 = >G.9GG  -">C,IN$:-" ܜ' '!4> ""->{>C,IN$:>GC,IN$:-  ><(4<<<>#  1= TFVSMSHSVSPODDNINRSANUUBPPPUDFRBIRTTAGTSINABC   /4h3/02N.O*R.NR > = <<> = >) ? J/N>GJN  0A<870301> 1 <>< > 3 3 S2S3 ERINGEN. 3 H[MTAR DET "KORT" SOM PILEN PEKAR P], D[R U [VEN KAN [NDRA ELLER SKRIVA IN NY DATA P] KORTET 4 AR BORT DE KORT PILEN PEKAR P] FR]N REGISTRET 8 ETTA VAL TAR DIG TILL SJ[LVA  ATT DETTA [R EN V[N SOM U B]DE VILL KOMMA IH]G P] F\DELSEDAGEN SAMT SKICKA JULKORT TILL. [TTER U EXEMPELVIS ETT I F\RSTA POSSITIONEN, I FJ[RDE OCH ETT I FEMTE. U KAN GIVETVIS ANV[NDA DIG AV VILKA SIFFRO DEN SIST ANGIVNA). ENNA NYCKEL STYR ALLA UTSKRIFTER FR]N DENNA . U KAN G\RA URVAL I HELA REGISTRET EFTER DE OLIKA KATEGORIER U VALT ATT KODA DINA REGISTRERINGAR MED. M U EXEMPELVIS VILL HA ADRESSET EGISTRET RYMMER 525 ENHETER PER DISKETT. AR MAN BEHOV AV FLER ENHETER F]R MAN DELA REGISTRET P] FLERA DISKETTER. ROGRAMMET [R MENYSTYRT OCH L[TT ATT ANV[NDA DET BEH\VS INTE VECKOR AV STUDIER F\R ATT F] IN I KORTET IGEN GENOM ATT TRYCKA F5). RYCK F7 F\R ATT LAGRA DITT KORT P] DISKETTEN (STOPPA TILLBAKA DET I L]DAN). [R LAGRINGEN [R KLAR KOMMER N[STA TOMMA KORT P] SK[RMEN FYLL G[RNA I N]GRA STYCKEN KORT MED OLIU G\R N[R REGISTRET INSTALLERAS. [NKTILL INNAN U DEFINIERAR KODNYCKELNS BITAR. N BRA METOD [R ATT G\RA F\RSTA POSSITION TILL HUVUDGRUPP OCH POSSITON 2,3 TILL DELGRUPPER. HUVUDGRUPPEN KAN EXEMPELVIS "" ST] F\RYCKEL. U FLYTTAR DIG UPP OCH NER I REGISTRET MED -TANGENTERNA SOM STYR PILEN. ILL U G\RA ST\RRE HOPP [N 20 ]TG]NGEN TRYCK D] F7 S] HOPPAR U FRAM 50 ENHETER OCH F5 50 ]T ANDRA H]LLET. [NGST UPP P] SK[RMEN FNYCKELN FUNGERAR INNAN U DEFINIERAR DE 6 OLIKA BITARNA I NYCKELN.  NTAG ATT U D\PER FJ[RDE BITEN I S\KNYCKELN TILL  DEN FEMTE TILL . (ETTA [R BARA EXEMPEL DEN SOM VILL ANV[NDA REGISTRET SOM KU <1 > TILL < > S] M]NGA U SKRIVIT IN TRYCK N[R U [R KLAR. [REFTER VISAS SISTA ENHETEN I REGISTRET DETTA [R ENDAST F\R ATT U L[TTARE SKALL KUNNA ANGE VILKEN POSSITION I ENHETERNA SOM SKALL STYRA SORTTT TOMT KORT P] SK[RMEN MED DIVERSE RUBRIKER. URSORN STARTAR ALLTID P] F\RSTA RUBRIKEN SOM [R KODNYCKELN. [R BEST[MMER U ALLTS] VILKEN KATEGORI DEN ENHET SKALL TILLH\RA SOM U SKALL MATA IN. M VI ANTAR  K[RNAN AV PROGRAMMET D[R YTTERLIGARE EN MENY FINNS 1: TER TILL HUVUDMENY ELLER REGISTERLISTNINGEN OM U UTGICK D[RIFR]N 3: NDER DENNA RAD VISAS DEN AKTUELLA S\KNYCKELN (I REGELR ELLER BOKST[VER U VILL I DE OLIKA BITARNA HUVUDSAKEN [R ATT U [R KONSEKVENT \VER HELA REGISTRET. [R U MATAT IN DE UPPGIFTER U VILL TRYCKER U P]  (SKULLE U R]KA TRYCKA INNAN U [R KLAR KAN U GIKETTER TILL ALLA SOM SKALL HA JULKORT I DITT REGISTER, S[TTER U ETT I DEN POSSITIONEN U VALT X:< J > ENLGT EXEMPLET TIDIGARE. ET G]R [VEN ATT S[TTA FLERA VILKOR :< JS >, VILKET GER ETT URVAL AV ALLA S] DET ATT FUNGERA. AN KAN SE DET SOM ETT KORTKARTOTEK P] 525 KORT D[R VARJE KORT HAR EN LITEN KODNYCKEL P] SEX BITAR <------>. ENNA KODNYCKEL DEFINIERAR U SJ[LV (MENYVAL F2) HUR U VILL OCH B\R VARA DET F\RSTA KA KODNYCKLAR, S] KAN U TESTA RAPPORTRUTINERNA OCH F\RST] HUR DET FUNGERAR. [R U [R KLAR G]R U UR MED  TRYCK SEDAN F1 S] KOMMER U TILL MENYN. RYCK NU F5 F\R ATT SE REGISTRET SOM INNEH]LLER NAMN OCH S\KN [NNER, "" YNDIGHETER " OSV. \RSTA DELGRUPPEN KAN "" ST] F\R L[KTING, "" REVV[NNER OSV. ENNA KODNYCKEL ANV[NDER U N[R UTDRAG OCH RAPPORTER SKALL G\RAS FR]N REGISTRET. ET [R GANSKA VIKTIGT ATT F\RST] HUR INNS EN MENY F\R OLIKA VAL. 1 FLYTTAR DIG TILLBAKA TILL HUVUDMENYN. 2 GER DIG M\JLIGHET ATT SORTERA REGISTRET P] FLERA S[TT. U M]STE ANGE VILKEN DEL AV REGISTRET U VILL SORTERA B\RJA MED HELA REGISTRET  NDREGISTER KAN JU V[LJA KUNDKATEGORI ELLER DYLIGT. ARIATIONERNA [R OTALIGA). [R U DEFINIERAT NYCKELN EFTER DINA BEHOV S] [R DET DAGS ATT B\RJA REGISTRERA. ETTA G\R U GENOM MENYVAL F7. U F]R U UPP E IR ? < > [R KAN U SKRIVA M]NADENS NUMMER ELLER OM U VILL S\KA \VER HELA ]RET L[MNA M]NADSRUTAN TOM. NDAST DE KORT SOM HAR PERSONNUMMER ANGIVET KOMMER ATT SKRIVAS UT. AR MAN BARA ANGIVIT F\DELSEM]N MMD10916:SP12094:GP12156:OC12230:CC12233:CR12465:WW12592:RP1262853280,.:53281,.:788,52:A$(112):(142):SO12955:EZ13047S1:A0: SET SOUND & ASCII CONVERT DEFAULTS 1=ON - 0=OFF "":K7:A$"": URVAL MED HJ[LP AV URVALSNYCKELN. 7: [R FINNS YTTERLIGARE N]GRA FINESSER. M TRYCKES SAMTIDIGT MED NEDANST]ENDE KNAPPAR F]S F\LJANDE FUNKTIONER. / GER EN AVSKR 20I)(A$,I)(A$,I): C I11000::I18:59626::2025,2r K6:A$"THESE M/L ROUTINES ARE USED ":10 K7:A$" ":237:10:229 K9:A$"READ/PRINT/SCROLL":237:10:229 K11:A$"MI'S DIRECTORY":OM HAR B]DA KRAVEN UPPFYLLDA P] SINA "KORT". N TOM S\KNYCKEL TAR HELA REGISTRET. 5: ETTA VAL GER DIG EN UTSKRIFT AV DE KORT, SOM ST[MMER MED URVALSNYCKELN. OM NYCKEL=SAMTLIGA "KORT", MEN INTE OM OVAN, MEN OM SKRIVAREN [R AV TYP 1526 ELLER 802 F]S EN UTSKRIFT UTAN RADAVST]ND. /1 NDRAR RAMF[RG. /3 NDRAR SK[RMF[RG. /5 NDRAR TEXTF[RG MEN M]NGA TEXTF[RGER I PROGRAMMET [R STYF]R U ALL DATA SOM FINNS P] DISKETTEN UTSKRIVET. 7: [R G\R U P] SAMMA S[TT SOM OVAN, OCH SOM TIDIGARE BESKREVS ANG]ENDE URVALSNYCKELN. KILLNADEN [R, ATT U F]R ETIKETTER UTSKRIVNA MED NAMN TTEN". NTAG ATT U HAR SKRIVIT IN EN DEL NYA REGISTRERINGAR OCH DET PL\TSLIGT BLIR STR\MAVBROTT. ] HAR U BLOCKERAT VISSA BLOCK P] DISKETTEN, SOM INTE FINNS MED P] REGISTRET OCH SOM U D] INTE KAN ANV[NDA. ETTA  YTTERLIGARE EN MENY. 1: 2: ELLER REGISTERLISTNINGEN OM U GICK UT TILL RAPPORTMENYN D[RIFR]N. 3: R]GAN EFTER DETTA VALET BLISTER OCH DISKETTER. KULLE U R]KA HA FEL REGISTER INNLADDAT I DATORN, KAN U G\RA OM KALIBRERINGEN MED R[TT REGISTER OCH D] [R INGEN SKADA SKEDD.  1987 U VILL KALIBRERA, OM U HAR FLERA OLIKA REGAD R[CKER DET F\R UTSKRIFT, MEN D] KOMMER GIVETVIS ]LDERN SOM SKRIVS UT ATT VARA FEL. TSKRIFTEN BLIR I FORM AV ETIKETTER 5: AMMA SOM OVAN MEN MED DEN SKILLNADEN, ATT MAN KAN G\RA10, K8:A$" ULTRA SEQ-PRINT ":10X K9:A$" VERSION 5.5 ":10 K10:A$" R.W. (BOB K7) KOBER ":10 K11:A$"":10 229:((2025)7)13:25 M(A$):I1M2:"":J1K:"";: IFT TILL SKRIVARE AV DEN SK[RM U F\R TILLF[LLET HAR FRAMF\R DIG. ENNA FUNKTION KAN UTNYTTJAS N[R SOM HELST UNDER PROGRAMMETS G]NG. EN KAN EXEMPELVIS ANV[NDAS F\R ATT G\RA KARTOTEK-KORT. / AMMA S237:10:2291 K13:A$"IT'S CURTAINS":237:10:229Z K15:A$"2-COL. READ":237:10:229 K17:A$"SNAP-SHOT":237:10:229 K19:A$"EZDIR":237:10:229 K23:A$"ANY KEY TO START":10:198,.:198,1:198,0 150,160:SP:25 ALLT SOM SOM ST]R P] KORTEN BARA NAMN ,ADRESS, OCH TELEFONNUMMER. KULLE U VILJA HA EN PAPPERSBACKUP P] HELA DITT REGISTER, S] T\MM URVALSNYCKEL V[LJ D[REFTER F5 OCH TRYCK @ IST[LLET F\R N[R FR]GA ? VISAS. ] RDA, S] EN [NDRING H[R BLIR BARA TEMPOR[R. !! 4.() M U GORT N]GRA [NDRINGAR I REGISTRET.  ENNA RUTIN [R TILL F\R ATT KUNNA "ST[DA P] DISKE OCH ADRESS. 2: - AMMA SOM TIDIGAR MEN MED DEN SKILLNADEN, ATT ENDAST NAMN OCH TELEFONNUMMER SKRIVS UT. ! ARA TILL SKRIVARE. 4: ETTA VAL TAR DIG TILL  KOMMANDOT \PPNAR F\RST ALLA BLOCK P] DISKETTEN F\R ATT SEDAN BLOCKERA DEM SOM FINNS ANGIVNA I REGISTER FILEN. ! AR NOGA MED ATT U HAR R[TT REGISTER TILL DEN DISKETT U VILL KALIBRERA, OM U HAR FLERA OLIKA REG T:F125506:54273,F1:F1,hF1025550:54273,F1:F1:Z:F2150.1Ti54296,F2::54277,128:54278,250:j(S0)236:L5427254295:L,0::54296,15k54277,8:54278,255:54276,23lZ11:F110:Y16:F230:54273,F1:X13:54287,F 3,228:50575:59:716F$"2":53<7F$"3":600,0:76:59:COL70,195b8F$"4":600,1:76:59:COL70,195y9F$"5":77:59:70:F$"6":77:59:70;"":214,X2::" ($=DIRECTORY M=MENU)"<19,32:" ENTER SEQ FILENAME $";FF MENU":106t198,1:A$:A$""QQ1:u4,4,7:112)v15,E,E$:E0Yw" DISK ERROR ENCOUNTERED"rx20(E$)2)E$:106y" ANY KEY TO CONTINUE"z198,1:2:4:{K21:A$"  ARE YOU SURE? ":1 :QQ26G2,8,2,FF$:118:(E0)26:844H2:4:65511:15,8,15:X10uI81:214,23::"  RESS F5 FOR THE ENU "JA$:(A$(135))74:26KX68:781,X:59903::LX1113:781,X:59903::78:MX1618:781,X: DISK HOUSE KEEPING MENU "6)" "B6)" "i6)" 1. SCRATCH A FILE "6)" 2. RE-NAME A FILE "6)" 3. FORMAT (NEW) A DISK "6)" 4. VIEW DIRECTORY 150,160:GP:198,.:198,1:198,./ 53280,.:53281,.d CC:53272,21:""8)"" 8)" MAIN MENU " 8)"" I1300::2,5:878,20:OC BOB150,168:GP:49 43)"USE 87,F2:F2F21.07::54278,15:3TRP$"":F$"1"F$"2"RP$" "qUCC:(14):""2)"***********************************"V2)"* "F$" -Š"RP$" *"W2)"***********************************" X214,23::"OL"A%3)" ߒ  "t&3)" F3 40 COLUMNS TO PRINTER  F4 "'3)"  "(42)"")3)" ߒ 10:`98:RP,80,0,1:XI0:a98:RP,79,1,1:XI0:-bI15:4::>cA1A:820,AGd234e198,.:198,1:X1113:781,X:59903::"":310f(S0)236:L5427254295:L,0::54296,15:54277,8:54278,255g54276,21:54287,40:Z1EPING QUIT  F8 "7/3)"  "T0BO0BOB1:150,168:SPq1198,.:15:15,8,15:2312A$:(A$"A")99:(A$"S")230:A$""A$(141)503F$(((A$)132),1)4((A$)132)53,55,57,128,54,56,58,122mF2F21.2:X:F1F11.5:Y:W130:54273,F1&n54287,5:V15:VFoF1F11.5:W:Z:54278,15:ap4:ST04,4,7:QQ0:q" THE PRINTER IS NOT ON LINE"r" TURN IT ON, AND PRESS ANY KEY"s" PRESS F5 FOR THE$=FF$"M"30>FF$"$"CC:X134:O?15:15,8,15:FF$"$"15,"I":15,E,E$:E"":119Y@E26ACC:(142):MD::15:15,8,15:CCB(598)3426CX10:FF$""DFF(580X1):FF34EFF$FF$(FF):X1X11:68F4,4,7:1120|198,1:A$:(A$"Y")126:""}30H~"";:8)" USE ULTRA AGAIN, SOON "c198,.:T3:102:65126lFF0"":214,8:6)""6)" "6)"59903::N214,11::6)"1 OR 2 COLUMNS?">OCOL$:COL$"1"COL$"2"79PPCOL(COL$):Q(S0)236:L5427254295:L,0::54296,15:54277,8:54278,255R54276,23:Y13:F28:54273,2:X15:54287,F2:F2F21.4S::W18:542 "6)" 5. RETURN TO MAIN MENU ",6)" "S6)""198,.:198,1:A$:(A$"")30:A$"1"A$"5"142K(A$)K150,175,188,240,30512,32:"":53280,.:5 EMBEDDED IGNORE"C 2)""x !3)" ߒ  ߛ" "3)" F1 SEND OUTPUT TO SCREEN  F2 " #3)"  "$42)"D SHIFT TO PAUSE - RESS F6 TO ABORT",YI1300::2,12:878,20:OCjZ214,23::"OLD SHIFT TO PAUSE - RESS F6 TO ABORT"[(F$)92,93,94,95,96,97\RP,40,0,0:X10:]RP,39,1,0:X10:^98:RP,40,0,1:X10:_98:RP,39,1,1:X  "<*3) " F5 80 COLUMNS TO PRINTER  F6 "n+3)"  ",42)""-3)" ߒ  ".3) " F7 DISK HOUSEKE T.I11500::150 60(E9$)2)E9$!81:I11000::26.!X2023:781,X:59903:U!"":214,20::9)"OLD NAME = ";!FF34FF0:""FF$;:PN$FF$:783,.:180!19,32:"$";PN$:19,.::PN$"4"30!PN$"$"FF$PN$:150,96:SP "CTRL-R:RECALL BUFFER' "CTRL-V:VERIFYI "CTRL-X:TRANSPOSE CHARACTERSf "CTRL-Z:END OF DOCUMENT "CTRL-4:DISK DIRECTORY "CTRL-^:SEND DOS COMMAND "CTRL-\:ENTER FORMAT KEY :: "HIT ANY KEY TO CONTINUE" A$:A$""29: :E26:RWK"81:26# 2)" ---WARNING!!!--- "B#" ALL DATA ON THE DISK TO BE FORMATTED"o#" WILL BE DESTROYED - OK TO CONTINUE?"#198,.:198,1:A$:198,.:A$"Y"30#" OKAY - FORMATTING TAKES 90 SECONDS"ME:ERASE ALL )"BACKARROW:BACKSPACEG *"CTRL-BACK-ARROW:DELETE CHARACTERQ +::x -"DEFAULT VALUES ARE LEFT MARGIN 5 ."RT.MARGIN:75;BOTTOM:58; /"HIT ANY KEY TO LOAD SPEEDSCRIPT" 0S$:S$""48 1"SPEEDSCRIPT",8 2$""29: "$787,25:2,15:OC%L""43)" << EADING ILE NTO AN RRAY >> ",%214,23:n%" ԙ TO AUSE ---- 6 TO BORT":LL0:206%2,8,2,FF$:118:E25%YY1:CR2,0:CR%K1112:A$(K)""::U0%((CLi(ÅL`&' Ɯ朑` ` &  $  s d V ` U V `' LH)Jh)?`&&I&  )L &_ &L 3281,.40)" ";B" THIS ROUTINE WILL SCRATCH A FILE ";s" "42)"ENTER 'M' TO RETURN TO THE MENU."42)"ENTER '$' TO LIST THE FILE DIRECTORY."26:211'U" ԙ TO AUSE ---- 6 TO BORT":U0 '(YY112)217::207W'X0(CR2)1:AA$((512X)):A$(YY)A$(YY)AA$:'SO:214,19::A$(YY):2:65511:4,4,7'""44)" << ATA TO RINTER >> "'I15:/N)"K$:K$""164 K$"Y"FF$"":1501 B$" SCRATCHING  "FF$" ":20(B$)2)B$B 15,"S0:"FF$` 15,ER,ER$,T,B:K2K3{ G9$(ER$,4)(ER$,10) E9$" "FF$" "G9$ T.48)"**** FILE NOT FOUND ****":106:150  "CTRL-A:CHANGE CASE9 "CTRL-B:CHANGE BACKGROUNDL"CTRL-E:ERASEu"CTRL-H:HUNT FOR STRING (WORDS,ETC)"CTRL-I:INSERT MODE."CTRL-K:CLEAR BUFFER"CTRL-L:CHANGE LETTERING COLOUR"CTRL-P:PRINT (ASSUMES 1525 PRINTER) :63:150,96:GP:176!214,21:"9)"NEW NAME = ";:"19,32:" ";NN$:19,.:781,21:59903:214,21:J"NN$"4"30"CN$ " "PN$" IS "NN$" ":(CN$)33CN$ CN$" "" ""22(CN$)2)CN$"":15,"R0:"NN$"="PN$"118"" "F1:NEXT WORD) "F2:PREVIOUS WORD@ "F3:NEXT SENTENCE[ !"F4:PREVIOUS SENTENCEs ""F5:NEXT PARAGRAPH #"F6:PREVIOUS PARAGRAPH $"F7:LOAD %"F8:SAVE &"CURSER UP:PREVIOUS SENTENCE '"CURSER DOWN:NEXT SENTENCE ("CLR/HO#15,"N0:DC BUG -FILES,DB":168:ER0119#30$4:4,4,7:112:QQ26;$L0:"":53280,11:53281,11v$53272,23:""3)" "$3)" << EADING ILE NTO AN RRAY >> "$3)"   2061 g L 3467  ((̺47ॴ``e{ze~}褴 $ % {~`(Åĩ؅  Р)(눱) 'ȄÈei<( R3)0)215:(CR2)80(CR2),0&X0(CR2):AA$((512X))3&A$(YY)A$(YY)AA$:(A$(YY))40YYYY1l&:SO:214,19::A$(YY):YYYY1:((600)0)145:WW&(653)1214,23::" ř TO ONTINUE ":U1&(653)1((197)6)2H h _) F H h & 8&'&i'i&' L } } L ʊ HH H H`#    6 B P S+P ov lk' 4z G 8&'"----------------------------------------";FF34161C19,32:" ENTER FILENAME $";FF$:19,.:YFF$"$"63:150iFF$"M"26B$"SCRATCH SEQ FILE "(34)FF$(34)FF0:""21(B$)2)B$90)"ARE YOU SURE?? (Y 4:'YY2(YY2)YYYY1'I1YY2:II1I1(4,A$(II);40(A$(II)));A$(III1)S((653)1214,23::" ř TO ONTINUE ":U1w((653)1((197)6)226:222(U" ԙ TO AUSE ---- 6 TO BORT":U0(:I PLI"2͓戌 Ι8ei  &2 h 5͖ 8"    L L8 0  & h   V `  L*   V H h)  L*   Q L*   L* `8&' &'`&'L  L &i'i8 P &L I` V Y`  V  L L L LL8ei %8Lȱ`8ei %8Lȱ=Lj H)hW L  ` > M  V L   M `%  L%S  L%P  L%L &-'.`8&-'. A -&.' L&Ӎ    .L[ L[) ̾𧥧 L[ `  V 38 LUI#L7 ͽ6L)A[)IJJ` 87 ͽ6`PEEDCRIPT BY HARLES RANNONUFFER LEAREDUFFER ULLELETE (,,): RE YOU SURE? (/): RASE (,,):  1 V 3  $ &' L  V L 7 V 3 )  V LxЍ!Щ1 X` V  ? V sL  `  N ݢ   N GOOFPROC V1.2 MARK JOERGER 1987 RUN 10 TO INPUT TEXT - F7 ENDSe53280,11:60B$((I)):B$""A$;"";:A$B$C$;:II1:J152::4 53280,12:45,183:46,9::60:A(2000)B$:B$""20 A$B$C8 &' 8&'m=i L `8 ύ8&' &'`8&'`&'`&'L &'&L &'Ɯ  `8e&i'L & `m&'ЅЩ  &L &ȱ&&Ȋ&`&)? &I@&L )@ )) I `KH@ LV L)6 k V 80Ս t V 800  `  LЍ x V `8&'hh`&'`8&Ie'Iem  V `mmЩ  &Э8 8`  * 8 `  & h  0 `  `m `) =1:LKݢ ΙLʊ HHHH`8eiL` WALRTBSNHF-LȩL L L L &''ͽL L &'ƜƜL 8ee8&'姅L+&'L x ܩЩЍX`: !ЍLL1ꭍ) Ƞ V &I& &I& @W  V ML L&'L ћ 朥ͽ#e&i'8&&''L  V ``̺0& =    _ hhLLj) =1: )ʽW LC8PJ8 LE8 )L'2 L2  V s`  V L M V D T hh`2 *@:0:̿L̿,  V , LV  V H  hL) 8&'Β TO EXITEY:AVE:APE TOPPEDERIFY RRORO ERRORS ԒAPE OR ĒISK?OAD:ERIFY:RESS Β$0O OOMO TEXT IN BUFFER.EVICE #ECOND. DDR. #RINTINGEXT SHEET, ΒUNT FOR:OT OUNDCJ8 LE8H h7 ͽ6  L L/0180* &/.0/.0/.0/.0 //L!/ 08//001LS1`8Ѝ  X V `&m'm8eϐ P V ` Pm$;:I,(B$):II1# (B$""700 220h <53281,11:A$"":C$"*":""C$;:I2560: F252,(I256):251,(I((252)256)) P46,(252):45,(251):AG CP IB.yA' & e&&'i'L &'L 8 L )`)L&'Ɯ. !?`.!?ƜL Ƨ L Ls &'L &.!?''ͽL & .!?L AR PORTO U KLKA T TER AN OCKSA ANVANDA OSTIRONUMMER 88 93 12-5 (SCANDINAVIEN ) CANDINAVIEN ) OM DU S SKRIVER LF RIKSSON SOM BETALNINGS- MOTTAFFGARE. R MATION MPORT EWS! KOM SOM BARA VANTAR PA ATT FA SALJA TILL IG. MOOPORTHAND. A  ETT ENKELT SATT BESKRIVS HUSTEG FOR STEG HUR DU ENKLAST GOR FOR ATT IMPORTERA. RTILL FORETGAG I VERIGE, TEX EX MBASSADER SOM KAN VARA B  53280,12:45,183:46,9::60:A(2000)B$:B$""20 A$B$C$;:I,(B$):II1# (B$""700 220h <53281,11:A$"":C$"*":""C$;:I2560: F252,(I256):251,(I((252)256)) P46,(252):45,(25 AR DU...SA SLIPPER DU POSTFOSKOTTSAVGIFTEN (15 KR ) AR DU KAN DU KOPA / /. RIS 179,- EN INNEHALLER ADRESSER TILL FORETAG SOM SALJER -DATORER OCH -TILLBEHOR SAMT SAMMEA INVIKTIGA INFORMATION SOM * *************** *************** ET SVENSKA RPPROGRAMBIBLIOTEKET MED DET STORSTA URVALET, INTE TILL AN- TALET DISKAR, MEN TILL MANGDEN BRA PROGRAM, BADE NYTTOPRG OCH SPEL., BA- DE IMPOERTERA MER 10 GGR/AR OCH I VARJE  VARJE NUMMER PRESENTERAS ETT ANTAL NYHETER PA DEN SVENSKA MARKNADEN. RIS: 29 KR/MANAD ELLER 270 KR/HELAR.R OSTGIROKONTI O IGEN: 426 07 84-6 ----------- PRISET FOR  MPORT EWS! INGɔΠ1991! U HAR DEN KOMMIT! ATALOGEN SOM HJAL HJALPER IG IMPORTERA TILL SAMMA PRISER SOM DE STORA DATORFORETAGEN ( LECTRONICS ( LECTRONICS OCH LFA ROSS T EX). TILL 100-TALS DATORFORETAG N GOOFPROC V1.2 MARK JOERGER 1987 RUN 10 TO INPUT TEXT - F7 ENDSe53280,11:60B$((I)):B$""A$;"";:A$B$C$;:II1:J152::4"SCANDINAVIA",8,14|䧆LH1fGJP3W>/f YL RA ATT HA. ED MERA, MED MERA RIS : ENDAST 129, (SVENSKA) KRONOR RAKT TILLOMKOMMER MED 15 KR PER ORDER ETALA I FORSKOTT PA OSTIRO  OSTIRO 426 07 84-6 (LF RIKSSON) ************************** 1):AG CP INB}A'VALKOMMEN TILL EN NY DISKETT FRAN CANDINAVIEN ĝSӛ8(CÚNΚěIIɚΞ֞ɚŞ О ************* /64/MIGA. Ҡ&%$64/128/MOIGA: RENUMERERA PA MPORT EWS! OCKSA. EWSLWETTER FOR IG SOM VILL HA INFORR- MATION OM 7HETA7'HETA(' PRYLAR ATT IMPORTERA. ----------- ESLETTER MATION MPORT EWS! KOM T OCH SVENSKTSKANDINAVISKT. NGEN MEDLEMSAVGIFT TORSTA ANTALET PROGRAM TILL LAGSTA MOJLIGA PRIS CANDINAVIEN OX 525 191 05 OLLENTINAUNANA S- 191 -191 VERIGE EL 08-964072   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255? 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 REG.1HIMC1FLEXREG V4:STARTERFR.BOOT A1)50:""34)"OFF":50)*(NS1)236:I54272I23:I,.:/*SI54272:SI1,106:SI5,12:SI6,15R*SI24,15:SI15,30:SI4,21:Z*EZ*214,23::10)" ANY KEY TO CONTINUE ";:198,1:198,.*25444!H HH!Щ L|,"VL|, L* D!Ѝ Щ  - READING SEQ FILES ON DISK <-  F1 : SELECT FILE NAME F5 : RETURN TO MENU F7 : SEE NEXT PAGE CRSR : SCROLL TO FILE 0  1 11H  hЗL2 1 81 211L1 1 4 *&@[ `{)11 Ǭ1 1 hh 1181 `h1 1`ȅiԅQ218 240 0 0 96 0 0 224 0 0 192 0 1 192 0 1 128 HIMC1FLEXREG V4:STARTERFR.BOOT! 0 0 1 128 0 1 192 0 0 192 0 0 224 0 0 96 221 239 240 235 239 248 247 239 252 247 239 254 247 225 255 0 0 0 152 136 255 170 218 254 168 216 252 170 218 248 154