10 SCREEN 0

11 COLOR 8, 0

20 putina% = 59
 putinb% = 59
 putinc% = 59
 putind% = 59
 putine% = 59
 putinf% = 59
 puting% = 59
 putinh% = 59
 putini% = 59
 putinj% = 59
 putink% = 59
 putinl% = 59
 putinm% = 59
 putinn% = 59
 putino% = 59
 putinp% = 59
 putinq% = 59
 putinr% = 59
 putins% = 59
 putint% = 59
 putinu% = 59
 putinv% = 59
 putinw% = 59
 putinx% = 79
 putiny% = 79
 putinz% = 79

21 trumpa% = 59
 trumpb% = 59
 trumpc% = 59
 trumpd% = 59
 trumpe% = 59
 trumpf% = 59
 trumpg% = 59
 trumph% = 59
 trumpi% = 59
 trumpj% = 59
 trumpk% = 59
 trumpl% = 59
 trumpm% = 59
 trumpn% = 59
 trumpo% = 59
 trumpp% = 59
 trumpq% = 59
 trumpr% = 59
 trumps% = 59
 trumpt% = 59
 trumpu% = 59
 trumpv% = 59
 trumpw% = 59
 trumpx% = 79
 trumpy% = 79
 trumpz% = 79

100 CLS

101 LOCATE 2, 10
 PRINT "===================================="
 PRINT "         =                                  ="
 PRINT "         =         PUTIN PLAYS CHESS        ="
 PRINT "         =                                  ="
 PRINT "         =        (With Donald Trump)       ="
 PRINT "         =                                  ="
 PRINT "         ===================================="

 LOCATE 10, 5
 PRINT "I have no political motive behind this game."
 LOCATE 12, 5
 PRINT "These two leaders have some disagreements. So they have dedided"
 PRINT "    to solve them by playing a modified Chess. I created this game"
 PRINT "    for Commodore 64 in 1996. This as faithful to the original C-64"
 PRINT "    version as I could make. Unfortunately the Chess pieces (buttons)"
 PRINT "    are letters which does not look very pretty. Also the coding is"
 PRINT "    terrible. Anyway, this is best I can make. Enjoy."
 LOCATE 19, 5
 PRINT "Pasi Toivonen         FINLAND"
 LOCATE 20, 5
 PRINT "Mantta-Vilppula       February 2025"
 LOCATE 20, 6
 PRINT CHR$(132)
 LOCATE 20, 10
 PRINT CHR$(132)
 LOCATE 22, 5
 PRINT "hurricaneharvey64@gmail.com"
 LOCATE 23, 5
 PRINT "https://vk.com/pasitoivonen"
 LOCATE 23, 48

    PRINT "Press 'ESC' to start..."
    DO
    LOOP UNTIL INKEY$ = CHR$(27)

 GOTO 105

105 CLS
 LOCATE 3, 10
 PRINT " CONTROLS:"
 LOCATE 5, 10
 PRINT " 'W' or '8' = Up."
 LOCATE 6, 10
 PRINT " 'Z' or '2' = Down."
 LOCATE 7, 10
 PRINT " 'A' or '4' = Left."
 LOCATE 8, 10
 PRINT " 'D' or '6' = Right."
 LOCATE 9, 10
 PRINT " 'T' or '7' = Up/Left."
 LOCATE 10, 10
 PRINT " 'I' or '9' = Up/Right."
 LOCATE 11, 10
 PRINT " 'V' or '1' = Down/Left."
 LOCATE 12, 10
 PRINT " 'M' or '3' = Down/Right."

110 LOCATE 15, 5
 PRINT "                                              "

111 LOCATE 15, 5
 INPUT "Give value for random (10 - 30) "; t%

120 IF t% < 10 OR t% > 30 THEN
 PRINT CHR$(28)
 PRINT "    Out of range."
 SLEEP 1
 GOTO 105

 ELSE
 GOTO 130
 END IF

130 CLS

131 LOCATE 5, 5
 INPUT "Give value for injury (20 - 50) "; i%

132 IF i% < 20 OR i% > 50 THEN
 PRINT CHR$(28)
 PRINT "    Out of range."
 SLEEP 1
 GOTO 130

 ELSE
 GOTO 200
 END IF

200 CLS
 LOCATE 4, 4
 PRINT CHR$(218)

201 la% = 5
 lb% = 6

202 LOCATE 4, la%
 PRINT CHR$(196)
 LOCATE 4, lb%
 PRINT CHR$(194)

203 la% = la% + 2
 lb% = lb% + 2

204 IF lb% = 56 THEN
 GOTO 205

 ELSE
 GOTO 202
 END IF

205 LOCATE 4, 55
 PRINT CHR$(196)

 LOCATE 4, 56
 PRINT CHR$(191)

210 LOCATE 5, 4
 PRINT CHR$(179)

211 la% = 5
 lb% = 6

212 LOCATE 5, la%
 PRINT CHR$(32)
 LOCATE 5, lb%
 PRINT CHR$(179)

213 la% = la% + 2
 lb% = lb% + 2

214 IF lb% = 56 THEN
 GOTO 215

 ELSE
 GOTO 212
 END IF

215 LOCATE 5, 55
 PRINT CHR$(32)

 LOCATE 5, 56
 PRINT CHR$(179)

220 LOCATE 6, 4
 PRINT CHR$(195)

221 la% = 5
 lb% = 6

222 LOCATE 6, la%
 PRINT CHR$(196)
 LOCATE 6, lb%
 PRINT CHR$(197)

223 la% = la% + 2
 lb% = lb% + 2

224 IF lb% = 56 THEN
 GOTO 225

 ELSE
 GOTO 222
 END IF

225 LOCATE 6, 55
 PRINT CHR$(196)

 LOCATE 6, 56
 PRINT CHR$(180)

230 LOCATE 7, 4
 PRINT CHR$(179)

231 la% = 5
 lb% = 6

232 LOCATE 7, la%
 PRINT CHR$(32)
 LOCATE 7, lb%
 PRINT CHR$(179)

233 la% = la% + 2
 lb% = lb% + 2

234 IF lb% = 56 THEN
 GOTO 235

 ELSE
 GOTO 232
 END IF

235 LOCATE 7, 55
 PRINT CHR$(32)

 LOCATE 7, 56
 PRINT CHR$(179)

240 LOCATE 8, 4
 PRINT CHR$(195)

241 la% = 5
 lb% = 6

242 LOCATE 8, la%
 PRINT CHR$(196)
 LOCATE 8, lb%
 PRINT CHR$(197)

243 la% = la% + 2
 lb% = lb% + 2

244 IF lb% = 56 THEN
 GOTO 245

 ELSE
 GOTO 242
 END IF

245 LOCATE 8, 55
 PRINT CHR$(196)

 LOCATE 8, 56
 PRINT CHR$(180)

250 LOCATE 9, 4
 PRINT CHR$(179)

251 la% = 5
 lb% = 6

252 LOCATE 9, la%
 PRINT CHR$(32)
 LOCATE 9, lb%
 PRINT CHR$(179)

253 la% = la% + 2
 lb% = lb% + 2

254 IF lb% = 56 THEN
 GOTO 255

 ELSE
 GOTO 252
 END IF

255 LOCATE 9, 55
 PRINT CHR$(32)

 LOCATE 9, 56
 PRINT CHR$(179)

260 LOCATE 10, 4
 PRINT CHR$(195)

261 la% = 5
 lb% = 6

262 LOCATE 10, la%
 PRINT CHR$(196)
 LOCATE 10, lb%
 PRINT CHR$(197)

263 la% = la% + 2
 lb% = lb% + 2

264 IF lb% = 56 THEN
 GOTO 265

 ELSE
 GOTO 262
 END IF

265 LOCATE 10, 55
 PRINT CHR$(196)

 LOCATE 10, 56
 PRINT CHR$(180)

270 LOCATE 11, 4
 PRINT CHR$(179)

271 la% = 5
 lb% = 6

272 LOCATE 11, la%
 PRINT CHR$(32)
 LOCATE 11, lb%
 PRINT CHR$(179)

273 la% = la% + 2
 lb% = lb% + 2

274 IF lb% = 56 THEN
 GOTO 275

 ELSE
 GOTO 272
 END IF

275 LOCATE 11, 55
 PRINT CHR$(32)

 LOCATE 11, 56
 PRINT CHR$(179)

280 LOCATE 12, 4
 PRINT CHR$(195)

281 la% = 5
 lb% = 6

282 LOCATE 12, la%
 PRINT CHR$(196)
 LOCATE 12, lb%
 PRINT CHR$(197)

283 la% = la% + 2
 lb% = lb% + 2

284 IF lb% = 56 THEN
 GOTO 285

 ELSE
 GOTO 282
 END IF

285 LOCATE 12, 55
 PRINT CHR$(196)

 LOCATE 12, 56
 PRINT CHR$(180)

290 LOCATE 13, 4
 PRINT CHR$(179)

291 la% = 5
 lb% = 6

292 LOCATE 13, la%
 PRINT CHR$(32)
 LOCATE 13, lb%
 PRINT CHR$(179)

293 la% = la% + 2
 lb% = lb% + 2

294 IF lb% = 56 THEN
 GOTO 295

 ELSE
 GOTO 292
 END IF

295 LOCATE 13, 55
 PRINT CHR$(32)

 LOCATE 13, 56
 PRINT CHR$(179)

300 LOCATE 14, 4
 PRINT CHR$(195)

301 la% = 5
 lb% = 6

302 LOCATE 14, la%
 PRINT CHR$(196)
 LOCATE 14, lb%
 PRINT CHR$(197)

303 la% = la% + 2
 lb% = lb% + 2

304 IF lb% = 56 THEN
 GOTO 305

 ELSE
 GOTO 302
 END IF

305 LOCATE 14, 55
 PRINT CHR$(196)

 LOCATE 14, 56
 PRINT CHR$(180)

310 LOCATE 15, 4
 PRINT CHR$(179)

311 la% = 5
 lb% = 6

312 LOCATE 15, la%
 PRINT CHR$(32)
 LOCATE 15, lb%
 PRINT CHR$(179)

313 la% = la% + 2
 lb% = lb% + 2

314 IF lb% = 56 THEN
 GOTO 315

 ELSE
 GOTO 312
 END IF

315 LOCATE 15, 55
 PRINT CHR$(32)

 LOCATE 15, 56
 PRINT CHR$(179)

320 LOCATE 16, 4
 PRINT CHR$(195)

321 la% = 5
 lb% = 6

322 LOCATE 16, la%
 PRINT CHR$(196)
 LOCATE 16, lb%
 PRINT CHR$(197)

323 la% = la% + 2
 lb% = lb% + 2

324 IF lb% = 56 THEN
 GOTO 325

 ELSE
 GOTO 322
 END IF

325 LOCATE 16, 55
 PRINT CHR$(196)

 LOCATE 16, 56
 PRINT CHR$(180)

330 LOCATE 17, 4
 PRINT CHR$(179)

331 la% = 5
 lb% = 6

332 LOCATE 17, la%
 PRINT CHR$(32)
 LOCATE 17, lb%
 PRINT CHR$(179)

333 la% = la% + 2
 lb% = lb% + 2

334 IF lb% = 56 THEN
 GOTO 335

 ELSE
 GOTO 332
 END IF

335 LOCATE 17, 55
 PRINT CHR$(32)

 LOCATE 17, 56
 PRINT CHR$(179)

340 LOCATE 18, 4
 PRINT CHR$(195)

341 la% = 5
 lb% = 6

342 LOCATE 18, la%
 PRINT CHR$(196)
 LOCATE 18, lb%
 PRINT CHR$(197)

343 la% = la% + 2
 lb% = lb% + 2

344 IF lb% = 56 THEN
 GOTO 345

 ELSE
 GOTO 342
 END IF

345 LOCATE 18, 55
 PRINT CHR$(196)

 LOCATE 18, 56
 PRINT CHR$(180)

350 LOCATE 19, 4
 PRINT CHR$(179)

351 la% = 5
 lb% = 6

352 LOCATE 19, la%
 PRINT CHR$(32)
 LOCATE 19, lb%
 PRINT CHR$(179)

353 la% = la% + 2
 lb% = lb% + 2

354 IF lb% = 56 THEN
 GOTO 355

 ELSE
 GOTO 352
 END IF

355 LOCATE 19, 55
 PRINT CHR$(32)

 LOCATE 19, 56
 PRINT CHR$(179)

360 LOCATE 20, 4
 PRINT CHR$(195)

361 la% = 5
 lb% = 6

362 LOCATE 20, la%
 PRINT CHR$(196)
 LOCATE 20, lb%
 PRINT CHR$(197)

