PROG : 16509
D-FILE: 17393
VARS : 18186
E-LINE: 18229
STKBOT: 18229
STKEND: 18229
9999 means line number
PRINT means treat as KEYWORD P
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