1 REM HAUNTED HOUSE, PART 2›2 REM BY ROBIN ALAN SHERER›3 REM (c) 1987, ANTIC PUBLISHING INC.›100 REM CHAR2 ADDS 8*8 PIXEL PROTO›110 DIM MM$(41):MM$="hh…Ïh…Îh…Ñh…Ðhª ÿŠÐh¨±Î‘ЈÀÿÐ÷æÏæÑÊàÿÐé`"›130 REM MAINLINE›140 DIM CHARSET$(24)›150 CHARSET$="8\þ|DJ@ 8lþ|DDDª8tþ|D¤
"›160 TM=PEEK(106)›170 CB=TM-4:CA=CB*256:NCA=CA+24›180 POKE 106,CB-4›190 X=USR(ADR(MM$),224*256,CA,1023)›200 X=USR(ADR(MM$),ADR(CHARSET$),NCA,24)›2000 POKE 756,CB›2010 C=5:R=22›2020 POSITION C,R›2030 ? #6;"#";:GOSUB 2090›2040 POSITION C,R›2050 ? #6;"$";:GOSUB 2090›2060 POSITION C,R›2070 ? #6;"%";:GOSUB 2090›2080 GOTO 2020›2090 FOR I=1 TO 50›2100 NEXT I›2110 RETURN ›