CLS
NEW
' ------- 25 Screen Saver (PanCake)
10 ?"PC CLEAR 00"
20 X=RND(80):Y=RND(40):V=1:W=1
30 A=RND(40)+40:B=RND(20)+22:C=-1:D=-1
40 Z=0
100 ?"PC LINE ";HEX$(X,2);" ";HEX$(Y,2);" ";HEX$(A,2);" ";HEX$(B,2);" ";HEX$(RND(15)+1,2)
110 Z=Z+1
120 IF Z>400 THEN Z=0:RUN
130 X=X+V:Y=Y+W:A=A+C:B=B+D
140 IF X<1 OR X>78 THEN V=-V
150 IF Y<1 OR Y>44 THEN W=-W
160 IF A<1 OR A>78 THEN C=-C
170 IF B<1 OR B>44 THEN D=-D
180 GOTO 100