CLEAR
10 RANDOMIZE TIMER

SCREEN 9
REM red rejects
REM blue prompts
REM green hits
REM yellow scores
REM lilac choices
LOCATE 10, 33: COLOR 13, 0: PRINT "C H O I C E"
PRINT : COLOR 2, 0
PRINT TAB(18); "a Sid Sackson game computerised for the PC"
PRINT TAB(31); "by G.C.Crawshay"
SLEEP 3
CLS

150 DIM s(12), t(12)

270 FOR q = 2 TO 12: READ s(q): NEXT
    FOR q = 0 TO 7: READ v1(q), v2(q), v3(q), v4(q): NEXT
280 ct$ = "CURRENT": fl$ = "FINAL"
400 LOCATE 5, 20: COLOR 3, 0: INPUT "How many human players (1 - 4)"; nh
410 IF nh < 1 OR nh > 4 GOTO 400
420 PRINT : PRINT TAB(20);
    INPUT "How many computer oppponents (0 to 3)"; c
430 IF c < 0 OR c > 3 GOTO 420
440 np = nh + c: lp = np: fp = 1
450 PRINT : PRINT TAB(20);
    IF np = 1 THEN INPUT "Player's name"; pl$(1): GOTO 900
460 PRINT "Contestants' names, please (if there are"
461 PRINT TAB(20); "computer opponents, give them names also)"
470 PRINT
    FOR q = 1 TO np
480   x$ = "(human) ": IF q > nh THEN x$ = "(computer) "
490   PRINT TAB(20); "player no."; q; x$; : INPUT pl$(q)
500 NEXT
520
521 sc$ = "y"
900 pl = 1
950 DIM nt(np, 12), st(np, 12), ht(np, 12)
1100 FOR q = 1 TO 5: d(q) = INT(RND(1) * 6 + 1): NEXT: tt = tt + 1
1110 col = 0: diecol = 15: GOSUB 12000
1120 FOR q = 1 TO 5
       vst = 150 + 60 * q: hst = 140: xxx = d(q)
1130   GOSUB dicepic
1199 NEXT: LOCATE 1, 1
1210 IF rj(pl) = 0 GOTO 1480
1220 x = 0
     FOR q = 1 TO rj(pl)
1230   FOR j = 1 TO 5
1240     IF r(pl, q) = d(j) THEN x = x + 1: rx(x) = d(j): nx(x) = j: GOTO 1260
1250   NEXT j
1260 NEXT q
1280 IF rj(pl) < 3 GOTO 1480
1290 IF x = 0 THEN
       LOCATE 8, 40: COLOR 3, 0: PRINT "FREE THROW!"
       GOSUB 13000: IF pl > nh GOTO 5000
     END IF
1295 IF x = 0 GOTO 3200
1300 IF x > 1 GOTO 1329
1305 x$ = "You": IF pl > nh THEN x$ = "I"
1310 LOCATE 15, 31: COLOR 3
     PRINT "No choice - "; x$; " must reject a"; : COLOR 4: PRINT rx(1)
1315 LOCATE 23, 35: COLOR 9: PRINT "Press RETURN when ready": COLOR 15
1320 rn = rx(1): rd = nx(1)
1325 FOR q = 1 TO 3
       IF rn <> r(pl, q) GOTO 1328
1326   n = q: GOSUB 11000: vst = 150 + 60 * rd
       diecol = 8: col = 4: xxx = rn: GOSUB dicepic
1327   GOSUB 10000: GOTO 1600
1328 NEXT q
1329 IF pl > nh GOTO 4100
1330 LOCATE 15, 32
     IF x = 2 THEN
       COLOR 3: PRINT "You may reject a";
       COLOR 4: PRINT rx(1); : COLOR 3: PRINT "or a";
       COLOR 4: PRINT rx(2): GOTO 1350
     END IF
1340 LOCATE 15, 27: COLOR 3: PRINT "You may reject any of your 3 numbers"
1350 PRINT : COLOR 3: PRINT TAB(39); "Which one? "; : ly = 17: lx = 50
1355 colour = 4: max = 7: GOSUB 10100
     rn = a: LOCATE 17, 49: COLOR 4: PRINT rn
1360 FOR q = 1 TO x
       IF rn = rx(q) GOTO 1510
1370 NEXT: GOTO 1330
1480 REM reject routine when quota unfulfilled
1490 IF pl > nh GOTO 4000

