A simple windmill simulation. Choose the speed and duration of the animation.
PROG : 16509
D-FILE: 17718
VARS : 18511
E-LINE: 18512
STKBOT: 18512
STKEND: 18512
9999 means line number
PRINT means treat as KEYWORD P
10 REM **WINDMILL**SLR/1985***
20 PRINT AT 11,9;"õ";AT 12,9;"
õ";AT 13,7;" ¸";AT 14,7;" µ";
AT 15,6;"µ õµ";AT 16,6;"µõõ";AT
17,6;"µõ !!!!!";AT 18,6;"
õ !²²²!";AT 19,6;" õ õ
!ó ó!";AT 20,6;" õóóóóóóóú³ !"
;AT 21,0;"
"
30 DIM A$(2,2)
40 LET A$(1)="õµ"
50 LET A$(2)="µõ"
60 DIM B$(2,3)
70 LET B$(1)="²²²"
80 LET B$(2)="±±±"
90 PRINT AT 0,0;"****THE WINDM
ILL**** GRAPHIC PROGR
AM BY STEVEN REID"
100 PRINT AT 5,0;"ENTER SPEED..
.(1-20 MPH)"
110 INPUT S
120 PRINT AT 5,14;S;"
"
130 LET S=(20-S)*2
131 REM LET S=S-(S-(SGN S*20))+
(S=1 OR S=20)
140 PRINT ,,"ENTER DURATION...(
10 TO 1000)"
150 INPUT D
160 PRINT AT 7,17;D;"
"
170 LET L=0
180 FOR G=1 TO D
190 PRINT AT 11,9;A$(L+1,1);AT
12,9;A$(L+1,1);AT 14,9;A$(L+1,2)
;AT 15,9;A$(L+1,2);AT 18,16;B$(L
+1)
200 LET L=NOT L
210 FOR P=1 TO S
220 NEXT P
230 NEXT G
240 PRINT AT 21,0;"PRESS ENTER
TO BEGIN AGAIN... "
250 PAUSE 4E4
260 CLS
270 RUN
300 SAVE "WINDMILL"
310 RUN