OPLObjectFile** LOC::B:\OPL\CONVER3A.OPL Convert.ODB \OPD\ TEST$ PASS% COUNT% DECIM$ ICON% HOME$ UNIT& SYMB$ XRATE WIND$ LIST$ CHOICE% CHOICE$ CODE$ HACK$ INIT% PASS$ +'Hi Julian! See if you can crack this... Initialising... PAS% DEC&! CNTRY$# NAME$# DEC$# abcdefghijklmnopqrstuvwxyz ALPRSV PASS% INIT% CONVERT v.3a.5( 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% COUNT% INIT% RateK CNTRY$# ANNOYING MESSAGE( + If you find this program useful,O please register. See 'FORM.WRD'O +"for details. (It's only a tenner!)O ContinueO |RWBIx Aren't you getting annoyed yet?O Currency Change/AddOc+ HomeOf+ DeleteOy+ Pick ListOr+ Re-indexOi Metric+ Length/HeightOl+ WeightOw+ AreaOa+ Volume/CapacityOv+ TempOt+ SpeedOg+ OtherOo Imperial+ Length/HeightOd+ WeightOh+ AreaOs+ Volume/CapacityOm+ TempOu+ SpeedOb+ OtherOp Volume/CapacityOk+ WeightOn Formulae AreaOA+ Surface AreaOS+ VolumeOL Options DecimalOz+ Tax NameOq+ RegistrationOR+ ExitOx Options DecimalOz+ Tax NameOq+ 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 PROCAW PROCAJ SPEAK3 Enter Amount Kg/Sq.CmO Km/LitreO + 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 Enter Temperature Degrees C.) Centigrade =K O |RO *gffff Fahrenheit.K KelvinK PROMPTX Enter Temperature Degrees F.) Fahrenheit =K O |NRO |V *gffff Centigrade.K KelvinK 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 PROMPTX KM/LITRE =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 {9[V O {MxW O {MxW {MMxW {MMxW MenuO RepeatO proc1 MenuO RepeatO proc1 M:\OPD\mem.odbW M:\OPD\mem.odb CNTRY$ NAME$ B:\OPD\mem.odbW B:\OPD\mem.odb CNTRY$ NAME$ A:\OPD\mem.odbW A:\OPD\mem.odb CNTRY$ NAME$ M:\OPD\currency.odbW M:\OPD\currency.odb COUNTRY$ CURR$ DATE$ B:\OPD\currency.odbW B:\OPD\currency.odb COUNTRY$ CURR$ DATE$ A:\OPD\currency.odbW A:\OPD\currency.odb COUNTRY$ CURR$ DATE$ GETPIK M:\OPD\pick.odbW M:\OPD\pick.odb PK10$ B:\OPD\pick.odbW B:\OPD\pick.odb PK10$ A:\OPD\pick.odbW A:\OPD\pick.odb PK10$ ?:\[ ?:\[ ?:\[ FEET FOOT Feet Foot M:\APP\formul3a.opaW M:\APP\formul3a.opa B:\APP\formul3a.opaW B:\APP\formul3a.opa A:\APP\formul3a.opaW A:\APP\formul3a.opa M:\APP\formul3a.opaW M:\APP\formul3a.opa B:\APP\formul3a.opaW B:\APP\formul3a.opa A:\APP\formul3a.opaW A:\APP\formul3a.opa FINDWAV Don't be daft ! FINDWAV , you're being childish !K Child ! FINDWAV Not enough info M:\WVE\ .WVEKW M:\WVE\ .WVEK A:\WVE\ .WVEKW A:\WVE\ .WVEK B:\WVE\ .WVEKW B:\WVE\ .WVEK MAKELST CHOICE% LIST$ CHOICE$ Change Pick List( From: Country To: CountryO Change from: NoONh+ YesOY Saving Changes... MAKELST PK1$# PK2$# PK3$# PK4$# PK5$# PK6$# PK7$# PK8$# PK9$# PK10$# LIST$ CHOICE% PK1$' CHOICE% PK2$' CHOICE% PK3$' CHOICE% PK4$' CHOICE% PK5$' CHOICE% PK6$' CHOICE% PK7$' CHOICE% PK8$' CHOICE% PK9$' CHOICE% PK10$' INTRO* PROC1H PROC1Wl PROC1NW PROC1D PROC1L PROC1M1 PROC1K PROC1V PROC1A@ PROC1S PROC1O5 PROC1G PROC1P PROC1B PROC1T PROC1U PROCQV;# PROCQX PROCAW PROCHH[& PROCAJ PROCAC PROCQY PROCQFF) PROCQI PROCQC PROCQM PROCXP PROCUP PROCXG)0 PROCUG PROCUD(3 PROCXZ PROCUFr5 PROCQQ`6 PROCOZW7 PROCAZ PROCBB=: PROCXSy; PROCCW PROCKK PROCXUE? PROCTT PROCST PROCTS PROCMI2D PROCXI PROCXF'F PROCXO PROCXY PROCXBIJ PROCNM PROCXX PROCXM PROCWR PROCWW PROCXT#R PROCMC}S PROCQBGT PROCXW/U PROCXV{V PROCXA PROCXJ1Y PROCXE PROCSCE[ PROCXH PROCSM PROCSK;^ PROCPK PROCPB PROCQL PROCQA PROCQG PROCQK PROCKP`e PROCCS PROCCMWg PROCCN PROCMP PROCKFHk PROCKY PROCKS PROCKHhn PROCKN PROCKIbp PROC1E PROC1F PROC1Z PROC1Q^v PROC1J PROC1Cww PROC1Y PROC1I PROMPT' PROMPTX PROC1X UNLOAD SPEAK1c SPEAK2 SPEAK3$ FINDWAVf PROC1R^ GETPIK MAKELST