ZX81 Listing for computact.p


ZX81 program listing for **COMPUTACT**SLR/1984**

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17796
VARS  : 18589
E-LINE: 18590
STKBOT: 18590
STKEND: 18590


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **COMPUTACT**SLR/1984**
  20 LET S=0
  30 CLS
  40 DIM A$(384)
  50 LET B$="óVó"
  60 LET X=0
  70 LET Y=10
  80 FOR A=0 TO 11 STEP 2
  90 LET A$((A*32)+1 TO (A*32)+6
4)="¸¸¸¸¸¸¸¸¸¸            ¸¸¸¸¸¸
¸¸¸¸          ¸¸¸¸¸¸¸¸¸¸¸¸      
    "
 100 NEXT A
 105 DIM C$(32)
 110 LET C$="              ºº¹¹ 
             "
 120 PRINT AT 21,0;C$;AT 9,0;A$;
AT X,Y;B$;AT X-1,0;"            
                    " AND X<10
 130 LET X=X+1
 140 IF X=21 THEN GOTO 200
 150 LET Y=Y+(INKEY$="8" AND Y<3
1)-(INKEY$="5" AND Y>0)
 160 IF X>8 AND (Y<10 OR Y>21)
THEN GOTO 300
 170 LET A$=A$(33 TO )+A$( TO 32
)
 175 LET V=INT (RND*2)
 180 LET C$=((C$(2 TO )+C$(1))
AND (C$(11)=" " AND V))+((C$(32
)+C$( TO 31)) AND (C$(22)=" "
AND NOT V))+(C$ AND (C$(11)<>" 
" OR C$(22)<>" "))
 190 GOTO 120
 200 FOR X=11 TO 22
 210 IF C$(X)="º" AND X-1=Y
THEN GOTO 230
 215 NEXT X
 220 GOTO 300
 230 LET S=S+INT (RND*10*100)
 240 PRINT AT 10,0;"YOU LANDED D
IRECTLY...CONGRATS.."
 250 PAUSE 400
 260 FOR X=1 TO 20
 270 PRINT AT INT (RND*22),INT (
RND*32);"º"
 280 NEXT X
 290 GOTO 30
 300 PRINT AT 2,12;"SCORE=";S
 310 PRINT AT 10,0;"YOU CRASHED.
.TOO BAD.PLAY AGAIN?"
 320 IF INKEY$="Y" THEN RUN
 330 PRINT AT 10,0;"YOU CRASHED.
.TOO BAD.PLAY AGAIN?"
 340 GOTO 310
 500 SAVE "COMPUTACT"
 510 RUN