; DEMO2E.SUB, Copyright (c) 1990, Dan Hudgins, All rights reserved.

NAME 1 = PIX\DEMO2AFR 0
 
LET |FRAMES = 1
:FIRST_ANIMATION
GRAPH_MODE B&W
 
# 1 Display 0 -18 0 -4000 .88 1 -320 0
# 2 Display 0 -18 0 -4000 .88 1 -320 0
# 3 Display 0  0  0 -1E18  1  1    0 0
# 4 Display 0  0  0 -1E18  1  1    0 0
 
SAVE PIXEL NAME 1 NEXT
 
LOCATE 2 2 OUTPUT |FRAMES ECHO  frames down, %%
OUTPUT [ 20 - |FRAMES ]   ECHO  to go.
LET |FRAMES = [ |FRAMES + 1 ]
 
# 1 ROTATE C 0 0  2.25
# 2 ROTATE C 0 0 -1.125
LOOP :FIRST_ANIMATION 19
 
RELEASE |FRAMES
 
BEEP ; so you can know when it is done
LOCATE 2 2 ECHO Press [Return] to start.
WAIT
 
LET |FNAME  =  1 ; pass ordinal value for frame set name
 
RUN DEMO2A.SUB ; call subroutine
 
RELEASE |FNAME
 
; End Show Gears Pair Moving

; END