# http://www.ex-parrot.com/~tom/calcs/calcs/encyc/progs/src/smileys.ctf
# ========================================================================
# Program name: Smileys
# 
#      Version: 1.0
#       Author: Tom Lynn
#         Date: 1995-7
#       Models: 7000, 7700, 9800, 9750, 9850, 9950, 7400
#
#
# Description:
#
# 'screensaver' - Covers your screen in smiley faces.
#
#
#
# Global subroutines:
#
# Uses global subroutine "+ACVARS" found in tlglobal.ctf.


@@ Program "~SMILEYS"

Prog "+ACVARS"
Lbl 0
A+122Ran#C->G
D+58Ran#F->H
Plot G+C,H+4F
Plot G+3C,Y
Line
Plot G,H+3F
Plot G+2C,Y
Plot G+4C,Y
Plot G,H+2F
Plot G+4C,Y
Line
Plot G,H+F
Plot G+4C,Y
Plot G+C,H
Plot G+3C,H
Line
Goto 0


# ========================================================================
# 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
# ========================================================================