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