Carousel Volume 2 #1/carousel.iso/comdore/64games/3dtanx.prg

Commodore BASIC | 1989-01-22 | 17.0 KB | 123 lines

10 SYS6854:CLR:GOSUB6000:POKE31759,1:POKE650,127:SYS23000
20 N=24376:M=24489:O=31734:P=31733:H=0
30 PL=1:AM=30:TY=1:A=23567:I$=CHR$(34):DIMSC(6)
40 POKE198,0:GOSUB10000
45 GOSUB50:GOTO100
50 ONTY GOTO60,70,80
60 POKE31732,0:POKE31744,1:POKE31755,1:POKE780,4:POKE782,40:SYS22960
65 RETURN
70 POKE31732,1:POKE31744,2:POKE31755,3:POKE780,2:POKE782,25:SYS22960
75 RETURN
80 POKE31732,1:POKE31744,4:POKE31755,4:POKE780,1:POKE782,13:SYS22960
90 RETURN
100 IFPL>1THEN500
110 S=0:PQ=1:GOSUB1000
120 POKE53269,0:SYS22584
130 PRINT"[147][156][207][206][197] [208][204][193][217][197][210]"
140 PRINT"[149][211]CORE"S*100
150 IFS>HTHENH=S
160 PRINT"[150][200]I SCORE"H*100
170 GOSUB400
180 GOTO40
200 SYS22584:PRINT""
210 FORC=1TOPL:PRINT"[156]";:IFC=B-1THENPRINT"[159]";
215 PRINT"[208][204][193][217][197][210]"C"[158] [211][195][207][210][197]"SC(C)*100:NEXT
220 GOSUB400
230 RETURN
300 SYS22584:PRINT"[159][208][204][193][217][197][210]"B
310 GOSUB400
320 RETURN
400 POKE198,0:FORD=1TO250
410 GETIN$:IFIN$<>""THENRETURN
420 NEXTD:RETURN
500 FORB=1TOPL
505 GOSUB50
510 GOSUB200:GOSUB300
520 S=0:PQ=B:GOSUB1000
530 IFS>SC(B)THENSC(B)=S
540 NEXTB:GOSUB200
550 GOTO40
1000 SYS22880:POKE198,0:POKE631,0:SYS24336:GOSUB5000
1010 SYSN:IFPEEK(O)THEN1100
1020 S=S+(PEEK(P)-128):IFS<0THENS=0
1030 SYSM,PEEK(A),S:GOTO1010
1100 POKE54276,0:SYS22688:SYS23444
1105 POKE53269,0:FORD=1TO16:SYS22804:FORD1=1TO30:NEXT:IFD=5THENSYS22854
1110 NEXT:POKE198,0
1120 SYS22688
1130 FORD=1TO1500:NEXT
1140 RETURN
5000 PRINT""TYTAB(16)""PQ;:POKE23567,AM
5010 PRINT"";
5020 SYS24432,H:PRINT"00[157][157][157][157][157][157][157][157][157][157][157][157][157]00000[157][157]";:SYSM,PEEK(A),S:RETURN
6000 POKE54296,15:POKE54273,50:POKE54277,9:POKE54278,0:POKE54276,0:RETURN
6010 POKE54276,17:FORD=1TO400:NEXT:POKE54276,0:RETURN
10000 PRINTCHR$(8):SYS22584
10010 PRINT"[156]"I$"[212][193][206][216]"I$"[153]  [193] PROGRAM BY [196]K'[212]RONICS.":PRINT"[208][210][197][211][211]"
10020 PRINT"[153]"I$"[201]"I$"  [129]'[201][206][198][207]'.":PRINT"[153]"I$"[195]"I$"  [129]FOR [195][200][193][206][199][197] GAME TYPE."
10030 PRINT"[153]"I$"1"I$"  [129]TO CHANGE TO 1 [208][204][193][217][197][210] GAME."
10040 PRINT"[153]"I$"2"I$"  [129]FOR 2 [207][210] [205][207][210][197] PLAYERS."
10050 PRINT"[151][193]NY OTHER KEY FOR NO CHANGE."
10060 PRINT"[149](1 OR 2 WILL ZERO [193][204][204] SCORES.)"
10070 PRINT"[208][210][197][211][211]":FORD=1TO30:GETIN$:IFIN$<>""THEN10080
10072 NEXT:PRINT"[208][210][197][211][211]"
10074 FORD=1TO30:GETIN$:IFIN$<>""THEN10080
10076 NEXT:GOTO10070
10080 IFIN$="C"ORIN$="[195]"THEN11000
10090 IFIN$="I"ORIN$="[201]"THEN12000
10100 IFIN$="1"THEN13000
10110 IFIN$="2"THEN14000
10120 RETURN
11000 PRINT"[147]":POKE53280,11:POKE53281,11:POKE31759,1
11010 PRINT"[208][210][197][211][211]"
11020 PRINT"  [159]1. [198]OR [197][193][211][201][197][210] START."
11030 PRINT"  [159]2. [156][198]OR [205][207][196][197][210][193][212][197] START."
11040 PRINT"  [159]3. [158][198]OR [196][201][198][198][201][195][213][204][212] START."
11045 PRINT""LEFT$("",TY*2)"[159]*"
11046 PRINT"";
11050 PRINT"  [158]4. [153][198]OR RATIONED [193][205][205][207]."
11060 PRINT"  [158]5. [153][198]OR STOCK OF [193][205][205][207]."
11063 IFAM<>200THENPRINT"[145][145][145][158]*[157]";
11066 IFAM=200THENPRINT"[145][158]*[157]";
11068 PRINT"[151]";:IFPEEK(31759)=0THENPRINT"[152]";
11070 PRINT"*[152]6. [154][198]OR [208][210][193][195][212][201][195][197]. ([212]ANK FIRE HARMLESS.)"
11080 PRINT"[150][210]. [212]O [210]ETURN."
11090 PRINT"[208][210][197][211][211]":FORD=1TO30
11092 GETIN$:IFIN$<>""THEN11100
11094 NEXT:PRINT"[208][210][197][211][211]"
11096 FORD=1TO30:GETIN$:IFIN$<>""THEN11100
11098 NEXT:GOTO11090
11100 IFIN$="R"ORIN$="[210]"THEN10000
11110 IFVAL(IN$)<1ORVAL(IN$)>6THEN11090
11120 GOSUB11140:ONVAL(IN$)GOSUB11200,11300,11400,11500,11600,11700
11130 GOTO11010
11140 PRINT"  [207].[203].  [146]";
11150 GOSUB6000:GOSUB6010:PRINT"[157][157][157][157][157][157][157][157]        ":RETURN
11200 TY=1:POKE31759,1
11210 RETURN
11300 TY=2:POKE31759,1
11310 RETURN
11400 TY=3:POKE31759,1
11410 RETURN
11500 AM=30:RETURN
11600 AM=200:RETURN
11700 POKE31759,0:RETURN
12000 PRINT"[147]":POKE53280,1:POKE53281,1
12010 PRINT"[159][193][195][212][201][214][197] [212]ANKS .......[212][213][210][210][197][212].. 500[157][157][157][157][157][157][157][157][157][157][157][157][200][213][204][204].... 200"
12020 PRINT"[156][201][205][205][207][194][201][204][201][211][197][196] [212]ANKS ..[212][213][210][210][197][212].. 200"
12030 PRINT"[152][212]ANKS [207][214][197][210] [194][210][201][196][199][197] ....[205][201][206][213][211]  100[157][157][157][157][157][157][157][157][157][157][156][183][183][183][183][183]"
12040 PRINT"[155][203][197][217][211] :":PRINT"[158][199]UN LEFT AND RIGHT   "I$"[215]"I$"  [154]"I$"[197]"I$
12050 PRINT"[158][199]UN UP AND DOWN      [152]"I$"[198]1"I$" [150]"I$"[198]5"I$
12060 PRINT"[158][200]OLD    [156]"I$"[200]"I$"[159]     ([193]NY KEY RELEASES.)"
12070 PRINT"[158][198]IRE    "I$"[211][208][193][195][197]"I$
12075 PRINT"[207]R USE A JOYSTICK IN [208][207][210][212] 1."
12080 PRINT"[152][208]RESSING [210][197][212][213][210][206] WILL ABANDON ANY GAME.";
12090 GETIN$:IFIN$=""THEN12090
12100 GOTO10000
13000 PL=1:S=0:H=0:RETURN
14000 PRINT"[147]":POKE53280,6:POKE53281,6:S=0:H=0
14010 PRINT"[158][200]OW MANY PLAYERS ? [156](MAX 6)"
14020 GETIN$:IFIN$=""THEN14020
14030 IFVAL(IN$)<2ORVAL(IN$)>6THEN14020
14040 PL=VAL(IN$):RETURN