@>@d " ENERAL ETRIC ONVERSIONS - EVISED EPT. 25, 1988D@n:s@x " BY . AY ANNER EWITT, @ -------------------------------@W1(238):W2(W179):W04: DEFAULT = 4 OPTIONS@&: W179 %A 5W2: 6W2,1: 4,1:SWW1:SFW24AW0$(01)" ENGTH ONVERSIONS "`AW0$(02)" EIGHT ONVERSIONS "AW0$(03)" ROGRAM OCUMENTATION "AW0$(04)" ROGRAM "AW0$(05)" PTION # 5 "BW0$(06)" PTION # 6 " 0,0,SW,24,1PH 420(SW79),0,SW,242PR " 1.A"YP\ " "vPf 420(SW79),4,SW,24PpOP$" 1 LB":VU1:VU$" LB": 2180Pz 2260P VU$" LB" 2440: 2170P VU$" GR" 2380: 2170 Q VU$" OZ" 2390: 2170,Q VU$" G" 2400: 2170MQ VU$" MG" 2430: 2170nQ VU$" KG" 2410: 2170Q VU$" DR" 2420: 2170QIP0: 2320Q 2280Q:Q 8); OP$: " ";QVU$"": 1: 1,0: 1,VU$:: 1 R (VU$, "*") 0 R IP(VU$, " ")2R IP0 2760@R VU(VU$)rR$ VU$ " " (VU$, IP1, 160):VU$(VU$, 4)R. OP$ (VU) (VU$,3)R8 RB :RL GRVU:LBGR7000: 2460RV OZVU:LBOZ16: 2460R` G VU:LBG453.59237: 2460Sj KGVU:LBKG2.204622622 : 2460/St DRVU:LBDR256 : 2460YS~ MGVU:LBMG0.000002204622622 : 2460jS LBVU: 2460pS :S GRLB7000S GLB453.59237S MGG1000S KGG1000S GRLB7000S OZLB16S DRLB256S 2570S :S :S :T "";:PU$"########"FT " ILLIGRAMS ";:NVMG : 2700: 27); "MG"yT " RAMS ";:NVG: 2700: 27); "G"T( " ILOGRAMS ";:NVKG: 2700: 27); "KG"T2 T< " RAINS ";:NVGR: 2700: 27); "GR"UF " UNCES ";:NVOZ: 2700: 27); "OZ"TUP " RAMS ";:NVDR: 2700: 27); "DR"UZ " OUNDS ";:NVLB: 2700: 27); "LB"U_ " "Ud " NTER * TO "Vn " "Vx V :5V NV 1 OF$ "#." PU$: 2740^V NV 999999999 "*********";:vV ND(1(NV)(10))V OF$(PU$, ND) "." (PU$, 9ND)V OF$;NV;V V 1,20000,45V " UNITS ERROR": 2: 2570: 2170V :*Wo DOCUMENTATION ABOUT USING THIS PROGRAMAWp 0,0,(238),24,1dWz 20((238)79),0,(238),24W "W " ENERAL ETRIC NTER-ONVERSIONS W "ݖ .X " HIS PROGRAM WILL PERFORM SEVERAL aX " METRIC LENGTH AND WEIGHT CONVERSIONS X " BETWEEN STANDARD METRIC AND MERICAN X " UNITS. X " -Y " HE USER SIMPLY INPUTS A NUMERICAL `Y " VALUE FOLLOWED BY THE UNITS AND THE Y " PROGRAM WILL CREATE A TABLE OF CON- Y " VERSIONS OF EQUIVALENT MEASURES IN A Y " VARIETY OF METRIC & MERICAN UNITS. ,Z " _Z " HE UNITS SPECIFIED ARE INPUT IN AN Z " ABBREVIATED FORM SUCH AS MI,KM, ETC. Z$ " Z. " HE ONLY RULE TO REMEMBER IS TO PUT -[8 " A BLANK SPACE AFTER THE NUMBER VALUE `[B " TO SEPARATE THE VALUE FROM THE UNITS [L " ABBREVIATION. THERWISE YOU WILL GET [V " A UNITS ERROR. [` " *\t "6\~ K$:<\:n\X 0,0,(238),24,1: "ROGRAM ENDED ...":t\:\" F$="MULTIMETRIX":SC(F$):D(F$):D(F$):?:CA(F$)