A ZX81 animation experiment using a super nova as its subject.
PROG : 16509
D-FILE: 17339
VARS : 18132
E-LINE: 18133
STKBOT: 18133
STKEND: 18133
9999 means line number
PRINT means treat as KEYWORD P
10 REM **3D IMAGE**SLR/1984***
20 FOR A=10 TO 0 STEP -1
21 FOR G=1 TO 22
22 PRINT "!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!"
23 NEXT G
30 FOR S=11-A/2+5 TO 10-A/2+5+
A
40 PRINT AT S,10-A/2-.5;"
"( TO A)
50 NEXT S
60 FAST
70 PAUSE 20
80 IF A>0 THEN CLS
90 NEXT A
100 SLOW
110 PRINT AT 0,0;"THE SUN CALLA
PSED IN THE LIGHT OF DAY TO SUD
DENLY..."
120 PAUSE 200
125 CLS
130 FOR A=1 TO 10
140 FOR G=1 TO 22
150 PRINT "!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!"
160 NEXT G
170 FOR S=11-A/2+5 TO 10-A/2+5+
A
180 PRINT AT S,10-A/2-.5;" º¹÷²
ºö´ó³"( TO A)
190 NEXT S
200 FAST
205 PRINT AT 0,0;"THE SUN CALLA
PSED IN THE LIGHT OF DAY TO SUD
DENLY..."
210 PRINT AT 8,10;"EXPLODE"
220 PAUSE 20
230 IF A<10 THEN CLS
240 NEXT A
250 SLOW
260 PAUSE 4E4
270 CLS
280 RUN
300 SAVE "3DIMAGE"
310 RUN