1 INK 0,14:WHILE n<4 OR n>9:MODE 0:INPUT"[4-9] N=",n:WEND:LOCATE 10-n,3:FOR i=1 TO n:o(i)=1+INT(RND*n):PEN i:PRINT CHR$(i+48);:NEXT:WINDOW 10-n,20,4,24:WHILE g<n:PRINT:g=0:FOR x=1 TO n:PEN 14:k=0:WHILE k>n OR k<1:k=VAL(INKEY$):PRINT"+"CHR$(8);:WEND:PEN k
5 b=o(x)=k:g=g-b:PRINT CHR$(233);:p(x)=o(x)+b*9:j(x)=k-b*9:NEXT:PEN 4:PRINT STRING$(g,&94);:PEN 5:FOR x=1 TO n:FOR y=1 TO n:b=p(x)=j(y):PRINT CHR$(-b*&94);:p(x)=p(x)+b*9:j(y)=j(y)-b*9:NEXT:NEXT:l=l+1:WEND:PRINT,,,l"COUPS":CALL &BB06:RUN