home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 1B
/
DATAFILE_PDCD1B.iso
/
_pocketbk
/
pocketbook
/
003
/
con3a_zip
/
CONVER3A.OPA
/
CONVER3A.txt
next >
Wrap
Text File
|
1994-11-19
|
10KB
|
995 lines
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
F