[P0]
10 PRINT "** N-BEAT **","HI";H
20 Z$="     ":$=Z$+Z$+"5":E=5:R=0:S=0:W=6:Y=11
30 FOR A=1 TO 9:R=R+1:IF R>4;R=0:GOSUB 60:IF Y=0 THEN 190
40 FOR I=0 TO W:PRINT CSR 0;STR$(A);$;:IF KEY!="";GOSUB 70
50 NEXT I:NEXT A:W=W-.1*SGN(W-1:GOTO 30
60 E=10*FRAC(.1*(1+E+INT(RAN#*9:$=MID(2)+STR$(E):Y=Y-1:RETURN
70 FOR K=1 TO 10:PRINT CSR K;"\RA";:V=2^2:IF KEY!="";NEXT K:K=K-1
80 FOR J=1 TO K:PRINT CSR J;STR$(A);:NEXT J:PRINT CSR J;"\CI";
90 C$=MID(J,1):N=1:IF J<Y THEN 170
100 D=10*FRAC(.1*(A+VAL(C$):$=MID(1,K)+STR$(D)+MID(K+2)
110 PRINT CSR 1;$;:IF Y>9 THEN 170
120 F=2:N=5*N:FOR J=Y TO 9:C$=MID(J,3):D=VAL(C$)
130 IF FRAC(D/111=0;IF D!=0;F=F+1:PRINT CSR J;"***";:IF F=3;G=J
140 NEXT J:IF F=2 THEN 170
150 $=Z$+$:$=MID(1,4+G)+MID(5+F+G):$=MID(6-F)
160 Y=Y+F:S=S+F*N-N:GOTO 110
170 B$=MID(11,1):IF B$>="0";E=VAL(B$)
180 RETURN
190 FOR J=0 TO 11:PRINT CSR J;"*";:V=2^2:NEXT J
200 PRINT CSR 1;"SC";S;:IF H<S;H=S:PRINT " !!";