Untitled - TRS-80 Color Computer Archive

4B 840 NEXT F(F): NEXT F701770 DATA226,165,69,166,70,17£B50 I ~ INT ( RND (1) 16) +FB1330 B(T) - 0: IF DS THEN GOS64,71, 88,76,240.25339ll IF Ad) - 0 THEN B50860 PRINT CHR* (I + 64):SC =IEUB 12201340 FOR F = 1 TO A 12 THEN T = 154,96Al870 DS = 1: QOSUB 1310: FDR TN ■ 1 TO 9001 NEXTF51370 B3 THEN RETURN35839 : READ A:CS - CS +A: POKE I.As NEXT : IFCS < > 9833 THEN PRINT "EN 1000DB1410 IF P* = "P" AND T0 < = 6ERRORIN DATA STATEMENT1C900 IF PT = 0 THEN 940THEN 1450SET #2 ": STOP49910 IF CP > 24 THEN 1000Bl1420 IF P* = "C" AND T0 > = 7E91820RETURNAf920 GOTO 390THEN 1450W1830DATA0,0,0,0,0,0,0,0Si930 REM *t NO COUNTERS ttES1430 RETURN9D1840DATA8,8,8,8,8,0,8,0SI940 FOR TM = 1 TO 400: NEXT231440 REM ** TOTAL CAPTURES ttD41850DATA20,20,20,0,0,0,0,0?!DC42DDB2950 GOSUB 90: PRINT "NO COUNTERB!!! " ;960 IF PT - 0 THEN PRINT "BAMEOVER."970 FOR TM » 1 TO 1500: NEXT980 IF PT » 0 THEN 1060990 REM I* AWARD COUNTERS t*336C524E1450 LS = Is IF P* = "C" THENLS - 71460 FOR F = T0 TO LS STEP -11470 IF B(F> < 2 OR B 3THENRETURN1480 IF P» = "P" THEN SP = B CP THEN PRINT "PLAYER WINS. ";: GOTO 1117E191550 REM tt DISPLAY PLAYER'SSCOREtt1560 IF SP = 0 THEN RETURN54DB2020 DATA 62,32,16,24,32,34,2e i*2030 DATA 16,24,20,18,62,16,14901090 IF CP > PL THEN PRINT "CFC1570 FOR H - PL + 1 TO PL + SPIt6 .02040 DATA 62,2,30,32,32,34,28OMPUTERWINS.";•31580 VTAB 21: HTAB 20: PRINTi 0£31100 REM tt ANOTHER GAME ttHi QOSUB 1650K2050DATA56,4,2,30,34,34,28,711110 PRINT "ANOTHER GAME (Y/N521590 NEXT H:PL = PL + SP: RET0)? "IURNit2060DATA62,32,16,8,4,4,4,0E51120 GOSUB 1530: IF B* < > "Y" AND B» < > "N" THEN 1120BDH1600 REM tt DISPLAY COMPUTER'S SCORE tt1610 IF SC = 0 THEN RETURNitEB2070 DATA 28,34,34,28,34,34,28 .02080 DATA 28,34,34,60,32,16,1SC1130 PRINT BS: IF B* - "Y" THEN HGR2 : GOTO 100FJ1620 FOR H ■= CP + 1 TO CP + SCF74 ,02090 DATA 0,0,8,0,8,0,0,0SF1140 TEXT : HOME : ENDCB1630 VTAB 9: HTAB 20: PRINT H342100DATA0,0,8,0,8,8,4,0771150 REM ** QUIT SAME tt: GOSUB 1650BE2110DATA16,8,4,2,4,8,16,0EC1160 FOR TM = 1 TO 100: NEXT711640 NEXT H:CP = CP + SC: RET962120DATA0,0,62,0,62,0,0,0Cl1170 GOSUB 90: PRINT "QUIT GAURN512130DATA4,8,16,32,16,8,4,0IIME. ARE YOU SURE (Y/N)?11B0 GOSUB 1530! IF B» < > "YBD1650 FOR I = 1 TO 10:A - PEEK( - 16336): NEXT : RETURN33 21407A 2150ID 2160DATADATADATA28,34,16,B,a,0,8,0Bf 8f 8, 15r 1 jj 8, 8j 88, 20, 34, 34, 62, 34, 34" AND B« < > "N" THEN 11DS1660 REM DATA STATEMENT SET #i0B01 - HROUTF82170DATA30,34,34,30,34,34,3EFSE1190 IF B« < > "Y" THEN 4201200 GOSUB 90:PT = 0: GOTO 96791670 FOR I = 768 TO 862: READA:CS - CS + A: POKE I,AH0 ,02180 DATA 28, 34, 2,2, 2, 34, 28,0CEFC01210 REM *> UPDATE DISPLAY tt1220 VTAB 13 + 2 * (T > 6)4*: NEXT1680 IF CS < > 9320 THEN PRINT "ERROR IN DATA STATEME11952190 DATA 30,34,34,34,34,34,30 P«2200 DATA 62,2,2,30,2,2,62,0Fl1230 IF T < 7 THEN TB « 37 -NT SET #1": STOP382210DATA62,2,2,30,2,2,2,03BCE 6 THEN TS - 5 « (T - 6) +21250 HTAB TB: PRINT SPC( 2);:HTAB TB: PRINT B 0 THEN RETUR12MEBIB1690 RETURN1700 DATA 216,120,133,69,134,70,132,71,166,7,101710 DATA 10,176,4,16,62,48,4,16,1,232,2321720 DATA 10,134,27,24,101,6,133,26,144,2,2304E2122202230DATADATA4 ,060, 2, 2, 2, 50, 34, 60, 034,34,34,62,34,34,3FB0922402250DATADATA8 .02B,8,8,8,8,8,28,032, 32,32,32,32,34,271 2260 DATA 34,18,10,6,10,IB,346AF7N1280 IF P* = "P" THEN GOSUB 1560: RETURN1290 IF P« - "C" THEN GOSUB 16101 RETURNA7CE451730 DATA 27,165,40,133,8,165,41,41,3,5,2301740 DATA 133,9,162,8,160,0,177,26,36,50,481750 DATA 2,73,127,164,36,1450 r98«22702280DATADATA4 .02,2,2,2,2,2,62,034,54,42,42,34,34,304 2290 DATA 34,34,38,42,50,34,3431300 REM tt MOVE COUNTERS *t,8,230,26,206,24313B1310 T - IiBl = 0:S2 - 01320 FOR F = 1 TO 12:B