Untitled - TRS-80 Color Computer Archive

PH 1390 IF P$="C" AND T0>=7 THEN .1420SG 1400 RETURNBF 1410 REM ***TOTAL CAPTURES***RC 1420 LS=1:IF P$="C" THEN LS=7SX 1430 FOR F=T0 TO LS STEP -1XF 1440 IF B(F)3 THENRETURNBG 1450 IF P$="P" THEN SP=B(F):S2=S2+SP:GOTO 1470HK 1460 IF P$="C" THEN SC=B(F)iSl=Sl+SCCF 1470 B(F)=0:IF DS THEN T-PlGOSUB 1190HC 1480 NEXT F:RETURNRK 1490 REM ***GET A CHARACTER***SQ 1500 GET B$:IF B5"" THEN(SPACE) 1500KX 1510 GET B?:IF B$="" THEN 1510SS 1520 RETURNPK 1530 REM ***DISPLAY PLAYER1S SCORE***CD 1540 IF SP=0 THEN RETURNDE 1550 FOR H=PL+1 TO PL+SPES 1560 PRINT LEFT$(D$,21)TAB{18)"£31HH:GOSUB 1640GA 1570 NEXT H:PL=PL+SPrRETURNJB 1580 REM ***DISPLAY COMPUTER'SSCORE***KA 1590 IF SC=0 THEN RETURNGJ 1600 FOR H=CP+1 TO CP+SCSH 1610 PRINT LEFT${D$,9)TAB(18)"i3i"H:GOSUB 1640GM 1620 NEXT H:CP=CP+SC:RETURN3G 1630 REM ***SOUND***AK 1640 S=54272:FOR X=S TO S+24:POKE X,0:NEXT XGJ 1650 POKE S+5,0:POKES+6,240ER 1660 IF PS="C" THEN 1680GJ 1670 POKE S+1,45:POKE S.135:POKE S+4,17:GOTO 1690AX 1680 POKE S+1,8:POKE S,135:POKE S+2,255:POKE S+4,65BG 1690 POKE S+24,15:FOR TM=1{ SPACE }T0 50:NEXT TH:POKES+24,0AK 1700 IF P$="C" THEN POKE S+4,64:RETURNBX 1710 POKE S+4,16:RETURNProgram 2: Apple II WariVersion by Patrick Parrish,Programming Supervisorflfl 10 DIM A,SC"PR#A768": BGTO 50B4 40 POKE 54,0: POKE 55,3: CALL1002E6 50 POKE 6,0: POKE 7,138: POKE230,64F6 60 HGR2 : GOTO 100F2 70 HTAB 10: PRINT "ttttttttttt*tt**t*ttt": RETURN7E 80 PRINT TAB( 10)"*";: INVERSE : PRINT SPC( 19);: NORMAL : PRINT "*": RETURNtttXttXtXtttttI1I1IIICOMPUTER'SMOUE # 2SCORE' 8PLAYER'SHOUE • ZSCORE' 0SIDESIDEPLAYER'S TURN. KOUE COUNTERS fG-LJ?"Wari" for Apple H computers.BD 90 VTAB 23: PRINT SPC ( 39): HTAB 1: RETURN5A 100 HOME : VTAB 17D 110 GDSUB 708« 120 GOSUB 8028 130 PRINT TAB( 10)'■*";: INVERSE : PRINT " ";: NORMAL: PRINT "APPLE 1L WARI";: INVERSE : PRINT " ";:B4 140 GOSUB 0085 150 GOSUB 70NORMAL : PRINT "*"D4 160 PRINT : PRINT TAB ( 13) "CDMPUTER'S SIDE":CP = 0:MC- 0Cfl 170 PRINT TAB( 13)"MOVE # "MC: PRINT TAB( 13)"SCORE: "CPS3 1B0 PRINT : PRINT " >H>»>! >21 230EC 24075 250E4 260F8 2703« 280DE 29034 300?E 310B? 320AC 330IB 340PRINT : PRINT TAB( 13)"PLAVER'S SIDE":PL = 0:MP -0PRINT TfiB( 13)"MOVE * "MP: PRINT TAB( 13)"SCORE: ■PLFOR T = i TO 12:A(T> = 4sB(T) = 4: GOSUB 1220: NEXTREM *** GAME TYPE & FIRSTTURN ***PRINT : VTAB 23: INVERSE: PRINT "L";: NORMAL : PRINT "IMITED OR ";: INVERSE s PRINT "U";: NORMAL :PRINT "NLIMITED GAME? ";GOSUB 1530: IF B* < > "L"AND B$ < > "U" THEN 280PRINT B*: FOR TM = 1 TO 200: NEXT :ML = 0IF B* = "U" THEN VTAB 4:HTAB 16: PRINT "UNLIMITED■l GOTO 340GOSUB 90: HTAB 1: PRINT "MOVE LIMIT";: INPUT MLML = INT (ML): IF ML < =0 THEN 310HTAB 15: VTAB 4: PRINT "LIMITED: " + STR* VTAB 23: PRINT "WHO GOESFIRST: ";: INVERSE : PRINT ••€";'. NORMAL : PRINT "0MPUTER OR ";: INVERSE : PRINT "P";: NORMAL : PRINT"LAYER? ";2C 350 GOSUB 1530: IF B* < > "C"AND B« < > "P" THEN 20Bi 360 PRINT B*: FOR TM = 1 TO 200: NEXT47 370 IF B* = "C" THEN 55034 380 REM ** PLAYER'S MOVE **14 390 P* = "P":P m 0:SP - 0:MP- MP + 1£1 400 VTAB 20: HTAB 20: PRINT MPE¥ 410 FOR F = 7 TO 12:P = P + A(F): NEXT FDB 420 GOSUB 90: PRINT "PLAYER'STURN. MOVE COUNTERS = "G" AND B« < ="L" THEN IF Ad) < > 0 THEN 4907F 470 GOSUB 90: PRINT "ILLEGALMOVE!!!"5E 480 FOR TM = 1 TO 900: NEXT TM: BOTO 420ftl 490 DS = 1: GOSUB 1310: FOR TM = 1 TO 900: NEXTDf 500 PT = 0: FOR F = 1 TO 12: A(F) = B(F>:PT = PT + ACF): NEXT2C 510 IF MP = ML AND MC = ML TH1CIAAD23520530540550F4 56022 570EN 1000IF PT = 0 THEN 940IF PL > 24 THEN 1000REM ** COMPUTER'S MOVE **P* = "C":PA = 0:PB = 0: IA= 0:IB = 0:P = 0:MC = MC+ 1VTAB B: HTAB 20:FOR F = 1 TO 6:PF>: NEXT FF2 5B0 GOSUB 90: PRINT "COMPUTER'S TURN. MOVES COUNTERS A-F. ";DA 590 IF P = 0 THEN 940D* 600 REM ** CHECK ALL MOVES **flE 610 FOR G = 1 TO 12SB 620 SC(G> = 0:I(G) =04C 630 IF G = 7 THEN PS = "P"E# 640 IF A(G) = 0 THEN 68015 650 SC = 0:SP = 0: I = GC? 660 DS = 0: GOSUB 131014 670 POKE 254,SI: POKE 255,S2:CALL 856:SC(G) = PEEK (254):I(G) = T0F! 680 NEXT 6A2 690 P* = "C"« 700 REM ** PICK BEST MOVE «*4C 710 FOR F = 1 TO 64C 720 IF PA > = SC(F) THEN 740D< 730 IA - F:PA = SC(F)D? 740 IF PB > - SC(F + 6) OR A (I(F + 6)) - 0 THEN 760AA 750 IB = I(F + 6):PB = SC(F +6)6E 760 NEXT F41 770 IF IA = 0 AND IB = 0 THENB00?8 7B0 I = IA: IF (PB > PA) THENI - IB2C 790 GOTO B60F4 B00 P = 0: FOR F = 7 TO 12s P- P + A(F): NEXT FB7 810 IF P < > 0 THEN 850V 820 FOR F ■= 1 TO 572 830 IF A(F) < > 0 AND A(F)