*W
COLPAC, 1970

01.10 S D=0;S X=0
01.20 T !"USE OF THE SLIDE RULE"!"NOTE THE TWO ADJACENT SCALES"
01.30 T " MARKED 'C' AND 'D'."!
01.40 T "TO MULTIPLY OR DIVIDE, THESE TWO SCALES ARE USED"!

02.05 T !"MULTIPLY THE FOLLOWING:"!
02.10 S A=200*(FRAN()-.5);S B=200*(FRAN()-.5)
02.15 S A=FITR(A);S B=FITR(B)
02.20 T %2.0,!,"(",A,")(",B,")"!
02.30 T !"PLACE THE INDEX OF THE C SCALE OVER ONE NUMBER"!
02.40 T "ON THE D SCALE. MOVE THE CURSOR ALONG UNTIL THE"!
02.50 T "HAIRLINE IS OVER THE OTHER NUMBER ON THE C SCALE."!
02.60 T "READ THE VALUE UNDER THE HAIRLINE ON THE D SCALE."!
02.70 T "THIS IS YOUR ANSWER."!
02.75 A "THE ANSWER IS ",C
02.80 S D=D+FITR(.1*(A*B))-FITR(.1*C)
02.90 T !"THE COMPUTER CALCULATED ",%5.0,(A*B),!

03.10 F X=1,3;D 2.0
03.20 I (D)2.05,4.05,2.05

04.05 T !"NOW THAT YOU HAVE ANSWERED FOUR CONSECUTIVE"!
04.10 T "PROBLEMS WITH SOME AID, TRY THE FOLLOWING SIX."!
04.80 D 2.05
04.90 F X=1,6;D 6.10

05.05 A !"DO YOU WANT MORE PRACTICE? (1=YES, 0=NO) ",X
05.10 I (X)5.05,6.05,4.80

06.05 G 7.10
06.10 D 2.10;D 2.15; D 2.20;D 2.75;D 2.90

07.10 T !"TO MULTIPLY THREE NUMBERS TOGETHER YOU SIMPLY"!
07.20 T "MOVE THE INDEX OF THE C SCALE SO IT FALLS UNDER"!
07.30 T "THE HAIRLINE WHICH IS INDICATING THE PRODUCT OF"!
07.40 T "THE FIRST TWO NUMBERS. NOW MOVE THE CURSOR UNTIL"!
07.50 T "IT IS OVER THE THIRD NUMBER OF THE PROBLEM ON THE"!
07.60 T "C SCALE. THE ANSWER IS ON THE D SCALE. TRY THESE: "!!

08.10 S A=200*(FRAN()-.5);S B=200*(FRAN()-.5);S C=200*(FRAN()-.5)
08.15 S A=FITR(A);S B=FITR(B);S C=FITR(C)
08.20 T %2.0,"(",A,")(",B,")(",C,")"; W=(A*B*C)
08.30 A !,"YOUR ANSWER IS ",Q;T %5.0," THE COMPUTER CALCULATES ",W,!

09.10 F X=1,5;D 8.0
09.20 D 5.05;I (X)9.20,10.10,9.10

10.10 T !!"THAT'S ALL!"!!!!!!!!;Q
*