mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-17 14:12:58 +00:00
41 lines
963 B
QBasic
41 lines
963 B
QBasic
2000 REM *** LAUNCH ***
|
|
2010 HIMEM: 8135
|
|
2020 POKE 232,199: POKE 233,31
|
|
2030 FOR L = 8135 TO 8175: READ B: POKE L,B: NEXT L
|
|
2035 HGR : ROT= 0: SCALE= 2
|
|
2040 GOTO 2150
|
|
2090 END
|
|
2100 DATA 3,0,8,0,18,0,33,0,53,53
|
|
2101 DATA 53,63,63,63,44,44,44,0,0,40
|
|
2102 DATA 45,54,54,54,63,63,63,36,36,36
|
|
2103 DATA 45,5,0,40,53,55,63,60,44,5
|
|
2104 DATA 0
|
|
2150 REM
|
|
2151 S=3
|
|
2152 ST(1)=3:FT(1)=2:EN(1)=3
|
|
2153 ST(2)=3:FT(2)=2:EN(2)=3
|
|
2154 ST(3)=3:FT(3)=2:EN(3)=3
|
|
2155 R=0
|
|
2160 GOSUB 2200
|
|
2165 GET A$
|
|
2170 GOSUB 2200
|
|
2180 R=R+1
|
|
2190 GOTO 2160
|
|
2200 REM *** DRAW SHIP ***
|
|
2205 ROT=R
|
|
2210 X=132:Y=28
|
|
2215 XDRAW 1 AT X,Y+2
|
|
2230 FOR I = 1 TO S
|
|
2268 FOR J = 1 TO FT(I)
|
|
2270 XDRAW 2 AT X, Y+13*J
|
|
2272 IF ST(I) >1 THEN XDRAW 2 AT X-14, Y+13*J
|
|
2274 IF ST(I) >2 THEN XDRAW 2 AT X+14, Y+13*J
|
|
2278 NEXT J
|
|
2279 Y=Y+13*FT(I)
|
|
2290 XDRAW 1 AT X, Y+8
|
|
2292 IF EN(I) >1 THEN XDRAW 1 AT X-14, Y+8
|
|
2294 IF EN(I) >2 THEN XDRAW 1 AT X+14, Y+8
|
|
2297 Y=Y+6
|
|
2300 NEXT I
|
|
2310 RETURN
|