A floating ghost over a graveyard. Brrr.
Happy Halloween!
PROG : 16509
D-FILE: 17908
VARS : 18701
E-LINE: 18702
STKBOT: 18702
STKEND: 18702
9999 means line number
PRINT means treat as KEYWORD P
10 REM **GHOST**SLR/2026**
20 REM **INIT**
30 GOSUB 1000
40 REM **GHOST**
50 FOR X=0 TO 23
60 PRINT AT 8,X;" öó¶";AT 9
,X;" µ õ";AT 10,X;" õ ô·µ"
;AT 11,X;" ·ñòñóµ";AT 12,X;" ö
¶ò òô";AT 13,X;" ö ¶ö ³ñ";AT 1
4,X;" ¶ µ";AT 15,X;" ¶¶ö³ñ"
70 NEXT X
80 REM **RESTART**
90 GOSUB 1300
100 GOSUB 1200
110 GOTO 50
1000 REM **BACKGROUND**
1010 CLS
1020 PRINT " ±² ô";TAB 26;"
±ó´³³"
1030 PRINT "·±ñòñ ³ ±ñ ·÷´ô
´³³ ò´ "
1040 PRINT "±õ ·± ÷ ñ ÷ ´
± ô ´"
1050 PRINT " ³ ÷ ´ ² ² ±
· óñ³÷ ô "
1060 PRINT "´ ÷ñ´ ´³ô ò²±ñ
·÷ ñ ò´ "
1070 PRINT " õ ó";TAB 30
;" "
1080 PRINT "± ";TAB 30;"ò "
1090 PRINT " ñ";TAB 31;"´"
1100 FOR X=0 TO 31
1110 PRINT AT 20,X;"º";AT 21,X;"
"
1120 NEXT X
1200 REM **PRINT GRAVES**
1210 LET GRAVE=INT (RND*4)+1
1220 LET P=0
1230 FOR X=1 TO 4
1240 LET P=P+INT (RND*4)
1250 GOSUB 2000+(100*INT (RND*3+
1) AND GRAVE<>X)
1260 LET P=P+5
1270 NEXT X
1280 RETURN
1300 REM **CLEAR GRAVEYARD**
1310 FOR Y=8 TO 19
1320 PRINT AT Y,0;"
"
1330 NEXT Y
1340 RETURN
1400 REM **SAVE**
1410 SAVE "GHOST"
1420 RUN
2000 REM **BIG GRAVE**
2010 PRINT AT 16,P;" ù!ù";AT 17,
P;" !!!";AT 18,P;" !!!";AT 19,P;
"""!!!"""
2020 RETURN
2100 REM **SHORT GRAVE**
2110 PRINT AT 17,P;" ù!ù";AT 18,
P;" !!!";AT 19,P;" !!!"""
2120 RETURN
2200 REM **BOX GRAVE**
2210 PRINT AT 17,P;" !!!";AT 18,
P;" !!!";AT 19,P;"""!!!"
2220 RETURN
2300 REM **SMALL GRAVE**
2310 PRINT AT 18,P;" !!";AT 19,P
;"""!!/"
2320 RETURN