363 la% = la% + 2
 lb% = lb% + 2

364 IF lb% = 56 THEN
 GOTO 365

 ELSE
 GOTO 362
 END IF

365 LOCATE 20, 55
 PRINT CHR$(196)

 LOCATE 20, 56
 PRINT CHR$(180)

370 LOCATE 21, 4
 PRINT CHR$(179)

371 la% = 5
 lb% = 6

372 LOCATE 21, la%
 PRINT CHR$(32)
 LOCATE 21, lb%
 PRINT CHR$(179)

373 la% = la% + 2
 lb% = lb% + 2

374 IF lb% = 56 THEN
 GOTO 375

 ELSE
 GOTO 372
 END IF

375 LOCATE 21, 55
 PRINT CHR$(32)

 LOCATE 21, 56
 PRINT CHR$(179)

400 LOCATE 22, 4
 PRINT CHR$(192)

401 la% = 5
 lb% = 6

402 LOCATE 22, la%
 PRINT CHR$(196)
 LOCATE 22, lb%
 PRINT CHR$(193)

403 la% = la% + 2
 lb% = lb% + 2

404 IF lb% = 56 THEN
 GOTO 405

 ELSE
 GOTO 402
 END IF

405 LOCATE 22, 55
 PRINT CHR$(196)

 LOCATE 22, 56
 PRINT CHR$(217)

410 LOCATE 3, 5
 PRINT "a b c d e f g h i j k l m n o p q r s t u v w x y z"
 LOCATE 5, 2
 PRINT "1"
 LOCATE 7, 2
 PRINT "2"
 LOCATE 9, 2
 PRINT "3"
 LOCATE 11, 2
 PRINT "4"
 LOCATE 13, 2
 PRINT "5"
 LOCATE 15, 2
 PRINT "6"
 LOCATE 17, 2
 PRINT "7"
 LOCATE 19, 2
 PRINT "8"
 LOCATE 21, 2
 PRINT "9"

420 LOCATE 5, 7
 PRINT "A"
 LOCATE 7, 7
 PRINT "B"
 LOCATE 9, 7
 PRINT "C"
 LOCATE 11, 7
 PRINT "D"
 LOCATE 13, 7
 PRINT "E"
 LOCATE 15, 7
 PRINT "F"
 LOCATE 17, 7
 PRINT "G"
 LOCATE 19, 7
 PRINT "H"
 LOCATE 21, 7
 PRINT "I"

421 LOCATE 5, 11
 PRINT "J"
 LOCATE 7, 11
 PRINT "K"
 LOCATE 9, 11
 PRINT "L"
 LOCATE 11, 11
 PRINT "M"
 LOCATE 13, 11
 PRINT "N"
 LOCATE 15, 11
 PRINT "O"
 LOCATE 17, 11
 PRINT "P"
 LOCATE 19, 11
 PRINT "Q"
 LOCATE 21, 11
 PRINT "R"

422 LOCATE 5, 15
 PRINT "S"
 LOCATE 7, 15
 PRINT "T"
 LOCATE 9, 15
 PRINT "U"
 LOCATE 11, 15
 PRINT "V"
 LOCATE 13, 15
 PRINT "W"
 LOCATE 15, 15
 PRINT "X"
 LOCATE 17, 15
 PRINT "Y"
 LOCATE 19, 15
 PRINT "Z"

430 LOCATE 5, 53
 PRINT "a"
 LOCATE 7, 53
 PRINT "b"
 LOCATE 9, 53
 PRINT "c"
 LOCATE 11, 53
 PRINT "d"
 LOCATE 13, 53
 PRINT "e"
 LOCATE 15, 53
 PRINT "f"
 LOCATE 17, 53
 PRINT "g"
 LOCATE 19, 53
 PRINT "h"
 LOCATE 21, 53
 PRINT "i"

431 LOCATE 5, 49
 PRINT "j"
 LOCATE 7, 49
 PRINT "k"
 LOCATE 9, 49
 PRINT "l"
 LOCATE 11, 49
 PRINT "m"
 LOCATE 13, 49
 PRINT "n"
 LOCATE 15, 49
 PRINT "o"
 LOCATE 17, 49
 PRINT "p"
 LOCATE 19, 49
 PRINT "q"
 LOCATE 21, 49
 PRINT "r"

432 LOCATE 7, 45
 PRINT "s"
 LOCATE 9, 45
 PRINT "t"
 LOCATE 11, 45
 PRINT "u"
 LOCATE 13, 45
 PRINT "v"
 LOCATE 15, 45
 PRINT "w"
 LOCATE 17, 45
 PRINT "x"
 LOCATE 19, 45
 PRINT "y"
 LOCATE 21, 45
 PRINT "z"

433 LOCATE 2, 6
 PRINT "PUTIN"

 LOCATE 2, 50
 PRINT "TRUMP"

999 REM PUTIN PELAA

1000 cha% = 1

 LOCATE 5, 65
 PRINT "PUTIN"

 LOCATE 6, 65
 PRINT "====="

 LOCATE 8, 60
 PRINT "A "; putina%

 LOCATE 9, 60
 PRINT "B "; putinb%

 LOCATE 10, 60
 PRINT "C "; putinc%

 LOCATE 11, 60
 PRINT "D "; putind%

 LOCATE 12, 60
 PRINT "E "; putine%

 LOCATE 13, 60
 PRINT "F "; putinf%

 LOCATE 14, 60
 PRINT "G "; puting%

 LOCATE 15, 60
 PRINT "H "; putinh%

 LOCATE 16, 60
 PRINT "I "; putini%

 LOCATE 17, 60
 PRINT "J "; putinj%

 LOCATE 18, 60
 PRINT "K "; putink%

 LOCATE 19, 60
 PRINT "L "; putinl%

 LOCATE 20, 60
 PRINT "M "; putinm%

 LOCATE 8, 70
 PRINT "N "; putinn%

 LOCATE 9, 70
 PRINT "O "; putino%

 LOCATE 10, 70
 PRINT "P "; putinp%

 LOCATE 11, 70
 PRINT "Q "; putinq%

 LOCATE 12, 70
 PRINT "R "; putinr%

 LOCATE 13, 70
 PRINT "S "; putins%

 LOCATE 14, 70
 PRINT "T "; putint%

 LOCATE 15, 70
 PRINT "U "; putinu%

 LOCATE 16, 70
 PRINT "V "; putinv%

 LOCATE 17, 70
 PRINT "W "; putinw%

 LOCATE 18, 70
 PRINT "X "; putinx%

 LOCATE 19, 70
 PRINT "Y "; putiny%

 LOCATE 20, 70
 PRINT "Z "; putinz%

1001 LOCATE 23, 1
 PRINT "                                                                  "

1002 LOCATE 23, 1

1005 INPUT "   PUTIN: Give location (for example c4) "; a$
  
1006 pul% = SCREEN(23, 44)

1010 IF pul% < 97 OR pul% > 122 THEN
 LOCATE 23, 1
 PRINT "                                                        "
 LOCATE 23, 1
 PRINT "   Impossible."
 SLEEP 1
 GOTO 1001

 ELSE
 GOTO 1015
 END IF

1015 pun% = SCREEN(23, 45)

1020 IF pun% < 49 OR pun% > 57 THEN
 LOCATE 23, 1
 PRINT "                                                        "
 LOCATE 23, 1
 PRINT "   Impossible."
 SLEEP 1
 GOTO 1001

 ELSE
 GOTO 1030
 END IF

1030 IF pul% = 97 THEN
 etsix% = 5
 END IF

 IF pul% = 98 THEN
 etsix% = 7
 END IF

 IF pul% = 99 THEN
 etsix% = 9
 END IF

 IF pul% = 100 THEN
 etsix% = 11
 END IF

 IF pul% = 101 THEN
 etsix% = 13
 END IF

 IF pul% = 102 THEN
 etsix% = 15
 END IF

 IF pul% = 103 THEN
 etsix% = 17
 END IF

 IF pul% = 104 THEN
 etsix% = 19
 END IF

 IF pul% = 105 THEN
 etsix% = 21
 END IF

 IF pul% = 106 THEN
 etsix% = 23
 END IF

 IF pul% = 107 THEN
 etsix% = 25
 END IF

 IF pul% = 108 THEN
 etsix% = 27
 END IF

 IF pul% = 109 THEN
 etsix% = 29
 END IF

 IF pul% = 110 THEN
 etsix% = 31
 END IF

 IF pul% = 111 THEN
 etsix% = 33
 END IF

 IF pul% = 112 THEN
 etsix% = 35
 END IF

 IF pul% = 113 THEN
 etsix% = 37
 END IF

 IF pul% = 114 THEN
 etsix% = 39
 END IF

 IF pul% = 115 THEN
 etsix% = 41
 END IF

 IF pul% = 116 THEN
 etsix% = 43
 END IF

 IF pul% = 117 THEN
 etsix% = 45
 END IF

 IF pul% = 118 THEN
 etsix% = 47
 END IF

 IF pul% = 119 THEN
 etsix% = 49
 END IF

 IF pul% = 120 THEN
 etsix% = 51
 END IF

 IF pul% = 121 THEN
 etsix% = 53
 END IF

 IF pul% = 122 THEN
 etsix% = 55
 END IF

1031 IF pun% = 49 THEN
 etsiy% = 5
 END IF

 IF pun% = 50 THEN
 etsiy% = 7
 END IF

 IF pun% = 51 THEN
 etsiy% = 9
 END IF

 IF pun% = 52 THEN
 etsiy% = 11
 END IF

 IF pun% = 53 THEN
 etsiy% = 13
 END IF

 IF pun% = 54 THEN
 etsiy% = 15
 END IF

 IF pun% = 55 THEN
 etsiy% = 17
 END IF

 IF pun% = 56 THEN
 etsiy% = 19
 END IF

 IF pun% = 57 THEN
 etsiy% = 21
 END IF

1040 kys% = SCREEN(etsiy%, etsix%)
 
 IF kys% = 32 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Empty."
 SLEEP 1
 GOTO 1001
 END IF

 IF kys% > 64 AND kys% < 91 THEN
 GOTO 1041

 ELSE
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Error: It is Trump."
 SLEEP 1
 GOTO 1001
 END IF

1041 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(205)

 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(186)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(186)

1050 LOCATE 23, 1
 PRINT "                                                                 "

1052 LOCATE 23, 1

1053 INPUT "   Type 'M' = Move  'I' = Increase  'Q' = Quit  'V' = View "; a$

 IF a$ = "m" THEN
 GOTO 4000
 END IF

 IF a$ = "i" THEN
 GOTO 2000
 END IF

 IF a$ = "v" THEN
 GOTO 1100
 END IF

 IF a$ = "q" THEN
 GOTO 40000

 ELSE
 LOCATE 23, 1
 PRINT "                                                                "
 LOCATE 23, 1
 PRINT "   Out of range."
 SLEEP 1
 GOTO 1050
 END IF

1100 IF cha% = 1 THEN
 cha% = 2
 GOTO 1200

 ELSE
 cha% = 1
 GOTO 1300
 END IF

1200 LOCATE 5, 65
 PRINT "TRUMP"

 LOCATE 6, 65
 PRINT "====="

 LOCATE 8, 60
 PRINT "a "; trumpa%

 LOCATE 9, 60
 PRINT "b "; trumpb%

 LOCATE 10, 60
 PRINT "c "; trumpc%

 LOCATE 11, 60
 PRINT "d "; trumpd%

 LOCATE 12, 60
 PRINT "e "; trumpe%

 LOCATE 13, 60
 PRINT "f "; trumpf%

 LOCATE 14, 60
 PRINT "g "; trumpg%

 LOCATE 15, 60
 PRINT "h "; trumph%

 LOCATE 16, 60
 PRINT "i "; trumpi%

 LOCATE 17, 60
 PRINT "j "; trumpj%

 LOCATE 18, 60
 PRINT "k "; trumpk%

 LOCATE 19, 60
 PRINT "l "; trumpl%

 LOCATE 20, 60
 PRINT "m "; trumpm%

 LOCATE 8, 70
 PRINT "n "; trumpn%

 LOCATE 9, 70
 PRINT "o "; trumpo%

 LOCATE 10, 70
 PRINT "p "; trumpp%

 LOCATE 11, 70
 PRINT "q "; trumpq%

 LOCATE 12, 70
 PRINT "r "; trumpr%

 LOCATE 13, 70
 PRINT "s "; trumps%

 LOCATE 14, 70
 PRINT "t "; trumpt%

 LOCATE 15, 70
 PRINT "u "; trumpu%

 LOCATE 16, 70
 PRINT "v "; trumpv%

 LOCATE 17, 70
 PRINT "w "; trumpw%

 LOCATE 18, 70
 PRINT "x "; trumpx%

 LOCATE 19, 70
 PRINT "y "; trumpy%

 LOCATE 20, 70
 PRINT "z "; trumpz%
 
 GOTO 1050

