ZX81 Listing for windmill.p


ZX81 program listing for **WINDMILL**SLR/1985***

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17718
VARS  : 18511
E-LINE: 18512
STKBOT: 18512
STKEND: 18512


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  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