ZX81 Listing for 1985.p


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

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17486
VARS  : 18279
E-LINE: 18280
STKBOT: 18280
STKEND: 18280


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **1985**SLR/1985*******
  20 LET S=0
  30 FOR A=0 TO 4
  40 PRINT AT A,0;"¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸             
                   "
  50 NEXT A
  60 PRINT AT 15,0;"1985:EARTH I
I"
  70 LET A$="¸¹ ¹¸"
  80 LET C$="ºº   º  ººº º ºº  º
 ººº  ºººº ºº"
  90 LET X=13
 100 FOR G=100 TO 0 STEP -1
 110 PRINT AT 1,X;A$;AT 4,0;C$
 120 IF INKEY$<>"" THEN GOTO 300
 130 LET C$=C$(32)+C$( TO 31)
 140 IF RND>.8 THEN LET X=X+INT
(RND*3-1)
 150 LET X=X+(X<0)-(X>27)
 160 LET S=S+5
 170 NEXT G
 180 LET E=0
 190 FOR H=1 TO 32
 200 IF C$(H)="¸" THEN LET E=E+1
 210 NEXT H
 220 IF E<20 THEN GOTO 290
 230 LET S=S+100
 240 PRINT AT 17,0;"YOU REPLANED
 THE EARTH.ALRIGHT**SCORE=";S
 250 FOR H=1 TO 100
 260 NEXT H
 270 CLS
 280 GOTO 30
 290 PRINT AT 17,0;"YOU FAILED..
.ALL OVER NOW...    SCORE=";S
 292 PAUSE 4E4
 295 CLS
 298 RUN
 300 IF C$(X+3)="¸" THEN GOTO 29
0
 310 LET C$(X+3)=("º" AND C$(X+3
)=" ")+("¸" AND C$(X+3)="º")
 320 LET S=S+10
 330 GOTO 130
 400 SAVE "1985"
 410 RUN