Untitled - TRS-80 Color Computer Archive

COMPUTER'S SIDEHOWE !! iPLftVEB'S sireHoUe a ISCORE: §4 4 4PLIWER'S TURH. MOUE COUNTERS ?The Commodore 64 version of "Wart,"an ancient strategy game.CK 160 PRINT"{4 SPACESlEQ^CCCC+CCCC+CCCC+CCCC+CCCC+CCccEwT"JE 170 PRINT"{4 SPACES}^{4 SPACES}Z{4 SPACES}^{4 SPACES}_={4 SPACES}^{4 SPACES}_={4 SPACESJ-"QH 180 PRINT"{4 SPACESj-{4 SPACESj-[4 SPACES}-{4 SPACES}zt4 SPACES}^{4 SPACESM4 SPACES]^"MF 190 PRINT"g6§{4 SPACES}>>G>L> > > "BD 200 PRINTsPRINT TAB(12)M{WHTjPLAYER'S SIDE":PL=0:MP=0FS 210 PRINT TAB(12)"{PUR}MOVE#E73"HP:PRINT TAB(12)"XM 220HH 260DD 270AK 280MM 290XF 300GX 310BB 320CJ 330BJ 340QC 350AK 360HM 370FOR T=l TO 12:A(T)=4:B(T)=4:GOSUB 1190:NEXT TGA 230 REM ***GAME TYPE & FIRST TURN***QS 240 PRINT DSSM{YEL}{RVS}L{OFFjlMITED OR {RVSjU[off}nlimited game? "jXP 250 gosub 1500:if b$"l" and b9"u" then 250print b$:for tm=1 to 200:nexttm:ml=0if b$="u" then print left$ (d$ , 4) tab (15 )" { rvs}^unlimited { off j":goto310PRINT DS$"MOVE LIMIT"::INPUTMLML=INT(ML):IF ML="G"THENAND1130B$=SC(F) THEN 710IA=F:PA=SC(F)IF PB>=SC(F+6) OR A(I(F+6))=0 THEN 730IB=I(F+6):PB=SC(F+6)PPKC720730 NEXT FCE 740 IF70IA=0 AND IB=0 THEN 7SQ 750 I=IA:IF PB>PA THEN I=IBSE 760 GOTO 830MM 770 P=0:FOR(F):NEXTF=7FTO 12:P=P+ARF 780 IF P0 THEN 820FJ 790 FOR P=l TO 5BS 800 IF A(F)0 AND A(F)24THENTHEN910970MQHP890900GOTOREM360***NO COUNTERS***JX 910 FOR TM=1 TO 400:NEXT TMCH 920 PRINT DSS"|llNO COUNTERSMIMX 930 IF PT=0 THEN PRINT "£l%GAME OVER."QF 940 FOR TM=1 TO 900:NEXT TMHP 950 IF PT=0 THEN 1030EJ 960 REM ***AWARD COUNTERS**MG 970 PRINT DS$"gl§GAME OVER.{YELJAWARD COUNTERS."EE 980 FOR F=l TO 6PH 990 P$="C":SC=A(F):T=F:B(T)=0:GOSUB 1190HP 1000 P$="P":SP=A(F+6):T=F+6:B(T)=0:GOSUB 1190JG 1010 NEXT FCR 1020 REM ***WHO WON***QM 1030 PRINT DS$;PF 1040 IF PL=CP THEN PRINT "{CYNjA DRAW. ";:GOTO 1080XM 1050 IF PL>CP THEN PRINT "&61PLAYER WINS. "::GOTO 1080KK 1060 IF CP>PL THEN PRINT "B33COMPUTER WINS. ";AX 1070 REM ***ANOTHER GAME***DH 1080 PRINT "IWHTjANOTHER GAME (Y/N)? ";CR 1090 GOSUB 1500:IF BS"Y"[SPACE}AND BS"N" THEN 1090DQ 1100 PRINT B?:IF B$ = "YH THEN 20PQ 1110 PRINT "{CLR]":ENDRS 1120 REM ***QUIT GAME***PD 1130 FOR TM=1 TO 100:NEXT TMHS 1140 PRINT DS$"gl§QUIT GAME. ARE YOU SURE (Y/N)?{ SPACE J " ;QB 1150 GOSUB 1500:IF BSo"Y"(SPACEjAND B$"N" THEN 1150KA 1160 IF B$"Y"THEN 390RS 1170 PRINT DS$; :PT=0:GOTO 930FH 1180 REM ***UPDATE DISPLAY*#*AJ 1190 PRINT LEFT$(D$,13-2*(TCJ 1200 IF T6 THEN TB=5*(T-6)XJ 1220 PRINT TAB(TB)B(T);:IF{SPACEJB(T)12 THEN T=lMD 1340 B(T)=B(T)+1:IF DS THENGOSUB 1190SJ 1350 NEXT F:T0=TFX 1360 REM ***ANY CAPTURES***CF 1370 IF B(T0)3[SPACEJTHEN RETURNBA 1380 IF P$="P" AND T0