home *** CD-ROM | disk | FTP | other *** search
Wrap
60 C$(0)="GREEN@":C$(1)="YELLOW":C$(2)="BLUE@@":C$(3)="RED@@@":WN=0:S(0)=13:S(1)=15:S(2)=14:S(3)=10:POKE53280,0:POKE53281,0:GOSUB190:DIMM(3,36) 100 POKE53282,11:POKE53283,12:POKE53270,PEEK(53270)OR16:POKE53272,30:GOSUB2020:IFM(0,0)=1031THENGOTO370 160 V=53248:PRINT"[129][147]@PLEASE@WAIT@.....@":PRINT"[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255]":POKEV+21,3:POKEV+39,15:POKEV+40,1:FORI=0TO35:READG,Y,B,R:M(0,I)=G:M(1,I)=Y:M(2,I)=B:M(3,I)=R:NEXTI:GOTO240 190 ME$=" ...SUPER TACT... WRITTEN BY G. P. CALDWELL":ME$=ME$+". 'F1' MUSIC ON/OFF. USE A JOYSTICK IN PORT II. YOU CAN HAVE":ME$=ME$+" UP TO FOUR PLAYERS, ANY OF THEM CAN BE COMPUTER CONTROLLED." 220 ME$=ME$+" BIG HELLOS TO EVERYONE WHO KNOWS ME... ":RETURN 240 DATA1031,1055,1741,1705,1069,1097,1819,1787:DATA1147,1179,1897,1869,1225,1261,1935,1911:DATA1073,1176,1893,1790,1037,1258,1929,1708,1040,1378,1926,1588:DATA1043,1498,1923,1468,1046,1618,1920,1348,1049,1738,1917,1228 280 DATA1093,1816,1873,1150,1176,1893,1790,1073,1258,1929,1708,1037:DATA1378,1926,1588,1040,1498,1923,1468,1043,1618,1920,1348,1046:DATA1738,1917,1228,1049,1816,1873,1150,1093,1893,1790,1073,1176:DATA1929,1708,1037,1258,1926,1588,1040,1378 320 DATA1923,1468,1043,1498,1920,1348,1046,1618,1917,1228,1049,1738:DATA1873,1150,1093,1816,1790,1073,1176,1893,1708,1037,1258,1929:DATA1588,1040,1378,1926,1468,1043,1498,1923,1348,1046,1618,1920:DATA1228,1049,1738,1917,1150,1093,1816,1873,1152,1174,1814,1792 360 DATA1234,1252,1732,1714,1316,1330,1650,1636,1398,1408,1568,1558 370 ::C=0:FORI=0TO3:P(0,I)=M(0,I):P(1,I)=M(1,I):P(2,I)=M(2,I):P(3,I)=M(3,I):NEXTI:FORI=0TO3:Q(0,I)=I:Q(1,I)=I:Q(2,I)=I:Q(3,I)=I:NEXTI:GOSUB2260:FORI=0TO3:G(I)=0:NEXTI:POKEV+2,155:POKEV+3,125:POKEV+23,2:POKEV+29,2:POKE2041,216 480 IFG(C)=1THENGOTO640 490 IFCP(C)=1THENGOTO1470 500 PRINT"":PRINTTAB(15)"PRESS@FIRE@":PRINTTAB(14)"[145]PLAYER@"C$(C) 520 A=PEEK(56320):IF(AAND16)=0THENPRINT"":PRINTTAB(15)"@@@@@@@@@@":GOTO550 540 GOTO520 550 GOSUB2600:FORI=0TO30:N=INT(RND(1)*6):POKE2041,216+N:NEXT 560 POKEV+21,3:SYS39418:FORI=0TO200:NEXTI 570 IF(PEEK(56320)AND16)=0THENSYS32849:POKEV+21,2:GOTO590 580 GOTO570 590 X=INT(((PEEK(53264)*256+PEEK(V)+4)-24)/8):Y=INT(((PEEK(V+1)+4)-50)/8):IFN=5THEN720 610 IFQ(C,0)>31ANDQ(C,1)>31ANDQ(C,2)>31ANDQ(C,3)>31ANDG(C)=0THENGOTO1280 620 IFCP(C)=1THENGOTO640 630 GOTO750 640 IFN<5THENC=C+1 650 IFC=PL+CPLTHENC=0 660 GOTO480 670 POKEP(C,K),64:POKEP(C,K)+1,65:POKEP(C,K)+40,66:POKEP(C,K)+41,67:P(C,K)=M(C,4):Q(C,K)=4:POKEP(C,K),68:POKEP(C,K)+1,69:POKEP(C,K)+40,70:POKEP(C,K)+41,71:POKE54272+P(C,K),S(C):POKE54272+P(C,K)+1,S(C):POKE54272+P(C,K)+40,S(C):POKE54272+P(C,K)+41,S(C):GOTO800 720 FORK=0TO3:IFP(C,K)=1024+Y*40+XTHENFT=4-K:GOTO860 740 NEXTK 750 IFQ(C,0)>3ANDM(C,Q(C,0))=1024+Y*40+XTHENK=0:GOTO850 760 IFQ(C,1)>3ANDM(C,Q(C,1))=1024+Y*40+XTHENK=1:GOTO850 770 IFQ(C,2)>3ANDM(C,Q(C,2))=1024+Y*40+XTHENK=2:GOTO850 780 IFQ(C,3)>3ANDM(C,Q(C,3))=1024+Y*40+XTHENK=3:GOTO850 790 GOTO640 800 IFN<5THENC=C+1 810 IFC=4THENC=0 820 GOTO610 830 C=C+1:IFC=4THENC=0 840 GOTO500 850 FT=N+1:IFQ(C,K)+FT>35THEN560 860 FORI=0TO3:IFM(C,Q(C,K)+FT)=M(C,Q(C,I))THENGOTO560 880 NEXTI 890 FORI=0TO3:ONC+1GOTO920,960,1000,1040 910 NEXTI:GOTO1080 920 IFM(0,Q(0,K)+FT)=(M(1,Q(1,I)))THENCR=1:GOTO1140 930 IFM(0,Q(0,K)+FT)=(M(2,Q(2,I)))THENCR=2:GOTO1140 940 IFM(0,Q(0,K)+FT)=(M(3,Q(3,I)))THENCR=3:GOTO1140 950 GOTO910 960 IFM(1,Q(1,K)+FT)=(M(0,Q(0,I)))THENCR=0:GOTO1140 970 IFM(1,Q(1,K)+FT)=(M(2,Q(2,I)))THENCR=2:GOTO1140 980 IFM(1,Q(1,K)+FT)=(M(3,Q(3,I)))THENCR=3:GOTO1140 990 GOTO910 1000 IFM(2,Q(2,K)+FT)=(M(0,Q(0,I)))THENCR=0:GOTO1140 1010 IFM(2,Q(2,K)+FT)=(M(1,Q(1,I)))THENCR=1:GOTO1140 1020 IFM(2,Q(2,K)+FT)=(M(3,Q(3,I)))THENCR=3:GOTO1140 1030 GOTO910 1040 IFM(3,Q(3,K)+FT)=(M(0,Q(0,I)))THENCR=0:GOTO1140 1050 IFM(3,Q(3,K)+FT)=(M(1,Q(1,I)))THENCR=1:GOTO1140 1060 IFM(3,Q(3,K)+FT)=(M(2,Q(2,I)))THENCR=2:GOTO1140 1070 GOTO910 1080 POKEM(C,Q(C,K)),64:POKEM(C,Q(C,K))+1,65:POKEM(C,Q(C,K))+40,66:POKEM(C,Q(C,K))+41,67:Q(C,K)=Q(C,K)+FT:POKEM(C,Q(C,K)),68:POKEM(C,Q(C,K))+1,69:POKEM(C,Q(C,K))+40,70:POKEM(C,Q(C,K))+41,71:POKEM(C,Q(C,K))+54272,S(C):POKEM(C,Q(C,K))+54273,S(C) 1120 POKEM(C,Q(C,K))+40+54272,S(C):POKEM(C,Q(C,K))+54272+41,S(C):GOTO610 1140 POKEM(C,Q(C,K)),64:POKEM(C,Q(C,K))+1,65:POKEM(C,Q(C,K))+40,66:POKEM(C,Q(C,K))+41,67:Q(C,K)=Q(C,K)+FT:Q(CR,I)=I:P(CR,I)=M(CR,I):POKEM(C,Q(C,K)),68:POKEM(C,Q(C,K))+1,69:POKEM(C,Q(C,K))+40,70:POKEM(C,Q(C,K))+41,71:POKEM(C,Q(C,K))+54272,S(C) 1190 POKEM(C,Q(C,K))+1+54272,S(C):POKEM(C,Q(C,K))+40+54272,S(C):POKEM(C,Q(C,K))+54272+41,S(C):POKEM(CR,Q(CR,I)),68:POKEM(CR,Q(CR,I))+1,69:POKEM(CR,Q(CR,I))+40,70:POKEM(CR,Q(CR,I))+41,71:POKEM(CR,Q(CR,I))+54272,S(CR):POKEM(CR,Q(CR,I))+54272+1,S(CR) 1230 POKEM(CR,Q(CR,I))+54272+40,S(CR):POKEM(CR,Q(CR,I))+54272+41,S(CR):GOTO610 1280 POKE829,C:POKE53269,0:IFC=0THENPRINT"[153][147]" 1310 IFC=1THENPRINT"[155][147]" 1320 IFC=2THENPRINT"[154][147]" 1330 IFC=3THENPRINT"[150][147]" 1340 G(C)=1:N=1:SYS37330:PRINT""TAB(10);"@CONTINUE@(Y/N)@":WN=WN+1 1380 GETK$:IFK$=""THEN1380 1390 IFK$="Y"THENSYS39651:GOTO1420 1400 IFK$="N"THENSYS39651:GOTO100 1410 GOTO1380 1420 IFWN=PL+CPLTHENGOTO100 1430 GOSUB2260:GOTO480 1470 PRINT"":PRINTTAB(15)C$(C)"'S@@@@":PRINTTAB(14)"[145]@@@@TURN@@@@@":GOSUB2600:FORI=0TO30:N=INT(RND(1)*6):POKE2041,216+N:NEXT:FORK=0TO3:FORI=0TO3:IFN=5THEN1640 1530 IFQ(C,K)<=3THENGOTO1610 1540 FT=N+1 1550 IFQ(C,K)+FT>35THENGOTO1600 1560 FORJ=0TO3:IFM(C,Q(C,K)+FT)=M(C,Q(C,J))THENGOTO1610 1580 NEXTJ:IFM(C,Q(C,K)+FT)<>M(C,Q(C,I))THENGOTO1630 1600 NEXTI 1610 NEXTK:GOTO640 1630 GOTO890 1640 IFQ(C,K)<4THENFT=4-K:GOTO1550 1650 GOTO1540 1690 PRINT"[147][154]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@";:PRINT"@@@@@@@@@@@W@E@L@C@O@M@E@@@T@O@@@@@@@@@@";:PRINT"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@";:PRINT"[200][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][202]";:PRINT"[207]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[203]"; 1740 PRINT"[207]@[153]@@[163][163][163][163]@[155]@[163][163]@@[163][163][154]@[163][163][163][163][163]@[150]@[163][163][163][163][163][163]@[153][163][163][163][163][163]@@@[203]";:PRINT"[207]@[153]@[163][163]@@[163][163][155]@[163][163]@@[163][163][154]@[163][163]@@[163][163][150]@[163][163]@@@@@[153][163][163]@@[163][163]@@[203]";:PRINT"[207]@[153]@[163][163]@@@@[155]@[163][163]@@[163][163][154]@[163][163]@@[163][163][150]@[163][163]@@@@@[153][163][163]@@[163][163]@@[203]";:PRINT"[207]@[153]@@[163][163][163][163]@[155]@[163][163]@@[163][163][154]@[163][163][163][163][163]@[150]@[163][163][163][163][163]@@[153][163][163][163][163][163]@@@[203]"; 1780 PRINT"[207]@[153]@@@@@[163][163][155]@[163][163]@@[163][163][154]@[163][163]@@@@[150]@[163][163]@@@@@[153][163][163][163][163]@@@@[203]";:PRINT"[207]@[153]@[163][163]@@[163][163][155]@[163][163]@@[163][163][154]@[163][163]@@@@[150]@[163][163]@@@@@[153][163][163]@[163][163]@@@[203]";:PRINT"[207]@[153]@@[163][163][163][163]@[155]@@[163][163][163][163]@[154]@[163][163]@@@@[150]@[163][163][163][163][163][163]@[153][163][163]@@[163][163]@@[203]";:PRINT"[207]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[203]";:PRINT"[207]@@@@@@@@@@[155]@[163][163][163][154]@@[163][150]@@@[163][163]@[153][163][163][163]@@@@@@@@@@@@[203]"; 1830 PRINT"[207]@@@@@[192][193]@@@[155]@@[163]@[154]@[163]@[163][150]@[163]@@@[153]@[163]@@@@@[192][193]@@@@@@[203]";:PRINT"[207]@@[153][196][197]@[194][195]@[196][197][155]@@[163]@[154]@[163][163][163][150]@[163]@@@[153]@[163]@@[155][196][197]@[194][195]@[196][197]@@@[203]";:PRINT"[207]@@[153][198][199]@@@@[198][199][155]@@[163]@[154]@[163]@[163][150]@@[163][163]@[153]@[163]@@[155][198][199]@@@@[198][199]@@@[203]";:PRINT"[207]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[203]";:PRINT"[206][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][204]"; 1880 PRINT"@@@@[192][193]@@@[200][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][202]@@@[192][193]@@@@";:PRINT"[150]@[196][197]@[194][195]@[196][197][207] [203][154][196][197]@[194][195]@[196][197]@";:PRINT"[150]@[198][199]@@@@[198][199][206][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][204][154][198][199]@@@@[198][199]@";:PRINT"@@@@@@PRESS@FIRE@TO@START@THE@GAME.@@@@@":L=LEN(ME$):P=1:SYS32768 1920 A=PEEK(56320):IF(AAND16)=0THEN2010 1930 PRINT"":PRINTTAB(10)""MID$(ME$,P,20):P=P+1:IFP>L-20THENP=1 1970 FORI=0TO4:IF(AAND16)=0THEN2010 1980 GETA$:IFA$="[133]"ANDF1=0THENF1=1:SYS32849:GOTO2000 1990 IFA$="[133]"ANDF1=1THENF1=0:SYS32768 2000 NEXTI:GOTO1920 2010 SYS32849:SYS39651:RETURN 2020 GOSUB1690 2030 PRINT"[147] HOW MANY HUMAN PLAYERS : (0 - 4 )" 2040 GETPL$:IFPL$<>""THENGOTO2060 2050 GOTO2040 2060 IFASC(PL$)<48ORASC(PL$)>52THENGOTO2030 2070 PL=VAL(PL$):WN=0:IFPL<0ORPL>4THENGOTO2030 2090 FORI=0TO3:CP(I)=0:NEXTI:IFPL=4THENRETURN 2110 PRINT"[147] HOW MANY COMPUTER PLAYERS ( 0 -";4-PL;")" 2120 GETCPL$:IFCPL$<>""THEN2140 2130 GOTO2120 2140 IFASC(CPL$)<48ORASC(CPL$)>52THENGOTO2120 2150 CPL=VAL(CPL$):IFCPL+PL=0THENGOTO2030 2170 IFCPL<0ORCPL>4-PLTHENGOTO2110 2180 FORI=0TO3:CP(I)=0:NEXTI:FORI=PLTOCPL+PL:CP(I)=1:NEXTI:RETURN 2260 PRINT"[129][147]":PRINT"@GREEN@[192][193]@@@@[192][193]@[192][193]@[192][193]@[192][193]@[192][193]@@@@[192][193]@YELLOW";:PRINT"@@@@@[192][193][194][195][192][193]@@[194][195]@[194][195]@[194][195]@[194][195]@[194][195]@@[192][193][194][195][192][193]@@@@@";:PRINT"BASE@[194][195]@@[194][195]@@@@@@@@@@@@@@@@@@[194][195]@@[194][195]@BASE";:PRINT"@@@[192][193]@[192][193][192][193]@@[200][201][201][201][201][201][201][201][201][201][201][201][201][201][201][202][219]@[192][193][192][193]@[192][193]@@@";:PRINT"@@@[194][195]@[194][195][194][195]@@[207]@@@@@@@@@@@@@@[203]@@[194][195][194][195]@[194][195]@@@"; 2320 PRINT"@[192][193]@[192][193]@[218][215]@[192][193][207]@@@@@@@@@@@@@@[203][192][193]@@@@[192][193]@[192][193]@";:PRINT"@[194][195]@[194][195]@@@@[194][195][206][205][205][205][205][205][205][205][205][205][205][205][205][205][205][204][194][195]@@@@[194][195]@[194][195]@";:PRINT"@@@@@@@@@@[211]@[192][193]@@@@@@@@@@[210]@[192][193]@@@@@@@@@@@@";:PRINT"@@@@[192][193]@@@@@@[194][195]@@[200][201][201][201][201][201][201][202]@@[194][195]@@@@@@[192][193]@@@@";:PRINT"@@@@[194][195]@@@@@@[211]@[192][193][207]@@@@@@[203][192][193]@@@@@@@@[194][195]@@@@"; 2370 PRINT"@@@@@@@@@@@@@@[194][195][207]@@@@@@[203][194][195]@@@@@@@@@@@@@@";:PRINT"@@@@[192][193]@@@@@@@@@@[207]@@@@@@[203]@@@@@@@@@@[192][193]@@@@";:PRINT"@@@@[194][195]@@@@@@@@@@[207]@@@@@@[203]@@@@@@@@@@[194][195]@@@@";:PRINT"@@@@@@@@@@@@@@[192][193][207]@@@@@@[203][192][193]@@@@@@@@@@@@@@";:PRINT"@@@@[192][193]@@@@@@@@[194][195][207]@@@@@@[203][194][195]@[208]@@@@@@[192][193]@@@@"; 2420 PRINT"@@@@[194][195]@@@@@@[192][193]@@[206][205][205][205][205][205][205][204]@@[192][193]@@@@@@[194][195]@@@@";:PRINT"@@@@@@@@@@@@[194][195]@[209]@@@@@@@@@@[194][195]@[208]@@@@@@@@@@";:PRINT"@[192][193]@[192][193]@@@@[192][193]@@@@@@@@@@@@@@@@[192][193]@@@@[192][193]@[192][193]@";:PRINT"@[194][195]@[194][195]@@@@[194][195]@[209]@@@@@@@@@@@@@@[194][195]@[212][216]@[194][195]@[194][195]@";:PRINT"@@@[192][193]@[192][193][192][193]@@@@@@@@@@@@@@@@@@@@[192][193][192][193]@[192][193]@@@"; 2470 PRINT"@@@[194][195]@[194][195][194][195]@@[213]@@@@@@@@@@@@@@@@@[194][195][194][195]@[194][195]@@@";:PRINT"RED@@[192][193]@@[192][193]@[217]@@@@@@@@@@@@@@@@[192][193]@@[192][193]@BLUE";:PRINT"@@@@@[194][195][192][193][194][195]@@[192][193]@[192][193]@[192][193]@[192][193]@[192][193]@@[194][195][192][193][194][195]@@@@@";:PRINT"BASE@@@[194][195]@@@@[194][195]@[194][195]@[194][195]@[194][195]@[194][195]@@@@[194][195]@@BASE";:POKE2023,0:POKE56256+7,10:POKE56256+8,10:POKE56256+31,14:POKE56256+32,14 2520 FORI=0TO3:FORJ=0TO3:POKEM(I,Q(I,J))+40,68:POKEM(I,Q(I,J))+41,69:POKEM(I,Q(I,J))+80,70:POKEM(I,Q(I,J))+81,71:POKEM(I,Q(I,J))+54272+40,S(I):POKEM(I,Q(I,J))+41+54272,S(I):POKEM(I,Q(I,J))+80+54272,S(I):POKEM(I,Q(I,J))+54272+81,S(I):NEXTJ,I:PRINT:POKEV+21,2:RETURN 2600 POKE54277,42:POKE54278,0:POKE54276,0:POKE54296,15:POKE54276,65:POKE54275,5:POKE54274,125:POKE54273,3:POKE54272,00:RETURN