(c) Copyright Henrik Stenberg 1996
Henrik Stenberg - henrik.s@interact.se

    Program: Spirograph   
       Size: 270 bytes
     Models: 7700, 9700
     Author: Henrik Stenberg
Description: Draws a cool spirograph


   Symbols:
        -->     Assign (Above DEL)
        ==>     Then (Shift  7  F1  F1)
        pi      Pi = 3.14159265..... (Shift  EXP)
        <=      Less or equal (Shift  7  F2  F6)
        !=      Not equal (Shift  7  F2  F2)


Usage Example:
-----------------------------------------------------
RADIUS OF...
FIXED CIRCLE?
10
MOVING CIRCLE?
3
TRACE POINT...
OFFSET?
1.5
INCREASE?
3
1-Plot 2-Line?
2
-----------------------------------------------------



'SPIROGRAPH
Mcl
"RADIUS OF..."
"FIXED CIRCLE"? --> F
"MOVING CIRCLE"? --> M
"TRACE POINT..."
"OFFSET"? --> O
"INCREASE"? --> I
"1-Plot 2-Line"? --> D
Lbl 0
Isz N
N(2Fpi/2Mpi --> Z
Z != Int Z ==> Goto 0
F+2M+O --> S
95S/63 --> T                            ; Casio fx-9700GE:  127S/63 --> T
Range 1,2T+1,0,1,2S+1,0
F+M --> V
V/M --> U
M+O --> W
Lbl 1
Vcos A-Wcos (UA)+T+1 --> K
Vsin A-Wsin (UA)+S+1 --> L
Plot K,L
D=2 ==> Line
A+I --> A
A <= 360N ==> Goto 1
Plot 0,0