ZX81 Programs


Read about, play, run, or list games, animations, and more. These are my programs from the ’80s to today.

ZX81 Program Listing

**WINDMILL**SLR/1985*** (windmill.p)


SYSTEM VARIABLES

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


LEGEND

A means INVERSE A
A means GRAPHICS A
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **WINDMILL**SLR/1985***
  20 PRINT AT 11,9;"5";AT 12,9;"
5";AT 13,7;"  H";AT 14,7;"  8";
AT 15,6;"8 58";AT 16,6;"855";AT
17,6;"85       AAAAA";AT 18,6;" 
5       AWWWA";AT 19,6;" 5 5    
 A7 7A";AT 20,6;" 57777777S6  A"
;AT 21,0;"                      
          "
  30 DIM A$(2,2)
  40 LET A$(1)="58"
  50 LET A$(2)="85"
  60 DIM B$(2,3)
  70 LET B$(1)="WWW"
  80 LET B$(2)="QQQ"
  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