1 REM ###############################›2 REM #      COMPUTER CRICKET       #›3 REM #    PART 3: SELECT TEAMS     #›4 REM #     by K. J. Bricknell      #›5 REM # Published by Atari Computer #›6 REM #    Enthusiasts (N.S.W.)     #›7 REM #        February 1985        #›8 REM ###############################›3600 POKE 842,12:FOR L=1 TO 61:TEMPERF(L)=0:NEXT L›3610 TEMP$(1,95)="                      ΘΕΑΔΣ                    "›3620 GRAPHICS 0:POKE 752,1:POKE 709,12:POKE 710,160›3630 POKE 559,34:POSITION 16,6:? TEMP$(1,95):POSITION 10,15:? NATION1$;" will toss"›3640 POSITION 10,17:? NATION2$;" call":POSITION 15,19:? "ΘHeads":POSITION 15,21:? "ΤTails"›3650 CURSOR=19:CH=14:CT=19:CB=21:CI=2:P=1:GOSUB 780›3660 IF CURSOR=19 THEN POSITION 15,21:? "        "›3670 IF CURSOR=21 THEN POSITION 15,19:? "        "›3680 GOSUB 2420:P=INT(RND(0)*10+15):B=0›3690 POKE 710,240:TEMP$(46,52)=" ταιμσ ":? "}":POSITION 16,6:? TEMP$(1,95):FOR L=1 TO 3:NEXT L›3700 B=B+1:IF B=P THEN 3750›3710 ? "}":POSITION 16,8:? TEMP$(31,37):FOR L=1 TO 5:NEXT L›3720 POKE 710,160:TEMP$(46,52)=" ΘΕΑΔΣ ":? "}":POSITION 16,6:? TEMP$(1,95):FOR L=1 TO 3:NEXT L›3730 B=B+1:IF B=P THEN 3750›3740 ? "}":POSITION 16,8:? TEMP$(31,37):FOR L=0 TO 3:NEXT L:GOTO 3690›3750 IF (TEMP$(47,47)="Θ" AND CURSOR=19) OR (TEMP$(47,47)="τ" AND CURSOR=21) THEN POSITION 8,15:? NATION2$;›3760 IF (TEMP$(47,47)="Θ" AND CURSOR=19) OR (TEMP$(47,47)="τ" AND CURSOR=21) THEN ? " wins the toss":GOTO 3780›3770 POSITION 8,15:? NATION1$;" wins the toss":TEAM1$(679,679)="F":GOTO 3790›3780 TEAM2$(679,679)="F"›3790 POSITION 8,17:? "Select team to bat first":POSITION 13,19:? "±";NATION1$:POSITION 13,21:? "²";NATION2$›3800 CURSOR=19:CH=12:CT=19:CB=21:CI=2:P=1:GOSUB 780›3810 IF CURSOR=19 THEN POSITION 13,21:? "              ":GOSUB 2420›3820 IF CURSOR=21 THEN POSITION 13,19:? "              ":GOSUB 2420:GOSUB 1820›3830 GRAPHICS 1:POKE 709,0:POKE 710,0:POKE 708,76:POSITION 0,10:? #6;" STANDBY WHILE THE   COVERS ARE REMOVED"›3840 POKE 656,3:? "GOTO 2460";:POKE 656,0:? " ";:POKE 842,13:ENTER "D:CRICKET4.LST"›3850 END ›