Antiquity Jones: AJ1.B

  1 REM Antiquity Jones
  2 REM (c) Paul Jenkinson 2012
  5 BORDER 0: PAPER 0: INK 0: CLS 
  10 CLEAR 33939
  11 LOAD ""SCREEN$ 
  12 POKE 23739,111: LOAD ""CODE 33940,1092
  13 LOAD ""CODE 35032,768
  14 LOAD ""CODE 
  15 RANDOMIZE 35032
  16 POKE 23606,PEEK 23670
  17 POKE 23607,PEEK 23671-1
  20 CLS : INK 6: BRIGHT 0: PRINT 
  21 PRINT "                "; BRIGHT 1;"          "
  22 INK 7: BRIGHT 1
  23 PRINT "               "; BRIGHT 1;"          "
  25 PRINT : INK 5: BRIGHT 1
  26 PRINT "                  ▜▛▜                       ▝▜"
  27 PRINT ; BRIGHT 0;"                  ▝▘▘▝▝▝"
  29 INK 4: PRINT : PRINT 
  30 PRINT "            -CONTROLS-": INK 3
  31 PRINT "       K...........Keyboard"
  32 PRINT "       C....Cursor Joystick"
  33 PRINT "       S..Sinclair Joystick"
  35 PRINT AT 17,4; INK 7; PAPER 1; FLASH 1;" Select Control To Start "
  39 INK 1
  40 PLOT  0,0: DRAW 255,0
  41 PLOT  0,172: DRAW 255,0
  45 PRINT AT 20,5;"(c) Paul Jenkinson 2012"
  50 RANDOMIZE USR 33939
  100 INK 7
  110 PAUSE 0
  111 IF INKEY$="k" THEN  POKE 60388,37: POKE 60388,37: POKE 60555,37: POKE 60617,38: POKE 60673,32: POKE 60323,26: POKE 60722,26: POKE 60439,34: POKE 60748,34
  112 IF INKEY$="c" THEN  POKE 60388,11: POKE 60504,1: POKE 60555,11: POKE 60617,3: POKE 60673,35: POKE 60323,4: POKE 60722,4: POKE 60439,19: POKE 60748,19
  113 IF INKEY$="s" THEN  POKE 60388,27: POKE 60504,1: POKE 60555,27: POKE 60617,19: POKE 60673,35: POKE 60323,3: POKE 60722,3: POKE 60439,11: POKE 60748,11
  120 RANDOMIZE USR 35800
  125 BORDER 0: INK 7: PAPER 0
  130 GO TO 20