ZX81 Listing for ds.p


ZX81 program listing for **DOLLAR SIGN**SLR/1984

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17393
VARS  : 18186
E-LINE: 18229
STKBOT: 18229
STKEND: 18229


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **DOLLAR SIGN**SLR/1984
  20 FAST
  30 FOR S=1 TO 250
  40 PRINT AT INT (RND*22),INT (
RND*32);"."
  50 NEXT S
  60 LET X=1
  70 LET Y=1
  80 LET C=X
  90 LET U=Y
 100 PRINT AT 20,30;"$"
 110 SLOW
 120 FOR S=1 TO 200
 130 PRINT AT X,Y;"$";AT C,U;" "
AND (C<>X OR U<>Y)
 140 LET C=X
 150 LET U=Y
 160 LET X=X-(INKEY$="7" AND X>0
)+(INKEY$="6" AND X<21)
 170 LET Y=Y-(INKEY$="5" AND Y>0
)+(INKEY$="8" AND Y<31)
 180 PRINT AT X,Y;
 190 IF PEEK (PEEK 16398+256*
PEEK 16399)=27 THEN GOTO 300
 200 IF X=20 AND Y=30 THEN GOTO
270
 210 NEXT S
 220 PRINT AT 0,0;"YOU WERE TOO 
SLOW, TIME RAN OUT"
 230 PRINT "PRESS A KEY TO BEGIN
"
 240 PAUSE 4E4
 250 CLS
 260 RUN
 270 PRINT AT C,U;" ";AT X,Y;" "
;AT 0,0;"YOU DID IT***IT TOOK YO
U A TOTALOF ";S;" MOVE";"S" AND
S>1;"."
 280 PRINT AT 5,0;
 290 GOTO 230
 300 PRINT AT 0,0;"BOOM-=-YOU HI
T A MINE.YOU LASTEDA TOTAL OF ";
S;" MOVE";"S" AND S>1;"."
 310 PRINT AT 5,0;
 320 GOTO 230
 400 CLS
 410 SAVE "DS"
 420 RUN