ZX81 Listing for 3dimage.p


ZX81 program listing for **3D IMAGE**SLR/1984***

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17339
VARS  : 18132
E-LINE: 18133
STKBOT: 18133
STKEND: 18133


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  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