ZX81 Listing for para.p


ZX81 program listing for **PARACHUTE**SLR/1985

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17858
VARS  : 18651
E-LINE: 18652
STKBOT: 18652
STKEND: 18652


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  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