1300 LOCATE 5, 65
 PRINT "PUTIN"

 LOCATE 6, 65
 PRINT "====="

 LOCATE 8, 60
 PRINT "A "; putina%

 LOCATE 9, 60
 PRINT "B "; putinb%

 LOCATE 10, 60
 PRINT "C "; putinc%

 LOCATE 11, 60
 PRINT "D "; putind%

 LOCATE 12, 60
 PRINT "E "; putine%

 LOCATE 13, 60
 PRINT "F "; putinf%

 LOCATE 14, 60
 PRINT "G "; puting%

 LOCATE 15, 60
 PRINT "H "; putinh%

 LOCATE 16, 60
 PRINT "I "; putini%

 LOCATE 17, 60
 PRINT "J "; putinj%

 LOCATE 18, 60
 PRINT "K "; putink%

 LOCATE 19, 60
 PRINT "L "; putinl%

 LOCATE 20, 60
 PRINT "M "; putinm%

 LOCATE 8, 70
 PRINT "N "; putinn%

 LOCATE 9, 70
 PRINT "O "; putino%

 LOCATE 10, 70
 PRINT "P "; putinp%

 LOCATE 11, 70
 PRINT "Q "; putinq%

 LOCATE 12, 70
 PRINT "R "; putinr%

 LOCATE 13, 70
 PRINT "S "; putins%

 LOCATE 14, 70
 PRINT "T "; putint%

 LOCATE 15, 70
 PRINT "U "; putinu%

 LOCATE 16, 70
 PRINT "V "; putinv%

 LOCATE 17, 70
 PRINT "W "; putinw%

 LOCATE 18, 70
 PRINT "X "; putinx%

 LOCATE 19, 70
 PRINT "Y "; putiny%

 LOCATE 20, 70
 PRINT "Z "; putinz%

 GOTO 1050

2000 IF kys% = 65 THEN
 GOTO 3000
 END IF

 IF kys% = 66 THEN
 GOTO 3010
 END IF

 IF kys% = 67 THEN
 GOTO 3020
 END IF

 IF kys% = 68 THEN
 GOTO 3030
 END IF

 IF kys% = 69 THEN
 GOTO 3040
 END IF

 IF kys% = 70 THEN
 GOTO 3050
 END IF

 IF kys% = 71 THEN
 GOTO 3060
 END IF

 IF kys% = 72 THEN
 GOTO 3070
 END IF

 IF kys% = 73 THEN
 GOTO 3080
 END IF

 IF kys% = 74 THEN
 GOTO 3090
 END IF

 IF kys% = 75 THEN
 GOTO 3100
 END IF

 IF kys% = 76 THEN
 GOTO 3110
 END IF

 IF kys% = 77 THEN
 GOTO 3120
 END IF

 IF kys% = 78 THEN
 GOTO 3130
 END IF

 IF kys% = 79 THEN
 GOTO 3140
 END IF

 IF kys% = 80 THEN
 GOTO 3150
 END IF

 IF kys% = 81 THEN
 GOTO 3160
 END IF

 IF kys% = 82 THEN
 GOTO 3170
 END IF

 IF kys% = 83 THEN
 GOTO 3180
 END IF

 IF kys% = 84 THEN
 GOTO 3190
 END IF

 IF kys% = 85 THEN
 GOTO 3200
 END IF

 IF kys% = 86 THEN
 GOTO 3210
 END IF

 IF kys% = 87 THEN
 GOTO 3220
 END IF

 IF kys% = 88 THEN
 GOTO 3230
 END IF

 IF kys% = 89 THEN
 GOTO 3240
 END IF

 IF kys% = 90 THEN
 GOTO 3250
 END IF

3000 putina% = putina% + 20

 IF putina% > 79 THEN
 putina% = 79
 END IF

3001 GOTO 3400

3010 putinb% = putinb% + 20

 IF putinb% > 79 THEN
 putinb% = 79
 END IF

3011 GOTO 3400

3020 putinc% = putinc% + 20

 IF putinc% > 79 THEN
 putinc% = 79
 END IF

3021 GOTO 3400

3030 putind% = putind% + 20

 IF putind% > 79 THEN
 putind% = 79
 END IF

3031 GOTO 3400

3040 putine% = putine% + 20

 IF putine% > 79 THEN
 putine% = 79
 END IF

3041 GOTO 3400

3050 putinf% = putinf% + 20

 IF putinf% > 79 THEN
 putinf% = 79
 END IF

3051 GOTO 3400

3060 puting% = puting% + 20

 IF puting% > 79 THEN
 puting% = 79
 END IF

3061 GOTO 3400

3070 putinh% = putinh% + 20

 IF putinh% > 79 THEN
 putinh% = 79
 END IF

3071 GOTO 3400

3080 putini% = putini% + 20

 IF putini% > 79 THEN
 putini% = 79
 END IF

3081 GOTO 3400

3090 putinj% = putinj% + 20

 IF putinj% > 79 THEN
 putinj% = 79
 END IF

3091 GOTO 3400

3100 putink% = putink% + 20

 IF putink% > 79 THEN
 putink% = 79
 END IF

3101 GOTO 3400

3110 putinl% = putinl% + 20

 IF putinl% > 79 THEN
 putinl% = 79
 END IF

3111 GOTO 3400

3120 putinm% = putinm% + 20

 IF putinm% > 79 THEN
 putinm% = 79
 END IF

3121 GOTO 3400

3130 putinn% = putinn% + 20

 IF putinn% > 79 THEN
 putinn% = 79
 END IF

3131 GOTO 3400

3140 putino% = putino% + 20

 IF putino% > 79 THEN
 putino% = 79
 END IF

3141 GOTO 3400

3150 putinp% = putinp% + 20

 IF putinp% > 79 THEN
 putinp% = 79
 END IF

3151 GOTO 3400

3160 putinq% = putinq% + 20

 IF putinq% > 79 THEN
 putinq% = 79
 END IF

3161 GOTO 3400

3170 putinr% = putinr% + 20

 IF putinr% > 79 THEN
 putinr% = 79
 END IF

3171 GOTO 3400

3180 putins% = putins% + 20

 IF putins% > 79 THEN
 putins% = 79
 END IF

3181 GOTO 3400

3190 putint% = putint% + 20

 IF putint% > 79 THEN
 putint% = 79
 END IF

3191 GOTO 3400

3200 putinu% = putinu% + 20

 IF putinu% > 79 THEN
 putinu% = 79
 END IF

3201 GOTO 3400

3210 putinv% = putinv% + 20

 IF putinv% > 79 THEN
 putinv% = 79
 END IF

3211 GOTO 3400

3220 putinw% = putinw% + 20

 IF putinw% > 79 THEN
 putinw% = 79
 END IF

3221 GOTO 3400

3230 putinx% = putinx% + 20

 IF putinx% > 99 THEN
 putinx% = 99
 END IF

3231 GOTO 3400

3240 putiny% = putiny% + 20

 IF putiny% > 99 THEN
 putiny% = 99
 END IF

3241 GOTO 3400

3250 putinz% = putinz% + 20

 IF putinz% > 99 THEN
 putinz% = 99
 END IF

3400 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(196)
 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix%
 PRINT CHR$(kys%)
 GOTO 10000

4000 koey% = etsiy%
 koex% = etsix%

4001 LOCATE 23, 1
 PRINT "                                                                "

4002 LOCATE 23, 1

4010 INPUT "   Use Numeric keypad or letters for direction "; a$

 IF a$ = "8" OR a$ = "w" THEN
 GOTO 5000
 END IF

 IF a$ = "2" OR a$ = "z" THEN
 GOTO 5100
 END IF

 IF a$ = "4" OR a$ = "a" THEN
 GOTO 5200
 END IF

 IF a$ = "6" OR a$ = "d" THEN
 GOTO 5300
 END IF

 IF a$ = "7" OR a$ = "t" THEN
 GOTO 4050
 END IF

 IF a$ = "1" OR a$ = "v" THEN
 GOTO 4100
 END IF

 IF a$ = "9" OR a$ = "i" THEN
 GOTO 4200
 END IF

 IF a$ = "3" OR a$ = "m" THEN
 GOTO 4300

 ELSE
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of range."
 SLEEP 1
 GOTO 4001
 END IF

4050 IF kys% = 65 OR kys% = 66 OR kys% = 67 THEN
 koey% = koey% - 4
 koex% = koex% - 4
 GOTO 4051

 ELSE
 koey% = koey% - 2
 koex% = koex% - 2
 GOTO 4051
 END IF

4051 IF koey% < 5 OR koex% < 5 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 5400

 ELSE
 GOTO 5301
 END IF

4100 IF kys% = 65 OR kys% = 66 OR kys% = 67 THEN
 koey% = koey% + 4
 koex% = koex% - 4
 GOTO 4101

 ELSE
 koey% = koey% + 2
 koex% = koex% - 2
 GOTO 4101
 END IF

4101 IF koey% > 21 OR koex% < 5 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 5400

 ELSE
 GOTO 5301
 END IF

4200 IF kys% = 65 OR kys% = 66 OR kys% = 67 THEN
 koey% = koey% - 4
 koex% = koex% + 4
 GOTO 4201

 ELSE
 koey% = koey% - 2
 koex% = koex% + 2
 GOTO 4201
 END IF

4201 IF koey% < 5 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 5400

 ELSE
 GOTO 5301
 END IF

4300 IF kys% = 65 OR kys% = 66 OR kys% = 67 THEN
 koey% = koey% + 4
 koex% = koex% + 4
 GOTO 4301

 ELSE
 koey% = koey% + 2
 koex% = koex% + 2
 GOTO 4301
 END IF

4301 IF koey% > 21 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 5400

 ELSE
 GOTO 5301
 END IF

5000 IF kys% = 65 OR kys% = 66 OR kys% = 67 THEN
 koey% = koey% - 4
 GOTO 5001
 
 ELSE
 koey% = koey% - 2
 GOTO 5001
 END IF

5001 IF koey% < 5 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 5400

 ELSE
 GOTO 5301
 END IF

5100 IF kys% = 65 OR kys% = 66 OR kys% = 67 THEN
 koey% = koey% + 4
 GOTO 5101

 ELSE
 koey% = koey% + 2
 GOTO 5101
 END IF

5101 IF koey% > 21 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 5400

 ELSE
 GOTO 5301
 END IF

5200 IF kys% = 65 OR kys% = 66 OR kys% = 67 THEN
 koex% = koex% - 4
 GOTO 5201

 ELSE
 koex% = koex% - 2
 GOTO 5201
 END IF

5201 IF koex% < 5 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 5400

 ELSE
 GOTO 5301
 END IF

5300 IF kys% = 65 OR kys% = 66 OR kys% = 67 THEN
 koex% = koex% + 4
 GOTO 5301

 ELSE
 koex% = koex% + 2
 GOTO 5301
 END IF

5301 koe% = SCREEN(koey%, koex%)

 IF koe% > 64 AND koe% < 91 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   It is your own army. "
 SLEEP 1
 GOTO 5400
 END IF

5302 IF koe% = 32 THEN
 GOTO 5310

 ELSE
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   It is TRUMP. "
 SLEEP 1
 GOTO 6000
 END IF

5310 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(196)
 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix%
 PRINT CHR$(32)
 LOCATE koey%, koex%
 PRINT CHR$(kys%)

5311 IF koex% = 55 THEN
 GOTO 5320

 ELSE
 GOTO 10000
 END IF

5320 IF quest% = 1 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   PUTIN WON !"
 SLEEP 2
 GOTO 60000

 ELSE
 quest% = 1
 LOCATE koey%, koex%
 PRINT CHR$(32)
 LOCATE 22, 63
 PRINT CHR$(1)
 LOCATE 22, 65
 PRINT "PUTIN"
 LOCATE 22, 71
 PRINT CHR$(1)
 GOTO 5330
 END IF

5330 LOCATE 23, 1
 PRINT "                                                               "
 LOCATE 23, 1
 INPUT "   Trump has one shot left. Want to continue (y/n) "; a$

5331 IF a$ = "y" THEN
 GOTO 10000
 END IF

 IF a$ = "n" THEN
 GOTO 60000

 ELSE
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of range."
 SLEEP 1
 GOTO 5330
 END IF

5400 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(196)
 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix%
 PRINT CHR$(kys%)
 GOTO 1000

6000 putin% = kys%
 trump% = koe%

6010 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(196)
 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix%
 PRINT CHR$(32)
 LOCATE koey%, koex%
 PRINT CHR$(63)

