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
