mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-29 21:29:32 +00:00
35 lines
825 B
QBasic
35 lines
825 B
QBasic
5 EO = 0
|
|
10 HIMEM: 8135
|
|
20 POKE 232,199: POKE 233,31
|
|
30 FOR L = 8135 TO 8175: READ B: POKE L,B: NEXT L
|
|
35 HGR : ROT= 0: SCALE= 2
|
|
40 GOTO 150
|
|
90 END
|
|
100 DATA 3,0,8,0,18,0,33,0,53,53
|
|
101 DATA 53,63,63,63,44,44,44,0,0,40
|
|
102 DATA 45,54,54,54,63,63,63,36,36,36
|
|
103 DATA 45,5,0,40,53,55,63,60,44,5
|
|
104 DATA 0
|
|
150 GOSUB 2000
|
|
200 REM
|
|
300 GET A$
|
|
305 IF A$ = "Q" THEN GOTO 1000
|
|
310 IF A$ = " " THEN EO = 1
|
|
320 IF A$ = "A" THEN R = R - 8
|
|
325 IF A$ = "D" THEN R = R + 8
|
|
330 IF R < 0 THEN R = 56
|
|
335 IF R > 63 THEN R = 0
|
|
337 GOSUB 2000
|
|
340 ROT= R
|
|
800 GOSUB 2000
|
|
900 GOTO 200
|
|
1000 END
|
|
2000 REM DRAW SHIP
|
|
2010 XDRAW 1 AT 140,50
|
|
2020 XDRAW 2 AT 140,62
|
|
2030 XDRAW 2 AT 140,74
|
|
2040 XDRAW 1 AT 140,86
|
|
2050 HCOLOR= 5
|
|
2060 IF EO = 1 THEN DRAW 3 AT 140,92
|
|
2070 RETURN
|