ZX81 Listing for uc.p


ZX81 program listing for **UP-CAKE**SLR/1985****

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

Use Z and . to eat the cakes, but watch out for the burnt ones!


SYSTEM VARIABLES

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


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **UP-CAKE**SLR/1985****
  20 LET A$="X"
  30 LET B$="!¹º¸¸!"
  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 "¸" THEN LET S=S+
10
 160 IF P=CODE "!" THEN LET S=S+
20
 170 IF P=CODE "¹" OR P=CODE "º"
THEN GOTO 210
 190 IF S>200 THEN LET B$="º¹º¸¸
!"
 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