dos33fsprogs/ksp/ship_test.bas
2016-04-08 13:39:50 -04:00

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