39900 FROM FROM 23600 29800 14600 17300 6240 FROM FROM FROM 800 800 FROM FROM FROM 6660 11420 FROM 6270 10550 B FROM FROM FROM ($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF) 65295 ($fc)($FFFF) 65519 ($FF3F)($fc)($FFE0)($FFFF) REM REM line numbering breaks here! REM ( DSKINIT ($ed) RECORD BAKD e A DAT ($fc)  B DAT FREAD  C DAT PUT  D DAT RESTORE  F DAT l  G DAT H H DAT $ I DAT   J DATz  L DAT DIM   REKORD BAS SET  166 REM REM line numbering breaks here! REM RECORD BAS COLOR   INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT REM REM ************************************************* REM * Dragon file header detected: * 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 REM REM line numbering breaks here! REM ($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF) 65295 ($fc)($FFFF) 65519 ($FF3F)($fc)($FFE0)($FFFF) REM REM line numbering breaks here! REM ( DSKINIT ($ed) RECORD BAKD e A DAT ($fc)  B DAT FREAD  C DAT PUT  D DAT RESTORE  F DAT l  G DAT H H DAT $ I DAT   J DATz  L DAT DIM   REKORD BAS SET  166 REM REM line numbering breaks here! REM RECORD BAS COLOR   INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT 51100 51100(NP) 74200 FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $039d Exec: $8b8d * REM *(Start: 09217 Length: 00925 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 ERROR GO TO 1500 1010 FREAD "A";A$ 1020 IF EOF ("A")=1 THEN 1040 1030 GO TO 1010 1040 PRINT @48,A$ 1050 GO TO 140 1500 IF ERR =160 THEN 140 2000 ERROR GO TO 2500 2010 FREAD "B";B$ 2020 IF EOF ("B")=1 THEN 2040 2030 GO TO 2010 2040 :' 2050 PRINT @80,B$ 2500 IF ERR =160 THEN 140 3000 ERROR GO TO 3500 3010 FREAD "C";C$ 3020 IF EOF ("C")=1 THEN 3040 3030 GO TO 3010 3500 IF ERR =160 THEN 140 4000 ERROR GO TO 4500 4010 IF EOF ("D")=1 THEN 4040 REM REM line numbering breaks here! REM 39 +p 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 REM REM line numbering breaks here! REM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $03f9 Exec: $8b8d * REM *(Start: 09217 Length: 01017 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 ERROR GO TO 1500 1010 FREAD "A";A$ 1020 IF EOF ("A")=1 THEN 1040 1030 GO TO 1010 1040 PRINT @48,A$ 1050 GO TO 140 1500 IF ERR =160 THEN 140 2000 ERROR GO TO 2500 2010 FREAD "B";B$ 2020 IF EOF ("B")=1 THEN 2040 2030 GO TO 2010 2040 :' 2050 PRINT @80,B$ 2060 GO TO 140 2500 IF ERR =160 THEN 140 3000 ERROR GO TO 3500 3010 FREAD "C";C$ 3020 IF EOF ("C")=1 THEN 3040 3030 GO TO 3010 3040 :' 3050 PRINT @118,C$ 3060 GO TO 140 3500 IF ERR =160 THEN 140 4000 ERROR GO TO 4500 4010 IF EOF ("D")=1 THEN 4040 4030 :' 4040 PRINT @150,D$ 4050 GO TO 150 4500 IF ERR =160 THEN 140 REM REM line numbering breaks here! REM FROM FROM