C,1)"?"OL$(OL$,C1)"&"(OL$,C1,12C)P:v:zDF5ASASS:NS$NS$(SG$,S):GGS:S0:6110:6400:::AL0:83:D:FE015:15,8,15,"I0":15:6900:FE:3:3,8,0,"$0:*" ;#3,A$,A$:AL0:LL0:K0:FL0:;F$"":B0:#3 F8UN:UN1DG$"$"1,1,0:2070a8 UN11,1,0,GL$:207088,8,8,"0:"GL$",S,R":8,S:S20758215081,S:S0"LISTAN HAR INTE LADDATS IN.":850:8(GS)A1900:UN:S0: 9 IG1GS:UN,P$:FO$(I)(P$,2):UN,P$:SO$(I)(P$,2) UN82200:AL2022g6UN8DG$"$"740:PA$"_"ST12820256KO015:KD$(KO)""::(DG$,1)"_"ST1286LK(DG$):K$(DG$,1):DF2PA$"_"K$"":6K$"*"K$"?"20357K51:KK$DG$:1880::2200:K50:KK$"":740:AL2040&7 2,1)+IRB%(B2)32DR$DR$" "@ITM2TM4"";oI198,0:" "DR$;:5,SV$:"":SV$DR$SV$:I((52)(50))16120I" MINNET SORTERAS.":Z(0)III EMIBE5,85:BE6,85 JBE12,85:BE13,85:BE24,15:BE4,33:BE1G|>GLS(SV$):LS34SV$(SV$,34):5504kGLR(RS$):E1LR:RB%(E)((RS$,E,1)):GL2LS(LSLR)LR(LSLR):BL2:DR$"":E1L2:SB%(E)((SV$,E,1))GRB%(E)SB%(E)(SY$,E)(SV$,E)EL2:RS$SY$::5505HSB%(E)RB%(E)RB%(E)3S$,L,2)" /"SY2:UL1:LLR:5434_E3(RS$,L,2)"/ "SY2:UL1:LLR:5434E4(RS$,L,1)"/" SY1:UL1:LLR:5434E65439E:SY$(RS$,LRSYU):SV$SY$RS$SY$:5439E<RS$(RS$,U)E?E@SV$RS$" BRA!":6400:5460&FDSV$"?"""GF:103>CZTM1TM3RS$FO$(I):5300^CdTM2TM4RS$SO$(I):5400CnSV$RS$RE0R1R11:RF%(I)9CxCCTR$:" \VERS[TT TILL ";FS$":":" "SO$(I)"":5415C D"TR$:" \VERS[TT TILL SVENSKA:":" "FO$(I)";D'198,00:F10:F20:F30:GFGoAI1G:NRI:SV$"":RS$"":SY$"":DR$"":PA$"_"IG:5060yA5200A:PA$"_"AR1GA" REPETITION"RE1":A" VILL DU REPETERA DE GLOSOR DU MISSADE? (J/N)":900:NR0BJ$"N"500MBRERE1:RP0:):IG3080L? 198,0:860:PA$"_"IG:3070f? (I10)(I10)3100l? ? PA$"_"12)"SLUT P] LISTAN.":6400:HL2850? ? 102:TC$:V$(4):?@R10:R20:R30:F10:F20:F30:GFG:SSG5:ZZ(TI):G9SS(G2)P@NR1SS::P= K0AL1"";35)"("((1(AL15)),1)")q= " "KD$(K):KK1:2300= AL0214,Y::" SKIVAN INNEH]LLER INGEN GLOSLISTA= AL0LL0" I ";FS$;= HL62490> AL0" - BYT SKIVA!":6700:850:24903> K50" SKRIV (ELLER MA,A$,A$:A$""KK(K0):2450a; #3,A$,B$:646,15(0):"V[NTA!;. #3,A$:A$""" ":2400;B A$(34)B1:A$"";L B1F$F$A$;V (F$)132400;[ 2350;` (F$,1)""2300 OM DU INTE KAN SVARACU11)"GLOSA NR"NR"AVSV$"":RS$"":SY$"":DR$"":PA$"_"NRSS:IG:4090s@I((G1)(1)1):RF%(I)4030}@5200@@@I1G:RF%(I)4160@"NRI:RS$"":SY$"":SV$"":DR$"":PA$"_"IG:4160@,5200@@:R1GPA$"_"5100A^ A0AR10:R20:R3RKERA) \NSKAD KOD.I> DFDF(AL0):3:O> > 3100:YM10:I1G:LF(FO$(I)):YMLFYMLF:YM15YM15> :I1G:LF(FO$(I)):LS(SO$(I)):I10" ";> ""I":"FO$(I);:YMLFYMLF);:LFYM ? LS(33LF(I99)):" ";)? " = "SO$(I KD$(K)(F$,6,6):ALAL1kFS$:FS$"E"FS$"ENGELSKA":OL$FS$:110I @FS$"F"FS$"FRANSKA":OL$FS$:110o BFS$"T"FS$"TYSKA":OL$FS$:110 DFS$"A"62 K"":TR$:" VILKET SPR]K";FS$:(FS$)3FS$FS$".." LFS$(FS$,14):OL$FS$:110 P783,0:782,X: 0MQ" P] DET GLOSPAR DU VILL [NDRA.":103:TR$SOO$"":" _";I$:I((I$)):I$"K"3000:T""OO$:IG1110U6700:" DET FINNS INGEN GLOSA MED DET NUMRET!":1107VI$"_" WI0"":6700:1104= [" [NDRA GLORIVNINGEN, TRYCK _n17)"OBS!":" DU KAN INTE ANV[NDA KOMMATECKEN ELLER " KOLON. D] F\RSVINNER TECKNEN D[REFTER!850:N0:G0G1:IG0A:" "MD$"; "SL$:103I(A11)" DET FINNS UTRYMME F\R"AI1"GLOSPAR TILL.K$TR$:F3)J$"J">J$"J"J$"N"G910R198,0kJ$:J$(13)J$"N"J$"J"J$"N"960"";:6)" INSKRIVNING AV NYA GLOSOR. ":103" DU KAN SKRIVA EN PARENTES EFTER GLOSAN" (T EX UTTAL ELLER KOMMENTAR). DU BLIDU HAR [NDRAT SEDAN DU SPARADE LISTAN -":670IG3SL0" DU HAR KOMPLETTERAT EN GAMMAL LISTA -" VILL DU SPARA DEN NYA LISTAN? (J/N)":900J$"J"1200SL1UN1" GL\M INTE ATT NOTERA DAGENS LISTA P] KASSETTEN!$HL7"MEN ";D+PO92(R1R3)G600\0PO92" PO[NG:"P:" DU B\R NOG TR[NA EN G]NG TILL!?FO5RE5" TA EN PAUS F\RST!":850X9)"FORTS[TTA TR[NA? (J/N)":900:6100:J$"N"200bI1G:RF%(I)0::300 C"":HL7" ;:F30".o (F1F2)1F30",":" VARAV"F3"N[R DU REPETERADE MISSAR!} R10535 Y(214)1:" DU MISSADE P]:":I1G:RF%(I)9529 W0:LE(FO$(I)):L1LE:WW1 (FO$(I),L,1)"("WL1:LLE:PR1 :LWLWW2:LW39:LWW2NG:RF%(I)0::198,0brMV$:10)"(_ = TILL HUVUDMENYN)wTM$:TM$"_"PA$"_"PA$"":|TM(TM$):TM0TM5375TM5" MELODI VID R[TT SVAR? (J/N)":6400TM5900:EM(J$"N")(TM4000,4000,5000,5000,3000:EM0:TM560DISKETTX4)"7 = LADDA IN EN ANNAN LISTAy4)"8 = SLUTA":MV$:198,0HL$:HL(HL$):HL7HL8650HL0HL6280"HL300,1100,1900,1200,1600,1700:200,1G0110 6100:11)"HUR VILL DU TR[NA?":RE0:PA$"":EM0G;MA85W" DATUM "DA$"";:DA$:(DA$)618513)""S6$" ":DA$(DA$,6):180OL$""SK$""DA$"":KL1IG1000,2000AL0:K0:PA$"":G0110 100:11);"VAD VILL DU G\RA?+4)"1 = TR[NA P] GLOSLISTAN781,Y:65520: Q(A$,1)"?"A$(A$,3)" R] SD0:8:8,8,8:8:ST" KOLLA DRIVEN! ST="ST:850:D1c T dR$OL$(G)" ORD":(OL$,6,6)"]]MMDD"R$FS$(G)" ORD" fRU(20(R$)2):""14)"GLOSTR[NING":RU)R$ g"'ї":i RADERAR" #US$" "":" +13)" & ,13)"Ѱî@ -13)"GLOSOR V2X .13)"ѭýx /13)" ":198,0 413)"VILKET SPR]K? 613)"E = ENGELSKA":13)"F = FRANSKA":13)"T = TYSKA" <13)"A = ANNAT SPR]K":MV$O$(I)"":SO$(I)"":1120:BRBRO:IA:NN1:GG1}8NN1:GG1::ANANN:NS$NS$(NG$,N):SL0:LN" -SKRIV K OM DU VILL KONTROLLERA LISTANO" -SKRIV _ OM DU INTE VILL [NDRA, ELLERP" -SKRIV NUMRET I SIFFROR (1 -"G")":GRH" INTE F\RH\RD P] DET SOM ST]R D[R." DU KAN OCKS] SKRIVA EN SYNONYM EFTER / D] G[LLER B]DA SVAREN." DU KAN SKRIVA IN MAX"AG"NY";:AG1" GLOSA":1028"A GLOSOR" MED MAX 35 TECKEN/GLOSA.0" F\R ATT AVSLUTA INSKd" TACK F\R I DAG.":" (TRYCK RETURN OM DU ]NGRAR DIG){"G200":J217Y242:J,(J)128:DO24Y:80:J1DO:OO$::80:R198,0:9)"(TRYCK P] EN TANGENT)\PA$:PA$""f860198,0)J$:J$(1DEN NYA LISTAN ERS[TTER DEN GAMLA!{" [R DU S[KER? (J/N)":900:J$"N"200AN0SL1GR0680IG1SL0" DU HAR SKRIVIT IN EN NY GLOSLISTA - IG1GR0" DU HAR [NDRAT I DEN GAMLA GLOSLISTAN -":670QIG2SL.5" (214)18850:740:" DU MISSADE [VEN:g" "(FO$(I),W)",";s:".PO100(R1R3(2F13F24F3(R2R3)(R2R3)))G:(R1R3)GPOPO2100!P(PO):PO96"BRA! -"P"PO[NG.":600*&PO92" GANSKA BRA -"P"PO[NG.":(R1R3)G09PA$"_"200?W102:LW0:R1G514" DU KLARADE ALLA GLOSORNA!":" J[TTEBRA! 100 PO[NG.":600R10" DU KLARADE INGEN GLOSA UTAN HJ[LP!!!":520" DU KLARADE";R1;"AV";G;"GLOSOR.0(F1F2)" DU SVARADE FEL"F1F2"G]NGER" (.5((FS$)13)((FS$)13)2)l@MA)"1 = SLUMPVIS TILL ";FS$JMA)"2 = SLUMPVIS TILL SVENSKATMA)"3 = I ORDNINGSF\LJD TILL ";FS$^MA)"4 = I ORDNINGSF\LJD TILL SVENSKAhMA)"5 = L[SA GLOSLISTAN:mFOFO1:I1 I$)05020!" ";:I$(I$,(I$)1):5010," ":OpS(BR$):659,6:S1200659,8uzRCCSS:6500:51968,LO:51969,HIS1200RCCSS.966:6500665,LO:666,HIRCCSS2100:6500:661,LO:662,HI:dHI(RC256):LO(RCHI256 FL180! 49173:49161:(512)14000C T$","(TY$,(51227),1)",W"c "ILE YPE: "T$((51227)) 2,8,2,"@0:"I$T$:X11300:X::61310 49173:49155:2:X11500:X:668,(667):4000 "LOCK IZE? ";:5000:I$""80 BS(I$ 0 A$"3"2000 A$"4"3000D A$"1""ERMINAL ODE:":4000U A$"5"6700^ 140 "ROGRAM AME? ";:5000:I$""FL180 "ILE YPE (, , OR )?  "; A$:A$""1020 A$""80 A$"P"SA0:T1:1080 A$"S UN1UN8UN8 TR$" (TRYCK P] N[R DU SVARAT.)":BE54272:5:5,0' OO$"& ":DA$"]]MMDD"n TC$" TRYCK -TANGENT F\R N[STA GLOSA. ":SL$"_ = KLAR" MV$" (TRYCK DEN TANGENT SOM PASSAR)":MD$"MELLANSLAG/DEL 2061x4m.%-.a=HL&婾-M.7X YLʅVȈV 851111Z I DON'T KNOW WHO DID THIS PROGRAM BUT THANX ANYWAY PUNKY.`::`  0L Lݭ r  &(&  &(&  &(&  &(&I` ` ,΅ ,΅Åą` L $L `  JJL ,ͅ o M H` L Ǭ̝Jݭˍݭˍݩ ; ` 8. The word length will depend on the requirements of the host. Duplex is initially set to full, which means that both you and the re- ceiving system ma ɍȩ ȩLĭȍɩLĩ` ȍ ȩȍȩȍ wàid jàdȑdȑd ` ȭ  ȭ  x`H  h Hh` ~ﭡɀɒ` m )  La { 8 LA [iLdũ`I jàidȭid  d HLKØHȩdLKH  Šd whd `diɅe`dIiɅe`ȍȍȍȠqdȐȭQdȭ*.. ڠȑdȭȑdȭȑdȭȑd` ȍ ȍȩȩȍ wà͜HhhL#hHh` H Lȩ ȩb * WbLH * ɍ ȍ ¥ ` Wɩ Ƞ * W ` ȭ * Wȭ5 h jàȱd ȭIC):,BR$"300"BR$"1200":6720#6BR$"300"1@6000:80,,, , ,LLLƅbȩ3eb1i2L3LWLLLLLLGOOBADACKS/BSYNȩȍȍȩȍ Xȍȭȍȭȩȩȭ,ȢH Lȭi):BS40BS40 BS255BS255 80% ; 49173:49167:80J I$"":FL0W " ";k A$:A$""5020~ A$(13)5100 A$(20)5080 A$""FL1:5100 (A$)205020 ((A$)127)325020 A$;:I$I$A$:5010 ("SA2:T2:1080% $A$"W"SA0:T3:1080/ .1020X 8T$(T)"":2,8,SA,I$:1,E$,EM$,T$,S$ B(E$)0""E$","EM$","T$","S$:2:1010 `49173:51227,T:49164:(512)12:4000 j49173:51224,BS:49158:2:4000 "AVE S? ";:5000:I$""0":60008 P"PTION: ("BR$" AUD) LOCK IZE ="BS""T Z" 1 - ERMINAL ODE"r d" 2 - RANSMIT A ILE" n" 3 - ECEIVE A ILE" x" 4 - HANGE LOCK IZE" " 5 - OGGLE AUD ATE (300-1200)" A$:A$""140 A$"2"10053280,6:V$(24):V$(0)"":I124:V$(I)V$(I1)"":NG$"":SG$"":I110:NG$NG$"N"# SG$SG$"S"::S6$" SEX TECKEN!":53281,7c A200: SB%(35),RB%(35),Y%(35),KD$(15),FO$(A),SO$(A),RF%(A) UN$(1)"BAND":UN$(8)"DISKETT":UN(186):- W    i i ꥺ o M - E  )x ,! , yΠ ,Α ,H yhʠ ,Α o I  Ц`0΍1`!Щ  2061 υL 1 PP 8GLi :Li*    Ц  Li Li,,0* * * * * * * * "  "  m EA [ i LIƭ ۰8逍Ƀ  L` h`&ɺ'&˭'˩&ƍ'`HhlːhlJhHH#  dȄhhd jàdȑd `ȩȍ ȍȍɍɍ ȩɩ @ <    ȩ*,- ũL. : ȍɩL.ĭɍȭɍȭɍȭɍ jíȍ í ``ȍȍ ȍȍ ȩiɩ @  j JL é-,: Š * W jàd wâ d `* Š * W Ƞ * W  Ƞ * W `ȍ <ACK ©`ȍLȭ О ,,, , ,LLLƅbȩ3eb1i2L3LWLLLLLLGOOBADACKS/BSYNȩȍȍȩȍ Xȍȭȍȭȩȩȭ,ȢH LȭiLeȍLmȭ Ldũ`HKS OR ELSE SOME PARTS OF YOUR DISKS WON'T LOAD! 5) ONCE ALL TRACKS HAVE BEEN CONFIRMED AS ALIGNED, TIGHTEN THE STEPPER MOTOR SCREWS VERY CAREFULLY! YOU DON'T WANT IT TO GO OUT OF ALIGNMENT AGAIN BY TURNING THE SCREWS TOO FAST OR JOLTINOU WILL THEN SEE THE CIRCUIT BOARD AND VARIOUS CONNECTORS. 5) REMOVE THE THREE-PRONG CONNECTOR WITH THE RED AND BLACK WIRES. THAT IS THE CONNECTOR TO THE GREEN POWER LIGHT IMBEDDED IN THE LOWER CASING OF THE DRIVE. 6) LOOK DOWN IN T 2) LOAD THE PROGRAM (PERHAPS WITH ANOTHER DRIVE) AND RUN IT. 3) AS THE PROGRAM CHECKS THE DISK FOR ALIGNMENT, REACH UNDERNEATH AND RO- TATE STEPPER MOTOR SLOWLY. IF YOU HEAR MORE BEEPS THAN YOU DID BEFORE, YOU ARE TURNING THE MOTOR  *** NEW PROTOCOL ***; RELEASE 2: OCT 27 1984R BY STEVE PUNTERw((49152)169"TERM.C1 V2",8,125,2,0,(8):#5,A$:BS255:1,8,15:T$(3):49176<TY$"PSP":T$(1)"ROGRAM":T$(2)"":T$(3)"ORDRO":CS1.02273E6 FBR$"30 HE SOUND ROUTINES USE POKES THAT CRASH THE PROGRAM WHEN OPERATING IN A COMPILED STATE. NOW THAT I'VE EXPAINED THAT, LET'S GO ON TO: MULTIALIGN - ALIGNING YOUR DRIVE ################################  ILY. YOU MAY HAVE TO TAKE A RAZ- OR BLADE AND SCRAPE THE PAINT OFF BEFORE YOU USE THE SCREWDRIVER. TO USE THE DRIVE WITH MULTIALIGN IN ITS CURRENT STATE: ################################ 1) TURN THE DRIVE RIGHT SIDE  G THE CHASSIS WHILE THE SCREWS ARE LOOSE!! TO REASSEMBLE THE 1541: ####################### 1) REPLACE THE CHASSIS INTO THE LOWER CASING AND THE SIX SCREWS THAT HOLD IT IN PLACE. 2) REPLACE THE GREEN OF ITS BASE NUMBER, IE. TRACK 18.5 MUST ALWAYS READ ON TRACK 18. IF IT IS READING ON TRACK 19 THE STEPPER MOTOR IS A HALF TRACK OFF. WHEN USING MORE THAN ONE DRIVE, THE F6 COMMAND ADVANCES TO THE NEXT HIGH- EST DEVICE NUMBER, AND THEN WHEN AT THE HE CRACKS OF THE CHASSIS, BETWEEN THE CHASSIS AND THE CASING, AND YOU WILL SEE SIX SCREWS HOLDING THE CHASSIS TO THE LOWER CASING. 7) REMOVE THESE SIX SCREWS AND LIFT THE CHASSIS FROM THE CASING. PUT THE GRID AND BOTH CASINGS ASIDE FOR THE WRONG WAY. YOU MUST TURN IT VERY SLOWLY, AND ONLY A LITTLE BIT AT A TIME. YOU MAY ALSO HAVE TO REMOVE YOUR HAND TO GET PROPER READOUTS FROM THE PRO- GRAM. IF YOU HEAR NO BEEPS AFTER 10 SECONDS, THAT TRACK IS ALIGNED! 4) ONCE YOU H TO DISASSEMBLE THE 1541: ######################## 1) TURN THE DRIVE UPSIDE DOWN AND, WITH A SIZE 1 PHILLIPS HEAD SCREW- DRIVER, UNSCREW THE FOUR SCREWS THAT HOLD THE CASING TOGETHER. 2) TURN THE DRIVE RIGHT-SIUP AND PLUG IT IN TO THE COMPUTER AND THE POWER STRIP. TRY TO SET IT ON A SURFACE WHERE YOU CAN REACH THE STEPPER MOTOR WITH YOUR HAND. IF YOU HAVE A MINI-CABINET, FOR EXAM- PLE, YOU CAN SET THE BACK HALF OF THE DRIVE ONTO THE CABINET LIGHT CONNECTOR. 3) REPLACE THE METAL GRID. BE CAREFUL NOT TO PINCH ANY WIRES. YOU DON'T HAVE TO SCREW IT IN PLACE BUT YOU CAN IF YOU WISH. 4) REPLACE THE UPPER CASING AND THE FOUR SCREWS THAT HOLD THE CASINGS TOGETHER. THERHIGHEST DEVICE, GOES BACK TO DEVICE 8. THE F2 COMMAND DOES NOT CREATE "THE KNOCK" SO YOU CAN RELAX. IT USES HALF- TRACK ROUTINES TO "CLICK" ITS WAY TO THE OUTSIDE TRACK WITHOUT HITTING THE METAL STOP INSIDE THE DRIVE. BUT WHEN YOU END THE PROGRA NOW. 8) CAREFULLY TURN THE DRIVE UPSIDE DOWN. YOU WILL SEE A FLAT CYLINDER WITH A WHITE LABEL ON IT, HELD IN PLACE BY TWO SCREWS THAT HAVE BEEN SORT OF "PAINTED ON" TO KEEP THE MOTOR IN PLACE. 9) SET THE DRIVE UPSIDE DOWN IN A WAY AVE SET TRACK 18, PROCEED TO OTHER TRACKS AND CHECK THEIR ALIGNMENT. YOU MAY FIND THIS FRUST- RATING AT FIRST AS ONE TRACK MAY BE IN ALIGNMENT AND ANOTHER TRACK IS NOT - BUT THE DISK MUST BE PERF- ECTLY ALIGNED ON ALL TRACKS AND HALF-TRACDE UP AND LIFT THE TOP OFF. YOU WILL SEE A METALLIC GRID COVERING THE CIRCUIT BOARD. 3) REMOVE THE TWO SCREWS HOLDING THE GRID TO THE CHASSIS, ON THE LEFT HAND SIDE OF THE DRIVE AS IT IS FACING YOU. 4) CAREFULLY TAKE THE GRID OFF. Y AND LET THE FRONT SIDE SIT OPEN. THE REAR OF THE DRIVE IS HEAVIER THAN THE FRONT SO BALANCE SHOULD NOT BE TOO MUCH OF A PROBLEM. BUT IF IT IS, TRY TO PROP UP THE LEFT SIDE OF THE FRONT DRIVE, AS THE RIGHT SIDE CONTAINS THE STEPPER MOTOR.bE YOU HAVE IT! A STEP-BY-STEP GUIDE TO USING MULTIALIGN. I HOPE YOU MAKE AS MUCH USE OUT OF  ####################### 1) REPLACE THE CHASSIS INTO THE LOWER CASING AND THE SIX SCREWS THAT HOLD IT IN PLACE. 2) REPLACE THE GREENM, YOU MUST INITIALIZE YOUR DRIVES USING THE DOS COMMAND: OPEN1,DEVICE,15,"I":CLOSE1. TURNING THE DRIVES ON & OFF WON'T WORK BECAUSE THE HALF-TRACK ROUTINES ARE IMBEDDED IN THE DISK DRIVE ROM. THIS PROGRAM CANNOT BE BLITZED OR OTHERWISE COMPILED. TTHAT DOES NOT PINCH THE CONNECTORS OR RESISTORS. THEN LOOSEN, DON'T REMOVE, THE SCREWS TO THE STEPPER MOTOR -- JUST ENOUGH SO YOU CAN TURN THE MOTOR BY HAND. BE CAREFUL! THESE SCREWS ARE MADE OF FLIMSY METAL AND THE THREADS STRIP VERY EAS AND RUN ################################### THE FIRST QUESTION THAT APPEARS IS: HOW MANY DRIVES WILL YOU BE USING? (1-4) ################################## YES, THAT'S RIGHT, YOU CAN TEST AS MANY AS FOUR DRIVES, WITH DEVICES 8 THD, IS AN ALIGNMENT ERROR OF SOME KIND. CHECK YOUR TRACK INDICATOR - IF THE PROGRAM IS LOOKING FOR TRACK 18 AND READING TRACK 17 OR 19, YOUR STEPPER MOTOR IS A FULL TRACK OFF. THIS HAS BEEN KNOWN TO HAPPEN! HALF TRACKS MUST ALWAYS READ THE TRACK 搶f ]=g|6;!Ho۶muEcg";H;0|4F<(c!2+h7)ѺzPDUBs-(_|gCښmU-oK%H-IҦ(E>_n]/4ҁUw=J|+(Zղ D:tg[ {Kf%bkBqTOD O GET THE MOST OUT OF MULTIALIGN. MUCH OF THIS FILE WILL TALK ABOUT HOW TO ASSEMBLE, DISASSEMBLE, AND ALIGN YOUR 1541 WHILE MULTIALIGN IS RUNNING. DON'T BE SCARED! EVEN IF YOU KNOW NOTHING ABOUT MECHANICS WHATSOEVER, TAKING APART THE 1541 IS PRETT TO INSERT FORMATTED DISKS IN ALL DRIVES AND PRESS A KEY TO BEGIN... THE TESTING STARTS OUT AT TRACK 18, THE DIRECTORY, ON DEVICE 8. THE RED LIGHT WILL FLASH AS EACH SECTOR OF TRACK 18 IS CHECKED. THE FUNCTION KEY MENU WILL DISPLAY ON YOUR SCREE ,`HM I OAjKG0,. @uH(2@$hʸ*NP&@Exe8a`e ˒2eeey(+ˊU`YmY]ab q&x Rd{*.RC1)Hӵxኋb%%[c/'xMm۶me (c!p}C <߶e |dêwuEc wo(YbX7 RU 11. IF YOU SELECT "1", THE PROGRAM WILL PROMPT YOU TO INSERT A FORMATTED DISK IN THE DRIVE. IF YOU ANSWER "2", "3", OR "4", THE PROGRAM WILL ASK: DO YOU NEED TO SET DEVICE #'S? (Y/N) #################################### IF YOU HAVE SET THE wLUxB IE :џ4v<H0+At/q碐/d f>RP ׉KՈ^9LU?$^Vހ[$" V}^9LU?H&3I2/HE.5qƊE-U7~d|+L<_8rMMzg;ǻ3jT~~R-ʃew_"JMjoIvwZh R%N GkY EASY. I'VE DONE IT AT LEAST TWO DOZEN TIMES, SOMETIMES IN LESS THAN FIVE MINUTES! AND I CAN ASSURE YOU, IT IS COMPLETELY SAFE. I HAVE ALIGNED AT LEAST HALF A DOZEN DRIVES WITH NO CONSEQUENCES, USING THIS PROGRAM AND A PHILLIPS HEAD SCREWDRIVER. NOTN LIKE THIS: F1 = BACK 1/2 A TRACK F2 = MOVE TO TRACK 1 F3 =FORWARD 1/2 A TRACK F4 = MOVE TO TRACK 35 F5 = MOVE TO TRACK 18 (DIR) F6 = NEXT DEVICE # F7 = END PROGRAM YOU MAY CHECK ALL TRACKS FROM 1 TO 40, IN HALF-TRACK INC,[t<Ϸă`e$X; WvBfW?({yă`e,kz-(_Hyدe&+g|f]WW?^&35*'}Cm{_>aUkj>*;}1P'Ežew/NHPE<KC"N75y2 x2׎aՇՁ?a:JKIX PMODULE3!R""BY&Q*2XZPZV( ?N7*'|§ϟ,[q3'!zٌ;/r-(Ldh=Mt2Dob|۶}̗N+JS#~:Pʃew_SjC G- m_aP2:(_aP2/ީE~2zѠ~oPvDEVICE #'S BY SLITTING THE SOLDER JUMPERS, THEN ANSWER NO. BUT IS YOU NEED TO SET THE DEVICE #'S USING THE SOFTWARE METHOD, ANSWER YES AND FOLLOW THE PROMPTS. YOU WILL FIRST BE ASKED TO: TURN OFF ALL DRIVES - PRESS ANY KEY. #######################hǮx-nӧh R%ٽv > £5gWXKYdv;ix*~-^K;t\+,^K;{;yVXKZdw8REMENTS. DO NOT GO PAST 1 OR 40 WHEN MOVING FROM TRACK TO TRACK, OTHERWISE YOU MAY DAMAGE THE DISK INSIDE. IF THE RESULT LINE SHOWS "O.K." AFTER 20 SECTOR CHECKS, CHANCES ARE THAT TRACK IS PERFECTLY ALIGNED! ANY OTHER MESSAGE, ACCOMPANIED BY A SOUNo۶mo۟ă`E#U~?YV>Uw4(e~<]OBٍa;^JrUEy.ذOb˹X@%ZQ4(k]1^D[xͶm[1[hkv;㍁0ʢ@MUN/щv$/HO"+KtNًw|29i/qSޙQ}'^HUh@<(hPv{NW&|4 ^omW MULTIALIGN.DOC ############## WRITTEN BY REX R. COLLINS ######################### THIS DOCUMENT FILE HAS BEEN CREATED IN ORDER TO EXPLAIN, AS BEST AS POSSIBLE, HOW T############# THEN YOU WILL BE ASKED TO TURN ON EACH DEVICE AS YOU WANT IT TO BE SET, FIRST BY SETTING DEVICE 11 (IF YOU CHOOSE 4 DRIVES) THEN 10 (IF 3 DRIVES) THEN 9 (IF 2 DRIVES) THEN FINALLY DEVICE 8. ONCE THAT IS DONE, YOU WILL THEN BE ASKEDVXKYdw`KyVXKZdw8ZC󬰖x-NFSlbݤ@+>)|}~ ~?N7*'|§ϟ,[q3'!zٌ;/r-(Ldh=Mt2Dob|۶}̗N+JS#~:Pʃew_SjC G- m_aP2:(_aP2/ީE~2zѠ~oPv)\_s]}@RNa~}k}:Ne(z9$1ǯܷƹPrHR̙c9_o-׋?7u^_} S7oNYf:^L7] d2wyYǮ'ٟͭOݜO4}>[? {íٟOͮ9Eǥ+_˺'!B:vU+]{\gi;@줔ǐ[-k.Y`Kb'>;L t_q+4u_(wݡcVz.k(-Rv/0Zbk%'LNÎ XZGK+$ף.k(VȪP(x/0: -h~յJ%vR} Whk9C ,ݡh[w[Vh {_?i >mS2 aZ"BڵLXzw )A[5cx6y9>=:L"l_Y\xtƀ.y'}~8 .> D?/R&΢΢cBtu΢΢Y |?~y:4m%DO=ձ@YM[3W(Xhm~-~ڍ y%F+_ _f5sE1G?{ǴBhhί*ɗR0jhڤ gS@73yk\hBs͛Ӯ|%WHl 9H_}WXx wK6uf\ % uPO67]Kfs*s诰:5uf\0&4&4W']Kfs*s诰:5͸&67M( P0VqI )%/7|N']Kfs*s诰:A5͸  wqY K1KWqJj]1)_>t[YZ% ͮ6lЫ_0sʄ*kWk/ ثį) ZL(C6{\ߝ+_7K/e=uW4muQ’2"GwW^;5 f5[Yٜ"Dž;58읚{MP0VQ c8d3j7;͂ەwЦ?sQ0;Me/9R׹VUhln[ M8= 0Tů3I*bV|a?YqWm;8.a+ZQg!5r؊/·9p)47j+:y&R#8g~:NcvWNzw:08 kEm:UwSso;4EUߠNg/(] U65.mm^/miq4fߎX<}mln|6o2gfx۟O}sn'}_do~aow)t5(W('-ƊkMJ: )t=}7ۯmNIr~c~];w4ڤ!zm ZuAh{y}f̮ߩk8y?Bk'U;u>s]Nυ6aC\U;u>s 'B5TVU;u>s]Nυ5ꮺߩKk8y?rkN뮺ߩK\sm ߍ{w~\h 7eBs+eBs␛qo)x(k[Ұ;.!x4LhG\␛q#ql~v/BbeAꣿTh.?[2S8 ;ܣgtЂ,Շ~E㖖I%4ʼn9>_Bq Zv r<L)KDCj \.uQ2>NJ3顋w_Z_&u%&w"%e.ESw,,.U45EKEs9E}+a cP0V!f?. 4ʗN%?sZ:NdYji[:n̩wڢ[8An̩wRhAY܌fsv( }gv@mij]ux}Q.o6yWj_Kٶm#uX/~jB SZQ[F&%!*L@c7ۯmg\vWNzw\G&% х`Ѫ BM3˱!zK1k)۶8`RNuE҅]{2wE/eoAZpy dݓq1Gõ5ta{2wMOckY/uO`߃6uµL1k.Yd: :?sZ|K=þ ݙE?sZb.Yd*}"-"vRퟹpbK=ba>vW;q S&UqHa\Ō̍8g };PMODULE1! }`Q AŦ=8DeCH`Q|)e)u) t1PX\:s\a( 4%z>CD/Q5-V^.!98 lؓDM,!G#S*Z/ܐ>D5z[(XUBr1X.eK+*XY@P*7{r3JLnQ*PU1RǕ'$`Kq.,r~.5\qv(vwe_ϗ=ޕɼ<|ʼ^Jf{\&\^])NR6Bg&x[^urw46LRyضm#F<*>B*tWR_|anѪ BM5T^vmm *6 m6yxQ/%J[W]l^/ml|yFߩ>캇~T$cR(qw4#*bw7J P0ax91|% __=Z2)t8ү) #4;4`<@wd#٥uUhmdqqsʸ{cqfŋG/CV Ȼp <%̬~GO&SSbj3r|Go+$K/Cy\CR4w_ܷY# /Esgsʇڱ4M ) JZ|fBXlqi= +*sLI)j(_2vR9B[L'ܮ|%-:Ҫͻ|>E%O\x ͅ-%h@GO~\x@cw9}^ *4['!Ϫ./{dVj{hqHBsifi]zB O>vI40ߴՇ%rLm6 8= 82<}Rl:U9:U* ӓPnc+IAܦt&oPdkX>0YQEQtR]ApߨYѪc6<Z>{:}rK@C>{aSsSM}CڥVh'>s!^+zećDuAE2_Z"VGm@B g8kS) x9`!wq )]?zՂW,%C!'RBz +@6lnƳ ֭;ZSh_ٜ"?f^S&*k۫Ax=>.1;@d\Vu/duڥU'yKX^Ak]4Y^@ P;#A'ɯG}>J*>NT)"TE"M/(V(XQQQ hmXY@Qt=RzhT4<"sO%%}N^IPOKJ{fBzDuII{!ӣ TtNK ѵ=}tp 2D$"3"D10D8:5:210x?D$"4"D11DD1:5:210@D$"4"D11D8:5:210AD$"4"::169,48::133,69::169,00::133,63::76,177,243 35C1:L2u/OXbl^w""Xv1iv!1;;oè,qucY\ cF%Vza4ALlx찺TD^bu^.b#I~^_g"Z CkjRƲX}~wqx_tWC>Ňoqj_v16q+v!O8[v1b WvCl-ƭO1u 34)"MAIN"(34)",8:"(131):T$"25":  `Y           . 8L Ͱ    `͌Y LT  @  9 $8(` *  eȌL 1234567890 RC NAME,S,R"! 1,ARC$:1:ARC$"" 15l "THIS IS THE CURRENT ARC FILENAME. CHANGE IF NECESSARY,"; " OTHERWISE PRESS RETURN." "CURRENT ARC FILENAME: ";ARC$; I1(ARC$):"";: 19,64:A$::19,0 ARC$A$  6|6vMĩykJ y!Elqi{ٕ IV1Շ%r>]571Akn@גuii_ ?:Lhȃ2`&.>3`@ c5` c/={5]S&4x 5`q'oS4 Cˮ|Y=򊝔B!<!G<Yv^(ѳ?.%/Jr[v   (2063)  l, $0` 7 ,0 $0JL2  ,0ƥw+   O K,? L  L{ 0:   Ǫi   , ȭ :L@ ~=,"bkRq,!1nuq^wMDDOt>ꪳ^4zSgh5zCkt^_}ѩT/(]֧u]'z讛nW]O}W.kt֯5zzh4zS:QtM7tMO鯏ԯ^4z]_諛Fhtbtn馛n]_U]4zzƝPMAIN!e8?_e֊_0&3aR=$c2isEZKœz&ig')-2(]*>~f4y1 cDNJ3^\vɺ'9GȬI;)\xy%&x XbC8 [2Q.d_؟9Jw ")%/7KMеµ"L-dkn/,rۭkxoPciSL.d^sW; ir%    ` jjjj4) ...nnn... в`hhLPSU` * !L Ҍ F?h4M7tM7tM7tMWzp4zkt֯5:YW=h4Fh4FhЧzhtR_]hU.kC)"""""""""""""""""""0τ /zbf,1SU k \bLbp A%v&fK\9=13 7%^,5@I‘H: *X$Հk"j$ILjߚ h&Y`hII6`44$ia44ji 0f4,M0MZL4XY]cgt88k=Z|_x0^o/sďI)^)?pHr?zcm ^u97n^F5z!蘎҈8i1jȧxbvq,|1#2lp.O/Ffz}Fq׸8<~,vSGEt^g 8""~S~1OqxʼnOW7;^_SwGn٘_}wW~[}Ʋz_|z V)">~1p`WNLOADED FROM Q-LINK. IF YOU"N "DON'T KNOW WHICH FILE IT IS, THEN LEAVE"{ "ME MAIL ON Q-LINK. SEND THE MAIL TO:" " C64UGOSJ" " ARC230":"";A$:14 ((770)106) 247,0:KB$"A:MAIN"(13):T$"48":3  247,255:KB$"L"(yRbCµ$iG+&tN\!!=pOqůiBX9` P0VP0VzN(TL(+l iMsv{5M(P0VzN(+W cuiMs!i~5M( P0VzN(+K='lM{hM~ͮiBXI焂2焂9`ճ55S~K=hnM+ l6v/BbeAꣿTh.?[2L `H)hX`H )xh` ,08 Lz  *  H Xh  ,```HMm   h`L `э hhLP ፻ L >6PBOOT!53280,0:53281,0: 5:24FQ1(KB$):630Q,((KB$,Q,1)):q198,(KB$):"";15);"OADING." PPROX LOADING TIME: "T$" SECONDS."" PYX AST OAD COMPATIBLE!": ARC$,8  1,8,2,"CURRENT A U VǤO HULjV ͽ ƥƨ  Lǩ Ф BLGȠm `  o L3ȠƩЍ˹ ` м  RACK OSITION:"T" ":" RACK # EAD: "(T$,2):" ECTOR # EAD: "(S$,2):" ISK : "H1$;H2$:" EAD ESULTS: "E$(E):::"OMMANDS --":" 1 = ACK 1/2 A RACK":" 2 = OVE TO RACK 1" 3 = ORWARD 1/2 A RACK":" 4 = T TO ALIGN YOUR":"DRIVE. F YOU THE PROGRAM NOW,":"ALL IT WILL DO IS TEST THE ALIGNMENT,":"NOT ASSIST YOU IN ALIGNING IT.":D8:"OW MANY DRIVES WILL YOU BE TESTING? (1-4) D$:D$""21 D$"4" D$"1"70 D$"2"28 D ANGE SCREEN/CHARACTER COLORS 8> SEND SCREEN TO PRINTER 9> NOTEPAD FUNCTION PRESS THE NUMBER OF YOUR CHOICE PRESS CTRL-CRSR LF/RT TO EXIT Q-TILITYPRESS F3 TO RETURN TO MENU DISK COMMAND SENDER COMMAND: COLOR CHANGER ) )?$ p @ (eҩ    L3ȩ ` & Y N L3Ƞ@  L3 L3ȩ,ȩSȩ,ȩWȘ   LGȢ 5:SI5,9:E$(0)" ":E$(1)".. ":E$(2)"LOSE O ALFWAY ":E$(3)"ALFWAY (O ATA OUND) E$(9)"LOSE O ALFWAY ":C$"":I111:A:C$C$(A)::"RESS ANY KEY TO START...":198,0:198,1 `S  LP`6    `  L ɩ  P L  -@'Ʃ   ˍLG  ȹ Ƣ OVE TO RACK 35":" 5 = OVE TO RACK 18 (IR)":" 6 = EXT EVICE #":" 7 = ND ROGRAM":::A$:K(A$Z$)132:K0K1300,1320,300,1800,1340,1360,1850\:::5,"M-W"Z$Z$(1)(208):::5,"M-R"Z$Z$:#5,A$:E(A$Z$):E3FH20:1200E2 $"1"D$"2"D$"3"D$"4"21I "O YOU NEED TO SET DEVICE #'S? (Y/N)[ A$:A$""29k A$"Y"70 "URN OFF ALL DRIVES - PRESS ANY KEY.":198,1:D$"4""URN ON DEVICE 11 - PRESS ANY KEY.":198,0 "D$"4"45:1,"M-W"(119)(0  1> CHANGE BACKGROUND COLOR 2> CHANGE BORDER COLOR 3> CHANGE CHARCTER COLOR 4> ABORT BACK TO MAIN MENU PRESS THE NUMBER OF YOUR CHOICE 0> BLACK 1> WHITE 2> RED 3> CYAN 4> PURPLE 5> GREEN 6> BLUE 7> YELLOW 8> ORANGE 9> BROWN )?$ p @^  LG_ Hеh (ǩ(eз  LG SEND NOTE TO DISK? (Y/N) ENTER FILENAME:rCLˍL,ˠ`` 80 `88`) ̩   5,D,15:5,"M-W"Z$(3)(11)C$::,,5,"I":"":T18::6E0::5,"M-R"DC$:#5,A$:A(A$Z$):CV3A:A(159A)(10032((T17)(T24)(T30))):5,"M-W"DC$(A):::T$(TR):S$(SE):E1T$"??":H1$"?":H2$"?":S$"??b"ESTING EVICE: "D:" wXLIɓ SEQUENTIAL FILE READER NAME OF THE FILE TO READ? (PRESS TWICE TO ABORT) PRESS ANY KEY TO PAUSE PRINTING. ONCE PAUSED, PRESS 'X' TO ABORT PRINTING, OR ANY OTHER KEY TO RESUME. PRINT TO SCREEN ORPRINTER? FIL E9FH30:1200 E1400Z8::5,"M-R"(22)Z$(4):#5,H1$,H2$,H3$,H4$:TR(H3$Z$):SE(H4$Z$):500::SI4,0:SI1,FH:SI4,17:500::T11500900(T40C1:15102900<T1C1:L2(T1):1400F900PT35C1:L2 )(2)(1132)(1164):1M #D$"3""URN ON DEVICE 10 - PRESS ANY KEY.":198,0 $D$"3"45:1,"M-W"(119)(0)(2)(1032)(1064):1 %D$"2""URN ON DEVICE 9 - PRESS ANY KEY.":198,0 &D$"2"45:1,"M-W"(119)(0)(2)(932)(964) A> LT. RED B> DARK GREY C> MED. GREY D> LT. GREEN E> LT. BLUE F> LT. GREY PRESS THE APPROPRIATE KEY BASIC BYTES FREE ƹ P`̩o LGȩ $UǩUDž` (35T):1400ZT35900dC1:L2(T35)3xI1L:1600::400<C1M1600:400::@TTC.5:CV(CVC)3:A(252A)CV:5,"M-W"DC$(A):::5,"M-W"DC$(240):ISISI23:I,0::J1100::I,0:5:""::D$"1"D8:5:210;D 53280,0:53281,0:"LIGNMENT ROGRAM OR 1541":"BY EX . OLLINS, 1987":"HIS .. PROGRAM WAS DESIGNED FOR AN":"EASY, DO-IT-YOURSELF ALIGNMENT OF THE":"1541 DISK DRIVE.":"EAD THE .DOC FILE ON THIS PROGRAM "BEFORE YOU ATTEMP 3 KEYEXPRESSION ENTRY ERROR! TRY AGAIN! Q-TILITY COPYRIGHT (C) 1986 BY CHARLES SHELTON 1> CALCULATOR 2> SEND DISK COMMAND 3> READ DISK DIRECTORY 4> READ DISK ERROR CHANNEL 5> READ/PRINT SEQUENTIAL FILE 6> REPORT FREE BASIC RAM 7> CH E NAME TOO LONG! PRESS ANY KEY DEVICE NOT PRESENT! PRESS ANY KEY83142 ` 1 234` v ˍ!L, v ˍ L, v ˍL,ˠ`` 80 `88`) ̩   :15 'D$"1""URN ON DEVICE 8 - PRESS ANY KEY.":198,0n (D$"1"45:1,"M-W"(119)(0)(2)(832)(864):1v )70 -198,1:1,8,15: F"NSERT DISKS IN ALL DRIVES.":E$(16):SI54272:Z$(0):DC$Z$(28)(1):ISISI23:I,0::I,1 ڹOî ÍÍ íÍL~hhhhhhhhƩLHw 8HHHHHH8 ÎíЍ)`@ )ЭЍ))ЭЍéЭݍ ݭéP ,192,55,251,0,246,219,192,54,27,0,240,3,192,63,255,0RƏ SETUP KEYBOARD SCAN TABLERƆ PLUS(64): KY0 62: PLUS(KY):Sƃ 30,186,266,274,34,114,194,264,6,84,162,8,242GSƃ 164,86,0,10,88,166,12,246,168,90,244,14wSƃ 92,170,16,250,172,94,248,1Y6: X0 223: A: BAX,A: XY6ɎY ˃ 50,75,110,134.5,150,300,600,1200,1800,240033,2,208,170,2,193Xȃ208,1,160,4,170,177,145,179,34,0,0,0,255,4,255,0 PUBLIC DOMAIN,"e x"BUT IS BEING DISTRIBUTED UNDER THE" "'SHAREWARE' CONCEPT. IF YOU FIND IT" "USEFUL, THE AUTHOR WOULD APPRECIATE" "YOUR SENDING $10 TO: " CHARLES SHELTON" 161,228,153,161,228,189,170ObŃ 0,153,160,0,129,159,255,1,128,0,1,255,255,255,0,0,0,0,0,0,0,0,0,0,0OlŃ 0OŃ "UDIO",222,120;PŃ 0,0,0,0,0,0,0,0,0,0,0,0,1,128,0,7,128,2,13,128,254,27,128,254,247PŃ 184,254,61,128,252,57,128,192,63,128,192,63, 110,192,10,170Vnȃ202,202,16,15,169,0,133,2,160,3,104,153,2,0,136,208Vxȃ249,40,96,169,0,133,2,189,111,192,133,3,189,112,192,133Wȃ4,160,0,177,2,133,5,152,145,2,209,2,208,32,56,42ZWȃ144,246,165,5,145,2,164,3,169,46,153,144,129,153,144,217Wȃ íL~ؙٙڙۙЍéЩą iL<©å8L; YL2 L2 GL2 pL2  ͽA 3L2 ,L2 120,146LJă 0,0,0,0,0,0,127,255,254,192,0,3,207,255,243,204,0,51,217,60,155,219MTă 189,219,217,0,155,216,0,27,216,0,27,223,255,251,192,0,3,199,255,227MM^ă 207,255,243,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0hM|ă "ISK RIVE",128,131Mă 0,0,0 8,96,174,20,254Sƃ 176,98,252,22,100,178,24,258,180,102,256,26Sƃ 104,182,28,0,184,106,260,2,0,0,4,0,0,82S8ǃ 0,7,0,0,13,128,0,24,192TBǃ 0,25,128,0,27,0,0,28,0/TLǃ 0,120,0,1,216,0,7,28,0TTVǃ 14,127,0,28,219,128,28,217,192wT`ǃ 14,89,192,7 " 2626 FEDERAL ST."0 " EL PASO, TEXAS 79930"a :"IN RETURN, YOU WILL BECOME A REGISTERED" "USER, AND RECEIVE FULL DOCUMENTATION IN" "THE MAIL, ALONG WITH SUPPORT AND" "OPPORTUNITIES TO RECEIVE UPGRADES."  184,192,57,128,192,61PŃ 131,192,247,135,192,27,135,192,13,187,128,7,128,0,1,128,0,0,0,0P ƃ"OYSTICK(S)",222,153.Qƃ 0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,126,0,29,255,128,63,255vQ ƃ 252,127,255,254,127,255,254,127,255,254,127,255,254,63, 230,2,208,2,230,3,165,3,197,4,208,213,240,178,165,2Wȃ141,0,4,165,3,141,1,4,169,255,133,2,208,170,2,193Xȃ208,1,160,4,170,177,145,179,34,0,0,0,255,4,255,0";T;! A$: A$(13) A$" " 8600j;! A$(13) 8700;!BR((659)15)1: BR10 BR1;! 659 4)A1: 1990:Ad2"EST ASSETTE NIT (/)? Ν";Ai2LA$"N"Bn2 A$: A$"Y" A$"N" A$(13) 12910#Bx2 A$(13) TC(LA$"Y")::.B}2LA$A$KB2((A$)32)"";: 12910}B N"OPEN 1,8,15,"(34)"S:CDS"(34)":CLOSE1:S";B*N(34)"C " IDEO : "CH$(3)" RINTER : "CH$(2)H-" UDIO : "CH$(4)" EMORY : "CH$(6))I2" OYSTICK(S) : "CH$(5)" ASSETTE : "CH$(7)WIF" =OT ESTED =OT ESTED"IP" =OMPLETE =AS "7" ": 7320 8LCH$(6)"":ER$(4)" AILURE"18V"*** ͠AILURE ETECTED ***"X8`"RESS '' TO EXIT.": TF 7540r8j A$: A$"E" 7530x8t8"͠EST SUCCESSFULLY COMPLET A BLANK DISKETTE IN THE DRIVE AND READY">."THE PRINTER FOR PRINTING. OTH DEVICES"?."MUST BE SWITCHED ."5?/"OU WILL SEE THE ASS/AIL RESULTS ON"e?/"THE MAIN SCREEN WHEN THE TEST FINISHES,"? /"AND FOR MORE DETAILED RESULTS, PRES V21,0: DE07: V2DE,X(DE):V2DE1,Y(DE):EܯLOV37 V46: LO,0:E毗V28,0F LO0 7:33784LO,16LO:F V23,16:V29,29'FV21,255:>F V17,(V17)239NF""F" " ,((659)240) BR;!" ": 8590;!"UMBER OF TOP ITS: 1";;"LA$"1"<" A$: A$"1" A$"2" A$(13) 8720/<" A$(13) 8750I<$"LA$A$:A$"";: 8720q<." 659,((659)127)(128((LA$)1))<8":"ANDSHAKE YPE (3 OR ): DS"(34)",8:V"(34)"CDS"(34)",8"B4NBR 1,8,15:1,A$,B$,C$,D$:1:B$:B?B@ INITIALIZATIONCBV24,5:648,128:56576,149: SET SCREENCCC A1 4:ER$(A)"OT ESTED":]CJ 53280,15: 53281,15}CO DE0 7:CH$(DE)"": DECT"6 S =AIL"IZ""I[""I\" "I]""I^"OCTOR."Ix V17,(V17)16J!JPÏ SPRITE INITIALIZATION?JZÏ POKED INTO BLK. 249-255TJdÏ NAMED DE$(0-7)JnÏ AND PUT INTO PROPER X,Y ED":CH$(6)"": 75208@ ABORT ???8E TF AB$"B":9J">RESS TO BEGIN TEST OR TO EXIT."-9T AB$:AB$"B" AB$"" AB$"E"79^8020N94! DN4 LD2:HD5e96! DN8 LD8:HD999!"NTER DEVICE NUMBER OR PRESS "((DN),1 S "?/"AGAIN."?:/TF0: 8000: AB$"E" ?D/TF1?I/ AB$"B" DD8:PD4:TC0: 12147@N/"ELECT ISK EVICE":DN8%@X/ 8500:DDDNH@b/"ELECT RINTER EVICE":DN4Y@l/ 8500:PDDNu@q/ 12900: TEST CASSETTE@s/ X1 4:ER$(X)"O F:CO$"":CO1(CO$)F(CO$,CO,1)"  "FijGγ"  "DGس"":CO15:"":WGⳙ""G쳙"RESS TO TEST  3";! A$:((A$)LD(A$)HD)(A$(13))85109H! A$(13): 8550:R!DN(A$):""A$""; :\! 8510:f! DN2 A:p!R(214):C(211): 648,136:"";W:u! V24,(V24)32:z!" 50":" 75":" 110":" 134.5":" 150":" 300":" 600": T ESTED": X@v/ TC DS1: 1500@/DS2: 3000@/DS3: 2000@/DS7: 7000@/ER$(0)""@/ A0 ER$(0)"" 2A0"ESULTS OF LAST EVICE EST"JA0"ASSETTE:",ER$(1)_A0"ISK:",ER$(2)wA0"RINTER:",ER$(3)A1"EMORY:",ER$( THE"G"EYBOARD, OR PRESS "G"TO SELECT THE NEXT DEVICE."H"RESS FOR ."."HIS WILL AUTOMATICALLY TEST THE ISK,">." EMORY, AND RINTER. OU MUST MOUNT">." CH$(4)""% "OUND EST - "3&"OICE 1:":"OICE 2:":"OICE 3:":SV1024:TW((2)12)F& 5900: SCALE&VL54296:HI(1)54273:LO(1)54272:WA(1)54276:AD(1)54277:SR(1)54278&(HI(2)54280:LO(2)54279:WA(2)54283:AD(2)5428 "OYSTICK #1 AND OYSTICK #2", A$: A$(13)6100- A$" " 6097-JN1JN:6095-A- V32,6: V33,6:""(142)(8)n- 33784,26: 33785,26: V39,14: V40,1- V,164: V1,150: V2,80: V3,90- V23,0: V29,0-CH$ H ALLOWS OVERNIGHT TEST-";3"ING (WE ADVISE YOU TO TURN OFF YOUR "4"OR MONITOR FOR OVERNIGHT TESTING,"G4"THEN TURN IT ON LATER TO SEE RESULTS)."u4"N ERROR MESSAGE WILL BE DISPLAYED IN"4"THE CASE OF FAILURE."4 80004 KGROUND COLOR;""J"RESS TO EXIT THE TEST."#TCO0#^ 53280,CO:53281,CO>#h A$: A$"E" V53248:960Q#r A$" "4200l#|COCO1: CO16 CO0~# CO1 CO2# 4190#$ CO1 (CO$)10:""(CO$,CO,10)"";#." (NO)MN 5520)) ""* X1 5:""* X:"">*  33784,24: 33785,25: V21,0v** V40,14:V39,9: V29,1:V23,1: V,20: V1,119*4 V21,1:*o*p"OYSTICK EST - OW TO SE"*u"RRO ,10VXP164(42((4JS)0))(42((8JS)0))1`YP150(42((1JS)0))(42((2JS)0))1j V,XP: V1,YP>1t A$: A$"E" A$"B" 6200Z1y A$"B" JN1JN:6142n1~""(14)(8):w1JN0}11W"":1X"OMPREHENSIVE EST - OW 4:SR(2)54286'2HI(3)54287:LO(3)54286:WA(3)54290:AD(3)54291:SR(3)54292?'7 X0 24: SX,0: X: TURN OFF ALL SOUNDq'<A$(1)" RESS '' TO EXIT"'FA$(2)""A$(1)'PA$(3)""A$(1)' VS1 3'""A$(VS)' V (5)""-"JOYSTICK TEST - IN PROGRESS.". JN0 "TESTING JOYSTICK #2"+. JN1 "TESTING JOYSTICK #1">."  O." o." . " . "  TF SC1: 73004  AB$"E" 4"RESS Š TO SELECT BETWEEN"!5 "Œ AND TESTING."J5*"RESS TO BEGIN TESTING."S54SC15> SC1 "Œ AND ": 72505H" AND "  "::#"UDIO EST - OW O SE"/$"HIS TEST PLAYS A SCALE THROUGH EACH OF"k$"THE COMPUTER'S THREE "(34)"VOICES"(34)". INCE IT"$"IS VERY UNLIKELY THAT THE ACTUAL ..."$"SOUND DEVICE INSIDE THE 64 IS MALFU WS WILL BE DRAWN ON THE SCREEN"+z"REPRESENTING THE EIGHT JOYSTICK DIREC-"8+"TIONS. S YOU MOVE THE JOYSTICK IN EACH"h+"DIRECTION, THE POINTER SHOULD MOVE INTO"+"THE END OF THAT ARROW. RESSING THE"+"JOYSTICK BUTTON SHOULD FLAS  O SE"1b"HIS PROGRAM INCLUDES A MACHINE-LANGUAGE";2l"MEMORY TEST WHICH, WITHOUT DISTURBING"A2v"THE SYSTEM, CAN TEST OVER 50,000 BYTES"m2"(MOST OF THE AVAILABLE ) IN UNDER"2"15 SECONDS. ECAUSE THIS IS FASTER THAN";2"THE L,15: AD(VS),51: WA(VS),33: SR(VS),51: 5500(" "1( EF VL,0:[( VS: VL,0: V21,1: TURN OFF SOUNDe(5110r(| SCALES( V2,50: V3,119: V21,3(NO1072:MN8583:EF0( WA(VS)2,0: . " ʹ. " ͵ / " δ ͠ 1/" R/" s/" ʹ Π/" ε /" 5R A$: A$(13)73005\ A$" " 72505fSC1SC:72305 V32,0: V33,06" EST - N ROGRESS ":LN0<6 49152: (2)255 7500[6 SC ER$(4)"..": 7600}6"͠EST - N ROGRESS "6LNLN1:LN,"UCCESSFUL ASS";: NC-"$"TIONING, IF YOU DO NOT HEAR THE BEEPS,"%"CHECK THE FOLLOWING:"6%"* INE UNING ON SET"X%"* OLUME ON OR MONITOR"%"* ABLE TO OR ESPECIALLY MONITOR"%"* SWITCHES, ETC."% 8000% AB$"E" % H THE BUTTON"+"ON THE SCREEN."+ 8000: AB$"E" $,"RESS Š TO SELECT BETWEEN"K,"OYSTICK #1 AND OYSTICK #2."t,"RESS TO BEGIN TESTING."},JN1, JN1 "OYSTICK #1 AND OYSTICK #2":6097, /ONITOR SCAN RATE, YOU MAY SEE"2"FLICKERS ACROSS THE SCREEN. HIS IS"3"NORMAL."23"OME ERRORS MANIFEST THEMSELVES"c3"SEEMINGLY AT RANDOM. OR THIS REASON, WE";3"HAVE INCLUDED A WAY OF TESTING THE "3"REPEATEDLY, WHIC  WA(VS)1,4: PULSE WIDTH) LO(VS),NO(NO256)256: HI(VS),(NO256)-) WA(VS),2(3VS)1:TI$"000000"@) TI15 5532[) A$: A$"E" EF1:j) WA(VS),0)DP(V3)4:V2,(V2)5) DP103 DP135) V3,DP)NONOTW:  δ/" /" 0" 0"90"PRESS 'E' TO EXIT."d0"PRESS 'B' TO TEST OTHER JOYSTICK."q0 V21,108JS((56320JN))0B JS16 V21,3: 62300L V21  LN1 "ES";66"EXT PASS IN 5 SECONDS."6"RESS '' TO EXIT"7TI$"000000"#7 A$: A$"E" CH$(6)"":^7TL5(TI$):"EXT PASS IN"TL"SECOND";: TL1 "S";i7". "7 TI$"000005" 73657" NG RACK "TR"" 1,"U1:";4;0;TR;(TR15): 3800: EF 3990 TR# 4:1@CH$(1)"":ER$(2)".."y"ISK UNIT HAS ĠTHE PERFORMANCE TEST." TF1 19901,EN,EM$,ET,ES:EF0 EN2 <CH$(1)"" 4 5 6 7 8 9 0 + - \ S T F1"@L" ŠҠԠ٠ Ϡ @ * ^ F3"nV" ӠĠƠǠȠʠˠ : ; = R F5"`" ڠؠà֠ Π , . / ^ _ F7"aA$"": A1 40:A$A$" ":b""A$""A$""A$""A$c""A$""A w ST0 1800y"OW EADING "X""5| X:ER$(1)"..":CH$(7)"": 1t}"ASSETTE UNIT HAS THE PERFORMANCETEST.":1990z1:"ASSETTE NIT AILURE:":ER$(1)"" : 1990CH$(7)"":"RESS '' TO CONTINUE." "":8500 "ISK EST - N ROGRESS"& 2,DN: 49280L0 (2)0 ER$(2)"ISK OT ESPONDING": 3900j: 1,DN,15,"N:CDS TEST,01"? "LEARING THE DISK."D 3800: EF 3990I "OW ESTING '' UNCTION."N "CDS",DN: 380 APE CONTROLS""AS DIRECTED BY THE PROGRAM."c"HE SCREEN WILL 'BLANK OUT' DURING THE CASSETTE OPERATIONS."|6 8000: AB$"E" @"ASSETTE EST - "E"NSERT AND REWIND THE SCRATCH TAPE, THEN" J"PRESS ECORD AND DN2 2,DN: 49280: (2)0 2900C DN2 11: 2130,H 1,DN:1:R X1 3W\ Y32 64:(Y);: Y:uf Y65 127:(Y);: Y:}p Xz DN21:1 DN2 11ER$(3)"..":CH$(2)"":T$" AND ." DN2 :EF1HER$(2)EM$:1:46 "ISK UNIT HAS ĠTHE PERFORMANCE TEST DUE TO: "ER$(2)M : TF1 1990S | "IDEO EST ATTERN - OW O SE." " GRAY SCALE, A BLUE SCALE, AND A " "SPECTRUM WILL BE DRAWN ON THE S $""A$""A$.d"S : / KEY ^ : /"ae"T : / KEY _ : /"zf"R : KEY"g"EYS NOT SHOWN ARE NOT TESTED. "h"Ӡ ҠϠ."i"  A$: A$"C" 1992#" ":U" ":" ":"RINTER EST - OW TO SE""HIS ROUTINE TESTS THE PRINTER FOR""'HA 0: EF 3990X "OW CHECKING THE AVE."6] 2,DN,0,"CDS,P,R":#2,A$: 3800:2: EF 3990yb 2,DN:49328:((2)0)(ST64)EF1:EM$"ERIFY ERROR":3990g 3800: EF 3990l "OW HECKING INTERNAL FUNCTIONS"v 1,"S:CDS": 3800: LAY, THEN": 1990: 1996: 1997;KTI$"000000":ER$(1)"EVICE OT ESPONDING"OL TI600 1800bM(1)32 1612O 1,1,1,"CDS-TEST": ST0 1800RER$(1)"RITE RROR"T X1 255:1,(X);:"OW RITING "X""W XY1:1["  ER$(3)"OMPLETE":CH$(2)"":T$""*"ERFORMANCE TEST COMPLETED."T$""? TF1 1990EsT CH$(2)"":ER$(3)"EVICE OT ESPONDING"^ "RINTER EST - O ESPONSE FROM PRINTER."h TF1 1990r  "ISK ES CREEN."!"DJUST THE FINE TUNING, TINT (UE),"1!"BRIGHTNESS, COLOR, AND PICTURE CONTROLS"b!"ON YOUR OR MONITOR (IF YOU HAVE THEM)"!"UNTIL THE COLORS LOOK RIGHT TO YOU"! 8000: AB$"E"!CH$(3)""! 53280,0: 53281,0 :"jA(197): A64 1130%k A60 ZlA$:A$"" ""(A$)oPO32968PL(A):P0PO40:P1PL(A)55536p (P0)32 P0,119:P1,0:1150tP2(PO):P2(P2127)(128(P2128)): PO,P2~ (197)A 11 NDSHAKING' AND DATA TRANSMISSION."2"OUR PRINTER SHOULD BE PLUGGED IN AND"a"CONNECTED VIA CABLE TO THE COMPUTER OR""DISK DRIVE (WHICH MUST BE ).""WITCH THE PRINTER AND (IF""NECESSARY) AND CHECK THE PAPER. H EF 3990 4,DN,4,"#": 3800: EF 3990& 1,"B-P";4;0: 3800: EF 3990K T$"": X1 255:T$T$(X): XV 4,T$; : TR1 35:"RITING RACK "TR"" 1,"U2:";4;0;TR;(TR15): 3800: EF 3990 TR TR1 35:"ETRIEVI  ":^"EWIND TAPE AND PRESS LAY, THEN": 1990: 1996jdTI$"000000":ER$(1)"EVICE OT ESPONDING"~e TI600 1800f(1)32 1637h 1,1,0,"CDS-TEST":ER$(1)"EAD RROR"r X1 255:#1,A$: A$(X) 1800 T - OW O SE" "HIS TEST REQUIRES THAT THE DISK DRIVE"G "BE SWITCHED AND CONNECTED TO THE 64"w "AND THAT A SCRATCH DISKETTE BE INSERTED" "INTO THE DRIVE." 8000: AB$"E"  TF DNDD: 3100 DN8: AB$"" !"";"CO$" 1 2 3 ":4900T"":CO$" ŠŚ ":4900",:CO$"    ""6 4900"@"RESS TO CHANGE BAC 50(" ":A1 10:A$:21130J *** CASSETTE TESTn"ASSETTE EST - OW O SE""HIS TEST REQUIRES THAT YOU INSERT A""BLANK OR SCRATCH CASSETTE INTO THE DECK""AND THAT YOU OPERATE THE T E" "PRINTER SOULD PRINT ALL THE "<"CHARACTERS THREE TIMES ON YOUR PRINTER."U* 8000: AB$"E" x/"RINTER EST - "1 TF DNPD: 21104DN4: AB$"" 85009 DN2 "RINTER EST - Π">Y$"YES"2120"8,4:FD$(17)" " " #$ #. #8 #B X1N5#L L$(X)F$(X)" "LA$(X)B#V 8,"#";XS#` 8,FD$;L$(X)Y#j k#t 8,FD$;SA$(X)q#~ # O$(X)C$(X)", "S$(X)# 8,FD$;O$(X)" ";Z$(X)# # # # 8,FD$;,,P 5-2^DS:REM TURN OFFO  V2DS,X(DS):V12DS,Y(DS): V39DS,1: REG. X,Y & WHITEp  POKE V+21,2^DS:REM TURN ON  V27,255: PRIORITY XV2DS: XPX(DS)40.3:X,XP: XP TF0: AUTOTEST := FALSE  V21,0:V27,0: PRIORITY&  "EW TREET DDRESS";SA$"EW ITY";C$$"EW TATE";S$8"EW IP";Z$V"EW HONE UMBER";PN$g"";Y$Y$"Y"Y$"YES""":F$(F)F$LA$(F)LA$SA$(F)SA$C$(F)C$S$(F)S$Z$(F)Z$ * Ϡ Ӡ." G$:G$"+"G$"-"G$"*"2070!  20602 G$"+"2010C G$"-"2015T G$"*"2080Z { **************************** 4****** SORTING *********** >*************************** HM$LA$(1):IM  "USE SOMETHING"B"THAT WILL READ SEQ. FILES."`" AND READ 250CHANGES"~(" ACR128INFO"2" ACR230HELP" OF UTPUT ILE";N$:1,8,2,"@0:"N$",S,W"DX$(13) NJ1NjX1,F$(J);X$;LA$(J);X$;SA$(J);X$;C$(J);X$;S$(J);X$;Z$(J);X$;PN$(J);X$;qbJxl1~v*********************************** END ******************* N$(X)# 8:8:8# X# 8:8:8# # 8$ ,$ "HE DDRESS OOK BY: OE PURLOCK"F$ " TM$ "HIS PROGRAM IS TO BE USED AS AN ADDRESSBOOK. T IS REALITIVLY";$ " EASY TO USE AND IT IS SELF EXPLANATORY. UST  KEYBOARD: ,""DE$(DS)", OR PRESS "D J 500X  FLASH IN BLUE^   V39DS,6: REG. X,Y & BLUE   A1 20:A$  A$" " 600  A$(13)900  A$"T" TF1: 12000: 960   FLASH GRAY PN$(F)PN$""!":L1500:L,*6*****************************M@***** PRINTING ******pJ***** A ******T***** RECORD ******^*****************************h"1. CREENr"2. RI1 RI2B \LA$(I)M$M$LA$(I):IMI!fI+!pAA$LA$(B):LA$(B)LA$(IM):LA$(IM)AA$U!zAB$SA$(B):SA$(B)SA$(IM):SA$(IM)AB${!AC$F$(B):F$(B)F$(IM):F$(IM)AC$!AD$C$(B):C$(B)C$(IM):C$(IM)AD$!AE$S$(B):S$(B)S$(IM):S$(IM)AE$!DS1 1000,1500,3000,2000,4000,5000,6000,7000V V21,0: 45000: 46000:A110:A$:: 300z "EYBOARD EST - OW O SE" " REPRESENTATION OF THE KEYBOARD WILL BE" "SHOWN ON THE SCREEN. HE FIRST TIME YOU" "PRESS A KEY, ITS COUN****************"THE ADDRESS BOOK IS FINISHED":26507*****************************Z***** PRINT TO SCREEN *******}*****************************"O YOU WANT IT ORTED";Y$Y$"Y"Y$"YES"BN:2120X0XDO WHAT THE";%( "COMPUTER ASKS FOR. T ANY TIME YOU WANT TO STOP, JUST PRESS THE";]%2 " UN-TOP/ESTOREKEYS AT THE SAME TIME. T'S IN .";%7 "LEASE, IF YOU ARE GOING TO USE THE MODE, KNOW THE NAME OF ";%9 "THE FILE YOUARE GOI  V39DS,15 '  A1 20:A$9 & A$" " 600L 0 A$(13)900n 5 A$"T" TF1: 12000: 960t :~ D 400 X NEXT DEVICE bV39DS,0 lDSDS1: DS8 DS0 v 300  SELECT: FIRST, MOVE "";  POKE V+21,25NTER|"OUR HOICEG$:G$""1670G(G$):G1990,2270%H*****************************k***** SEARCHING *********** FOR A *********** RECORD ***********************************AF$Z$(B):Z$(B)Z$(IM):Z$(IM)AF$'"AG$PN$(B):PN$(B)PN$(IM):PN$(IM)AG$:BB1:B12120-"N"***************************o"**** PRINT TO PRINTER *****"***************************"""O YOU WANT IT ORTED";Y$"Y$"Y" TERPART SHOULD"5 "BECOME UNDERLINED. UBSEQUENT PRESSINGS"e "SHOULD FLASH THE KEY ON AND OFF. O NOT" "TEST THE / KEY. RESS THE " $" TO END THE TEST." . 8000: AB$"E" 3CH$(0)"" 8""B"_ 1 2 3 X1:XNXXN 2020XX1:X0XN 2020H"Ӡ˟":"";F$(X);" ";LA$(X)pSA$(X):C$(X),S$(X):,Z$(X),PN$(X)"#";X" + ϠϠ, - ϠϠ˟""NG TO EDIT."%< "Ӡ٠٠Ϡ"&F K$:K$""2630&P A&Z :(142):53280,14:53281,6:646,14:3,4:3:M&[ 3:3: PROGRAM IS TO BE USED AS AN ADDRESSBOOK. T IS REALITIVLY";$ " EASY TO USE AND IT IS SELF EXPLANATORY. UST 5 X248 251: X,0: X: CLEAR RS-232 POINTERSM 643,255: 644,127~ 55,255:56,127:: 11,2,0,(1)(0):V53248 V17,11:RS659d 40000x 45000 46000BR(10): X1 10: BR(X): XBR8 DS=DEVICE DS0: 530"Ӡ٠٠ϠϠΟ"G$:G$""1770<*****************************_***** WRITING *********** A *********** RECORD ******&*****************************0"AMES OWN 'MENU'"1"PROGRAM, HIT9 TO RETURN TO IT."2"HIT ANY KEY TO CONTINUE. WHEN THE"92"COMPUTER HAS DATA IT NO LONGER WILL"U2"SCREEN THIS MESSAGE."l2 X$: X$"" 7140r22' S24,72.' S2,22528' S3,02B' S5,92L'IRST ENU2 1"1. UILD A ILER 6"2. DIT A ILEs @"Ҡ" JG$:G$""330 TG(G$):G680,890 ^ 300 h******************************* r****** SECOND MENU *********** |*ITTEN."*"Ӡ٠٠Ϡ")4G$:G$""8202>300VH******************************zR****** READ ********\****** IN ********f****** ROUTINE ********p******************************z %d THIS PROGRAM IS TO BE USED ASJn AN ADDRESS BOOK. TO GET A COPYlx OF IT, CONTACT JOE SPURLOCK AT 589-0004. I WILL GIVE IT TO YOU FOR $1. THANK YOU. JOE SPURLOCK COMPUTER SCIENCE I PERIOD 4 JANUARY 10, 19 ,Z$(F)::20)PN$(F)$:"S THIS THE RECORD";Y$=DY$"Y"Y$"YES"620JN"": FhX"ECORD OT OUND"}bP11000:P:E1lv************************************* BUILD ************** A ****** "Y"Y$"YES""": 1040tNN1Q~F$(N)F$:LA$(N)LA$:SA$(N)SA$:C$(N)C$:S$(N)S$:Z$(N)Z$:PN$(N)PN$W{************************************ DELETE ************** A ************** RECORD *** S6,02V'2*A5$"":A6$"":L50:B5$"":A5$(A5)2+ N51 (A5$)3 + (A5$,N5,1)"." L5N53+ N523 + L50 L5(A5$)1_3*+ (A5$,L51,2)"" A5$A5$".00":1120034+ (A5$,L52,1)"" A5$A5$"0":112003>+ ((A5$,L53,1))4 111 ******************************9 "ASTER ENU\ "1. DD A AME~ "2. ELETE A AME "3. HANGE A AME "4. RINT THE IST "5. EARCH FOR A AME ""NTER THE ILENAME";N$$15,8,15,"I0"21,8,2,N$E15,E,E$,E1,E2E"HERE IS NO FILE CALLED ";N$;".":15:1: 810J0JJ11,F$(J),LA$(J),SA$(J),C$(J),S$(J),Z$(J),PN$(J) ST0 930NJ1:1585  (14)[ F$=FIRST NAME, LA$=LAST NAME,SA$= STREET ADDRESS, C$=CITY, S$=STATE 53280,0:53281,0:646,4: Z$=ZIP CODE, PN$=PHONE NUMBER AA$,AB$,AC$,AD$,AE$,AF,AG$,L$,O$ ARE SWITCHING VARIABLES) F$(200),LA$(200),SA$(200),C$(20******** FILE ********<*******************************[15,8,15:X$(13):15,"I0""HAT IS THE Œ";N$:2,8,2,"0:"N$",S,W"15,E,E$,E1,E2:E"ERROR:",E$:2:15:810"HAT IS THE:"***** ******************************530:E#NN1.KFN@F$(K)F$(K1)TLA$(K)LA$(K1)hSA$(K)SA$(K1)zC$(K)C$(K1) S$(K)S$(K1)Z$(K)Z$(K1)PN$(K)PN$(K1)(K2"ECORD ELETED":P11000:P103F+A5(A5$):A5A5.01:A5$(A5):111103H+A5((A5$,L52,1))4R+A5A51 :B5$(A5)!4\+A5$(A5$,L51)B5$:1120054f+A5$(A5$,L52)\4+ N51 10(A5$):A5$" "A5$: N54+A6((A5$,8)): ((A5$,2))52 A6A614+A6$(A6)4+ N51 16. RITE THE IST TO ISK"D "7. O BACK TO THE IRST ENU"] "8. ND" "ԠҠ  K$:K$""470 K(K$):K1040,1220,1400,1640,1750,1840,300,1950  390 *************************:BN4"HERE ARE";N;"ECORDS NDER ";N$;".":P11000:P:D1:390X******************************|****** ADD ************** A ************** RECORD ************************************0),S$(200),Z$(200),PN$(200),AA$(200),AB$(200)k AC$(200),AD$(200),AE$(200),AF$(200),AG$(200),L$(200),O$(200) ******************************** ******* FIRST MENU ******** ******************************** " 2560 ,""IRST AME ";F$:"AST AME ";LA$:;"TREET DDRESS ";SA$:N"ITY ";C$:b"TATE ";S$:y"IP ODE ";Z$: "HONE UMBER ";PN$:2,F$;X$;LA$;X$;SA$;X$;C$;X$;S$;X$;Z$;X$;PN$;X$; 2:15:"ILE ";N$;" IS R< F*****************************,P****** CHANGE ******OZ****** A ******rd****** RECORD ******n*****************************x530:E"EW IRST AME";F$"EW AST AME";LA$0(A6$):A6$" "A6$: N54+40 - EXITING4:"RETURNING TO MENU" 5X"".5b"LOAD"(34)"MENU"(34)",8"F5l"RUN":""e5v631,13: 632,13: 198,2:L52,1)"" A5$A5$"0":112003>+ ((A5$,L53,1))4 111********** SEARCHING ROUTINE ******A******************************l"HAT IS THE  Œ";LA$"EARCHING"E0:F1N&LA$LA$(F)5900"";F$(F);" ";LA$(F):SA$(F):C$(F);" ";S$(F):" "** "DDING A AME"#"NTER THE:"9"IRST AME";F$P$"AST AME";LA$l."TREET DDRESS";SA$}8"ITY";C$B"TATE";S$L"IP ODE";Z$V"HONE UMBER";PN$`"S HIS OCRECT";Y$jY$TWTAW(N)* N*A5WT:11000*"TOTAL";29);A5$+ 2810+BABAWT$+"DEPOSITS:"6+ ND0 4910?+DT0N+ N1 NDb+A5AD(N):11000~+" "DD$(N);22);A5$+ 2810+DTDTAD(N)+$ N+.A5DT:11000+8X(JH1)Y(JH1) X Z$"SHORT" 3190!b P(JH1)1!l 470!v P(JH1)0)! 4701! H;! 470T! - CLOSING ACCOUNTS{! "CLOSED ACCOUNT ";X$! N1 J! A$(N)X$ 3350! CLN! A$(N)"":X(N)0:Y(N)0:Z(N)0:MOK? Y/N"' X$' X$"N" 4280(& X$"Y" 4360 (0NANA1(DAA(NA)AD%(N 4280+(X6(b 2710?(gSE0`(l"SERV CHARGE";SEr(v SE0 3560}( 2760("OK? Y/N"( X$( X$"N" 4440( X$ . AS(1)0 5410. N1 NS.BABAAS(N): N."BABATP.,4700/p 20,169,125,20,169,125,20,169,125,16,101,500T/X - GIVING INITIAL INSTRUCTIONS/l" TO INITIATE INVESTMENT ACCOUNTS HIT"/v"7ON MENU. FOLLOW INSTRUCTIONS. " 1 40: T0 S1,16:S,101:S4,17 1 Z1 300: Z2 S4,163 ;6 - INITIATING ACCOUNTS`; "ACCOUNT NAME ";X$@ AC$(NC)AC$:AM(NC)AM:CH(NC)CHT "STOCK OR MONEY ";Y$^ Y$"STOCK" Y$"MONEY" "":2900 OK? Y/N"$ X$$  X$"N" 3700% X$"Y" 3830%NCNC17%(AC$(NC)AC$:AM(NC)AM:CH(NC)CHB%F 3700H%PS%Z 2710^%_DA$""%d"WITHDRAWAL DATE";DA$%n DA$"" 3560%x 2710%" AMOUNT";AM% "TOTAL";29);A5$+= 2810+BBABADT+V AA(1)0 5010 ,` N1 NA,jA5AA(N):11000;,t"ADJUSTMENT";29);A5$F,y 2810V,~BABAAA(N)^, Ns, AS(1)0 5060, N1 NS,A5AS(N):11000,"SERV CHARGE";29);A5$ (N)0:P(N)0:IN1! N! NCL J"* IN0 470S"4 A$(N)A$(N1):X(N)X(N1):Y(N)Y(N1):Z(N)Z(N1):M(N)M(N1):P(N)P(N1)["p Nd"z IN0n" JJ1x" 470" - ACCESSING CHECKBOOK" 2550""SELECT BY NUMBER""""Y" 4500(NSNS1(AS(NS)SE( 4440) - SUMMARIZING CHECKBOOK EVENTS)BABB,)A5BA:11000S)"BEGINNING BALANCE";29);A5$^) 2810o) "CHECKS:") NC0 4690)CT0)  N1 NC)*A5AM(N):11000)4""CH(N/w"STATUS OF ACCOUNTS IS UPDATED (E.G."0x"CURRENT STOCK VALUES ARE ENTERED) BY"20y"HITTING 1. HIT 2 FOR TABULAR SUMMARY"[0z"BROKEN DOWN INTO IRA AND NON-IRA "j0{"ASSETS."0"TO ENTER BILLS TO BE PAID HIT 3,"0"COMPUTER WILL CALr "RETIREMENT? Y/N? ";Z$w Z$(Z$,1)'| Z$"Y" Z$"N" "": 2930? Z$"Y" Z$"LONG"X Z$"N" Z$"SHORT"b JJ1p H1 J A$(JH)X$ 3050 A$(JH1)A$(JH):X(JH1)X(JH):Y(JH1)Y(JH) Z(JH1)Z(J 2760%" OK? Y/N"% X$& X$"N" 3920& X$"Y" 4020'&NWNW17&DA$(NW)DA$E&AW(NW)AMP& 3920V&a& 2710l&DA$""&" DEPOSIT DATE";DA$&" DA$"" 3560&, 2710&@" A, 2810,BABAAS(N): N, TP0 5135,A5TP:11000-"WEEK";WK;"BILLS";29);A5$#- 28100-BABATP6- G-A5BA:11000u-"CLOSING BALANCE";29);A5$:BA(A5$)-2830:2844- X$: X$"" 5150-23560-P - TOTAL1. WRITE CHECKS"#"2. MAKE WITHDRAWALS"&#$"3. MAKE DEPOSITS"J#."4. ENTER ADJUSTMENT"r#8"5. ENTER SERVICE CHARGE"#B"6. SUMMARIZE"#L"7. EXIT"#Q2620#V X$: X$"" 3670);11);AC$(N);22);A5$)9 2810)>CTCTAM(N))H N*RA5CT:11000"*\"TOTAL";29);A5$-*] 2810:*fBABACTP*z"WITHDRAWALS:"Y*WT0j* NW0 4800y* N1 NW*A5AW(N):11000*" "DA$(N);22);A5$* 2810*WLFOR ACCOUNT NAME,"0"AMOUNT OF BILL AND WEEK NUMBER (1 - 5)"1"IN WHICH IT IS TO BE PAID. BILLS ARE"E1"REVIEWED OR PAID BY WEEK NUMBER."p1"ONCE PAID, THEY ARE SUBTRACTED FROM"1"THE CHECKBOOK BALANCE."1"IF YOUR DISC HAS ITH):M(JH1)M(JH):P(JH1)P(JH) 3210 A$(JH1)X$& Y$"STOCK" 3110L  " DOLLARS ";Z(JH1)[  M(JH1)0f  3160 & " SHARES ";X(JH1) 0 M(JH1)1 D " DOLLARS/SHARE ";Y(JH1) N Z(JH1)MOUNT";AM&J 2760&^" OK? Y/N"'h X$'r X$"N" 4100)' X$"Y" 42005'NDND1E'DD$(ND)DA$S'AD(ND)AM^' 4100d'o' 2710x'AD0'"ADJUSTMENT";AD' AD0 3560' 2760'"ING CHECKBOOK-ZBABB-d NC0 5260-n N1 NC-xBABAAM(N). N. NW0 5300#. N1 NW3.BABAAW(N);. NM. ND0 5340\. N1 NDl.BABAAD(N)t. N. AA(1)0 5380. N1 NA.BABAAA(N). N Z" S4,16# T1 40: T$ S1,18:S,104:S4,17&% Z1 100: Z2& S4,16E' T1 40: T`( S1,16:S,101:S4,17s) Z1 100: Z* S4,16+ T1 40: T, S1,18:S,104:S4,17- Z1 100: Z. S4,16/ T#` X$"1" X$"7" 3670$j (X$) 3700,3920,4100,4280,4440,4580,5200$t&$~ 27101$AC$""S$"ACCOUNT";AC$f$ AC$"" 3560q$ 2710$"AMOUNT";AM$ 2710$"CHECK NO";CH$ 2760$"ACCOUNT ";  2710 AC$' AC$"" 470>"AMOUNT ";I 2710R AMi"WEEK ";t 2710} WE WE5 1710"OK? Y/N?2760 X$: X$"" 1820! X$"N" 1715& X$"000 S1,24:S,146: S4,65 Z1 45: Z S4,64- T1 30: TI S1,21:S,227: S4,65\ Z1 45: Zh S4,64{ T1 30: T S1,20:S,169: S4,65 Z1 45: Z S4,64 T1 30: T S1,18:S,1  S24,15  S2,0# ( S3,0/ 2 S5,0= < S6,240C FX - LOADING DATAw J1 U BB BA 460 " 2,8,2,"@0:FINANCES,S,R":U0:BB0 '" LOADING DATA" ,2,J:2,U:2,BB:BABB: J0 J1 6 U0 J1  FA5Z(N):11000)P Z(N)0 " ";A$(N);17);A6$=Z 2810:QQZ(N)Ed NUnA5Q:11000x(30)" SUBTOTAL";17);A6$(154)}2830 N1 J P(N)1 1440 1480A5Z(N):11000" ";A$(N);17);A6$28 8 TPTPD(V) B D(V)0:E(V)0:B$(V)""` CLV"j HCL ULt B$(H)B$(H1):E(H)E(H1):D(H)D(H1)T Hd UU1:VV1l Vw 5200 2810 Q0:R0  10 "": T1 50: T N1 3 S1,20:S,169: S4,17 3560  - UPDATING ACCOUNTS*  N1 J: 840:B  N 1 J: 1110:L > 470` H M(N)0 970~ M A$(N)"CHECKBOOK" 1020 R 2710 \"ACCOUNT ";A$(N) f"DOLLARS "; k Z(N)0 " "; lZ(N)p" Y" 1820:UU1DB$(U)AC$:D(U)AM:E(U)WE#N 1715; - REVIEWING BILLS" IF NONE ENTER '0'""WHICH WEEK?" 2710 X$: X$"" 2030 X$"0" 470 X$"1" 04: S4,65 Z1 75: Z S4,64 T1 30: T % 10@ S1,16:S,101:S4,17T Z1 100: Z` S4,16f n 10 S1,16:S,101:S4,17 Z1 200: Z S4,16 T1 50: T S1,20:S,169:S4,17BA0 BB0 7000:440> cJ1 A$(J)"CHECKBOOK":Z(J)BB:397Y r N1 J:2,A$(N): Ng | N1 J 2,X(N):2,Y(N):2,Z(N):2,P(N):2,M(N)  N  U0 440  N1 U:2,B$(N): N  N1 U 2,D(N):2,E(N)  N 2 10:RRZ(N) NA5R:11000;(30)" SUBTOTAL";17);A6$(150)E2830WA5QR:11000x" TOTAL";17);A6$(30)2844 X$: X$"" 1530 470"SAVING DATA"" 2,8,2,"@0:FINANCES,S,W", Z1 75: Z S4,16 T1 40: T N4 S1,16:2,101:S4,17Q Z1 750: Z:S4,16W e< - MUSICs> N1 3@ S1,18:S,104: S4,17B Z1 75: ZD S4,16F T1 40: TH NJ S1,15:2,122:";Z(N)  10902710:"SECURITY ";A$(N)W" SHARES ";X(N)s"";X(N)y X$"Y" 1820BV M(N)0 1250` 2710j"SECURITY ";A$(N)t" SHARES ";X(N X$"5" 2030W(X$)$*"WEEK";W:,4T0J>"ACCOUNT"," AMOUNT"XH V1 UmR E(V)W 2190\A5D(V):11000u"";z B$(V);17);A5$:A5$"" 2710: TM1 300:TTD(V) VA5T:1 Z1 200: Z S4,16  T1 50: T% S1,24:S,146:S4,179 Z1 200: ZE S4,16X T1 50: T^ y S1,21:S,227:S4,17 Z1 100: Z S4,16 T1 40: T S1,20:S,169:S4,17! Z1 100:  2550) "SELECT BY NUMBER"L "1. UPDATE ACCOUNTS"o "2. REVIEW ACCOUNTS" "3. ENTER BILLS" "4. REVIEW BILLS" &"5. PAY BILLS" 0"6. SAVE" :"7. IN2,J:2,U:2,BA6 N1 J:2,A$(N): N#@ N1 JOJ2,X(N):2,Y(N):2,Z(N):2,P(N):2,M(N)WT NhY U0 1670^ N1 U:2,B$(N): Nh N1 Ur2,D(N):2,E(N):2| N2 470 - ENTERING BILLSAC$"""S4,17L Z1 750: Z:S4,16N  - MUSIC! 10000/ Q1 3K S1,20:S,169: S4,65^ Z1 45: Zj S4,64 TM1 30: TM Q S1,20:2,169:S4,65 Z1 100: Z:S4,64  - MUSIC 10N - THIS IS THE PROGRAM CALLED "PERSONAL FINANCES" AS OF 9/19/87. - RER X(50),Y(50),D(75),Z(50),M(50),E(75),A$(50),B$(75),P(30) 53280,16:53281,16:""S54272: SWS S24: SW,0: SW:A$(1)"CHECKBOOK":J1470 S24,15)~"$/SHARE ";Y(N),"";Y(N)MZ(N).01(X(N)Y(N)100.5)Sp - SUMMARIZING ACCOUNTS|Q0:R0((150)" ACCOUNT"," AMOUNT"(154)2 N1 J7 A$(N)"CHECKBOOK" Z(N)BA< P(N)1 13801000 "TOTAL";17);A5$:A5$"" 2760, X$: X$"" 2230S X$"0" (X$"1" X$"5")2035^ 2020s - PAYING BILLS~ 2710"WHICH WEEK ";W W5 2300 WEW:WKW$ V1 U. E(V)W 2480ITIATE ACCOUNTS"* D"8. CLOSE ACCOUNTS"O N"9. ACCESS CHECK BOOK"g P"0. EXIT"r S 2620 X Y$: Y$"" 600 ] Y$"0" 62000 b Y$"1" Y$"9" 600 g210 l (Y$) 720,1280,1690,1980,2280,1560,2870,3230,A HSCANDINAVIEN PD232APERSONAL FINANCE.ADDRESS BOOKARC DOC64 DOCTORSTINY LABEL TWISTER1#TWISTER.INSTRBILLIGA PD-PRGC64/128/AMIGASCANDINAVIEN PD FILE PROTECTFUNCTION TEMP.8 FUNCTION TEMP16 PEEK UTILITY Q-TILITY 1.1 ALIGNMENT>ALI DOCS TERMINAL.C1 V2TERM.C1 V2BOX 52519105 SOLLENTUNATEL 08-964072BOX 52519105 SOLLENTUNATEL 08-964072 V12GLOSOR V2.0FX-MODEMMEM 64  BANNER 64PS->DOODLELABEL MAKER NAMECHANGERNAME.DOCSRESURRECTION"TRACKER.BOOT TRACKER.MAIN*C64 AUTOSTART  FILE PROTECTFUNCTION TEMP.8 FUNCTION TEMP16 PEEK UTILITY  2061x4c녯.%-.a=HL&`-.7X YLʅVȈV *1 * XMODEM 3.7 *I * 10/01/88 *a * BY MAX *y * 64 "; <"OWNLOAD & PLOAD";:G$(133):Q$(34) A" " FDC$"OWNLOAD ANCELLED!" KSO$"EADER ERROR"d P" SES PROTOCOL FOR ALL TRANSFERS."J$J$:L$(32)(157)k U:r Z:y _: d: iF%(F),T%(F),U%(P,V)  T%(134)17:T%(138)19:J.F:KT%(J) K.F%(K)J:F%(K128)J :253:320 -TERMINAL - (14)9 E$"RESS F1 FOR ENU"t "ERMINAL EADY"J$:A$(CAN)"RANSFER CELLED!" FAW"HEN HOST IS READY TO RECIEVE, PRESS F1"J 5,(T%((A$)));:165 -DOWNLOAD -&E$"S HOST COMPUTER WAITING TO SEND? Y/N":505:A$"N"145;J$:A$"Y"210vCI.:E$" S THIS AN IMAGE FILE FROM OMPUERVE?":505A$"Y"A$""CIWG3:K$"W":345:A145E$"REKBE12,85: BE13,85:BE24,15:BE4,33:BE11,47tKJ14:H1,L1,H2,L2:BE1,H1:BE,L1:BE8,H2:BE7,L2KH150T1200:KT130:T,J::CLBEBE24:CL,0::K,K654295,0:54296,15:FF1680L@54273,FF256:54272,(FF32768)255:VSKYDDAD.BM2FE62 " DEN KODEN FINNS INTE P] DISKETTEN.":OM3FE63pM<FE72" DISKETTEN [R FULL.M>FE74" [R DISKETTEN RIKTIGT ISATT?MS" FEL"FE": "FE$"MW850:95,0:54296,15:FF1680L@54273,FF256:54272,(FF32768)255:4,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 ` ,`Ŭx53281,0:53280,0:(30)(14):5,2,3,(6)(.)#15,8,15:U212:D256:W1:E$(147):O8 (BL$"":ER$" "(13)` -ACK6:NAK21:EOT4:CAN24:Z131:V132:F255:M288:P12:T$" " 2C$(.):J$(13):O$(18)(32)(157)(146) 7E$J$"n: o251,120:252,96: SEI RTS p253,088:254,96: CLI RTS q251: DISABLE INTERRUPTS< sJ0064:T%(J)J::T%(13)13:T%(20)8:J6590:T%(J)J32:v xJ9195:T%(J)J::J193218:T%(J)J128::T%(146)P }T%(133)P:T%(147)19:T%(137)3:$"FOR MAIN MENU"; FAWFA.:" AND START THE UPLOAD."J$ #5,A$:A$""180 L$(F%((A$)));:A$Q$U,.& 165> O$;:A$:A$""165v BW:X(A$):X13X145X157X29X17X19L$; BWA$;:A$Q$U,. A$G$L$J$:3201,47FJ<J16:H1,L1,H2,L2:BE1,H1:BE,L1:BE8,H2:BE7,L2\JAH150T1150:JFT130:T,J::CLBEBE24:CL,0::JP25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162,42,62,31,165,50,60JU37,162JdJnEMKxBE5,85:BE6,85:54275,99986LJ54278,240:54277,1670:54276,65eLTT1100::54276,0:CLBEBE24:CL,0::kLL15:15,8,15:15,FE,FE$,T,SE:15LFE$"OK"FE0:L6700:DFDF1L FE21" DISKETTEN KAN VARA FELAKTIG. MFE26" DISKETTEN [R SKRIAd53280,6:53281,0:"DATORISERAD TELEFONUPPRINGARE."n"Ś":T024:54272T,0:xT013:X:54272T,X::54296,151000Q((D$)):T1(D$):Q(T)((D$,T,1)): F54272:G54273:H54279:I8: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 ± )L , @ @  L `  hh  ``@ (@ ,`   ` ` ,{   ,`H ,© h`H ©,h`  :B$:B$""560!?SO54272:CL.24:SOCL,.:*D145mIE$"IS HOST COMPUTER READY TO RECIEVE? Y/N"J$:505:A$"N"145~NA$"Y"585SE$"HAVE THE FIRST 16 (OR LESS) BLOCKS TO UPLOAD BEEN READ YET?"X505:A$"N"145]A$"Y"595h15,"S0:"F$ 361:320,667,(668): EMPTY INPUTQJ#5,DU$: READ DUMMY BYTEPW':rmu˓)I.Nܥ'&RKr}s+V[^99yԦmTzw)v\>J|Wv]>]RSi;r)9s/ges-sJ{u;lZNw)W)JVYOl)J ?A49152:I04:D$:J1662:H((D$,J,1))48:H9HH7bL((D$,J1,1))48:L9LL7DL16H:A,D:AA1:CCD:::C16014"DATAFEL!":"STARTA MED: SYS49152": A90CA200A0002037C0A902A200A0072037C0A904A202A00F2037C0A906A20+E474152004652495454000D5345545942BB1988.itҚiuҚfNktӚZo7.vt.jns9jtIr橮jf:sr橪otReWR7Nj:ruiiZwΛ)k9y9j橾riw)kjik)yr9o)jR5iIR9Λn)y9o)j9n)қ)JBL$"WAITING...":235: REREAD SAME PACKET!236: LOOP FOR MORE DATA8XWA$(EOT)ER$"ND F RANSMISSION!":520:310lU%(H,X)(A$C$):CHCHU%(H,X):X:CHCHU%(H,V) (U%(H,W)U%(H,2)U%(H,3) F).525:ER$SO$:235U%(H,V)(CTINUE,Y1H:PS4-CI1CI0:PS10.XPSZ:3,(U%(Y,X));:X:Y12000: EMPTY QR2ZZ18:ZZ:#5,A$:STO306: EMPTY INPUT QUEUE UNTIL IDLEl4520:231:S ACK & .5 SAVE LAST SET OF PACKETS & EXIT6H1314: NOTHING TO SAV"7. CRATCH FILES"J$T$"8. ND":505O(A$)145,475,375,585,210,1090,1500,515T320JYF$"":E$:"ILENAME ";F$:(F$)0A1:aZCI1FT$"P":360^J$"ILETYPE: <>ROGRAM OR <>EQUENTIAL? ";_505:A$"P"A$"S"351cA$:FT$A$hXEOTZ:#6,B$:400EFY:AXWZ:U%(Y,A).::U%(Y,V)CHF:405FU%(Y,X)(B$C$):CHCHU%(Y,X):ST395a:U%(Y,V)CHF::YYWoFAW145668,(667)#5,A$:A$(NAK)411BLBLY:Y.ER$"PLOAD STATUS"J$"NAK"BL$"UPLOAD ON LAST PACKETEFYER$"ACK":425: SEND NEXT PACKET7EFYEF.:535:540:6:550: -EOFUA$(NAK)ER$"NAK":430lA$(CAN)6:550u435-DIRECTORY -E$:1,8,0,"$0":G1:361A145#1,A$,A$#1,A$,A$:A 2000:QQW:Q113:A$(CAN):5,A$:2000:55035,(NAK);:D5,(EOT);:Z#5,A$:A$""540`!&"RESS ANY KEY FOR TERMINAL MODE"+SO542720SO1,250:SO5,10:SO15,2005SO24,15:CL112:SO4,21:TM11250::SO4,20bE$"UPLOADING "F$:405,:-SET DUPLEX SUBROUTINE---XBJ$" <>ULL OR <>ALF UPLEX? ";aE505~FA$""A$"F" B.:320GA$""A$"H" BW:320Q 1093:- A FILE ROUTINE-F$"":E$:"ILENAME ";F$:(F$)0320;A53248:"64:ANS ELLER DINA TECKEN (64/#ADRESS)":A$QA$"64"A(A$)"BANNER TEXT (MAX 40)";B$:"STORLEK (X=1- ),(Y=1-10)";XS,YSL(B$):"ALLTING OKEY (J/N)";Q$:Q$"J"""B$:1,4,0:BS$(8):SI$(15):M0L1:T(1024M)24A019K 2037C0A90CA208A0222037C0A908A206A02B2037C06048B96BC0F00620D2FFC8D0 F568A8B92B0038F52B85C1B92C00F52CA6C1A00A84D320CDBDA01084D3A005B99C C020D2FF8810F7600D42415349430050524F4752414D005641524941424C455200# 4D41545249534552005354525B4SS TO BORT!"::BL.:L.J$"DOWNLOADING "F$J$2000:525: SEND NAK TO STARTHWP+CH.:XWVM#5,A$:EST:A$""EOLLWAB$:AB$"A"5,(CAN):ER$DC$:310: LOCAL ABORT!E.L.:255: GOOD DATALML.:525:HF)525:ER$"HECKSUM ERROR":235BLBLW:BL$"BLOCK"BL;ER$.U%(H,2)BLBLBL1:520:ER$"UPLICATE BLOCK":235XHP520: SEND ACK FOR NEXT PACKETe"H:HHW':IFN=WTHENIFH=.THEN310(ZZ140:ZZ+:SAVE SET OF PACKETS & CONE7AWH1:PS48CI1CI0:PS109RPSZ:3,(U%(A,R));:R:A :2000:3:5501; -MENU-K@E$J$T$"*** ***"EJ$T$"1. ERMINAL"J$T$"2. IRECTORY"J$T$"3. PLOAD"J$T$"4. TART PLOAD"JT$"5. OWNLOAD"J$T$"6. UPLEX"KT$G,8,G,"0:"F$","FT$","K$i15,A,B$jAE$;A;B$:501:G: m3r -UPLOAD-SwEF.:G6:K$"R":345:A145azBL.:FAW|ER$"EADING ":YWP:U%(Y,W)WBLBLW:U%(Y,2)BL:U%(Y,3)FBL:CHWU%(Y,2)U%(Y,3):ER$"BLOCK"BLING"YYW:BLBLWBL$"BLOCK"BL:XWV:5,(U%(Y,X));:M:IFPEEK(669)<>PEEK(670)THEN431:REM WAIT UNTIL SENTpA.1200:#5,A$:A$"":430A$(ACK)455YP445EF.ER$"ACK":380EFYEF.:535:540:6:550: -EOF $""500#1,A$,B$:(A$C$)(B$C$)D;'#1,A$:A$"":4805A$;:490F1:501:320jJ$" RESS ANY KEY TO CONTINUE": -WAIT FOR KEY PRESS-A$:A$""505:-EXIT PROGRAM -6:15:5,(ACK);:Q.:" CHARACTERS ="MC T"ENTER ^ IF DONE"- V"";TX$(TN)K XTX$(TN)"^"TNTN1:118] ZLL(TX$(TN)) \LLMC156:" >> LINE TOO LONG <<":82 ^MD(TN)1186 `156:172:" LINE"TN"PRINT CODE = "PC$: bMC40"-"TX$(TN)"-":10  >> LABEL DONE <<"3x11)"PREPARE SEIKOSHA &"Sz10)"LINE UP TOP OF LABEL"x|12)"WITH PRINT HEAD":160:162~SP$(27)"3"(18):SP0I1TNCO(I)113,4,13:13,"";:4,4:4,(27);"G";:4DW(I)14,4:4,(27) Y07:56334,0:1,51:Z(T8AY):1,55:56334,1V X07:Z2(Z2)C%(Y,X)0:8d C%(Y,X)1 Z(Z2):::Y701:I1XS:1,SI$; YS10J1(80YS8)2:1," ";: X701:C%(X,Y)1J1YS:1," ";::12 J1YS:1," ";: G "PRINT SHOP -> DOODLE": 15,8,15: D%(15): I1 15: D%(I): A49152 49362: D: A,D::A780:X781:Y782:Z0: 49277ZZ1: Z16 30F$"": "LADDA BILD NR."Z;:F$: F$"" 16 F$"$" 49152: 16 F$"#" 307: A,251: X,0: Y,128: 65496% ( 15:5 *P22528:R0n , J0 7: I0 5: D%(Z)RJ(I8),(P):PP1:: .RR320: R1920 0 44 215,E,E$,T,S: E "DISK ERROR";E;E$;T;S 4 6L(F$): I1 L: 678I,((F$,I,1)):/ 8 65,186,32,180,255,165,185,32,150d @ 255,169,0,133,144,160,3,132,183,32,165,255,133,195,32,165,255,133,196 B 164,144,208,62,164,183,136,208,235,166,195,165,196,32,205,189,169,32,32 D 22,231,32,165,255,166,144,208,38,201,0,240,24,32,22,231,32,22,208,251,230,26,202,208,246,153,0,88,153,144,88,200,192,144,208,245N 96,169,59,141,17,208,169,120,141,24,208,173,0,221,41,254,141,0,221,96P 169,27,141,17,208,169,21,141,24,208,173,0,221,9,3,141,0,221,96ٮsdٮvrfog)J5JLj)J7CH$(16):MD(16):CO(16):SB(16):TX$(16):DW(16)T53280,6:53281,3:646,6]156z12)"WHAT SIZE LABEL?" 11)"" 11)"  1 =1 X 3.5 "11)" "11)"" 10)"33:CD17:CC56:CM28:LF216Z "SL2LS$"1.5 X 4":LN8:LS16:CN36:CD19:CC64:CM32:LF324c $156 &10)"LABEL SIZE = "LS$ (" MAXIMUM LINES PER LABEL:" *" W/NORMAL PRINT ="LN ," W/SUBSCRIPT ="LS" ." MAXIMUM CHARACTERS PP" BPT$"B"PT$(27)"4"1 DPT$"C"PT$(27)"-1"W FPT$"D"PT$(14):DW(TN)1:MCCDw HPT$"E"CO(TN)1:MCCC:78 JPT$"F"PT$(27)"S1":SB(TN)1 LCH$(TN)CH$(TN)PT$ N P(CO(TN)1)(DW(TN)1)MCCM R"ENTER LINE"TN" MAX 2d" ";:I1MC:"";:::" "TX$(TN)@f" IS THIS CORRECT? Y/N":162OhA$"N"58vjLSLSSB(TN):" LINES REMAINING:"l" "LS" USING SUBSCRIPT"n" "LS2" USING NORMAL PRINT"p160:162rLS1118tTNTN1:58v156:";"G";:44,4:4,SP$;CH$(I);TX$(I):SPSP18>SB(I1)14,"":SPSP18S10,4,10:10,"";b13:4:10huXXLFSP4,4:4,(27);"3";(XX):4156:" >> SAME LABEL AGAIN? Y/N <<":162A$"Y"126156:" :1,BS$::::1]ӓMzejJ]Jt%^grԤYRTr]2)+~w)Nnkgr󞲙M|ݙ:{ReYR湫WJݭkӤjߗMevrMJ{%+VU)+zw)NnkNO^5w)WJݭkӟzf6R\RzNfJUmJJݭkӟzf6R)zL5)J F$"0:"F$: 54: A,0: X,0: Y,58:65493:50: E 16H  42: 49325b  K$: K$(13) 26s  49344: 14 F$"": "FILNAMN (SPARA) ";F$:F$"" 30 F$"#" 40 " (F$)14 30 $15,"IO":F$"0:DD"F$: 54 & 251,0: 252,92A,1: X,8: Y,1: 65466: A,L: X,167: Y,2: 65469:} : 24904,24968,25032,25096,25160,27464,27528,27592,27656,27720,30024,30088 < 30152,30216,30280,169,13,32,210,255,169,8,133,186,169,2,162,123,160,192 > 32,189,255,169,96,133,185,32,213,243,15,255,240L F 26,32,228,255,240,232,201,32,208,228,32,228,255,240,251,208,221,169,13 H 32,22,231,160,2,76,41,192,32,66,246,96,36,48,169,0,133,25,168,169,92,133 J 26,169,177,162,4,145,25,200,208,251,230,26,202,208,246,138,162,32,145,257L 200 >> ANOTHER LABEL? Y/N <<":162'A$"Y":28"":200:l" LABEL MAKER FOR THE SEIKOSHA-1000VC ";" PROGRAMMED BY D.A.CARDOSI ";:214,23::" PRESS ANY KEY TO CONTINUE ";:A$:A"1 10)" "R 10)"  2 =1.5 X 4 "q 10)" " 10)" " 10)"" " CHOOSE. - 1 OR 2";SL SL1LS$"1 X 3.5":LN5:LS10:CN ER LINE:" 0" W/DOUBLE WIDTH ="CD= 2" W/NORMAL PRINT ="CNZ 4" W/CONDENSED ="CCh 6160:162q 8TN1 :166:"ENTER PRINT CODE";PC$:MCCN:SB(TN)2 <P(PC$):I1P:PT$(PC$,I,1) >PT$"G"MD(TN)1:78 @PT$"A"PT$(27)" PLEASE WAIT. GETTING HEADER & ID"E d1:1,8,2,"#":15,"U1";2;0;18;0:INy nI1$(IN$,144):N$(IN$,145,18):D$(IN$,163,3) xL$(IN$,166,2):I2$(IN$,87) 46)"DISK NAME : "N$:6)"DISK I.D. : "D$ 9)"STATUS : ";:L$"2A""UNLOCKED ";L$ 46)""N$" "D$" "L$+ 51)"OKAY? Y/N ???"A 1000:V$"N"130R V$"Y"270z 46)"PLEASE WAIT. WRITING DATA." "15,"B-P";2;0 ,1,I1$N$D$L$I2$ 615,"U2";2;0;18;0 @1:15:30 "DISK ERROR. PROGRAM ABORTED.":  Ҡ٠͠ HIS PROGRAM WILL CHANGE THE NAME, COSMETIC ID, AND LOCK OR UNLOCK YOUR DISKS. T WAS WRITTEN TO SHOW HOW TRING HING BY . UTTERFIELD CAN BE USED TO READ DISK TRACKS AND SECTORS. AKE SURE WRITE PROTECTS HAVE BEEN REMOVE AN INPUT REQUEST CAUSES NEW ITEM TO REPLACE OLD ONE. F YOU LOCK YOUR DISKS "" WILL REPLACE "2" ON HEADERS. HIS ONE IS MUCH FASTER THAN THE OLDER NAME CHANGERS. IM OOPER ! OX 11T(35):X117:T(X)20::X1824:T(X)18:cX2530:T(X)17::X3135:T(X)16::D(256) 53281,0:53280,0:(14)" ""  " "  ESURRECTION " "L d14)"ELECT PTION:":2:F0:EF0k n14)"":15 x12)"1: AVE A ECTOR" 12)"2: AVE A ILE" 12)"3: AVE NTIRE ISK" 12)"4: EAD NSTRUCTIONS":198,0 :" "E1;E$;E2;E3:X14000::190:P AT0:15,"M-W"(10)(0)(2)(T)(S)q 15,"M-W"(2)(0)(1)(CODE) ATAT1:15,"M-R"(2)(0):#15,E$:E(E$(0)) AT500290 E127250  "E$"NRECOVERABLE FORMAT ERROR" $E3$""162.156:"ENTER TYPE OF PRINT DESIRED FOR LINE"TNZ"NOTE: PRINT TYPES MAY BE COMBINED BY"" ENTERING MORE THAN ONE LETTER.""  A NORMAL PICA""  B ITALICS""  C UNDERLINED""  D DOUB(TH AVE A . CANN, ILL 61520F PRINT DESIRED FOR LINE"TNZ"NOTE: PRINT TYPES MAY BE COMBINED BY"" ENTERING MORE THAN ONE LETTER.""  A NORMAL PICA""  B ITALICS""  C UNDERLINED""  D DOUB NAMECHANGER FROM QS! ALLIANCE"^ (47)"INSERT A DISK IN DRIVE #8"19)"THEN PRESS RETURN"v 21000:V$(13)50 <46)"PLEASE WAIT. CHECKING DISK." F15:15,8,15,"U;":15,"I0":15,ER,EM$,TK,SR P46)""ER;EM$,TK,SR:ER999 Z43)" L$"2A""LOCKED ";L$4 :"ENTER NEW NAME :";NN$P "ENTER NEW I.D. :";ND$v "ENTER LOCK OR UNLOCK :";UL$ NN$""210 N$(NN$R$,18) ND$""230 D$(ND$"++",2)(160) UL$""UL$"U"L$"2A":250 L$"LK" ؗ198,0 V$:V$""1010 3 < 160,2,177,45,153,137,0O  200,192,6,208,246,162m  1,32,198,255,32,228,255 h 164,142,145,140,200  132,142,196,139,240,4,165 0 144,240,234,76,204,255 "UL$"U"L$"2A":250 L$"LK" D FROM DISKS YOU WANT TO CHANGE. HEN INSERT A DISK IN THE DRIVE. HE PROGRAM WILL TELL YOU THE CURRENT NAME AND ID AND IF THE DISK IS LOCKED OR NOT. RESSING ON A BLANK INPUT REQUEST CAUSES THE OLD ITEM MENTIONED TO BE RETAINED. NY ENTRY IN 403 EW LBANY, 47150 -CQ  BP%B>G\A BLANK INPUT REQUEST CAUSES THE OLD ITEM MENTIONED TO BE RETAINED. NY ENTRY IN  "7 ("  "g 2"  BY " <"  " F"  OHN ROOKSHANK " P"  "% Z12)"5: XIT ROGRAM":198,0) I$:I(I$): I1I5160W I500,700,1200,1400,450r "":X113 " "::"": 631,154:198,1: 15,E1,E$,E2,E3:E10( 190E$"ANNOT FIND TRACK", %E8E$"RITE PROTECT ON"K 6EE18:190:""E;E$;T;S~ @"ORRY, UNABLE TO RECOVER THIS SECTOR":670 JTT0 TTTTT1:TT3EFEF1: Y15,"U;":X11000: ^2:15:15,8,15,"I0" h210:E10100 r2,8,2LE WIDTH" "  E CONDENSED"'"  F SUBSCRIPT"B"  G CENTERED":aLLMCTX$(TN)TX$(TN)" "|LL(TX$(TN)):LLMCLLMCTX$(TN)" "TX$(TN)LL(TX$(TN)):LLMC186. DAN CARDOSI. 764 N ": NAMECHANGER BY JIM COOPER6: QS! ALLIANCEF: BOX 1403a: NEW ALBANY IN 47150g : IN$" ":I13:IN$IN$IN$::IN$IN$(IN$,126)IN828:IIN IN37:N:I,N::R118:R$R$(160):! 53280,0:53281,0:" E1010)"ANNOT SAVE THIS FILE!":F0:670*#2,A$,B$V15,"M-R"(24)(0):#15,T$:T(T$(0))15,"M-R"(25)(0):#15,S$:S(S$(0))2:2,8,2,"#2"P11((F$)2):P1P0F1:190:P5)"AVING "(34)F$(34)"  "T" SECTOR "S$4CODE176:230:E1330:TT3820-9198?>CODE128:230pHE415,"M-W"(71)(0)(1)(7):EFEF1:870RE5EFEF1:870\E1330:TT3820aE1NT0:NS0:920f15,"M-R"(0)(5):#15,NT$p15,"M-R 670E1330:TT3920+190:7)"NRECOVERABLE FORMAT ERROR."S6)"IXING SECTOR LINKS TO ALLOW"}5)"FILE RECOVERY UP TO THIS POINT."13)"(E PATIENT!)"TLT:SLS:CODE176:230:E1330:970CODE128:230:E1970 D(1)Y2:D(Y)D:D(Y1)D:D(Y2)D VX0255/`15,"M-W"(X)(5)(1)(D(X)):AjCODE144:230ZoE1330:TT3970mpE1F0:670t190::3)"ILE HAS BEEN PARTIALLY RECOVERED."~:2)"ILE COPY ALL FILES TO ANOTHER DISK;"SK AND PRESS  ":198,0A$:A$(13)12400A$""A$(13)190:100:1230_2:15:15,8,15,"U;":X11000:z15:15,8,15,"I0":210E101002,8,2,"#2":210:E10100RE0:FE0:WE0" 4E5RERE1:1330E415,"M-W"(71)(0)(1)(7)4(CODE144:230:E8WEWE1:1330Q)E1330:CODE144:230c-E1WEWE1u2E3ST(T)17S:T<190:10)"ORMAT ERRORS:"FEF5)"NRECOVERABLE READ ERRORS:"REP10 FOR AN EXCELLENT ""REFERENCE GUIDE TO THE 1541. "H" HIS PROGRAM WILL CORRECT "Q$"SOFT"Q$t"READ ERRORS ON YOUR DISKS. HESE ARE""#22 AND #23 READ ERRORS. HE OTHER ""ERRORS SUCH AS #20, #21, #27, #29, ETC.","#2":210:E10100*|CODE176:230:198:E1340KCODE128:230:198:E1340Qj190:631,5:198,1:190:14)"AVE A ECTOR"14)"":T1:S1"NPUT TRACK DESIRED: ";:200:T T1190:100'T,15,"I0":210:E10100(I2,8,2,"#2":210:E10100LN7)"EADING TRACK"T"SECTOR"S}XCODE176:230:E1E4E5330:TT3600YE1E4E5290]198bCODE128:230lE5650qE4640vE1330:TT3600wE1ILE":14)""F$"":LT0:LS0:EF0B"NPUT FILENAME:";:200:F$WF$""190:100|2:15:15,8,15,"U;":X11000:15,"I0":210:E101002,8,2,"0:"F$210:E162E121700E122E123TE2:SE3:770 EADING TRACK "T" SECTOR "SA T0" ND OF FILE":F0{T0EF0P)""(34)F$(34)" HAS BEEN SAVED!":670T0EF1P2)"O ERRORS IN "(34)F$(34):670T35ST(T)940 " EADING TRACK "(1)(5):#15,NS$zNT(NT$(0)):NS(NS$(0)):PRINT"NT="NT,"NS="NS:GOTO940QCODE=176:GOSUB230Z198CODE144:230:E1330:TT3920198E1LTT:TNT:LSS:SNS:780E8190:10)"EMOVE RITE ROTECT!":F0:X025515,"M-R"(X)(5)#15,D$:D(X)(D$(0))0:X0:Y0:D0FXX1:X2551060VD(X)DYX`1030|$Y0D0D13:X0:1030)Y0D13Y255:1100.D(0)0:Y2531100BD(1)Y2:D(Y)D:D(Y1)D:D(Y2)D:1110L3)"HERE ARE PERMANENT FORMAT ERRORS",3)"THAT CANNOT BE CORRECTED WITHOUT"N8)"RE-FORMATTING THE DISK."x:12)"RESS ANY KEY":198,0:198,1190:100190:12)"AVE ENTIRE DISK"12)""5)"NSERT DI "T135S0T(T):5)"ORKING ON TRACK "T" SECTOR "SuCODE176:230:E1E4E5330:TT3FEFE1:1330E1E4E5FEFE1:1330CODE128:230:E1E4E5330:TT31300E1E)"ECTORS SAVED:"683WEZF0:X15000::670*xC$"":Q$(34):190Z""C$" HIS PROGRAM WAS TAKEN FROM THE ""ROUTINES IN THE BOOK NSIDE OMMODORE""Ӛ. PECIAL THANKS TO ICHARD MMERS""AND ERALD EUFELD"ARE CREATED DURING FORMATTING, AND "' "CAN'T BE REPAIRED EXCEPT BY FORMATTING"> "THE DISK AGAIN."p " RESS ANY KEY":198,0:198,1 190:" URING THE TESTING OF THIS PROGRAM" "IT WAS DISCOVERED THAT MANY OF THE C35190:14)"NVALID TRACK!":X14000::500Q"NPUT SECTOR DESIRED:";:200:Sd&S0190:1000ST(T)190:14)"NVALID SECTOR!":X14000::500:190:15)"ORKING..."?15:15,8,15,"U;":X11000:D15:15,8 290${" O ERRORS ON TRACK"T"SECTOR"S"!":670C15,"M-W"(71)(0)(1)(7)jCODE144:230:E1330:TT3600xE12908)"RACK"T"SECTOR"S"SAVED!"X15000:F02:15:190:100F1820190:14)"AVE A  %0"DISK. HEN A "Q$"HARD"Q$" ERROR IS FOUND, THE"&&:"PROGRAM RESETS AND THEN INITIALIZES THE"R&D"DRIVE AND TRIES AGAIN; UP TO 3 TIMES"~&N"PER SECTOR BEFORE GIVING UP AND THEN"&X"ACCEPTING THE ERROR."&b198,0:198,1&l190:" HE "Q$ IS FOUND,"'"THE PRECEEDING SECTOR'S INFORMATION IS"'("CORRECTED TO SEVER THE BAD PORTION OF "N("THE FILE FROM THE GOOD PORTION."o(" OOD UCK!"(198,0:198,1(" ":190:100wR H  B Щ Lt-/.0`TRACKER.MAIN- -< COPIER FILECOPY.O!FILES ON SIDE 1 0 n 49500? xN$(1)"SEQ":N$(2)"PRG":N$(3)"USR":N$(4)"REL"c SP$" "m 2520w A$"" ""; " NUMBER OF ENTRIES #";NU "" NTERIES" "G) DELETE AN ENTRY"4 ""H) EDIT AN ENTRY"P ,"I) PRINT THE ENTRIES"p 6"J) DISPLAY THE DIRECTORY" ; "K) NOTES TO THE USER" @A$:A$"K"A$"A"320 JA(A$)64:A1450: ABANDON FILE TNU0 A2 A10 A4 A11";, :"ARE YOU SURE YOU WANT TO ABANDON THIS ";] "LIBRARY? (Y/N) ";p A$:A$""490 A$"Y"49525:55,0:56,160:58260 A$"N"140  140 NU4952600:140  2520 &" ENTER ENTRI";(NU$(Z)" ",27)G"::::::::"ZA$:A$""660j(A$)13(A$)20(NU$(NU))0NU$(Z)(NU$(Z),(NU$(Z))1)(NU$(Z))25ZZ1200::660(A$)32(A$)95640NU$(Z)NU$OPY" "PROGRAMS DO NOT FAITHFULLY DUPLICATE",!""#22 OR #23 ERRORS. HESE ERRORS HIDE A"^!,Q$"HARD"Q$" ERROR UNDERNEATH THE "Q$"SOFT"Q$!6"ERROR. HESE CAN'T BE REPAIRED, EITHER."!@" HIS PROGRAM IS INTENDED TO SAVE"!J"YOUR FILES IAVE A ILE"Q$" OPTION. HIS"#"WILL TRACE THE FILE, AND CORRECT"=#Q$"SOFT"Q$" ERRORS AS THEY ARE FOUND. F"k#"ANY "Q$"HARD"Q$" ERRORS ARE FOUND, THE"#"FILE WILL BE SEVERED AT THAT POINT,"#"SINCE A HARD ERROR CANNOT BE REPAIRED."#RE ISK"Q$" OPTION"%"TAKES A LONG TIME, BUT MAY BE USEFUL"4%"IF YOU DON'T KNOW WHERE THE READ ERRORS"c%"ARE ON THE DISK. OWEVER, THIS CAN TAKE"%"A LONG TIME, ESPECIALLY IF THERE"%&"ARE A NUMBER OF "Q$"HARD"Q$" ERRORS ON THE""AVE A ILE"Q$" OPTION IS OF" 'v"MAIN INTEREST. T IS THE ONLY OPTION"9'"THAT WILL ALLOW YOU TO RECOVER A FILE"j'"WITH "Q$"SOFT"Q$" ERRORS. HE ERRORS WILL"'"BE CORRECTED AS THE PROGRAM STEPS THRU"'"THE FILE. F A "Q$"HARD"Q$" ERRORAVE A ILE"Q$" OPTION IS OF" 'v"MAIN INTEREST. T IS THE ONLY OPTION"9'"THAT WILL ALLOW YOU TO RECOVER A FILE"j'"WITH "Q$"SOFT"Q$" ERRORS. HE ERRORS WILL"'"BE CORRECTED AS THE PROGRAM STEPS THRU"'"THE FILE. F A "Q$"HARD"Q$" ERROR ***TRACKER***:@C0:A828948:B:A,B:CCB:h(C0:A4915249364: B:A,B:CCB:u249248,0<A4950049539:B:A,B:FA49542 49564:B:A,B:P(8);(142);(147);Z 55,0: 56,127: NU$(495)d53280,0:53281," "G "ENTER THE LETTER FOR THE COMMAND"M g "A) ABANDON LIBRARY" "B) LOAD TRACKER LIBRARY" "C) SAVE TRACKER LIBRARY" "D) CONTINUE WITH ENTRIES" "E) PUT IN ALPHABETIC ORDER" "F) LOOK AT E 2490:140 ^A2730" hA311800 rA4530? |A51120N A62190] A72400k A8980z A91340 A101840 A112900  2520:" ABANDON LIBRARY" "ES"(0"";_:"ENTER 'END' OR (RETURN) TO STOP ENTERINGENTRIES"eDyNNUNU1:NU") "XNU$(NU)""bZNU: 640lNU$(NU)"END"NU$(NU)""NUNU1:NU$(NU1)"":140v 530 "(Z)A$:6405302520/" LOAD LIBRARY"`"";"INSERT YOUR DISK WITH THE TRACKER LIBRARY SAVED ON IT, AND PRESS";" SPACE." A$:A$" "780 2,8,2:2: ST0 F YOU SHOULD DEVELOP A READ""T"ERROR. F YOU CAN'T LOAD OR READ A FILE"D"^"BECAUSE OF A READ ERROR, THIS PROGRAM"r"c"WILL LET YOU GET THAT FILE BACK AGAIN.""h198,0:198,1"r190:" F YOU HAVE A BAD FILE, YOU SHOULD""|"USE THE "Q$" " HIS WILL LET YOU RETREIVE AT LEAST"$"A PORTION OF THE BAD FILE. F IT IS A"L$" PROGRAM, THE LINE LINKS WILL BE"{$"CORRECTED BEFORE THE BAD PORTION OF THE"$"FILE IS SEVERED."$198,0:198,1$190:" HE "Q$"AVE NTI ARY" A(79(DA$))2:B1A:4," ";:B:4,DA$;FD69A(DA$):A1D:4," ";:A:4,"( PAGE";TR1;")"_A179:4,"";::4rWW165WW165WW551590"WW1101630,175064:4,4@A1WW:4,(NU$((165TR)A)SP$,25): "(1 -";NU;", 0 FOR NONE) ";Z:ZNU980$Z01401Z1980i:"ARE YOU SURE YOU WANT TO EDIT":"";NU$(Z);"?"$A$: A$"N" 980. A$"Y"10608 2520:" EDIT"B"" 4:NUWW140 NU330 TR1 140% TR0 TR1:WWNU165:1480G TR1 TR2:WWNU330:1480Q 140Wc4:4,4oB1554,(NU$((TR165)B)SP$,25);" ";(NU$((TR165)B55)SP$,25);4," ";(NU$((TR165B110) SAVE LIBRARY","";|"INSERT THE DISK YOU WANT TO SAVE THE LIBRARY ONTO. THEN PRESS SPACE"A$:A$""1210A$" "1210 2,8,2:2: ST0 1230 "TURN DISK DRIVE ON, AND PA DISK TO READ, AND"N"PRESS THE SPACE BAR WHEN READY"+XA$:A$(32)1880db 49525:"HOLD SPACE TO SLOW, OR RETURN TO EXIT."l 15,8,15,"I":15:ST01950v"ERROR!!! UNABLE TO READ DISK.""PRESS SPACE TO CONTINUE."140 "PLEASE WAIT, SAVING TRACKER LIBRARY"G1:1,8,8,"@0:TRACKER LIBRARY,S,W":1,NU:A1NUW1,NU$(A):^(1g2140q<2520F" PRINT LIBRARY"P"";Z"PLEASE ENTER TITLET$(128)A127:#1,A$::2130!A$:A$""2070 ! A$" "A1500::2070>!  A$(13)1:49500:140h!NA$"":L116:#1,A$:A$(160)2090w! NA$NA$A$!*L:NA$(NA$(34)" ",16)!4#1,A$,A$,A$,A$,A$,A$,A$,A$,A$,L$, 830  "TURN DISK DRIVE ON, AND PRESS A KEY"3* A$:A$""810f4" ":"";p9 790>2,8,2,"TRACKER LIBRARY,S,R":2,A$:2:ST0880H"ERROR, FILE WAS NOT FOUND."R"PRESS SPACE TO RETURN TO MAI";"PRINTING FILE"#4,4-WWNU6TR0dA(79(TL$))2:B1A:4," ";:B:4,TL$A(79(TL$))2:B1A:4," ";:BB1(TL$):4,"";:B:44," LIBR"PLEASE WAIT, LOADING THE TRACKER LIBRARY"B1:1,8,8,"0:TRACKER LIBRARY,S,R":1,NU^A1NU:1,NU$(A):A:1g1402520:" EDIT""";"WHICH ENTRY DO YOU WISH TO EDIT?"JA61 WW 1:4:T4:140^4:4,4hB155Ur4,(NU$((165TR)B)SP$,25);" ";(NU$((165TR)B55)SP$,25)n|WW55BBB1:1680{B:1690CB55:4,(NU$((165TR)C)SP$,25):C:1690 CHECK FOR NEXT PAGEA1 6:;L:::NU") " V 640: 1400`2520:" ALPHABETIZE"aj"";t"PLEASE WAIT PUTTING IN ALPHABETIC ORDER"~N2(NU256):N1NU256N2:49366,N1:49367,N2491521402520:" )SP$,25)WW104BBB1:1820B:16903CB54:4,(NU$((TR165)C)SP$,25);" ";`&4,(NU$((TR165)C54)SP$,25):C:16900 2520:" READ DIRECTORY":"";D"INSERT RESS A KEY" A$:A$""12235" ":"";?1221u1,8,8,"TRACKER LIBRARY,S,R":1,A$:1:ST01290"FILE ALREADY EXISTS, REPLACE (Y/N) ?"A$:A$""1250 A$"Y"1290 A$"N"65535A$:A$" "1930 140 1,8,2,"$":ST01970 1: 19100  X1 142:#1,A$:@ ST01910T "0 ";(34); L116:#1,A$:A$;::#1,A$,A$:(34);" "; L15:#1,A$:A$;: L189:#1,A$:: P18:#1,T$,A$,A$: OF LIBRARY:"d TL$#n"PLEASE ENTER TODAY'S DATE (MM/DD/YY).",xDA$xy"GET THE PRINTER READY AND PRESS SPACE":" WHEN READY."zA$:A$""1402{ A$" "1410| 1402520" PRINT LIBRARY""H$:L(L$(0))256(H$(0))!>SI$(L)0"H"";(SI$" ",4);" ";(34);NA$;" ";N$((T$)128)A"RST1:2160T"\P8#1,A$,A$a"fP:2030"p:"PRESS THE SPACE BAR WHEN READY""zA$:A$(32)2170"49500:140""";:NU10 N MENU":15,8,15,"I": 15\A$:A$(32)860&f 1407p NU0 940z"DANGER!!! ALL NAMES IN MEMORY WILL BE ERASED. PRESS SPACE TO ";"CONTINUE.":"OR ANY OTHER KEY TO QUIT." A$:A$""910 A$" " 940 140 ";#A$:A$""2280# (A$)13 140 $ A: 140$ 25208$ " LOOK AT ENTRIES"i$ "";$$ A1NU:A")"NU$(A):A$. " PRESS ANY KEY TO CONTINUE ";$8 "  ,3,206,215,192,206,214,192,173,214,192,208,6,173,215,192,208:- 1,96,173,214,192,141,216,192,173,215,192,141,217,192,165,34,24,105f- 3,133,36,165,35,105,0,133,37,76,47,192- 173,20,3,141,132,193,173,21,3,141,133,193,120,169,134,141,20,3,169,193 A1ANU 2400& "ARE YOU SURE YOU WANT TO DELETE":""NU$(A)" (Y/N)?"(& A$:A$"N" 140=& A$"Y" 2460v& BANU1:NU$(B)NU$(B1)::NU$(NU)"":NUNU1: 140& 2520: " NO ENTRIES IN MEMORY"& B12000::&  "; /| " THE WHOLE IDEA BEHIND THIS PROGRAM WAS";;/ "TO HAVE A LISTING OF ALL THE PROGRAMS"k/ "IN MY INVENTORY. THE FIRST TIME I WROTE"/ "THIS PROGRAM IT DID BARELY WHAT I HAD"/ "INDENDED IT TO DO ";' "   ";.( "";4( d(( 2520:" NO MORE MEMORY"w(2 :B12000::(< 174,172,3,232,224,15,208,2,162,1,142,172,3,162,0,173,172,3,157,81jMEMBER MY";0 " NAME."0 " PRESS RETURN TO EXIT." 1 A$:A$(13)30801 140E A LISTING OF ALL THE PROGRAMS"k/ "IN MY INVENTORY. THE FIRST TIME I WROTE"/ "THIS PROGRAM IT DID BARELY WHAT I HAD"/ "INDENDED IT TO DO,1,142,175,3,162,0,173,175,3,157,201,216,232$*n 224,36,208,248,108,132,193,0,0,0,0,0,1,2,3,4,0,0,0,0,0l*x 173,214,192,208,6,173,215,192,208,1,96,165,47,24,105,10,133,34,165* 48,105,0,133,35,76,163,192,160,0,177,34,72,177,36,145,34,104,145,36* "C64 AUTOSTART",8,14|䧆LH1fGJP3W>/f YL 2310:140"A1NU10:2520 #" LOOK AT ENTRIES"<#"";I#BAA9X#BNU2350k#B")"NU$(B):B#" PRESS ANY KEY TO CONTINUE ";#" OR (RETURN) TO EXIT 208,11,200,206,213,192,208, 242,173,218,192,208,167,165,36,24,105,3,133,36,165,37,105,0,133,37a, 173,216,192,208,3,206,217,192,206,216,192,173,216,192,208,158,173, 217,192,208,153,165,34,24,105,3,133,34,165,35,105,0,133,35,173,214, 192,208 OR (RETURN) TO EXIT ";%B A$:A$"" 2370%L (A$)13 140!%V 140K%` 2520:" DELETE A ENTRY"|%j "";%t "WHICH ENTRY DO YOU WISH TO DELETE"%~ "( 1 -";NU;") ?"% A:- 141,21,3,88,96,120,173,132,193,141,20,3,173,133,193,141,21,3,88,96D. 174,0,194,232,224,10,208,8,162,0,142,0,194,76,60,3,142,0,194,108,132Q. 193,255k.T ***NOTES TO USER***v.^ 2520.h " NOTES TO THE USER ";.r "& "";)' " PUBLIC DOMAIN PRESENTS: ";^' "  TRACKER  ";' "  BY  ";' "  JASON OLDS  . BUT I DECIDED THAT"/ "IT WAS A GOOD ENOUGH IDEA TO WRITE IT"$0 "BETTER AND TRY TO SELL IT. WELL HERE IT";Y0 "IS AND IT HASN'T SOLD.": " I'VE DONATED IT";0 " TO PUBLIC DOMAIN IN HOPES THAT A COUPLE";0 " PEOPLE MIGHT USE IT AND RE,216 )F 232,224,36,208,248,174,173,3,232,224,15,208,2,162,1,142,173,3,162,0T)P 173,173,3,157,121,216,232,224,36,208,248,174,174,3,232,224,15,208,2)Z 162,1,142,174,3,162,0,173,174,3,157,161,216,232,224,36,208,248,174)d 175,3,232,224,15,208,2,162  200,192,3,208,241,76,116,192,169,0,141,218,192,168,177,34,240,59C+ 141,213,192,177,36,240,219,205,213,192,176,8,141,213,192,169,1,141+ 218,192,200,177,34,133,251,177,36,133,253,200,177,34,133,252,177,36+ 133,254,160,0,177,253,209,251,144,180,  170 15,"B-P:";2;166:2,(80);:170< 15,"U2:";2;0;18;0:170T 2:15,"I0":15:10i 15,EN,EM$,ET,ES ENEN,EM$,ET,ES: *** DISK UNLOCK *** "ARE YOU SURE YOU WANT TO UNLOCK A DISK? (Y/N)" A$:A$"Y"A$"N" $:1:< "NAME OF CONVERTED PROGRAM";C$ F 2,8,4,"0:"C$",P,W":15,E,E$,E1,E2 P E E$:2:6 Z 192,2,0,8,1,0,147,34Q d J07:X:2,(X);:Jq nJ1(C$):2,(C$,J,1);:J x 34,44,56,44,49 J04:X:2,(X);:J J0 52( 5,"B-P:";2;166:2,(65);:290415,"M-W";(1);(1);(1);(65)W15,"M-W";(2);(7);(1);(65)s15,"U2:";2;0;18;0:2902:15,"I0":15:10"15,EN,EM$,ET,ES,ENEN,EM$,ET,ES:6 *** QUIT ROUTINE ***$" ARE YOU S,167 J057:X:2,(X);:J J01221:2,(32);:J:2,(0); #1,A$:SWST:(A$)0A$(0)* 2,A$;:SW0 2408 1:2:15[ "WANT TO DO MORE PROGRAMS";A$x  A$"Y" A$"YES" 10 " (65532)(65533)256);:J J0 52( ***4N" ARE YOU SURE YOU WANT TO LOCK A FILE? (Y/N)"ROA$:A$"Y"A$"N"1103aPA$"N"10Q15,8,15,"I0":2,8,2,"#":P$"LOCK":VT18:S0:NL$(0):1230`SN2552:15:10jTTN:SSN:1230tJ07:R(J)0::"TYPE NILES. "8 #" WRITTEN BY FINLEY GOODWYN "d $" (JUNE - 1986) " (" " -" 1 FILE LOCK 2 FILE UNLOCK" 2" 3 DISK LOCK 4 DISK UNLOCK" 7" 15,"U1";2;0;T;S:13803#2,TN$,SN$:TN(TN$NL$):SN(SN$NL$):R#2,J$:#2,J$:C0:F$(J)""i#2,A$:A(A$NL$)A160A0F$(J)F$(J)A$:CC1:C161260TEJ1:A0FL1 15,"B-P";2;FT(B)P$"LOCK"PS(B)PS(B)64: "Y"A$"N"103 hA$"N"10T iA$"Y"" PUT DISK TO BE LOCKED INTO DRIVE "; j" AND PRESS RETURN " kA$:A$(13)107 n15,8,15:15,"I0":2,8,2,"#" x15,"U1:";2;0;18;0:170 15,"B-P:";2;2:2,(80);: ) "CREATE C=64 AUTO-START PROGRAM "7 15,8,15R "NAME OF PROGRAM";N$w 1,8,3,N$",P,R":15,E,E$,E1,E2( E #1,A$,B$:A$(1)E1:E$"OOPS!"2 E E202 A$"N"10F A$"Y"" PUT DISK TO BE UNLOCKED INTO DRIVE ";w " AND PRESS RETURN " A$:A$(13)206 15,8,15:15,"I0":2,8,2,"#" 15,"U1:";2;0;18;0:290 15,"B-P:";2;2:2,(65);:2901C$):2,(0);:J 139,227,52,3,124,165,26,167 228,167,134,174,0,0,0,0 76,72,178,0,49,234,102,2A 71,254,74,243,145,242,14,242d 80,242,51,243,87,241,202,241 237,246,62,241,47,243,102,254 165,244,237,245,32,89,166,76,174URE YOU WANT TO QUIT? (Y/N)"B A$:A$"Y"A$"N"420R A$"N"10 A$"Y"" O.K. IF YOU SAY SO. SO LONG FOR NOW.""":X"PRESS RETURN TO GO TO MENU"bA$:A$(13)610l10L *** FILE LOCK0 " "\" FILE PROTECT "" "" A PROGRAM THAT WILL LOCK OR "" UNLOCK A FILE OR AN ENTIRE " " DISK OF FUMBER OF FILE";~" YOU WISH TO "P$;""bJ07:FT(J)J322:15,"B-P";2;FT(J):#2,PS$:PS(J)(PS$NL$)PS(J)0R(J)1:1250:DJ:1360:FL1J7J:1370B$:B$""1190B(B$):BTE1120R(B)011901300:1190 5 DIRECTORY 6 QUIT"C <" 7 INSTRUCTIONS"q A" TYPE A NUMBER AND PRESS RETURN";N F N 1100,2100,100,200,5000,400,3000 d *** DISK LOCK ** f"ARE YOU SURE YOU WANT TO LOCK A DISK? (Y/N)" gA$:A$2,(PS(B));:1380:1330)(PS(B)PS(B)191:2,(PS(B));:1380D215,"U2";2;0;T;S:1380g<"":K07:R(K)1DK:1360vFK:1370:PX(PS(D)64)4:XX(X0)36:D(X);F$(D):ZTE" NEXT":d15,EN,EM$,ET,ESnENEN,EM$,ET,ES:  YPE NUMBER OF FILE";f" YOU WISH TO ";P$;""k`pJ07:FT(J)J322:15,"B-P";2;FT(J):#2,PS$:PS(J)(PS$NL$)zPS(J)0R(J)1:2250:DJ:2360:FL1J7J:2370B$:B$""2190B(B$):BTE2120R(B)021902300: DISKDRIVE. LOCKED DISK WILL SHOW 2";< " IN THEHEADER RATHER THAN THE NORMAL 2. HISFOOLS THE";N " COMPUTER."g "4. ISK NLOCK" "RESS 4 TO CHANGE THE DISK HEADER BACKFROM 2 TO A 2 FORMAT SO"; " THE 1541 DRIVEWILL RECOGN B)64:2,(PS(B));:2380:2330' PS(B)PS(B)191:2,(PS(B));:2380B 15,"U2";2;0;T;S:2380e$ "":K07:R(K)1DK:2360t. K:2370:8 X(PS(D)64)4:XX(X0)36:D(X);F$(D):B TE" NEXT":L 15,EN,EM$,ET,ESV ENEN,EM$,ET,E IRECTORY BY PRESSING #5."* 4000 4 (142):10- " ӠΠϠ"E A$:A$(13)4010K j " VIEW DIRECTORY" " " " YOU MAY PAUSE IT WITH THE" " SPACE BAR." " LE RINT WAS MADE FROM 5 DIFFERENT PROGRAMS TO HELP YOU PROTECT";S " YOUR PROGRAMSAGAINST ACCIDENTAL 'SCRATCH'." "NCE A FILE OR DISK HAS BEEN 'LOCKED',THE SCRATCH COMMAND"; " WILL BE DISABLED.OU CAN LOAD LOCKED PROGRAMS,READ LOCKED!""A$","B$: 1: 5184: 5262!@ "" TYPE 'RUN' AND PRESS RETURN":X" T0 45: D:QQD: 49280T,D:: Q7499 5344" 169,0,133,251,169,48,133,252,162,1,32,198,255,160,0,32,207,255" 166,144,208,18,145,251,200,208" 2HE NUMBER OF THE FILE";7N " YOU WANT TOLOCK AND A 'LESS THAN' SIGN (<) WILLAPPEAR BY";zX " THE NAME TO SHOW IT IS LOCKED.HIS SAME SIGN WILL BE TO";b " THE RIGHT OFTHE FILE TYPE ON THE DIRECTORY."g l "2. ILE NLOCK"v "PTI40,10,200,192,0,208,237,230,254,76,191,192,165,252,197,254$ 208,240,32,204,255,96W$ T0 87: D: T49386,D:KKD:: K13101 5344|$ 162,1,32,198,255,32,207,255,32$ 207,255,32,207,255,165,144,208,66,32,207,255,240,61,32,204,255$x.4"ARE YOU SURE YOU WANT TO UNLOCK A FILE? (Y/N)"L6A$:A$"Y"A$"N"2102]8 A$"N" 10915,8,15,"I0":2,8,2,"#":P$"UNLOCK">T18:S0:NL$(0):2230HSN2552:15:10RTTN:SSN:2230\J07:R(J)0::"T4000 "ISK OCK", "PTION 3 LOCKS A DISK SO NONE OF THE PRO-GRAMS CAN BE";m " SCRATCHED. OUR DISK DRIVEWILL RETURN AN ERROR MESSAGE"; " BECAUSE WEFOOL IT INTO THINKING THE DISK HAS BEENFORMATTED"; " ON OTHER THAN A 1541 219015,"U1";2;0;T;S:23801#2,TN$,SN$:TN(TN$NL$):SN(SN$NL$):P#2,J$:#2,J$:C0:F$(J)""g#2,A$:A(A$NL$)A160A0F$(J)F$(J)A$:CC1:C162260TEJ1:A0FL115,"B-P";2;FT(B) P$"LOCK"PS(B)PS(IZE IT AS ONE OF ITS OWN FOR-MATTED";A " DISKS. LL YOU DO IS PUT THE DISKTO BE 'UNLOCKED' IN THE DRIVE";c " AND MAKETHE #4 SELECTION." "LL SELECTIONS MUST BE CONFIRMED BYPRESSING '' FOR YES."; " OU CAN ALSO SEETHE ENTIRE DS:`  (14) " ********************"@ " * Š *"e " * *" " * INLEY OODWYN *" " * NSTRUCTIONS *" " ********************"  "I PRESS ANY KEY TO CONTINUE" 15,8,15 ! 5304: 5014!""*! 1,8,0,"$0": 5028=! 49386: 5028I! 1:15l!"PRESS ANY KEY TO CONTINUE"! K$: K$""5024! 5262!15,A$,B$: (A$)0 5032:NT""A$","B$:5184:5262!";!& "FILES, RENAME OR COPY THEM. OU JUSTCAN'T SCRATCH THEM."++ 4000B0 "1. ILE OCK": "ELECT OPTION #1 ON THE ENU. T LISTSPROGRAMS AND FILES ON";D " YOUR DISK. P TO 8AT A TIME CAN BE VIEWED ON THE SCREEN.";I "RESS T44,230,252,165,252,201,160,208,234,169# 1,141,255,207,145,251,32,204,255,96R# T0 48: D: 49328T,D:RRD:: R8035 5344# 169,0,133,253,169,48,133,254,160,0,162,1,32,201,255,177,253,32# 210,255,166,144,208,21,204,255$ 207,2 ON 2 LETS YOU 'UNLOCK'A FILE SO THATIT CAN BE SCRATCHED.";R " HE FILES AND PRO-GRAMS WILL BE LISTED TO THE SCREEN."; "RESSTHE NUMBER OF THE LOCKED FILE AND THE(<) WILL"; " DISAPPEAR AS IF BY MAGIC. HEFILE IS NOW 'UNLOCKED'."  32,228,255,201,32,208,5,32,228-% 255,240,251,162,1,32,198,255,32,207,255,141,0,206,32,207,255,168P% 174,0,206,152,32,205,189,169u% 32,32,210,255,32,207,255,240,6% 32,210,255,76,43,193,169,13,32% 210,255,76,245,192,32,204,255,96% 10)"ENTER DETAILS"; : F$(I)< D L(I)(F$(I)): L(I)8 540B NK X""d b10)"LABEL FOR F";I l10)"ENTER DETAILS"; v F$(I)  L(I)(F$(I)): L(I)7 600   Q1 8  F$(Q)F$(Q)(SPC$,8L(Q)) L(Q)8   53280,12#d F$(8): L(8)5nSP$" "IxSPC$" "R""s10)"FUNCTION KEY LABELLER"15)"1. EDIT F1"15)"2. EDIT F2"15)"3. EDIT F3"15)"4. EDIT F4"15)"5. EDIT F5"15)"6. EDIT F6"  5);""$4," "D$4," "l$4,"F8 F7 ""$4," ",$4,"";F$(8);" ";F$(7);""6$4," "@$ 000 @ A$"6" 6000+ J A$"7" 7000A T A$"8" 8000W ^ A$"P" 9000k h A$"Q" 130q rz "" 10)"LABEL FOR F1" 10)"ENTER DETAILS";  F$(1) $ L(1)(F$(1)): L(1)8 1000 . "" 10)"LAB 53280,12% F$(16): L(16)7SP$" "K(SPC$" "T2""u<10)"FUNCTION KEY LABELLER"F7)"A. EDIT F1 I. EDIT CTRL+F1"P7)"B. EDIT F2 J. EDIT CTRL+F3"Z7)"C. EDIT F3 K. EDIT CTRL+F5" d7)"D. EDITR DETAILS";  F$(4)3  L(4)(F$(4)): L(4)7 40009 B ""Z 10)"LABEL FOR F5"u 10)"ENTER DETAILS";  F$(5)  L(5)(F$(5)): L(5)8 5000  p"" z10)"LABEL FOR F6" 10)"ENTER DETAILS";  F$(6) TO QUIT" A$: A$"" 180. A$"A" I1C A$"A" 540V A$"I" I9k A$"I" 600~ A$"B" I2 A$"B" 540 A$"J" I10  A$"J" 600  A$"C" I3  A$"C" 540 " A$"K" I11  8000(# I1 7 232# F$(I)F$(I)(SPC$,8L(I))>7#L(I)8F<# IWF# I2 8 2wP# F$(I)F$(I)(SP$,7L(I))U#L(I)7Z# Id#4,4n#4,""x#4," " #4,"  600  A$"G" I7(  A$"G" 540<  A$"O" I15Q  A$"O" 600d  A$"H" I8y  A$"H" 540  A$"R" I16  A$"R" 600  A$"P" 660  A$"Q" 50  "" &10)"LABEL FOR F";I 0#%"ERROR IN STATEMENTS",191,192,165,252,197,254$ 208,240,32,204,255,96W$ T0 87: D: T49386,D:KKD:: K13101 5344|$ 162,1,32,198,255,32,207,255,32$ 207,255,32,207,255,165,144,208,66,32,207,255,240,61,32,204,255$ "&#4,"F4 F3 "Q#4,"";F$(4);" ";F$(3);""y#4," "#4," "#4,"F6 F5 "#4,"";F$(6);" ";F$(15)"7. EDIT F7"& 15)"8. EDIT F8"G 10)"PLEASE ENTER CHOICE"a 15)"P TO PRINT"z 15)"Q TO QUIT"  A$: A$"" 260  A$"1" 1000  A$"2" 2000 " A$"3" 3000 , A$"4" 4000 6 A$"5" 54," "7J$4," "_T$4," "^$4,""h$4r$ 53280,12% F$(16): L(16)7SP$" "K(SPC$" "T2""EL FOR F2" 10)"ENTER DETAILS";+  F$(2)O  L(2)(F$(2)): L(2)7 2000U ^ ""v 10)"LABEL FOR F3" 10)"ENTER DETAILS"; F$(3) L(3)(F$(3)): L(3)8 3000 "" 10)"LABEL FOR F4" 10)"ENTE F4 L. EDIT CTRL+F7"; n7)"E. EDIT F5 M. EDIT LOGO+F1"b x7)"F. EDIT F6 N. EDIT LOGO+F3" 7)"G. EDIT F7 O. EDIT LOGO+F5" 7)"H. EDIT F8 R. EDIT LOGO+F7" 10)"PLEASE ENTER CHOICE" 15)"P TO PRINT" 15)"Q  L(6)(F$(6)): L(6)7 6000 & X""> b10)"LABEL FOR F7"Y l10)"ENTER DETAILS";e  F$(7)  L(7)(F$(7)): L(7)8 7000  @"" J10)"LABEL FOR F8" T10)"ENTER DETAILS"; r F$(8) | L(8)(F$(8)): L(8)7 , A$"K" 600 6 A$"D" I45 @ A$"D" 540I J A$"L" I12^ T A$"L" 600q ^ A$"E" I5 h A$"E" 540 r A$"M" I13 | A$"M" 600  A$"F" I6  A$"F" 540  A$"N" I14  A$"N" "3#4," "[#4,"F2 F1 "#4," "#4,"";F$(2);" ";F$(1);""#4," "#4,"  h2,8,0,"$"/ j" YOU CAN PAUSE IT WITH 'SPACE'"P l" ANY KEY TO CONTINUE.":b n#2,A$:#2,A$ p#2,L$:#2,L$: ST64 2: 128 r A$: A$" " 120 t198,0 v A$: A$"" 118 x#2,LB$:#2,HB$:LN(LB$(0))256(HB$(0)) z SURE YOU WANT TO VALIDATE THE DISK? Y/N?".A$:A$"Y"A$"N"508=A$"N"10J15,8,15V15,"V"^15h 360X" 6. CHANGE A FILE NAME"Z" "\"ENTER OLD FILE NAME": S$^"IS OLD N "4 4,"";F$(9);" ";F$(1);""\*4," "44,"";F$(10);" ";F$(2);"">4," "H4," "R4,"";F$(11);"  " " INSERT DISK TO BE FORMATTED"J " THEN PRESS SPACE BAR."] A$:A$""210 " WARNING":"DISK TO BE FORMATTED" "WILL BE ERASED. OK? Y/N?" A$:A$""216 A$"N"(147):" REMOVE DISK.": 260 A ";F$(6);""(4," "P4," "|4,"";F$(15);" ";F$(7);""4," "4,"";F$(16);" ";F$(8);""4," EEN USED BEFORE? Y/N?":A$:A$""238-A$"N"250>A$"Y"238G272Y15,"NEW0:"N$b254k27215,"NEW0:"N$","ID$15"":C$(13)"DISK" (34)N$","ID$C$C$ "IS READY TO USE."" END OF FORMAT ( " "N" ݦ"t" ݦ PEEK UTILITY "" ݦ BY "" ݦFINLEY W. GOODWYN"" ݦ COPYRIGHT 1988 " " ݦ," 3. CHANGE DISK NAME"6." "W1" NEW DISK NAME";DN$z6(DN$)16DN$DN$(160):310;(DN$)16DN$(DN$,16)@15,8,15,"I"E8,8,8,"#"J15, "U1:"8;0;18;0O15, "B-P:"8;144T8,  9 INSTRUCTIONS"; 7" ENTER A NUMBER"N <A:A1A960z AA 100,200,300,400,500,600,700,800,900 K" ARE YOU SURE YOU WANT TO QUIT? (Y/N)?" d" 1. VIEW DIRECTORY" f" " 8,8,8,"#"15, "U1:"8;0;18;0$15, "B-P:"8;16218, ID$;H15, "U2:"8;0;18;0O8W15a 360" 5. VALIDATE A DISK"" ""VALIDATION MAY TAKE SEVERAL MINUTES.""ARE YOU  Q Q9 16% F$(Q)F$(Q)(SP$,7L(Q))0L(Q)78 QA4,4i4,""4,"CTRL "4," " 4,"LOGO SHIFT " 4,"  LN; |#2,A$:A$"" (13);: 1120 ~ A$;: 124X " PRESS 'RETURN' TO GO TO MENU"s A$: A$(13) 130 (142): 10 " 2. FORMAT A DISK" " " " REMOVE UTILITY DISK" ";F$(3);"",\4," "Xf4,"";F$(12);" ";F$(4);""p4," "z4,"";F$(13);" ";F$(5);""4," "4,"";F$(14);" $"Y"2164"ENTER DISK NAME USING 1 TO 16 CHARACTERS":N$j" ENTER DISK ID USING 2 CHARACTERS": ID$:" ARE NAME AND ID CORRECT? Y/N?"A$:A$""228A$"Y""": 236A$"N"200:222 228 "HAS DISK B " 4," "H4," "p4,""w4} UTILITY."8" WOULD YOU LIKE TO FORMAT ANOTHER DISK? Y/N?"KA$:A$""264[ A$"Y"200 A$"N" " PRESS RETURN TO CONTINUE"A$:A$(13)2701015,8,15"":I110:::11)"FORMATTING DISK""2 " "e " 1 VIEW DIRECTORY 5 VALIDATE A DISK" (" 2 FORMAT A DISK 6 CHANGE FILE NAME" -" 3 CHANGE DISK NAME 7 SCRATCH A FILE" 2" 4 CHANGE DISK ID 8 QUIT" 4"  DN$;Y15, "U2:"8;0;18;0^8c15@h" PRESS RETURN TO CONTINUE"WmA$:A$(13)365_r10" 4. CHANGE DISK ID"" "" NEW DISK ID";ID$(ID$)240515,8,15,"I" IN A MANUAL. OTHERS";7" CON-TAINED AS MANY AS 10 LINES. A FEW OF THEROUTINES WERE";z" INCLUDED ON DISKS RECEIVEDTHROUGH MY COMMODORE USER GROUP.""WITH SOME EFFORT, I HAVE COMBINED THEROUTINES AND STATEMENTS";" INTO A USER-F "+ )RW,7::"  READING ENTRY #"N" "S *828:X125432:Y((N$,X,1))127_ +Y045 ,NN1:N$(N)(N$,X3,16)(160)(160) -RW,7::CN,25:N . /ST041 0"  TOTAL ENTRIES =" 1125:4:K$""8 BN$"ZZ":53281,0:53280,0:RW214:CN211:KB198:NC3:808,225OED117W13aKB,0RW,LN::W$:I1250::RW,LN::V$:I1250:K$:K$""5KB,0:V$"  ARE YOU SURE? (Y/N) " W$"  ARE YOU SURE? "PREPARES A NEW DISK TO STORE DATA. ITALSO PREPARES A";\" PREVIOUSLY USED DISK SONEW DATA CAN BE STORED ON IT.""FORMATTING ERASES EVERYTHING ON THE DISKSO IT CAN RECEIVE DATA."1000"3. CHANGE A DISK NAME""" "2"ENTER FILE NAME OF FILE TO SCRATCH": F$T"IS FILE NAME CORRECT? Y/N?"gA$:A$""708wA$"N"70015,8,1515,"S0:"F$15 360 " ARE YOU SURE YOU WANT TO QUIT? (Y/N)?"*& " "R " BY D.A. CARDOSI "{ " " " " INSERT WORK DISK IN DRIVE " " ""REORGANIZES THE FILES ON A DISK. IT COL-LECTS UNUSABLE";U" OR ABANDOMED SPACE ANDMAKES IT AVAILABLE FOR USE."` 1000|"6. CHANGE FILE NAME""""RENAMES A FILE. IT CHANGES THE NAME FROMTHE CURRENT ONUTOBOOT"(34)",8 R"RUN":"")T631,13:632,13:198,2:K" 9. INSTRUCTIONS"l" ""PEEK UTILITY HAS BEEN PUT TOGETHER FROMVARIOUS SUBROUTINES.";" SOME WERE ONLY ONELINE STATEMENTSED11272 !RW,7::"  READING DISK NAME "O "15,8,15,"I0":1,8,3,"$"q #828:15,EN$,EM$:EN$"00"39} $RW,7: %"  DISK READ ERROR # "EN$" " &:84 'HE$(N$,143,16)","(N$,161,2) (RW,3::"  "HE$" (13)1010S THE FILES ON A DISK. IT COL-LECTS UNUSABLE";U" OR ABANDOMED SPACE ANDMAKES IT AVAILABLE FOR USE."` 1000|"6. CHANGE FILE NAME""""RENAMES A FILE. IT CHANGES THE NAME FROMTHE CURRENT ONRIENDLY PROGRAM THAT MAY BE OF USE TOPEEK READERS."10005"1. VIEW DIRECTORY"N"""DISPLAYS THE DIRECTORY ON THE SCREENWITHOUT";" DISTURBING A PROGRAM IN MEMORY.""2. FORMAT A DISK""AME OK? Y/N?"` A$:A$""608bA$"N"600:d"ENTER NEW FILE NAME": N$[e"IS NEW FILE NAME OK? Y/N?"nfA$:A$""614~hA$"N"600j15l15,8,15n15,"R0:"N$"="S$p15r 360" 7. SCRATCH A FILE" (Y/N) " 4:K$"Y"80) K$""10/ J ED0:X16:N$N$N$:b N$(N$,2):N$N$N$q X828861 Y:X,Y: N$(144):D1:N0:F0:B1:R1:C0 " " TINY LABEL - SEIKOSHA1000 ""/"CHANGES THE DISK NAME FROM THE CURRENTONE TO ONE YOU CHOOSE."I"4. CHANGE DISK ID"b"""CHANGES THE DISK ID FROM THE CURRENT IDTO ONE YOU CHOOSE.""5. VALIDATE A DISK""A$:A$""810/A$"Y"A$"N"8104A$"N"10F>" O.K. I'LL SEE YOU LATER."oC" HAVE A NICE DAY!"{H646,14J" PRESS RETURN TO GO TO MENU"LA$:A$(13)844N""P" LOAD"(34)"0:A"' " "U " PRESS RETURN TO CONTINUE " " " V$" INSERT WORK DISK IN DRIVE ":LN7 W$" INSERT WORK DISK IN DRIVE " 4:K$""8  E TO";" A NAME YOU CHOOSE.""7. SCRATCH A FILE"(""L"ERASES A FILE FROM THE DISK."\"8. QUIT"k"""RETURNS YOU TO BASIC."100010" PRESS RETURN TO CONTINUE"A$:A$ Q" "AR" PROGRAM TERMINATED "jS" "xT1:2:15U65418VW 160,2,177,45,153,137,0,200,192,6,208,246,162X 1,32,198,255,32,228,255,164,142,145,140! ddddddddddddddd dddddd Y] ]T dddddddddd : Y] ]T Y] ]T  : cccccc Y] ]T dddddd #2,A$,A$,A$,B$ ST 159L$""#2, A$3 (A$(34) A$"B") 136M#2, A$:A$(34)144g ((A$)127)32 138 (A$)192 A$((A$)128): COMMODORE UPPERCASEL$L$A$L$"LOCKS FREE"158138#2, A$ ENTER FROM 1 TO 9 "`XX$:XX$""96RaRW,7::" PAUSE BETWEEN LABELS???? "bRW,11::" ENTER Y / N "cPS$:PS$""99dX(XX$)eRW,7::" *** PREPARE PRINTER *** ":125f W,11::" EDIT LABEL Y/N? "4:ED$:ED$""58K;ED$"Y":ED1:1d<ED$"N"LS$"A"75}=ED$"N"LS$"B"62>RW,7::" TOO MANY FILES FOR 3 COL "?RW,11::" ATTEMPTING 4 COLUMN MODE "@((N  "  X$"N" L$"":133/ X$"R"RW,16:"REPLACEMENT";L$=N$(CT)L$O N$""N$L$aCTCT1:L$""j133CTCT1: 2:NCTI1NX(N$(I)):X18N$(I)N$(I)(160):160:5015,8,15:15,EN,EM 4,(27);"3";(SP);"" o10,4,10:10,"";:10:13:4,"";:42p PS$"N"114EqA$:A$""113Kr~sV$" SAME LABEL AGAIN? ":LN7tW$" SAME LABEL AGAIN? "uRW,11::" ?? Y/N ?? " 0: GI03:TLTLP(I):HTL6575'IN6875/J94cKRW,7::" PRINT EXCEEDS LABEL SIZE "LRW,11::" PRINT LABEL ANYWAY? Y/N "MK$:K$""77NK$"Y"LS$"A"91OK$"Y"98P"":RW,7:808,237:  2061 `s%Ņ   Li TURN TO CONTINUE ":-RW,1::"  Y ACCEPT ENTRY "aRW,2::"  N DELETE ENTRY "RW,3::"  R REPLACE ENTRY "CT0:D1:N0:F0:B1:R1:C02,8,0,"$0:*":162#2,A$,A$ ,200Y 132,142,196,139,208,242,76,204,255=Z ******** PRINT ROUTINE ********c[LS$"B"I1N:N$(I)N$(I)" ":\((N3))3NNN1:92]O(0)0:O(1)N3:O(2)2(N3)^RW,7::" NUMBER OF LABELS DESIRED " _RW,11::" (2RW,7::" CHOOSE SIZE OF LABEL "a3RW,11::" A = 1 X 3.5 B = 1.5 X 4 "u4LS$:LS$""525LS$"A"ML220:N30566LS$"B"ML328:N51567908RW,7::" TOO MANY FILES FOR 3 COL " 9R :A$""144CT0HE$L$:155# *** PUT FILENAMES IN ARRAY ***XRW,14::" "iRW,14::L$198,0:"Y";X$ ((X$"Y")(X$"N")(X$"R"))149RW,16:" 4:K$""8gK1Xh13,4,13:13,"";#i4,4:4,"";_j4,(27);"3";(15);HE$;(141);HE$;(141);HE$;(27);"S1"ikLL15lI1(NNC):J0(NC1):4,N$(O(J)I);::4,""mLLLL15::SP((MLLL)2):4,(27);"3";(SP);""nSP(MLLL)SP: 4))4NNN1:64BAO(1)N4:O(2)2(N4):O(3)3(N4):O(4)N:O(0)0:MX0:NC4^BI03:JO(I)1O(I1)wCFL(N$(J)):FL069DB$(N$(J),FL,1):(B$)160FLFL1:68EFLMXMXFLF:KO(I)1O(I1):N$(K)(N$(K),MX2)::P(I)MX2:MX9$,ET,ES:EN0 "DISK ERROR: ";EN;EM$;ET;ES:ES IN ARRAY ***XRW,14::" "iRW,14::L$198,0:"Y";X$ ((X$"Y")(X$"N")(X$"R"))149RW,16:" v4:K$""8wK$"Y"945xV$" PRINT ANOTHER LABEL? ":LN7cyW$" PRINT ANOTHER LABEL? "uz4:K$""8{K$"Y"::1|80}V$" PRESS RETURN TO CONTINUE ":LN11~W$" PRESS RE! aaaa1aaaaa1!;;kkkkk;k111aaaaaa11a1a11aaaaa1kkk k;kkkka1 1ak !aa1aaa1aaaaaaakkkkkk ;1aaaaa1aa1q1q1aaa1Q1Aaa1;kkkkk ;11!aaaa111aaaaaa11aaaaaaaa11a1aaa1a1aaaaa1aaaa1aaaaa1aaa111Qaaaa" im"iiiii`i.!iəi!iح!i)JJJJi0B!i)i0Ci`!i)JJJJiiii0`i iIiH) h%iLjhH) h%iLjhH) h%iLjh)%i m%i`iLUqx rЩЍЍЩ2rЭ)Щ ܩ Ѝ!Щ!  ## ## # # # # ## ## ## ## # ### ### # # # ### # # ### ### # ### ! aaa ;aa1aa1aaaaaaaa1aa ;kkkkaaa11a!aa111aaaaaaa1a!aAaaaaaA1aaaaa11aaa1a1a!aqaaa1aaa1aa1aaaa1a11aaaaa111aaaaaaaa11aaa1a1aaQ1aaaa1a1a!aaaaa1a1aaaaa1aaaaqa1!T Y] ]T dddddddddd Y] ]T Y] ]T Y] ]T Y] ]T Y] ]T !zk1i(`      " ` RƍԍRƍ΍ʊiRƍRƍΩ ԩ! ` ` RIRƍԩ ԩ!` ` RIRƍԩ ԩ!`ŭͩ` ->Qf{8Z}#S0pGG wah 0 N `" zwhvvvvvvϩvvv bwv bw v bw v bwv bw v bw v bwv bw v bw v bwv bwЩЍ`vvH zwhv` xJvv4f `Lmxv3 9x̠vvvv3``v"  !&#"'h ,Щ Lm Lmh ;sLv Es s`Lux3Ѕ @uuJnununv(uiuuЫ7X`xsЩЩЍ"`΢-΍Խ΍`ԩΩ`έ`m`A έ  ԍ`Aέ ` ԍ ԍ ǩ ǩ 3ŹpȢ$ ŭ)Jpɢ$ Źpɢ+ Ʃ >`    "4vhvv`x ` (C)1988 SHANE BROADBERRY  THIS PROGRAM IS PUBLIC DOMAIN  AND MAY BE FREELY COPIED.  LEVEL:`v    -)-) iLͽiii ͽ "ЍЩ ܩv? t u vX`ЍЭvvVЭ L'v }t Ѝ! tЭЍLv Lqtv Э)wLv(2ЭЍL` t t ttMЍ9tйt- t h" ԍ ԩ  ȩ ǩ <)IʍŬŹQʢ ŭ)1˨JJJ9˪ ũ >`cc" `-)vv` 9}Ɓ 9}ƁI 9}ȁɁ t}uũōX` L1,3:W^e| !" !*-߿ @Cŭͨ` "Hhi0ЍЩ`~ '`LvV\ 9^;bi@gDm__ii i__i!_i__x Ѝ! xvvvvvvH "ЍЩ ?@ȩ@Cmrmrmr?rrrrrrrX`ЍЭrȌirr'rr i Э)iЊ)r'ЭrmrrЭ)Lr rrrrrrr(rrr(mrrЭ) p "q JpL, $  "1!#%'>*,k/<295c8;K?C GEKO}TY^ydsjp|w~~ԏ.ԍ ԍ +έ)ŭ0 zǩŭ0 Ŏ ) mō[`L"LLULLL)LL*L* ǩ΍΍΍΍΍ԍԍԍԍԍԮ ΍ύ`ԩ ԩ"v3 9x83iԅ4٩v3`vv3 9xi(i3i(34i4׮vvv3``HHHvv ryv yvvhhh`vv3 9x8(3iԅ4ٮvvv3`vv i+3ȱii"Щ ܩv? t u vX`ЍЭvh ,Щ Lm Lmh ;sLv Es s`Lux3Ѕ @uuJnununv(uiuuЫ7X`xsЩЩ"      " `i ii ͽ `-)vv`ii ͽ `-)(v)v`IN  AND MAY BE FREELY COPIED.  LEVEL:`v    -)-) iLͽiii ͽ `i ii ͽ# T|Qp5PpU W_<?f<00`0~~p  p>00000000 88p88p<~~~~<6>````````#     ǩ 0)ˢ) Ź ͢ Źˢ)  ȩ@ >`            ȩ ǩ *)f͢$ Ź ͢ Źˢ) Ʃ@ >`"$ ""      ԍ ȩ ǩ 'Ź͢$ Ź͢$ # 53280,0:53281,0:646,5L" WISTER - Y HANE ROADBERRY":"NSTRUCTIONS:-------------"(:"UILD A SOLID WALL OUT OF THE FALLING"2:"'BRICKS' AND THAT PART OF THE WALL WILL" <:"DISAPPEAR. F THE WALL#ÙÙÙÙÙÙÙ#) Ω Ԋ)Ԋ)ԩōԭ m΍΍` k/  e @H Ƹh`e L ?JJiOLL?`; _ WU6UWpWpU쮺޷޷#$" "1063 n"":"IN PORT #2, OR THE AND KEYS."a x:"HE BRICK CAN BE ROTATED BY PRESSING" :" OR THE BAR. HERE IS NO WAY" :"(OTHER THAN MODIFYING MY CODE!) OF :"PREVENTING THE BRICK FROM FALLING." : "NY#ÙÙÙÙϟÙǏ???????Áɀ#f<fffff<ccckwcff<`<|bf 0fF`      """$ $                b????????Ǐ???????Áɀ#~<<~<~ff~<ff<>>0000>v66?333333# ΢$ Ʃ! >`     `)  ԩōԩϩ ԭ+)΍ԭōϩōԩ@ϭ)0 ԭ m΍ύԭ mύύԭ8) Ί)Ԋ# REACHES THE TOP"< F:"OF THE SCREEN, THE GAME IS OVER. HEl P:"OBJECT OF THE GAME IS TO CLEAR AS MANY" Z:"LINES AS POSSIBLE. OU CAN MOVE THE" d:"BRICK LEFT AND RIGHT USING A JOYSTICK" i8)" ϠŒ" jG$:G# ÙϟσϝÁπϙÙǘÙϟÙÙϟÙ