CALL ENASCR
Contents |
Effect
Turns on the screen. It's equivalent to DEFUSR=&H44 : X=USR(0).
You can use this instruction when the screen has been turned off with CALL DISSCR.
Syntax
CALL ENASCR
Examples
10 BLOAD"FORTUIN.BIN",R 20 SL=PEEK(&HF342):POKE &HFCC9+(SL AND 3)*16+(SL AND 12)+1,32 30 SCREEN 0: WIDTH 40: KEYOFF 40 _DISSCR 50 FOR N=1 TO 20 60 PRINT STRING$(30,"*") 70 NEXT N 80 _ENASCR
10 BLOAD"FORTUIN.BIN",R 20 SL=PEEK(&HF342):POKE &HFCC9+(SL AND 3)*16+(SL AND 12)+1,32 30 SCREEN 8 40 _DISSCR 50 FOR N=1 TO 20 60 CIRCLE (127,95),20+5*N,,,,1.4 70 NEXT N 80 _ENASCR 90 GOTO 70