6020 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   THE BATTLE IS ON !"
 SLEEP 2

6030 RANDOMIZE TIMER
 pwar% = INT(t% * RND) + 1
 twar% = INT(t% * RND) + 1

6100 IF putin% = 65 THEN
 pmen% = putina% + pwar%
 END IF

 IF putin% = 66 THEN
 pmen% = putinb% + pwar%
 END IF

 IF putin% = 67 THEN
 pmen% = putinc% + pwar%
 END IF

 IF putin% = 68 THEN
 pmen% = putind% + pwar%
 END IF

 IF putin% = 69 THEN
 pmen% = putine% + pwar%
 END IF

 IF putin% = 70 THEN
 pmen% = putinf% + pwar%
 END IF

 IF putin% = 71 THEN
 pmen% = puting% + pwar%
 END IF

 IF putin% = 72 THEN
 pmen% = putinh% + pwar%
 END IF

 IF putin% = 73 THEN
 pmen% = putini% + pwar%
 END IF

 IF putin% = 74 THEN
 pmen% = putinj% + pwar%
 END IF

 IF putin% = 75 THEN
 pmen% = putink% + pwar%
 END IF

 IF putin% = 76 THEN
 pmen% = putinl% + pwar%
 END IF

 IF putin% = 77 THEN
 pmen% = putinm% + pwar%
 END IF

 IF putin% = 78 THEN
 pmen% = putinn% + pwar%
 END IF

 IF putin% = 79 THEN
 pmen% = putino% + pwar%
 END IF

 IF putin% = 80 THEN
 pmen% = putinp% + pwar%
 END IF

 IF putin% = 81 THEN
 pmen% = putinq% + pwar%
 END IF

 IF putin% = 82 THEN
 pmen% = putinr% + pwar%
 END IF

 IF putin% = 83 THEN
 pmen% = putins% + pwar%
 END IF

 IF putin% = 84 THEN
 pmen% = putint% + pwar%
 END IF

 IF putin% = 85 THEN
 pmen% = putinu% + pwar%
 END IF

 IF putin% = 86 THEN
 pmen% = putinv% + pwar%
 END IF

 IF putin% = 87 THEN
 pmen% = putinw% + pwar%
 END IF

 IF putin% = 88 THEN
 pmen% = putinx% + pwar%
 END IF

 IF putin% = 89 THEN
 pmen% = putiny% + pwar%
 END IF

 IF putin% = 90 THEN
 pmen% = putinz% + pwar%
 END IF

6500 IF trump% = 97 THEN
 tmen% = trumpa% + twar%
 END IF

 IF trump% = 98 THEN
 tmen% = trumpb% + twar%
 END IF

 IF trump% = 99 THEN
 tmen% = trumpc% + twar%
 END IF

 IF trump% = 100 THEN
 tmen% = trumpd% + twar%
 END IF

 IF trump% = 101 THEN
 tmen% = trumpe% + twar%
 END IF

 IF trump% = 102 THEN
 tmen% = trumpf% + twar%
 END IF

 IF trump% = 103 THEN
 tmen% = trumpg% + twar%
 END IF

 IF trump% = 104 THEN
 tmen% = trumph% + twar%
 END IF

 IF trump% = 105 THEN
 tmen% = trumpi% + twar%
 END IF

 IF trump% = 106 THEN
 tmen% = trumpj% + twar%
 END IF

 IF trump% = 107 THEN
 tmen% = trumpk% + twar%
 END IF

 IF trump% = 108 THEN
 tmen% = trumpl% + twar%
 END IF

 IF trump% = 109 THEN
 tmen% = trumpm% + twar%
 END IF

 IF trump% = 110 THEN
 tmen% = trumpn% + twar%
 END IF

 IF trump% = 111 THEN
 tmen% = trumpo% + twar%
 END IF

 IF trump% = 112 THEN
 tmen% = trumpp% + twar%
 END IF

 IF trump% = 113 THEN
 tmen% = trumpq% + twar%
 END IF

 IF trump% = 114 THEN
 tmen% = trumpr% + twar%
 END IF

 IF trump% = 115 THEN
 tmen% = trumps% + twar%
 END IF

 IF trump% = 116 THEN
 tmen% = trumpt% + twar%
 END IF

 IF trump% = 117 THEN
 tmen% = trumpu% + twar%
 END IF

 IF trump% = 118 THEN
 tmen% = trumpv% + twar%
 END IF

 IF trump% = 119 THEN
 tmen% = trumpw% + twar%
 END IF

 IF trump% = 120 THEN
 tmen% = trumpx% + twar%
 END IF

 IF trump% = 121 THEN
 tmen% = trumpy% + twar%
 END IF

 IF trump% = 122 THEN
 tmen% = trumpz% + twar%
 END IF

6900 IF pmen% < tmen% THEN
 GOTO 8000
 END IF

6901 IF pmen% > tmen% THEN
 GOTO 7000
 END IF

6902 IF pmen% = tmen% THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   No winner."
 SLEEP 2
 GOTO 6020
 END IF

6999 REM PUTIN MOVES - PUTIN WINS

7000 LOCATE koey%, koex%
 PRINT CHR$(putin%)

7001 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Putin won. Type 'ESC'. "
   
  DO
 
  LOOP UNTIL INKEY$ = CHR$(27)

7002 IF trump% = 97 THEN
 trumpa% = 0
 END IF

 IF trump% = 98 THEN
 trumpb% = 0
 END IF

 IF trump% = 99 THEN
 trumpc% = 0
 END IF

 IF trump% = 100 THEN
 trumpd% = 0
 END IF

 IF trump% = 101 THEN
 trumpe% = 0
 END IF

 IF trump% = 102 THEN
 trumpf% = 0
 END IF

 IF trump% = 103 THEN
 trumpg% = 0
 END IF

 IF trump% = 104 THEN
 trumph% = 0
 END IF

 IF trump% = 105 THEN
 trumpi% = 0
 END IF

 IF trump% = 106 THEN
 trumpj% = 0
 END IF

 IF trump% = 107 THEN
 trumpk% = 0
 END IF

 IF trump% = 108 THEN
 trumpl% = 0
 END IF

 IF trump% = 109 THEN
 trumpm% = 0
 END IF

 IF trump% = 110 THEN
 trumpn% = 0
 END IF

 IF trump% = 111 THEN
 trumpo% = 0
 END IF

 IF trump% = 112 THEN
 trumpp% = 0
 END IF

 IF trump% = 113 THEN
 trumpq% = 0
 END IF

 IF trump% = 114 THEN
 trumpr% = 0
 END IF

 IF trump% = 115 THEN
 trumps% = 0
 END IF

 IF trump% = 116 THEN
 trumpt% = 0
 END IF

 IF trump% = 117 THEN
 trumpu% = 0
 END IF

 IF trump% = 118 THEN
 trumpv% = 0
 END IF

 IF trump% = 119 THEN
 trumpw% = 0
 END IF

 IF trump% = 120 THEN
 trumpx% = 0
 END IF

 IF trump% = 121 THEN
 trumpy% = 0
 END IF

 IF trump% = 112 THEN
 trumpz% = 0
 END IF

7010 warb% = INT(RND * i%) + 10

 IF putin% = 65 THEN
 GOTO 7100
 END IF

 IF putin% = 66 THEN
 GOTO 7110
 END IF

 IF putin% = 67 THEN
 GOTO 7120
 END IF

 IF putin% = 68 THEN
 GOTO 7130
 END IF

 IF putin% = 69 THEN
 GOTO 7140
 END IF

 IF putin% = 70 THEN
 GOTO 7150
 END IF

 IF putin% = 71 THEN
 GOTO 7160
 END IF

 IF putin% = 72 THEN
 GOTO 7170
 END IF

 IF putin% = 73 THEN
 GOTO 7180
 END IF

 IF putin% = 74 THEN
 GOTO 7190
 END IF

 IF putin% = 75 THEN
 GOTO 7200
 END IF

 IF putin% = 76 THEN
 GOTO 7210
 END IF

 IF putin% = 77 THEN
 GOTO 7220
 END IF

 IF putin% = 78 THEN
 GOTO 7230
 END IF

 IF putin% = 79 THEN
 GOTO 7240
 END IF

 IF putin% = 80 THEN
 GOTO 7250
 END IF

 IF putin% = 81 THEN
 GOTO 7260
 END IF

 IF putin% = 82 THEN
 GOTO 7270
 END IF

 IF putin% = 83 THEN
 GOTO 7280
 END IF

 IF putin% = 84 THEN
 GOTO 7290
 END IF

 IF putin% = 85 THEN
 GOTO 7300
 END IF

 IF putin% = 86 THEN
 GOTO 7310
 END IF

 IF putin% = 87 THEN
 GOTO 7320
 END IF

 IF putin% = 88 THEN
 GOTO 7330
 END IF

 IF putin% = 89 THEN
 GOTO 7340
 END IF

 IF putin% = 90 THEN
 GOTO 7350
 END IF

7100 putina% = putina% - warb%

 IF putina% < 10 THEN
 putina% = 10
 END IF

7101 GOTO 7400

7110 putinb% = putinb% - warb%

 IF putinb% < 10 THEN
 putinb% = 10
 END IF

7111 GOTO 7400

7120 putinc% = putinc% - warb%

 IF putinc% < 10 THEN
 putinc% = 10
 END IF

7121 GOTO 7400

7130 putind% = putind% - warb%

 IF putind% < 10 THEN
 putind% = 10
 END IF

7131 GOTO 7400

7140 putine% = putine% - warb%

 IF putine% < 10 THEN
 putine% = 10
 END IF

7141 GOTO 7400

7150 putinf% = putinf% - warb%

 IF putinf% < 10 THEN
 putinf% = 10
 END IF

7151 GOTO 7400

7160 puting% = puting% - warb%

 IF puting% < 10 THEN
 puting% = 10
 END IF

7161 GOTO 7400

7170 putinh% = putinh% - warb%

 IF putinh% < 10 THEN
 putinh% = 10
 END IF

7171 GOTO 7400

7180 putini% = putini% - warb%

 IF putini% < 10 THEN
 putini% = 10
 END IF

7181 GOTO 7400

7190 putinj% = putinj% - warb%

 IF putinj% < 10 THEN
 putinj% = 10
 END IF

7191 GOTO 7400

7200 putink% = putink% - warb%

 IF putink% < 10 THEN
 putink% = 10
 END IF

7201 GOTO 7400

7210 putinl% = putinl% - warb%

 IF putinl% < 10 THEN
 putinl% = 10
 END IF

7211 GOTO 7400

7220 putinm% = putinm% - warb%

 IF putinm% < 10 THEN
 putinm% = 10
 END IF

7221 GOTO 7400

7230 putinn% = putinn% - warb%

 IF putinn% < 10 THEN
 putinn% = 10
 END IF

7231 GOTO 7400

7240 putino% = putino% - warb%

 IF putino% < 10 THEN
 putino% = 10
 END IF

7241 GOTO 7400

7250 putinp% = putinp% - warb%

 IF putinp% < 10 THEN
 putinp% = 10
 END IF

7251 GOTO 7400

7260 putinq% = putinq% - warb%

 IF putinq% < 10 THEN
 putinq% = 10
 END IF

7261 GOTO 7400

7270 putinr% = putinr% - warb%

 IF putinr% < 10 THEN
 putinr% = 10
 END IF

7271 GOTO 7400

7280 putins% = putins% - warb%

 IF putins% < 10 THEN
 putins% = 10
 END IF

7281 GOTO 7400

7290 putint% = putint% - warb%

 IF putint% < 10 THEN
 putint% = 10
 END IF

7291 GOTO 7400

7300 putinu% = putinu% - warb%

 IF putinu% < 10 THEN
 putinu% = 10
 END IF

7301 GOTO 7400

7310 putinv% = putinv% - warb%

 IF putinv% < 10 THEN
 putinv% = 10
 END IF

7311 GOTO 7400

7320 putinw% = putinw% - warb%

 IF putinw% < 10 THEN
 putinw% = 10
 END IF

7321 GOTO 7400

7330 putinx% = putinx% - warb%

 IF putinx% < 10 THEN
 putinx% = 10
 END IF

7331 GOTO 7400

7340 putiny% = putiny% - warb%

 IF putiny% < 10 THEN
 putiny% = 10
 END IF

7341 GOTO 7400

7350 putinz% = putinz% - warb%

 IF putinz% < 10 THEN
 putinz% = 10
 END IF

7400 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(196)
 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix%
 PRINT CHR$(32)
 LOCATE koey%, koex%
 PRINT CHR$(putin%)

7401 IF koex% = 55 THEN
 GOTO 5320

 ELSE
 GOTO 10000
 END IF

