Bank Shot

Source Code

  10 FOR N=7 TO 13
  20 PRINT AT N,1;"\: "
  30 NEXT N
  50 PRINT AT 10,10;"SCORE = ";AT 1,10;"%1\@@\@@\@@\@@%2\@@\@@\@@\@@%3\@@\@@\@@\@@%4\@@\@@\@@\@@%5";AT 20,10;"%1\@@\@@\@@\@@%2\@@\@@\@@\@@%3\@@\@@\@@\@@%4\@@\@@\@@\@@%5"
  52 CLEAR 
  55 LET S=0
  56 LET B=0
  57 DIM A(5)
  60 LET X=INT (RND*5+1)
  70 LET Y=-(X/2+.5)
  80 LET J=(X-1)*5+10
  90 FOR I=2 TO 10
 100 PRINT AT I,J;"*";AT I,J;" "
 110 LET J=J+Y
 130 NEXT I
 650 LET X=INT (RND*5+1)
 660 LET Y=-(X/2+.5)
 670 LET J=2
 680 FOR I=11 TO 19
 690 PRINT AT I,J;"*";AT I,J;" "
 710 LET J=J-Y
 715 IF INKEY$<>"" THEN GOSUB 850
 720 NEXT I
 730 PRINT AT 20,(X-1)*5+10;" "
 735 IF A(X)=1 THEN GOTO 810
 740 LET B=B+1
 745 LET A(X)=1
 750 IF B<4 THEN GOTO 810
 770 STOP 
 800 LET S=S+100
 810 PRINT AT 10,18;S
 820 GOTO 60
 850 LET Y$=INKEY$
 860 IF Y$>="1" AND Y$<="5" THEN GOTO 880
 870 GOTO 720
 880 IF VAL Y$=X AND A(X)=0 THEN GOTO 800
 890 GOTO 720