Pre.3.Rej:
1500 LOCATE 15, 35: COLOR 3: PRINT "Which number are you"
1505 PRINT TAB(35); "planning to reject? ";
     ly = 16: lx = 56: colour = 4: max = 7: GOSUB 10100: rn = a
1506 LOCATE 16, 55: COLOR 4: PRINT rn: PRINT : PRINT


1510 FOR q = 1 TO 5
       IF rn = d(q) THEN rd = q: GOTO 1523
1520 NEXT: GOTO 1480

1523 vst = 150 + 60 * rd: diecol = 8: col = 4: xxx = rn: GOSUB dicepic
     
     
1525 GOSUB 10500: IF pl > nh THEN GOSUB 10700: GOSUB 15700: GOTO 1540
1530 GOSUB 10200: GOSUB 15200
1533 IF f = 1 GOTO 1540
1535 diecol = 15: col = 8: GOSUB dicepic: IF rj(pl) < 3 GOTO 1480
1538 IF rj(pl) = 3 GOTO 1330
1540 FOR q = 1 TO 3
      IF rn = r(pl, q) THEN n = q: GOSUB 11000: GOTO 1600
1550 NEXT
     rj(pl) = rj(pl) + 1: r(pl, rj(pl)) = rn: n = rj(pl): GOSUB 11000
1600 REM move out reject die

1605 FOR q = 1 TO 5: dd(q) = d(q): NEXT
1610 LINE (180, 60)-(520, 240), 0, BF
1615 IF rd = 5 GOTO 1625
1620 z = dd(5): dd(5) = dd(rd): dd(rd) = z
1625 vst = 500: hst = 40: xxx = dd(5): GOSUB dicepic

1626 diecol = 15: col = 8
     FOR q = 1 TO 2
1627   vst = 100 + 60 * q: hst = 60: xxx = dd(q): GOSUB dicepic
     NEXT
1628 FOR q = 1 TO 2
       vst = 100 + 60 * q: hst = 103: xxx = dd(q + 2): GOSUB dicepic
     NEXT

1660 IF e(pl) = 0 GOTO 2000
1665 IF pl <= nh GOTO 1680
1670 GOSUB compslast: GOTO 1690
1680 GOSUB warning
1690 SLEEP 2: e(pl) = 2
1695 LINE (296, 184)-(480, 248), 0, BF

1700 REM arrange re drop-outs
1720 IF pl <> lp GOTO 2000
1725 lp = lp - 1: IF e(lp) = 2 GOTO 1725
2000 REM combinations
2030 o(1, 1) = dd(1) + dd(2)
2040 o(2, 1) = dd(1) + dd(3)
2050 o(3, 1) = dd(1) + dd(4)
2060 o(1, 2) = dd(3) + dd(4)
2070 o(2, 2) = dd(2) + dd(4)
2080 o(3, 2) = dd(2) + dd(3)
3000 REM number selection routine
3010 du = 0: dp = 0
     FOR q = 1 TO 4
       FOR j = 1 TO 4
3020     IF j = q GOTO 3040
3030     IF dd(q) = dd(j) THEN du = du + 1: dp = q + j
3040   NEXT
     NEXT
3050 IF du > 4 THEN vc = 1: n = 1: IF tf = 0 GOTO 3185
3055 IF du > 4 AND tf = 1 AND vc = 1 AND n = 1 GOTO 5000
3060 IF du = 0 THEN vc = 3: GOTO 3093
3070 vc = 2: IF dp = 4 OR dp = 6 GOTO 3090
3075 IF dp = 5 AND du = 4 GOTO 3090
3080 o(2, 1) = o(3, 1): o(2, 2) = o(3, 2): GOTO 3093
3090 o(1, 1) = o(2, 1): o(1, 2) = o(2, 2)
     o(2, 1) = o(3, 1): o(2, 2) = o(3, 2)
3093 IF tf = 1 GOTO 5000
3095 x$ = "Your": IF pl > nh THEN x$ = "  My"
3100 LOCATE 9, 38: COLOR 3: PRINT x$; " choices are": PRINT
3110 FOR q = 1 TO vc
3120   LOCATE CSRLIN, 41: COLOR 13: PRINT q;
       COLOR 2: PRINT o(q, 1); : COLOR 3: PRINT "&";
       COLOR 2: PRINT o(q, 2)
