Try not to let the item fall. Choose a floor using the 1-4 keys.
PROG : 16509
D-FILE: 17787
VARS : 18580
E-LINE: 18581
STKBOT: 18581
STKEND: 18581
9999 means line number
PRINT means treat as KEYWORD P
10 REM ****LIFT***SLR/2026****
20 GOSUB 800
30 GOSUB 300
40 GOSUB 400
50 REM **LOOP
60 GOSUB 100
70 LET B$=INKEY$
80 IF B$>"0" AND B$<"5" THEN
GOSUB 200
90 GOTO 50
100 REM **MOVE ITEM
110 IF W=9 THEN GOSUB 500
120 LET N=NOT N
130 PRINT AT Q,W;" ";"ö¶"(N+1)
140 LET W=W+1
150 RETURN
200 REM **MOVE LIFT
210 LET F=22-5*VAL B$
220 IF F=G THEN RETURN
230 FOR I=G TO F STEP SGN (F-G)
240 GOSUB 300
250 NEXT I
260 LET G=F
270 RETURN
300 REM **LIFT
310 PRINT AT I,10;" ";AT I+1,1
0;"÷´";AT I+2,10;"õµ";AT I+3,10;
"óó";AT I+4,10;" "
320 RETURN
400 REM **ITEM
410 LET P=22-5*(INT (RND*4)+1)
420 LET Q=P+2
430 LET W=0
440 LET N=W
450 PRINT AT Q,W;"ö"
460 RETURN
500 REM **CHECK
510 IF P<>G THEN GOTO 600
520 PRINT AT Q,W;" "
530 LET S=S+10
540 GOSUB 400
550 RETURN
600 REM **SPLAT
610 PRINT AT Q,W;"*"
620 PRINT AT 1,15;"SPLAT/";AT 2
,15;"úúúúúú"
630 PRINT AT 5,15;"SCORE: ";S;
AT 7,15;"TRY AGAIN."
640 GOSUB 700
650 RUN
700 REM **WAIT
710 IF INKEY$="" THEN GOTO 710
720 RETURN
800 REM **START
810 CLS
820 FOR V=20 TO 5 STEP -5
830 PRINT AT V,0;"úúúúúúúúúú"
840 NEXT V
850 LET G=17
860 LET I=G
870 LET S=0
880 RETURN
900 REM **SAVE
910 SAVE "LIFT"
920 PRINT AT 1,13;"LIFT";AT 2,1
3;"úúúú"
930 PRINT AT 5,0;" MOVE THE LIF
T TO CATCH ITEMS. USE 1-4 TO C
HOOSE YOUR FLOOR.",,," TR
Y NOT TO MISS/"
940 GOSUB 700
950 RAND 0
960 RUN