Use Z and . to eat the cakes, but watch out for the burnt ones!
PROG : 16509
D-FILE: 17186
VARS : 17979
E-LINE: 17980
STKBOT: 17980
STKEND: 17980
9999 means line number
PRINT means treat as KEYWORD P
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