SCREEN 13
DO
LINE (0, 0)-(20, 20), col, BF
LOCATE 4, 1
PRINT col
key$ = INKEY$
SELECT CASE key$
CASE CHR$(0) + "K"
col = col - 1
CASE CHR$(0) + "M"
col = col + 1
CASE CHR$(27)
STOP
END SELECT
LOOP
'  SPN     Spain        0      Yellow/gold [14]
'  GRE     Greece       1      Blue-grey   [133]
'  RED     USSR         2      Red         [4]
'  ENG     England      3      Green       [2]
'  UKA     Ukraine      4      Orange      [42]
'  GER     Germany      5      Khaki/light brown[114]
'  FRA     France       6      Aqua        [11]
'  TRK     Turkey       7      Red-Ochre   [112]
'  GDI     GoodGuy      8      Blue-grey   [247]
'  NOD     BadGuy       9      Red         [40]
'  CIV     Neutral     10      Yellow/gold [44]
'  JP      Special    ?11?     Yellow/gold [14]
'  MP1     Multi1      12      Yellow/gold [44]
'  MP2     Multi2      13      Blue-grey   [156]
'  MP3     Multi3      14      Red         [4]
'  MP4     Multi4      15      Green       [120]
'  MP5     Multi5      16      Orange      [42]
'  MP6     Multi6      17      Khaki/light brown[114]
'  MP7     Multi7      18      Aqua        [11]
'  MP8     Multi8      19      Red-Ochre   [112]