Title   : Screen Saver #1
Author  : Lucio Marino Miranda Quintal
Address : ----------------------------       :  lucio@cinfo29.uma.pt
          At the University of Madeira Island:  http://www.uma.pt
Release Date  :22 March 1996 
Programmed at :1995

This file and associated programs are Freeware.

NOTES:
-This file was edited in MSDOS EDIT (under Windows95).
-When translating please use the 'translat.asc' file available at some Casio
 support sites. This is intuitive anyway.
-The indented text after a ';' in a program line is a comment and should not
 be entered.
-The lines are listed as they appear on the calculator screen.
-I'm building an interface for my FX9700GE and PC, then I hope to make
 all my programs available:- Simplex;Biorhythm;Frequency analysies;etc.


"SCREEN "?->A:A/1.62->B         ;Define the horizontal range of your screen.
:"REDUCTION "?->C:Rang          ;bigger reduction=>smaller traces. 
e 0,A,C,0,B,C:Plot 0,           ;the constant 1.62 gives the right aspect
B:Plot A,B:Line:Plot            ;ratio for a rectangle.
A,0:Line:Plot A/2,B/2
Lbl 4:Ran#>=.5=>Goto 0:         ;enter Ran# with [SHIFT][5][F2][F4]
X-Int ((X/C)Ran#+.5)->          ;.5 instead of 0.5 saves one byte!
X:Goto 1
Lbl 0:X+Int (((A-X)/C
)Ran#+.5)->X
Lbl 1:Ran#>=.5=>Goto 2:
Y-Int ((Y/C)Ran#+.5)->
Y:Goto 3
Lbl 2:Y+Int (((B-Y)/C
)Ran#+.5)->Y
Lbl 3:Plot X,Y:Line:G
oto 4

------------------------------------------------------------------------------
for any comments or bug reports I'm -> lucio@cinfo29.uma.pt
------------------------------------------------------------------------------