Clear That Screen

Discussion about ZX80 / ZX81 Software
Post Reply
User avatar
GCHarder
Posts: 427
Joined: Sat Dec 14, 2013 7:46 pm

Clear That Screen

Post by GCHarder »

Utils by Fred Nachbaur.

Scans...

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

Enjoy;

Greg
Attachments
Clear That Screen.zip
Program
(2.77 KiB) Downloaded 75 times
Screenshot
Screenshot
Clear That Screen.gif (1.27 KiB) Viewed 1096 times
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: Clear That Screen

Post by 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 75 times

Have fun.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Post Reply