He’s coming to get you. A halloween scare for the ZX81.
PROG : 16509
D-FILE: 17865
VARS : 18658
E-LINE: 18659
STKBOT: 18659
STKEND: 18659
9999 means line number
PRINT means treat as KEYWORD P
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