Can you parachute to safety? Press any key to jump.
PROG : 16509
D-FILE: 17858
VARS : 18651
E-LINE: 18652
STKBOT: 18652
STKEND: 18652
9999 means line number
PRINT means treat as KEYWORD P
10 REM **PARACHUTE**SLR/1985
20 LET A$=" ô ¶"
30 LET B$=" òóó´ó"
40 LET C$=" ñ"
50 LET D$=" "
60 LET E$="± ²"
70 LET F$="¶õö"
80 LET G$="· ô"
90 LET H$="ñ ò"
100 LET I$="ö ¶"
110 LET S=0
120 LET J$="¸¸¸¸¸"
130 LET O=INT (RND*(31-LEN J$))
140 CLS
150 PRINT AT 21,O;J$
160 FOR A=1 TO 3
170 FOR B=0 TO 25
180 PRINT AT 0,B;A$;AT 1,B;B$;
AT 2,B;C$
190 IF INKEY$<>"" THEN GOTO 240
200 NEXT B
210 PRINT AT 0,B;" ";AT 1,B
;" ";AT 2,B;" "
220 NEXT A
230 GOTO 350
240 LET C=B+1
250 FOR A=2 TO 15
260 PRINT AT A,C;D$;AT A+1,C;E$
;AT A+2,C;F$;AT A+3,C;G$;AT A+4,
C;H$;AT A+5,C;I$
270 LET L=SIN PI
280 LET L=SIN PI
290 NEXT A
300 IF C>=O AND C<=O+LEN J$+1
THEN GOTO 400
310 CLS
320 PRINT AT 21,O;J$;AT 20,C;"¶
ñö";AT 10,0;"GAME OVER";AT 12,0;
"SCORE:";S
330 PRINT AT 16,0;"YOU MISSED,T
OO BAD******"
340 GOTO 370
350 PRINT AT 0,0;"¶òòññö";AT 1,
0;"õ³ó³óµ";AT 2,0;"ö··ôô¶";AT 10
,0;"GAME OVER";AT 12,0;"SCORE:";
S
360 PRINT AT 16,0;"YOU WERE SHO
T DOWN...TOO BAD****"
370 PRINT AT 10,0;"GAME OVER"
380 PRINT AT 10,0;"GAME OVER"
385 IF INKEY$<>"" THEN RUN
390 GOTO 370
400 LET S=S+10+INT (RND*10)
410 PRINT AT A,C;D$;AT A+1,C;D$
;AT 10,0;"YOU MADE IT***";AT 12,
0;"SCORE:";S
420 IF S>100 THEN LET J$="¸¸¸¸"
430 IF S>200 THEN LET J$="¸¸¸"
440 FOR A=1 TO 25
450 NEXT A
460 GOTO 130
500 SAVE "PARA"
510 RUN