d** GEAR RATIO PRINTERFx** REWRITTEN FOR THE COMMODORE C=64_** BY LOWELL FUHERr** JULY 1990** ORIGINALLY IN THE PUBLIC DOMAIN FOR IBM (14),******************************************************)@* ARRAY DEFINATIOINS *fT******************************************************zh RATIO(100,40)|******************************************************* SELECT TRANSMISSION *1******************************************************:""e"PLEASE SELECT A TRANSMISSION TYPE"m""" 1 - '10 RIGINAL"" 2 - '10 TEALTH"" 3 - "0" 4 - -10"D" 5 - -2"X" 6 - PTIMA/LTIMA"l" 7 - -PTIMA"%" 8 - OMINATOR"?" 9 - RACK ASTER"S" 10 - ULLET"f" 11 - & "~" 12 - - 1.87"" 13 - - 2.00"" 14 - - 2.14" " 15 - - 2.28" " 16 - IRECT RIVE"4 TTRANG H TTRAN 1 "INVALID TRANSMISSION TYPE - PLEASE TRY AGAIN" : S 1 1000: S: 460 \ TTRAN 16 "INVALID TRANSMISSION TYPE - PLEASE TRY AGAIN" : S 1 1000: S: 460 p TTRAN 1 TRATIO 1.85  TTRAN 2 TRATIO 2.25! TTRAN 3 TRATIO 2 ! TTRAN 4 TRATIO 2.33@! TTRAN 5 TRATIO 2.18]! TTRAN 6 TRATIO 3}! TTRAN 7 TRATIO 2.64! TTRAN 8 TRATIO 2.25! TTRAN 9 TRATIO 2.25!$ TTRAN 10 TRATIO 2.15!8 TTRAN 11 TRATIO 2.22"L TTRAN 12 TRATIO 1.87<"` TTRAN 13 TRATIO 2]"t TTRAN 14 TRATIO 2.14~" TTRAN 15 TRATIO 2.28" TTRAN 16 TRATIO 1"***********************************************#* BUILD ARRAY *>#***********************************************G#""i#"PLEASE WAIT ...............#" COMPUTING RATIOS"#"HIS WILL TAKE SOME TIME"#"BECAUSE THERE ARE OVER 24,000"#"CALCULATIONS THAT HAVE TO BE "$$"COMPLETED AND FILED INTO MY"K$"MEMORY. HEN MY SCREEN HAS "v$"COUNTED TO 100 THAT PART IS DONE"$ PO 1 2000$ PO$( H1100 1$< I1 40 1$=WE (39H)ITRATIO$>WIWE100$?WJ(WI)%PRATIO(H,I) WJ100 %d I%xH% HP%*************************************************%* BUILD PRINT CONTROL INFORMATION *%*************************************************%"" &"SPECIFY LOW END OF SPUR GEAR RANGE - 40 TO 130";SPURI& SPUR130 "INVALID SPUR GEAR, MAXIMUM IS 130": 1520& SPUR 40 "INVALID SPUR GEAR, MINIMUM IS 40": 1520&,SPUR SPUR 39&@ "SPECIFY HIGH END OF SPUR RANGE";ESPUR'T ESPUR 40 "INVALID SPUR GEAR, MINIMUM IS 40": 1600B'h ESPUR130 "INVALID SPUR GEAR, MAXIMUM IS 130": 1600X'|ESPUR ESPUR 39' SPUR ESPUR "INVALID SPUR GEAR RANGE END": 1600'"SPECIFY LOW END OF PINION GEAR RANGE 8 TO 40";PIN( PIN 8 "INVALID PINION GEAR, MINIMUM IS 8" 1700L( PIN 40 "INVALID PINION GEAR, MAXIMUM IS 40": 1700~("SPECIFY HIGH END OF PINION GEAR RANGE";EPIN( EPIN8 "INVALID PINION GEAR, MINIMUM IS 8": 1760( EPIN 40 "INVALID PINION GEAR, MAXIMUM IS 40": 17605) PIN EPIN " INVALID PINION GEAR RANGE END": 1760n)0**************************************************)D PRINT TRANSMISSION DATA *)X***************************************************lLINECNT 5(EPIN PIN) 1)* LINECNT 64 UP (60 LINECNT)8*COUNT UPQ* HSPUR ESPUR 5\* 2860*1,(15):*TERMINATE DOUBLE WIDTH COMMAND***1*  13,4,13:*DESIGNATE CONDENSED COMMAND*** 13:*SEND CONDENSED COMMAND TO PRINTER***413+H 1,4,7+\1,"INION/";-+p1,5);H39;\+1,10);H40;10);H41;10);H42;10);H43+1,"------------------------------------------------------";+1,"-------------------------------------------------------"+ IPIN EPIN 1 ,1," " I " : ";:,1,RATIO(H,I),RATIO(H1,I),RATIO(H2,I),[,1,RATIO(H3,I),RATIO(H4,I)c, Im,$ 1,"",8 COUNT COUNT 1,L 1,(12):*FORM FEED AND CARRIAGE RETURN**,` 1,t 13, 10,4,10:*DESIGNATE RESET PRINTER COMMAND**)- 10:*SEND RESET PRINTER COMMAND TO PRINTER**2- 10:- H|- ***********************************************************- * DO IT AGAIN? *. ***********************************************************6. " O YOU WANT TO RINT ANOTHER HART - Y/N";YES$\.( YES$ "" YES$ "Y" 420h.< 1,4,7.P 1,(12):*FORM FEED**.d 1.x . . ************************************************************/ ************************************************************`/ *********** END **************************/ *************** END **********************/ ******************* END ******************)0 ************************************************************l0 ************************************************************0, ***************************************************0@ * HEADER SUBROUTINE *1T ***************************************************(1h COUNT 041| 1,4,7U1 1,(10):*SEND LINE FEED**1 1,(27)"U"(1) :*UNI DIRECTIONAL PRINTING FOR STRAIGHT COLLUMS1 1,(14):*SEND DOUBLE WIDTH COMMAND**1 1,(10):*SEND LINE FEED**2 TTRAN 1 TR$ "/10 - RIGINAL - 1.85"H2 TTRAN 2 TR$ "/10 - TEALTH - 2.25"x2 TTRAN 3 TR$ " - 2.00 "2 TTRAN 4 TR$ " -10 - 2.33 "20 TTRAN 5 TR$ " -2 - 2.18 "3D TTRAN 6 TR$ " / - 3.00 "83X TTRAN 7 TR$ " - - 2.64 "h3l TTRAN 8 TR$ " - 2.25 "3 TTRAN 9 TR$ " - 2.25 "3 TTRAN 10 TR$ " - 2.15 "3 TTRAN 11 TR$ " / - 2.22 "(4 TTRAN 12 TR$ " - 1.87 "X4 TTRAN 13 TR$ " - 2.00 "4 TTRAN 14 TR$ " - 2.14 "4 TTRAN 15 TR$ " - 2.28 "4 TTRAN 16 TR$ " IRECT RIVE - 1.00 "4 1,TR$;44