3130 NEXT
3135 IF pl > nh GOTO 5000
3140 PRINT : COLOR 3: LOCATE CSRLIN, 41
     PRINT "Which no?"; : ly = 12 + vc: lx = 51
     colour = 13: max = vc + 1: GOSUB 10100
3150 n = a: LOCATE 12 + vc, 50: COLOR 13: PRINT n: GOSUB 10200: GOSUB 15200
3170 IF f = 0 GOTO 3093
3180 GOTO 3200
3185 GOSUB 15200: x$ = "you": IF pl > nh THEN x$ = "I"
3190 LOCATE 11, 38: COLOR 3: PRINT "No choice - "; x$;
3191 PRINT " must take"; : COLOR 2: PRINT o(1, 1);
     COLOR 3: PRINT "&"; : COLOR 2: PRINT o(1, 2): GOSUB 10700: GOSUB 15700
3200 FOR q = 1 TO 2
3210   nt(pl, o(n, q)) = nt(pl, o(n, q)) + 1
     NEXT
3500 REM adjust scores
3510 FOR q = 2 TO 12
3515   IF nt(pl, q) = 0 GOTO 3590
3520   IF nt(pl, q) < 5 THEN st(pl, q) = -200: GOTO 3590
3530   st(pl, q) = (nt(pl, q) - 5) * s(q)
3590 NEXT
3600 REM total score
3610 ts(pl) = 0: FOR q = 2 TO 12: ts(pl) = ts(pl) + st(pl, q): NEXT
3612 fx = 1: GOSUB 12000: fx = 0
3615 FOR q = 1 TO 20000: NEXT
3620 IF np = 1 OR sc$ <> "y" OR pl < lp GOTO 9700
3630 GOTO 9000
4000 REM computer reject routine (unfulfilled)
4010 n = 0
4020 x = INT(RND(1) * 5 + 1): n = n + 1: IF n > 10 GOTO 4060
4030 FOR q = 1 TO 2
4040   IF r(pl, q) = d(x) GOTO 4020
4050 NEXT
4060 rn = d(x): IF rj(pl) = 0 THEN GOSUB 11500
4065 IF ca = 1 GOTO 4010
4070 FOR q = 1 TO 3
       IF r(pl, q) = rn THEN mc = 8 - rt(pl, q): GOTO 4500
4080 NEXT q
4090 mc = 8: GOTO 4500
4100 REM find max danger
4110 md = 0
     FOR q = 1 TO 3
4120   IF rt(pl, q) > md THEN md = rt(pl, q)
4130 NEXT
4200 REM comp trial rejects
4210 tf = 1
     FOR kk = 1 TO x: tr = nx(kk)
4213   FOR q = 1 TO 3
         IF r(pl, q) = d(tr) THEN mc = 8 - rt(pl, q): GOTO 4220
4215   NEXT q
4220   FOR j = 1 TO 5: dd(j) = d(j): NEXT
4230   IF tr = 5 GOTO 4250
4240    z = dd(5): dd(5) = dd(tr): dd(tr) = z
4250   GOTO 2000
4500   LOCATE 15, 38: COLOR 3
       PRINT "I'll reject a"; : COLOR 4: PRINT rn: GOTO 1510
5000   REM computer number selection
5010   bs = -10000
       FOR q = 1 TO vc
         va(q) = 0: FOR k = 2 TO 12: ht(pl, k) = nt(pl, k)
       NEXT
5015   FOR j = 1 TO 2
         ht = ht(pl, o(q, j))
5020     IF ht = 4 THEN va(q) = va(q) + v4(md): ht(pl, o(q, j)) = 5
5030     IF ht = 0 THEN va(q) = va(q) - 200: ht(pl, o(q, j)) = 1
5040     IF ht = 1 THEN va(q) = va(q) + v1(md): ht(pl, o(q, j)) = 2
5050     IF ht = 2 THEN va(q) = va(q) + v2(md): ht(pl, o(q, j)) = 3
5060     IF ht = 3 THEN va(q) = va(q) + v3(md): ht(pl, o(q, j)) = 4
5070     IF ht > 4 THEN va(q) = va(q) + s(o(q, j))
5300   NEXT j
5303   IF va(q) < 0 THEN va(q) = va(q) / mc: GOTO 5310
5305   va(q) = va(q) * mc
5310   IF va(q) > bs THEN bs = va(q): n = q
5390 NEXT q: IF tf = 1 GOTO 5600
5400 IF ft = 0 GOTO 5500
5409 REM comp free throw decision
5410 ly = INT((sn + 1) / 2) + 18: LOCATE ly, 40
5415 COLOR 3, 0: PRINT "I'll take"; : COLOR 13, 0: PRINT n
5420 GOSUB 10300: FOR q = 1 TO 1000: NEXT
     GOSUB 10700: GOSUB 15700: ft = 0: GOTO 3170
