J$11,18$ $ GARBAGE COLLECTION5"$ IM77 M90: A: I,A:j'$ 164,52,165,51,105,6,144,1,200,133,51,132,52,96p)$*$ GATE-OFF ML ROUTINE AT MM+$,$ IMM MM16 8-$ I,173:Y%3:X%34(IMM)8: I1,X%: I2,Y%: USES 8 $ 4,11,18$ $ GARBAGE COLLECTION5"$ IM77 M90: A: I,A:j'$ 164,52,165,51,105,6,144,1,200,133,51,132,52,96p)$*$ GATE-OFF ML ROUTINE AT MM+$,$ IMM MM16 8-$ I,173:Y%3:X%34(IMM)8: I1,X%: I2,Y%: USES 8:Y%N256:X%NY%2567$ M3,133: M4,251: M5,173: M6,X%: M7,Y%c$ M8,133: M9,252: M10,160: M11,0{$ M12,162: M13,0 $ $ GET EACH PITCH FROM F$ AND PUT IT IN FREQUENCY REGISTER$ IM14 M54 8: I,177: I1,251 LL ON=7r#X%0s# FILTER RESONANCE<t# PEAK VOLUME (0=LOW, 15=HIGH)Fu#Y%14cv#Y%Y%16: 54295,X% Y%|w# SELECT FILTER TYPEx# LOW-PASS=1;BAND-PASS=2;HIGH-PASS=4;LO-BAND=3;HI-BAND=6;ALL=7y#X%1z#X%X%16{#|# SELECT OVERALL3,162,255,160,127,76,216% 255,0,0,68,68,256  192,160,141,169,96,32,62,192q 169,92,160,139,174,138,192,76 ( 98,192,174,138,192,160,139,169 0 92,32,62,192,169,96,174,137 8 192,160,141,76,98,192,142,81 @ 192,140,83,192,141,94,20-822.$ I3,41: I4,2546/$ I5,141: A: I6,A: I7,212:: MM24,96D0$ 4,11,18J3$m4$ SET WAVEFORMS WITH GATES OFF5$ STORED AT 820-822--LINE 9261 REQUIRES THIS (820=HEX 03 34)6$ 820,G%(0): 821,G%(1): 822,G%(2): MM@$PH0$ I2,157: I3,0: I4,212/$ I5,200: I6,162: A: I7,A:C$ 1,7,8,14,15,4I$d$ GATE EACH SOUND OPEN$N0: IM59 M71 6$ I,173:AMM3N:Y%A256:X%A256Y%: I1,X%: I2,Y%$ I3,141: A: I4,A: I5,212:NN1: VOLUME }# 15=HIGH, 0=LOW~#Y%15*# 54296,X% Y%0#T# MACHINE LANGUAGE ROUTINE AT MZ#$ FIND ADDRESS OF F$ AND PUT IT IN ZERO PAGE AT 139, 140$$N(45)256(46)3:Y%N256:X%NY%256$ M,173: M1,X%: M2,Y%:NN1 LTS(147)13)"COST OF BUYING"613);: K114:(183);:::J F$"N" 2500pDP(DP):X$(DP): 3000:TTTTDP"DOWNPAYMENT..................$";SP)X$LI(LI):X$(LI): 3000:TTTTLI"INTEREST LOST ON DOWNPAYMENT..  COST OF BUYING CALCULATIONS4YRM12:MRR12:T(YR) :TT0:TD0OXL(PP(1.055)YR)PPjLI(DP(1.055)YR)DP| LA0 1070F(MR(1MR)M)((1MR)M1)MPFLAIX(MPM)LA$ISIXTX.SS(SXPP)TX3 T5 "SORR:X$(PP): 3000:TTTTPP "PURCHASE PRICE...............$";SP)X$D XL(XL):X$(XL): 3000:TTTTXLq "INTEREST LOST ON PUR. PRICE...";SP)X$| 1580 SP9(X$):OF LEASING";5)"$";SP)X$A(1).279:A(2).146:A(3).111:A(4) 5):K130:(183);:::6NMP(MP100.5)100:X$(MP): 3000dX"YOUR MONTHLY LOAN PAYMENTS WOULD BE:":vb10)"$";X$:l"YOUR MONTHLY LEASE PAYMENT WOULD BE:":v10)"$";ML::X$(TT): 3000"THE NET COST OF BUYING IS $" 19)"$";SP)X$:"LESS:":X$(SD): 3000:LTLTSDE"RETURN OF SECURITY DEPOSIT...$";SP)X$d29):K110:(183);::LT(LT):X$(LT): 30005)"NET COST OF LEASING";5)"$";SP)X$A(1).279:A(2).146:A(3).111:A(4) :% 3)"PLEASE ENTER DATA AS REQUESTED"::M " ENTER SECURITY DEPOSIT REQUIRED"` " $";SD: " ENTER MONTHLY LEASE PAYMENT" " $";ML: " FOR HOW MANY MONTHS?" " MONTHS";NP:: F$"N" MNP" DOWNPAYMENT OR A TL(TL):X$(TL): 3000:LTLTTL.N"TOTAL OF LEASE PAYMENTS.......";SP)X$TXIL(IL):X$(IL): 3000:LTLTILb"INTEREST LOST ON SECURITY DEP.";SP)X$c AP0 1906gAP(AP):X$(AP): 3000:LTLTAPj"ADDITIONAL REQUIRED PAYMENT..." LIMIT, PLEASE RE-ENTER":: 1708 " SALES TAX RATE % ";SX:O SX1 SXSX100r " ANNUAL LICENSE FEE $ ";LC: " WHAT TYPE OF CAR ARE YOU BUYING?": " 1. STANDARD" " 2. COMPACT" " 3. SUBCOMPACT?": "PLEASE ENTER N OF THE CAR..............$";SP)X$ Y$"N" 1720?IS(IS):X$(IS): 3000:TTTTISl"TAX SAVINGS ON INTEREST.......";SP)X$SS(SS):X$(SS): 3000:TTTTSS"TAX SAVINGS ON SALES TAX......";SP)X$29):K110:(183);:: ";SP)X$$TP(MMP)AB:TP(TP):X$(TP): 3000 :TTTTTPQ""TOTAL PAYMENTS ON LOAN........";SP)X$m'"(AUTO PORTION ONLY),SASXPP:SA(SA):X$(SA): 3000: TTTTSA6"SALES TAX ON PURCHASE.........";SP)X$9LC(LC):X$(LC): 300 Y, 60 MONTH LIMIT":8 N1 2000&B N2 21009L N3 2200FVLCLCYRL`j COMPUTE COST OF LEASINGwTLMLNP(T1(NP12)2IL(SD(1.055)T1)SD<IA(AP(1.055)T1)APFLFLFT1P DISPLAY BUYING RESU ;SP)X$: X$(LT): 30008"THE NET COST OF LEASING IS $";SP)X$Z28);: K19:(183);:::wDFLTTT:X$(DF): 3000 DF0 " BUYING IS CHEAPER BY $";SP)X$ DF0 " LEASING IS CHEAPER BY $";SP)(X$)1  .099:A(5).084 K1T:TDTDA(K):::4B(1).167:B(2).126:B(3).106:B(4).099:B(5).095U> K1T:TDTDB(K)::C(1).123:C(2).115: C(3).114:C(4).107:C(5).106 K1T:TDTDC(K):: DISPLAY CASH PURCHASE RESULTS PP(PP) DDITIONAL PAYMENT"" $";AP:;" ANNUAL LICENSE FEE $";LF:F 1000Q 1300` 1500::"PRESS 'C' TO CONTINUE";C$ 1800::"PRESS 'C' TO CONTINUE";C$&(147): 53280,205)"COMPARISON: LEASING VS. BUYING": ;SP)X$ lIA(IA):X$(IA): 3000:LTLTIA8o"LOST INTEREST ON ADD'L PAYMENT";SP)X$^rLF(LF):X$(LF): 3000:LTLTLFs"LICENSE FEE FOR ";T1;"YEARS......";SP)X$u29):K110:(183);::vLT(LT):X$(LT): 3000 5)"TOTAL"; UMBER";N:- " DO YOU ITEMIZE YOUR DEDUCTIONS FOR"T " INCOME TAX PURPOSES? Y/N";Y$:g " Y$"N" 320 ," ENTER YOUR TAX BRACKET RATE" 6"%";TX: @ TX1 TXTX100 r(147) |12)"COST OF LEASING" 12):K115:(183);:: X$(TT): 30005)"NET COST OF BUYING";6)"$";SP)X$#A DISPLAY LEASING RESULTSM(147)h12)"COST OF LEASING"&12):K115:(183);:::0SD(SD):X$(SD): 3000:LTLTSD:"SECURITY DEPOSIT.............$"SP)X$D 0:TTTTLC#;"LICENSE FEES FOR ";(YR);"YEARS.....";SP)X$C@29);: K110: (183);:WJX$(TT): 3000yT:5)"TOTAL";19)"$";SP);X$^:"LESS:":hZPP(1TD):Z(Z):X$(Z): 3000:TTTTZr"ESTIMATED RESIDUAL VALUE"|" 1GHT () 1985 0Ly0Ly-HsPidx2 "ǐ Ǎ"ǭ!Ǎ# ɌLL"_ԩԩԩ?ԩ`0 "  @* @" 0 ** T **** *0* /穀$ ĭЮ$L x` oĭ!#ǐ "ǐ Ǎ"ǭ!Ǎ# ɌLL"_ԩԩԩ?ԩ`0 "  @* @" 0 ** T **** *0*  (147),(144):53281,14@9)"AUTO: LEASING VS BUYING"b9): J123: (183);:::13)"COST OF BUYING"::#3)"PLEASE ENTER DATA AS REQUESTED"::(" ENTER THE PURCHASE PRICE $ ";PP: 2" WILL YOU NEED FINANCING? Y/N";F$ ?   *Ui@~@@@n@$,$80 WIZARD OF IM  SCORE LIVES LEVEL HIGH 0 3  1 BY OB PIRKOOPYRI :: F$"N" 1906 <" DOWNPAYMENT INCLUDING TRADE-IN"\ F " ALLOWANCE $ ";DP: :LAPPDP P" YOU WILL NEED TO BORROW $";LA: Z" WILL YOU NEED TO BORROW MORE TO" _" COVER SALES TAX, LICENSE, ETC.?" d" Y/N";H$: i H$"N" LA PPDP: 1404 n" ENTER ADDITIONAL AMOUNT BORROWED"O x "$ ";AB: LALAAB :x " ANNUAL PERCENTAGE INTEREST RATE?" " % ";R : R1 RR100 " LENGTH OF LOAN IN MONTHS." " MONTHS";M: M60 "SORRY,60 MONTH R I TO CHANGE # OF DIGITS)";"YN$:"";5);A$(F):FFGAYN$"Y"FQ150:1220:370gYN$"I""":1260:OLND:230YN$"N"GG:T1400::1000"":$ *** IN-GAME PROMPTS:.R1080,1100,1120,1130,1150 8FQ20 OU NEED ALOT MORE PRACTICE! TRY AGAIN!":940R9\ *** GIVEUP RdINE: ***PfGUGU1:GF1GU0|pCL,2:"";12);"THE ANSWER WAS:"zSP);:I1ND:R(I);6ND);::" TRY AGAIN! YOU MIGHT GET IT NEXT TIME!"F2:G0 Z14R3:1070Z15R5:1070:940Z< *** WIN ROUTINE: ***nF2:G1:CL,2:"";5);A$(1);7);Z;" TRIES"1310:"";12);"THE ANSWER WAS:"SP);:I1ND:R(I);6ND);::T(Z)T(Z)1:T$(T(Z)):W$(Z)(T$,2,1):  'é"Ǎ# DԈ& Ʃ؅Ƒi(iƭ ӌ؄Ld LPx o۩o f L}Щ Ǎ!ǍƍЍ&ǭЩ%ǩ$ǍǍǩǩ0+ǩ-Ǎ,ǩ.ǩ ( ɌEɈo)d)O*T 57490W);N$;:N(I)(N$):WWP:I@I1ND:RC(I)R(I):FQN(I)25:1220a&53280,N(I)1:J1450:J:Ig0: *** CORPOS COMPARATOR: ***DCP0:I1ND:N(I)RC(I)CPCP1:N(I)98:RC(I)99NI:CPND1TWTW1Xb *** CO,325,28,49,110,33,135,1000 *** SWEEP: I122:WWI,0::ITWW24,12:WW5,80:WW6,243:WW3,4::WW4,129I01404:WW1,I:I:WW4,128:I150:I WW4,128: *** TUNE:IWWWW24:I,0:(VL,6:AD,31:WW3,200:WW2 0:TT0:GU0:I115:W$(I)" ":W2$(I)" ":Ar"";10);"";ND;" NUMBERS"^|"";28);"NO. WRONG"" TRY";27);"& POS POS"QB,22::" ('R' TO RE-DO LINE / 'E' TO END GAME)"TTTT1:TW0:SP10:P9ND:SP10:ND3SP12I T1100::WF,0: *** SWEEP: I122:WWI,0::ITWW24,12:WW5,80:WW6,243:WW3,4::WW4,129I01404:WW1,I:I:WW4,128:I150:I WW4,128: *** TUNE:IWWWW24:I,0:(VL,6:AD,31:WW3,200:WW2  ॎ)ƥ)m `"+Ǎ*ǥ8(& L,-Ǎ, QH&  !8 &Ǎ ǭ!!L{ˆآL82JJJ0 m0Ǣ0 .0 .0DžY0iZJ281ǭ2Jn1ǭ1JJeYYZiZ``ȹfř?Щ͍Щ 0:1220:6);"YOU'VE GOT 'EM ALL NOW!"BYG1:1140KL1370:8);"GOING FOR BROKE, EH?":TW99:1140`FQ0:1220:6);"THIS IS YOUR LAST CHANCE!":1140j1370:8);"YOU HAVEN'T GOT IT YET?!"t"";:T1350:XT33::~1370::"  *** STATS: ***.:"TRIES: 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5"V" WON: ";:I115:W$(I);" ";:y:8);:I115:W2$(I);" ";::" TOTAL GAMES: ";TT;3);"GIVEUPS:";GU" DO YOU WANT TO TRY AGAIN?"" (Y/N O T(Z)10790  W2$(Z)(T$,1)ZND820T "UNBELIEVEABLE! 'GIVEUPS' REDUCED TO '0'!":GU0:GF1]*9404ZND2"NEXT TIME, I'LL HAVE TO GIVE U A HARDER ONE!":940>ZND6" NOT BAD, BUT U NEED MORE PRACTICE!":940H"Y I)6'ʭ(Ǎ'ǭ)g7L!Щ ЍЍ D tLL)LLLLĩ EL L)LЭL)L)LЭ)Э mЍL)Э(ЩЭ)L L R COMPARATOR: ***>lCO0:I1ND:J1ND:N(I)RC(J)COCO1:N(I)98:RC(J)99HvJ:IWCPND740y *** IN-GAME PROMPTS: ***CPND 28);CP;" ";CO:BBBBND3Z10R4:1070TW4R2:1070CPCONDYG0R1:1070 ԩȍԩԩԩՍ` mǍ ǭ!i! o &`!@%ǹǍmǍ&% ++ǰ+.--ǩ.` !Ǯ ͽ` $i0 ` % ͽ` #Ǯ" ͽ` ŭǩ Lũ2/ǩ ­Ǎ 1ND:R(I)((0)10)::BC7:BB1QB,6::%E *** START OF d! d:: ***bTW0:YG0:Z115:A$(3)~ "";Z;:CH,BCBB:W6I1NDN$:N$""490N$"E"1370:870N$"R"1260::"";3);A$(3):470(N$)48(N$) ,200:WW6,892I16<WW1,H(I):WW,L(I):WF,659FT1D(I)::WF,64:T110::I:JP *** RAZZ:fZVL,15:AD,45:AD1,165dWF,33:WF3,6:WF4,5nT1600::WF,32:WF3,0:WF4,0:x 22,96,120,25,30,120,28,49,120 33,135 Щ'Щ%ЩЍ&ЩdЩЩ(` DЩ Ѝ!Т   LAâ   LWâ   Lmâ ˆ D` ` ¢Y  YLàY < Y Y é/ /ԩЭ)Щ `< GOOD GUESS, BUT THE ANSWER WAS: "A$(3);"";SP);:I1ND:R(I);6ND);::qQA,0:" HIT ANY KEY TO CONTINUE ":QA,1"":1260:F2:G0:QA,0: *** PITCHES:VL,14:WF,0:P1,FQ20:AD,25:WF,17 80* 197,45,0,197,240,3,76,243,198,232,232,14,80,197,208,238: 76,49,234j 169,0,29,0,197,208,3,76,97,199,169,128,61$ 0,197,240,48,254,0,198,208,40,222,255,207,76,144,199,80. 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76# , R(5),RC(5),N(5),T(15),W$(15),W2$(15)cSC1024:QA198:QB214:WW54272:GU0:GF0:TT0:OL0A$(1)"YOU WIN !!!":A$(2)" "(A$(3)" " 2WF54276:P154273:VL54296:AD54277:FQ1:CL53280:CH6 ===== **** READ ROUTINE ****1 ========================N"": 53280,6: 53281,6z (L$,10)10)"LOADING NUMBER FILE..." (L$,12)11)"ONE MOMENT PLEASE" 2,8,2,"@0:"NF$",S,R" S1 NN2,TN(S) S  2: )"DESIGNED BY..." 19)"BOB LLORET"&: 11)"PRESS F1 TO START";> A$: A$"" 1700n A$"" ASP SP7: SP21,0:: 2000 A$"" 1700""(L$,10)" ENTER YOUR FILE NAME";: NF$ NF$"" 2010(L$   SW0 BB1:480BB1 ES&(L$,22)5)"PRESS F1 TO ENTER MORE NUMBERS"0 5)"PRESS F3 TO VIEW ALL NUMBERS": 5)"PRESS F5 FOR MAIN MENU";D A$: A$"" 580N A$"" 220X A$"" 310b A$""   "  12)"    "0" 12)"    "Y, 16)" ߒ     "6 16)"      "@ 21)"   "J 21)"  "T: " j ======================;n 1,129,128,63,255,252,127,255,254,255,255,255,255,255,255}x 241,129,128,241,129,128,241,129,128,255,255,252,255,255,254 127,255,255,63,255,255,1,129,143,1,129,143,1,129,143,255,255,255,255 255,255,127,255 J)" T160::J:LFLF1:RTRT1:II T1200::MM$"BRAINFRAME":QLF2w I110:M$(MM$,I,1):M(M$):Q,M12864 FQFQ10:1220:QQ2:T1300::I T1400:FQFQ10:1220:"" "";9);"AN EXCERCISE IN LOGIC" "";13);"FOR 192,141,20,3,169,198,141,21,3,88,967SP53248:SS50433: "": 53280,9: 53281,0CH1:V1Z LSS SS16 2l L,H: L1,VH((0)247)1:V((0)3)1: 50688,FF S2040 2047 S,14: S896 959: CH S,CH  THAN ONCE). AFTER ENTERING YOUR TRY";` " (YOU HAVE 15), I WILL TELL YOU HOW MANY NUMBERS ARE"; " CORRECT & IN THE COR- RECT POSITION,"; " AND HOW MANY ARE CORRECT BUT IN THE WRONG POSITION." "" IF YOU GIVE UP DURING THE GAME 8 43,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0bB 198,76,97,199,222,0,198,208,40,254,255,207,208,29,173,80L 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76V 91,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0` 19 46 <CL,3:CH,7:53281,0:""$ F; PT1500:F1:F0:l ZI16:H(I):L(I):D(I):: * PITCH VALUES dI118:"";I);" ":T180::I nL(1)225:L(2)160:R(1)97:R(2)160:Q1163:Q,160 xLFQ1:RTQ1:I110:J12:LF,L(J):RT,R( 70 ==========================0 **** SPRITE MOVEMENT ****Q ==========================s S50880 51116: A: S,A: 169,255,45,0,198,240,16,169,0,141,0,198,162,21,189,0 197,157,0,198,202,208,247,162,1,169,1,141,80,197,173,N,12)" ENTER HIGHEST NUMBER IN YOUR LOTTO";: NN NN1 202050 "fh " DOUBLE SOFTWARE "r " "| "" 10 70l A$"" A$"" "" 580.vTN(S)TN(S)1:290M ========================l **** WRITE ROUTINE **** ======================== 2,8,2,"@0:"NF$",S,W" S1 NN2,TN(S) 2: =================== ",^ " "fh " DOUBLE SOFTWARE "r " "| "" 10 ,254,63,255,252,1,129,128,1,129,128,0%:: 4)"$ $"B 4)"$ $"j 4)"$   $  " 4)"$$$   $$$   " 8)"      " 8)"   THE C-64BY"* "";14);"NORM VOGEL"H T1425:F1:F0:FT33:^ "";:1260 " I WILL SELECT A 3 TO 5 - DIGIT NUMBER (YOUR CHOICE),"; " COMPOSED OF NUMBERS FROM 0 - 9. (NOTE: EACH NUMBER";" " CAN BE USED MORE :S1 L53287 53293  L,S:SS1:: 53294,14-S20:A30G( L53248 53263 2_2 L,S48: L1,A40s<SS25:AA25:F 53269,255P 50432,255Z 51104dh ======================i **** SPRITE DATA **** , JUST TYPE IN";E ," E, AND I'LL TELL YOU WHAT THE SOLUTION WAS AND";p 6" END THE GAME.":13);"GOOD LUCK!" @" ENTER THE SIZE OF THE NUMBER (3/4/5)"; JND$:ND$""330 T(ND$)51(ND$)53330 ^ND(ND$):1260hNDOLGF 8,169,0,232,29,0,197,208,3,76,140,199,169,128,61,0Wj 197,240,11,254,0,198,208,20,222,255,207,76,134,199,222,0t 198,208,9,254,255,207,189,0,197,157,0,198,202,76,233,198~ 169,255,221,255,207,240,3,76,43,199,173,80,197,76,17,199 120,169, * ******************************** lda base ;lsb clc adc z+2 ;lsbz sta z+2 lda base+1 ;msb adc z+3 ;msbz sta z+3 ******************************** *findbit=7-(xand7)* ******************************** lda xval ;xlsb and #7 ;(xand * *flash * org $8000 eol equ 13 buflen equ 40 fillch equ $20 chrout equ $ffd2 clrscr equ 147 * jmp start * text asc 'flash:c64ownerbreaksmachinecode!' dfb 13 * *clearscreen * start jsr clear * *cleartextbuffer * lda #fillch ldx #buflen gain next inx cpx #buflen bcc loop2 * again jsr delay jsr clear jsr delay jmp print * *routinetoclearscreen * clear lda #clrscr jsr chrout rts * *delayloop * delay ldx #$ff xloop ldy #$ff yloop dey nop nop nop bne yloop dex bne xloop L)FLASH: C64 OWNER BREAKS MACHINE CODE! i (ʝ}} (}H h L]( o i oLG ``#L$""5( 1000: 1500Y2 NUM(45),TN(NN),PF(NN):C0:B0wF "": 53280,6: 53281,1P (L$,2)8)""Z (L$,3)8)" "d (L$,4)8)" LUCKY LOTTO MENU "" xN NUMBERS", (L$,14)8)"[5] -END SESSION"X (L$,20)10)"YOUR CHOICE ? [1-5]"p AN$: AN$"" 180~ AN(AN$) AN 730,220,310,420,660 ========================= **** INPUT NUMBERS **** ======================S 630 ": -70. 0 =========================N 1 **** DISPLAY NUMBERS ****n 2 ========================= 6 "": 53280,3: 53281,1:T4 @ 6)" CURRENT LOTTO NUMBER LIST " J S1 NN: S23 "":T24 ^ S9 370 h ""7) sta z ;saveit lda #7 sec ;normalsubtract sbc z ;bit=7-(xand7) ******************************** *setbitinlocationz* ******************************** tax ;bit#inx sec ;rotatecarry... lda #0 ;xtimesintoa loop rol a destuff dex sta txtbuf,x bne stuff * *storemessageinbuffer * ldx #0 loop1 lda text,x sta txtbuf,x cmp #eol beq print inx cpx #buflen bcc loop1 * *printmessage * print ldx #0 loop2 lda txtbuf,x pha jsr chrout pla cmp #eol bne next jmp arts * txtbuf ds buflen * bne stuff * *storemessageinbuffer * ldx #0 loop1 lda text,x sta txtbuf,x cmp #eol beq print inx cpx #buflen bcc loop1 * *printmessage * print ldx #0 loop2 lda txtbuf,x pha jsr chrout pla cmp #eol bne next jmp a  NN: TN(I)B BTN(I)."": 53280,6: 53281,1Z (L$,1)8)" 6 MOST COMMON NUMBERS " (L$,3)12)"NUMBER";22)"TIMES" E1 6:SW0 B0 540 I1 NN:T14 I9 T13 TN(I)B T);I;7);TN(I):SW1 (L$,5)8)" "L } (L$,6)8)""x (L$,10)8)"[1] -LOAD NUMBER FILE" (L$,11)8)"[2] -ENTER CURRENT NUMBERS" (L$,12)8)"[3] -DISPLAY ALL NUMBERS" (L$,13)8)"[4] -6 MOST COMMO === "": 53280,12: 53281,1J 4)""x 4)" ENTER THIS WEEKS LOTTO NUMBERS " 4)""  (L$,8):T6  A1 6: 10)"NUMBER ";A;: N(A)  S1 NN: N(A)T);S" "TN(S):380 r ""T1);S" "TN(S)& |` (L$,25)" PRESS  F1 FOR 6 MOST COMMON NUMBERS";x  AN$: AN$"" 400  AN$"" 400  ========================  **** COMMON NUMBERS ****  ========================  I1 x ;doneyet? bpl loop ;no sta z+1 ;saveit ldy #0 ;nooffset lda (z+2),y ;getscreenbyte ora z+1 ;setproperbit sta (z+2),y ;updatescreen end rts bit=7-(xand7)* ******************************** lda xval ;xlsb and #7 ;(xand 3 0 21 23 33 65 0 10 0 2 200 12 0 8 0 0 200 12 0 4 16 1 200 3 24 128 192 256 384 512 640 768 896 1024 04200930413335082 o  o  o        C  C  C        o  o  o     G p C   Y  ! 1  y d a  E K  ! _   Y `  0 E K > ;  C c 8 > ; < 2  3 c 8 A , `  0 h y d  ! 1  G p    Y " % %  y d C  a  } T  ! _  1001111111111111  Y `  0  ! 1   Y/<LD @?@AC0B` ?JULY852A  0  Y  ! 1   Y  Y Q   y d  ! 1  G p    Y " % %  y d C  a   ! _   Y C  0  Y  ! 1   Y  Y Q  h y d  ! 1  G p    Y " % %  y d C  a  } T  ! _  1001111111111111  Y `  0  ! 1   Y * *rupertreport#19 *assemblerlisting3 *highresolutionplotter * org $c000 ;startat49152 * jmp start * xval da 319 ;2byte:lsb,msb yval dfb 0 ;1byte base da $2000 ;bit-mapmemory z equ $fb ;4bytesonpage0 * start ******************  A , " %    A , " % 1111111111111111  Y `  0 | w A , " %   `  0 c 8 A ,      > ; > * 1    c 8 A ,  " % o  | w   `    `  0 c 8 A ,    > ; > * 1    c 8 A , 111111i okx ;yes fixx lda #$3f ;usemaxlsb sta xval okx ;nowxval<320 ******************************** *makesurey<200* ******************************** lda yval bpl oky ;y<128 and #$7f ;y=y-128 cmp #$48 ;(200=128+$48) bmi oky ;y<200C  a  } T  ! _   Y `  0  ! 1      ! 1  Q  h 1  `  C  a  c 8 A , 100111111100111111 | w o  A , " % | w | w    A , " %  C  a  | w < 2 > *   `  0 A , _ ' | w o   o        Q  Q  Q  C  C  C  C  C  C  Q  Q  Q        C  C  C        w w w    444436055550900002                   C  C  C  o  o  o        * ******************************** lda yval ;truncate and #$f8 ;3lsBITS sta z ;workarea lda #0 sta z+1 ;msb=0 ******************************** *getz=40*z(2byteqty.)* ******************************** lda z clc rol a rol z+1 ;2*   C  C  C  Q  Q  Q  C  C  C  Q  Q  Q        C  C  C           043028033333900000031 `  `  `        C  C  C  C  C  C  Q  Q  Q  Q  Q  Q  R  R  R  C  C  C  lsb)andz+3(msb) ******************************** *getz=(yand7)+z* ******************************** lda yval and #7 ;yand7 clc adc z+2 ;addtoz sta z+2 ;lsb lda z+3 adc #0 ;addcarry sta z+3 ;msb ******************************** *getz=8*int(x/8)+z* ******************************** lda xval ;lsb and #$f8 ;8*int(x/8) clc adc z+2 ;lsbz sta z+2 lda xval+1 ;xmsb-nochange adc z+3 sta z+3 ;msbz ******************************** *getz=base+z  Y    y d  ! 1  G p Q  h  Y %  %  y d C  a  } T  ! _   C 0 1  `   _     !   A , _ ' 111100111111111111  > ; " %    ! C  c 8 A ,    ! a  c 8 A , | w ************** *makesurex<320* ******************************** lda xval+1 ;checkxvalmsb beq okx ;okif0(x<256) lda #1 ;---x>255--- sta xval+1 ;makemsb=1 lda xval ;lsbmustbe<64 bmi fixx ;fixifnot cmp #$40 ;lsb<64? bm111111111111  C  Y %  1  y d     > *  ! y d   Q  A , %      y d > *  ! G p   Y %  1  y d `  a  > * `  C  a   ! o     0    G  a  L  100111111100111111  Y C  lda 199 ;useymax sta yval oky ;nowyval<200 *================================* *z=40*(8*int(y/8))+(yand7)* *+8*int(x/8)+base* *================================* ******************************** *getz=8*int(y/8) A , " % | w | w    A , " %  C  a  | w < 2 > *   `  0 G p A , _ ' 100111111111111 | w _  o  A , " % | w | w 1      A , " %     | w > *  !   `  0 G p A , _ ' | w _  o  A , " % 1  yQ  Q  Q  C  C  C  C  C  C  R  R  R        A , A , A , k / k / k / < 2 < 2 < 2 9 5 9 5 9 5 c 8 c 8 c 8 a  a  a  i  i  i  042024064203335082 o  o  o        C  C  C  o  o  o              o  o z rol a rol z+1 ;4*z rol a rol z+1 ;8*z sta z+2 ;--lsb8*z-- lda z+1 sta z+3 ;--msb8*z-- lda z+2 ;lsb8*z rol a rol z+1 ;16*z rol a rol z+1 ;32*z clc adc z+2 ;lsb32*z+8*z sta z+2 lda z+1 adc z+3 ;msb32*z+8*z sta z+3 *resultsinz+2(       C  C  C        C  C  C  R  R  R           0 0 0    h h h a  a  a  i  i  i  042024064203335082 o  o  o        C  C  C  o  o  o              o  o #"":53280,0:53281,6:646,1/ I49152D A: A256 40Y I,A:II1: 20(" SCREEN MAGIC/DOODLE CONVERTER"2" (C) 1984 BY M. BEUTJER"<" SELECT :"(13);(13);" 1 - DOODLE TO SCREEN MAGIC"" F"   "VIC MUSIC"> MD$"@":M1$MD$:M2$MD$:M3$MD$: 9000Gd SRMX(#SR828n-# 170,50 : TEMPO.# 659,1 : ATTACK/# 660,200: DECAY0# 661,150 : SUSTAIN VOLUME1# 662,10 : RELEASE2# I663 676: A: I,A:- 3# 166,1 165,2,136,208,242# L# 162,1 ,32,153,2c M# 172,149,2,198,150,32,179,2,174,148,2,32,165,2,136,208,242 N# 166,170,134,169,164,149,32,172,2 O# 164,150,240,14,198,150,32,179,2,174,150,2,32,165,2,136,208,242,96 U# ISR SR89: A: I,A:" Z# 16 9 `# 177,158,141,10,144+ a# 177,163,141,11,144D b# 177,167,141,12,144| c# 32,190,2,169,0,133,150,230,147,198,148,208,222,96 #SL48: # OF NOTES # I1 SL: B:BB128: B255 B0 #M3$M3$(B): # I1 SL:M1$M1$(0): # I#"":53280,0:53281,6:646,1I PRINT SHOP TO BIT MAP CONVERTERm FOR PRINT SHOP GRAPHIC EDITOR ************************* * (C) MARCH 3, 1984 * * BY MORTON A. KEVELSON * * P. O. BOX 260 *  O BIT MAP"::0 2" PRESS 1 OR 2"D < FL$:FL(FL$)\ F FL1 FL2 60x P"SOURCE FILE NAME";SF$ Z"DESTINATION FILE NAME";DF$ dSA24576: SA=DOODL! START ADDRESS nTF22528: PRINT SHOP START ADDRESS x SF$,8,1 STEMP":1:  CM23552 24551*  CM,1: CM@  MMSA SA7999P  MM,0: MM]  RW07j  PS07x  CO010 BYSACO8PSRW320 BY,(TF) TFTF1 CO:PS:RW RW07 PS07 BYSA88PS320RW BY,12881200T4100h" ":14)A$*r:A$"":"FILENAME";A$:wA$""4210S|:"TAPE OR DISK?":yB$:T1:B$"D"T8:A$"@0:"A$:B$"T"4230B$"CONTINUE FROM ADDRESS":2010:ADB2515:B04500:110\B$"BEGIN S51,200,208*  251,230,252,202,208,246,174,137M  192,160,141,169,96,32,62,192q 169,92,160,139,174,138,192,76 ( 98,192,174,138,192,160,139,169 0 92,32,62,192,169,96,174,137 8 192,160,141,76,98,192,142,81 @ 192,140,83,192,141,94, 8 2 18 33 67 65 0 5 32 0 200 3 0 3 0 3 200 10 0 3 0 5 200 7 40 96 128 192 256 384 512 640 768 1024 100111111100111111  Y C  0  Y  ! 1   Y  Y Q   y d  ! 1  G p   2 - SCREEN MAGIC TO DOODLE"= P" ";AM ZA1A240Z dA1150j n500:49152 x"ANOTHER CONVERSION";A$ (A$,1)"N"40 500:49194 120 "ENTER THE NAME OF THE EXISTING FILE." "DO NOT INCLUDE69,169,5,133,171,198,171,208,252,202,208,245,96K 7# I677 682: A: I,A:h 8# 202,234,234,208,251,96 <# I684 767: A: I,A: A# 32,151,2,136,208,250,96 F# 173,14,144,41,240,5,150,141,14,144,96 K# 160,15,230,150,32,179,2,174,147,2,32,9,0,133,150,133,147,160,2,177,45,133,148N [# 200,177,45,133,155,200,177,45,133,156} \# 160,10,177,45,133,158,200,177,45,133,159 ]# 160,17,177,45,133,163,200,177,45,133,164 ^# 160,24,177,45,133,167,200,177,45,133,168 _# 164,147,177,155,133,141 SL:MD$MD$(25): #M2$M1$B # 87,81,79,67,67,47,67,67,79,67,79,87l # 81,79,81,73,73,47,73,73,81,73,81,91 $ 87,81,79,67,67,47,67,67,79,67,79,87 $ 81,79,81,79,81,73,87,81,79,67,67,67 '177,45,133,168 _# 164,147,177,155,133,14* HOMECREST STATION *9  * BROOKLYN, NY 11229 *[ *************************x USE WITH DOODLE! FILES  FL 200,400 51,0:52,57:55,0:56,57 :: " 1 BIT MAP TO PRINT SHOP": (" 2 PRINT SHOP T RW07 PS07 CO0107 BYSACO8PSRW320F TF,(BY)R TFTF1b CO:PS:RW} I2310023107:I,0:I 800 "43,0:44,88:45,67:46,90:"PSTEMP",8 ,43,1:44,8:45,(36864):46,(36865) 61,8,15:1,"R0:"DF$"=P &PS:RW 0CO010# :BYSACO81923/ DBY,2557 NCO@ X800_ b43,0:44,92:45,0:46,128o l"DDTEMP",8 v43,1:44,8:45,(36864):46,(36865) 1,8,15:1,"R0:"DF$"=DDTEMP":1: 36864,(45) *36865,(46) 4DF$"=PCAN AT ADDRESS":2010:ADBa2515:B04700$b:4740ZfB07:AC(ADB):3030:ADBENADSR:1080:110gk" ";:Bup:ADAD8zB$:B$(136)1103010:": ";:4710"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:T192,169 H 1,162,8,160,0,32,186,255? P 169,0,162,0,160,192,32,189^ X 255,169,0,162,0,160,0,76 ` 213,255,142,116,192,140,118,192 h 133,252,169,1,162,8,160,0 p 32,186,255,169,0,162,0,160 x 192,32,189,255,169,0,133,251 169,251  Y " % %  y d C  a   ! _   Y C  0  Y  ! 1   Y  Y Q  h y d  ! 1  G p    Y " % %  y d C  a  } T  ! _  10011111111111111  Y `  0  Y  ! 1   Y  Y    y d  ! 1  G p Q  h  Y %  %  y d  THE 'DD' PREFIX ON"% "DOODLE FILES!"5 A$:B(A$)F A1B8510T B16510_ X1By &49292X,((A$,X,1)) 0 :49289,B DBB2 NB1749290,B: X49290,16 b 169,92,133,252,160,0,132,251  162,4,169,1,145,2 % X 828 1023 : Y: X,Y::W 169, 0, 133, 63, 133, 64, 165, 43, 133, 251 165, 44, 133, 252, 160, 0, 132, 254, 32, 228 3, 234, 177, 251, 208, 3, 76, 208, 3, 230 251, 208, 2, 230, 252, 169, 244, 160, 3, 32  30, 203, 16 #"":53280,9:53281,7:646,9J " SONG LOADER"::" THIS IS AN EXAMPLE OF HOW TO LOAD AND USE A SONG STORED ON DISK";" USING THE PROGRAM SONG MAKER." " LINE 10 AND LINE 9000 MUST EXECUTE BEFORE ANY O REPEAT SONG" U "OR Q TO QUIT"< d (653)0 60: 100^ n (203)62 198,0: 65126h 100n %# &# SET UP SOUND AND LOAD SONG '# (#F$"F":I0:N0:VC0:M848:MM823: M & MM PUT ML IN CASSETTE BUFFER' )#PH0: G%(2),AD(2),DU%(9 53280,12:53281,11M" FLANKSPEED ";~ " MISTAKEPROOF ML ENTRY PROGRAM "" CREATED BY G. F. WHEAT "" COPR. 1984, ION INTERNATIONAL INC. "A5427254296:A,0:/ ((2)T(1)161 ZB$"ENDING ADDRESS IN HEX":2010:ENBC _2510:B080j `254,T(2)T(1)16:BT(4)1T(3)16 aB255BB255:254,(254)1 b253,B: d GET HEX LINE n3010:": ";:A08 xB01:210 }B A%(A)T(1)T(0)16:ADA4100 A$(135)" ":45001 A$(136)" ":4700W A$"@"A$"G"T(B)(A$)55:250} A$"/"A$":"T(B)(A$)48:250 1100:210 A$""; 125 A0280 A1:B1290 140 B0(20);(20);:AA1 AA1 "MAINDER OF THE VARIABLES FROM THE SONG FILE) E#B F# I0 2:2,G%(I):o G# I0 2:2,AK%(I),DY%(I),SN%(I),RE%(I) H# N0 1:2,PW%(I,N):: I# I0 9:2,DU%(I): J# PH0 ES%:2,MD$(PH): N1 (MD$(PH)) K# I1 6:#2,A$,B$ L# A1100#:"INPUT A 4 DIGIT HEX VALUE!":1100T:"ENDING IS LESS THAN STARTING!":B0:1100:"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:1100:"NOT ZERO PAGE OR ROM!":B0:1100$"?ERROR IN SAVE":1100."?ERROR IN LOAD":11008 230, 252, 76, 74, 3, 169, 236H  160, 3, 32, 30, 203, 166, 63, 165, 64, 32|  205, 221, 169, 13, 32, 210, 255, 96, 230, 251  208, 2, 230, 252, 96, 0, 76, 73, 78, 69  83, 58, 32, 0, 76, 73, 78, 69, 32, 35  32, 0, 0, 0, 0, 08, 133,"@"A$"G"T(A)(A$)55:-A$"/"A$":"T(A)(A$)48:; T(A)16:N ADRESS CHECK^ ADEN1030r BSRBEN1040 B256(B40960B49152)B532471050  ADDRESS TO HEX ACAD:A4096:3070 A256:3070 A16:30700, 0, 177, 251, 170, 230, 251, 208S  2, 230, 252, 177, 251, 32, 205, 221, 169, 58  32, 210, 255, 169, 0, 133, 253, 230, 254, 32  228, 3, 234, 165, 253, 160, 0, 170, 177, 251  201, 32, 240, 6, 138, 113, 251, 69, 254, 170"  138, 133,THING ELSE IN YOUR";$  " PROGRAM."4 9000: 80] < PH0 ES%: N1 (MD$(PH)): MMn >F$FR$(N,PH)v A M C I0 DU%(((MD$(PH),N,1))): D SYS MM:REM STACCATO NOTES E: F MM: P "WHEN SONG ENDS, PRESS":: "SHIFT T),AK%(2),DY%(2),SN%(2),RE%(2),WF%(2),PW%(2,1)- /#e 0# OPEN SONG FILE & GET # OF PHRASES AND # OF VOICESk 1# 2# 2,8,2,"0:SONG #1,S,R" 7#2,ES%,EV%,LD% 9# :# DIMENSION KEY VARIABLES ;# <# FR$(LD%,ES%),MD$(ES%) C## D# LOAD THE RE54272,4:54273,48:54277,0:54278,249:54296,15H FA680699:B:A,B:s K169,251,166,253,164,254,32,216,255,96 L169,0,166,251,164,252,32,213,255,96 PB$"STARTING ADDRESS IN HEX":2010:ADB:SRB U2520:B080 V251,T(4)T(3)16:252,T1EN310 " ";0 A:TAD((AD256)256):" "T A07:TTA%(A):T255TT255Z s A%(8)T1010:110 A07:ADA,A%(A)::ADAD8:110 GET HEX INPUT A$:A$""210 A$(20)270 A$(133)4000 A$(134)(20);:140 , LAST LINE0 6" ":TAD((AD256)256)V @B0A1:TTA%(B):T255TT255\ Ju TA%(A)T1010:110 ^B0A1:ADB,A%(B): h:"YOU ARE FINISHED!":4000  BELL AND ERROR MESSAGES :"LINE ENTERED INCORRECTLY"::$"" A$(0)% M#FR$(N,PH)FR$(N,PH)A$:::- P# 23 Q#J R# SET UP ENVELOPESP S#p T# I0 2:AD(I)542777I: U# I0 2: AD(I),AK%(I) DY%(I) V# AD(I)1,SN%(I) RE%(I): W# X# SET PULSE WIDTHS Y# Z# I0 2:VC54274I7 ::"END OF ML AREA":"L54276,17:54276,16:B15,8,15:15,A,A$:15:A$:[ GET FOUR DIGIT HEXj:B$;:T$(T$)41020:2010A14:A$(T$,A,1):2060:T(A)161020:2010:B(T(1)4096)(T(2)256)(T(3)16)T(4):  A$: N0 1[# VCN,PW%(I,N)::j#8k# SET FILTER AND VOLUMEOl# FILTER FREQUENCY}m# LOW BYTE (0-7) X%; HIGH BYTE (0-255) Y%n#X%3:Y%150o# 54293,X%: 54294,Y%p# FILTER ON?q# VOICE 1 ON=1; 2 ON=2; 3 ON=4; 1&2 ON=3; 2&3 ON=6; A A1:3070 % T(ACA):T9A$(T55):30904 A$(T48)I A$;:ACACAT:aA$"**SAVE**":4200w1,T,1,A$:680:1ST01060:T812004000A$"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:T 253, 177, 251, 208, 226, 165, 253, 41R  240, 74, 74, 74, 74, 24, 105, 65, 32, 210  255, 165, 253, 41, 15, 24, 105, 65, 32, 210  255, 169, 13, 32, 210, 255, 173, 141, 2, 41  1, 208, 249, 230, 63, 208, 2, 230, 64, 230  251, 208, 2,A */8l# JULY852A 64 BUG REPVIC BUG REPFLANKSPEED F-SPEED OVERFAST SONG LOADERFAST SONG MAKER/ SUMMERTIMEVIC MUSICDOODLE/SCRNMAGIC SONG #1 SONG #2CLRSCR.OPLOT.$C.S PRNT SHP-DDLFLASH.SFLASH.O LUCK LOTTOSCRIPT ANALYSISD BRAINFRAMEPRINTAT WIZARD OF IMAUTO-APPENDETCH AUTOSMENU C-64WIZARD OF IM BOOMENU-VIC  4,4. 4," "S 4," "x 4," " 4," Ϸ "4," SAVE "4," " 4,"  "4 4," CONTINUE "Y 4," "~ 4," " 4," " 4," " 4," SCAN " 4,"  #"":53280,9:53281,7:646,9I " SONG MAKER"::" THIS PROGRAM LETS YOU COPY THE FR$() STRINGS FROM THE SCREEN DISPLAY";" OR SAVE THE FR$() STRINGS ON DISK FOR RETRIEVAL BY SONG LOADER". " YOU TYPE IN SONGS AT SHIFT = 'PLAY NEXT PHRASE'"< Q " Q = 'QUIT'"` R " S = 'SAVE SONG ON DISK'" S " D = 'MAKE DATA STATEMENTS AT LINE 9400'" T " P = 'PRINT EACH F$ STRING AS IT" U " PLAYS; WAIT FOR KEYPRESS" V SET FLAG TO PRINT FR$() VALUESA A13 "SAVING DISK FILE": 200u A39 DS0: SET FLAG TO STOP PRINTING FR$() A18 20000: MAKE DATA STATEMENTS AND WIPE OUT LINES>9400 110 2,8,2,"@0:SONG #1,S,W" CR$(13):2,ES%CR$,1)CR$;:::" 2:PH0:N "NOTE "N: I0 2: " ":i "": I1 5 2 " "; ((F$,I,1))" "((F$,I1,1))" ": "PRESS SHIFT TO GO ON" (653)0 520  ,# DU%(9),PI%(168,1),AK%(2),DY%(2),SN%(2),RE%(2),WF%(2),PW%(2,1)L0# ATTACK--VOICES 0,1,21# NUMBER FROM 0 TO 15; LOWER NUMBER=SHARPER ATTACK2#AK%(0)0:AK%(1)0:AK%(2)07# I0 2:AK%(I)AK%(I)16::# DECAY--VOICES 0,1,2;# NUMBER FRO,1,26O# NUMBER FROM 0 TO 15; LOWER NUMBER=FASTER DROP TO SILENCE AT ENDUP#RE%(0)0:RE%(1)3:RE%(2)5oX# SET SOUND ADDRESSESZ# I0 2:AD(I)542777I:b# POKE ADSR ENVELOPESd# I0 2: AD(I),AK%(I) DY%(I)i# AD(I)1,SN%(I) RE%HSw# VOICES 0,1,2; LOW BYTE, HIGH BYTE.x#PW%(0,0)200:PW%(0,1)3Ky#PW%(1,0)200:PW%(1,1)10gz#PW%(2,0)200:PW%(2,1)7}# I0 2:VC54274I7: N0 1~# VCN,PW%(I,N)::# SET UP DURATIONS# I0 9: DU%(I):# 40,96,128,1#"":53280,9:53281,7:646,9I " SUMMERTIME"::"ADD THESE LINES TO SONG MAKER TO CREATE THE SONG SUMMERTIME";" FROM PORGY AND BESS BY GEORGE AND IRA GERSHWIN": "FIRST DELETE ALL SONG MAKER LINES ABOVE 9500  "1 4," "V 4," "{ 4," LOAD " 4," " 4," " 4," " 4," ̤ "7 4," "\ 4," FLANKSPEED " !4," " "4," " (4 " 4," " 4,"  9500-9890 AND NAME THE SONG SAVE FILE AT 200"> 9000: 80Z < N1 (MD$(PH)): MMk >F$FR$(N,PH)s A M B DS1 500 C I0 DU%(((MD$(PH),N,1))): D SYS MM:REM STACCATO NOTES E:PHPH1: PHES% PH0 F MM:% P " " BETWEEN NOTES'"A W " N = 'NO PRINTING OF F$ STRINGS'"J ZDS0n d " PHRASE "PH n (653)0 60: 100 xA(203): A64 110 A62 198,0: 65126: "WARM START" ENDS PROGRAM A41 DS1: 110:EV%CR$LD%CR$;* I0 2:2,G%(I)CR$;:: I0 2W 2,AK%(I)CR$DY%(I)CR$SN%(I)CR$RE%(I)CR$;y N0 1:2,PW%(I,N)CR$;:: I0 9:2,DU%(I)CR$;: PH0 ES%:2,MD$(PH)CR$;: "<"; N1 (MD$(PH)): I1 62,(FR$(N,PH),I " ",&# SET UP SOUND SHAPEr(#F$"F":I0:N0:VC0:M848:MM823: M&MM PUT ML IN CASSETTE BUFFER)#PH0:ES%8: MD$(ES%),G%(2),AD(2),Y%(2)*# ME$(ES%,2),MV$(ES%,2)+# PREVIOUS LINE:9002 DIM ME$(ES%,2),MV$(ES%,2)1M 0 TO 15; LOWER NUMBER=FASTER DECLINE3<#DY%(0)5:DY%(1)3:DY%(2)3OD# SUSTAIN--VOICES 0,1,2E# NUMBER FROM 0 TO 15; LOWER NUMBER=SOFTER VOLUME DURING SUSTAINF#SN%(0)2:SN%(1)0:SN%(2)0K# I0 2:SN%(I)SN%(I)16:N# RELEASE--VOICES 0(I):k# SET UP GATES.l# WAVEFORMS, VOICES 0,1,2 (ADD VALUES):{m# TRIANGLE ON=16; SAWTOOTH ON=32; PULSE ON=64 (SET WIDTH!); NOISE ON=128n#WF%(0)32:WF%(1)64:WF%(2)64s#G%(0)WF%(0) 1:G%(1)WF%(1) 3:G%(2)WF%(2) 1v# SET PULSE WIDTAND BELOW 9900"9 )#PH0:ES%3: MD$(ES%),G%(2),AD(2),Y%(2)X 2#AK%(0)2:AK%(1)0:AK%(2)4w <#DY%(0)5:DY%(1)0:DY%(2)8 F#SN%(0)4:SN%(1)0:SN%(2)1 P#RE%(0)2:RE%(1)0:RE%(2)3 n#WF%(0)16:WF%(1)32:WF%(2)64 s#G%(0)WF%(0) 7:G%(1)WF%(1) 1 53280,5:53281,13:646,57******************O* *g* AUTO-APPEND ** ** BY ** WILLIAM BRAUN ** 1984 ******************* 55,225:56,(56)1:A(56 ,43,165,252,133,44,96'' VIC RENUMBER'SB(44)256(43)1:B1SB:N0:LI5' FIND # LINES'(SB3)14(SB4)3910035 $'(SB5)0SBSB1:10020&)'NN1:SBSB5:10015?.' RENUM&CREATE ARRAY[3'L%(N,3):LN5:S0:SBB1}8' (SB3)14(SB4)39e'P(SB5):P137P141P16712000j'SBSB1:10080. FOUND GOTO,GOSUB,THEN.B(SB6):C1:NB0:SPNB:ZNB:F2.B012058.B3212005#.B57120577.B0B4812057^.(SB5C)32CC1:SPSP1:12002# I0 I1:"WIZARD OF IM",8,1.49152*Ui@~@@@n@$,$80 WIZARD OF IM  SCORE LIVES LEVEL HIGH 0 3  1 BY OB PIRKOOPYRI% **SET UP THE PRINTAT ROUTINE**F AT679:NATAT22:M:N,M:e32,180,2,132,251,32,180,2166,251,76,240,255,32,253,17432,158,173,32,170,177,96"":53280,6:53281,1" **EXAMPLE PROGRAM USING PRINTAT**":D11000: d"": 53280,0: 53281,4\n 3)"        "x 3)"        ̯" 3)"         " " TIONAL INC"2 (L$,20)9)"RETURN OR CHOOSE NO.";Q 198,0: AN$:AN(AN$):B0d AN$"" 100 : CH1 AN: PR$: CH "": 53280,0: 53281,0 (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8,1" "RUN`OTTOH  SCRIPT ANALYSIS,BRAINFRAME,PRINTAT,WIZARD OF IM BOOT,AUTO-APPEND,ETCHT  AUTOS"" 100 : CH1 AN: PR$: CH "": 53280,0: 53281,0 (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8,1" "RUN:G%(2)WF%(2) 1* x#PW%(0,0)200:PW%(0,1)12G y#PW%(1,0)200:PW%(1,1)12c z#PW%(2,0)200:PW%(2,1)3 # 24,128,192,256,384,512,640,768,896,1024 T$X%3:Y%150 ^$X%0 h$Y%14 r$X%1 |$Y%15: 54296,X% Y% $EV%0 % PHRASE 0 %MD$(0203335082"$ 1%ME$(2,0)"ECEEEDCDECAE@"F 2%MV$(2,0)"4 3 "U 9% PHRASE 3w :%MD$(3) "444436055550900002" ;%ME$(3,0)"EGEGACEDCCBAFGA" <%MV$(3,0)"3 4 3 5 "Y%15: 54296,X% Y% $EV%0 % PHRASE 0 %MD$(0)256226:X027:D:AX,D:] " INSTRUCTIONS":" 1. LOAD 1ST PROGRAM":" 2. SYS"A " 3. LOAD 2ND PROGRAM":" 4. SYS"A19:" 5. SAVE AND VERIFY 165,43,133,251,165,44,133,252,166,45,202,202,134,43,165,46,133,44,96 165,251,133(SB3)14(SB4)3910070='L%(S,0)(SB3):L%(S,1)(SB4):L%(S,3)(LN256):L%(S,2)LN256L%(S,3)G'(SB3),L%(S,2):(SB4),L%(S,3) L'(SB5)0SBSB1:10060/Q'SBSB5:SS1:LNLNLI:10040PV' SEARCH FOR THEN,GOTO,GOSUBZ['SBB1x`' 5.(SB5C)47(SB5C)58CC1:12006.(SBC5)012013.(SBC5)4812057.(SB5C)5812057.(SB5C)58F3:12013.NBCSP1).X$"":X1NB:X$X$(((SB5XSP))):H.(X$)NBX$(X$,(X$)1)l.HB((X$)256):LB(X$)256HBu.S10.HBL%(S1,1)LBL%(S1,0)12035.S1S11:12025/Y$(L%(S1,3)256L%(S1,2)):Y$(Y$,(Y$)1)/X$Y$12055/C1(Y$)12060$ /SP0(X$)(Y$)Z1:12050I /Z1(X$)(Y$)SP:SB5Z,32:q/X1(Y$):AT,2,0:"NOW"" AT,5,2:"YOU"6 AT,8,4:"CAN"M AT,11,6:"PRINT"e "AT,8,17:"NEATLY" $AT,11,16:"FORMATTED" &AT,14,17:"SCREENS" (N0240 *L(12(N)8) ,C(20(N)8) .AT,L,C:"*": 0AT,22,0 "- L$"":TA11Q AA1:BB1: PR$: A9 TA10o (L$,B6)TA)""A"-"PR$ B12 175 150 A24 :A0 (L$,22)" DISKS REPRODUCED WITH MSD SUPER DRIVES " (L$,24)7)"(C) ION INTERNA": "")  631,13: 632,13: 198,2:o  64 BUG REP,VIC BUG REP,FLANKSPEED,F-SPEED OVER,FAST SONG LOADER  FAST SONG MAKER,SUMMERTIME,VIC MUSIC,DOODLE/SCRNMAGIC,SONG #1  SONG #2,CLRSCR.O,PLOT.$C.S,PRNT SHP-DDL,FLASH.S,FLASH.O,LUCK LԗSB4XZ,((Y$,X,1)):/F12057,12058,12059/SBSB1:10080/SBSB7:10080/SBSB3:10080/"NEW LINE # TOO LONG!":6 CUT OUT RENUMBER FROM PROGRAM):X02:(254)256(253)X,0:(X$)NBX$(X$,(X$)1)l.HB((X$)256 ) "04200930413335082"2 %ME$(0,0)"ECEE@DCDECA@E@"S %MV$(0,0)"4 3 "b %% PHRASE 1 &%MD$(1) "043028033333900000031" '%ME$(1,0)"FECDDCACACBAGFEDCB@" (%MV$(1,0)"4 34343 2 " /% PHRASE 2 0%MD$(2) "042024064 53280,0:53281,1:646,6N BEFORE LOADING POKE44,64:POKE256*64,0:NEWgS0 (46)256(45)S1 S0210:S2 S0150 ::"""IN ADDITION TO NORMAL CURSOR MOVEMENTS," "THE FOLLOWING CODES ARE USED: F-FAST" "SCAN; S-SLOW SCAN; AN$"Y" 200#  M$:M$"" 208  M$(136) 17P  M$"F" F5: 20h  M$"S" F1: 20  M$"D" D D:EO: 20  M$"E" E E:D0:20  M$"I" XIX:YIY: 20  M$"L" 100  M$(133) 1100  M$""   1000  D0: 200 D1: Y 0 199 21G X 0 249 25R 1000^ X : Y| X 128 : Y 95 : 1000 D0 : CH(X8):RO(Y8):LNY7  D0 BY,SV  E0 1020 Z SV (2BT): BY,SVZ BY819 Щ ЍЩ @` x    8  8   -  m    ԭ     Ы e(Ѝ`Z SV (2BT): BY,SVZ BY819d"": 53280,6: 53281,1<n 3)"D I R E C T O R Y"aL$""wAA1:BB1: PR$ (L$,B5)0)"";A;"- "PR$ B12 175 150 A24 :A0 (L$,21)" DISKS REPRODUCED WITH" (L$,22) 631,13: 632,13: 198,2:_  64 BUG REP,VIC BUG REP,FLANKSPEED,F-SPEED OVER,FAST SONG LOADER  FAST SONG MAKER,SUMMERTIME,VIC MUSIC,DOODLE/SCRNMAGIC,SONG #1  SONG #2,CLRSCR.O,PLOT.$C.S,PRNT SHP-DDL,FLASH.S,FLASH.O,LUCK LOTTO8  SCRIPT  D-DRAW; E-ERASE"7 "I-INITIAL POINT OF SLANTED LINE;"` "L-LINE BACK TO INITIAL POINT; F1-" "DUMP SCREEN IMAGE TO PRINTER" "F7-CLEAR SCREEN"  "DO YOU WANT TO PLAY SQUARES";AN$  S1 X0:Y0:SV0:BY8192:F1:D0:E0: 1000  YYF: Y0 Y01 # M$"" YYF: Y199 Y199V ( M$"" XXF: X319 X319w - M$"" XXF: X0 X0 2 1000: 20 dDXXXI : DYYYI nMDYDX : BYIMXI sSP ((XIX))F : XFX x XXF XI SP Y (MXB)2RO320CH8LN:BT7(X7) SV (BY)4  BY,SV (2BT): I L 4,4,5:4_ V (27)(51)(16)t ` 251,0: 252,32 j I0 7: 2048I,2I: t L0 24: (27)(76)(250)(2); ~ S2  (245)(10);  L 4,(27)"@":4,:4" MSD SUPER DRIVES"9 (L$,24)1)"(C)ION INT'L INC."c (L$,19)1)"CHOOSE # OR RETURN";w AN$:AN(AN$) AN$"" B0: 100 : A1 AN: PR$: A "" "LOAD";(34);PR$;(34);",8"  "RUN":"" NANALYSIS,BRAINFRAME,PRINTAT,WIZARD OF IM BOOT,AUTO-APPEND,ETCHD  AUTOS"CHOOSE # OR RETURN";w AN$:AN(AN$) AN$"" B0: 100 : A1 AN: PR$: A "" "LOAD";(34);PR$;(34);",8"  "RUN":""  , 53280,1:53281,1:"":T1(20),T2(30)mW$(74),G$(14),G(14),W(14,7,9),T(14,9),T$(14,9),P$(14),P(74)D$".":N$(13):CO$", "I022:K$K$""::K$""K$"PRESS ANY KEY"WS2:C12:O(4915221024)256:PC61439 XI1 3,169,208,133,252,169,240,133,254,162,16j b160,0,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96 c72,169,4,141,136,02,104,108,254,207 dI174:W$(I): n""17)"SCRIPT":16)"ANALYSIS r13)"BY BOB SPIRKO" x 0T(I,J):W(I,J,K) ::A "FILENAME";F$:"NEW OR LOAD?"T A$:A$""220e A$"L"4000 "LEFT- OR RIGHTHANDED?" H$:H$""242 H$"L"500 H$"R":500 ,B(A$)1:C0T(A,B):P(W(A,B,C))P(W(A,B,C))1:: M P$(I),(P$(I))J):-A014:AAA1:""AA;G$(A)""vAA1000,1200,1400,1600,1800,2000,2200,2400,2600,2800,3000,3200,3400A133600 A143800X""F$": SCRIPT CHARACTERISTICS":I014b""G$(I)": ";:I4650l4:"DOMINANT TRAITS:";3I1M:X$W$(T1(I)):YY2(IM):950U:Y44::"OTHER TRAITS:"; I1N:X$W$(T2(I)):YY2(IN):950: :" END DISK TAPE PRINTER RUN":3)*"";:A$:A$"""";:8104"  OR""IT MAY SLANT TO THE LEFT.":="SLANT CAN ALSO VARY. FOR INSTANCE,"g"SOME LETTERS MAY BE VERTICAL WHILE""OTHERS ARE SLANTED. IF THE SAMPLE"$"HAS MORE THAN ONE SLANT OR THE SLANT"."APPEARS INCONSISTENT THEN IT'S"8"C ":14)" "8t15)" ":16)"ɧݥ":17)""e~18)"":8)""400:H$"L"A$("7654321",(A$),1)300:P$(A)T$(A,V):"THE BASELINE IS THE IMAGINARY LINE THAT""WE WRITE 33:A:49151I,A::95A Y56576,(56576)252:53272,S16C:648,O^ ZI5323653245:A:I,A: [53246,(792):53247,(793):792,244:793,207:100 _56334,(56334)254:1,(1)251:49152 `1,(1)4:56334,(56334)1:$ a169,0,133,251,133,25I014:G$(I),G(I):< E8:I149:L:J18:K:PCLEJ,K::` ""19)"_ \":20)"]" 13)"^ ^ ^ ^":14)"] \" I153:L:J18:K:PCLEJ,K:: I014:J0G(I):T$(I,J):: I014:J0G(I):T(I,J):KB$:B$""333 QB$"1"< SP$P$T$(A,B)CO$:A$(B49):300:U X5)T$(A,B)": ";: "":B0G(A):7)((B1),1)". "T$(A,B): ""7); "";:A$:"";:A$""410 V(A$)49:V0VG(A)410 " ";:(P$(I),J):((P$(I))24650)vJ2040:(P$(I),J,1)","450:6600J;P$(I)ZI:A$"T"A$"D"K$:745zM0:N0:I174:P(I).740P(I)2MM1:T1(M)I:740P(I)2NN1:T2(N)I:K$A$:A$""745""F$": ANALYSIS" Y4";:A$"D"A$"T"4100>A$"P"4200&HA$"R"9004RA$"E"=\810vI174:P(I)0::I013:P$(I)""::H$"":P$"":200((X$)2)39(0)(32)X$(Y);:21)"_"29)"'""SCRIPT MAY BE VERTICAL OR %&!$%&#[ ONSIDERED IRREGULAR.":'="OF THE FOLLOWING CHOSE THE ONE"PB"THAT CLOSELY MATCHES THE SLANT:"K$dGA$:A$""1095nL""V17)"3 4 5":13)"2 6":14)" ݧ "`11)"1 7":12)" "j13)"  ON. SOME WRITERS HAVE LINES","THAT ARE STRAIGHT AS A RULER WHILE"Z"OTHERS HAVE TROUBLE WRITING A STRAIGHT""LINE EVEN WHEN THEY HAVE GUIDE LINES."S$" ":I14:S$;::S$"ݗ ݗ ݗ ݗ" PS. AVERAGED-SIZED"9"HANDWRITNG IS ABOUT 3 ML. HIGH. SELECT THE APPROPIATE SIZE:"W9)" _":C$(234)|5)""C$" LARGE ߡ"5)""15)"]"7)"1 2 3 4"400:300:P$(A)T$(A,V):@"CONTINUITY SCONNECTED THEN PRESS 3."|30)"^"4" CONNECTED S MBION"Q7)"1"19)"2"31)"3"o400:300:P$(A)T$(A,V):"THERE ARE A FEW STYLES OF" "WRITING. ROUND SCRIPT APPEARS ROUND IN""IN EVERY WAY. THE TOPS  LL FIND HANDWRITING"5"THAT IS ORGINAL OR ARTISIC: THE"C7"LETTERS ARE UNUSUAL OR UNCONVENTIONAL."n:"BUT DON'T MISTAKE SUPERFLUOUS LOOPS"?"AND FLOURISHES AS BEING ORIGINAL."K$DA$:A$""1860N""18)"ɒ"26)"+'"S4)"XA$(V52):300:P$(A)P$", "T$(A,V4):-"LINES CAN BE FAR APART OR SO CLOSE"Y"TOGETHER THAT THE LOWER LOOPS OF ONE""LINE TANGLES WITH THE UPPER LOOPS OF""THE LINE BELOW:"13)"DRAGGING":16)" "12)"TANGLED PACE BETWEEN LINES IS SO WIDE"H"THAT A ANOTHER LINE COULD BE PLACED"AR"BETWEEN THEM THEN PRESS 1.":K$U\A$:A$""2140|"":400:300:P$(A)T$(A,V):"LEFT AND RIGHT MARGINS ARE TYPICALLY" "ABOUT ONE INCH WIDE. OFTEN THEY ""!S$" ٗ — ":I15:5)S$:/!8)"1"20)"2"30)"3"b!S$"  ȗ ":I15:5)S$:w! 8)"3"20)"4"!_ 400:300:P$(A)T$(A,V):!` "PRESSURE IS SOMETIMES DIFFICULT TO ASSESS. "LIGHTOR YOU SIMPLY CAN'T TELLTHEN PRESS 3."# 400:300:P$(A)T$(A,V):d#( "SPEED IS ALSO DIFFICULT TO DETERMINE. SLOW WRITING IS OFTEN ";#2 "DISCONNECTED AND CONTAINS AWKARD OR FLOURISHED FORMS."#Z "T'S ARE CAREFULLY CROSSED AND I FAST OR"$ "SLOW OR YOU'RE NOT SURE, THEN PRESS 3."% 400:300:P$(A)T$(A,V):J% "UPPER ZONES REFER TO THE UPPER LOOPS ON"b% 16)"^ ^ _"% "LETTERS SUCH AS B, H, AND L. THE"% "LOWER ZONE CONSISTS OF THE LOWER LOOPSVARY THEN PRESS 6."!'E "IF EITHER UPPER OR LOWER ZONE IS SHORT THEN CONSIDER IT BEING ";Y'O "NORMAL. IF BOTH ZONES ARE SHORT THEN PRESS 5."K$m'T A$:A$""2900'^ "":S$"4O44YGAG"'h 5)"< <<"15)"> >>"25)"< <<"'r I52510:I)S$;I03:2)S$: " ":I03:49I)I1;:::7400:300:P$(A)T$(A,V):cx"THE SIZE OF HANDWRITING IS JUDGED BY""SIZE OF THE MIDDLE ZONE LETTERS SUCH AS""A, E, M, AND V; LETTERS WITHOUT""UPPER OR LOWER LOO REFERS TO THE DEGREE OF"'J"CONNECTEDNESS BETWEEN LETTERS. IF THE"VT"WRITING IS MOSTLY OR ENTIRELY CONNECTED"{^"THEN PRESS 1. IF IT IS MOSTLY"c"OR ENTIRELY DISCONNECTED THEN PRESS 2."h"IF IT IS ABOUT EQUALLY CONNECTED AND"r"DIOF LETTERS AND""THE CONNECTING STROKES ARE ROUND.":E"WHEREAS ANGULAR SCRIPT CONTAINS LETTERS"q!"THAT ARE ALL POINTED. OFTEN A SAMPLE"&"IS NEITHER ENTIRELY ROUND OR ANGULAR"+"BUT A COMBINATION OF BOTH.":0"INFREQUENTLY, YOU'OUND"5)""5)"*$#&[#["X16)"":6)"1"17)"2"29)"3":""FlB03:7)((B1),1)". "T$(A,B):av405:300:P$T$(A,V):"WHICH BEST DESCRIBES THE HANDWRITING?"B45:7)((B3),1)". "T$(A,B):405:V1"";:1940LINES":15)"" "IF THE LINES ARE VERY TANGLED THEN"<"PRESS 5. IF THE LINES ARE NARROW BUT"i "ONLY A FEW LOOPS ARE TANGLED PRESS 4."*"IF LINES ARE CLOSE BUT NOT TOUCHING"4"PRESS 3. IF THE LINES ARE WIDE PRESS 2.">"IF THE SARE""MADE WIDER OR NARROWER, OR ARE"! "DIFFERENT WIDTHS. CHOSE ONE THE"M "FOLLOWING. IF IT DOES NOT FIT IN ANY"{ "CATEGORY, EG,A MARGIN MAY BE NARROW AT" "AT THE TOP AND WIDE AT THE BOTTOM, THEN PRESS 6.":K$ A$:A$""2265 FOR HEAVY";"j " PRESSURE, TURN THE PAGE OVER AND SEE OR EVEN FEEL IF THE ";N"~ " PEN HAS LEFT INDENTATIONS IN THE PAPER."|" "LIGHT PRESSURE APPEARS AS DELICATE OR"" "FAINT HANDWRITING. IF PRESSURE APPEARS TO BE NEITHER HEAVY OR ";" 'S DOTTEDPRECISELY." $d "FAST SCRIPT IS MOSTLY CONNECTED AND CONTAINS NATURAL, ";j$x "AND UNCOMPLICATED FORMS T-BARS AND I-DOTS MAY BE PLACED TO ";$} "THE RIGHT. FAST WRITING IS USUALLY INCLINED."$ "IF THE WRITING APPEARS NEITHER "% "ON LETTERS SUCH AS G, P, AND Y."& 19)"] \ ]"Z& "TYPICALLY UPPER AND LOWER ZONES ARE ABOUT THE SAME HEIGHT OR";& " HIGHER THAN THEMIDDLE ZONE. IF THE ZONES ARE ABOUT EQUAL";&6 " PRESS 1. IF THE THE ZONES  ::'| 9)"]] ]"19)"]] ]"29)" "( 9)"1"19)"2"29)"3"( 5)">>>"25)"< >"7( I52510:I)S$;::[( 9)" "19)"== ="29)"] ="v( 9)"4"19)"5"29)"6"( 400:300:P$(A)T$(A,V):( "OVALS ARE THE LETTERS A AND O 3.") 400:300:P$(A)T$(A,V):** "T-BARS ARE THE STROKES THAT CROSS THE LETTER T. OF THE FOLLOWING";c* " CHOSE THE LENGTH WHICH IS THE MOST PRAVALENT:"* ""10)"T"20)"12"30)"3"* 10)"1"20)"2"30)"3"* B02:7)((B B4:344:"05":333:+ B5:344:"62":333, B6:12)"7":344:"4":333::B7:344B, "8":333:P$(A)(P$,(P$)2):P$"":LL0:,H "I-DOTS ARE INTERPRETED IN A SIMILAIR WAYTO T-BARS. IF ANY OF THE";,\ " FOLLOWING APPEARS DISTINCTLY M "IF MOST OR ALL ALL HAVE BEGINNING STROKES THEN PRESS 1." .8"PRESS 2 IF THEY ARE MOSTLY ABSENT:"J.B"HE OMMODORE OMPUTER":17)"\"z.L"IF THEY BOTH APPEAR EQUALLY PRESS 3.".s400:300:P$(A)T$(A,V):."THE HEIGHT OF CAPIT(A,V):/"DISK OR TAPE?"/A$:A$""4005/A$"T"A$"D"4005"0A$"D"2,8,2,F$",P,R":4030002,1,0,F$a02,H$,M,N:I014:2,P$:I4I11I124050p0P$(I)P$:0I1M:2,T1(I)::I1N:2,T2(I)::2:6000Q$"":JP$"":J1(P$(I)):M$(P$(I),J,1):M$","M$"-"1@P$P$M$::2h4,4:4,(14)(16)"25SCRIPT ANALYSIS"(15)V2r4,N$N$"NAME: "F$N$N$"HANDWRITING CHARACTERISTICS"2I014:4,G$(I)": "P$(I)::4,N$"DOMINANT TRAITS"2I1M1:4,W$(T1(I))CO$RELESS,CAUTIOUS3 CONFUSED,CONSCIENTIOUS,CONSERVATIVE,CONVENTIONAL,CRITICAL14 DIFFIDENT,DILIGENT,EMOTIONAL,ENERGETIC,ENTERPRISINGm4 EXCITABLE,EXTRAVAGANT,EXTROVERTED,FASTIDIOUS,FLEXIBLE4 FRUGAL,GENEROUS,IDEALISTIC,ILLOGICAL4 IMAGINAVE,PATIENT,PRACTICAL5 REALISTIC,REASONABLE,REFLECTIVE,RESERVED,RESOLUTE+6  SECLUSIVE,SELF-DISCIPLINED,SELFISH,SENSITIVE,SINCEREg6 SPONTANEOUS,TACTFUL,TACTLESS,UNDISCIPLINED,UNRELIABLE6P SLANT,7,BASELINE,3,SIZE,3,CONTINUITY,2,STYLE,5,LINE ,156,0743,0,0,0,0,0,2,6,12760,0,0,0,0,0,8,8,8761,6,10,4,0,0,0,0,0862,0,0,8,8,8,8,8,8(865,10,10,18,50,44,44,56,40C867,0,0,0,85,170,0,0,0^868,0,0,85,170,0,0,0,0y869,0,85,170,0,0,0,0,0870,0,0,0,0,170,085,0,0873,68,68,187,09129,0,0,26,38,66,66,189,09130,64,64,92,98,66,67,188,0:131,0,0,60,98,64,193,62,0%:132,2,2,58,70,66,194,61,0D:133,0,0,28,36,88,96,191,0c:135,0,0,26,38,66,66,189,6:136,64,64,92,98,66,66,129,0:137,0,8,0,8,24,4. THESE ARE USUALLY CLOSED:";') " OVA4S. BUT SOMETIMESTHEY HAVE OPENINGS AT THE TOP: QV@4S"T) "IF MOST OR ALL THE OVALS ARE CLOSED"~) "THEN PRESS 1. IF MOST OR ALL OVALS") "ARE OPEN PRESS 2. IF THEY ARE EQUALLY":"PRESENT PRESS 1),1)". "T$(A,B):* 405:300:P$T$(A,V)", "1+ "T-BARS ALSO VARY IN POSITION. IF ANY OF THE FOLLOWING APPEAR";q+ " DISTINCTLY AT LEAST THREE TIMES IN THE SAMPLE THEN"+ "PRESS 1. IF NOT THEN PRESS ANY:"+ B3:344:"4":333:+ORE THAN TWICE THEN",f "PRESS 1. IF NOT PRESS ANY:"-z F05:BF:344:(202F):333:#- :P$""=- P$(A)(P$,(P$)2):-"BEGINNING STROKES ARE THE STROKES AT THE BEGINNING OF WORDS:"-$"THE -COMMODORE -COMPUTER":19)"\"-.ALS IS DETERMINED IN"."RELATIONSHIP TO THE MIDDLE ZONE."/"MEDIUM SIZED CAPITALS ARE ABOUT TWICE"K/"THE HEIGHT OF MIDDLE ZONE LETTERS. TALL"z/"OR SHORT CAPITALS ARE TALLER OR SHORTER"/ "THEN THE MIDDLE ZONE."/;400:300:P$(A)T$1(P$):M$(P$,J,1):M$"-"M$","0Q$Q$M$::P$Q$:$1"":A$"D"2,8,2,"0:"F$",P,W":"SAVING "F$:4120212,1,1,F$l12,H$;N$;M;N$;N:I014:P$P$(I):I4I11I124150x1"2,P$:1,I1M:2,T1(I)::I1N:2,T2(I)::2:74616;:I5(I5)42:4,W$(T1(M))D$N$2I1N1:4,W$(T2(I))CO$;:I5(I5)43:4,W$(T2(N))D$N$!34:746Y3 AESTHETIC,AFFECTIONATE,AGGRESSIVE,ALOOF,AMBITIOUS3 AMIABLE,ANXIOUS,ARDENT,ARROGANT,ASSERTIVE3 BALANCED,CALM,CAREFUL,CATIVE,IMPATIENT,IMPRESSIONABLE,IMPULSIVE,INDECISIVE5 INDEPENDENT,INDIFFERENT,INDIVIDUALISTIC,INHIBITED,INSINCERER5 INTELLIGENT,INTROVERTED,IRRITABLE,LANGUID,LOGICAL5 LOQUACIOUS,LOYAL,MATURE,METHODICAL,NERVOUS5 ORGANISED,PASSIONATE,PASSISPACING,46Z MARGINS,5,PRESSURE,2,SPEED,2,ZONES,5,OVALS,2,T-BARS,7,I-DOTS,57d BEGINNING STROKES,2,CAPITALS,26728,160,160,160,160,64,0,0,0S729,10,10,10,10,10,4,0,0m730,0,0,0,0,0,0,64,64731,0,0,0,0,0,0,16,40733,0,00,14,18,32,99 08,08,12,04,06,2,3,1874,128,128,192,64,96,32,48,16875,1,1,3,2,6,4,12,8977,128,192,96,48,24,12,6,3,978,1,3,6,12,24,48,96,192G982,0,0,0,0,0,85,170,0i985,16,16,48,32,96,64,192,128994,6,10,10,18,18,18,18,129128,0,0,16,36, 0,199,0:139,64,64,88,100,72,88,135,0:140,40,40,40,40,40,48,223,0;141,0,0,84,106,74,74,137,0#;142,0,0,92,98,66,66,129,0A;143,0,0,28,43,82,98,60,0d;144,0,32,44,50,98,162,173,160;145,0,0,16,35,66,68,184,0;146,0,0,32,60,3 49,0<160,0,0,0,0,0,0,0,0<161,0,0,12,18,32,96,159,0<162,1,1,26,38,68,202,49,0=163,0,0,28,36,88,97,158,01=164,10,12,24,48,80,144,15,0O=165,1,0,0,8,24,104,134,0m=166,0,0,0,44,50,68,135,0=167,0,0,0,0,3,5,5,10=168,1,1 182,8,11,8,8,24,40,199,0>'183,0,0,0,0,0,0,63,0>(184,8,8,8,63,24,40,199,0?2194,0,0,3,13,18,38,217,0 ?3195,0,0,9,27,45,81,160,0>?4196,0,0,3,13,18,38,217,6]?5197,0,0,17,50,86,154,17,0~?6198,4,12,12,20,036,66,129,0?7199,0,0,16,5 A209,2,2,58,70,66,66,60,0@B210,16,0,16,48,80,16,12,0@C211,0,0,28,34,64,66,60,0AD212,0,0,28,34,66,68,56,0#AE213,0,0,44,114,34,34,65,0BAF214,0,0,28,36,120,66,60,0cAG215,16,126,16,16,16,18,12,0AO223,0,0,0,0,0,93,255,0AP224,0,088,96,96,159,0BY233,28,38,74,82,98,198,57,0BZ234,24,24,24,24,24,36,195,0B[235,18,18,34,34,34,34,28,0C\236,0,0,0,0,24,24,255,24_CXVERY RECLINED,RECLINED,LIGHTLY RECLINED,VERTICAL,LIGHTLY INCLINEDCZINCLINED,VERY INCLINED,IRREGULARCNGLEDDBOTH NORMAL,BOTH NARROW,BOTH WIDE,WIDE LT/NORMAL OR NARROW RTDNARROW OR NORMAL LT/WIDE RT,OTHEREHEAVY,LIGHT,MEDIUM,FAST,SLOW,MEDIUMGESYMMETRICAL,EXTENDED UZ,EXTENDED LZEBOTH UZ & LZ EXTENDED,BOTH UZ & LZ SHORT,IRREGULAREFm 5,4,39,40,41,44,67,4,39,43,44,46,71Fn 7,4,15,31,40,41,49,62,63,5,2,6,8,19,68,69Gp 7,2,8,23,24,37,56,69,70,6,2,8,23,26,38,56,68,3,7,14,16,74FGv 6,11,17,29,53,64,66,69,5,5,24,25,26,35,70lGx 3,26,39,54,73,5,7,26,39,54,73,74G 4,9,22,24,27,2,63,65,4,13,45,55,71,66,3,11,28,49,60H 6,14,16,31,34,47,70,72,5,14,31,34,35,63,73H 3,11,13,17,55,4,29,50,60,68,72#I 2,4,62,65,1,15,21,4,27,29,32,44,50,0,0PI 4,10,24,25,56,64,5,1,21,30,37,48,68,0,0I 8,1,3,5,10,22,25,30,38,70,8,11,12,13,18,72,2,26,33,35,1,57,58J 4,10,17,40,42,52,1,19,53,1,33,35K 3,11,13,17,55,2,14,73,74,0,35,2,17,52,59,2,15,21,39,4,20,35,36,42,47"K 3,5,9,10,27,0,40,2,11,30,634,10,24,25,56,64,5,1,21,30,37,48,68,0,0I 8,1,3,5,10,22,25,30,38,70,8,11,12,13,1&~ X 49152 49488 : Y: X,Y:H"":53280,0:53281,6:646,1q" 64 BUG REPELLANT INSTALLED": 32, 161, 192, 165, 43, 133, 251, 165, 44, 133 252, 160, 0, 132, 254, 32, 37, 193, 234, 177  251, 208, 3, 76, 138, 192, 230,6,68,131,0;147,0,0,12,24,36,68,187,0;148,8,127,8,8,24,40,199,0;149,0,0,66,66,66,70,185,0<150,0,0,67,66,66,164,24,0=<152,0,0,24,36,68,66,129,0\< 153,0,0,66,66,66,70,187,6{< 154,0,0,12,18,34,98,156,0< 155,1,1,26,38,68,202,,26,38,68,202,49,0=170,12,24,16,38,66,196,56,0=173,0,0,0,0,0,0,7,0= 176,0,3,0,0,0,0,0,0>!177,08,255,8,8,24,40,199,04>"178,0,192,0,0,0,0,0,0R>#179,8,30,8,8,24,40,199,0o>$180,8,8,8,8,24,40,199,0>%181,8,232,8,8,24,40,199,0>&6,73,138,12,0?8200,12,8,16,48,32,0,0,0?9201,0,0,0,0,1,3,2,6?:202,0,0,16,0,16,16,48,206@;203,0,0,0,0,16,16,48,206.@<204,8,0,0,0,16,16,48,206L@=205,0,0,1,0,16,16,48,206l@>206,0,0,128,0,16,16,48,206@?207,04,8,0,0,16,16,48,206@,0,0,0,93,255,0AQ225,0,0,18,18,18,164,219,0AR226,0,0,0,0,124,212,87,0AS227,0,0,1,1,205,147,238,0BT228,0,0,32,0,36,109,182,06BU229,0,0,0,0,190,170,201,0WBV230,28,34,66,66,66,67,62,10wBW231,16,46,34,66,66,130,1,0BX232,28,34,68,bSTRAIGHT,ASCENDING,DESCENDING,UNEVENClVERY LARGE,LARGE,MEDIUM,SMALLCvMOSTLY CONNECTED,MOSTLY UNCONNECTEDDxBOTH CONNECTED & UNCONNECTEDaDROUND,ANGULAR,ROUND & ANGULAR,ORIGINAL,LEGIBLE,ILLEGIBLE/MESSYDVERY WIDE,WIDE,MEDIUM,NARROW,TAMOSTLY OPEN,MOSTLY CLOSED,BOTH OPEN & CLOSEDEREGULAR,LONG,SHORT,ABSENT,LEFT,RIGHT,HIGH,LOWFPRECISELY PLACED,ABSENT,HIGH,RIGHT,LEFT,DASHEDPFMOSTLY ABSENT,MOSTLY PRESENT,BOTH ABSENT & PRESENTgFTALL,MEDIUM,SHORTFl 5,39,40,41,44,65,678,5,9,27,32,35,40,42G 3,18,55,61,68,9,1,13,18,21,22,29,41,45,58,71G 6,13,19,22,34,53,61,64,2,34,35,68,4,1,20,25,42,52&H 4,1,2,6,30,32,6,3,20,24,36,37,45,64SH 2,1,42,45,3,1,35,42,45,4,13,17,51,61,66uH 8,14,16,35,36,37,39,45,54,73H 2,48,29,48,57,58,62,0,0I 3,6,11,12,13,5,5,33,35,37,45,68,4,5,17,56,59,60I 5,5,33,35,37,45,56,3,18,23,59,60J 4,14,16,23,37,390J 5,13,15,41,46,63,71,3,17,43,51,59,1,51,69\J 3,11,12,13,66,3,24,36,47,64,2,21,57,63J 2,14,73,74,1,15,39,2,3,3 251, 208, 2:  230, 252, 76, 43, 192, 76, 73, 78, 69, 32j  35, 32, 0, 169, 35, 160, 192, 32, 30, 171  160, 0, 177, 251, 170, 230, 251, 208, 2, 230  252, 177, 251, 32, 205, 189, 169, 58, 32, 210  255, 169, 0, 133, 253, 230, 254, 32, 4, 2303  251, 208, 2, 230, 252, 76, 11, 192, 169, 153e  160, 192, 32, 30, 171, 166, 63, 165, 64, 76  231, 192, 96, 76, 73, 78, 69, 83, 58, 32  0, 169, 247, 160, 192, 32, 30, 171, 169, 3  133, 254, 32, 228, 255, 201, 83, 240, 6, 201  96, 32, 205, 189, 169, 13, 32, 210, 255, 32X  204, 255, 169, 4, 76, 195, 255, 147, 83, 67  82, 69, 69, 78, 32, 79, 82, 32, 80, 82  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6, 138 113,