7999 REM PUTIN MOVES - TRUMP WINS

8000 LOCATE koey%, koex%
 PRINT CHR$(trump%)

8001 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Trump won. Type 'ESC'. "
  
  DO
  LOOP UNTIL INKEY$ = CHR$(27)

8002 IF putin% = 65 THEN
 putina% = 0
 END IF

 IF putin% = 66 THEN
 putinb% = 0
 END IF

 IF putin% = 67 THEN
 putinc% = 0
 END IF

 IF putin% = 68 THEN
 putind% = 0
 END IF

 IF putin% = 69 THEN
 putine% = 0
 END IF

 IF putin% = 70 THEN
 putinf% = 0
 END IF
      
 IF putin% = 71 THEN
 puting% = 0
 END IF

 IF putin% = 72 THEN
 putinh% = 0
 END IF

 IF putin% = 73 THEN
 putini% = 0
 END IF

 IF putin% = 74 THEN
 putinj% = 0
 END IF

 IF putin% = 75 THEN
 putink% = 0
 END IF

 IF putin% = 76 THEN
 putinl% = 0
 END IF

 IF putin% = 77 THEN
 putinm% = 0
 END IF

 IF putin% = 78 THEN
 putinn% = 0
 END IF

 IF putin% = 79 THEN
 putino% = 0
 END IF

 IF putin% = 80 THEN
 putinp% = 0
 END IF

 IF putin% = 81 THEN
 putinq% = 0
 END IF

 IF putin% = 82 THEN
 putinr% = 0
 END IF

 IF putin% = 83 THEN
 putins% = 0
 END IF

 IF putin% = 84 THEN
 putint% = 0
 END IF

 IF putin% = 85 THEN
 putinu% = 0
 END IF

 IF putin% = 86 THEN
 putinv% = 0
 END IF

 IF putin% = 87 THEN
 putinw% = 0
 END IF

 IF putin% = 88 THEN
 putinx% = 0
 END IF

 IF putin% = 89 THEN
 putiny% = 0
 END IF

 IF putin% = 90 THEN
 putinz% = 0
 END IF

8010 warb% = INT(RND * i%) + 10

 IF trump% = 97 THEN
 GOTO 8100
 END IF

 IF trump% = 98 THEN
 GOTO 8110
 END IF

 IF trump% = 99 THEN
 GOTO 8120
 END IF

 IF trump% = 100 THEN
 GOTO 8130
 END IF

 IF trump% = 101 THEN
 GOTO 8140
 END IF

 IF trump% = 102 THEN
 GOTO 8150
 END IF

 IF trump% = 103 THEN
 GOTO 8160
 END IF

 IF trump% = 104 THEN
 GOTO 8170
 END IF

 IF trump% = 105 THEN
 GOTO 8180
 END IF

 IF trump% = 106 THEN
 GOTO 8190
 END IF

 IF trump% = 107 THEN
 GOTO 8200
 END IF

 IF trump% = 108 THEN
 GOTO 8210
 END IF

 IF trump% = 109 THEN
 GOTO 8220
 END IF

 IF trump% = 110 THEN
 GOTO 8230
 END IF

 IF trump% = 111 THEN
 GOTO 8240
 END IF

 IF trump% = 112 THEN
 GOTO 8250
 END IF

 IF trump% = 113 THEN
 GOTO 8260
 END IF

 IF trump% = 114 THEN
 GOTO 8270
 END IF

 IF trump% = 115 THEN
 GOTO 8280
 END IF

 IF trump% = 116 THEN
 GOTO 8290
 END IF

 IF trump% = 117 THEN
 GOTO 8300
 END IF

 IF trump% = 118 THEN
 GOTO 8310
 END IF

 IF trump% = 119 THEN
 GOTO 8320
 END IF

 IF trump% = 120 THEN
 GOTO 8330
 END IF

 IF trump% = 121 THEN
 GOTO 8340
 END IF

 IF trump% = 122 THEN
 GOTO 8350
 END IF

8100 trumpa% = trumpa% - warb%

 IF trumpa% < 10 THEN
 trumpa% = 10
 END IF

8101 GOTO 8400

8110 trumpb% = trumpb% - warb%

 IF trumpb% < 10 THEN
 trumpb% = 10
 END IF

8111 GOTO 8400

8120 trumpc% = trumpc% - warb%

 IF trumpc% < 10 THEN
 trumpc% = 10
 END IF

8121 GOTO 8400

8130 trumpd% = trumpd% - warb%

 IF trumpd% < 10 THEN
 trumpd% = 10
 END IF

8131 GOTO 8400

8140 trumpe% = trumpe% - warb%

 IF trumpe% < 10 THEN
 trumpe% = 10
 END IF

8141 GOTO 8400

8150 trumpf% = trumpf% - warb%

 IF trumpf% < 10 THEN
 trumpf% = 10
 END IF

8151 GOTO 8400

8160 trumpg% = trumpg% - warb%

 IF trumpg% < 10 THEN
 trumpg% = 10
 END IF

8161 GOTO 8400

8170 trumph% = trumph% - warb%

 IF trumph% < 10 THEN
 trumph% = 10
 END IF

8171 GOTO 8400

8180 trumpi% = trumpi% - warb%

 IF trumpi% < 10 THEN
 trumpi% = 10
 END IF

8181 GOTO 8400

8190 trumpj% = trumpj% - warb%

 IF trumpj% < 10 THEN
 trumpj% = 10
 END IF

8191 GOTO 8400

8200 trumpk% = trumpk% - warb%

 IF trumpk% < 10 THEN
 trumpk% = 10
 END IF

8201 GOTO 8400

8210 trumpl% = trumpl% - warb%

 IF trumpl% < 10 THEN
 trumpl% = 10
 END IF

8211 GOTO 8400

8220 trumpm% = trumpm% - warb%

 IF trumpm% < 10 THEN
 trumpm% = 10
 END IF

8221 GOTO 8400

8230 trumpn% = trumpn% - warb%

 IF trumpn% < 10 THEN
 trumpn% = 10
 END IF

8231 GOTO 8400

8240 trumpo% = trumpo% - warb%

 IF trumpo% < 10 THEN
 trumpo% = 10
 END IF

8241 GOTO 8400

8250 trumpp% = trumpp% - warb%

 IF trumpp% < 10 THEN
 trumpp% = 10
 END IF

8251 GOTO 8400

8260 trumpq% = trumpq% - warb%

 IF trumpq% < 10 THEN
 trumpq% = 10
 END IF

8261 GOTO 8400

8270 trumpr% = trumpr% - warb%

 IF trumpr% < 10 THEN
 trumpr% = 10
 END IF

8271 GOTO 8400

8280 trumps% = trumps% - warb%

 IF trumps% < 10 THEN
 trumps% = 10
 END IF

8281 GOTO 8400

8290 trumpt% = trumpt% - warb%

 IF trumpt% < 10 THEN
 trumpt% = 10
 END IF

8291 GOTO 8400

8300 trumpu% = trumpu% - warb%

 IF trumpu% < 10 THEN
 trumpu% = 10
 END IF

8301 GOTO 8400

8310 trumpv% = trumpv% - warb%

 IF trumpv% < 10 THEN
 trumpv% = 10
 END IF

8311 GOTO 8400

8320 trumpw% = trumpw% - warb%

 IF trumpw% < 10 THEN
 trumpw% = 10
 END IF

8321 GOTO 8400

8330 trumpx% = trumpx% - warb%

 IF trumpx% < 10 THEN
 trumpx% = 10
 END IF

8331 GOTO 8400

8340 trumpy% = trumpy% - warb%

 IF trumpy% < 10 THEN
 trumpy% = 10
 END IF

8341 GOTO 8400

8350 trumpz% = trumpz% - warb%

 IF trumpz% < 10 THEN
 trumpz% = 10
 END IF

8400 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(196)
 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix%
 PRINT CHR$(32)
 LOCATE koey%, koex%
 PRINT CHR$(trump%)
 GOTO 10000


9999 REM TRUMP PELAA

10000 cha% = 2

 LOCATE 5, 65
 PRINT "TRUMP"

 LOCATE 6, 65
 PRINT "====="

 LOCATE 8, 60
 PRINT "a "; trumpa%

 LOCATE 9, 60
 PRINT "b "; trumpb%

 LOCATE 10, 60
 PRINT "c "; trumpc%

 LOCATE 11, 60
 PRINT "d "; trumpd%

 LOCATE 12, 60
 PRINT "e "; trumpe%

 LOCATE 13, 60
 PRINT "f "; trumpf%

 LOCATE 14, 60
 PRINT "g "; trumpg%

 LOCATE 15, 60
 PRINT "h "; trumph%

 LOCATE 16, 60
 PRINT "i "; trumpi%

 LOCATE 17, 60
 PRINT "j "; trumpj%

 LOCATE 18, 60
 PRINT "k "; trumpk%

 LOCATE 19, 60
 PRINT "l "; trumpl%

 LOCATE 20, 60
 PRINT "m "; trumpm%

 LOCATE 8, 70
 PRINT "n "; trumpn%

 LOCATE 9, 70
 PRINT "o "; trumpo%

 LOCATE 10, 70
 PRINT "p "; trumpp%

 LOCATE 11, 70
 PRINT "q "; trumpq%

 LOCATE 12, 70
 PRINT "r "; trumpr%

 LOCATE 13, 70
 PRINT "s "; trumps%

 LOCATE 14, 70
 PRINT "t "; trumpt%

 LOCATE 15, 70
 PRINT "u "; trumpu%

 LOCATE 16, 70
 PRINT "v "; trumpv%

 LOCATE 17, 70
 PRINT "w "; trumpw%

 LOCATE 18, 70
 PRINT "x "; trumpx%

 LOCATE 19, 70
 PRINT "y "; trumpy%

 LOCATE 20, 70
 PRINT "z "; trumpz%

10001 LOCATE 23, 1
 PRINT "                                                               "

10002 LOCATE 23, 1

10005 INPUT "   TRUMP: Give location (for example x6) "; a$

10006 pul% = SCREEN(23, 44)

10010 IF pul% < 97 OR pul% > 122 THEN
 LOCATE 23, 1
 PRINT "                                                        "
 LOCATE 23, 1
 PRINT "   Impossible."
 SLEEP 1
 GOTO 10001

 ELSE
 GOTO 10015
 END IF

10015 pun% = SCREEN(23, 45)

10020 IF pun% < 49 OR pun% > 57 THEN
 LOCATE 23, 1
 PRINT "                                                        "
 LOCATE 23, 1
 PRINT "   Impossible."
 SLEEP 1
 GOTO 10001

 ELSE
 GOTO 10030
 END IF

10030 IF pul% = 97 THEN
 etsix% = 5
 END IF

 IF pul% = 98 THEN
 etsix% = 7
 END IF

 IF pul% = 99 THEN
 etsix% = 9
 END IF

 IF pul% = 100 THEN
 etsix% = 11
 END IF

 IF pul% = 101 THEN
 etsix% = 13
 END IF

 IF pul% = 102 THEN
 etsix% = 15
 END IF

 IF pul% = 103 THEN
 etsix% = 17
 END IF

 IF pul% = 104 THEN
 etsix% = 19
 END IF

 IF pul% = 105 THEN
 etsix% = 21
 END IF

 IF pul% = 106 THEN
 etsix% = 23
 END IF

 IF pul% = 107 THEN
 etsix% = 25
 END IF

 IF pul% = 108 THEN
 etsix% = 27
 END IF

 IF pul% = 109 THEN
 etsix% = 29
 END IF

 IF pul% = 110 THEN
 etsix% = 31
 END IF

 IF pul% = 111 THEN
 etsix% = 33
 END IF

 IF pul% = 112 THEN
 etsix% = 35
 END IF

 IF pul% = 113 THEN
 etsix% = 37
 END IF

 IF pul% = 114 THEN
 etsix% = 39
 END IF

 IF pul% = 115 THEN
 etsix% = 41
 END IF

 IF pul% = 116 THEN
 etsix% = 43
 END IF

 IF pul% = 117 THEN
 etsix% = 45
 END IF

 IF pul% = 118 THEN
 etsix% = 47
 END IF

 IF pul% = 119 THEN
 etsix% = 49
 END IF

 IF pul% = 120 THEN
 etsix% = 51
 END IF

 IF pul% = 121 THEN
 etsix% = 53
 END IF

 IF pul% = 122 THEN
 etsix% = 55
 END IF

