10 POKE53281,0:POKE53280,0:PRINT"[147]":X=RND(-TI) 20 DIME%(4,13),CL$(10),AQ%(10),SH%(10) 30 DIML%(10),P%(10),N%(10),U%(10),Q%(10),M%(10),R%(10),H%(10),O%(10) 40 DV=PEEK(186):IFDV<8THENDV=8 50 GOSUB60000 60 REM SYS57812"CHROMO SPRITES",DV,0:POKE780,0:POKE781,0:POKE782,54:SYS65493 70 REM SYS57812"CHROMO FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493 72 TQ=TI 74 IFTI11THENAA%=11:GOTO210 206 GOTO180 210 CC%=-CC%:GOTO180 220 : 230 :REM BOX 240 : 250 POKE214,Y5:PRINT:POKE646,CZ 260 PRINTTAB(X5)"["LEFT$(TP$,X6)"\" 270 FORI=1TOY6:PRINTTAB(X5)"$"LEFT$(SP$,X6)"%":NEXT 280 PRINTTAB(X5)"]"LEFT$(BT$,X6)"^":RETURN 290 : 300 :REM SELECT CHROMO 310 : 320 CO=INT(RND(0)*8)+2:IFEX%(CO)=0THEN320 330 IFAQ%(CO)>RND(0)*6THENRETURN 340 GOTO320 350 : 360 :REM PRINT SCORES 370 : 380 POKE214,8+G:PRINT:POKE646,G 390 PRINTTAB(34+(H%(G)>999));:IFH%(G)=0THENPRINT" ":GOTO410 400 PRINTH%(G) 410 RETURN 420 : 430 :REM SPRITE COLLISION? 440 : 450 FORI=0TOGD-1:J=2^I 460 K1=(PEEK(V+31)ANDJ) 470 IFK1<>JTHEN490 480 H%(G)=H%(G)+5:GOSUB380:POKEV+21,PEEK(V+21)AND(255-J) 490 NEXT:RETURN 500 : 510 :REM PREMISE 520 : 530 PRINT"[147][129] 540 [161]A$:[139]A$[178]""[167]540 550 [153]"LOAD":[142] 560 : 570 :[143] HI SCORE UPDATE 580 : 590 [129]I[178]2[164]9:[139]EX%(I)[178]0[167]610 600 [139]H%(I)[177]H%(I[171]1)[167][139]H%(I)[177]HI[167]HI[178]H%(I):QW[178]I 610 [130]:[142] 620 : 630 :[143] DEAD 640 : 650 [151]L%(X),60:[151]L%(X)[170]C,X:R%(X)[178]1 660 [142] 670 : 680 :[143] SETUP 690 : 700 SC[178]1024:C[178]54272:CO[178]1:VC[178]53248:V[178]VC:Z[178]40:ZZ[178].085:VB[178]0 720 [129]I[178]0[164]7:[151]2040[170]I,216[170]I:[130] 730 [151]V[170]21,0:[151]V[170]28,254:[151]V[170]16,0 740 [129]I[178]0[164]63:[151]704[170]I,0:[130] 750 [129]I[178]0[164]7:[151]708[170]3[172]I,255:[151]709[170]3[172]I,255:[130] 760 [129]L[178]0[164]24:[151]C[170]L,0:[130] 770 [129]I[178]0[164]3:[129]J[178]0[164]11:[135]E%(I,J):[130]:[130] 780 [129]I[178]0[164]7:[135]C0%(I),C1%(I),C2%(I):[130] 790 QQ$[178]"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 800 SP$[178]"========================================" 810 TP$[178]"________________________________________" 820 BT$[178]"########################################" 830 [129]I[178]2[164]9:AQ%(I)[178]5:SH%(I)[178]5:EX%(I)[178]0:[130]:EX%(2)[178]1:EX%(3)[178]1:EX%(4)[178]1 840 [129]I[178]2[164]9:AQ%(I)[178]I:SH%(I)[178]10[171]I:EX%(I)[178]1:[130] 850 [129]I[178]2[164]9:[135]CL$(I):[130] 860 [129]I[178]2[164]9:[135]CN$(I):[130] 870 [129]I[178]2[164]9:[135]T%(I):[130] 880 F%(0)[178]1:F%(1)[178][171]1:F%(2)[178]Z:F%(3)[178][171]Z 890 [137]1520 900 : 910 :[143] BATTLE 920 : 930 [151]2040,216:[151]V[170]28,255 940 T[178]2:[129]I[178]2[164]9:[139]EX%(I)[178]0[167]980 950 K[178][181]([187](0)[172]8)[170]2:[139]O%(K)[167]950 960 L%(I)[178]T%(K):O%(K)[178]1 970 T[178]T[170]1 980 P%(I)[178][181]([187](0)[172]12) 990 R%(I)[178]0 1000 [130] 1010 [129]J[178]0[164]7 1020 XX[178][181]([187](0)[172]156)[170]50:YY[178][181]([187](0)[172]140)[170]76 1030 [151]V[170]2[172]J,XX:[151]V[170]1[170]2[172]J,YY 1040 [151]VC[170]37,C0%(J):[151]VC[170]38,C1%(J):[151]VC[170]39[170]I,C2%(J):[143] MCM DATA 1050 [130] 1060 [129]I[178]2[164]9:R%(I)[178]0:[130] 1070 [151]V[170]21,0:TI$[178]"000000" 1080 CO[178][181]([187](0)[172]8)[170]2:[139]EX%(CO)[178]0[167]1080 1090 [151]214,21:[153]:[153][163]29)"MCONT - MENU" 1100 : 1110 :[143] LOOP 1120 : 1130 G[178]CO:U%[178]P%(G) 1138 [161]A$ 1140 [139]A$[178]"M"[167]1360 1142 [139]A$[178]"T"[167]VB[178]1[171]VB:[151]53280,6[172]VB 1144 [139]A$[179]"1"[176]A$[177]"8"[167]1150 1146 GD[178][197](A$):[151]V[170]21,2[174]GD[171]1 1150 Q%(G)[178][181](P%(G)[173]4) 1160 [141]120:[141]450 1170 P%(G)[178]E%(Q%(G),N%(G)) 1180 M%(G)[178]L%(G)[170]F%([181]((P%(G))[173]4)) 1190 [139]TI[177]150[167]X[178]G:[141]650 1200 [139]R%(G)[167]1220 1210 [139][194](M%(G))[179][177]61[167]1270 1220 L%(G)[178]M%(G):H%(G)[178]H%(G)[170]1:[141]380 1230 TI$[178]"000000" 1240 [141]320:[139]TI[177]150[167]X[178]G:[141]650:[137]1360 1250 [139]R%(CO)[167]1240 1260 [137]1130 1270 Y[178]([194](M%(G)[170]C)[175]15):[139]Y[177]9[167]1320 1280 [139]R%(Y)[167]1320 1290 [139]Y[178]G[167]1320 1300 [139](SH%(G)[171]SH%(Y))[179][187](0)[172]6[167]1320:[143] STRENGTH 1310 R%(Y)[178]1:X[178]Y:[141]650:H%(G)[178]H%(G)[170]5:[141]380 1320 P%(G)[178]U%:[137]1130 1330 : 1340 :[143] BATTLE OVER 1350 : 1360 H%(G)[178]H%(G)[170]10:[141]380:[141]590 1370 [151]214,21:[153]:[153][163]29)"ANY KEY ":[151]198,0 1380 [151]214,8[170]QW:[153] 1390 TQ[178]TI 1400 [153][163]28)""CN$(QW)"ON" 1410 [139]TI[179]TQ[170]5[167]1410 1420 [151]646,QW:[153][163]28)CN$(QW)"ON" 1430 [139]TI[179]TQ[170]10[167]1430 1440 [161]A$:[139]A$[178]""[167]1380 1450 [151]V[170]21,0 1460 CZ[178]12:X5[178]1:Y5[178]0:X6[178]24:Y6[178]21:[141]250 1470 [137]1620 1480 : 1490 :[143] MENU 1500 : 1520 [151]53265,11:[153]"LOADPOKE"[199](142);:[129]I[178]0[164]23:[153]QQ$;:[130] 1530 [153][200](QQ$,39)"CMDSAVE@" 1540 [129]I[178]214[164]242:[151]I,[194](I)[176]128:[130] 1550 CZ[178]12:X5[178]1:Y5[178]0:X6[178]24:Y6[178]21:[141]250 1560 CZ[178]15:X5[178]27:Y5[178]0:X6[178]10:Y6[178]5:[141]250 1570 CZ[178]1:X5[178]27:Y5[178]7:X6[178]10:Y6[178]11:[141]250 1580 CZ[178]15:X5[178]27:Y5[178]20:X6[178]10:Y6[178]1:[141]250 1590 [151]214,2:[153]:[153][163]29)"FORFLIPPIN' 1600 PRINTTAB(30)"CHROMO-" 1610 PRINTTAB(31)"SOMES" 1620 POKE214,8:PRINT:PRINTTAB(30)"[155]SCORES" 1630 FORI=2TO9:POKE646,I:PRINTTAB(28)CN$(I):NEXT 1640 POKE214,2:PRINT:PRINTTAB(6)"[154]EXPERIMENT SETUP" 1650 PRINTTAB(3)"[155]CHROMOSOME C S X 1660 [153][163]3)"---------- - - - 1670 FORI=2TO9:POKE646,I:PRINTTAB(3)CL$(I)TAB(15)AQ%(I)TAB(19)SH%(I)TAB(24); 1680 IFEX%(I)THENPRINT"X":GOTO1700 1690 PRINT" " 1700 NEXT 1710 POKE214,14:PRINT:IFAZ=0THENAZ=1:GOTO1760 1720 FORI=0TO2:PRINTTAB(3)LEFT$(SP$,20):NEXT 1730 PRINTTAB(3)"[145][145]R[154] - RESET SCORES 1740 [153][163]3)"KCONT - KEEP SAME SCORES" 1750 [137]1800 1760 [151]214,14:[153] 1770 [153][163]3)"LISTC - CURIOSITY 1780 PRINTTAB(3)"S - STRENGTH 1790 [153][163]3)"X - EXPERIMENT IN/OUT 1800 PRINTTAB(3)"[154]USE CRSR KEYS[154]/JOYSTICK 1810 [153][163]3)"RETURNCONT/FIRECONT - INCREASE 1820 PRINTTAB(3)"[154]PRESS X[154] FOR EXPERIMENT 1830 [151]214,21:[153]:[153][163]29)"QCONT - QUIT" 1840 [151]2040,11:XM[178]0:YM[178]2:[151]V[170]38,1:[151]V[170]27,1 1850 [151]V,140[170]XM[172]32:[151]V[170]1,89[170]YM[172]8:[151]V[170]21,1 1852 [139]DQ[178]0[167]DQ[178]1:[151]53272,31:[151]53265,27 1860 [161]A$:[139]A$[179][177]""[167]1870 1862 JY[178][194](56320) 1864 TQ[178]TI 1866 [139]TI[179]TQ[170]4[167]1866 1870 [139]A$[178]""[176]JY[178]119[167]XM[178]XM[170]1:[139]XM[177]2[167]XM[178]0 1880 [139]A$[178]"CMD"[176]JY[178]123[167]XM[178]XM[171]1:[139]XM[179]0[167]XM[178]2 1890 [139]A$[178]""[176]JY[178]125[167]YM[178]YM[170]1:[139]YM[177]9[167]YM[178]2 1900 [139]A$[178]"ON"[176]JY[178]126[167]YM[178]YM[171]1:[139]YM[179]2[167]YM[178]9 1910 [139]A$[178][199](13)[176]JY[179]112[167]1990 1912 [139]A$[178]"Q"[167]40000 1920 [139]AZ[167][139]A$[178]"K"[167]1950 1930 [139]AZ[167][139]A$[178]"R"[167][129]I[178]2[164]9:H%(I)[178]0:G[178]I:[141]380:[130]:[137]1950 1940 [139]A$[179][177]"X"[167]1850 1950 [151]V[170]21,0:[153]"":[129]I[178]1[164]20:[153][163]3)[200](SP$,22):[130] 1960 [129]I[178]2[164]9:O%(I)[178]0:[130] 1970 [137]930 1990 [151]214,4[170]YM:[153]:[151]646,YM 2000 [139]XM[178]2[167]2090 2010 [139]XM[178]1[167]2050 2020 AQ%(YM)[178]AQ%(YM)[170]1:[139]AQ%(YM)[177]9[167]AQ%(YM)[178]9 2030 SH%(YM)[178]10[171]AQ%(YM) 2040 [137]2060 2050 SH%(YM)[178]SH%(YM)[170]1:[139]SH%(YM)[177]9[167]SH%(YM)[178]9 2060 AQ%(YM)[178]10[171]SH%(YM) 2070 [153][163]15)AQ%(YM)[163]19)SH%(YM) 2080 [137]1850 2090 [153][163]24); 2100 [139]EX%(YM)[167]EX%(YM)[178]0:[153]" ":[137]1850 2110 EX%(YM)[178]1:[153]"X":[137]1850 2120 : 2130 [131]12,13,14,15,0,1,2,3,11,10,9,8 2140 [131]15,14,13,12,4,5,6,7,8,9,10,11 2150 [131]4,5,6,7,8,9,10,11,3,2,1,0 2160 [131]7,6,5,4,12,13,14,15,0,1,2,3 2170 [131]1,2,3,4,5,6,7,8,9,10,7,12,13,14,15 2180 [131]1,2,3,4,5,6,7,8,9 2190 [131]REDOSINE,CYANINE,PURPLINE,GREENUSINE,BLUMINE,YELLOWINE 2200 [131]ORANGINE,BROWNINE 2210 [131]RED,CYAN,PURPLE,GREEN,BLUE,YELLOW,ORANGE,BROWN 2220 [131]1238,1353,1363,1438,1598,1673,1683,1798 2230 [151]53272,23:[153]"LOAD":[151]VC[170]21,0:[128] 10000 D[178][194](186):N$[178]"CHROMO.BAS":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128] 40000 [151]V[170]21,0:[129]I[178]0[164]21:[151]828[170]I,8[170]I:[130] 40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030 40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A 40030 A$[178]"PRESENTER":[141]40040:A$[178]"HELLO CONNECT" 40040 [129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130] 40050 [160]2:[159]2,I,2:[160]2:[139]ST[167]40070 40060 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40090 40070 [130]:[139]A$[178]"PRESENTER"[167][142] 40080 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128] 40090 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23 40100 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I 40110 [153]"P(null)53272,23:RUN:":[151]631,13:[151]632,13:[151]198,2:[128] 60000 [153]"LOAD":Z$[178]" PRINT# ":[151]214,10:[153] 60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]8:[153]Z$:[130] 60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#" 60030 Z$(0)[178]"ASC(null)RIGHT$(null)(null)RIGHT$(null)' LENLEFT$(null)(null)(null)(null)(null)(null)(null)VAL(null)":Z$(1)[178]"BY ASCENDER (null)UCKER" 60040 Z$(2)[178]"(LEN) 1996 BY MID$ & ASC (null)UBLISHING, RIGHT$NC."[170][199](13) 60060 Z$(3)[178]"(null)HIS PROGRAM IS NOT SHAREWARE 60070 Z$(4)="OR IN THE PUBLIC DOMAIN." 60080 Z$(5)="1-800-594-3370 OR 1-318-221-8718 60090 [151]214,12:[153] 60100 [129]I[178]0[164]5:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]