10 '*** JUMP *** 20 CLS:CLV 30 X=15:Y=21:V=0:J=0:W=10 40 LOCATE X,Y 50 PRINT CHR$(7); 60 LOCATE 0,22 70 FOR I=0 TO 31 80 PRINT CHR$(1); 90 NEXT 100 LOCATE 0,0 110 PRINT S 120 '--- LOOP --- 130 IF INKEY()=32 AND J=0 THEN GOSUB 480 140 LOCATE X,Y 150 PRINT " "; 160 Y=Y+V:IF J=1 THEN V=V+1 170 IF VPEEK(X,Y)=36 THEN BEEP:S=S+100 180 IF VPEEK(X,Y)=64 THEN BEEP:W=2:Z=1 190 LOCATE X,Y 200 PRINT CHR$(7); 210 IF Y>=21 THEN J=0:V=0 220 GOSUB 290 230 IF VPEEK(X,Y+1)<>1 AND Y=21 THEN GOTO 250 240 GOTO 120 250 '--- MISS --- 260 LOCATE 10,12 270 PRINT "*** MISS ***" 280 END 290 '--- SCROLL --- 300 LOCATE X,Y 310 PRINT " "; 320 SCROLL 3 330 IF Z>0 THEN Z=Z+1 340 IF Z>=32 THEN Z=0:W=10 350 IF VPEEK(X,Y)=36 THEN BEEP:S=S+100 360 IF VPEEK(X,Y)=64 THEN BEEP:W=2:Z=1 370 LOCATE 31,22 380 IF RND(10)<9 THEN PRINT CHR$(1); 390 LOCATE X,Y 400 PRINT CHR$(7); 410 S=S+1 420 LOCATE 0,0 430 PRINT S 440 IF RND(10)<1 THEN LOCATE 31,15:PRINT "$"; 450 IF RND(20)<1 THEN LOCATE 31,15:PRINT "@"; 460 WAIT W 470 RETURN 480 '--- JUMP --- 490 J=1 500 V=-3 510 RETURN