Category : Word Processors
Archive   : HP22D5.ZIP
Filename : BASE.PAD

 
Output of file : BASE.PAD contained in archive : HP22D5.ZIP
HPADÿÿ0|& JÞ -¨‡rˆzhandler cancel;
begin
go to pad "extens";
end;

handler openpad;
begin
set the focus to pg button "convert";
end;žˆä•7extens *7XconvertL
h*þMZþ ÿÿZý909,9$9 9¯¨‹T>×Ш—cM%)-/37:N`hzJ$U‹ìƒ~ ~ŠF7ëŠF0‹ÀÿÀŽÂ&ˆ]ÂU‹ìƒì¡Ä™;Vw3r;Fw,¡Ä™RPÿvÿvš$RPèÔÿ¡Ä™RPÿvÿvšò$RPëÿvÿvèÿ‹å]U‹ìƒìƒ~t¸‹å]ːÿv
ÿvš‰Fü‰Vþÿvÿv š £Ä¸p£ÀŒÂÿvþÿvüèhÿÄÀ&ƸpPšRPš뫐U‹ì€~A| ŠF˜-7]ŠF˜-0]U‹ìƒì
V+À‰Fú‰FøÇFü‰Fþÿvÿvš$ƒÄ‹ðë1ÿvþÿvüÄ^&Š*äPè¤ÿ™RPš\$FøVú¡Ä™RPFüPš4$‹ÆN Àuɉvö‹Fø‹Vú^‹å]U‹ìƒìƒ~t¸‹å]ːÿvÿv š £ÄÄ^&ÿw&ÿ7è_ÿ‰Fü‰VþRPšRPšëǐ° 鈰
郰 é~°
éy°étì9Jd9l9¸9ŽØºJ´ Í!¸LÍ!VW¸9ŽØ¾n¿nè#_^š$ËVW¸9ŽØ¾n¿nè _^š
$Ë;÷sƒï‹ EtòÿëîÃ2ä.ÿ.ːːU‹ì‹×Ä~3À¹ÿÿò®÷ÑI‘‹ú]ËU‹ìÄ^ÿv ÿv
&ÿw&ÿ7š\$Ä^&‰&‰W‹å]ÊU‹ì‹F‹^ ؋^
u ‹F÷ã‹å]Ê÷ã‹È‹F÷f ȋF÷ãыå]ÊU‹ìSV‹F Àu‹N
‹F3Ò÷ñ‹Ø‹F÷ñ‹Óë8‹È‹^
‹V‹FÑéÑÛÑêÑØ Éuô÷ó‹ð÷f ‘‹F
÷æÑr ;Vwr;FvN3Җ^[‹å]ÊU‹ìS‹F Àu‹N
‹F3Ò÷ñ‹F÷ñ‹Â3ÒëE‹È‹^
‹V‹FÑéÑÛÑêÑØ Éuô÷ó‹È÷f ‘÷f
Ñr ;Vwr ;Fv+F
V +FV÷Ú÷؃Ú[‹å]ÊtoBasefromBase9z9nFFFFFFFFThis program requires HyperPAD.
$BASE&¤z&‚ HyperPAD 2.2¨ Brightbi‚l-Roberts & Co.‚‚± Extensions±ž— ¹— ¹— ¹— ¹— ¹— ¹— ¹— ¹— ¹— ¹— ÿÿÿÿÿÿÿâÐp‚‡Œ0‡ÿ€ÿ€ÿ€ÿ€ÿ€ÿ€ÿ€ÿ€ÿ€ÿ€ÿ€ÿ€ÿ€ÿ€¾€@8 ÿÿ‹>NFhandler select;
begin
put toBase(page field "Number",page field "Base") into page field "Result";
end;

-- TOBASE
--
-- This function converts a decimal number to a different base.
--
-- Examples:
--
-- toBase(10,16) -- returns A
-- toBase(10,2) -- returns 1010
--
-- Syntax:
--
-- toBase(,)

ÒžN7XNumber%##XBase%##¨‚tobaseXResult%X
X*H
. Tžñ Converton1GGpÿHÄž23P!NumberepXžÿÿpÿHÌž5P#7BaseepPžÿÿpÿHP@9LResultepDžÿÿpÿH ž1P
Number1epdžÿÿpÿHtž+POperatorepàžÿÿpÿH|ž5PBase1epОÿÿpÿH”ž3P!(Number2epüžÿÿpÿ HÀž16P */Base22epÀžÿÿpÿ
HP
@1@Result2ep´žÿÿpÿ·Ç¿handler select;
begin
put fromBase(page field "Number1",page field "Base1") into n1;
put fromBase(page field "Number2",page field "Base2") into n2;
get page field "Operator";
if it is not in "+-*/" then
begin
answer "operator is invalid" with "Ok";
exit;
end;
case it of
"+" : get n1 + n2;
"-" : get n1 - n2;
"*" : get n1 * n2;
"/" : get trunc(n1 / n2);
end;
put toBase(it,page field "BaseResult") into page field "Result2";
end;

-- FROMBASE
--
-- This function converts a number given its base to a decimal value.
--
-- Examples:
--
-- FromBase(2,10) -- returns 2
-- FromBase(22,3) -- returns 8
--
-- Syntax:
--
-- FromBase(,)ÒžÇ7XNumber1%##XBase1%##¨‚frombase£¥XNumber2%##XBase2%##¨‚frombase£¥XOperator%##£¥+-*/£x!Okoperator is invalid
£U*£$$`++£££¥$çÿ-+££ £¥$Ñÿ*+££!£¥$»ÿ/+££"¨£¥$ ÿ£XBaseResult%##¨‚tobaseXResult2%X
X*H  /”ž€=erateon1GGpÿ H„ž10P BLBaseResultepžÿÿpÿ>(80Handler Select;
Begin
go home;
End;

Òž87‹*H
HNØž?Homeutton0±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡‡1‡GGpÿ‡B%5-Handler Select;
Begin
cancel;
End;Òž57X

:*HrBF´žÉ¼celtoncroll ,left,right,u1oGGpÿe‡ÊlZô Bases ùɜÍѕÍєÍ»Ü†ºDecimalNumber:‰Ä  ³ To Base:Œ ³Result: ŠºÛ†ǜÄŕÄŔĶۆºœ³•³”ºÛ†ÈÇͼۇÉßÿÿÄ‚Í Calculator ÂÍÔɈÍцÍъÍшÍцÍѐÍыͻ܆3º Number³ Base ³ Operator³ Number ³ Base³Result‰³Base†ºÛ†LjÄņÄŊÄňÄņÄŐÄŋĶۆºˆ³†³Š³ˆ³„= ³³‹ºÛ†ȈÍφÍϊÍψÍφÍϐÍϋͼۇÉßÿÿÄô‡0ùÉ€†É€†É€†É€†É€‡ɀÿÿÄ‚‡Œ0‡ÔÉ€†É€†É€†É€†É‚€†ɀÿÿÄqWa~Èá3K³o‡ÙñC[­Æ.ŠÔí


  3 Responses to “Category : Word Processors
Archive   : HP22D5.ZIP
Filename : BASE.PAD

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/