ZX81 Listing for th.p

*THE HAUNTING**SLR/1985 (th.p)

Weird ZX81 music

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16950
VARS  : 17743
E-LINE: 17744
STKBOT: 17744
STKEND: 17744

LEGEND

9999 means line number
PRINT means treat as KEYWORD P

PROGRAM LISTING

  10 REM *THE HAUNTING**SLR/1985
  20 DIM A(50)
  30 GOSUB 120
  40 FOR B=1 TO 50
  50 FOR C=1 TO A(B)
  60 SLOW
  70 FAST
  80 NEXT C
  90 NEXT B
 100 PRINT "THE HAUNTING....."
 105 PAUSE 100
 110 GOTO 40
 120 LET A$="7641001501804001005
00180240240180190650480100145370
39029015067510080090010020030040
05006007008009008007006005004003
00200100500100900111999888222543
454"
 130 FOR B=1 TO 50
 140 LET A(B)=VAL A$(B*3-2 TO B*
3)
 150 NEXT B
 160 RETURN
 200 SAVE "TH"
 210 RUN