KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 50 $VIC21,0:U014:UVIC,0:1.VIC23,0:VIC29,0:"":53280,0:I8I202642046462YBQ:I,Q::tL 0,16,0,0,40,0,0,84,0V 0,170,0,1,85,0,2,170,128` 5,85,64,2,170,128,5,85,64j 10,170,160,21,85,80,10,170,160t 21,85 (VIC5)127940S8,128(VIC5)910=856,0:VIC41,6:VIC5,127IS24,0{U05:E014:VIC39,E:VIC41,E:E,U:108053254,171:53255,200:53257,100:53256,171:2044,2042043,203:VIC21,1316VIC42,12:VIC43 8:S22,104:S23,1S24,79S4,129:DL1100::S4,128!&856,1;0I200251:53249,I:T:856,1:T$TI$:S4,0kDY3250:2040,Y:{NVIC21,254XS54272:S24,15:S5,85:S1,1:S4,17bDL1200::S4,16:DL1200::S4,0 93,230,211 192,198,207,0,0,3,0,06 3,255,255,254,127,255,252,0JI200:780:790j UI64I6463:Q:U,Q::yI201:780 2040,200:2041,200:2042,201:VIC53248*VIC21,6:VIC29,7:VIC23,74VIC2,136:VIC4,188>VIC4 :L1(1)30:H2(1)18:L2(1)209H1(2)33:L1(2)135:H2(2)25:L2(2)30FH1(3)42:L1(3)62:H2(3)31:L2(3)165oH1(4)50:L1(4)60:H2(4)37:L2(4)162H1(5)42:L1(5)62:H2(5)31:L2(5)165H1(6)50:L1(6)60:H2(6)37:L2(6)162S54272:S5,85: 51VIC(A2)1,0A11940 56321,0:53280,0 S24,0 53281,14, VIC21,0J A1(56321)16:A102020r " YOUR SCORE:"SC SCHSHSSC " BEST SCORE:"HS " WOULD YOU LIKE TO PRESS -FIRE- TO START0SB1024:CB54272SB:I039:SBI,160:CBI,7PSBI960,160:CBI960,7:`I096040SBI,160:CBI,7:SBI39,160:CBI39,7:A(56321)16:A1500"":VIC21,0: ---- YOU MADE IT !zAA4130!198,0:I130:"";:!" 0,0,56,0,0,248,0,10" 248,0,3,240,0,7,224,0O" 15,224,0,31,192,0,63,192l" 0,63,128,0,127,0,0,127" 0,0,254,0,0,252,0,0" 124,0,0,112,0,0,0,0" 1,192,0,3,224,0,3,224" 0,3,224 (""14);"":14);"INSTRUCTIONS"H2" YOU'RE ON A SKI VACATION AT THE MT.v<" KENDALL SKI LODGE. YOU FIND THAT YOUF" HAVE ACCIDENTALLY GOTTEN ON "(34)"DEADP" MAN'S SLOPE"(34)"!!!! YOU MUST USEZ" YOK ,80,42,170,168,0,56,0~ 0,56,0,0,56,0,5,85,642 42,128,168,0,0,0,0,0,0O 0,0,62,0,0,127,0,0,127h 0,2,62,0,4,28,0,24 127,128,24,255,192,45,190,96 71,62,48,130,62,80,0,62 56,0,190,16,4,118,8,6 54,4,3,54,2,1,182,0 ,10198,0:DL1400:=SB1024:CBSB54272:I1029:SBI160,160:CBI160,6ySBI880,160:CBI880,6::I422:WI40:SBW10,160CBW10,6:SBW29,160:CBW29,6:"PRESS FIREA$:A$""10 l""8);" YOU CRASHED! "v54276,04""13)"GAME OVER!":""13)"PRESS FIREXS4,0:S4,33:S5,85:S24,15zA1(56321)16:53280,(1)16SC((((300(T$))DI)2)):DI400SCSC500A((1)7)1:(VIC(A2)1)2 1,14:VIC40,14HVIC3,0:VIC5,0HRS54272:S24,15:S5,85:S6,85:S12,85:S13,86]\S4,33:S11,17f(VIC3)127VIC1,(VIC3):900pS1,128(VIC3):S8,128(VIC5)z870VIC,(VIC2):VIC21,5:VIC1,127:VIC39,6 S6,85:S12,85:S13,85 S24,15:S4,33:S11,17BX16:S,L1(X):S1,H1(X):S7,L2(X):S8,H2(X)[H1(X)50T1200:mT1200::XD024:SD,0:1920 ---- YOU CRASHED! ----856,0:S54272:S,240:S1,33:S5,  " PLAY AGAIN?! " Y / NH!*"  ^ \!4A41761:A51765e!>AA4x!HA1(56321)15!RA111AA4!\A17AA5!fA4,32:A5,32:A,30!pA1(56321)16:A12120 ----VIC11,0:2045,204T$TI$VIC21,252((VIC5)501560<"SP53251:U17J,U51600T6SP,0b@SPSP2:{J(VIC11)1501610T856,2^(VIC11)1791630h856,0r""9);"YOU MADE IT !!!|H1(1)25,0,1,192,0,0 #54276,0:54277,144:54276,33:54276,32:54278,144#54273,20!#9# 54276,0:54276,129P# 54273,0:54277,85V# e!>AA4x!HA1(56321)15!RA111AA4!\A17AA5!fA4,32:A5,32:A,30!pA1(56321)16:A12120 UR LIMITED SKIING ABILITIES TO'd" SAVE YOUR LIFE !!!!!!!!!!!!!!!!!!!Jn" THIS IS YOU:"Zx22);"t22);"":VIC53248VIC5,104:VIC4,170:2042,202:VIC41,0VIC21,5:2040,203VIC,235:VIC1,200"K  0,230,0,0,99,0,0,49 128,0,24,192,0,0,0,0: ---- INSTRUCTIONS ----^"":A1(56321)16:A101260i856,0 VIC23,0:V29,053281,6:I1227:1064I,160:1064I160,160:I1064106416040:I12,160:I27,160: 2)NA$::17)"E*N*D":720bV21,0:C$:d:4g: ***SPRITE LOGO***:i:slV21,30:V23,2:V29,28:V40,12:V41,11:V42,12vV43,15:V2,180:V3,100:V4,144:V5,104:V6,147V7,111:V8,142:V9,118::: ***NEXT PLAY * "":53281,1:53280,1:52,60:56,60N 120,169,73,141,20,3,169,3,141s 21,3,88,96,169,208,133,252,169( 3,133,251,162,1,160,0,177,2512 105,1,144,2,169,251,145,251,224< 7,240,8,232,230,251,230,251,24 F 144,234,173,1,220,41, :620:740 C4$14)"YOU THREW"B::18)"AND":SF$14)"B*R*O*K*E!!":C4$:720:TP(PP)TP(PP)B{&RS0:TH1:650:K19:VK,0::160(:+: ***WINNER STATEMENT***-:0BC,5:750:620:740:C4$5)NA$" WINNER IS..."::720:F$10)" (1)TI)) S53248:"" 53281,3E U10241063:U,160:U960,160e 54272U,6:54272U960,6: U10241984 40:U,160:U33,160:U39,160 U54272,14:54272U33,14:54272U39,14: 53281,1 U0142:UVIC,(U18): 2040 K:VW,L::730:RN:730:DN.A0:K8099:AA1:LK4304WA21:K101110:AA2:LK430i:L100A50A50BA:A$"YOU THREW A...":SN$"BULLSEYE!":480ARADBA3:A$"YOU THREW A TRIPLE":470ARBA2:A$"YOU THREW A *,252,201,220,208,22676,49,234,52& 0,0,63,254,0,31,255,255B63,254,0,127,0,0,254,0W0,0,0,0,0,0,0,0l0,0,0,0,0,0,0,00,0,0,0,0,0,173,21192,141,22,192,120,169,24,14120,3,169,192,141,21,3,8896,5,0,20,0,0,206,2 0,0,0,0,0,0,0,0  0,0,0,0,240,0,0,127& 0,0,63,254,0,31,255,255B63,254,0,127,0,0,254,0W0,0,0,0,0,0,0,0l0,0,0,0,0,0,0,00,0,0,0,0,0,173,21192,141,22,192,120,169,24,14120,3,169,192,141,21,3,8896,5,0,20,0,0,206,2 . T54296,15:54273,0:54277,85:54278,85:54276,129[ ^A$(1)"WHOA!!!!!!":G2:A$(5)"TOO FAST ! hI0:A((1)7)1:(VIC(A2)1)240I1 rA1(VIC30)1:A11790 |BR0856,G BR0((56321)16)0856,1:BR1:2280 BRDIDI1* N(20(0))1::: ***CENTER SUBROUTINE***":;H$:K115:D$;::A:`: ***BORDER SUBROUTINE***f:C$:CL,7:K10241063:K,S::K1024198440:K,S:K1063202340:K,S::K19842023:K,S:::: ***D 020)TI$"000009"""8);"SLOPE STEEPENING!ZTI$"000047"""8);"SLOPE STEEPENING!TI$"000012"""8);" "TI$"000050"""8);" "I03602040A,202&VIC(A2)1,0  ER/BOX SCORE SUBROUTINE***:8BC,5:750:620:TH1:RS0:PPPP1:PPZ680p740:C2$8)"PLAYER NUMBER"F$PP;:C2$"UP NEXT":720K19:VK,0::A$"":SN$"":B$"":C$:::C2$RO$4)" PLAYER NUMBER "25)" POINTS "::K1Z:CCK1: 15,201M P 11,240,7,201,7,240,16,76,49,234,173,0,208,201,32,240,246,206,0,208 Z 24,144,240,173,0,208,201,255,240,233,238,0,208,24,144,227,0,0,0,0,0 dU828921:Q:U,Q: n 828:5324821,0:VIC53248 x600 1260 856,2 X5(( PLAYER NUMBER"PP:%<:C4$8)"SEE FINAL SCORES? (Y/N)"8>K$:K$""574S@K$"Y"PPZ:NU1:650cAK$"N"580|BK$"Y"K$"N"574C740D:C5$RO$10)" PLAY AGAIN? "RF$" (Y/N)"NK$:K$""590SK$"Y":10XC$:740:C2$1 ,203! VIC28,34:VIC37,5:VIC38,59 U4047:VICU,5:I VIC21,255b I17:2040I,202:m "DI254| ,X150:DI0 6VIC,X:TI$"000000":A$(2)"FAST " @A$(3)"REAL FAST ":A$(4)"VERY FAST! " JA1(VIC30):I024:54272I,0: DOUBLE":470BA:A$"YOU THREW A SINGLE")SN$(A)]B$"FOR"(B)" POINTS":TP(PP)TP(PP)B:RSRSBTP(PP)GAK19:VK,0::560TP(PP)GAK19:VK,0::520THTH1:160:: ***BROKE STATEMENT***:BC,2:750 0,54,99,127,230,51 255,198,27,0,0,0,0,03 0,0,0,0,0,0,0,0I 0,0,0,0,0,0,0,0m 0,255,198,192,255,198,192,192 6,192,192,6,192,192,6,192 254,6,192,254,6,192,192,198 211,193,230,211,195,54,211,194 22,211,195,54,211,1 2192,208,61,173,21,192,141,22"192,173,33,208,41,15,141,20E192,160,0,132,251,169,216,133g252,238,23,192,173,23,192,411,170,177,251,41,15,205,19192,240,5,205,20,192,208,5189,19,192,145,251,200,208,234230,252,165 BR((56321)16)16856,G:BR0:54276,129:2310n DIDI1:"END OF SLOPE: "400DI" FT.";:DI4001520 TI$"000011"G3 TI$"000049"G4 20);"SPEED:";A$((856)); ""34)"TIME: ""33);""TI$" 54272,G3 ATA***:0,16,0,0,56,0,0,850,0,146,0,1,17,0,2;56,128,5,85,64,8,146,32[17,85,16,34,56,136,127,255y252,34,56,136,17,85,16,8146,32,5,85,64,2,56,1281,17,0,0,146,0,0,84 0,0,56,0,0,16,0,0 0,0,0,0,0,0,0,0  0A1(VIC30)1:A11790 :54272,(856)12)D360KN ---- OPENING SCREEN ----SX"ib 0,0,0,0,0,0,0,0l 0,63,198,3,127,230,3,192v 6,24,192,6,48,192,6,99 255,230,195,127,247,131,0,55 3,0,55,3,0,55,131,0 54,195, CL,CC:10)K;:26)TP(K)::7H$:K122:D$;::C4$RO$12)" PRESS ANY KEY "m198,0:198,1:198,0:RDRD1:PP0:NU1750:579v650|:: ***TIME DELAY SUBROUTINE***:T11500:::: ***RANDOM SUBROUTINE***:  "LOADING ML"HCK0:ML49152:IMLML525:DA:CKCKDA:I,DA:sCK74243"ERROR IN ML DATA LINES":~(198,42"LOAD"(34)"STAR SEARCH";<(34)",8";F631,13:632,82:633,117:634,13P Z 174,122,193,234,234,234,169 0AI(251)256(252)63830>I:63830O$" ":63870hV" ":631(198),13`"G63850":A631634:A,145::A,13:636,13:198,6aj"":A13:" "::"";tA(253)256(254)(2):63750~Q(43):U(44)"( : ***ENGLISH DARTS***":>: ***INITIALIZATION***D: C$(147):D$(17):H$(19):F$(144):RF$(146):RO$(18)C1$(28):C2$(30):C3$(31):C4$(156):C5$(158):BC53280 C6$(159):V53248:CL646:S102:NA$"*ENGLISH DARTS*" 151,224,165,141,41,3,172,80,195,153,81,195C 200,200,140,80,195,192,12,208,234,96"":"TO CONVERT MEMORY TO ""DATA STATEMENTS ENTER":"""INCLUSIVE DECIMAL":"MEMORY LOCATIONS"::"FROM"; O$13)" WHICH GAME? "::8)"301 "RO$" <1> ";H ZRF$" OR 501 "RO$" <2> ":e dK$:K(K$):K1K2100z nK1GA301:130 xGA501 RO$7)" NUMBER OF PLAYERS? "RF$" (1-7)" K$:Z(K$):Z1Z7140 650 : : ***SCREEN PRINT***  7,7,7,7,7,1,5,34,0,24,1,4: 5,0,120,173,21,3,201,234,208,13,169,0i 141,20,3,169,192,141,21,3,76,161,193,169 49,141,20,3,169,234,141,21,3,88,96,173 236,194,201,50,240,6,238,236,194,96,234,234 76,6,192,24,160,0,185,0,208,121,8od VMn 24554,((34576)15)Dx"PIC A.BMP",B1,P23552 P32575i"PIC A.CMM",B1,P33576 P34575SPRITE.OBIGPRINT'ALCHEMIST'SPLANETS.DEMO 53,104,145,251,204,123,193,208,234L , 236,126,193,208,221,238,126,193,232,32,37,193 6 173,128,193,201,0,240,20,172,123,193,136,200 @ 185,182,193,145,253,185,130,193,145,251,204,124 J 193,208,240,96,234,189,96,193,133,252,24,105T 212,1 93,200,189,122,193,170,32D 37,193,173,128,193,201,2,208,19,136,169,32y 153,130,193,173,33,208,153,182,193,204,123,193 208,239,240,16,136,177,251,153,130,193,177,253 153,182,193,204,123,193,208,240,236,125,193,240 37,202,32,37, P);: C6$RO$20)" # OF PLAYERS "RF$Z:740:K1Z:CCK1:CL,CCf RO$21)" PLAYER # "RF$K;:TP(K)::740 C4$1)A$::F$7)SN$::C4$4)B$: TH3720:K19:VK,0::650:160 198,0:720:C5$"PRESS "RO$F$""RF$C5$" TO TOSS" : ,0,141,236,194,32E d 179,193,188,122,193,140,129,193,174,126,193,232w n 202,32,37,193,172,129,193,173,127,193,201,2 x 208,10,169,32,72,173,33,208,72,76,54,192 177,251,72,177,253,72,204,124,193,240,20,200 177,251,72,177,253,136,145,2Q4256U)13163900UQ1(Q256U):U1(Q1256U):QQ1:UU1:63880oPQ256U:P,0:P1,0"""TYPE LIST TO SEE DATA"""I))","AI(251)256(252)63780(A$,2,(A$)1); :A$"":SN$"":B$""? (RD1:53281,1:BC,9:K062:A:832K,A:r 2K062:A:896K,A::K4915249245:A:K,A: <4915219,0:2041,13:2042,14:2043,14:2044,14:49152 >: A: ***BILLBOARD*** C: F750:620:::F$12)NA$:740) PC2$R A6:"TO";C::"BYTES PER LINE";B[CC256:251,(C(C))256:252,Cj2,B:"";BA256:253,(B(B))256:254,B :((A),2,((A))1);"DATA ";I0(2)1A$((AI))","AI(251)256(252)63780(A$,2,(A$)1); :B BC,1:H$RO$" "NA$" ":* -11- AND -8- SPACESe C5$RO$" PLAYER NUMBER "RF$PP; C3$RO$20)" DART NUMBER "RF$TH C4$RO$" ROUND SCORE "RF$RS; C1$RO$20)" ROUND NUMBER "RF$RD C2$RO$" CURRENT SCORE "RF$TP(P 1,195% 153,0,208,200,200,192,4,208,241,173,0,208R 201,55,208,3,32,242,193,56,160,0,185,4 208,249,85,195,153,4,208,200,200,192,8,208 241,162,20,160,0,200,208,253,202,208,250,234 234,234,234,234,234,96,160,0,140,80,195,32 6(@V40,11:K4143:VK,CC::V2,255:V3,90SJL90110:VQ,30:VW,L:(198)1370eTT110:T:L^L110901:VQ,30:VW,L:(198)1370hT110:T:L:330rK19041923:K,32::VQ,0:VW,0:198,0:V21,G|K30Y:VQ, 33,254,189,71,193,133,251,133,253,96,72K^ 152,24,105,40,168,104,96,72,152,56,233,40zh 168,104,96,0,40,80,120,160,200,240,24,64r 104,144,184,224,8,48,88,128,168,208,248,32| 72,112,152,192,4,4,4,4,4,4,4,5 5,5,5,5,5,6,6,6,6,6,6,6 193,172,124,193,200,136,177,251I 72,177,253,32,55,193,145,253,104,145,251,32~  63,193,204,123,193,208,234,236,125,193,208,221  240,46,202,206,126,193,232,32,37,193,172,124  193,200,136,32,55,193,177,251,72,177,253,32 " 63,193,145,2  : ***THROW SEQUENCE*** :F K16641683:K,32::K17441763:K,32:| K18241843:K,32::TH1Q4:W5:Y215:G6:300 TH2Q6:W7:Y211:G14:300 "TH3Q8:W9:Y219:G30 ,V21,G:V23,2:V29,28:K1Z:KPPCCK1:320 53,104,145,251,200B 204,124,193,208,238,240,18,136,177,251,72,177x 253,200,145,253,104,145,251,136,204,123,193,208 238,173,127,193,201,0,208,5,104,104,76,115 192,104,145,253,104,145,251,236,125,193,208,160 96,234,234,172,124,1  PLANETS HI RES GRAPHIC3 BY DOUG GANNONK 0,1:1,2:3,1:4,1T1,1aS1180r( PLOT STARS2SY((0)159)<SX((0)319)F1,SX,SY:SP DRAW FORGROUNDZ1,6dY1601993n1,160,1600,Y:YxX0319107,8F,FF,FB,005,FF,18,A5,D1+ 65,FF,85,D1,90,03,E6,D2,18,A5, F3,65,FF,85,F3,90,02,E6,F4,B8A,( 60,85,FF,38,A5,D1,E5,FF,85,D1e,2 B0,03,C6,D2,38,A5,F3,E5,FF,85,< F3,B0,02,C6,F4,B8,60,A2,0F,DD,F DA,E8,D0,13,8A,A6,70,F0,09,95,P 6D|" HI RES LOADER FOR THE C128> BY MORTON A. KEVELSONEd1]n0:"PLANETS.BMP"oxA((8168))1x4,A 01,8D,0E,DC,60,85,FF,18,A5,D1+ 65,FF,85,D1,90,03,E6,D2,18,A5, F3,65,FF,85,F3,90,02,E6,F4,B8A,( 60,85,FF,38,A5,D1,E5,FF,85,D1e,2 B0,03,C6,D2,38,A5,F3,E5,FF,85,< F3,B0,02,C6,F4,B8,60,A2,0F,DD,F DA,E8,D0,13,8A,A6,70,F0,09,95,P 6D MICKEY MOUSE7 MULTICOLOR DEMO FOR THE C128L BY DOUG GANNONi 0,2:1,1:2,8:3,3:4,2r3,11,38,33,22,33(1,122,33,22,3321,80,109,41,70,250,110<1,68,152,32,35,183,334F1,92,152,32,35,26,177P1,80,170,18,~ CA,10,F3,48,88,10,ED,A2,07,68* 95,61,CA,10,FA,A5,01,09,04,85%* 01,A9,00,85,6C,18,A5,BE,65,CEI* A8,A9,04,85,6D,A6,6C,A9,00,36m* 61,2A,36,61,2A,36,62,2A,36,62* 2A,85,FF,A5,BF,29,04,F0,13,A6* FF,F0,1B,B1,D1,A2,0F,DD,5F,C3* ,30,55,118,242&1,60,152,12,20,290,358@1,100,152,12,18,2,70[1,80,160,35,38,332,28v1,80,160,13,22,90,2701,76,178,8,9,310,701,86,178,8,9,325,351,80,137,12,121,79,134,6,41,30,187,30,20,90,200"1,130,187,35' BF,C6,D7,D0,03,4C,F4,C2,4C,57 ( C1,A2,07,DD,4F,C3,B0,03,CA,D0-( F8,5D,57,C3,05,CF,A2,00,86,6BQ( 0A,26,6B,0A,26,6B,0A,26,6B,65u( FD,85,6A,A5,6B,65,FE,85,6B,A5($ 01,29,FB,85,01,A0,07,B1,6A,99(. 61,00,88,10,F8,24,BF,50,14,A2 BY MORTON A. KEVELSON3 HAVE SAVE DISK IN DRIVEO WHEN RUNNING THIS PGMj15:A(("D020"))15v8168,A"PLANETS.BMP",B0,P7168 P161910XRR:Y DRAW SOUTHERN LATITUDINAL LINESR2:XR71RY9012612 COLOR BIT MAP SAVE  FOR THE C1289  BY MORTON A. KEVELSONV 15:A(("D020")) 15n B(("D021")) 15~ &0:8168,A 08169,B :"MMOUSE.BMP",B0,P7168 P16383 D15 N(("D01A")),(("D01A"))254 X1,(1)254!b"MMOU1,160,160X,199:X'Y1991603?1,319,Y160,160:Ye DRAW NORTHERN LATITUDINAL LINES{1,10:R32:XR9RY3078121,158,Y,XR,5RR2:XRXRR:Y DRAW SOUTHERN LATITUDINAL LINESR2:XR71RY9012612  ! MULTICOLOR BIT MAP LOADER> FOR THE COMMODORE C128Z BY MORTON A. KEVELSONc 3,1"MMOUSE.BMP",B0,P716815((("D01A")),(("D01A")) 25421,(1) 254<"MMOUSE.CMM",B15,P55296A1,(1) 1F(("D01A")),Q(("D01A")) 1(P15:A((8168)15)1=ZB((8169)15)1Kd0,B:4,ASPRITE.SSPRITE.OBIGPRINT'ALCHEMIST'SPLANETS.DEMO,8A,0A,29,03,85,70,60,85,6E,Z 85,6F,60,CA,10,E5,60,00,20,40-d 60,80,A0,C0,FF,80,00,40,20,40=-n C0,80,A1,20,6C,7B,62,7C,E1,FFa-x FE,7E,7F,61,FC,E2,FB,EC,A0,D5- 55,C9,49,CC,D2,CF,4F,C3,40,00- 20,00,10,08,04,00,00,E7,A7,E7- C7,928,105,255Z1,68,96,8,24,d1,92,96,8,24?n1,68,105,4,12Rx1,92,105,4,12k1,66,80,9,20,270,251,94,80,9,20,335,901,58,92,10,34,213,3401,102,92,10,34,20,1471,65,80,15,29,310,801,95,80,15,29,280,50 1,80,109 F0,05,CA,10,F8,30,0D,8A,05,FF* AA,BD,5F,C3,91,D1,A5,6E,91,F3!+ C8,C6,6D,F0,02,D0,C2,A6,6C,E0E+ 06,F0,0C,E8,E8,86,6C,98,18,69i+ 24,A8,4C,8B,C2,C6,D7,F0,11,98+ 38,E9,78,85,BE,A5,6E,A6,6F,85+ 6F,86,6E,4C,57,C1,AD,0E,DC,09+  0,20,140,270 ,1,32,200,37,40,75,90=61,128,200,37,40,270,285K@1,77,199YJ1,42,109gT1,80,147u^1,80,165h3,65,198,1r3,95,198,1|3,80,175,11,40,331,120,331,68,1051,92,1052,70,152,1  MULTI(8 00,A0,03,B5,61,48,B9,65,00,95)B 61,68,99,65,00,E8,88,10,F0,A9))L 20,24,BF,F0,0F,A2,07,A0,08,16M)V 61,6A,88,D0,FA,95,61,CA,10,F3q)` A9,10,24,BF,F0,03,B8,50,07,4A)j 24,BF,F0,1F,69,7F,A0,07,A2,07)t 70,05,56,61,6A,50,03,16,61,2A) # KOALA TO MULTICOLOR BIT MAP@ CONVERTER FOR THE C128\ BY MORTON A. KEVELSON( PUT FILE TO BE CONVERTED ON SAVE DISK2"?PIC A*",B1,P24576< USE YOUR FILE NAME IN LINE 50F 1P VM 0 999Z 23552VM,(32576VM)YSE.CMM",B15,P55296 P56319!!l1,(1) 1C!v(("D01A")),(("D01A")) 1K! 0,42,109gT1,80,147u^1,80,165h3,65,198,1r3,95,198,1|3,80,175,11,40,331,120,331,68,1051,92,1052,70,152,1  MULTI1,158,Y,XR,5 RR2:XRXRR:Y> DRAW LONGITUDINAL LINESUR2:XR72R:I18i1,158,78,XR,62~"RR2:XRXRR:I, DRAW STAR61,7@1,40,30,20,18J1,40,30,1 HIGH RES BIT MAP SAVE ROUTINE FOR THE COMMODORE 128 $(1)SA$:X$(2)"FLASHING":X1tX3X:BP,X$(X),10,4:I1150:3~A$:A$""1140CA$RT$130hCM$"ALTERNATING COLORS 1":1720X$(1)"":X$(2)"":X1:CA$"ALT COLORS"X3X:BP,X$(X)CA$,10,,,".":I1150:A$:A$""1190A ,90,02,F0# C1,20,F8,A8,20,24,C1,68,85,D2$ 68,85,D1,60,85,FF,20,15,C1,90=$ 0C,F0,0A,20,FD,AE,20,79,00,C9a$ 2C,D0,03,A2,00,60,20,9E,AD,24$ 0D,30,0D,20,A1,B7,E4,FF,90,05$  A2,0E,4C,37,A4,60,A2,16,4C,37$ A4,A0,01,B1,7A,C9,AC,F "4)" RETURN EXITS TO MAIN MENU ";=J0:I13:CB$(I)"":1020::1050NK4:J0K5JJJK:CB$(I)CB$(I)((BCJ))" ":J0J1:MS$RT$UL$:CM$"A STANDARD MESSAGE":1720:BP,"HELLO!",10,8$1730:A$RT$130 0,04,A5,D6,B0!N 06,A9,16,20,D6,C0,8A,48,20,05!"X C1,90,15,A5,D3,AA,C9,28,90,05E"b E9,28,B8,50,F6,A9,25,85,FF,20i"l F6,C0,90,05,A9,25,20,D6,C0,86"v FF,68,AA,20,F0,E9,18,A5,D1,65" FF,85,D1,90,02,E6,D2,20,24,EA" A9,21,20,D6,C0,86,CG$C$:D2$""CG$C$:D3$""CG$C$:D4$""CG$C$:646,CC=BX$""C1$(CM):646,CCyBP,D1$,9,4,,46;D2$,15,4,,46;D3$,9,32,,46;D4$,15,32,,46810UL$AC$"":I123:UL$UL$""::MS$""(UL$,8)BG$"":G1$"":I14:G1$781,I:CL:: NS((23(CM$))2):""MS$(S8$,NS)CM$S8$:! A$:A$""1730' K I2401:781,I:CL::"";:Z CV0IV1k CV15IV1 CVCVIV:CV$((CV),2):  105,1024,1264,223,1184,1205,1845,1984,233,1202,1223,1842,20234)"SPACEBAR CYCLES DISPLAY OPTIONS"G3)" RETURN EXITS TO MAIN MENU ";BX$""(DN$,6)AC$(AC$,3):SM$" PRESS A KEY TO BEGIN"BX$""SM$""""AW$RT$""AW$:X:X9999800 X1024PX:770X,P:AGE":1720:MM$"MOVING"I617:BP,MM$,I,8:781,I1:CL:J1100::0(198)01580e"I1661:BP,MM$,I,8:781,I4:CL:J1100::y,A$:A$""15506A$RT$130@B5:E20:1710JCM$"A JUMPING MESSAGE":1720TJ$(1)"JUMP(10X)):X.Y.1360 ZBP,(X),6,14;(Y),11,14;"+",9,12;"",15,124dA$:A$""1380EnA$" "1470UxA$RT$130mA$"0"A$"9"1380BP,A$,17,18:(A$)XY1440BP,"NO.._",17,5,,46:CM$"SORRY - TRY AGAIN?":1720:1460BP2C,11%f D0,10,FB,A4,69,C8,84,69,B1,FB&p C5,9E,D0,09,A5,BF,49,80,85,BF5&z 4C,E1,C1,B8,C9,12,F0,35,C9,92Y& F0,37,C9,0E,F0,39,C9,8E,F0,39}& C9,91,F0,3B,C9,11,F0,3B,C9,1D& F0,3B,C9,9D,F0,3E,20,31,C3,10& 50,24,BF,10,56,C9,C1,F0,38$RT$130CM$(CM$,19)"2":1720!X$(1)"..":X$(2)".."MX3X:BP,X$(X)CA$,10,,,".":I1150:aA$:A$""1240qA$RT$130B10:E14:1710CM$"STANDARD COUNTER":1720:CV15 1760:BP,CV$,10,15:I1175::A$:A$"" 0,02,18$  60,20,FD,AE,4C,73,00,20,79,00%* F0,08,49,3A,F0,04,C9,01,38,609%4 18,60,A9,00,85,BF,AE,86,02,86]%> 6E,86,6F,85,FD,AD,18,D0,29,02%H 0A,0A,09,D0,85,FE,AD,0E,DC,29%R FE,8D,0E,DC,A0,FF,84,69,C8,84%\ CF,84,BE,A5,CE,20,17,C3,!.CM$"A MULTI-COLOR MESSAGE":1720:BP,"..HELLO!",10,8,,"."781730:A$RT$130\BCM$"MULTI-COLOR REVERSED":1720LBP,"..HELLO!",10,8,,".";"..",6,8,,"."V1730:A$RT$130`CM$"A FLASHING MESSAGE":1720:781,9:CLjXCE,20,15,C1" 90,35,D0,0D,A9,00,85,9E,20,24# C1,20,73,00,4C,09,C0,20,FD,AEA# 20,9E,AD,24,0D,30,08,20,A1,B7e# 86,9E,4C,BB,C0,A0,00,B1,64,F0# 0E,C8,B1,64,85,FD,C8,B1,64,85# FE,A0,00,B1,FD,85,9E,A5,64,A4# 65,20,DB,B6,20,15,C1G1$("GOOD",I,1)BG$:9BG$"":G2$"":I14:G2$G2$("GOOD",I,1)BG$:k53280,2:""7)" BIG PRINT DEMONSTRATION "}7)(BT$,25)DN$(DN$,8)4)"Ƣ"4)" SPACEBAR CONTINUES THE DEMO ! 95,1063,1303,249,1403,1404,248,1523,1524,9999%! A5,D1,48,A5,D2,48,20,FD,AE,20I! 9E,AD,24,0D,30,05,A2,16,4C,37m!& A4,A0,00,B1,64,D0,06,20,F8,A8!0 4C,CF,C0,85,D7,C8,B1,64,85,FB!: C8,B1,64,85,FC,A5,64,A4,65,20!D DB,B6,20,05,C1,9(X1024)55296,.:770 C$"1":CM1:CG$C2$(CM):FT02*B$:B$RT$130Q4B$""B$" "C$B$:890p>B$" "FTFT1:FT1CM0HB$" "CMCM1(6(CM6)):880R(653)4810\CC0CC1fCC(CC1)15:890pCG$C2$(CM)"zD1$ING":J$(2)"JUMPING":WH1*^WH3WH:I10144:781,I:CL::BP,J$(WH),10,3,19hI1100:MrA$:A$""1630]|A$RT$130wB10:E14:1710:1050K4:J0K5JJJK:CB$(I)CB$(I)((BCJ))" ":J0J1:IBE:,G1$,5;G1$,5,36 CM$"CORRECT - TRY AGAIN?":1720A$:A$""14601B5:E20:1710BA$"Y"1350RA$RT$130mCM$"COLOR BARS":1720I13:BP,CB$(I),(I5)1,6,2,46:1730:A$RT$130B5:E21:1710CM$"A MOVING MESS,A2& 08,DD,6F,C3,F0,37,CA,10,F8,30 ' 46,A9,80,85,CF,50,36,A9,00,851' CF,50,30,A9,D8,50,02,A9,D0,85U' FE,50,26,A9,28,50,0D,A9,28,50y' 02,A9,01,20,FD,C2,50,17,A9,01' 20,17,C3,50,10,A9,01,85,70,D0' 0A,A5,BF,1D,78,C3,3D,81,C3,81290A$RT$130CM$"COUNTER WITH OVERLAY":1720:CV15U(1760:BP,".."CV$,10,15,,".":I115::BP,CV$,10,15t2I1175::A$:A$""1320<A$RT$130FCM$"WHAT'S THE ANSWER?":1720:I1014:781,I:CL:PX((.)10):Y((.) L    64 `nnnnmm`JJJFf))8@ 9ee 9m # (49152)165(50056)25180e53280,0:53281,1:" 30 SECONDS FOR ML SET UP...."z""20);:204,0(A:A9999402H64:L48:S7:X16:N1<I4915250057:A$:A(A$):B((A$,N)) FPX((AL)S(AH))BLS(BH):I,P:  BIG PRINT FUNCTIONS "% 9)(BT$,21)Z ""4)TP$4)" PLEASE CHOOSE ANY OPTION BELOW " D$" [D] DEMONSTRATION ":V$" [V] VIEW CHARACTERS " Q$" [Q] QUIT ":S$" [S] SAVE ML PROGRAM " T2$S8$(TP$,25)S8$ 70,13,32,210,255,76,180,13,32,170,13,32,228,255,76,180,13,32g"^ 170,13,32,186,255,76,180,13,32,170,13,32,189,255"h 76,180,13,32,170,13,32,192,255,76,180,13,32,170,13"r 32,201,255,76,180,13,32,170,13,32,204,255,76,180,13,32,170 #| 13,32,195,"UP10:M$Q$:510 "A$"V"250* ,UP4:M$V$P 6(UP$,UP)8)""(TP$,25)8)M$""| @I1UP1:::(UP1)3520,510,520,930 JB0:E24:1710 T""11)" SAVE ML PROGRAM "RT$11)(BT$,17) ^10)(DN$,8);:"FILE NAME BIGPRINTML,76,73,13,96,32,98,13,165,211X  234,41,1,208,249,96,32,89,13,169,13,32,98,13,32,152,13,169,4  76,161,13,147,83,67,82,69,69,78,32,79,82,32,80,82,73,78,84,69 " 82,32,63,32,0,76,44,13,234,177,251,201,32,240,6,138,113,251,69%!, 254,170,138,76DV$"N"130"""20)" "(TP$,(NM$))>10)"VERIFYING.. "NM$k147,1:57812 NM$,DV,1:62631:ST64490AC$"VERIFY ERROR - TRY AGAIN [Y/N?]"A$:A$"Y"330A$"N"130460I015:646,I:BP,"-OK-",3,12:J150::4,165,253,160,0,76,13P 13,133,253,177,251,208,237,165,253,41,240,74,74,74,74,24 105,65,32,98,13,165,253,41,15,24,105,65,32,98,13,169,13,32 220,12,230,65,208,2,230,66,230,251,208,2,230,252,76,11,12 169,153,160,12,32,80,13,166,65,165:ЍЩЩ 'Щ>ЩЩ"ТɎL.ieif` !e  LHH i ihhЮefР` Э Э ݭ) ݩ@ ERTED ":C2$(2)".."80C1$(3)" UPSIDE DOWN":C2$(3)".."l:C1$(4)"UPSIDE DOWN AND INVERTED":C2$(4)".."DC1$(5)" ROTATED LEFT ":C2$(5)".."NC1$(6)" ROTATED RIGHT ":C2$(6)".."XAW$AC$AC$""ACiee8*` . . .ieif` !e  LHH i ihhЮefР` Э Э ݭ) ݩ@ :204,1/ PRT$(13):BP49152:CL59903:BC59610j ZTP$(164):BT$(183):I15:TP$TP$TP$:BT$BT$BT$: dTP$TP$RT$:S8$" ":UP$"" nAC$"":DN$"" xSA$S8$" " 53280,0:53281,1:1750 ""9)" ""T2$D$""8)T2$Q$, ""T2$S$""8)T2$V$P UP$:I114:4)" "30)" ":h 4)""S8$S8$S8$S8$ UP$""AC$""28)"":DN$AC$"ߒ"20)S8$"" A$:A$""250 A$"D"A$RT$UP13:M$D$:310 A$"S"UP7:M$S$:330 A$"Q_255,76,180,13,133,67,169,0,141,0,255,165,67,96M# 133,67,169,0,141,1,255,165,67,96,0,0,0165,250,208,218,177!@ 251,201,32,208,212,198,254,76,29,13,0,169,13,76,98,13,0,0,32!J 170,13,32,226,85,76,180,13,32,170,13,32,50,142,76,180,13,320"T 1";NM$< h10)"";:"DEVICE... 8";DV$:DV(DV$):NM$(NM$,16)Z r""20)" "(TP$,(NM$))x |AC$AC$"NOW SAVING "NM$ DV$"N":DV7DV12DV$"Y":1,DV,15,"I0":1,"S0:"NM$:1 57812 NM$,DV,1:193,0:194,192:174,138:175,195:62957,88,12,0,0,0,0,230,251,208,2,230,252,96,170,177g!6 251,201,34,208,6,165,250,73,255,133,250,165,250,208,218,177!@ 251,201,32,208,212,198,254,76,29,13,0,169,13,76,98,13,0,0,32!J 170,13,32,226,85,76,180,13,32,170,13,32,50,142,76,180,13,320"T 1 :646,01308B0:E24:1710:BP,"BYE!",8,12:""DN$"RUN":nLN$"":I126:LN$LN$""::CS$"CHARACTER SET"H1$""RT$:H2$"":IM$" IMAGE "RT$C1$(1)" STANDARD CHARACTER " &C1$(2)" INV,66,76,231,12,96,76,73,78T 69,83,58,32,0,169,247,160,12,32,80,13,169,3,133,254,32,107 13,201,83,240,6,201,80,208,245,230,254,32,98,13,169,4,166 254,160,255,32,116,13,169,0,133,65,133,66,133,250,32,125,13  32,134,13,166,254,32,143,13 ":6)" "LN$" "2""14)H1$14)" REGULAR "RT$14)IM$14)H2$n""14)H1$14)" REVERSE "RT$14)""IM$14)""H2$" "(LN$,24)"":3)""32)""3)""32)"";"":4)" CTRL CHANGES CHARACTER COLOR"$AC$""RT$AC$AC$"߸"AC$AC$""Hb1750:9)" VIEW LARGE CHARACTERS "]l9)(BT$,23)""vI121:19)" "::" UPPER/GRAPHICS";7)"UPPER/LOWER CASE":2)CS$8)CS$""" "LN$" ";6)" "26)"荧  Х))ܥ)aЅbcdacbdac  ܩ\+H IhiiL@ S !ee 4 53280,6:53281,6:TB$(150):""(14):DI8:C1q8,DI,8,": DIRECTORY ":15,DI,15:15,EN$,ED$,ET$,ES$8,DN$:EN$"00"8:15:310(8,TB$(C):ST66702((TB$(C),1))10TB$(C)(TB$(C),(TB$(C))1):50<CC1:40* F8:15:MAHOY! MAY 86 2A 128 BUG REP 128 STARTUP 64 BUG REP ALCHEMIST'S BIGPRINT ENGLISH DARTS FAILSAFE FREE RAM CHECK KOALA TO MCBMP MENU C-64 SKI FOLLY SPRITE LOADER SPRITE.O STAR SEARCH STAR SEARCH BOOT  STAR SEARCH BOOT  A):T9A$(T55):530 A$(T48)*A$;:ACACAT:AA$"**SAVE**":585W1,T,1,A$:680:1c!ST0v&400:T8420+5350A$"**LOAD**":58551,T,0,A$:690:1:ST64195?405:T8420D560I" ":14)A$N "d X 49152 49488:Y:SSY:n Y0 Y255 130Kx X,Y::140"**ERROR**":"PLEASE CHECK LINE"(64)256(63): S44677 "**ERROR**":"PLEASE CHECK DATA LINES 170-500":"":53280,0:53281,6:646,1 " C-6154Z$"":8,DI,8,": DIRECTORY ,S,W":8,DN$_A1C1:C$Z$:B1C1:C$TB$(B)490qC$TB$(B):DB:8,C$:TB$(D)Z$::8::10" "A$ T#8,A$:DN$DN$A$:#8,A$:C1 ^A14:#8,A$::PN$"":TY$"" h#8,A$:ST,230,251,208,2,2308 252,177,251,32,205,189,169,58,32,210a 255,169,0,133,253,230,254,32,37,193 234,165,253,160,0,76,13,193,133,253 177,251,208,237,165,253,41,240,74,74 74,74,24,105,65,32,210,255,165,253  41,15,24,105,65,32,210, 68,DI,0,"$0":C18:#8,A$::C1:DN$"":C116b @#8,A$:DN$DN$A$::#8,A$:#8,A$:DN$DN$" ":#8,A$ JDN$DN$A$:#8,A$:DN$DN$A$:#8,A$:#8,A$:DN$DN$" "A$ T#8,A$:DN$DN$A$:#8,A$:C1 ^A14:#8,A$::PN$"":TY$"" h#8,A$:ST80,208,245,230,254,32,210,255,169,4E h166,254,160,255,32,186,255,169,0,133l r63,133,64,133,2,32,189,255,32,192 |255,166,254,32,201,255,76,73,193,96 32,210,255,173,141,2,41,1,208,249 96,32,205,189,169,13,32,210,255,32 204,255,169,A$:A$""160 (A$)132608 A$""240:" F1 ******U A$""300:" F3 ****** A$""53280,3:"RUN"::" F5 ****** (A$)20B$"":" ":B$"":160 A$"0"A$"9"(B$)3160 B$B$A$:""B$:160 Ch255,133,2,165,2,208,218,177,251,201?32,208,212,198,254,76,29,193,0,169X13,76,210,255,0,0,089,255,32,192 |255,166,254,32,201,255,76,73,193,96 32,210,255,173,141,2,41,1,208,249 96,32,205,189,169,13,32,210,255,32 204,255,169,C1:TB$(C)"":L1$"":C140:L1$L1$" ":> PL1$L1$"":A1q Z53281,1:"";:C14:L1$;::C12:""L1$;} _:""; d7)"IRECTORY SSISTANCE V64"11)" "; i" "12)" (C) ON NT'L NC. "59)""DN$8)L4d%: X 3072 3520: Y: X,Y:SSY:110::&}n&: S49057 "**ERROR**":"PLEASE CHECK DATA LINES 140-390":x" C-128 BUG REPELLENT INSTALLED"" TYPE SYS 3072 TO ACTIVATE"  32,161,12,165,45,133,251,165,46,133,252,160,H STAR SEARCH BOOT  SKI FOLLYFREE RAM CHECKSPRITE LOADER DIRECTORY 4 BUG REPELLENT INSTALLED "H 32,161,192,165,43,133,251,165,44,133q 252,160,0,132,254,32,37,193,234,177 251,208,3,76,138,192,230,251,208,2 230,252,76,43,192,76,73,78,69,32 35,32,0,169,35,160,192,32,30,171 160,0,177,251,1705:A$"/"A$":"T(A)(A$)48:$T(A)16:7 ADRESS CHECKFADEN385YBSRBEN390B256(B40960B49152)B53247395 ADDRESS TO HEXACAD:A4096:520A256:520A16:520A1:520T(AC255,169,13, "32,220,192,230,63,208,2,230,64,230U ,251,208,2,230,252,76,11,192,169,153} 6160,192,32,30,171,166,63,165,64,76 @231,192,96,76,73,78,69,83,58,32 J0,169,247,160,192,32,30,171,169,3 T133,254,32,228,255,201,83,240,6,201 ^0450 rA$""450|(A$)34360B#8,A$:(A$)34PN$PN$A$:390[#8,A$:(A$)32400}TY$TY$A$:#8,A$:A$""410(TY$,3)"PRG"350(PN$,1)" "350TB$(C)PN$:CC1:ST03508:15,DI,15,"S: DIRECTORY ": 4,76,195,255,147,83,67/ 82,69,69,78,32,79,82,32,80,82R  73,78,84,69,82,32,63,32,0,76{ 44,193,234,177,251,201,32,240,6,138 113,251,69,254,170,138,76,88,192,0 0,0,0,230,251,208,2,230,252,96 170,177,251,201,34,208,6,165,2,73MA1:90 AC:90B (B$)M"???":C11500::A$(20):210 53281,6:53280,14:"LOAD"(34)TB$((B$))(34)",8,1"  PRINTRIGHT$(STR$(DI),LEN(STR$(DI))-1) """:198,4:631,13:632,82:633,213:634,13: ,"WAIT"(0,132,254,32,37N 13,234,177,251,208,3,76,138,12,230,251,208,2,230,252,76,43 12,76,73,78,69,32,35,32,0,169,35,160,12,32,80,13,160,0,177 251,170,230,251,208,2,230,252,177,251,32,89,13,169,58,32,98 13,169,0,133,253,230,254,32,37,13,231$;< xCAA14:""(" "(C),5)" "TB$(C)29(TB$(C)));T " ";::L1$;x A12:""L1$;::(L1$,40)"" 9)"1 = CONTINUE LISTING"19)"3 = CREATE DIRECTORY"; 19)"5 = EXIT PROGRAM":2023,160:56295,6:198,0:B$"" A U_Pl AHOY! MAY862AMENU C-6464 BUG REP 128 BUG REP DIRECTORY SPRITE.OBIGPRINT'ALCHEMIST'S DIRECTORY KKPLANETS.DEMOLOADMMOUSE.DEMO MMOUSE.DEMOLOADKOALA TO MCBMPFAILSAFE 128 STARTUPSTAR SEARCH STAR SEARCH BOOT KK ENGLISH DARTS SKI FOLLYFREE RAM CHECKSPRITE LOADER DIRECTORY KKKKKKKKKKK * *sprite * org $9000 * * color equ $e0 * tablen equ $800 maplen equ 1000 scrlen equ 8000 sp0adr equ $8000 colmap equ $8400 newadr equ $8800 * sprptr equ $87f8 spena equ $d015 sp0col equ $d027 sp0x equ $d000 sp0y equ $d001 msigx equ $d010 yxpand equ  a * mvsrce equ $61 mvdest equ mvsrce+2 bytptr equ mvdest+2 * tabsiz equ $02a7 * hpsn equ tabsiz+2 vpsn equ hpsn+2 char equ vpsn+1 row equ char+1 line equ row+1 byte equ line+1 bitt equ byte+2 * mprl equ bitt+1 mprh equ mprl+1 mpdl equ mprh+1 mpdh equ mpd 18,5 dfb 32,54,52,0 * *blockfillroutine * blkfil lda filval ldx tabsiz+1 beq partpg ldy #0 fullpg sta (tabptr),y iny bne fullpg inc tabptr+1 dex bne fullpg partpg ldx tabsiz beq fini ldy #0 partlp sta (tabptr),y iny dex bne partlp fini r tine * *row=vpsn/8(8-bitdivide) * plot lda vpsn lsr a lsr a lsr a sta row * *char=hpsn/8(16-bitdivide) * lda hpsn sta tempa lda hpsn+1 sta tempa+1 ldx #3 dloop lsr tempa+1 ror tempa dex bne dloop lda tempa sta char * *line=vpsnand7x sta mpdh jsr mult16 lda mprl sta tempa lda mprl+1 sta tempa+1 * *addproducttobase * clc lda #base adc tempa+1 sta tempa+1 * *multiply8*char * lda #8 sta mprl lda #0 sta mprh lda char sta mpdl  tempb+1 * *pokebyte,peek(byte)or2^bit * ldx bitt inx lda #0 sec square rol dex bne square ldy #0 ora (tempb),y sta (tempb),y rts * *calculatechcode'saddress * getadr lda #0 sta chcode+1 lda chcode clc asl a rol chcode+1 asl a rol c *setupcounterfor2vertlines * setlin lda #2 sta count * drawln ldy #0 lda (bytptr),y sta onebyt * *theinsideloop: * *(yiszeroatstart) * rshift lda onebyt asl a sta onebyt bcs show * inc hpsn bne itsok inc hpsn+1 itsok jmp noshow *y cpy #8 bcc rshift * inc vpsn * lda hptr sta hpsn lda hptr+1 sta hpsn+1 * *2vertlinesdoneyet? * dec count bne drawln * inc bytptr bne okmsb inc bytptr+1 okmsb dex bne setlin rts * *mainroutinestartshere * start lda vicmem ora #8 ta tabsiz lda #>scrlen sta tabsiz+1 jsr blkfil * *setline,bkgandbordercolors * lda #color sta filval lda #colmap sta tabptr+1 lda #maplen sta tabsiz+1 jsr blkfil lda #13 ;green sta btersintoram * lda #chrbas sta mvsrce+1 * lda #newadr sta mvdest+1 * lda #tablen sta lenptr+1 * *startmove * ldy #0 ldx lenptr+1 beq mvpart mvpage lda (mvsrce),y$d017 xxpand equ $d01d * hmax equ 320 vmid equ 100-8 * r6510 equ $0001 base equ $a000 chrbas equ $d000 victrl equ $d011 vicmem equ $d018 border equ $d020 ciacre equ $dc0e ci2pra equ $dd00 ciadir equ $dd02 * tempa equ $fb tempb equ tempa+2 tabptr equ templ+1 prodl equ mpdh+1 prodh equ prodl+1 filval equ prodh+1 lenptr equ filval+1 chcode equ lenptr+2 hptr equ chcode+2 vptr equ hptr+2 onebyt equ vptr+1 count equ onebyt+2 lttr equ count+1 * jmp start * text dfb 9,32,32,32,13,25,32,3 dfb 15,13,13,15,4,15,ts * *16-bitmultiplicationroutine * mult16 lda #0 sta prodl sta prodh ldx #17 clc mult ror prodh ror prodl ror mprh ror mprl bcc ctdown clc lda mpdl adc prodl sta prodl lda mpdh adc prodh sta prodh ctdown dex bne mult rts * *plotrou * lda vpsn and #7 sta line * *bitt=7-(hpsnand7) * lda hpsn and #7 sta bitt sec lda #7 sbc bitt sta bitt * *byte=base+row*hmax+8*char+line * *firstmultiplyrow*hmax * lda row sta mprl lda #0 sta mprh lda #hmalda #0 sta mpdh jsr mult16 lda mprl sta tempb lda mprh sta tempb+1 * *addline * clc lda tempb adc line sta tempb lda tempb+1 adc #0 sta tempb+1 * *tempa+tempb=byte * clc lda tempa adc tempb sta tempb lda tempa+1 adc tempb+1 stahcode+1 asl a rol chcode+1 sta chcode * clc lda chcode adc #newadr sta bytptr+1 rts * *drawacharacter * drawch lda lttr sta chcode jsr getadr * *anestedloop: * *(xistheoutsideloop) * ldx #8 * *displaybit * *savexandyregisters * show txa pha tya pha * jsr plot * *nowdoitagain * inc hpsn bne noinc inc hpsn+1 * noinc jsr plot * *retrievexandyregisters * pla tay pla tax * noshow inc hpsn bne leap inc hpsn+1 * leap in sta vicmem * lda victrl ora #32 sta victrl * *usebank2 * lda ciadir ora #3 sta ciadir * lda ci2pra and #252 ora #1 ;bank2 sta ci2pra * *clearbitmap * lda #0 sta filval lda #base sta tabptr+1 lda #sp0adr sta tabptr+1 lda #64 sta tabsiz lda #0 sta tabsiz+1 jsr blkfil * *(copyheartfromc64chrset) * lda sp0adr sta tempa lda #83 ;heart sta chcode jsr getadr * ldy #0 ldxsta yxpand * *turnonsprite#0 * lda #1 sta spena * *makespritered * lda #10 ;red sta sp0col * *positionspriteonscreen * lda #62 sta sp0x lda #0 sta msigx lda #34 sta sp0y * *movespritedownscreen * drop inc sp0y * *delayloop * lOLD.":GGG1 TLTL1: 10010 4630, EARLY SUBROUTINE< TL20 H 20510cp COUNTERSPELL ROUTINErz CS1 "YOU STUMBLE ACROSS A COUNTERSPELL""THAT REVERSES THE LAST SPELL MADE.""IT MUST BE REPEATED EXACTLY  GAME'S OBJECTIVE IS TO CREATE"E "AND HIDE AS MUCH GOLD AS YOU CAN"n "BEFORE YOUR MASTER, THE ALCHEMIST" "RETURNS FROM THE ALCHEMIST'S" "ASSOCIATION'S ANNUAL CONVENTION." "THE BOSS MAY CALL TO LET YOU" "KNOW WHEN HE'S RETURNINONS OR INGREDIENTS"5 ="CAN CAUSE UNPREDICTABLE RESULTS."` L"ONCE YOU HAVE THE RIGHT COMBINATION" O "OF INCANTATIONS AND INGREDIENTS," Q"IT CAN ONLY CHANGE 10 STONES AT A TIME." "YOU MAY USE UP YOUR INGREDIENTS" "AND HAVE TO FETCH A(17), M1(17), M2(9), WT(10), R(11), RC(10)) "I0D lCS0:SB0:Y0:TL0:G0M v""`  MAIN ROUTINEr  TL0 2010 T((1)101) R((1)101)  TL0 TLTL1  PRINT""  R 4000,4500,5000,6000,7000,7000,8000,8000,9000,CHEMIST WILL RETURN IN 45 MINUTES" 20003 RC((1)151)D "GAME OVER"P 20000j FOUND IT SUBROUTINEx Y1 "HEY WOW YOU FOUND IT!""THAT'S 10 PIECES OF GOLD." TL0 TLTL1GG10 10010RC((1) PARTLY SUCCESSFUL SUBROUTINEG1((1)61)F"CONGRATULATIONS! YOU MANAGED TO" "CHANGE ";G1; "OF THE STONES INTO GOLD.":GGG1: 10010TLTL1"DO YOU WANT TO USE THE SAME SPELL" "OR TRY SOMETHING DIFFERENT";X$%"" & F1 9980 & F1 9720!&"THAT'S AN IMPROVEMENT. AT LEAST, "7! &"YOU'RE WARM-BLOODED."C!%& 10100V!*&A((1)512)a!4& 9200!&"YOU ARE SUPPOSED TO MAKE GOLD, NOT"!&"TURN YOURSELF INTO A GOLDFISH."!&"START BLOWING BU O START CLEANING UP?"#$'"THE ALCHEMIST COULD RETURN EARLY."#.'"Y OR N";X$2#B' X$"Y" 10090h#L'"CONGRATULATIONS, YOU'VE GOT ";G;" GOLD PIECES."#V'"WOULD YOU LIKE TO TRY AGAIN?"#`' "Y OR N";D$#e' D$"Y" 1900#i'#j' TL20  CHEMIST IS BACK"$4N 20515%P ALCHEMIST RETURNS EARLY-%P"TOO BAD. THE ALCHEMIST RETURNED EARLY"A%#P G1 20525_%(P"YOU LOSE ALL YOUR GOLD"}%-P"AND YOU GET A BEATING."%2P"BETTER LUCK NEXT TIME."%% A12 9900Q&% A7 9700|%"EVEN IF YOU KNOW THE COUNTERSPELL, "%"YOU CAN'T USE IT. TRY SWISHING"%"YOUR TAIL OR SOMETHING."% 10100 6 *** FAILSAFE *** BUCK CHILDRESS (01/18/86) ***c *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA..."::J49152:L90:C11(B0C:A:JB,A:XXA:B:A2XA"ERROR IN DATA LINE"L:<X0:JJ12:LL10:L 7,76,50,192,201,84,208,235,162,1,1404W160,34,142,199,193,32,254,192,160,41,32,254,1693192,169,48,162,58,160,0,132,253,160,2,132,1468254,32,10,193,160,59,32,254,192,169,65,162,158291,160,16,132,254,32,10,193,165,253,141,194,1641* 14674 232,208,248,200,208,245,132,198,76,173,192,32,2144k 78,193,76,131,164,173,192,193,208,188,162,24,1782 160,0,24,32,240,255,169,17,32,210,255,174,1568 199,193,160,0,32,186,255,173,194,193,162,208,1955 !160,193,32,189,255,169,43, 3,251,134,252,169,0,133,198,32,159,1907S"@255,32,228,255,240,244,197,197,240,240,201,13,2342"J208,10,164,253,192,2,144,230,32,210,255,96,1796"T201,20,208,5,104,104,76,15,192,197,251,144,1517"^213,197,252,176,209,164,253,196,254,176,203,153,18,68,780)$146,73,83,75,32,79,82,32,18,84,146,65,915T$80,69,63,32,0,68,73,83,75,13,17,0,573$84,65,80,69,13,17,0,83,84,65,82,84,726$73,78,71,32,78,85,77,66,69,82,63,32,806$0,17,69,78,84,69,82,32,78,65,77,69,720$58,32,0,14,14,1" RUPERT REPORT #29; C-128 STARTUPQ ROUTINEWu EE$(27)"I" : CR$(13) 1,(29)(20) : DELETE CHARACTER AT CURSOR 2,EE$"DLOAD"(34) 3,EE$"DIRECTORY"CR$) 4,EE$"CLOSE222:OPEN222,  ""&:56,48:52,48:VS(11)F620:AG0:TR0:TI$"000000"d(W49152:BD53280:PS532812V53248: X100:Y189:Y1178:X155:RT6:DT70:SR49576:PS,0<BD,0: H0:SD42:L20:H0:MS0 FSN54272:ASNSN24:A,0::SR,6:OS1:AO56171:B1104RS,SD& :SD42SD46:L20:1506 SD46SD0Z SG1L3:SGSG1:SDSD1:150 430:RN((1)30)1:V21,64RN 53270,(53270)247:W W V21,127: V28,63 MAIN ROUTINE JV(56320):FBJV16:JV15(JV15) ZSN4,129 hW:T15::W:? rSN4,128:53270,(53270)247:TRTR1\ |TR4(CR$,12)" "y TR8(CR$,12)" " TR12(CR$,12)" " TR15TR0:2110  "  H G N M H J N M K E  " "  "%(CR$,19F)4F)"";35F)"":FF19&F3"":540C0""k:ED1063202340:ED,160:EDSN,0:D(CR$,20)"N I I L  "N(CR$,23)2)"EFGH ";15)"LMJHH ";28)"IFHHJH "X53265,(5346040FL460C4:40UP"DATA OK AND LOADED..."::"SYS 49152 TO ACTIVATE...":Z173,3,3,201,192,208,8,160,0,32,254,192,1426d76,104,193,169,14,141,32,208,160,6,32,254,1389n192,32,159,255,32,228,255,201,68,208,7,162,1799!x8,160,2193,32,88,193,169,111,162,192,141,2,3,142,1428Z3,3,96,173,32,208,41,15,201,12,240,27,1051141,191,193,173,197,193,208,9,165,161,201,212,2044144,36,141,197,193,166,215,224,13,208,27,202,1766142,32,208,162,0,160,0,32,225,255,240,11,166,45,164,46,32,1494C!216,255,160,1,185,208,193,170,232,138,153,208,2119x!193,201,58,144,8,169,48,153,208,193,136,16,1527!"235,32,78,193,169,118,160,163,32,30,171,76,1457!,131,164,185,118,193,240,40,32,210,255,200,76,1844"6254,192,13,2446.#h208,193,32,210,255,230,253,76,14,193,173,191,2028b#r193,141,32,208,32,88,193,96,169,0,170,168,1490#|32,219,255,133,198,141,192,193,141,197,193,96,1990#169,131,162,164,141,2,3,142,3,3,142,192,1254#193,96,13,79,70,70,13,0,147,1318.#h208,193,32,210,255,230,253,76,14,193,173,191,2028b#r193,141,32,208,32,88,193,96,169,0,170,168,1490#|32,219,255,133,198,141,192,193,141,197,193,96,1990#169,131,162,164,141,2,3,142,3,3,142,192,1254#193,96,13,79,70,70,13,0,147,134:CMD222:LIST"CR$"PRINT#222:CLOSE222"CR$C 5,EE$"DSAVE"(34)Y 6,EE$"RUN"CR$p 7,EE$"LIST"CR$ 8,EE$"MONITOR"CR$ 0,1: 4,16: 1,2: 5,2: 6,1 : 'ALCHEMIST'SPLANETS.DEMO0:R0 P20900 ZCR$""M d(12289)161640:850W n1580o x53265,(53265)239 "":PS,0:49531,5:49532,34:49533,2:49534,20 BD,0:49530,5:S50:SG3 SK1L:RS((1)720)1:C((1)6)2:55376RS,C (V30):W HB((1)50)1( HB1350F "JV8XX5:X254X254z ,FB16V15,178:V21,(V21)128:2070:1740 6W:JV4XX5:X60X60 @V12,X:V14,X J250 T TREMOR/HIT ^P13:I112:53270,I:I115::53270,8: "( I118; "  ֒"M 35)" "S ^ I13 "  " :F0:"" " " " 265)16bl CUSTOM CHARACTERS9vI046:A:828I,A:CKCKA:^CK6871"ERROR IN LINES...":g828I10240010240175:A:I,A:53272,((53272)240)10:120,165,1,41,251,133,1,169,0,133,251,133,253,169,40,133,252,169,2 ,128,0 255,255,255,255,255,255,255,255W195,195,195,255,255,243,243,243,24,24,24,28,28,28,28,28126,126,48,48,56,56,56,56,254,198,192,252,6,134,198,254255,255,155,219,219,219,195,195,127,127,96,96,126,112,112,127 127,127,99,96,1 5,115,1273>96,96,112,112,112,112,126,126,230,230,230,230,102,36,60,60RH *** READ SPRITE DATA ***sRS11228812350:D1:S1,D1:\S21235212414:D2:S2,D2:fS31241612478:D3:S3,D3:pS41248012542:D4:S4,D4:zS512544126 0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,00,0,0,0,0,0,040,4,0,0,4,0,0,4J0,0,21,0,0,4,0,0_4,0,0,4,0,0,0,0t0,0,0,0,0,0,0,0$0,0,0,0,0,0,0,0.0,0,0,0,0,0,0,080,0,0,0,0,0,0,0B0,0,0,0,0,0,0L0,16,0,0,16,0,1,17V0,00,0,0,0,0,0,0,00,0,0,0,0,0,0,0"0,0,0,0,0,0,0:0,16,0,0,84,0,1,17Q0,0,84,0,0,16,0,0f0,0,0,0,0,0,0,0{ 0,0,0,0,0,0,0,00,0,0,0,0,0,0,00,0,0,0,0,0,0,0(0,0,0,0,0,0,0,020,0,0,0,0,0,0<0,16,0,0,16,0,0,0,112,0,0112,0,0,216,0,1,140,03,6,0,03,118,0,3,640,3,254,0,3,254,0I0,0,0,0,0,0,0,0^0,0,0,0,0,0,0,0s0,0,0,0,0,0,0,00,0,0,0,0,0,0,00,0,0,0,0,0,0,00,0,0,0,0,0,32,00,112,0,0,32,0,0,32"0,0,32,0,0HHFLR: H G N M H J N M K E"rAUT$" OP QFI HNRSJMH"/|I1(MSG$)K"";(CR$,5)(MSG$,I)U2090i""(AUT$,I){T115:T:I"LRJ ILIJRG..." FIRE GAMMA GUN"":W:RT6DT20,Y1:W:1850V21,64RN:MSMS1:W:(CR$,23);35)MS"":R0:BB1:W.&B11890E0Y1178:V15,Y1:W{:XX(HMS)10A1:W:(CR$,23);22)" ":W:A10DW:21)XX"":XX3002250N250X AMMO MONITORbW:AOAO1:AO,0:B0:AOLMJHH:";XX"GFIJ:";TI$;" KJRGLRH"+"NRLGEJM GMP P/R"AAG$:AG$""2030\AG$"Y"TR0:"":40pAG$"N"64738z 2030SN24,15:SN5,97:SN6,20:SN4,33:SN1,10:SN,120 W:SN4,32: *SN25:T:I "NRLGEJM GMP P/R"!GA$:GA$""2200,!GA$"Y"TR0:"":40@!GA$"N"64738J!2200^! VICTORY RINEo!V21,0:""!MSG$" IFHHFLR: H G N M H J N M K E"!AUT$" KLRSFGFLR: UFKGLMP"!08,133C254,162,8,160,0,177,253,145,251,136,208,249,230,252,230,254,202,208,240^165,1,9,4,133,1,88,96{ *** CHARACTER DATA ***56,124,102,227,231,126,56,48,31,17,11,28,56,232,200,24856,124,248,204,222,255,99,0,140,222,63,63,62,20412,115,115,127,127,103,103,99,99,99,127,127T126,70,70,127,127,99,99,99,62,54,54,127,115,115,115,115 254,198,198,255,255,195,195,255,99,99,99,127,28,28,28,28*12,12,12,12,14,206,206,254,127,127,99,99,115,115,115,1154127,99,99,115,115,1106:D5:S5,D5:S61260812670:D6:S6,D6:9S71267212734:D7:S7,D7:\S81273612798:D8:S8,D8::o STAR SPRITES0,16,0,0,16,0,0,160,0,084,0,1,85,0,084,0,0,16,0,0,16,00,16,0,0,0,0,0,00,0,0,0,0,0,0,00,0,0,0,1,17,0,0 `16,0,0,16,0,0,0,0 j0,0,0,0,0,0,0,05t0,0,0,0,0,0,0,0J~0,0,0,0,0,0,0,0_0,0,0,0,0,0,0,0r0,0,0,0,0,0,00,32,0,0,84,0,0,320,0,32,0,1,221,0,032,0,0,32,0,0,84,00,32,0,0,0,0,0,00,0,0,0,0,0,,0,16F0,0,84,0,1,17,0,0P84,0,0,16,0,0,16,0*Z0,16,0,0,0,0,0,0?d0,0,0,0,0,0,0,0Tn0,0,0,0,0,0,0,0ix0,0,0,0,0,0,0,0|0,0,0,0,0,0,00,0,0,0,0,0,0,00,0,0,0,0,0,0,00,0,0,0,0,0,0,00,0,0,0,0,0,0,320,0,112,112,0,I07:2040I,192I:V39I,1:)6I011:VS(I)((0)90)70:O@I1112:VI,VS(I)OS:OSOS8:qJI0102: VI,X1:X1X125:T V15,160:V14,X:V13,Y:V12,X^Q((1)5)1: V37,Q:V38,Q:53275,191:hMSG$" IFA1DT:Y1Y1RT:V15,Y1:W:Z(V30):Z0:18201GZ63:V21,64RNG:A1(A2)HY1178:V15,Y1:WnHH1:RR1:(CR$,23);9)""H""R3AO56171AO,7:AOAO1:R0:TRTR3:TR0TR0RN((1)30)1:V21,64RNY1178:V1556155O56149AO1:O,2:O:lAO561491920 vV21,0""NMSG$" IFHHFLR: H G N M H J N M K E"_I1(MSG$)i2090"";(CR$,5)(MSG$,I)T115:T:I"HGNMH SJHGMLPJS";H" 4,15:SN5,97:SN6,20:SN4,33:SN1,10:SN,120 4SN4,32: >V21,0:""N HMSG$" IFHHFLR: H G N M H J N M K E"x RAUT$" KLRSFGFLR: JMNSFKNGJS" \I1(MSG$) f"";(CR$,5)(MSG$,I) p2090 z""(AUT$,I) T11I1(MSG$)!"";(CR$,5)(MSG$,I)!2090" ""(AUT$,I)#" T115:T:IM" "** HLTNM HPHGJI HNUJS **"k"$ "LMJHH:"XX". "GFIJ:";TI$;" KJRGLRH""8 "NRLGEJM GMP P/R""B 22001 < *** FREE RAM CHECK *** BUCK CHILDRESS (01/27/86) ***i *** P.O. BOX 13575 SALEM, OR 97309 ***{56,(56)4:((147)"LOADING AND CHECKING DATA..."::J40000:L100:C112B0C:A:JB,A:XXA:B:A<XA"ERROR IN DATA LINE"L: 45,251,209,251,1680H 208,66,232,208,243,230,251,208,239,230,252,165,2532 252,197,253,144,231,201,208,176,37,32,158,156,2045 165,253,201,4,176,12,169,60,133,251,162,2,1588 32,186,156,76,86,156,169,192,162,207,133,252,1807 134,253,1144,1,96,166,251,165,252,32,205,189,169,45,1715_ 32,210,255,162,255,165,253,76,205,189,67,72,1941 69,67,75,73,78,71,32,42,42,32,0,32,613 42,42,32,79,75,0,32,42,42,32,69,82,569 82,79,82,0,17,17,17,0,2947,133,252,1807 134,253,1- A0A1:"SPRITE.O",8,1)36864KKKKKK FX0:JJ12:LL10:L260501 PL260C7:50n Z"DATA OK AND LOADED..."::"SYS 40000 TO ACTIVATE...": d32,68,229,169,167,162,2,133,251,134,252,134,1733 n253,162,0,142,219,216,232,32,186,156,230,253,2081 x162,0,160,0,138,141,219,4,162,3,32,186,156,76,86,156,160,13,1417T 32,194,156,160,30,76,194,156,160,20,32,194,1404 156,165,253,201,208,176,240,169,0,133,251,76,2028 124,156,160,6,24,32,240,255,160,0,185,230,1572 156,240,7,32,210,255,200,76,194,156,192,13,1731) KKKKKKKKKKKKKKKKKKKKKKKKKKK