ZX81 Listing for slowdown.p


ZX81 program listing for **SLOW DOWN**SLR/1985**

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18177
VARS  : 18970
E-LINE: 18971
STKBOT: 18971
STKEND: 18971


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  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