0 REM << CD22-3 >>
1 REM
2 REM SOLUTION TO PROBLEM #18-2 :
3 REM             BILLIARD BALLS
4 REM BY CHARLES GOLDBERG
5 REM
10 D$="HEAVYLIGHTWHAT?":PRINT"[147] ENTER DEFLECTION"
20 PRINT" LEFT----N----RIGHT"SPC(30)"O"SPC(39)"N"SPC(39)"E"
30 INPUT"1-2-4-5  [209] 7-8-10-11";A$(0)
40 INPUT"4-5-7-11 [209] 2-3- 6-12";A$(1)
50 INPUT"6-8-9-11 [209] 5-7-10-12";A$(2)
60 FORU=0TO2:B=B+SGN(ASC(LEFT$(A$(U),1))-78)*3^U:A$(U)="N":NEXT:C=ABS(B)
70 E=.5+(C=10):FORU=0TO4:E=E+(C=INT(2*1.585^U)):NEXT:D=INT(C^2-ABS(C)*13)
80 PRINT"BALL";C;"IS ";MID$(D$,(3.5+2.5*SGN(B*SGN(E)))*(D<>0)^2-11*(D=0),5)
90 B=0:GOTO 30