ZX81 Listing for time.p


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

**TIME**SLR/1985******* (time.p)

Using the Z and . keys, you maneuver your craft to each successive landing pad.


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17456
VARS  : 18249
E-LINE: 18250
STKBOT: 18250
STKEND: 18250


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **TIME**SLR/1985*******
  20 LET S=0
  30 LET A$="öYY¶"
  40 LET B$="¶VVö"
  50 LET C$="                   
             "
  60 LET T=10
  70 LET Y=14
  80 CLS
  90 PRINT TAB 14;"TIME"
 100 LET D$="00"
 110 LET V=INT (RND*28)
 120 PRINT AT 20,0;C$;AT 21,V;B$
 130 FOR G=3 TO 20
 140 PRINT AT 1,14;D$;AT G,Y;A$;
AT G-1,0;C$
 150 LET D$=STR$ (VAL D$+T)
 160 LET Y=Y-(INKEY$="Z" AND Y>0
)+(INKEY$="." AND Y<28)
 170 LET S=S+1
 180 NEXT G
 190 IF VAL D$>1000 AND Y<>V
THEN GOTO 270
 200 IF V<>Y THEN GOTO 120
 210 LET S=S+100
 220 LET T=T+(10 AND T<60)
 230 PRINT AT 20,0;C$;AT 20,Y;A$
;AT 1,0;"YOU DOCKED IN TIME...GO
OD JOB***YOU SCORED ";S;" POINS.
.GO ON*"
 240 PAUSE 200
 250 PRINT AT 1,0;C$;C$;AT 20,0;
C$;C$
 260 GOTO 100
 270 PRINT AT 20,0;C$;AT 20,Y;"¶
ñòö";AT 1,0;"YOU WASTED TIME IN 
DOCKING******SCORE IS ";S;" POIN
TS...TRY ON**"
 280 PRINT AT 15,11;"GAME  OVER"
 290 PAUSE 4E4
 295 RUN
 300 REM ******END OF GAME******
 310 SAVE "TIME"
 320 RUN