Clear That Screen

[GCHarder]

Utils by Fred Nachbaur.

Scans...

https://archive.org/details/SyncWareNew ... 8/mode/2up

Enjoy;

Greg

[XavSnap]

Hi Greg,
Thanks for these useful routines.

I grabbed one in "Tee-Time"...
I changed the size and the colours placed in $4021.

Code: Select all

10 REM [HEX:\
2A,0C,40,23,11,21,00,06,16,36,00,19,10,FB,2A,0C,\
40,23,23,11,01,00,06,16,D5,E5,D5,3A,21,40,77,11,\
E0,FF,19,C5,06,00,10,FE,C1,D1,1B,D5,7A,B3,20,EB,\
D1,E1,11,21,00,19,D1,13,10,DE,2A,0C,40,11,B7,02,\
19,23,06,08,E5,C5,11,E0,FF,06,16,3A,21,40,77,19,\
C5,06,FF,10,FE,C1,10,F3,C1,E1,23,10,E7,2A,0C,40,\
11,C0,02,19,11,15,00,06,15,D5,E5,D5,3A,21,40,77,\
11,E0,FF,19,C5,06,00,10,FE,C1,D1,1B,D5,7A,B3,20,\
EB,D1,E1,11,01,00,19,D1,1B,10,DE,C9 ]
  40 LET TRIG=PI
  50 LET TRIG= NOT TRIG
  60 GOSUB 1000
  70 POKE 16417,(128 AND TRIG)
  80 RAND USR 16514
  90 GOTO 50

1000 POKE 16418,0
1010 PRINT AT 0,0;
1020 LET F$="\
***SCREEN FILL***screen«fill’’’ "
1030 FOR A=1 TO 22
1040 PRINT F$
1050 NEXT A
1070 PRINT ,,"     ANY KEY TO CLEAR SCREEN"
1080 POKE 16418,2
1090 IF INKEY$="" THEN GOTO 1090
1100 RETURN
9990 SAVE "WIPES2"
9995 RUN

WIPES2.P

(1.38 KiB) Downloaded 137 times

Have fun.