5500 PRINT : COLOR 3: LOCATE CSRLIN, 41: PRINT "I'll take ";
     COLOR 13: PRINT n: GOSUB 10700: GOSUB 15700: GOTO 3170
5600 REM comp trial cont
5610 bs(kk) = bs: NEXT kk
5620 bs = -10000
     FOR k = 1 TO x
5630   IF bs(k) > bs THEN bs = bs(k): n = k
5640 NEXT: rn = d(nx(n)): tf = 0: GOTO 4500

9000 REM display scores
9010 IF sc$ <> "y" GOTO 9700
9020 CLS : LOCATE 6, 33: COLOR 14: PRINT "SCORES SO FAR"
9021 PRINT TAB(33); "-------------": PRINT
9030 FOR q = 1 TO np
9040   COLOR 3: PRINT TAB(28); pl$(q); : COLOR 14: PRINT TAB(48); ts(q);
9043   IF e(q) = 2 THEN COLOR 3, 0: PRINT "out";
9045   PRINT : PRINT
     NEXT
9050 LOCATE 23, 28: COLOR 9: PRINT "Press any key to continue"
9060 GOSUB 10000
9700 pl = pl + 1: IF e(pl) = 2 GOTO 9700
9710 IF pl > lp THEN GOSUB 14000: pl = fp
9720 FOR q = 1 TO np
9730   IF e(q) = 2 GOTO 9750
9740   GOTO 9780
9750 NEXT: GOTO 9800: REM end
9780 IF pl = fp GOTO 1100
9790 GOTO 1110
9800 REM end
9810 FOR q = 1 TO np: x = ts(q)
9820   FOR j = 1 TO np
9830     IF ts(j) >= x THEN x = ts(j): y = j
9840   NEXT j: fs(q) = x: fp$(q) = pl$(y): ts(y) = -3000
9850 NEXT q
9860 CLS : COLOR 14: LOCATE 8, 30: PRINT "So final scores are:": PRINT
9870 FOR q = 1 TO np
       COLOR 3: PRINT TAB(30); fp$(q);
       COLOR 14: PRINT TAB(45); fs(q): PRINT
     NEXT: END
10000 REM pause
Pause:
      a$ = INKEY$
      WHILE a$ = ""
        GOTO Pause
      WEND
10010 RETURN
10100 LOCATE ly, lx: PRINT " ";
10103 a$ = INKEY$: IF a$ = "" GOTO 10103
      a = VAL(a$)
10110 IF a > 0 AND a < max THEN COLOR colour: RETURN
10120 LOCATE ly, lx: COLOR 15, 0
      PRINT " "; : GOTO 10100
10130 RETURN

10200 REM s/r re pressing return
10210 LOCATE 22, 34: COLOR 9, 0: PRINT "Press RETURN if ok, any"
10220 LOCATE 23, 36: PRINT "other key to change"
10230 f = 0: nc = 0: a$ = INKEY$: IF a$ = "" GOTO 10230
10240 IF a$ <> CHR$(13) THEN nc = 1: GOTO 10260
10250 f = 1
10260 RETURN

10300 REM s/r highlighting selections on free throw
10320 tb = 35: IF n / 2 = INT(n / 2) THEN tb = 47
10330 LOCATE INT((n + 1) / 2) + 16, tb
10340 n$ = RIGHT$(STR$(n), 1)
10345 IF nc = 1 THEN COLOR 13 ELSE COLOR 15
10350 PRINT n$: RETURN

10500 REM s/r identifying reject dice
10510 PRINT sp$; ""; : FOR q = 1 TO rd: PRINT ""; : NEXT
10520 PRINT gd$(rn): RETURN

10700 REM press return when ready
10710 LOCATE 23, 35: COLOR 9, 0: PRINT "Press RETURN when ready"
10720 a$ = INKEY$: IF a$ = "" GOTO 10720
10730 RETURN

11000 REM s/r for increasing reject totals
11010 rt(pl, n) = rt(pl, n) + 1: IF rt(pl, n) = 8 THEN e(pl) = 1

