ZX81 Programs


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

ZX81 Program Listing

**PARACHUTE**SLR/1985 (para.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17858
VARS  : 18651
E-LINE: 18652
STKBOT: 18652
STKEND: 18652


LEGEND

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


PROGRAM LISTING

  10 REM **PARACHUTE**SLR/1985
  20 LET A$=" 4  Y"
  30 LET B$=" 277R7"
  40 LET C$="    1"
  50 LET D$="   "
  60 LET E$="Q W"
  70 LET F$="Y5T"
  80 LET G$="E 4"
  90 LET H$="1 2"
 100 LET I$="T Y"
 110 LET S=0
 120 LET J$="HHHHH"
 130 LET O=INT (RND*(31-LEN J$))
 140 CLS
 150 PRINT AT 21,O;J$
 160 FOR A=1 TO 3
 170 FOR B=0 TO 25
 180 PRINT AT 0,B;A$;AT 1,B;B$;
AT 2,B;C$
 190 IF INKEY$<>"" THEN GOTO 240
 200 NEXT B
 210 PRINT AT 0,B;"     ";AT 1,B
;"     ";AT 2,B;"     "
 220 NEXT A
 230 GOTO 350
 240 LET C=B+1
 250 FOR A=2 TO 15
 260 PRINT AT A,C;D$;AT A+1,C;E$
;AT A+2,C;F$;AT A+3,C;G$;AT A+4,
C;H$;AT A+5,C;I$
 270 LET L=SIN PI
 280 LET L=SIN PI
 290 NEXT A
 300 IF C>=O AND C<=O+LEN J$+1
THEN GOTO 400
 310 CLS
 320 PRINT AT 21,O;J$;AT 20,C;"Y
1T";AT 10,0;"GAME OVER";AT 12,0;
"SCORE:";S
 330 PRINT AT 16,0;"YOU MISSED,T
OO BAD******"
 340 GOTO 370
 350 PRINT AT 0,0;"Y2211T";AT 1,
0;"567678";AT 2,0;"TEE44Y";AT 10
,0;"GAME OVER";AT 12,0;"SCORE:";
S
 360 PRINT AT 16,0;"YOU WERE SHO
T DOWN...TOO BAD****"
 370 PRINT AT 10,0;"GAME OVER"
 380 PRINT AT 10,0;"GAME OVER"
 385 IF INKEY$<>"" THEN RUN
 390 GOTO 370
 400 LET S=S+10+INT (RND*10)
 410 PRINT AT A,C;D$;AT A+1,C;D$
;AT 10,0;"YOU MADE IT***";AT 12,
0;"SCORE:";S
 420 IF S>100 THEN LET J$="HHHH"
 430 IF S>200 THEN LET J$="HHH"
 440 FOR A=1 TO 25
 450 NEXT A
 460 GOTO 130
 500 SAVE "PARA"
 510 RUN