Category : Word Processors
Archive : HP22D2.ZIP
Filename : MONTHLY.PAD
Output of file : MONTHLY.PAD contained in archive : HP22D2.ZIP
begin
get item (item 2 of d) of "January,Februrary,March,April,May,June,July,August,September,October,November,December";
put " " & item 1 of d after it;
put it into page field "Show Date";
end;
handler setit(d);
begin
convert d to dateitems;
put 1 into item 3 of d;
put d into page field "_date";
changemonth 0;
end;
handler changemonth(dx);
begin
get page field "_date";
add dx to item 2 of it;
convert it to dateitems;
put it into page field "_date";
putdate it;
put makemonth(item 2 of it,item 1 of it,item 7 of it) into field "Days";
end;
Handler Help;
begin
go to pg id 12 of pad "daily.hlp";
end; ¯ hÁï $ putdate 8 7 January,Februrary,March,April,May,June,July,August,September,October,November,December XXX2
XXXXX1 ,
XX
XShow Date %X
X* $ setit 8 7 XXX 1 XX3
XXX_date %X
X0
changemonth ;:* $
changemonth 8 7 X_date %##
XXXX
X2
XV
XX
X_date %X
X
putdate ;:
X2
X1
X7
makemonth ;:XDays &X
X* 7 daily.hlp 12 * JMZJ ÿÿ ø) Õ Î ! # ' * > P X j UììWVÇFú ~téÄ FFîVðFîÄ^î&Ä_ü&&WFüVþFîÄ^î&Ä_ü&&WFêVìvòFüVþFöVøÄ~üë&=,tG&= uó~üFþß&*äð öt&'ÿvìÿvêÿvøÿvö ÄFô ötÄ^ü&Æ,~ô uvòë ötÿFüÿFúëÇFú ëèÿvú
RP ¸ ^_å]ËËË´/Í!ÂÃËUì ´ÅVÍ! ]Ê Uì ´N¹1 ÅVÍ!r3Àë¸ ]Ê ´OÍ!r3Àë¸ Ë ° ét ° éo ì : T ¸ غ8 ´ Í!¸LÍ! VW¸ ؾZ ¿Z è# _^à Ë VW¸ ؾZ ¿Z è _^â Ë;÷sï Etòÿ ëîÃ2ä.ÿ. UìÖ Åv
Ä^°ÿ
Àt-¬&'C:àtó,A<Éá ÁAà,A<Éá ÁA:ÄtÓÀ ÿ ò]Ë whichitem FFFFFFFFThis program requires HyperPAD.
$ CMZC ÿÿ ·³A < 1 * B 4 % & " - 1 5 7 ; ? B V h p Uìì W ¸ Ø¸È P FðVòÿv
ÿv HFöÿvÿv Føÿvÿv HFô~öu6Fø¹ ÷ù Òu
Fø¹d ÷ù ÒuFø¹÷ù ÒtÇFú ëÇFú ë
^ö
*äFúFðVòFüVþÇFê ~ô ~!FôFäFê¸ ^ü¹ ûó«FüÿNäuêÇFè ~ú|G~ê|Ä^üÿFü&Æ
^üÿFü&Æ
ÇFê ÿvè¸ Pÿvþÿvü Ä
FüÿFêFúÿFè9Fè~¹Ä^ü&Æ ÿvòÿvð! RP ÿvòÿvð
¸ _å]Ë°é °é ° é °
é} °éx °és ì R l b & ¸ غ@ ´ Í!¸LÍ! VW¸ ؾc ¿c è# _^ Ë VW¸ ؾc ¿c è _^ Ë;÷sï Etòÿ ëîÃ2ä.ÿ.' ËË%3d MakeMonth FFFFFFFFThis program requires HyperPAD.
$ WITEM
MONTH @ j P @ 6 Days ! p 4 p ÿ B % 5 - Handler Select;
Begin
help;
End;
Ò5 7 X
ï:* H E M Ø ! F1=Help on ±±±ÄÄÄÄÄÂÄÄ1 G G p ÿ qÛ ñ ã handler cancel;
begin
go to pad "daily";
end;
handler domenu(d);
begin
if d is "next" then changemonth 1
else if d is "previous" then changemonth -1
else if d is not "first" and d is not "last" then pass;
end; ñ è þ 7 daily * 8 7 next X+ 1
changemonth ;:$D previous X+ 1 [
changemonth ;:$ last X.first X.1 /* Î ¤ & HyperPAD 2.2¨ Brightbil-Roberts & Co. ± Monthly Planer ½±ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ î $Use TAB to highlight a day, then pres ENTER, ALT for comands. Ðp0ÿÿÿÿÿÿÿÿÿÿÿÿÿÚÐÐ0 @¯ " Ï e ¯ H 1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31 [ . > 6 Handler Select;
Begin
changemonth 1;
End;
Ò> 7 1
changemonth ;:* H ) , ¼À¾ xt utton 1 2 3 4
1 G G p ÿ ] / ? 7 Handler Select;
Begin
changemonth -1;
End;
Ò? 7 1 [
changemonth ;:* H # & \ e ev utton 1 2 3 4
1 G G p ÿ H New Button " p ÿ H ! New Button " p ÿ H # % New Button " p ÿ H ' ) New Button " p ÿ H + - New Button " p ÿ H
/ 1 New Button " p ÿ H 3 5 New Button " p ÿ H
New Button " p ÿ H
!
New Button " p ÿ H #
%
New Button " p ÿ H '
)
New Button " p ÿ H +
-
New Button " p ÿ H /
1
New Button " p ÿ H 3
5
New Button " p ÿ H New Button " p ÿ H ! New Button " p ÿ H # % New Button " p ÿ H ' ) New Button " p ÿ H + - New Button " p ÿ H / 1 New Button " p ÿ H 3 5 New Button " p ÿ H New Button " p ÿ H ! New Button " p ÿ H # % New Button " p ÿ H ' ) New Button " p ÿ H + - New Button " p ÿ H / 1 New Button " p ÿ H 3 5 New Button " p ÿ H ! New Button " p ÿ H " ! New Button " p ÿ H # # % New Button " p ÿ H $ ' ) New Button " p ÿ H % + - New Button " p ÿ H & / 1 New Button " p ÿ H ' 3 5 New Button " p ÿ H ( New Button " p ÿ H ) ! New Button " p ÿ H * # % New Button " p ÿ H + ' ) New Button " p ÿ H , + - New Button " p ÿ H - / 1 New Button " p ÿ H . 3 5 New Button " p ÿ % 0 Hp 1991,3,1,0,0,0,6 P 0 , P _date ! p p ÿ 1 H, t
March 1991 P 1 @ 6 Show Date A! p p ÿ ¯¿·handler select;
begin
get pg fld "show date";
answer "Print appointments for" && it && "?";
if it is not "Ok" then exit;
show pg button "Printing...";
set the lockscreen to true;
get pg fld "_date";
put it into fst;
convert fst to seconds;
add 1 to item 2 of it;
convert it to dateitems;
add -1 to item 3 of it;
convert it to dateitems;
convert it to seconds;
put it into lst;
push this page;
go to page 1 of background "Template" of pad "Daily";
get fld "Date Links";
for x = 1 to the number of items of it do
begin
put item x of it into hld;
if hld is not empty then
begin
convert hld to seconds;
if hld >= Fst and hld <= lst then
begin
go to page item x of it;
send "Select" to button "1-Print";
end;
end;
end;
pop page;
hide pg button "Printing...";
set the lockscreen to false;
end; Ò¿7 Xshow date %##XXXX? XPrint appointments for --XXUOk X. *XPrinting... L
*R
PX
"
PX_date %##XXXXX
XXX
XX 1 XX2
XVXXX 1 [XX3
XVXXX XXX X
XXX`]Daily Template 1 XDate Links &##XXXX1
XXXX@
6{ XX
XXX
.G
XX
6
41& XX
Select X1-Print M
1
XXX$zÿ^XPrinting... L
*S
PX
"
P* H 2 8 % 1-Print th 1 2 3 4
1 p 1x Ä t | Handler Select;
Begin
get page field "_date";
go to pad "yearly";
put item 1 of it into field "_date";
End;
Ò 7 X_date %##XXXXyearly XX1 X_date &X
X* H 3
( + 2-Yearly h 1 2 3 4
1 p 2y F a) 9 1 Handler Select;
Begin
cancel;
End;
Ò79 7 X
:* H 5 C G , ¼ e ber n ±±± 1 G G p ÿ @ a* : 2 Handler Select;
Begin
go home;
End;
Ò: 7 * H 6 I O @ £, Home ber n ±±± 1 G G p ÿ Y - = 5 Handler Select;
Begin
setit date();
End;
Ò= 7 X
:
setit ;:* H 7 r/- 3-This Month 1 2 3 4
1 p 3z H 8 ; Printing... month ;:$D previous X5 G G p ÿ ¢²ªhandler select;
begin
get page field "_date";
put item (item 2 of it) of "31,28,31,30,31,30,31,31,30,31,30,31" into lastday;
if lastday is 28 and
item 1 of it mod 4 is 0 and
item 1 of it mod 100 is not 0 then
add 1 to lastday;
put item 7 of it into startday;
put the id of the target - 3 - startday into d;
if d <= lastday and d >= 1 then
begin
put d into item 3 of it;
convert it to short4 date;
go to page "Template" of pad "daily";
if ","&it&"," is in fld "date links" then
go to pg it
else
begin
convert it to long date;
put it into fld "_date";
end;
end;
end; Ò²7 X_date %##XXXX31,28,31,30,31,30,31,31,30,31,30,31 XXX2
XXX0 100 XX1 p.0 4 XX1 p+28
+11
1
XXXVXX7
XXX
3 de
,c
XXX1
4
61u
XX3
XXXX daily Template Xdate links &##, X, ,,w X $ XXX XX_date &X
X* un ÿ ÿ ¨ ܲ ÚÄÂÄÂÄÂÄÂÄÂÄÂÄ¿Û² ³Sun³Mon³Tue³Wed³Thu³Fri³Sat³Û² ÃÄÅÄÅÄÅÄÅÄÅÄÅÄ´Û² ³ ³ ³ ³ ³ ³ ³ ³Û² ÃÄÅÄÅÄÅÄÅÄÅÄÅÄ´Û² ³ ³ ³ ³ ³ ³ ³ ³Û² ÃÄÅÄÅÄÅÄÅÄÅÄÅÄ´Û² ³ ³ ³ ³ ³ ³ ³ ³Û² ÃÄÅÄÅÄÅÄÅÄÅÄÅÄ´Û² ³ ³ ³ ³ ³ ³ ³ ³Û² ÃÄÅÄÅÄÅÄÅÄÅÄÅÄ´Û² ³ ³ ³ ³ ³ ³ ³ ³Û² ÃÄÅÄÅÄÅÄÅÄÅÄÅÄ´Û² ³ ³ ³ ³ ³ ³ ³ ³Û² ÀÄÁÄÁÄÁÄÁÄÁÄÁÄÙÛ³ ßÿ ÿ ÿ ¬ ÿÿ¨²²²²²²²²²²²²²²²³ÿÿÿ¬í . %2 7 6 9
Ä X ¢ ì 6 Ê ^ ¨ ò < Ð d ® ø B Ö j ´ þ H Ü & p º ! N! ! â! ," v" À"
# T# # è# 2$ Y$ «$ Ì$ ·* Ç+ Y, å, - Ô-
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/