11020 LOCATE 17 + rn, 9: COLOR 4: PRINT rt(pl, n)
11090 RETURN

11500 REM s/r for different starting rejects
11510 ca = 0: IF pl = nh + 1 THEN fr(0) = rn: RETURN
11520 IF rn = fr(0) OR rn = fr(1) THEN ca = 1: RETURN
11530 fr = fr + 1: fr(fr) = rn: RETURN
12000 REM s/r scoring table
12005 w$ = ct$: IF e(pl) = 1 THEN w$ = fl$
12007 IF fx = 1 THEN LOCATE 1, 45: PRINT "       " ELSE CLS
12010 LOCATE 1, 1: COLOR 3: PRINT pl$(pl);
      COLOR 14: PRINT TAB(30); w$; " SCORE: "; ts(pl)
12020 COLOR 2, 0: PRINT "    HITS"; : COLOR 3
      PRINT "/"; : COLOR 14: PRINT "SCORES"
12025 PRINT
      FOR q = 2 TO 12
        COLOR 7: IF nt(pl, q) > 4 THEN COLOR 15, 0
12030   PRINT " "; RIGHT$(STR$(q), 2); : COLOR 7, 0
12035   IF nt(pl, q) = 0 THEN PRINT : GOTO 12050
12040   COLOR 2: PRINT "  "; nt(pl, q); : COLOR 14: PRINT " "; st(pl, q); "  "
        REM there was a ;"" at end last line ??******
12050 NEXT
12055 IF fx = 1 THEN RETURN
12060 PRINT : COLOR 4: PRINT "    REJECTS": PRINT
      FOR q = 1 TO 6
12070   FOR j = 1 TO 3
          IF r(pl, j) <> q GOTO 12090
12080     COLOR 7: PRINT "    "; q; : COLOR 4
          PRINT " "; rt(pl, j): GOTO 12100
12090   NEXT j
        IF rj(pl) < 3 THEN COLOR 7: PRINT "    "; q: GOTO 12100
12095   PRINT
12100 NEXT q: RETURN
13000 REM s/r free throw
13001 zz$ = "Your": IF pl > nh THEN zz$ = "My"
13003 ft = 1: sn = 0: FOR k = 1 TO 6: n(k) = 0: NEXT: FOR q = 1 TO 5: dd(q) = d(q): NEXT
13005 LOCATE 15, 37: PRINT zz$; " choices are": PRINT
13030 FOR q = 1 TO 5
13040   FOR k = 2 TO 12: t(k) = 0: NEXT
13050   z = dd(1): dd(1) = dd(2): dd(2) = dd(3)
        dd(3) = dd(4): dd(4) = dd(5): dd(5) = z
13060   FOR k = 1 TO 6
          IF dd(5) = k THEN n(k) = n(k) + 1: IF n(k) > 1 GOTO 13250
13070   NEXT k
13080   ox(1, 1) = dd(1) + dd(2): t(ox(1, 1)) = 1
13090   ox(1, 2) = dd(3) + dd(4): t(ox(1, 2)) = 1
13100   ox(2, 1) = dd(1) + dd(3): ox(2, 2) = dd(2) + dd(4)
13110   IF t(ox(2, 1)) = 0 GOTO 13130
13120   IF t(ox(2, 1)) = t(ox(2, 2)) THEN
          ox(2, 1) = 0: ox(2, 2) = 0: GOTO 13140
        END IF
13130   t(ox(2, 1)) = 2: t(ox(2, 2)) = 2
13140   ox(3, 1) = dd(1) + dd(4): ox(3, 2) = dd(2) + dd(3)
13150   IF t(ox(3, 1)) = 0 GOTO 13170
13160   IF t(ox(3, 1)) = t(ox(3, 2)) THEN ox(3, 1) = 0: ox(3, 2) = 0
13170   FOR j = 1 TO 3
13175     IF ox(j, 1) = 0 GOTO 13210
13180     sn = sn + 1: n$ = RIGHT$(STR$(sn), 1)
          IF sn / 2 = INT(sn / 2) GOTO 13200
13190     COLOR 13: LOCATE , 35: PRINT n$; : COLOR 2: PRINT ox(j, 1);
          COLOR 3: PRINT "&"; : COLOR 2: PRINT ox(j, 2); : GOTO 13205
