PDA Software Library

home *** CD-ROM | disk | FTP | other *** search

/ PDA Software Library / pdasoftwarelib.iso / PSION / MISC / CON3A / CONVER3A.OPA / CONVER3A.txt next >

Wrap

Text File | 1994-11-28 | 9.6 KB | 991 lines

OPLObjectFile** LOC::B:\OPL\CONVER3A.OPL Convert.ODB \OPD\ TEST$ PASS% COUNT% DECIM$ ICON% HOME$ UNIT& SYMB$ XRATE WIND$ LIST$ CHOICE% CHOICE$ CODE$ INIT% PASS$ USER$ FIRST$ DRIVE$ Initialising... PAS% DEC&! CNTRY$# NAME$# DEC$# abcdefghijklmnopqrstuvwxyz ALPRSUV O D[+ PASS% INIT% CONVERSION CALCULATOR v.5a.1( Tim Bentinck 1993( +(3, Stock Orchard Crescent, London N7 9SLO Tel/Fax 0171-607-8814O +!E-mail 100415.1022@compuserve.com( Shareware - Please Register( Registered to ContinueO INTRO Conversion Calculator a=bxc Fl.Oz Convert UNLOAD WIND$ PASS% INIT% RateK CNTRY$# ANNOYING MESSAGE( +0If you find this program useful,please register.O +9The registered version also has a user definable section.O +1See "Form.wrd" for details. (It's only a tenner!)O ContinueO Currency Change/AddOc+ HomeOf+ DeleteOyh+ Pick ListOr+ Re-indexOi Metric+ Length/HeightOl+ WeightOw+ AreaOa+ Volume/CapacityOv+ TemperatureOt+ SpeedOgh+ OtherOo Imperial+ Length/HeightOd+ WeightOh+ AreaOs+ Volume/CapacityOm+ TemperatureOt+ SpeedObh+ OtherOp Volume/CapacityOk+ WeightOn Formulae AreaOA+ Surface AreaOS+ VolumeOL Options DecimalOz+ Tax NameOqh+ RegistrationOR+ ExitOx Formulae AreaOA+ Surface AreaOS+ VolumeOLh+ User GroupsOU+ Define GroupsOR Options DecimalOz+ Tax NameOqh+ ExitOx OZ4[@ procu proc1 OZ4[7 procu proc1 Error( ++The result of the calculation is too large.O +ATry increasing no. of decimal places, then shift decimal point...O ContinueO PROCQQ PROCOZ PROCAZ PROCBB PROCXS PROCCW PROCTT SPEAK3 Enter Weight GrainsO OuncesO Troy OzO PoundsO StoneO TonsO PROCXU PROCKK PROCTS SPEAK3 Enter Weight GramsO + KilogramsO TonnesO PROCST SPEAK3 Enter Weight US (Short) TonsO PROCMI PROCXF PROCXI PROCXO PROCXY PROCXB PROCNM PROCXX SPEAK3 Enter Length/Height/Depth Milli-inchesO + Feet }O Inches }O FathomsO YardsO FurlongsO Naut. MilesO MilesO PROCWR PROCWW PROCXM PROCXT SPEAK3 Enter Length/Height/Depth MicrometresO CentimetresO MetresO KilometresO PROCXZ PROCXP PROCXG PROCQY PROCQF PROCQI SPEAK3 Enter Volume/Capacity Fl. OzO PintsO GallonsO Cubic YardsO Cubic FeetO Cubic InchesO PROCUF PROCUP PROCUG PROCUD SPEAK3 Enter Volume/Capacity US Fl.OzO US PintsO US GallonsO US Dry GallonsO PROCQX PROCQV PROCQC PROCQM SPEAK3 Enter Volume/Capacity MillilitresO LitresO Cubic CentimetresO Cubic MetresO PROCXJ PROCSC PROCXE PROCXH PROCSK SPEAK3 Enter Area Sq. Microms.O Sq. CmO Sq. MetresO HectaresO Sq. KilometresO PROCMC PROCQB PROCXW PROCXV PROCXA PROCSM SPEAK3 Enter Area Circ. MilsO Sq. InchesO Sq. FeetO + Sq. YardsO AcresO + Sq. MilesO PROCPK PROCPB PROCQK PROCQZ PROCAW PROCAJ SPEAK3 Enter Amount Kg/Sq.CmO Km/LitreO Litres/100KmO + KilowattsO JoulesO PROCKP PROCCS PROCCM PROCCN SPEAK3 Enter Speed Km/HrO Cm/SecO Metres/SecO Metres/MinO PROCQL PROCQA PROCQG PROCHH PROCAC SPEAK3 Enter Amount Lbs/Sq. InO AtmospheresO Miles/GallonO HorsepowerO Int. CaloriesO PROCMP PROCKN PROCKI PROCKY PROCKF PROCKS PROCKH SPEAK3 Enter Speed Miles/HrO UK KnotsO Int. KnotsO Yds/MinO Feet/MinO Feet/SecO Inches/SecO PROMPTX FahrenheitK CelsiusK KelvinK Enter Temperature Degrees ) FahrenheitOF+ CelsiusOC+ KelvinOK Oc@`[t O |RO *gffff Of@`[t O |NRO |V *gffff Ok@`[{ *gffff q@NO |RO *gffff PROMPTX LITREK Fl.OzK PintK UK GallonK US GallonK PROMPTX MILLILITREK Fl.OzK + US Fl.OzK PROMPTX + KILOWATTK HorsepowerK PROMPTX HORSEPOWER =K + KilowattK PROMPTX JOULEK Int. CalorieK PROMPTX INT. CALORIEK JouleK PROMPTX CUBIC YARDK Cu. MetreK PROMPTX CUBICK Cu. MetreK PROMPTX CUBIC INCHK Cu. CentimetreK UK Fl. OzK PROMPTX CUBIC CENTIMETREK + Cu. InchK PROMPTX CUBIC METREK Cu.K Cu. YdK UK GallonK US GallonK PROMPTX PINTK LitreK Fl.OzK UK GallonK US Fl. PintK PROMPTX US PINTK LitreK UK PintK PROMPTX GALLONK LitreK Cu. MetreK PintK US GallonK PROMPTX US GALLONK LitreK Cu. MetreK UK GallonK PROMPTX US DRY GALLONK Cu. MetreK PROMPTX FLUID OZ =K CentilitreK Cu. InK PintK + US Fl.OzK PROMPTX US FLUID OZ =K MillilitreK + UK Fl.OzK PROMPTX GRAINK UK OzK GramK PROMPTX OUNCEK xY<@R GramK Troy OzK GrainK PoundK PROMPTX TROY OUNCEK OunceK PoundK GramK PROMPTX POUNDK KiloK OunceK StoneK PROMPTX STONE =K KiloK PoundK CwtK PROMPTX CWT =K KiloK PoundK StoneK UK (long) TonK PROMPTX KILOK PoundK StoneK CwtK PROMPTX GRAMK *w28J^ GrainK OunceK Troy OunceK PoundK PROMPTX UK (LONG) TONK TonneK US (short) TonK PROMPTX US (SHORT) TONK TonneK UK (long) TonK PROMPTX TONNEK UK (long) TonK US (short) TonK PROMPTX MILLI-INCHK *gfffff9@R MicrometreK PROMPTX INCHK YardK PROMPTX INCHK MetreK YardK FathomK PROMPTX FATHOMK MetreK MileK PROMPTX YARDK MetreK MileK PROMPTX FURLONGK A`%i@R MetreK YardK MileK PROMPTX NAUT. MILEK MileK PROMPTX MILEK FurlongK Naut. MileK PROMPTX METREK `7l[t?R WB}NO {IMxW InchK YardK FurlongK FathomK PROMPTX MICROMETREK Milli-inchK PROMPTX CENTIMETREK InchK WB}NO {IMxW InchK YardK PROMPTX KILOMETREK *gffff YardK MileK Naut. MileK PROMPTX CIRC. MILK *43333 Sq. MicrometreK PROMPTX + SQ. INCHK Sq. CmK Sq. FtK PROMPTX SQUAREK Sq. CmK Sq. MetreK + Sq. YardK PROMPTX + SQ. YARDK Sq. MetreK AcreK HectareK PROMPTX ACREK Sq. MetreK HectareK + Sq. MileK PROMPTX SQ. MICROMETREK Mb`?R Circ. MilK PROMPTX SQ. METREK Sq. FtK + Sq. YardK AcreK PROMPTX + SQ. CM =K Sq. InK PROMPTX HECTAREK AcreK + Sq. MileK PROMPTX + SQ. MILEK AcreK HectareK Sq. KmK PROMPTX SQ. KILOMETREK AcreK HectareK + Sq. MileK PROMPTX KG/SQ. CM =K Lbs/Sq. InK BarK Atmos.K PROMPTX BAR =K Lbs/Sq. InK Kg/Sq. CmK Atmos.K PROMPTX K+ /SQ. IN =K Kg/Sq. CmK BarK Atmos.K PROMPTX ATMOSPHEREK (\-@R Lbs/Sq. InK BarK Kg/Sq. CmK PROMPTX MILEK K+ /GALLON =K + Km/LitreK Litres/100kmK PROMPTX KM/LITRE =K MileK /GallonK PROMPTX LITREK /100KM =K MileK /GallonK PROMPTX KM/HR =K MileK /HourK KnotK MetreK /SecK PROMPTX CM/SECOND =K InchK /SecK PROMPTX METREK /SEC =K *33333 /MinK MileK Km/HrK PROMPTX METREK /MIN =K YardK /MinK /MinK PROMPTX MILEK /HRK+ Km/HrK KnotK /MinK /SecK PROMPTX /MIN =K MetreK /SecK MetreK /MinK Km/HrK MileK PROMPTX YARDK /MIN =K MetreK /MinK PROMPTX /SEC =K MileK PROMPTX INCHK /SEC =K Cm/SecK PROMPTX UK KNOTK MileK Km/HrK Int. KnotK PROMPTX INT. KNOTK MileK Km/HrK UK KnotK SPEAK1 PROMPT CODE$ SYMB$ UNIT& HOME$ XRATE DECIM$ dollars CNTRY$# Anybody out there!O Please specify country...O COUNTRY$# CURR$# RATE" ISO$# Rate: + Exchange and:K( Country: |:\d[ |:\[W |:\[} Od|RO HOME$ SYMB$ DECIM$ UNIT& XRATE CHANGE HOME CURRENCY Currency Symbol Decimal UnitO + Rate. DEC$' Decimal Places Choose 0-5O DEC&% SPEAK2 Tax Name Enter Name: +(fuckshitwankcuntbuggbastdickcockarsesche RateK Enter RateO PROC1E CHOICE% LIST$ CODE$ XRATE UNIT& SYMB$ CNTRY$# CHANGE COUNTRY Chosen Countries Others(" AcceptO OTHER COUNTRIES Enter CountryO Nothing to findO COUNTRY$# CURR$# RATE" DATE$# ISO$# Exch. Rate: + Currency: + ISO code: Last Change: PreviousO + Next(" AcceptO CNTRY$' CURR$# ISO$# That's yer lot!O O @[! First RecordO O @[E First RecordO COUNTRY$# COUNTRY$# + Last one!O COUNTRY$# COUNTRY$# COUNTRY$' CURR$' DATE$' ISO$' RATE& Saving Changes... Somewhere new!O NEW COUNTRY? Country: + Currency: + ISO code: Exchange Rate:O AbandonO AcceptO + Saving... CNTRY$' COUNTRY$' CURR$' RATE& DATE$' ISO$' Not saved... CNTRY$# Serbia DELETE CURRENCY Enter Country: COUNTRY$# CURR$# RATE" DATE$# DELETE? Country: + Currency: Exch.Rate: Previous( Next( AcceptO No moreO Can't delete what isn't hereO v+ You sure? NoON+ YesOY Oy@[- One Dead Currency CNTRY$' How kind hearted.. + WARNING!! +)Do not use this facility on a flash disc. AbandonO ContinueO \dat\*.dbf + Whirrrr..O COUNTRY$# COUNTRY$# COUNTRY$# Hummmmm...O Kadunkadunka...O Ok I've sussed it..O Watch this.....O Pretty swift hunh?O CLICK!!!!!O Sorry for any delayO O {MxW O {MxW {MMxW {MMxW MenuO RepeatO proc1 MenuO RepeatO procuu proc1 DRIVE$ M:\OPD\mem.odbW B:\OPD\mem.odbW A:\OPD\mem.odbW +$Mem.odb is not in an \OPD\ directoryW8 :\OPD\mem.odbK CNTRY$ NAME$ DRIVE$ M:\OPD\currency.odbW B:\OPD\currency.odbW A:\OPD\currency.odbW +)Currency.odb is not in an \OPD\ directoryW8 :\OPD\currency.odbK COUNTRY$ CURR$ DATE$ ?:\[ ?:\[ ?:\[ FEET FOOT Feet Foot GETPIK DRIVE$ M:\OPD\pick.odbW B:\OPD\pick.odbW A:\OPD\pick.odbW +%Pick.odb is not in an \OPD\ directoryW8 :\OPD\pick.odbK PK10$ DRIVE$ M:\APP\formul3a.opaW B:\APP\formul3a.opaW A:\APP\formul3a.opaW :\APP\formul3a.opaK DRIVE$ M:\APP\formul3a.opaW B:\APP\formul3a.opaW A:\APP\formul3a.opaW +#Formul3a.opa not in \APP\ directoryW8 :\APP\formul3a.opaK FINDWAV FIRST$ Don't be daft Don't be daft ! FINDWAV FIRST$ , you're being childish !K Child ! FINDWAV Needs a number... FINDWAV Not enough parameters... DRIVE$ M:\WVE\ .WVEKW A:\WVE\ .WVEKW B:\WVE\ .WVEKW :\WVE\K .WVEK MAKELST CHOICE% LIST$ Change Pick List( From: Country To: CountryO Change from: NoONh+ YesOY Saving Changes... PK1$' PK2$' PK3$' PK4$' PK5$' PK6$' PK7$' PK8$' PK9$' PK10$' MAKELST PK1$# PK2$# PK3$# PK4$# PK5$# PK6$# PK7$# PK8$# PK9$# PK10$# LIST$ INTRO} PROC1H? PROC1W PROC1N PROC1Dh PROC1L PROC1M PROC1KU PROC1V PROC1A PROC1S* PROC1O PROC1GK PROC1Pn PROC1B PROC1T PROCQVG$ PROCQX PROCAW PROCHHg' PROCAJ PROCAC PROCQY PROCQFR* PROCQI PROCQC PROCQM PROCXP PROCUP)0 PROCXG51 PROCUG PROCUD44 PROCXZ PROCUF~6 PROCQQl7 PROCOZc8 PROCAZ PROCBBI; PROCXS PROCCW PROCKK!? PROCXUQ@ PROCTT PROCST PROCTS%D PROCMI>E PROCXI PROCXF3G PROCXO PROCXY PROCXBUK PROCNM PROCXX PROCXM PROCWR PROCWW PROCXT/S PROCMC PROCQBSU PROCXW;V PROCXV PROCXA PROCXJ=Z PROCXE PROCSCQ\ PROCXH PROCSM PROCSKG_ PROCPK PROCPB PROCQL PROCQA PROCQG PROCQK PROCQZ PROCKPxg PROCCS PROCCMoi PROCCN PROCMP PROCKF`m PROCKY PROCKS PROCKH PROCKN,q PROCKIzr PROC1E PROC1F-w PROC1Z PROC1Qxx PROC1J-y PROC1C PROC1Y PROC1I PROMPT PROMPTX' PROC1X3 UNLOAD LOADl SPEAK16 SPEAK2 SPEAK3* SPEAK4n FINDWAV PROC1R GETPIK MAKELSTB