** GEAR RATIO PRINTERH ** REWRITTEN FOR THE COMMODORE C=128a** BY LOWELL FUHERt** JULY 1990** ORIGINALLY IN THE PUBLIC DOMAIN FOR IBM (14) 6,7334:"'10 !!!!!!!!!!!!!" A$: B$: C$: D$: E$: F$#%` ******************************************************"* ARRAY DEFINATIOINS *$******************************************************& RATIO(100,40)+(******************************************************h** SELECT TRANSMISSION *,******************************************************.0"PLEASE SELECT A TRANSMISSION TYPE"2""4" 1 - '10 RIGINAL"6" 2 - '10 TEALTH"&8" 3 - "9:" 4 - -10"L<" 5 - -2"g>" 6 - PTIMA/LTIMA"@" 7 - -PTIMA"B" 8 - OMINATOR"D" 9 - RACK ASTER"F" 10 - ULLET"H" 11 - & "J" 12 - - 1.87" L" 13 - - 2.00" N" 14 - - 2.14"7 P" 15 - - 2.28"Q R" 16 - IRECT RIVE"] T TTRAN V TTRAN 1 "INVALID TRANSMISSION TYPE - PLEASE TRY AGAIN" : S 1 1000: S: 48!X TTRAN 16 "INVALID TRANSMISSION TYPE - PLEASE TRY AGAIN" : S 1 1000: S: 482!Z TTRAN 1 TRATIO 1.85R!\ TTRAN 2 TRATIO 2.25o!^ TTRAN 3 TRATIO 2!` TTRAN 4 TRATIO 2.33!b TTRAN 5 TRATIO 2.18!d TTRAN 6 TRATIO 3!f TTRAN 7 TRATIO 2.64 "h TTRAN 8 TRATIO 2.25,"j TTRAN 9 TRATIO 2.25L"l TTRAN 10 TRATIO 2.15l"n TTRAN 11 TRATIO 2.22"p TTRAN 12 TRATIO 1.87"r TTRAN 13 TRATIO 2"t TTRAN 14 TRATIO 2.14"v TTRAN 15 TRATIO 2.28 #x TTRAN 16 TRATIO 1A#z***********************************************w#|* BUILD ARRAY *#~***********************************************##"PLEASE WAIT ...............#" COMPUTING RATIOS"$ H1100 1$ I1 40 1<$RATIO(H,I) (39H)I TRATIOD$ IK$HS$ H$*************************************************$* BUILD PRINT CONTROL INFORMATION *$*************************************************%<%"SPECIFY LOW END OF SPUR GEAR RANGE - 40 TO 130";SPURy% SPUR130 "INVALID SPUR GEAR, MAXIMUM IS 130": 154% SPUR 40 "INVALID SPUR GEAR, MINIMUM IS 40": 154%SPUR SPUR 39% "SPECIFY HIGH END OF SPUR RANGE";ESPUR2& ESPUR 40 "INVALID SPUR GEAR, MINIMUM IS 40": 162o& ESPUR130 "INVALID SPUR GEAR, MAXIMUM IS 130": 162&ESPUR ESPUR 39& SPUR ESPUR "INVALID SPUR GEAR RANGE END": 162&"SPECIFY LOW END OF PINION GEAR RANGE 8 TO 40";PIN3' PIN 8 "INVALID PINION GEAR, MINIMUM IS 8" 172o' PIN 40 "INVALID PINION GEAR, MAXIMUM IS 40": 172'"SPECIFY HIGH END OF PINION GEAR RANGE";EPIN' EPIN8 "INVALID PINION GEAR, MINIMUM IS 8": 178( EPIN 40 "INVALID PINION GEAR, MAXIMUM IS 40": 178U( PIN EPIN " INVALID PINION GEAR RANGE END": 178(**************************************************( PRINT TRANSMISSION DATA *)************************************************** )LINECNT 5(EPIN PIN) 1I) LINECNT 64 UP (60 LINECNT)T) UP1c)COUNT UP}) HSPUR ESPUR 10) 280)1,(15):*TERMINATE DOUBLE WIDTH COMMAND**)1) 13,4,13:*DESIGNATE CONDENSED COMMAND***13:*SEND CONDENSED COMMAND TO PRINTER**%*131* 1,4,7G*1,"INION/";_*1,"#######";H39;*1,"##########";H40,H41,H42,H43,H44,H45,H46,H47,H48*1,"------------------------------------------------------";#+1,"-------------------------------------------------------":+ IPIN EPIN 1O+1," " I " :";+1,"######.###";RATIO(H,I),RATIO(H1,I),RATIO(H2,I);+1,"######.###";RATIO(H3,I),RATIO(H4,I),RATIO(H5,I),RATIO(H6,I),RATIO(H7,I),RATIO(H8,I),RATIO(H9,I), I ,1,""!,COUNT COUNT 1Q,1,(12):*FORM FEED AND CARRIAGE RETURN**Y, 1b, 13, 10,4,10:*DESIGNATE RESET PRINTER COMMAND**,10:*SEND RESET PRINTER COMMAND TO PRINTER**, 10, H-***********************************************************]-* DO IT AGAIN? *-***********************************************************-" O YOU WANT TO RINT ANOTHER HART - Y/N";YES$- YES$ "" YES$ "Y" 44. 1,4,7". 1,(12):*FORM FEED**). 1/.5.x.************************************************************.*************** END **********************.************************************************************8/***************************************************r/* HEADER SUBROUTINE */***************************************************/COUNT 0/  1,4,7/"1,(10):*SEND LINE FEED**-0$1,(27)"U"(1) :*UNI DIRECTIONAL PRINTING FOR STRAIGHT COLLUMSY0&1,(14):*SEND DOUBLE WIDTH COMMAND**z0(1,(10):*SEND LINE FEED**0*TTRAN 1 TR$ "/10 - RIGINAL - 1.85"0,TTRAN 2 TR$ "/10 - TEALTH - 2.25" 1.TTRAN 3 TR$ " - 2.00 ":10TTRAN 4 TR$ " -10 - 2.33 "j12TTRAN 5 TR$ " -2 - 2.18 "14TTRAN 6 TR$ " / - 3.00 "16TTRAN 7 TR$ " - - 2.64 "18TTRAN 8 TR$ " - 2.25 "*2:TTRAN 9 TR$ " - 2.25 "Z2<TTRAN 10 TR$ " - 2.15 "2>TTRAN 11 TR$ " / - 2.22 "2@TTRAN 12 TR$ " - 1.87 "2BTTRAN 13 TR$ " - 2.00 "3DTTRAN 14 TR$ " - 2.14 "J3FTTRAN 15 TR$ " - 2.28 "z3HTTRAN 16 TR$ " IRECT RIVE - 1.00 "3J1,TR$;3L3N**********************************************3PMUSIC4R********************************************** 4T104V"V1O4T7U8X0"14X"V2O4T0U8X0"x4ZA$"V2O1IAV1O3IEV2O2QAV1O3SAO4CO3BEV2O2I#GV1O3SBO4DV1O4ICV2O2SAEM"4\B$"V1O4IEV2O2SAO3CV1O3I#GV2O2SBEV1O4IEV2O2SBO3D"4^C$"V2O3ICV1O3SAEV2O2IAV1O3SAO4CV2O2I#GV1O3SBEV2O2IEV1O3SBO4D"(5`D$"V1O4ICV2O2SAEV1O3IAV2O2SAO3CV1O4QRV2O2SBEBO3D"h5bE$"V2O3ICV1O4SREV2O2IAV1O4SCEV2O3ICV1O3SAO4CV2O2IAV1O2SEG"5dF$"V1O3IFV2O3SDO2AV1O3IAV2O2SFAV1O4IDV2O2SDFV1O4IFV2O1SAO2C"5f