REM 
REM *************************************************
REM * Dragon file header:                           *
REM * Start: $2401 Length: $055c Exec: $8b8d        *
REM *(Start: 09217 Length: 01372 Exec: 35725)       *
REM *************************************************
REM 
    0  CLS 
    9  PRINT @0,"HVILKET SPILL"
   10  PRINT @32,"A.DOWNLAND"
   20  PRINT @64,"B.TIME BANDIT"
   30  PRINT @96,"C.CASHMAN"
   40  PRINT @128,"D.HUNCHBACK"
   50  PRINT @160,"E.WHIRLYB. RUN"
   60  PRINT @192,"F.PEDRO"
   70  PRINT @224,"G.INVADER R."
   80  PRINT @256,"H.PLANET INVA."
   90  PRINT @288,"I.NINJA"
  100  PRINT @320,"J.THE KING"
  110  PRINT @352,"K.STORM ARROWS"
  120  PRINT @384,"L.LUNAR R.P."
  130  PRINT " >";
  140 A$= INKEY$ : IF  A$="" THEN  140
  150  IF  A$="A"  THEN  1000
  160  IF  A$="B"  THEN  2000
  170  IF  A$="C"  THEN  3000
  180  IF  A$="D"  THEN  4000
  190  IF  A$="E"  THEN  5000
  200  IF  A$="F"  THEN  6000
  210  IF  A$="G"  THEN  7000
  220  IF  A$="H"  THEN  8000
  230  IF  A$="I"  THEN  9000
  240  IF  A$="J"  THEN  10000
  250  IF  A$="K"  THEN  11000
  260  IF  A$="L"  THEN  12000
  270  GO  TO  140
 1000  PRINT @32,"A.DOWNLAND      ";: INPUT  A$
 1010  FWRITE "A";A$
 1020  CLOSE 
 1030  GO  TO  140
 2000  PRINT @64,"B.TIME BANDIT   ";: INPUT  B$
 2010  FWRITE "B";B$
 2020  CLOSE 
 2030  GO  TO  140
 3000  PRINT @96,"C.CASHMAN       ";: INPUT  C$
 3010  FWRITE "C";C$
 3020  CLOSE 
 3030  GO  TO  140
 4000  PRINT @128,"D.HUNCHBACK     ";: INPUT  D$
 4010  FWRITE "D";D$
 4020  CLOSE 
 4030  GO  TO  140
 5000  PRINT @160,"E.WHIRLYB. RUN  ";: INPUT  E$
 5010  FWRITE "D";D$
 5020  CLOSE 
 5030  GO  TO  140
 6000  PRINT @192,"F.PEDRO         ";: INPUT  F$
 6010  FWRITE "F";F$
 6020  CLOSE 
 6030  GO  TO  140
 7000  PRINT @224,"G.INVADER R.    ";: INPUT  G$
 7010  FWRITE  "G";G$
 7020  CLOSE 
 7030  GO  TO  140
 8000  PRINT @256,"H.PLANET INVA.  ";: INPUT  H$
 8010  FWRITE "H";H$
 8020  CLOSE 
 8030  GO  TO  140
 9000  PRINT @288,"I.NINJA         ";: INPUT  I$
 9010  FWRITE "I";I$
 9020  CLOSE 
 9030  GO  TO  140
10000  PRINT @320,"J.THE KING      ";: INPUT  J$
10010  FWRITE "J";J$
10020  CLOSE 
10030  GO  TO  140
11000  PRINT @352,"K.STORM ARROWS  ";: INPUT  K$
11010  FWRITE "K";K$
11020  CLOSE 
11030  GO  TO  140
12000  PRINT @384,"L.LUNAR R.P.    ";: INPUT  L$
12010  FWRITE "L";L$
12020  CLOSE 
12030  GO  TO  140