### Appears on

Cassette to accompany the June 1983 issue of Synchro-Sette.

### 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