10031 IF pun% = 49 THEN
 etsiy% = 5
 END IF

 IF pun% = 50 THEN
 etsiy% = 7
 END IF

 IF pun% = 51 THEN
 etsiy% = 9
 END IF

 IF pun% = 52 THEN
 etsiy% = 11
 END IF

 IF pun% = 53 THEN
 etsiy% = 13
 END IF

 IF pun% = 54 THEN
 etsiy% = 15
 END IF

 IF pun% = 55 THEN
 etsiy% = 17
 END IF

 IF pun% = 56 THEN
 etsiy% = 19
 END IF

 IF pun% = 57 THEN
 etsiy% = 21
 END IF

10040 kys% = SCREEN(etsiy%, etsix%)

 IF kys% = 32 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Empty."
 SLEEP 1
 GOTO 10001
 END IF

 IF kys% > 96 AND kys% < 123 THEN
 GOTO 10041

 ELSE
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Error: It is Putin."
 SLEEP 1
 GOTO 10001
 END IF

10041 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(205)

 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(186)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(186)

10050 LOCATE 23, 1
 PRINT "                                                               "

10052 LOCATE 23, 1

10053 INPUT "   Type 'M' = Move  'I' = Increase  'Q' = Quit  'V' = View "; a$

 IF a$ = "m" THEN
 GOTO 14000
 END IF

 IF a$ = "i" THEN
 GOTO 11000
 END IF

 IF a$ = "v" THEN
 GOTO 10100
 END IF

 IF a$ = "q" THEN
 GOTO 11500

 ELSE
 LOCATE 23, 1
 PRINT "                                                                "
 LOCATE 23, 1
 PRINT "   Out of range."
 SLEEP 1
 GOTO 10050
 END IF

10100 IF cha% = 1 THEN
 cha% = 2
 GOTO 10200

 ELSE
 cha% = 1
 GOTO 10300
 END IF

10200 LOCATE 5, 65
 PRINT "TRUMP"

 LOCATE 6, 65
 PRINT "====="

 LOCATE 8, 60
 PRINT "a "; trumpa%

 LOCATE 9, 60
 PRINT "b "; trumpb%

 LOCATE 10, 60
 PRINT "c "; trumpc%

 LOCATE 11, 60
 PRINT "d "; trumpd%

 LOCATE 12, 60
 PRINT "e "; trumpe%

 LOCATE 13, 60
 PRINT "f "; trumpf%

 LOCATE 14, 60
 PRINT "g "; trumpg%

 LOCATE 15, 60
 PRINT "h "; trumph%

 LOCATE 16, 60
 PRINT "i "; trumpi%

 LOCATE 17, 60
 PRINT "j "; trumpj%

 LOCATE 18, 60
 PRINT "k "; trumpk%

 LOCATE 19, 60
 PRINT "l "; trumpl%

 LOCATE 20, 60
 PRINT "m "; trumpm%

 LOCATE 8, 70
 PRINT "n "; trumpn%

 LOCATE 9, 70
 PRINT "o "; trumpo%

 LOCATE 10, 70
 PRINT "p "; trumpp%

 LOCATE 11, 70
 PRINT "q "; trumpq%

 LOCATE 12, 70
 PRINT "r "; trumpr%

 LOCATE 13, 70
 PRINT "s "; trumps%

 LOCATE 14, 70
 PRINT "t "; trumpt%

 LOCATE 15, 70
 PRINT "u "; trumpu%

 LOCATE 16, 70
 PRINT "v "; trumpv%

 LOCATE 17, 70
 PRINT "w "; trumpw%

 LOCATE 18, 70
 PRINT "x "; trumpx%

 LOCATE 19, 70
 PRINT "y "; trumpy%

 LOCATE 20, 70
 PRINT "z "; trumpz%

 GOTO 10050

10300 LOCATE 5, 65
 PRINT "PUTIN"

 LOCATE 6, 65
 PRINT "====="

 LOCATE 8, 60
 PRINT "A "; putina%

 LOCATE 9, 60
 PRINT "B "; putinb%

 LOCATE 10, 60
 PRINT "C "; putinc%

 LOCATE 11, 60
 PRINT "D "; putind%

 LOCATE 12, 60
 PRINT "E "; putine%

 LOCATE 13, 60
 PRINT "F "; putinf%

 LOCATE 14, 60
 PRINT "G "; puting%

 LOCATE 15, 60
 PRINT "H "; putinh%

 LOCATE 16, 60
 PRINT "I "; putini%

 LOCATE 17, 60
 PRINT "J "; putinj%

 LOCATE 18, 60
 PRINT "K "; putink%

 LOCATE 19, 60
 PRINT "L "; putinl%

 LOCATE 20, 60
 PRINT "M "; putinm%

 LOCATE 8, 70
 PRINT "N "; putinn%

 LOCATE 9, 70
 PRINT "O "; putino%

 LOCATE 10, 70
 PRINT "P "; putinp%

 LOCATE 11, 70
 PRINT "Q "; putinq%

 LOCATE 12, 70
 PRINT "R "; putinr%

 LOCATE 13, 70
 PRINT "S "; putins%

 LOCATE 14, 70
 PRINT "T "; putint%

 LOCATE 15, 70
 PRINT "U "; putinu%

 LOCATE 16, 70
 PRINT "V "; putinv%

 LOCATE 17, 70
 PRINT "W "; putinw%

 LOCATE 18, 70
 PRINT "X "; putinx%

 LOCATE 19, 70
 PRINT "Y "; putiny%

 LOCATE 20, 70
 PRINT "Z "; putinz%

 GOTO 10050

11000 IF quest% = 1 THEN
 LOCATE 23, 1
 PRINT "                                                                "
 LOCATE 23, 1
 PRINT "   Do not be an idiot. You have to MOVE."
 SLEEP 1
 GOTO 15400
 END IF

11500 IF quest% = 1 THEN
 GOTO 60000

 ELSE
 GOTO 40000
 END IF

12000 IF kys% = 97 THEN
 GOTO 13000
 END IF

 IF kys% = 98 THEN
 GOTO 13010
 END IF

 IF kys% = 99 THEN
 GOTO 13020
 END IF

 IF kys% = 100 THEN
 GOTO 13030
 END IF

 IF kys% = 101 THEN
 GOTO 13040
 END IF

 IF kys% = 102 THEN
 GOTO 13050
 END IF

 IF kys% = 103 THEN
 GOTO 13060
 END IF

 IF kys% = 104 THEN
 GOTO 13070
 END IF

 IF kys% = 105 THEN
 GOTO 13080
 END IF

 IF kys% = 106 THEN
 GOTO 13090
 END IF

 IF kys% = 107 THEN
 GOTO 13100
 END IF

 IF kys% = 108 THEN
 GOTO 13110
 END IF

 IF kys% = 109 THEN
 GOTO 13120
 END IF

 IF kys% = 110 THEN
 GOTO 13130
 END IF

 IF kys% = 111 THEN
 GOTO 13140
 END IF

 IF kys% = 112 THEN
 GOTO 13150
 END IF

 IF kys% = 113 THEN
 GOTO 13160
 END IF

 IF kys% = 114 THEN
 GOTO 13170
 END IF

 IF kys% = 115 THEN
 GOTO 13180
 END IF

 IF kys% = 116 THEN
 GOTO 13190
 END IF

 IF kys% = 117 THEN
 GOTO 13200
 END IF

 IF kys% = 118 THEN
 GOTO 13210
 END IF

 IF kys% = 119 THEN
 GOTO 13220
 END IF

 IF kys% = 120 THEN
 GOTO 13230
 END IF

 IF kys% = 121 THEN
 GOTO 13240
 END IF

 IF kys% = 122 THEN
 GOTO 13250
 END IF

13000 trumpa% = trumpa% + 20

 IF trumpa% > 79 THEN
 trumpa% = 79
 END IF

13001 GOTO 13400

13010 trumpb% = trumpb% + 20

 IF trumpb% > 79 THEN
 trumpb% = 79
 END IF

13011 GOTO 13400

13020 trumpc% = trumpc% + 20

 IF trumpc% > 79 THEN
 trumpc% = 79
 END IF

13021 GOTO 13400

13030 trumpd% = trumpd% + 20

 IF trumpd% > 79 THEN
 trumpd% = 79
 END IF

13031 GOTO 13400

13040 trumpe% = trumpe% + 20

 IF trumpe% > 79 THEN
 trumpe% = 79
 END IF

13041 GOTO 13400

13050 trumpf% = trumpf% + 20

 IF trumpf% > 79 THEN
 trumpf% = 79
 END IF

13051 GOTO 13400

13060 trumpg% = trumpg% + 20

 IF trumpg% > 79 THEN
 trumpg% = 79
 END IF

13061 GOTO 13400

13070 trumph% = trumph% + 20

 IF trumph% > 79 THEN
 trumph% = 79
 END IF

13071 GOTO 13400

13080 trumpi% = trumpi% + 20

 IF trumpi% > 79 THEN
 trumpi% = 79
 END IF

13081 GOTO 13400

13090 trumpj% = trumpj% + 20

 IF trumpj% > 79 THEN
 trumpj% = 79
 END IF

13091 GOTO 13400

13100 trumpk% = trumpk% + 20

 IF trumpk% > 79 THEN
 trumpk% = 79
 END IF

13101 GOTO 13400

13110 trumpl% = trumpl% + 20

 IF trumpl% > 79 THEN
 trumpl% = 79
 END IF

13111 GOTO 13400

13120 trumpm% = trumpm% + 20

 IF trumpm% > 79 THEN
 trumpm% = 79
 END IF

13121 GOTO 13400

13130 trumpn% = trumpn% + 20

 IF trumpn% > 79 THEN
 trumpn% = 79
 END IF

13131 GOTO 13400

13140 trumpo% = trumpo% + 20

 IF trumpo% > 79 THEN
 trumpo% = 79
 END IF

13141 GOTO 13400

13150 trumpp% = trumpp% + 20

 IF trumpp% > 79 THEN
 trumpp% = 79
 END IF

13151 GOTO 13400

13160 trumpq% = trumpq% + 20

 IF trumpq% > 79 THEN
 trumpq% = 79
 END IF

13161 GOTO 13400

13170 trumpr% = trumpr% + 20

 IF trumpr% > 79 THEN
 trumpr% = 79
 END IF

13171 GOTO 13400

13180 trumps% = trumps% + 20

 IF trumps% > 79 THEN
 trumps% = 79
 END IF

13181 GOTO 13400

13190 trumpt% = trumpt% + 20

 IF trumpt% > 79 THEN
 trumpt% = 79
 END IF

13191 GOTO 13400

13200 trumpu% = trumpu% + 20

 IF trumpu% > 79 THEN
 trumpu% = 79
 END IF

13201 GOTO 13400

13210 trumpv% = trumpv% + 20

 IF trumpv% > 79 THEN
 trumpv% = 79
 END IF

13211 GOTO 13400

13220 trumpw% = trumpw% + 20

 IF trumpw% > 79 THEN
 trumpw% = 79
 END IF

13221 GOTO 13400

13230 trumpx% = trumpx% + 20

 IF trumpx% > 99 THEN
 trumpx% = 99
 END IF

13231 GOTO 13400

13240 trumpy% = trumpy% + 20

 IF trumpy% > 99 THEN
 trumpy% = 99
 END IF

13241 GOTO 13400

13250 trumpz% = trumpz% + 20

 IF trumpz% > 99 THEN
 trumpz% = 99
 END IF

13400 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(196)
 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix%
 PRINT CHR$(kys%)
 GOTO 1000

14000 koey% = etsiy%
 koex% = etsix%

14001 LOCATE 23, 1
 PRINT "                                                              "

14002 LOCATE 23, 1

14010 INPUT "   Use Numeric keypad or letters for direction "; a$

 IF a$ = "8" OR a$ = "w" THEN
 GOTO 15000
 END IF

 IF a$ = "2" OR a$ = "z" THEN
 GOTO 15100
 END IF

 IF a$ = "4" OR a$ = "a" THEN
 GOTO 15300
 END IF

 IF a$ = "6" OR a$ = "d" THEN
 GOTO 15200
 END IF

 IF a$ = "9" OR a$ = "i" THEN
 GOTO 14050
 END IF

 IF a$ = "3" OR a$ = "m" THEN
 GOTO 14100
 END IF

 IF a$ = "7" OR a$ = "t" THEN
 GOTO 14200
 END IF

 IF a$ = "1" OR a$ = "v" THEN
 GOTO 14300

 ELSE
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of range."
 SLEEP 1
 GOTO 14001
 END IF

14050 IF kys% = 97 OR kys% = 98 OR kys% = 99 THEN
 koey% = koey% - 4
 koex% = koex% + 4
 GOTO 14051

 ELSE
 koey% = koey% - 2
 koex% = koex% + 2
 GOTO 14051
 END IF

14051 IF koey% < 5 OR koex% > 55 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 15400

 ELSE
 GOTO 15301
 END IF

