ZX81 Programs


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

ZX81 Program Listing

**UP-CAKE**SLR/1985**** (uc.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17186
VARS  : 17979
E-LINE: 17980
STKBOT: 17980
STKEND: 17980


LEGEND

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


PROGRAM LISTING

  10 REM **UP-CAKE**SLR/1985****
  20 LET A$="X"
  30 LET B$="AGFHHA"
  40 LET S=0
  50 LET X=15
  60 PRINT AT 21,0;"**UP-CAKE**C
ATCH THE CAKES..."
  70 FOR A=1 TO 50
  80 NEXT A
  90 SCROLL
 100 PRINT AT 0,X;A$;AT 21,INT (
RND*32);B$(INT (RND*6+1))
 110 LET X=X-(INKEY$="Z" AND X>0
)+(INKEY$="." AND X<31)
 120 PRINT AT 1,X;
 130 LET P=PEEK (PEEK 16398+256*
PEEK 16399)
 140 LET S=S+1
 150 IF P=CODE "H" THEN LET S=S+
10
 160 IF P=CODE "A" THEN LET S=S+
20
 170 IF P=CODE "G" OR P=CODE "F"
THEN GOTO 210
 190 IF S>200 THEN LET B$="FGFHH
A"
 200 GOTO 90
 210 SCROLL
 220 PRINT "**UP-CAKE**YOU ATE A
 BURNED CAKE"
 230 SCROLL
 240 PRINT "TOO BAD...SCORE:";S
 250 SCROLL
 260 PRINT "PRESS A KEY TO PLAY 
AGAIN..."
 270 IF INKEY$<>"" THEN GOTO 270
 280 IF INKEY$="" THEN GOTO 280
 290 RUN
 300 SAVE "UC"
 310 RUN