| Program name: Tartan (v. 1.0) |
 
|
| CTF file name: | tartan.ctf |
| Author: | Tom Lynn |
| Date: | 1995-7 |
| Models: | Any (7000, 7700, 9700, 9800, 9750, 9850, 9950 and clones) |
|
Description:
'screensaver' - random line fade-to-black.
|
|
Program source code:
Program "~TARTAN"
600->Z
Lbl 0
Ran#<.5=>Goto 1
Plot Xmin,Ymin+(Ymax-Ymin)Ran#
Plot Xmax,Y
Line
Dsz Z
Goto 0
Goto 2
Lbl 1
Plot Xmin+(Xmax-Xmin)Ran#,Ymin
Plot X,Ymax
Line
Plot X+(Xmax-Xmin)/126,Y
Plot X,Ymin
Line
Dsz Z
Goto 0
Lbl 2
Cls
|
This page was created by Tom Lynn (tom-calcs@mythic-beasts.com).
This page last updated: Friday, 30 April, 1999
Written in notepad and compiled with
WTA,
for clean, consistent HTML.
Part of the Casio Graphical Calculator Encyclopaedia.