13200     COLOR 13: LOCATE , 47: PRINT n$; : COLOR 2: PRINT ox(j, 1);
          COLOR 3: PRINT "&"; : COLOR 2: PRINT ox(j, 2)
13205     o(sn, 1) = ox(j, 1): o(sn, 2) = ox(j, 2)
13210   NEXT j
13250 NEXT q
13255 nc = 0
13257 IF pl > nh THEN vc = sn: RETURN
13258 ly = INT((sn + 1) / 2) + 18: lx = 50: max = sn + 1
13260 ft = 0: LOCATE ly, 40: COLOR 3, 0
      PRINT "Which No?"; : colour = 13: GOSUB 10100
13263 IF a > sn GOTO 13260
13265 n = a: LOCATE ly, 49: PRINT n: GOSUB 10300: GOSUB 10200: GOSUB 15200
13270 IF f = 0 THEN GOSUB 10300: GOTO 13255
13300 RETURN
14000 REM s/r determining fp
14010 IF e(fp) = 2 THEN fp = fp + 1: GOTO 14010
14020 RETURN
15200 LOCATE 22, 34: PRINT "                        "
      LOCATE 23, 34: PRINT "                        "
      RETURN
15700 LOCATE 23, 35: PRINT "                       ": RETURN
50000 DATA 100,70,60,50,40,30,40,50,60,70,100
50010 DATA 120,70,40,30,115,75,50,40,110,80,60,50,100,90,75,65
50020 DATA 60,80,90,100,40,70,100,140,12,50,90,175,0,25,100,200

60000 REM d(1-5) = 5 dice throws:rj(pl) = players' rejects
      REM rj(pl)=3 means full
60010 REM r(pl,1-3) = players' chosen reject nos.
60020 REM rx(1-3) = current player's reject nos. thrown
60030 REM nx(1-5) = position of reject nos.
60040 REM nt(pl,2-12)=each player's number hits

   


dicepic:

x1 = vst: y1 = hst: x2 = vst + 43: y2 = hst + 31
LINE (x1, y1)-(x2, y2), diecol, BF

61130 ON xxx GOTO 61131, 61132, 61133, 61134, 61135, 61136
61131 GOSUB centre: RETURN
61132 GOSUB top.left: GOSUB bottom.right: RETURN
61133 GOSUB top.left: GOSUB centre: GOSUB bottom.right: RETURN
61134 GOSUB top.left: GOSUB top.right: GOSUB bottom.left: GOSUB bottom.right: RETURN
61135 GOSUB top.left: GOSUB top.right: GOSUB centre: GOSUB bottom.left: GOSUB bottom.right: RETURN
61136 GOSUB top.left: GOSUB top.right: GOSUB middle.left: GOSUB middle.right: GOSUB bottom.left: GOSUB bottom.right: RETURN

top.left:
  LINE (x1 + 5, y1 + 3)-(x1 + 12, y1 + 8), col, BF
RETURN

bottom.right:
  LINE (x2 - 12, y2 - 8)-(x2 - 5, y2 - 3), col, BF
RETURN

top.right:
  LINE (x2 - 12, y1 + 3)-(x2 - 5, y1 + 8), col, BF
RETURN

bottom.left:
  LINE (x1 + 5, y2 - 8)-(x1 + 12, y2 - 3), col, BF
RETURN

middle.left:
  LINE (x1 + 5, y1 + 13)-(x1 + 12, y1 + 18), col, BF
RETURN

middle.right:
  LINE (x2 - 12, y1 + 13)-(x2 - 5, y1 + 18), col, BF
RETURN

centre:
  LINE (x1 + 18, y1 + 13)-(x1 + 25, y1 + 18), col, BF
RETURN


REM vst = 150 + 60 * rd + 2: PAINT (vst, 82), 2: col = 4: GOTO 1600 ???

 
warning:
  LINE (296, 184)-(480, 248), 8, BF
  LOCATE 15, 40
  COLOR 3, 0: PRINT "In case you haven't"
  LOCATE 16, 40: PRINT " realised, this is "
  LOCATE 17, 40: PRINT "  your last  turn  ": COLOR 15, 0
RETURN
  
compslast:
  LINE (310, 184)-(474, 234), 8, BF
  LOCATE 15, 42
  COLOR 3, 8: PRINT "   This is my   "
  LOCATE 16, 42: PRINT "   last  turn   ": COLOR 15, 0: SLEEP 2
RETURN