# http://www.ex-parrot.com/~tom/calcs/calcs/encyc/progs/src/tartan.ctf
# ========================================================================
# Program name: Tartan
# 
#      Version: 1.0
#       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 "~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


# ========================================================================
# CTF compliant.  See http://www.york.ac.uk/~tw104/casio/ for details.
#
# More programs and information at:
#              http://www.ex-parrot.com/~tom/calcs/calcs/encyc/
#
# This file last compiled: Friday, 30 April, 1999
# ========================================================================