14100 IF kys% = 97 OR kys% = 98 OR kys% = 99 THEN
 koey% = koey% + 4
 koex% = koex% + 4
 GOTO 14101

 ELSE
 koey% = koey% + 2
 koex% = koex% + 2
 GOTO 14101
 END IF

14101 IF koey% > 21 OR koex% > 55 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 15400

 ELSE
 GOTO 15301
 END IF

14200 IF kys% = 97 OR kys% = 98 OR kys% = 99 THEN
 koey% = koey% - 4
 koex% = koex% - 4
 GOTO 14201

 ELSE
 koey% = koey% - 2
 koex% = koex% - 2
 GOTO 14201
 END IF

14201 IF koey% < 5 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 15400

 ELSE
 GOTO 15301
 END IF

14300 IF kys% = 97 OR kys% = 98 OR kys% = 99 THEN
 koey% = koey% + 4
 koex% = koex% - 4
 GOTO 14301

 ELSE
 koey% = koey% + 2
 koex% = koex% - 2
 GOTO 14301
 END IF

14301 IF koey% > 21 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 15400

 ELSE
 GOTO 15301
 END IF

15000 IF kys% = 97 OR kys% = 98 OR kys% = 99 THEN
 koey% = koey% - 4
 GOTO 15001

 ELSE
 koey% = koey% - 2
 GOTO 15001
 END IF

15001 IF koey% < 5 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 15400

 ELSE
 GOTO 15301
 END IF

15100 IF kys% = 97 OR kys% = 98 OR kys% = 99 THEN
 koey% = koey% + 4
 GOTO 15101

 ELSE
 koey% = koey% + 2
 GOTO 15101
 END IF

15101 IF koey% > 21 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 15400

 ELSE
 GOTO 15301
 END IF

15200 IF kys% = 97 OR kys% = 98 OR kys% = 99 THEN
 koex% = koex% + 4
 GOTO 15201

 ELSE
 koex% = koex% + 2
 GOTO 15201
 END IF

15201 IF koex% > 55 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Out of the Battlefield."
 SLEEP 1
 GOTO 15400

 ELSE
 GOTO 15301
 END IF

15300 IF kys% = 97 OR kys% = 98 OR kys% = 99 THEN
 koex% = koex% - 4
 GOTO 15301

 ELSE
 koex% = koex% - 2
 GOTO 15301
 END IF

15301 koe% = SCREEN(koey%, koex%)

 IF koe% > 96 AND koe% < 123 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   It is your own army. "
 SLEEP 1
 GOTO 15400
 END IF

15302 IF koe% = 32 THEN
 GOTO 15310

 ELSE
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   It is PUTIN. "
 SLEEP 1
 GOTO 16000
 END IF

15310 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(196)
 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix%
 PRINT CHR$(32)
 LOCATE koey%, koex%
 PRINT CHR$(kys%)

15311 IF koex% = 5 THEN
 GOTO 15320

 ELSE
 GOTO 15314
 END IF

15314 IF quest% = 1 THEN
 GOTO 15340
 
 ELSE
 GOTO 1000
 END IF

15320 IF quest% = 1 THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   IT IS A TIE !"
 SLEEP 2
 GOTO 50000

 ELSE
 GOTO 15330
 END IF

15330 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   TRUMP WON !"
 SLEEP 2
 GOTO 70000

15340 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   PUTIN WON !"
 SLEEP 2
 GOTO 60000

15400 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(196)
 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix%
 PRINT CHR$(kys%)
 GOTO 10000

16000 trump% = kys%
 putin% = koe%

16010 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(196)
 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix%
 PRINT CHR$(32)
 LOCATE koey%, koex%
 PRINT CHR$(63)

16020 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   THE BATTLE IS ON !"
 SLEEP 2

16030 RANDOMIZE TIMER
 pwar% = INT(t% * RND) + 1
 twar% = INT(t% * RND) + 1

16100 IF putin% = 65 THEN
 pmen% = putina% + pwar%
 END IF

 IF putin% = 66 THEN
 pmen% = putinb% + pwar%
 END IF

 IF putin% = 67 THEN
 pmen% = putinc% + pwar%
 END IF

 IF putin% = 68 THEN
 pmen% = putind% + pwar%
 END IF

 IF putin% = 69 THEN
 pmen% = putine% + pwar%
 END IF

 IF putin% = 70 THEN
 pmen% = putinf% + pwar%
 END IF

 IF putin% = 71 THEN
 pmen% = puting% + pwar%
 END IF

 IF putin% = 72 THEN
 pmen% = putinh% + pwar%
 END IF

 IF putin% = 73 THEN
 pmen% = putini% + pwar%
 END IF

 IF putin% = 74 THEN
 pmen% = putinj% + pwar%
 END IF

 IF putin% = 75 THEN
 pmen% = putink% + pwar%
 END IF

 IF putin% = 76 THEN
 pmen% = putinl% + pwar%
 END IF

 IF putin% = 77 THEN
 pmen% = putinm% + pwar%
 END IF

 IF putin% = 78 THEN
 pmen% = putinn% + pwar%
 END IF

 IF putin% = 79 THEN
 pmen% = putino% + pwar%
 END IF

 IF putin% = 80 THEN
 pmen% = putinp% + pwar%
 END IF

 IF putin% = 81 THEN
 pmen% = putinq% + pwar%
 END IF

 IF putin% = 82 THEN
 pmen% = putinr% + pwar%
 END IF

 IF putin% = 83 THEN
 pmen% = putins% + pwar%
 END IF

 IF putin% = 84 THEN
 pmen% = putint% + pwar%
 END IF

 IF putin% = 85 THEN
 pmen% = putinu% + pwar%
 END IF

 IF putin% = 86 THEN
 pmen% = putinv% + pwar%
 END IF

 IF putin% = 87 THEN
 pmen% = putinw% + pwar%
 END IF

 IF putin% = 88 THEN
 pmen% = putinx% + pwar%
 END IF

 IF putin% = 89 THEN
 pmen% = putiny% + pwar%
 END IF

 IF putin% = 90 THEN
 pmen% = putinz% + pwar%
 END IF

16500 IF trump% = 97 THEN
 tmen% = trumpa% + twar%
 END IF

 IF trump% = 98 THEN
 tmen% = trumpb% + twar%
 END IF

 IF trump% = 99 THEN
 tmen% = trumpc% + twar%
 END IF

 IF trump% = 100 THEN
 tmen% = trumpd% + twar%
 END IF

 IF trump% = 101 THEN
 tmen% = trumpe% + twar%
 END IF

 IF trump% = 102 THEN
 tmen% = trumpf% + twar%
 END IF

 IF trump% = 103 THEN
 tmen% = trumpg% + twar%
 END IF

 IF trump% = 104 THEN
 tmen% = trumph% + twar%
 END IF

 IF trump% = 105 THEN
 tmen% = trumpi% + twar%
 END IF

 IF trump% = 106 THEN
 tmen% = trumpj% + twar%
 END IF

 IF trump% = 107 THEN
 tmen% = trumpk% + twar%
 END IF

 IF trump% = 108 THEN
 tmen% = trumpl% + twar%
 END IF

 IF trump% = 109 THEN
 tmen% = trumpm% + twar%
 END IF

 IF trump% = 110 THEN
 tmen% = trumpn% + twar%
 END IF

 IF trump% = 111 THEN
 tmen% = trumpo% + twar%
 END IF

 IF trump% = 112 THEN
 tmen% = trumpp% + twar%
 END IF

 IF trump% = 113 THEN
 tmen% = trumpq% + twar%
 END IF

 IF trump% = 114 THEN
 tmen% = trumpr% + twar%
 END IF

 IF trump% = 115 THEN
 tmen% = trumps% + twar%
 END IF

 IF trump% = 116 THEN
 tmen% = trumpt% + twar%
 END IF

 IF trump% = 117 THEN
 tmen% = trumpu% + twar%
 END IF

 IF trump% = 118 THEN
 tmen% = trumpv% + twar%
 END IF

 IF trump% = 119 THEN
 tmen% = trumpw% + twar%
 END IF

 IF trump% = 120 THEN
 tmen% = trumpx% + twar%
 END IF

 IF trump% = 121 THEN
 tmen% = trumpy% + twar%
 END IF

 IF trump% = 122 THEN
 tmen% = trumpz% + twar%
 END IF

16900 IF pmen% > tmen% THEN
 GOTO 17000
 END IF

16901 IF pmen% < tmen% THEN
 GOTO 18000
 END IF

16902 IF pmen% = tmen% THEN
 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   No winner."
 SLEEP 2
 GOTO 16020
 END IF

16999 REM TRUMP MOVES - PUTIN WINS

17000 LOCATE koey%, koex%
 PRINT CHR$(putin%)

17001 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Putin won. Type 'ESC'. "
  
  DO

  LOOP UNTIL INKEY$ = CHR$(27)

17002 IF trump% = 97 THEN
 trumpa% = 0
 END IF

 IF trump% = 98 THEN
 trumpb% = 0
 END IF

 IF trump% = 99 THEN
 trumpc% = 0
 END IF

 IF trump% = 100 THEN
 trumpd% = 0
 END IF

 IF trump% = 101 THEN
 trumpe% = 0
 END IF

 IF trump% = 102 THEN
 trumpf% = 0
 END IF

 IF trump% = 103 THEN
 trumpg% = 0
 END IF

 IF trump% = 104 THEN
 trumph% = 0
 END IF

 IF trump% = 105 THEN
 trumpi% = 0
 END IF

 IF trump% = 106 THEN
 trumpj% = 0
 END IF

 IF trump% = 107 THEN
 trumpk% = 0
 END IF

 IF trump% = 108 THEN
 trumpl% = 0
 END IF

 IF trump% = 109 THEN
 trumpm% = 0
 END IF

 IF trump% = 110 THEN
 trumpn% = 0
 END IF

 IF trump% = 111 THEN
 trumpo% = 0
 END IF

 IF trump% = 112 THEN
 trumpp% = 0
 END IF

 IF trump% = 113 THEN
 trumpq% = 0
 END IF

 IF trump% = 114 THEN
 trumpr% = 0
 END IF

 IF trump% = 115 THEN
 trumps% = 0
 END IF

 IF trump% = 116 THEN
 trumpt% = 0
 END IF

 IF trump% = 117 THEN
 trumpu% = 0
 END IF

 IF trump% = 118 THEN
 trumpv% = 0
 END IF

 IF trump% = 119 THEN
 trumpw% = 0
 END IF

 IF trump% = 120 THEN
 trumpx% = 0
 END IF

 IF trump% = 121 THEN
 trumpy% = 0
 END IF

 IF trump% = 112 THEN
 trumpz% = 0
 END IF

17010 warb% = INT(RND * i%) + 10

 IF putin% = 65 THEN
 GOTO 17100
 END IF

 IF putin% = 66 THEN
 GOTO 17110
 END IF

 IF putin% = 67 THEN
 GOTO 17120
 END IF

 IF putin% = 68 THEN
 GOTO 17130
 END IF

 IF putin% = 69 THEN
 GOTO 17140
 END IF

 IF putin% = 70 THEN
 GOTO 17150
 END IF

 IF putin% = 71 THEN
 GOTO 17160
 END IF

 IF putin% = 72 THEN
 GOTO 17170
 END IF

 IF putin% = 73 THEN
 GOTO 17180
 END IF

 IF putin% = 74 THEN
 GOTO 17190
 END IF

 IF putin% = 75 THEN
 GOTO 17200
 END IF

 IF putin% = 76 THEN
 GOTO 17210
 END IF

 IF putin% = 77 THEN
 GOTO 17220
 END IF

 IF putin% = 78 THEN
 GOTO 17230
 END IF

 IF putin% = 79 THEN
 GOTO 17240
 END IF

 IF putin% = 80 THEN
 GOTO 17250
 END IF

 IF putin% = 81 THEN
 GOTO 17260
 END IF

 IF putin% = 82 THEN
 GOTO 17270
 END IF

 IF putin% = 83 THEN
 GOTO 17280
 END IF

 IF putin% = 84 THEN
 GOTO 17290
 END IF

 IF putin% = 85 THEN
 GOTO 17300
 END IF

 IF putin% = 86 THEN
 GOTO 17310
 END IF

 IF putin% = 87 THEN
 GOTO 17320
 END IF

 IF putin% = 88 THEN
 GOTO 17330
 END IF

 IF putin% = 89 THEN
 GOTO 17340
 END IF

 IF putin% = 90 THEN
 GOTO 17350
 END IF

17100 putina% = putina% - warb%

 IF putina% < 10 THEN
 putina% = 10
 END IF

17101 GOTO 17400

