ZX81 Listing for halloween.p


ZX81 program listing for **HALLOWEEN**SLR/1984**

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17865
VARS  : 18658
E-LINE: 18659
STKBOT: 18659
STKEND: 18659

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

  10 REM **HALLOWEEN**SLR/1984
  20 CLS
  30 PRINT "ALLS WELL THAT ENDS 
WELL...HA...HA...HA...HA...HA...
HA...HA...HA"
  40 FOR A=1 TO 5
  50 PRINT
  60 NEXT A
  70 PRINT "HES COMING TO GET YO
U.  DONT BE ALARMED, YOU KNEW HE
 WAS COMING.NO WAY TO ESCAPE.  N
O WAY...WAY."
  80 FOR A=20 TO 17 STEP -1
  90 PRINT AT A,0;"             
                   "
 100 NEXT A
 110 FOR A=16 TO 14 STEP -1
 120 PRINT AT A,0;"!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!"
 130 NEXT A
 140 FOR A=13 TO 12 STEP -1
 150 PRINT AT A,0;"¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸"
 160 NEXT A
 170 PRINT AT 11,10;"ùù!!!!ùù"
 180 PRINT AT 21,0;"úú!úú!ú!úúú!
!!úúú!ú!úú!ú!úúú!ú!ú"
 190 DIM A$(3,15)
 200 LET A$(1)=" ô    ô±  ÷±ö  "
 210 LET A$(2)=" ô   ÷ôö   µµ  "
 220 LET A$(3)=" ô    ô±   õ   "
 230 LET L=26
 240 LET X=1
 250 LET C=2
 260 FOR A=15 TO 0 STEP -1
 270 PRINT AT 18,A;A$(X, TO 5);
AT 19,A;A$(X,6 TO 10);AT 20,A;A$
(X,11 TO )
 280 PRINT AT 18,L;A$(C, TO 5);
AT 19,L;A$(C,6 TO 10);AT 20,L;A$
(C,11 TO )
 290 LET L=L-1.55
 300 LET X=(1 AND X=3)+((X+1)
AND X<3)
 310 LET C=(1 AND C=3)+((C+1)
AND C<3)
 320 NEXT A
 330 FOR A=1 TO 100
 340 NEXT A
 350 PRINT AT 18,0;"HE HAS GRABB
ED YOU...YOU SCREAM,YET, NOT HEA
RD.  BLOOD FALLS TO THE SIDEWALK
.  ITS ALL OVER...  "
 360 FOR A=1 TO 200
 370 NEXT A
 380 RUN
 400 SAVE "HALLOWEEN"
 410 RUN