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