17110 putinb% = putinb% - warb%

 IF putinb% < 10 THEN
 putinb% = 10
 END IF

17111 GOTO 17400

17120 putinc% = putinc% - warb%

 IF putinc% < 10 THEN
 putinc% = 10
 END IF

17121 GOTO 17400

17130 putind% = putind% - warb%

 IF putind% < 10 THEN
 putind% = 10
 END IF

17131 GOTO 17400

17140 putine% = putine% - warb%

 IF putine% < 10 THEN
 putine% = 10
 END IF

17141 GOTO 17400

17150 putinf% = putinf% - warb%

 IF putinf% < 10 THEN
 putinf% = 10
 END IF

17151 GOTO 17400

17160 puting% = puting% - warb%

 IF puting% < 10 THEN
 puting% = 10
 END IF

17161 GOTO 17400

17170 putinh% = putinh% - warb%

 IF putinh% < 10 THEN
 putinh% = 10
 END IF

17171 GOTO 17400

17180 putini% = putini% - warb%

 IF putini% < 10 THEN
 putini% = 10
 END IF

17181 GOTO 17400

17190 putinj% = putinj% - warb%

 IF putinj% < 10 THEN
 putinj% = 10
 END IF

17191 GOTO 17400

17200 putink% = putink% - warb%

 IF putink% < 10 THEN
 putink% = 10
 END IF

17201 GOTO 17400

17210 putinl% = putinl% - warb%

 IF putinl% < 10 THEN
 putinl% = 10
 END IF

17211 GOTO 17400

17220 putinm% = putinm% - warb%

 IF putinm% < 10 THEN
 putinm% = 10
 END IF

17221 GOTO 17400

17230 putinn% = putinn% - warb%

 IF putinn% < 10 THEN
 putinn% = 10
 END IF

17231 GOTO 17400

17240 putino% = putino% - warb%

 IF putino% < 10 THEN
 putino% = 10
 END IF

17241 GOTO 17400

17250 putinp% = putinp% - warb%

 IF putinp% < 10 THEN
 putinp% = 10
 END IF

17251 GOTO 17400

17260 putinq% = putinq% - warb%

 IF putinq% < 10 THEN
 putinq% = 10
 END IF

17261 GOTO 17400

17270 putinr% = putinr% - warb%

 IF putinr% < 10 THEN
 putinr% = 10
 END IF

17271 GOTO 17400

17280 putins% = putins% - warb%

 IF putins% < 10 THEN
 putins% = 10
 END IF

17281 GOTO 17400

17290 putint% = putint% - warb%

 IF putint% < 10 THEN
 putint% = 10
 END IF

17291 GOTO 17400

17300 putinu% = putinu% - warb%

 IF putinu% < 10 THEN
 putinu% = 10
 END IF

17301 GOTO 17400

17310 putinv% = putinv% - warb%

 IF putinv% < 10 THEN
 putinv% = 10
 END IF

17311 GOTO 17400

17320 putinw% = putinw% - warb%

 IF putinw% < 10 THEN
 putinw% = 10
 END IF

17321 GOTO 17400

17330 putinx% = putinx% - warb%

 IF putinx% < 10 THEN
 putinx% = 10
 END IF

17331 GOTO 17400

17340 putiny% = putiny% - warb%

 IF putiny% < 10 THEN
 putiny% = 10
 END IF

17341 GOTO 17400

17350 putinz% = putinz% - warb%

 IF putinz% < 10 THEN
 putinz% = 10
 END IF

17400 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(196)
 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix%
 PRINT CHR$(32)
 LOCATE koey%, koex%
 PRINT CHR$(putin%)
 GOTO 15314

17999 REM TRUMP MOVES - TRUMP WINS

18000 LOCATE koey%, koex%
 PRINT CHR$(trump%)

18001 LOCATE 23, 1
 PRINT "                                                           "
 LOCATE 23, 1
 PRINT "   Trump won. Type 'ESC'. "
 
  DO
  LOOP UNTIL INKEY$ = CHR$(27)

18002 IF putin% = 65 THEN
 putina% = 0
 END IF

 IF putin% = 66 THEN
 putinb% = 0
 END IF

 IF putin% = 67 THEN
 putinc% = 0
 END IF

 IF putin% = 68 THEN
 putind% = 0
 END IF

 IF putin% = 69 THEN
 putine% = 0
 END IF

 IF putin% = 70 THEN
 putinf% = 0
 END IF
     
 IF putin% = 71 THEN
 puting% = 0
 END IF

 IF putin% = 72 THEN
 putinh% = 0
 END IF

 IF putin% = 73 THEN
 putini% = 0
 END IF

 IF putin% = 74 THEN
 putinj% = 0
 END IF

 IF putin% = 75 THEN
 putink% = 0
 END IF

 IF putin% = 76 THEN
 putinl% = 0
 END IF

 IF putin% = 77 THEN
 putinm% = 0
 END IF

 IF putin% = 78 THEN
 putinn% = 0
 END IF

 IF putin% = 79 THEN
 putino% = 0
 END IF

 IF putin% = 80 THEN
 putinp% = 0
 END IF

 IF putin% = 81 THEN
 putinq% = 0
 END IF

 IF putin% = 82 THEN
 putinr% = 0
 END IF

 IF putin% = 83 THEN
 putins% = 0
 END IF

 IF putin% = 84 THEN
 putint% = 0
 END IF

 IF putin% = 85 THEN
 putinu% = 0
 END IF

 IF putin% = 86 THEN
 putinv% = 0
 END IF

 IF putin% = 87 THEN
 putinw% = 0
 END IF

 IF putin% = 88 THEN
 putinx% = 0
 END IF

 IF putin% = 89 THEN
 putiny% = 0
 END IF

 IF putin% = 90 THEN
 putinz% = 0
 END IF

18010 warb% = INT(RND * i%) + 10

 IF trump% = 97 THEN
 GOTO 18100
 END IF

 IF trump% = 98 THEN
 GOTO 18110
 END IF

 IF trump% = 99 THEN
 GOTO 18120
 END IF

 IF trump% = 100 THEN
 GOTO 18130
 END IF

 IF trump% = 101 THEN
 GOTO 18140
 END IF

 IF trump% = 102 THEN
 GOTO 18150
 END IF

 IF trump% = 103 THEN
 GOTO 18160
 END IF

 IF trump% = 104 THEN
 GOTO 18170
 END IF

 IF trump% = 105 THEN
 GOTO 18180
 END IF

 IF trump% = 106 THEN
 GOTO 18190
 END IF

 IF trump% = 107 THEN
 GOTO 18200
 END IF

 IF trump% = 108 THEN
 GOTO 18210
 END IF

 IF trump% = 109 THEN
 GOTO 18220
 END IF

 IF trump% = 110 THEN
 GOTO 18230
 END IF

 IF trump% = 111 THEN
 GOTO 18240
 END IF

 IF trump% = 112 THEN
 GOTO 18250
 END IF

 IF trump% = 113 THEN
 GOTO 18260
 END IF

 IF trump% = 114 THEN
 GOTO 18270
 END IF

 IF trump% = 115 THEN
 GOTO 18280
 END IF

 IF trump% = 116 THEN
 GOTO 18290
 END IF

 IF trump% = 117 THEN
 GOTO 18300
 END IF

 IF trump% = 118 THEN
 GOTO 18310
 END IF

 IF trump% = 119 THEN
 GOTO 18320
 END IF

 IF trump% = 120 THEN
 GOTO 18330
 END IF

 IF trump% = 121 THEN
 GOTO 18340
 END IF

 IF trump% = 122 THEN
 GOTO 18350
 END IF

18100 trumpa% = trumpa% - warb%

 IF trumpa% < 10 THEN
 trumpa% = 10
 END IF

18101 GOTO 18400

18110 trumpb% = trumpb% - warb%

 IF trumpb% < 10 THEN
 trumpb% = 10
 END IF

18111 GOTO 18400

18120 trumpc% = trumpc% - warb%

 IF trumpc% < 10 THEN
 trumpc% = 10
 END IF

18121 GOTO 18400

18130 trumpd% = trumpd% - warb%

 IF trumpd% < 10 THEN
 trumpd% = 10
 END IF

18131 GOTO 18400

18140 trumpe% = trumpe% - warb%

 IF trumpe% < 10 THEN
 trumpe% = 10
 END IF

18141 GOTO 18400

18150 trumpf% = trumpf% - warb%

 IF trumpf% < 10 THEN
 trumpf% = 10
 END IF

18151 GOTO 18400

18160 trumpg% = trumpg% - warb%

 IF trumpg% < 10 THEN
 trumpg% = 10
 END IF

18161 GOTO 18400

18170 trumph% = trumph% - warb%

 IF trumph% < 10 THEN
 trumph% = 10
 END IF

18171 GOTO 18400

18180 trumpi% = trumpi% - warb%

 IF trumpi% < 10 THEN
 trumpi% = 10
 END IF

18181 GOTO 18400

18190 trumpj% = trumpj% - warb%

 IF trumpj% < 10 THEN
 trumpj% = 10
 END IF

18191 GOTO 18400

18200 trumpk% = trumpk% - warb%

 IF trumpk% < 10 THEN
 trumpk% = 10
 END IF

18201 GOTO 18400

18210 trumpl% = trumpl% - warb%

 IF trumpl% < 10 THEN
 trumpl% = 10
 END IF

18211 GOTO 18400

18220 trumpm% = trumpm% - warb%

 IF trumpm% < 10 THEN
 trumpm% = 10
 END IF

18221 GOTO 18400

18230 trumpn% = trumpn% - warb%

 IF trumpn% < 10 THEN
 trumpn% = 10
 END IF

18231 GOTO 18400

18240 trumpo% = trumpo% - warb%

 IF trumpo% < 10 THEN
 trumpo% = 10
 END IF

18241 GOTO 18400

18250 trumpp% = trumpp% - warb%

 IF trumpp% < 10 THEN
 trumpp% = 10
 END IF

18251 GOTO 18400

18260 trumpq% = trumpq% - warb%

 IF trumpq% < 10 THEN
 trumpq% = 10
 END IF

18261 GOTO 18400

18270 trumpr% = trumpr% - warb%

 IF trumpr% < 10 THEN
 trumpr% = 10
 END IF

18271 GOTO 18400

18280 trumps% = trumps% - warb%

 IF trumps% < 10 THEN
 trumps% = 10
 END IF

18281 GOTO 18400

18290 trumpt% = trumpt% - warb%

 IF trumpt% < 10 THEN
 trumpt% = 10
 END IF

18291 GOTO 18400

18300 trumpu% = trumpu% - warb%

 IF trumpu% < 10 THEN
 trumpu% = 10
 END IF

18301 GOTO 18400

18310 trumpv% = trumpv% - warb%

 IF trumpv% < 10 THEN
 trumpv% = 10
 END IF

18311 GOTO 18400

18320 trumpw% = trumpw% - warb%

 IF trumpw% < 10 THEN
 trumpw% = 10
 END IF

18321 GOTO 18400

18330 trumpx% = trumpx% - warb%

 IF trumpx% < 10 THEN
 trumpx% = 10
 END IF

18331 GOTO 18400

18340 trumpy% = trumpy% - warb%

 IF trumpy% < 10 THEN
 trumpy% = 10
 END IF

18341 GOTO 18400

18350 trumpz% = trumpz% - warb%

 IF trumpz% < 10 THEN
 trumpz% = 10
 END IF

18400 LOCATE etsiy% + 1, etsix%
 PRINT CHR$(196)
 LOCATE etsiy%, etsix% - 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix% + 1
 PRINT CHR$(179)
 LOCATE etsiy%, etsix%
 PRINT CHR$(32)
 LOCATE koey%, koex%
 PRINT CHR$(trump%)

18401 IF koex% = 5 THEN
 GOTO 15320

 ELSE
 GOTO 15314
 END IF

40000 CLS
 LOCATE 2, 3
 PRINT "Game over !"
 GOTO 71000

50000 CLS
 LOCATE 2, 3
 PRINT "It is a tie !"
 GOTO 71000

60000 CLS
 LOCATE 2, 3
 PRINT "Putin won !"
 GOTO 71000

70000 CLS
 LOCATE 2, 3
 PRINT "Trump won !"

71000 LOCATE 5, 3
 PRINT "                                              "

71001 LOCATE 5, 3

71010 INPUT "Do you want to play again (y/n) "; a$

 IF a$ = "y" THEN
 GOTO 71100
 END IF

 IF a$ = "n" THEN
 GOTO 71200

 ELSE
 LOCATE 7, 3
 PRINT "Out of range. "
 SLEEP 1
 LOCATE 7, 3
 PRINT "                "
 GOTO 71001
 END IF

71100 RUN

71200 END