Untitled - TRS-80 Color Computer Archive
Untitled - TRS-80 Color Computer Archive
Untitled - TRS-80 Color Computer Archive
- No tags were found...
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
I10 630 P$="C"BC 640 REM tt PICK BEST MOVE *tHP 650 FDR F=l TO 6FA 660 IF PA>=SC(F) THEN 600KF 670 IA=F:PA=SCtF>FJ 6<strong>80</strong> IF PB>=SC(F+6) DR A(I(F+6) ) «=0 THEN 700BI 690 IB=I(Ft-6):PB=-SC(F+6)ND 700 NEXTAE 710 IF IA=0 AND IB=0 THEN 740CI 720 I»Ift:IF PB>PA THEN I = IBFO 730 GDTD <strong>80</strong>0m 740 P=0:FOR F=7 TO 12:P=P+A(F>:NEXTFC 750 IF PO0 THEN 790SC 760 FOR F=l TO 5AC 770 IF A(F)0 AND A(FX=6-FHP 7<strong>80</strong> NEXT FTHEN I=F:BOTO B00CE 790 I=INT(RNDt6)+l:IF A(I>=0THEN 790JP <strong>80</strong>0 COLOR 2:PRINT CHR*U+64):SC-0:FOR TM=1 TO 900:NEXTTMIK 810 DS=1:BQSUB 1250: FOR TM=1TO900:NEXTPO 820 PT=0:FOR F=l TO 12:A(F)=B(F):PT-PT+A(F):NEXTCJ B30 IF MP=ML AND MC-ML THEN 940CO 840 IF PT=0 THEN B<strong>80</strong>Pfl 850 IF CP>24 THEN 940FP 860 GOTO 340FS 870 REM tt NO COUNTERS ttPft 8<strong>80</strong> FOR TM=1 TO 400:NEXTCL 890 COLOR 4: PRINT DS»"No countera!!! M;LL 900 IF PT=0 THEN PRINT "Gameover."El 910 FOR TM=1 TO 900: NEXTPF 920 IF PT=0 THEN 1000m 930 REM t* AWARD COUNTERS **HI 940 COLOR 4: PRINT DSVGame ov•r. "fsCOLOR 14:PRINT "Award cDuntin. "HC 950 FOR F=l TO 6IC 960 P*»"C":SC=A(F) :T=F:B(T)=0:OOSUB 1160J« 970 P*="P":SP=ACP THEN COLOR 2: PRINT "Player wins. "j:GOT0 1050JN 1030 COLOR 4:PRINT "<strong>Computer</strong>wins. ";CO 1040 REM tt ANOTHER GAME ttCC 1050 COLOR 7: PRINT "Another gam* (Y/N>? ";NE 1060 GOSUB 1470: IF B*OUY" AND B*O"N" THEN 1060W! 1070 PRINT B«: IF B»-"Y" THEN50Clt 10B0 CLS:ENDEE 1090 REM tt QUIT GAME ttJL 1100 FOR TM=1 TO 100:NEXTflH 1110 COLOR 4:PRINT DS*"Quit g■me. Are you sure (Y/N>?IEO 1120 GOSUB 1470: IF B*O"Y" AND B«O"N" THEN 1120E5 1130 IF B*O"Y" THEN 370KM 1140 PRINT DSS;:PT=*0:GOTO 900EC 1150 REM tt UPDATE DISPLAY ttKP 1160 COLOR 7ES 1170 IF T6 THEN TB=5t(T-6>+lCL 1190 LOCATE 13-2t (T>6) , TBs PRINTBIT);KD 1200 FOR TM=1 TO 400: NEXTEH 1210 IF B(T)0 THEN RETURNBF 1220 IF P*="P" THEN GOSUB 1500:RETURNflfl 1230 IF P»="C" THEN GOSUB 15S0:RETURNBC 1240 REM MOVE COUNTERSHE 1250 T=I:S1=0:52=0LD 1260 FOR F=l TO 12: B CF) =A (F> :NEXTDH 1270 B(T)=0:IF DS THEN GOSUB1160DL 12<strong>80</strong> FOR F=l TO A(T)FA 1290 T=T+1DN 1300 IF T>12 THEN T=lJH 1310 B(T)=B
Change language