ZX81 Programs


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

ZX81 Program Listing

**BOLDER**SLR/1985***** (bolder.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17703
VARS  : 18496
E-LINE: 18497
STKBOT: 18497
STKEND: 18497


LEGEND

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


PROGRAM LISTING

  10 REM **BOLDER**SLR/1985*****
  20 LET S=0
  30 PRINT AT 10,0;"            
                    "
  40 PRINT AT 3,10;"BOLDER";AT 4
,10;"SAAAAS"
  50 PRINT AT 20,0;"USE ""7"" TO
 JUMP. GOOD LUCK****"
  60 LET L=0
  70 LET L1=1
  80 LET SP=1
  90 LET X=9
 100 LET L=L+1
 110 PRINT AT 5,0;"LEVEL ";L;" N
OW GOING"
 120 LET A$="XOYTAHZN+*QWERTH Q0
671E4258LAST*"(L1)
 130 FOR I=30 TO 6 STEP -1
 140 LET G=(7)+(2 AND RND>.5)
 150 FOR F=1 TO 31 STEP SP
 160 PRINT AT 6,I;"  ";AT 7,I;" 
 ";AT 8,I;"  ";AT 9,I;"  ";AT X-
1,I;"Q ";AT X,I;"8 ";AT G,F;A$
 170 IF F>=I THEN GOTO 210
 180 LET S=S+1
 190 LET X=X+(2 AND X=7)-(1 AND
INKEY$="7" AND X=9)-(1 AND X=8)
 195 PRINT AT G,F;" "
 200 NEXT F
 210 IF X=G OR X-1=G THEN GOTO 4
00
 215 LET X=X+(2 AND X=7)-(1 AND
INKEY$="7" AND X=9)-(1 AND X=8)
 220 LET S=S+L
 225 PRINT AT G,F;" "
 230 NEXT I
 240 LET SP=SP+(SP<6)
 250 LET L1=L1+1
 260 IF L1=33 THEN LET L=1
 270 GOTO 100
 400 CLS
 410 PRINT "YOU GOT HIT BY A BOL
DER AND DIED                 SAA
AAS"
 420 PRINT AT 5,0;"FINAL LEVEL:"
;L
 430 PRINT ,,"FINAL SCORE:";S
 440 PRINT ,,,,
 450 FOR A=1 TO 32*11
 460 PRINT A$;
 470 NEXT A
 480 PAUSE 4E4
 485 CLS
 490 RUN
 500 CLS
 510 CLEAR
 520 SAVE "BOLDER"
 530 RUN