1 REM HAUNTED HOUSE, PART 3›2 REM BY ROBIN ALAN SHERER›3 REM (c) 1987, ANTIC PUBLISHING INC.›98 REM CHAR3 ADDS MULTI CHAR PROTO›99 GOTO 110›100 FOR I=1 TO 50:NEXT I:RETURN ›130 REM THESE LINES DELETE CODE›140 DIM CHARSET$(76):DLY=100›150 REM ›160 REM ›170 CB=PEEK(740)-4:POKE 106,CB-12:CA=CB*256:GRAPHICS 0›180 REM DELETES OLD 180›200 CA=CA+(96*8):FOR SEC=0 TO 1:GOSUB 2110+10*SEC:X=USR(ADR(MM$),ADR(CHARSET$),CA,75)›210 CA=CA+76:NEXT SEC›1040 POKE 752,1:REM REMOVE GR. CALL›2000 REM CHAR3 ADDS MULTI CHARACTER PROTO›2010 X=5:Y=20›2020 POKE 756,CB+2›2030 POSITION X,Y:? #6;"ab":POSITION X,Y+1:? #6;"cd":POSITION X,Y+2:? #6;"ef":GOSUB DLY›2040 POSITION X,Y:? #6;"gh":POSITION X,Y+1:? #6;"ij":POSITION X,Y+2:? #6;"kl":SCROLL=SCROLL+2:GOSUB DLY›2050 POSITION X,Y:? #6;"mn":POSITION X,Y+1:? #6;"op":POSITION X,Y+2:? #6;"qr":SCROLL=SCROLL+4:GOSUB DLY›2060 GOTO 2030›2070 REM ›2080 REM ›2090 REM ›2100 REM ›2110 CHARSET$(1,76)=" ðèÔô„èð ÈȈÈÈø8<<€ÀÀà`p<<  àШèÐà ":RETURN ›2120 CHARSET$(1,76)="ÐÈÈèèøÀ>xp8ÀÀÀÀÀÀðð  àШèÐà ÈÈèøxøÀààÀ€€ÀÀ":RETURN ›