10 '*MINING 20 CLV:CLS 25 FOR I=1 TO 50 26 LC RND(32),RND(23) 27 ?CHR$(1); 28 NEXT 30 X=15:Y=11 40 LC X,Y 50 ?CHR$(249) 100 @LOOP 110 U=X-BTN(28)+BTN(29) 112 IF U<0 OR U>31 GOTO @LOOP 120 V=Y-BTN(30)+BTN(31) 122 IF V<0 OR V>22 GOTO @LOOP 124 IF X=U AND Y=V GOTO @LOOP 125 C=SCR(U,V) 126 IF BTN(32) GSB @ACT:GOTO @LOOP 128 IF C>0 GOTO @LOOP 130 LC X,Y:?CHR$(0); 140 LC U,V:?CHR$(249); 150 X=U:Y=V 155 WAIT 5 160 GOTO @LOOP 200 @ACT 205 IF C=1 RTN 210 IF H=0 GSB @GET ELSE GSB @PUT 220 RTN 230 @GET 235 IF C>0 H=C:GOTO @TAKE 240 LC U,V:?"o"; 250 BEEP 30:WAIT 30 260 H=42+U+V 270 LC U,V:?CHR$(H); 280 WAIT 30 285 @TAKE 290 LC U,V:?CHR$(0); 300 LC 0,23:?"(";CHR$(H);")"; 310 BEEP:WAIT 30 320 RTN 330 @PUT 340 LC U,V:?CHR$(H); 350 LC 0,23:?"( )"; 360 BEEP 30:WAIT 30 370 IF C=0 H=0:RTN 380 LC U,V:?"+"; 390 WAIT 30 400 H=(C+H)&255 410 IF H<33 H=H+33 420 IF H=127 OR H=128 H=129 430 LC U,V:?CHR$(H); 440 BEEP 10,30:WAIT 30 450 H=0:RTN