0 REM << CD22-2 >>
1 REM
2 REM SOLUTION TO PROBLEM #18-2 :
3 REM             BILLIARD BALLS
4 REM BY RUSSELL WILSON
5 REM
110 DIMC$(12,2),S$(3):X$="":W$(1)="HEAVY ":W$(2)="LIGHT "
120 FORI=1TO12:FORJ=1TO2:READC$(I,J):NEXTJ,I:FORI=1TO3:READS$(I):NEXTI
130 DATA BBR,BBL,LBL,RBR,LRB,RLB,LLB,RRB,RBL,LBR,LLL,RRR,RLR,LRL,RRL,LLR
135 DATA BRR,BLL,BLR,BRL,RBB,LBB,BRB,BLB
140 DATA 2 3 4 6  + 5 7 8 11,4 6 7 10 + 3 8 9 12,2 5 6 8  + 1 7 9 10
150 PRINTCHR$(147);"REMEMBER BALL# (1-12) AND IF IT IS HEAVY OR LIGHT.":PRINT
160 PRINT"ENTER L=LEFT HEAVY":PRINTTAB(6);"B=BALANCED"
165 PRINTTAB(6);"R=RIGHT HEAVY":PRINT
170 FORI=1TO3:PRINTS$(I):PRINTTAB(7);:INPUTR$:X$=X$+R$:PRINT:NEXTI
180 FORI=1TO12:FORJ=1TO2:IFX$=C$(I,J)THEN200
190 NEXTJ,I
200 PRINTCHR$(18);I;CHR$(157);" BALL IS ";W$(J)