mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-17 13:29:39 +00:00
23 lines
921 B
QBasic
23 lines
921 B
QBasic
1 DIM CODE%(15),X%(15),Y%(15),SCALE%(15),XROT%(15),YROT%(15),ZROT%(15),SX%(15),SY%(15)
|
|
2 RESET% = 7932:CLR% = 7951:HIRES% = 7983:CRNCH% = 7737:TXTGEN% = 768
|
|
3 D$ = CHR$ (4): REM SET D$ TO CTRL-D
|
|
4 TEXT : NORMAL : HOME : REM MODULE LOADS ON TEXT SCREEN
|
|
5 PRINT D$"BLOAD SHIP_CUBE"
|
|
110 CALL RESET%: CALL TXTGEN%
|
|
200 VTAB 2: HTAB 1: PRINT "THE SPACE SHUTTLE"
|
|
210 COUNT = 0: REMINIT ANIMATION FRAME COUNTER
|
|
220 CODE%(0) = 1:CODE%(1) = 1
|
|
225 X%(0) = 127:Y%(0) = 96:X%(1) = 20:Y%(1) = 30
|
|
230 SCALE%(0) = 15:XROT%(0) = 2:YROT%(0) = 5:ZROT%(0) = 0
|
|
235 SCALE%(1) = 15:XROT%(1) = 2:YROT%(1) = 5:ZROT%(1) = 0
|
|
240 CALL CRNCH%
|
|
250 CALL CRNCH%
|
|
260 CODE%(0) = 2:CODE%(1) = 2
|
|
300 ZROT%(0) = ZROT%(0) + 1: IF ZROT%(0) = 28 THEN ZROT%(0) = 0
|
|
305 YROT%(1) = ZROT%(0)
|
|
310 CALL CRNCH%
|
|
320 VTAB 2: HTAB 30: PRINT " ": REMERASE
|
|
330 COUNT = COUNT + 1: IF COUNT = 10000 THEN COUNT = 0
|
|
340 VTAB 2: HTAB 30: PRINT COUNT
|
|
350 GOTO 300
|