Two versions of a transformation animation: fast, and slowed down.
PROG : 16509
D-FILE: 18177
VARS : 18970
E-LINE: 18971
STKBOT: 18971
STKEND: 18971
9999 means line number
PRINT means treat as KEYWORD P
10 REM **SLOW DOWN**SLR/1985**
20 LET A$="0"
30 PRINT AT 0,0;"· ô
¸
ò ñ"
35 LET L=VAL A$
40 PRINT AT 0,0;"· ô
¸
ò ñ"
45 LET L=VAL A$
50 PRINT AT 0,0;"· ô
¸
ò ñ"
55 LET L=VAL A$
60 PRINT AT 0,0;"ô¹·
º
ò ñ"
65 LET L=VAL A$
70 PRINT AT 0,0;"ö¸¶
´ ÷
"
75 LET L=VAL A$
80 PRINT AT 0,0;"õ¸µ
´ ÷
·óô"
85 LET L=VAL A$
90 PRINT AT 0,0;"õ¸µ
´ ÷
·óô"
95 LET L=VAL A$
100 PRINT AT 0,0;"õ¸µ
´ ÷
·óô"
105 LET L=VAL A$
110 PRINT AT 0,0;"ô¸·
µ õ"
115 LET L=VAL A$
120 PRINT AT 0,0;" ¸
´ ÷"
125 LET L=VAL A$
130 PRINT AT 0,0;" ¸
´ ÷"
135 LET L=VAL A$
140 PRINT AT 0,0;" ¸
´ ÷"
145 LET L=VAL A$
150 PRINT AT 0,0;"ô¹·
º
ò ñ"
155 LET L=VAL A$
160 PRINT AT 0,0;"· ô
¸
ò ñ"
170 PRINT ,,,,,,"NORMAL TRANSFO
RMATION..." AND A$="0";"SLOWED D
OWN TRANSFORMATION..." AND A$<>"
0"
180 FOR F=0 TO 100
190 NEXT F
200 CLS
210 IF A$<>"0" THEN GOTO 20
220 LET A$="SIN PI*SIN PI+TAN
PI"
230 GOTO 30
300 SAVE "SLOWDOWN"
310 RUN