/ stazsoftware.com / www.stazsoftware.com.tar / www.stazsoftware.com / futurebasic / sample-code / helpProj.sit / Help Project Folder / HTML Cal.INCL

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 48 54 4d 4c 20 43 | 61 6c 2e 49 4e 43 4c 00 |..HTML C|al.INCL.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 46 42 5e | 65 01 00 00 00 00 00 00 |.TEXTFB^|e.......|
|00000050| 00 00 00 00 00 30 06 00 | 00 01 7d be 85 a5 3c be |.....0..|..}...<.|
|00000060| 85 a5 3c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..<.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 97 c9 00 00 |........|........|
|00000080| 0d 27 7e 27 32 0d 27 7e | 27 32 0d 27 20 20 20 20 |.'~'2.'~|'2.'    |
|00000090| 20 4d 41 4b 45 20 48 54 | 4d 4c 20 43 41 4c 45 4e | MAKE HT|ML CALEN|
|000000a0| 44 41 52 20 49 6e 63 6c | 75 64 65 0d 27 0d 27 0d |DAR Incl|ude.'.'.|
|000000b0| 27 7e 27 32 0d 0d 74 6f | 6f 6c 62 6f 78 20 66 6e |'~'2..to|olbox fn|
|000000c0| 20 48 52 44 72 61 77 49 | 6e 50 6f 72 74 28 48 52 | HRDrawI|nPort(HR|
|000000d0| 52 65 66 65 72 65 6e 63 | 65 20 20 68 72 52 65 66 |Referenc|e  hrRef|
|000000e0| 2c 52 67 6e 48 61 6e 64 | 6c 65 20 75 70 64 61 74 |,RgnHand|le updat|
|000000f0| 65 52 67 6e 48 2c 43 47 | 72 61 66 50 74 72 20 67 |eRgnH,CG|rafPtr g|
|00000100| 72 61 66 50 74 72 29 20 | 3d 20 4f 53 53 74 61 74 |rafPtr) |= OSStat|
|00000110| 75 73 0d 74 6f 6f 6c 62 | 6f 78 20 66 6e 20 48 52 |us.toolb|ox fn HR|
|00000120| 4e 65 77 52 65 66 65 72 | 65 6e 63 65 49 6e 57 69 |NewRefer|enceInWi|
|00000130| 6e 64 6f 77 28 48 52 52 | 65 66 65 72 65 6e 63 65 |ndow(HRR|eference|
|00000140| 20 2a 20 68 72 52 65 66 | 2c 4f 53 54 79 70 65 20 | * hrRef|,OSType |
|00000150| 72 65 6e 64 65 72 65 72 | 54 79 70 65 2c 57 69 6e |renderer|Type,Win|
|00000160| 64 6f 77 52 65 66 20 69 | 6e 57 69 6e 64 6f 77 52 |dowRef i|nWindowR|
|00000170| 65 66 29 3d 20 4f 53 53 | 74 61 74 75 73 0d 74 6f |ef)= OSS|tatus.to|
|00000180| 6f 6c 62 6f 78 20 66 6e | 20 48 52 53 65 74 57 69 |olbox fn| HRSetWi|
|00000190| 6e 64 6f 77 52 65 66 28 | 48 52 52 65 66 65 72 65 |ndowRef(|HRRefere|
|000001a0| 6e 63 65 20 68 72 52 65 | 66 2c 57 69 6e 64 6f 77 |nce hrRe|f,Window|
|000001b0| 52 65 66 20 77 69 6e 64 | 6f 77 52 65 66 29 20 3d |Ref wind|owRef) =|
|000001c0| 20 4f 53 53 74 61 74 75 | 73 0d 74 6f 6f 6c 62 6f | OSStatu|s.toolbo|
|000001d0| 78 20 66 6e 20 43 6f 70 | 79 57 69 6e 64 6f 77 54 |x fn Cop|yWindowT|
|000001e0| 69 74 6c 65 41 73 43 46 | 53 74 72 69 6e 67 28 20 |itleAsCF|String( |
|000001f0| 57 69 6e 64 6f 77 52 65 | 66 20 69 6e 57 69 6e 64 |WindowRe|f inWind|
|00000200| 6f 77 2c 43 46 53 74 72 | 69 6e 67 52 65 66 20 2a |ow,CFStr|ingRef *|
|00000210| 20 6f 75 74 53 74 72 69 | 6e 67 20 29 20 3d 20 4f | outStri|ng ) = O|
|00000220| 53 53 74 61 74 75 73 0d | 0d 62 65 67 69 6e 20 67 |SStatus.|.begin g|
|00000230| 6c 6f 62 61 6c 73 0d 0d | 64 69 6d 20 67 54 6f 70 |lobals..|dim gTop|
|00000240| 69 63 24 0d 64 69 6d 20 | 40 67 48 52 72 65 66 20 |ic$.dim |@gHRref |
|00000250| 61 73 20 20 48 52 52 65 | 66 65 72 65 6e 63 65 2f |as  HRRe|ference/|
|00000260| 2f 20 68 65 61 76 69 6c | 79 20 75 73 65 64 20 48 |/ heavil|y used H|
|00000270| 52 20 72 65 66 65 72 65 | 6e 63 65 0d 64 69 6d 20 |R refere|nce.dim |
|00000280| 40 67 50 6f 72 74 20 61 | 73 20 5e 43 47 72 61 66 |@gPort a|s ^CGraf|
|00000290| 50 6f 72 74 27 20 61 73 | 20 70 74 72 2f 2f 20 22 |Port' as| ptr// "|
|000002a0| 40 22 20 6d 65 61 6e 73 | 20 64 6f 6e 27 74 20 75 |@" means| don't u|
|000002b0| 73 65 20 72 65 67 69 73 | 74 65 72 0d 64 69 6d 20 |se regis|ter.dim |
|000002c0| 40 67 72 65 6e 64 65 72 | 52 65 63 74 20 61 73 20 |@grender|Rect as |
|000002d0| 72 65 63 74 0d 64 69 6d | 20 67 50 72 65 66 46 6f |rect.dim| gPrefFo|
|000002e0| 6c 64 65 72 56 6f 6c 0d | 0d 45 4e 44 20 47 4c 4f |lderVol.|.END GLO|
|000002f0| 42 41 4c 53 0d 0d 47 4f | 54 4f 20 22 45 6e 64 4f |BALS..GO|TO "EndO|
|00000300| 66 48 54 4d 4c 43 41 4c | 22 0d 0d 0d 43 4c 45 41 |fHTMLCAL|"...CLEA|
|00000310| 52 20 4c 4f 43 41 4c 0d | 44 49 4d 20 70 62 42 6c |R LOCAL.|DIM pbBl|
|00000320| 6b 2e 31 32 38 2c 46 69 | 6c 65 6e 61 6d 65 24 2c |k.128,Fi|lename$,|
|00000330| 49 6e 64 65 78 25 2c 4f | 53 45 72 72 25 2c 6e 75 |Index%,O|SErr%,nu|
|00000340| 6d 2c 6c 6f 6f 70 0d 44 | 49 4d 20 72 65 73 48 6e |m,loop.D|IM resHn|
|00000350| 64 6c 26 0d 27 7e 27 32 | 0d 4c 4f 43 41 4c 20 46 |dl&.'~'2|.LOCAL F|
|00000360| 4e 20 42 75 69 6c 64 48 | 65 6c 70 54 6f 70 69 63 |N BuildH|elpTopic|
|00000370| 4c 69 73 74 0d 27 7e 27 | 32 0d 55 53 45 52 45 53 |List.'~'|2.USERES|
|00000380| 46 49 4c 45 28 67 52 65 | 73 52 65 66 29 0d 6e 75 |FILE(gRe|sRef).nu|
|00000390| 6d 20 3d 20 46 4e 20 63 | 6f 75 6e 74 53 74 72 28 |m = FN c|ountStr(|
|000003a0| 5f 48 65 6c 70 4c 69 73 | 74 53 54 52 29 0d 46 4f |_HelpLis|tSTR).FO|
|000003b0| 52 20 6c 6f 6f 70 20 3d | 20 6e 75 6d 20 74 6f 20 |R loop =| num to |
|000003c0| 31 20 73 74 65 70 20 2d | 31 0d 46 4e 20 64 65 6c |1 step -|1.FN del|
|000003d0| 45 6c 65 6d 65 6e 74 28 | 6c 6f 6f 70 2c 5f 48 65 |Element(|loop,_He|
|000003e0| 6c 70 4c 69 73 74 53 54 | 52 29 0d 6e 65 78 74 0d |lpListST|R).next.|
|000003f0| 67 50 72 65 66 46 6f 6c | 64 65 72 56 6f 6c 20 3d |gPrefFol|derVol =|
|00000400| 20 46 4f 4c 44 45 52 20 | 28 22 48 65 6c 70 22 2c | FOLDER |("Help",|
|00000410| 53 59 53 54 45 4d 28 5f | 61 70 6c 76 6f 6c 29 29 |SYSTEM(_|aplvol))|
|00000420| 0d 49 6e 64 65 78 25 20 | 3d 20 31 0d 44 4f 0d 70 |.Index% |= 1.DO.p|
|00000430| 62 42 6c 6b 2e 69 6f 46 | 44 69 72 49 6e 64 65 78 |bBlk.ioF|DirIndex|
|00000440| 25 20 20 3d 20 49 6e 64 | 65 78 25 0d 70 62 42 6c |%  = Ind|ex%.pbBl|
|00000450| 6b 2e 69 6f 4e 61 6d 65 | 50 74 72 26 20 20 20 20 |k.ioName|Ptr&    |
|00000460| 3d 20 40 46 69 6c 65 6e | 61 6d 65 24 0d 70 62 42 |= @Filen|ame$.pbB|
|00000470| 6c 6b 2e 69 6f 56 52 65 | 66 4e 75 6d 25 20 20 20 |lk.ioVRe|fNum%   |
|00000480| 20 3d 20 67 50 72 65 66 | 46 6f 6c 64 65 72 56 6f | = gPref|FolderVo|
|00000490| 6c 0d 70 62 42 6c 6b 2e | 69 6f 44 69 72 49 44 26 |l.pbBlk.|ioDirID&|
|000004a0| 20 20 20 20 20 20 3d 20 | 30 0d 23 49 46 20 43 61 |      = |0.#IF Ca|
|000004b0| 72 62 6f 6e 4c 69 62 20 | 3d 20 30 0d 4f 53 45 72 |rbonLib |= 0.OSEr|
|000004c0| 72 25 20 3d 20 46 4e 20 | 50 42 47 65 74 46 49 6e |r% = FN |PBGetFIn|
|000004d0| 66 6f 53 79 6e 63 20 28 | 70 62 42 6c 6b 29 0d 23 |foSync (|pbBlk).#|
|000004e0| 45 4c 53 45 0d 46 4e 20 | 46 42 57 44 74 6f 50 42 |ELSE.FN |FBWDtoPB|
|000004f0| 57 44 28 70 62 42 6c 6b | 29 0d 4f 53 45 72 72 25 |WD(pbBlk|).OSErr%|
|00000500| 20 3d 20 46 4e 20 50 42 | 48 47 65 74 46 49 6e 66 | = FN PB|HGetFInf|
|00000510| 6f 53 79 6e 63 20 28 70 | 62 42 6c 6b 29 0d 23 45 |oSync (p|bBlk).#E|
|00000520| 4e 44 49 46 0d 67 46 69 | 6c 65 54 79 70 65 26 20 |NDIF.gFi|leType& |
|00000530| 20 20 20 20 20 20 20 20 | 20 3d 20 70 62 42 6c 6b |        | = pbBlk|
|00000540| 2e 69 6f 42 75 66 66 65 | 72 26 0d 4c 4f 4e 47 20 |.ioBuffe|r&.LONG |
|00000550| 49 46 20 4f 53 45 72 72 | 25 20 3d 20 5f 6e 6f 45 |IF OSErr|% = _noE|
|00000560| 72 72 0d 4c 4f 4e 47 20 | 49 46 20 67 46 69 6c 65 |rr.LONG |IF gFile|
|00000570| 54 79 70 65 26 20 3d 20 | 5f 22 54 45 58 54 22 27 |Type& = |_"TEXT"'|
|00000580| 20 6f 72 20 67 46 69 6c | 65 54 79 70 65 26 20 3d | or gFil|eType& =|
|00000590| 20 5f 22 22 0d 46 4e 20 | 61 70 6e 64 45 6c 65 6d | _"".FN |apndElem|
|000005a0| 65 6e 74 28 5f 48 65 6c | 70 4c 69 73 74 53 54 52 |ent(_Hel|pListSTR|
|000005b0| 2c 46 69 6c 65 6e 61 6d | 65 24 29 0d 45 4e 44 20 |,Filenam|e$).END |
|000005c0| 49 46 0d 45 4e 44 20 49 | 46 0d 49 4e 43 20 28 49 |IF.END I|F.INC (I|
|000005d0| 6e 64 65 78 25 29 0d 55 | 4e 54 49 4c 20 4f 53 45 |ndex%).U|NTIL OSE|
|000005e0| 72 72 25 20 3c 3e 20 5f | 6e 6f 45 72 72 0d 75 70 |rr% <> _|noErr.up|
|000005f0| 64 61 74 65 72 65 73 66 | 69 6c 65 28 73 79 73 74 |dateresf|ile(syst|
|00000600| 65 6d 28 5f 61 70 6c 72 | 65 73 29 29 0d 46 4e 20 |em(_aplr|es)).FN |
|00000610| 49 6e 69 74 48 65 6c 70 | 54 6f 70 69 63 4c 69 73 |InitHelp|TopicLis|
|00000620| 74 0d 45 4e 44 20 46 4e | 0d 0d 0d 43 6c 65 61 72 |t.END FN|...Clear|
|00000630| 20 4c 6f 63 61 6c 20 4d | 6f 64 65 0d 44 69 6d 20 | Local M|ode.Dim |
|00000640| 65 72 72 20 41 73 20 4f | 53 45 72 72 0d 44 69 6d |err As O|SErr.Dim|
|00000650| 20 70 62 20 20 41 73 20 | 43 49 6e 66 6f 50 42 52 | pb  As |CInfoPBR|
|00000660| 65 63 0d 27 7e 27 32 0d | 4c 6f 63 61 6c 20 46 6e |ec.'~'2.|Local Fn|
|00000670| 20 46 42 57 44 54 6f 46 | 53 53 70 65 63 28 20 40 | FBWDToF|SSpec( @|
|00000680| 6e 61 6d 65 50 74 72 20 | 41 73 20 2e 53 74 72 36 |namePtr |As .Str6|
|00000690| 33 2c 76 52 65 66 4e 75 | 6d 20 41 73 20 49 6e 74 |3,vRefNu|m As Int|
|000006a0| 2c 20 66 53 70 65 63 20 | 41 73 20 2e 46 53 53 70 |, fSpec |As .FSSp|
|000006b0| 65 63 20 29 0d 27 7e 27 | 32 0d 70 62 2e 69 6f 4e |ec ).'~'|2.pb.ioN|
|000006c0| 61 6d 65 50 74 72 20 3d | 20 6e 61 6d 65 50 74 72 |amePtr =| namePtr|
|000006d0| 0d 70 62 2e 69 6f 56 52 | 65 66 4e 75 6d 20 3d 20 |.pb.ioVR|efNum = |
|000006e0| 76 52 65 66 4e 75 6d 0d | 23 49 66 20 43 61 72 62 |vRefNum.|#If Carb|
|000006f0| 6f 6e 4c 69 62 0d 46 6e | 20 46 42 57 44 54 6f 50 |onLib.Fn| FBWDToP|
|00000700| 42 57 44 28 20 70 62 20 | 29 0d 23 45 6e 64 69 66 |BWD( pb |).#Endif|
|00000710| 0d 65 72 72 20 3d 20 46 | 6e 20 50 42 47 65 74 43 |.err = F|n PBGetC|
|00000720| 61 74 49 6e 66 6f 53 79 | 6e 63 28 20 70 62 20 29 |atInfoSy|nc( pb )|
|00000730| 0d 49 66 20 65 72 72 20 | 21 3d 20 5f 6e 6f 45 72 |.If err |!= _noEr|
|00000740| 72 20 54 68 65 6e 20 45 | 78 69 74 20 46 6e 0d 66 |r Then E|xit Fn.f|
|00000750| 53 70 65 63 2e 6e 61 6d | 65 20 20 20 20 3d 20 20 |Spec.nam|e    =  |
|00000760| 6e 61 6d 65 50 74 72 2e | 6e 69 6c 24 0d 66 53 70 |namePtr.|nil$.fSp|
|00000770| 65 63 2e 76 52 65 66 4e | 75 6d 20 3d 20 20 70 62 |ec.vRefN|um =  pb|
|00000780| 2e 69 6f 56 52 65 66 4e | 75 6d 0d 66 53 70 65 63 |.ioVRefN|um.fSpec|
|00000790| 2e 70 61 72 49 44 20 20 | 20 3d 20 20 70 62 2e 69 |.parID  | =  pb.i|
|000007a0| 6f 46 6c 50 61 72 49 44 | 0d 45 6e 64 20 46 6e 20 |oFlParID|.End Fn |
|000007b0| 3d 20 65 72 72 0d 0d 0d | 6c 6f 63 61 6c 0d 64 69 |= err...|local.di|
|000007c0| 6d 20 65 72 72 0d 27 7e | 27 32 0d 6c 6f 63 61 6c |m err.'~|'2.local|
|000007d0| 20 66 6e 20 73 65 74 48 | 54 4d 4c 72 65 63 74 0d | fn setH|TMLrect.|
|000007e0| 27 7e 27 32 0d 67 65 74 | 70 6f 72 74 28 67 50 6f |'~'2.get|port(gPo|
|000007f0| 72 74 29 0d 67 72 65 6e | 64 65 72 52 65 63 74 20 |rt).gren|derRect |
|00000800| 20 3d 20 40 67 50 6f 72 | 74 2e 70 6f 72 74 52 65 | = @gPor|t.portRe|
|00000810| 63 74 25 0d 63 61 6c 6c | 20 4f 66 66 73 65 74 52 |ct%.call| OffsetR|
|00000820| 65 63 74 28 67 72 65 6e | 64 65 72 52 65 63 74 2c |ect(gren|derRect,|
|00000830| 31 2c 30 29 0d 63 61 6c | 6c 20 49 6e 73 65 74 52 |1,0).cal|l InsetR|
|00000840| 65 63 74 28 67 72 65 6e | 64 65 72 52 65 63 74 2c |ect(gren|derRect,|
|00000850| 30 2c 2d 31 29 0d 4c 4f | 4e 47 20 49 46 20 77 69 |0,-1).LO|NG IF wi|
|00000860| 6e 64 6f 77 28 5f 6f 75 | 74 70 75 74 77 6e 64 29 |ndow(_ou|tputwnd)|
|00000870| 20 3d 20 5f 4d 79 43 61 | 6c 65 6e 64 61 72 48 65 | = _MyCa|lendarHe|
|00000880| 6c 70 32 57 6e 64 0d 46 | 4e 20 70 47 67 65 74 4f |lp2Wnd.F|N pGgetO|
|00000890| 62 6a 28 5f 4d 79 43 61 | 6c 65 6e 64 61 72 48 65 |bj(_MyCa|lendarHe|
|000008a0| 6c 70 32 57 6e 64 2c 5f | 48 65 6c 70 54 6f 70 69 |lp2Wnd,_|HelpTopi|
|000008b0| 63 4c 69 73 74 29 0d 67 | 72 65 6e 64 65 72 52 65 |cList).g|renderRe|
|000008c0| 63 74 2e 72 69 67 68 74 | 25 20 3d 20 57 49 4e 44 |ct.right|% = WIND|
|000008d0| 4f 57 28 5f 77 69 64 74 | 68 29 2d 32 0d 67 72 65 |OW(_widt|h)-2.gre|
|000008e0| 6e 64 65 72 52 65 63 74 | 2e 62 6f 74 74 6f 6d 20 |nderRect|.bottom |
|000008f0| 3d 20 67 4f 62 6a 42 27 | 57 49 4e 44 4f 57 28 5f |= gObjB'|WINDOW(_|
|00000900| 68 65 69 67 68 74 29 2d | 32 0d 67 72 65 6e 64 65 |height)-|2.grende|
|00000910| 72 52 65 63 74 2e 6c 65 | 66 74 25 20 3d 20 67 4f |rRect.le|ft% = gO|
|00000920| 62 6a 52 20 2b 20 31 36 | 27 72 69 67 68 74 20 73 |bjR + 16|'right s|
|00000930| 69 64 65 20 6f 66 20 6c | 69 73 74 20 70 6c 75 73 |ide of l|ist plus|
|00000940| 20 73 63 72 6f 6c 6c 20 | 62 75 74 74 6f 6e 0d 67 | scroll |button.g|
|00000950| 72 65 6e 64 65 72 52 65 | 63 74 2e 74 6f 70 25 20 |renderRe|ct.top% |
|00000960| 3d 20 67 4f 62 6a 54 27 | 67 72 65 6e 64 65 72 52 |= gObjT'|grenderR|
|00000970| 65 63 74 2e 74 6f 70 25 | 20 2b 20 35 37 0d 45 4e |ect.top%| + 57.EN|
|00000980| 44 20 49 46 0d 65 72 72 | 20 3d 20 46 4e 20 48 52 |D IF.err| = FN HR|
|00000990| 53 65 74 52 65 6e 64 65 | 72 69 6e 67 52 65 63 74 |SetRende|ringRect|
|000009a0| 28 67 48 52 72 65 66 2c | 67 72 65 6e 64 65 72 52 |(gHRref,|grenderR|
|000009b0| 65 63 74 29 0d 45 4e 44 | 20 46 4e 0d 0d 0d 63 6c |ect).END| FN...cl|
|000009c0| 65 61 72 20 6c 6f 63 61 | 6c 0d 64 69 6d 20 65 72 |ear loca|l.dim er|
|000009d0| 72 2c 73 70 65 63 20 61 | 73 20 66 73 73 70 65 63 |r,spec a|s fsspec|
|000009e0| 0d 64 69 6d 20 72 67 6e | 20 20 20 61 73 20 72 67 |.dim rgn|   as rg|
|000009f0| 6e 48 61 6e 64 6c 65 0d | 27 7e 27 32 0d 6c 6f 63 |nHandle.|'~'2.loc|
|00000a00| 61 6c 20 66 6e 20 48 54 | 4d 4c 47 6f 74 6f 46 69 |al fn HT|MLGotoFi|
|00000a10| 6c 65 28 48 52 72 65 66 | 20 61 73 20 6c 6f 6e 67 |le(HRref| as long|
|00000a20| 2c 48 54 4d 4c 4e 61 6d | 65 24 2c 48 54 4d 4c 56 |,HTMLNam|e$,HTMLV|
|00000a30| 6f 6c 25 29 0d 27 7e 27 | 32 0d 66 6e 20 46 42 6d |ol%).'~'|2.fn FBm|
|00000a40| 61 6b 65 66 73 73 70 65 | 63 28 48 54 4d 4c 56 6f |akefsspe|c(HTMLVo|
|00000a50| 6c 25 2c 30 2c 48 54 4d | 4c 4e 61 6d 65 24 2c 73 |l%,0,HTM|LName$,s|
|00000a60| 70 65 63 29 0d 65 72 72 | 20 3d 20 66 6e 20 48 52 |pec).err| = fn HR|
|00000a70| 47 6f 54 6f 46 69 6c 65 | 28 48 52 72 65 66 2c 23 |GoToFile|(HRref,#|
|00000a80| 73 70 65 63 2c 5f 66 61 | 6c 73 65 2c 5f 7a 54 72 |spec,_fa|lse,_zTr|
|00000a90| 75 65 29 0d 72 67 6e 20 | 3d 20 66 6e 20 4e 65 77 |ue).rgn |= fn New|
|00000aa0| 52 67 6e 0d 6c 6f 6e 67 | 20 69 66 20 72 67 6e 0d |Rgn.long| if rgn.|
|00000ab0| 52 65 63 74 52 67 6e 28 | 72 67 6e 2c 40 67 72 65 |RectRgn(|rgn,@gre|
|00000ac0| 6e 64 65 72 52 65 63 74 | 29 0d 65 72 72 20 3d 20 |nderRect|).err = |
|00000ad0| 66 6e 20 48 52 64 72 61 | 77 28 67 48 52 72 65 66 |fn HRdra|w(gHRref|
|00000ae0| 2c 72 67 6e 29 0d 44 69 | 73 70 6f 73 65 52 67 6e |,rgn).Di|sposeRgn|
|00000af0| 28 20 72 67 6e 20 29 0d | 65 6e 64 20 69 66 0d 65 |( rgn ).|end if.e|
|00000b00| 6e 64 20 66 6e 20 0d 0d | 0d 63 6c 65 61 72 20 6c |nd fn ..|.clear l|
|00000b10| 6f 63 61 6c 0d 64 69 6d | 20 65 72 72 0d 27 7e 27 |ocal.dim| err.'~'|
|00000b20| 32 0d 6c 6f 63 61 6c 20 | 66 6e 20 48 54 4d 4c 42 |2.local |fn HTMLB|
|00000b30| 65 67 69 6e 0d 27 7e 27 | 32 0d 67 65 74 70 6f 72 |egin.'~'|2.getpor|
|00000b40| 74 28 67 50 6f 72 74 29 | 0d 65 72 72 20 3d 20 66 |t(gPort)|.err = f|
|00000b50| 6e 20 48 52 4e 65 77 52 | 65 66 65 72 65 6e 63 65 |n HRNewR|eference|
|00000b60| 28 40 67 48 52 72 65 66 | 2c 5f 6b 48 52 52 65 6e |(@gHRref|,_kHRRen|
|00000b70| 64 65 72 65 72 48 54 4d | 4c 33 32 54 79 70 65 2c |dererHTM|L32Type,|
|00000b80| 67 50 6f 72 74 29 0d 65 | 72 72 20 3d 20 66 6e 20 |gPort).e|rr = fn |
|00000b90| 48 52 46 6f 72 63 65 51 | 75 69 63 6b 64 72 61 77 |HRForceQ|uickdraw|
|00000ba0| 28 67 48 52 72 65 66 2c | 5f 66 61 6c 73 65 29 27 |(gHRref,|_false)'|
|00000bb0| 66 6f 72 63 65 20 71 75 | 69 63 6b 20 64 72 61 77 |force qu|ick draw|
|00000bc0| 20 64 72 61 77 69 6e 67 | 20 66 6f 72 20 74 68 69 | drawing| for thi|
|00000bd0| 73 20 70 6f 72 74 20 64 | 75 65 20 74 6f 20 73 6f |s port d|ue to so|
|00000be0| 6d 65 20 70 72 69 6e 74 | 65 72 73 0d 65 72 72 20 |me print|ers.err |
|00000bf0| 3d 20 66 6e 20 48 52 53 | 65 74 64 72 61 77 62 6f |= fn HRS|etdrawbo|
|00000c00| 72 64 65 72 28 67 48 52 | 72 65 66 2c 5f 7a 54 72 |rder(gHR|ref,_zTr|
|00000c10| 75 65 29 0d 65 72 72 20 | 3d 20 46 4e 20 48 52 53 |ue).err |= FN HRS|
|00000c20| 65 74 53 63 72 6f 6c 6c | 62 61 72 53 74 61 74 65 |etScroll|barState|
|00000c30| 28 67 48 52 72 65 66 2c | 32 2c 32 29 0d 66 6e 20 |(gHRref,|2,2).fn |
|00000c40| 73 65 74 48 54 4d 4c 72 | 65 63 74 0d 65 72 72 20 |setHTMLr|ect.err |
|00000c50| 3d 20 66 6e 20 48 52 61 | 63 74 69 76 61 74 65 28 |= fn HRa|ctivate(|
|00000c60| 67 48 52 72 65 66 29 0d | 65 6e 64 20 66 6e 20 3d |gHRref).|end fn =|
|00000c70| 20 67 48 52 72 65 66 0d | 0d 0d 6c 6f 63 61 6c 0d | gHRref.|..local.|
|00000c80| 64 69 6d 20 73 70 65 63 | 20 61 73 20 66 73 73 70 |dim spec| as fssp|
|00000c90| 65 63 0d 64 69 6d 20 65 | 72 72 2c 77 54 69 74 6c |ec.dim e|rr,wTitl|
|00000ca0| 65 24 2c 6f 75 74 70 75 | 74 77 6e 64 0d 64 69 6d |e$,outpu|twnd.dim|
|00000cb0| 20 40 77 70 74 72 26 0d | 64 69 6d 20 72 67 6e 20 | @wptr&.|dim rgn |
|00000cc0| 20 20 61 73 20 72 67 6e | 48 61 6e 64 6c 65 0d 27 |  as rgn|Handle.'|
|00000cd0| 7e 27 32 0d 6c 6f 63 61 | 6c 20 66 6e 20 73 68 6f |~'2.loca|l fn sho|
|00000ce0| 77 4c 6f 63 61 6c 55 52 | 4c 28 74 68 65 55 52 4c |wLocalUR|L(theURL|
|00000cf0| 24 2c 76 52 65 66 25 29 | 0d 27 7e 27 32 0d 77 54 |$,vRef%)|.'~'2.wT|
|00000d00| 69 74 6c 65 24 20 3d 20 | 74 68 65 55 52 4c 24 0d |itle$ = |theURL$.|
|00000d10| 6f 75 74 70 75 74 77 6e | 64 20 3d 20 57 49 4e 44 |outputwn|d = WIND|
|00000d20| 4f 57 28 5f 6f 75 74 70 | 75 74 57 6e 64 29 0d 63 |OW(_outp|utWnd).c|
|00000d30| 61 6c 6c 20 47 65 74 50 | 6f 72 74 28 67 50 6f 72 |all GetP|ort(gPor|
|00000d40| 74 29 0d 6c 6f 6e 67 20 | 69 66 20 66 6e 20 48 52 |t).long |if fn HR|
|00000d50| 48 54 4d 4c 52 65 6e 64 | 65 72 69 6e 67 4c 69 62 |HTMLRend|eringLib|
|00000d60| 41 76 61 69 6c 61 62 6c | 65 0d 65 72 72 20 3d 20 |Availabl|e.err = |
|00000d70| 66 6e 20 48 52 44 65 61 | 63 74 69 76 61 74 65 28 |fn HRDea|ctivate(|
|00000d80| 67 48 52 72 65 66 29 0d | 65 72 72 20 3d 20 66 6e |gHRref).|err = fn|
|00000d90| 20 48 52 44 69 73 70 6f | 73 65 52 65 66 65 72 65 | HRDispo|seRefere|
|00000da0| 6e 63 65 28 67 48 52 72 | 65 66 29 0d 65 72 72 20 |nce(gHRr|ef).err |
|00000db0| 3d 20 66 6e 20 48 52 4e | 65 77 52 65 66 65 72 65 |= fn HRN|ewRefere|
|00000dc0| 6e 63 65 28 40 67 48 52 | 72 65 66 2c 5f 6b 48 52 |nce(@gHR|ref,_kHR|
|00000dd0| 52 65 6e 64 65 72 65 72 | 48 54 4d 4c 33 32 54 79 |Renderer|HTML32Ty|
|00000de0| 70 65 2c 67 50 6f 72 74 | 29 0d 66 6e 20 73 65 74 |pe,gPort|).fn set|
|00000df0| 48 54 4d 4c 72 65 63 74 | 0d 4c 6f 6e 67 20 49 66 |HTMLrect|.Long If|
|00000e00| 20 46 6e 20 46 42 57 44 | 54 6f 46 53 53 70 65 63 | Fn FBWD|ToFSSpec|
|00000e10| 28 74 68 65 55 52 4c 24 | 2c 20 76 52 65 66 25 2c |(theURL$|, vRef%,|
|00000e20| 20 73 70 65 63 20 29 20 | 3d 20 5f 6e 6f 45 72 72 | spec ) |= _noErr|
|00000e30| 0d 6c 6f 6e 67 20 69 66 | 20 66 6e 20 48 52 47 6f |.long if| fn HRGo|
|00000e40| 54 6f 46 69 6c 65 28 67 | 48 52 72 65 66 2c 23 73 |ToFile(g|HRref,#s|
|00000e50| 70 65 63 2c 5f 66 61 6c | 73 65 2c 5f 7a 54 72 75 |pec,_fal|se,_zTru|
|00000e60| 65 29 20 3d 20 5f 6e 6f | 45 72 72 0d 72 67 6e 20 |e) = _no|Err.rgn |
|00000e70| 3d 20 66 6e 20 4e 65 77 | 52 67 6e 0d 6c 6f 6e 67 |= fn New|Rgn.long|
|00000e80| 20 69 66 28 20 72 67 6e | 20 29 0d 52 65 63 74 52 | if( rgn| ).RectR|
|00000e90| 67 6e 28 20 72 67 6e 2c | 67 72 65 6e 64 65 72 52 |gn( rgn,|grenderR|
|00000ea0| 65 63 74 29 0d 65 72 72 | 20 3d 20 66 6e 20 48 52 |ect).err| = fn HR|
|00000eb0| 64 72 61 77 28 67 48 52 | 72 65 66 2c 72 67 6e 29 |draw(gHR|ref,rgn)|
|00000ec0| 0d 44 69 73 70 6f 73 65 | 52 67 6e 28 20 72 67 6e |.Dispose|Rgn( rgn|
|00000ed0| 20 29 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 69 66 | ).end i|f.end if|
|00000ee0| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 69 66 0d 57 |.end if.|end if.W|
|00000ef0| 49 4e 44 4f 57 20 4f 55 | 54 50 55 54 28 6f 75 74 |INDOW OU|TPUT(out|
|00000f00| 70 75 74 77 6e 64 29 0d | 65 6e 64 20 66 6e 0d 0d |putwnd).|end fn..|
|00000f10| 0d 43 4c 45 41 52 20 4c | 4f 43 41 4c 0d 44 49 4d |.CLEAR L|OCAL.DIM|
|00000f20| 20 68 65 6c 70 56 52 65 | 66 2c 65 72 72 0d 27 7e | helpVRe|f,err.'~|
|00000f30| 27 32 0d 4c 4f 43 41 4c | 20 46 4e 20 42 75 69 6c |'2.LOCAL| FN Buil|
|00000f40| 64 48 65 6c 70 57 69 6e | 64 6f 77 0d 27 7e 27 32 |dHelpWin|dow.'~'2|
|00000f50| 0d 4c 4f 4e 47 20 49 46 | 20 57 49 4e 44 4f 57 28 |.LONG IF| WINDOW(|
|00000f60| 2d 5f 4d 79 43 61 6c 65 | 6e 64 61 72 48 65 6c 70 |-_MyCale|ndarHelp|
|00000f70| 32 57 6e 64 29 0d 57 49 | 4e 44 4f 57 20 5f 4d 79 |2Wnd).WI|NDOW _My|
|00000f80| 43 61 6c 65 6e 64 61 72 | 48 65 6c 70 32 57 6e 64 |Calendar|Help2Wnd|
|00000f90| 0d 65 78 69 74 20 66 6e | 0d 45 4e 44 20 49 46 0d |.exit fn|.END IF.|
|00000fa0| 4c 4f 4e 47 20 49 46 20 | 66 6e 20 48 52 48 54 4d |LONG IF |fn HRHTM|
|00000fb0| 4c 52 65 6e 64 65 72 69 | 6e 67 4c 69 62 41 76 61 |LRenderi|ngLibAva|
|00000fc0| 69 6c 61 62 6c 65 0d 69 | 66 20 67 48 52 72 65 66 |ilable.i|f gHRref|
|00000fd0| 20 74 68 65 6e 20 65 72 | 72 20 3d 20 66 6e 20 48 | then er|r = fn H|
|00000fe0| 52 44 65 61 63 74 69 76 | 61 74 65 28 67 48 52 72 |RDeactiv|ate(gHRr|
|00000ff0| 65 66 29 0d 69 66 20 67 | 48 52 72 65 66 20 74 68 |ef).if g|HRref th|
|00001000| 65 6e 20 65 72 72 20 3d | 20 66 6e 20 48 52 44 69 |en err =| fn HRDi|
|00001010| 73 70 6f 73 65 52 65 66 | 65 72 65 6e 63 65 28 67 |sposeRef|erence(g|
|00001020| 48 52 72 65 66 29 0d 67 | 48 52 72 65 66 20 3d 20 |HRref).g|HRref = |
|00001030| 30 0d 46 4e 20 42 75 69 | 6c 64 48 65 6c 70 54 6f |0.FN Bui|ldHelpTo|
|00001040| 70 69 63 4c 69 73 74 0d | 46 4e 20 70 47 62 75 69 |picList.|FN pGbui|
|00001050| 6c 64 28 5f 4d 79 43 61 | 6c 65 6e 64 61 72 48 65 |ld(_MyCa|lendarHe|
|00001060| 6c 70 32 57 6e 64 29 0d | 46 4e 20 44 72 61 77 4c |lp2Wnd).|FN DrawL|
|00001070| 69 73 74 28 48 65 6c 70 | 4c 69 73 74 29 0d 67 65 |ist(Help|List).ge|
|00001080| 74 70 6f 72 74 28 67 50 | 6f 72 74 29 0d 66 6e 20 |tport(gP|ort).fn |
|00001090| 48 54 4d 4c 42 65 67 69 | 6e 0d 68 65 6c 70 56 52 |HTMLBegi|n.helpVR|
|000010a0| 65 66 20 3d 20 66 6f 6c | 64 65 72 28 22 48 65 6c |ef = fol|der("Hel|
|000010b0| 70 22 2c 53 59 53 54 45 | 4d 28 5f 61 70 6c 76 6f |p",SYSTE|M(_aplvo|
|000010c0| 6c 29 29 0d 65 72 72 20 | 3d 20 66 6e 20 48 52 46 |l)).err |= fn HRF|
|000010d0| 6f 72 63 65 51 75 69 63 | 6b 64 72 61 77 28 67 48 |orceQuic|kdraw(gH|
|000010e0| 52 72 65 66 2c 5f 66 61 | 6c 73 65 29 27 66 6f 72 |Rref,_fa|lse)'for|
|000010f0| 63 65 20 71 75 69 63 6b | 20 64 72 61 77 20 64 72 |ce quick| draw dr|
|00001100| 61 77 69 6e 67 20 66 6f | 72 20 74 68 69 73 20 70 |awing fo|r this p|
|00001110| 6f 72 74 20 64 75 65 20 | 74 6f 20 73 6f 6d 65 20 |ort due |to some |
|00001120| 70 72 69 6e 74 65 72 73 | 0d 66 6e 20 48 54 4d 4c |printers|.fn HTML|
|00001130| 47 6f 74 6f 46 69 6c 65 | 28 67 48 52 72 65 66 2c |GotoFile|(gHRref,|
|00001140| 67 54 6f 70 69 63 24 2c | 68 65 6c 70 56 52 65 66 |gTopic$,|helpVRef|
|00001150| 29 0d 65 72 72 20 3d 20 | 66 6e 20 48 52 61 63 74 |).err = |fn HRact|
|00001160| 69 76 61 74 65 28 67 48 | 52 72 65 66 29 0d 78 65 |ivate(gH|Rref).xe|
|00001170| 6c 73 65 0d 43 41 4c 4c | 20 70 61 72 61 6d 74 65 |lse.CALL| paramte|
|00001180| 78 74 28 22 48 54 4d 4c | 20 52 65 6e 64 65 72 69 |xt("HTML| Renderi|
|00001190| 6e 67 20 69 73 20 6e 6f | 74 20 61 76 61 69 6c 61 |ng is no|t availa|
|000011a0| 62 6c 65 20 6f 6e 20 74 | 68 69 73 20 63 6f 6d 70 |ble on t|his comp|
|000011b0| 75 74 65 72 2e 20 48 65 | 6c 70 20 63 61 6e 6e 6f |uter. He|lp canno|
|000011c0| 74 20 62 65 20 64 69 73 | 70 6c 61 79 65 64 20 77 |t be dis|played w|
|000011d0| 69 74 68 6f 75 74 20 74 | 68 61 74 20 63 61 72 62 |ithout t|hat carb|
|000011e0| 6f 6e 20 6c 69 62 72 61 | 72 79 21 22 2c 22 22 2c |on libra|ry!","",|
|000011f0| 22 22 2c 22 22 29 0d 46 | 4e 20 70 47 73 68 6f 77 |"","").F|N pGshow|
|00001200| 45 72 72 28 30 29 0d 65 | 6e 64 20 69 66 0d 45 4e |Err(0).e|nd if.EN|
|00001210| 44 20 46 4e 0d 0d 0d 4c | 4f 43 41 4c 20 6d 6f 64 |D FN...L|OCAL mod|
|00001220| 65 0d 64 69 6d 20 65 72 | 72 2c 6e 2c 74 76 65 72 |e.dim er|r,n,tver|
|00001230| 74 2c 50 61 67 65 48 74 | 0d 64 69 6d 20 66 72 65 |t,PageHt|.dim fre|
|00001240| 4d 65 6d 26 20 20 20 20 | 61 73 20 53 69 6e 74 33 |Mem&    |as Sint3|
|00001250| 32 0d 64 69 6d 20 40 6d | 70 2c 6d 70 32 20 20 20 |2.dim @m|p,mp2   |
|00001260| 20 61 73 20 70 6f 69 6e | 74 0d 44 49 4d 20 72 65 | as poin|t.DIM re|
|00001270| 6e 64 65 72 72 65 63 74 | 20 61 73 20 72 65 63 74 |nderrect| as rect|
|00001280| 0d 64 69 6d 20 73 70 65 | 63 20 20 20 20 20 20 20 |.dim spe|c       |
|00001290| 61 73 20 66 73 73 70 65 | 63 0d 64 69 6d 20 40 50 |as fsspe|c.dim @P|
|000012a0| 6f 72 74 20 20 20 20 20 | 20 61 73 20 5e 43 47 72 |ort     | as ^CGr|
|000012b0| 61 66 50 6f 72 74 0d 64 | 69 6d 20 40 67 50 6f 72 |afPort.d|im @gPor|
|000012c0| 74 20 20 20 20 20 61 73 | 20 5e 43 47 72 61 66 50 |t     as| ^CGrafP|
|000012d0| 6f 72 74 0d 64 69 6d 20 | 72 67 6e 20 20 20 20 20 |ort.dim |rgn     |
|000012e0| 20 20 20 61 73 20 72 67 | 6e 48 61 6e 64 6c 65 0d |   as rg|nHandle.|
|000012f0| 64 69 6d 20 40 48 72 52 | 65 66 20 20 20 20 20 61 |dim @HrR|ef     a|
|00001300| 73 20 48 52 52 65 66 65 | 72 65 6e 63 65 0d 44 49 |s HRRefe|rence.DI|
|00001310| 4d 20 70 52 65 63 48 26 | 0d 27 7e 27 32 0d 4c 4f |M pRecH&|.'~'2.LO|
|00001320| 43 41 4c 20 46 4e 20 50 | 72 69 6e 74 48 74 6d 6c |CAL FN P|rintHtml|
|00001330| 28 46 69 6c 65 4e 61 6d | 65 24 2c 68 65 6c 70 56 |(FileNam|e$,helpV|
|00001340| 52 65 66 29 0d 27 7e 27 | 32 0d 27 41 20 6c 6f 74 |Ref).'~'|2.'A lot|
|00001350| 20 6d 6f 72 65 20 65 72 | 72 6f 72 20 74 65 73 74 | more er|ror test|
|00001360| 69 6e 67 20 63 61 6e 20 | 62 65 20 64 6f 6e 65 20 |ing can |be done |
|00001370| 62 75 74 20 61 64 64 69 | 6e 67 20 73 69 6d 70 6c |but addi|ng simpl|
|00001380| 65 20 62 65 65 70 73 20 | 73 68 6f 77 73 20 6e 6f |e beeps |shows no|
|00001390| 20 70 72 6f 62 6c 65 6d | 73 20 77 69 74 68 20 74 | problem|s with t|
|000013a0| 68 65 20 74 6f 6f 6c 62 | 6f 78 20 63 61 6c 6c 73 |he toolb|ox calls|
|000013b0| 0d 67 65 74 70 6f 72 74 | 28 67 50 6f 72 74 29 27 |.getport|(gPort)'|
|000013c0| 67 65 74 20 74 68 65 20 | 70 6f 72 74 20 64 61 74 |get the |port dat|
|000013d0| 61 0d 65 72 72 20 3d 20 | 66 6e 20 46 42 6d 61 6b |a.err = |fn FBmak|
|000013e0| 65 66 73 73 70 65 63 28 | 68 65 6c 70 56 52 65 66 |efsspec(|helpVRef|
|000013f0| 2c 30 2c 46 69 6c 65 4e | 61 6d 65 24 2c 73 70 65 |,0,FileN|ame$,spe|
|00001400| 63 29 27 6d 61 6b 65 20 | 61 20 66 69 6c 65 20 73 |c)'make |a file s|
|00001410| 70 65 63 20 66 6f 72 20 | 74 68 65 20 66 69 6c 65 |pec for |the file|
|00001420| 20 69 6e 20 74 68 65 20 | 66 6f 6c 64 65 72 20 70 | in the |folder p|
|00001430| 61 73 73 65 64 20 69 6e | 20 68 65 6c 70 56 52 65 |assed in| helpVRe|
|00001440| 66 0d 70 52 65 63 48 26 | 20 3d 20 50 52 48 41 4e |f.pRecH&| = PRHAN|
|00001450| 44 4c 45 0d 72 65 6e 64 | 65 72 52 65 63 74 3b 38 |DLE.rend|erRect;8|
|00001460| 20 3d 20 40 50 52 65 63 | 48 26 2e 2e 70 72 69 6e | = @PRec|H&..prin|
|00001470| 66 6f 2e 72 50 61 67 65 | 2e 74 6f 70 25 0d 0d 27 |fo.rPage|.top%..'|
|00001480| 49 6e 73 65 74 52 65 63 | 74 28 72 65 6e 64 65 72 |InsetRec|t(render|
|00001490| 52 65 63 74 2c 33 2c 33 | 29 27 69 6e 73 65 74 20 |Rect,3,3|)'inset |
|000014a0| 74 68 65 20 61 72 65 61 | 20 33 20 70 69 78 65 6c |the area| 3 pixel|
|000014b0| 73 20 66 6f 72 20 6d 6f | 72 65 20 6d 61 72 67 69 |s for mo|re margi|
|000014c0| 6e 0d 72 65 6e 64 65 72 | 52 65 63 74 2e 6c 65 66 |n.render|Rect.lef|
|000014d0| 74 20 3d 20 37 32 0d 72 | 65 6e 64 65 72 52 65 63 |t = 72.r|enderRec|
|000014e0| 74 2e 74 6f 70 20 3d 20 | 32 30 0d 72 65 6e 64 65 |t.top = |20.rende|
|000014f0| 72 52 65 63 74 2e 62 6f | 74 74 6f 6d 20 3d 20 72 |rRect.bo|ttom = r|
|00001500| 65 6e 64 65 72 52 65 63 | 74 2e 62 6f 74 74 6f 6d |enderRec|t.bottom|
|00001510| 20 2d 20 32 30 0d 72 65 | 6e 64 65 72 52 65 63 74 | - 20.re|nderRect|
|00001520| 2e 72 69 67 68 74 20 3d | 20 72 65 6e 64 65 72 52 |.right =| renderR|
|00001530| 65 63 74 2e 72 69 67 68 | 74 20 2d 20 32 30 0d 50 |ect.righ|t - 20.P|
|00001540| 61 67 65 48 74 20 3d 20 | 72 65 6e 64 65 72 52 65 |ageHt = |renderRe|
|00001550| 63 74 2e 62 6f 74 74 6f | 6d 27 63 61 6c 63 75 6c |ct.botto|m'calcul|
|00001560| 61 74 65 20 74 68 65 20 | 70 61 67 65 20 68 65 69 |ate the |page hei|
|00001570| 67 68 74 0d 74 76 65 72 | 74 20 3d 20 30 27 67 72 |ght.tver|t = 0'gr|
|00001580| 65 6e 64 65 72 52 65 63 | 74 2e 62 6f 74 74 6f 6d |enderRec|t.bottom|
|00001590| 27 74 68 69 73 20 69 73 | 20 77 68 65 72 65 20 74 |'this is| where t|
|000015a0| 68 65 20 62 6f 74 74 6f | 6d 20 73 74 61 72 74 73 |he botto|m starts|
|000015b0| 20 66 6f 72 20 74 68 65 | 20 66 69 72 73 74 20 70 | for the| first p|
|000015c0| 61 67 65 0d 65 72 72 20 | 3d 20 66 6e 20 48 52 4e |age.err |= fn HRN|
|000015d0| 65 77 52 65 66 65 72 65 | 6e 63 65 28 40 48 52 72 |ewRefere|nce(@HRr|
|000015e0| 65 66 2c 5f 6b 48 52 52 | 65 6e 64 65 72 65 72 48 |ef,_kHRR|endererH|
|000015f0| 54 4d 4c 33 32 54 79 70 | 65 2c 67 50 6f 72 74 29 |TML32Typ|e,gPort)|
|00001600| 27 63 72 65 61 74 65 20 | 61 20 6e 65 77 20 48 52 |'create |a new HR|
|00001610| 20 72 65 66 65 72 65 6e | 63 65 0d 65 72 72 20 3d | referen|ce.err =|
|00001620| 20 66 6e 20 48 52 46 6f | 72 63 65 51 75 69 63 6b | fn HRFo|rceQuick|
|00001630| 64 72 61 77 28 48 52 72 | 65 66 2c 5f 74 72 75 65 |draw(HRr|ef,_true|
|00001640| 29 27 66 6f 72 63 65 20 | 71 75 69 63 6b 20 64 72 |)'force |quick dr|
|00001650| 61 77 20 64 72 61 77 69 | 6e 67 20 66 6f 72 20 74 |aw drawi|ng for t|
|00001660| 68 69 73 20 70 6f 72 74 | 20 64 75 65 20 74 6f 20 |his port| due to |
|00001670| 73 6f 6d 65 20 70 72 69 | 6e 74 65 72 73 0d 65 72 |some pri|nters.er|
|00001680| 72 20 3d 20 66 6e 20 48 | 52 53 65 74 64 72 61 77 |r = fn H|RSetdraw|
|00001690| 62 6f 72 64 65 72 28 48 | 52 72 65 66 2c 5f 66 61 |border(H|Rref,_fa|
|000016a0| 6c 73 65 29 27 74 75 72 | 6e 20 6f 66 66 20 64 72 |lse)'tur|n off dr|
|000016b0| 61 77 69 6e 67 20 62 6f | 72 64 65 72 73 0d 65 72 |awing bo|rders.er|
|000016c0| 72 20 3d 20 46 4e 20 48 | 52 53 65 74 53 63 72 6f |r = FN H|RSetScro|
|000016d0| 6c 6c 62 61 72 53 74 61 | 74 65 28 48 52 72 65 66 |llbarSta|te(HRref|
|000016e0| 2c 31 2c 31 29 27 77 65 | 20 64 6f 6e 74 20 77 61 |,1,1)'we| dont wa|
|000016f0| 6e 74 20 73 63 72 6f 6c | 6c 20 62 61 72 73 0d 65 |nt scrol|l bars.e|
|00001700| 72 72 20 3d 20 46 4e 20 | 48 52 53 65 74 52 65 6e |rr = FN |HRSetRen|
|00001710| 64 65 72 69 6e 67 52 65 | 63 74 28 48 52 72 65 66 |deringRe|ct(HRref|
|00001720| 2c 40 72 65 6e 64 65 72 | 52 65 63 74 29 27 73 65 |,@render|Rect)'se|
|00001730| 74 20 74 68 65 20 68 74 | 6d 6c 20 72 65 6e 64 65 |t the ht|ml rende|
|00001740| 72 20 72 65 63 74 61 6e | 67 6c 65 20 74 6f 20 74 |r rectan|gle to t|
|00001750| 68 69 73 20 73 69 7a 65 | 0d 65 72 72 20 3d 20 66 |his size|.err = f|
|00001760| 6e 20 48 52 47 6f 54 6f | 46 69 6c 65 28 48 52 72 |n HRGoTo|File(HRr|
|00001770| 65 66 2c 23 73 70 65 63 | 2c 5f 66 61 6c 73 65 2c |ef,#spec|,_false,|
|00001780| 5f 66 61 6c 73 65 29 27 | 67 6f 20 74 6f 20 74 68 |_false)'|go to th|
|00001790| 65 20 66 69 6c 65 20 62 | 75 74 20 6e 6f 20 68 69 |e file b|ut no hi|
|000017a0| 73 74 6f 72 79 20 61 6e | 64 20 6e 6f 20 66 6f 72 |story an|d no for|
|000017b0| 63 65 64 20 72 65 66 72 | 65 73 68 0d 65 72 72 20 |ced refr|esh.err |
|000017c0| 3d 20 46 4e 20 48 52 47 | 65 74 52 65 6e 64 65 72 |= FN HRG|etRender|
|000017d0| 65 64 49 6d 61 67 65 53 | 69 7a 65 28 48 52 72 65 |edImageS|ize(HRre|
|000017e0| 66 2c 40 6d 70 29 27 6e | 6f 77 20 63 61 6c 63 75 |f,@mp)'n|ow calcu|
|000017f0| 6c 61 74 65 20 74 68 65 | 20 4d 41 58 49 4d 55 4d |late the| MAXIMUM|
|00001800| 20 76 65 72 74 69 63 6c | 65 20 73 69 7a 65 20 6e | verticl|e size n|
|00001810| 65 65 64 65 64 20 74 6f | 20 72 65 6e 64 65 72 20 |eeded to| render |
|00001820| 74 68 69 73 20 66 69 6c | 65 0d 6d 70 32 2e 68 25 |this fil|e.mp2.h%|
|00001830| 20 3d 20 30 27 6d 70 32 | 20 69 73 20 61 20 70 6f | = 0'mp2| is a po|
|00001840| 69 6e 74 20 74 72 61 63 | 6b 69 6e 67 20 74 68 65 |int trac|king the|
|00001850| 20 62 6f 74 74 6f 6d 20 | 6c 65 66 74 20 63 6f 72 | bottom |left cor|
|00001860| 6e 65 72 20 6f 66 20 74 | 68 65 20 72 65 6e 64 65 |ner of t|he rende|
|00001870| 72 69 6e 67 0d 0d 77 68 | 69 6c 65 20 74 76 65 72 |ring..wh|ile tver|
|00001880| 74 20 3c 3d 20 6d 70 2e | 76 25 27 61 73 20 6c 6f |t <= mp.|v%'as lo|
|00001890| 6e 67 20 61 73 20 74 68 | 65 20 74 6f 74 61 6c 20 |ng as th|e total |
|000018a0| 76 65 72 74 69 63 6c 65 | 20 69 73 20 6c 65 73 73 |verticle| is less|
|000018b0| 20 74 68 61 6e 20 74 68 | 65 20 74 6f 74 61 6c 20 | than th|e total |
|000018c0| 6e 65 65 64 65 64 0d 27 | 6e 20 6e 65 65 64 73 20 |needed.'|n needs |
|000018d0| 74 6f 20 62 65 20 72 65 | 66 69 6e 65 64 20 74 6f |to be re|fined to|
|000018e0| 20 64 65 74 65 72 6d 69 | 6e 65 20 6f 66 66 73 65 | determi|ne offse|
|000018f0| 74 20 6f 66 20 6c 61 73 | 74 20 6c 69 6e 65 0d 69 |t of las|t line.i|
|00001900| 66 20 74 76 65 72 74 20 | 3d 20 30 20 74 68 65 6e |f tvert |= 0 then|
|00001910| 20 6e 20 3d 20 30 20 65 | 6c 73 65 20 6e 20 3d 20 | n = 0 e|lse n = |
|00001920| 31 30 27 69 66 20 74 68 | 69 73 20 69 73 20 74 68 |10'if th|is is th|
|00001930| 65 20 66 69 72 73 74 20 | 70 61 67 65 20 6e 6f 20 |e first |page no |
|00001940| 73 63 72 6f 6c 6c 20 69 | 73 20 6e 65 65 64 65 64 |scroll i|s needed|
|00001950| 0d 6d 70 32 2e 76 25 20 | 3d 20 74 76 65 72 74 20 |.mp2.v% |= tvert |
|00001960| 2d 20 6e 27 6f 74 68 65 | 72 77 69 73 65 20 63 61 |- n'othe|rwise ca|
|00001970| 6c 63 75 6c 61 74 65 20 | 74 68 65 20 74 6f 74 61 |lculate |the tota|
|00001980| 6c 20 76 65 72 74 69 63 | 6c 65 20 73 63 72 6f 6c |l vertic|le scrol|
|00001990| 6c 0d 65 72 72 20 3d 20 | 46 4e 20 48 52 53 63 72 |l.err = |FN HRScr|
|000019a0| 6f 6c 6c 54 6f 4c 6f 63 | 61 74 69 6f 6e 20 28 48 |ollToLoc|ation (H|
|000019b0| 52 72 65 66 2c 40 6d 70 | 32 29 27 73 65 74 20 74 |Rref,@mp|2)'set t|
|000019c0| 68 65 20 73 63 72 6f 6c | 6c 20 62 61 72 20 74 6f |he scrol|l bar to|
|000019d0| 20 74 68 65 20 62 6f 74 | 74 6f 6d 20 6f 66 20 74 | the bot|tom of t|
|000019e0| 68 65 20 70 72 65 76 69 | 6f 75 73 20 70 61 67 65 |he previ|ous page|
|000019f0| 20 6d 69 6e 75 73 20 74 | 68 65 20 6f 66 66 73 65 | minus t|he offse|
|00001a00| 74 0d 72 67 6e 20 3d 20 | 66 6e 20 4e 65 77 52 67 |t.rgn = |fn NewRg|
|00001a10| 6e 27 63 72 65 61 74 65 | 20 61 20 6e 65 77 20 65 |n'create| a new e|
|00001a20| 6d 70 74 79 20 72 65 67 | 69 6f 6e 0d 6c 6f 6e 67 |mpty reg|ion.long|
|00001a30| 20 69 66 20 72 67 6e 0d | 52 65 63 74 52 67 6e 28 | if rgn.|RectRgn(|
|00001a40| 72 67 6e 2c 40 72 65 6e | 64 65 72 52 65 63 74 29 |rgn,@ren|derRect)|
|00001a50| 27 63 72 65 61 74 65 20 | 61 20 72 65 67 69 6f 6e |'create |a region|
|00001a60| 20 66 72 6f 6d 20 74 68 | 65 20 72 65 6e 64 65 72 | from th|e render|
|00001a70| 69 6e 67 20 72 65 63 74 | 61 6e 67 6c 65 20 0d 52 |ing rect|angle .R|
|00001a80| 6f 75 74 65 20 5f 74 6f | 50 72 69 6e 74 65 72 27 |oute _to|Printer'|
|00001a90| 74 65 6c 6c 20 74 68 65 | 20 73 79 73 74 65 6d 20 |tell the| system |
|00001aa0| 74 6f 20 72 6f 75 74 65 | 20 74 6f 20 74 68 65 20 |to route| to the |
|00001ab0| 70 72 69 6e 74 65 72 0d | 67 65 74 70 6f 72 74 28 |printer.|getport(|
|00001ac0| 50 6f 72 74 29 27 64 65 | 74 65 72 6d 69 6e 65 20 |Port)'de|termine |
|00001ad0| 74 68 65 20 70 72 69 6e | 74 65 72 20 70 6f 72 74 |the prin|ter port|
|00001ae0| 0d 65 72 72 20 3d 20 66 | 6e 20 48 52 44 72 61 77 |.err = f|n HRDraw|
|00001af0| 49 6e 50 6f 72 74 28 48 | 52 72 65 66 2c 72 67 6e |InPort(H|Rref,rgn|
|00001b00| 2c 50 6f 72 74 29 27 64 | 72 61 77 20 74 68 65 20 |,Port)'d|raw the |
|00001b10| 72 65 66 65 72 65 6e 63 | 65 20 75 73 69 6e 67 20 |referenc|e using |
|00001b20| 74 68 65 20 72 65 67 69 | 6f 6e 20 61 6e 64 20 70 |the regi|on and p|
|00001b30| 72 69 6e 74 65 72 20 70 | 6f 72 74 0d 44 69 73 70 |rinter p|ort.Disp|
|00001b40| 6f 73 65 52 67 6e 28 72 | 67 6e 29 27 64 69 73 70 |oseRgn(r|gn)'disp|
|00001b50| 6f 73 65 20 6f 66 20 74 | 68 65 20 72 65 67 69 6f |ose of t|he regio|
|00001b60| 6e 0d 63 6c 65 61 72 20 | 6c 70 72 69 6e 74 27 63 |n.clear |lprint'c|
|00001b70| 6c 65 61 72 20 74 68 65 | 20 6c 70 72 69 6e 74 20 |lear the| lprint |
|00001b80| 66 6f 72 20 74 68 69 73 | 20 70 61 67 65 0d 65 6e |for this| page.en|
|00001b90| 64 20 69 66 0d 74 76 65 | 72 74 20 3d 20 74 76 65 |d if.tve|rt = tve|
|00001ba0| 72 74 20 2b 20 50 61 67 | 65 48 74 27 61 64 64 20 |rt + Pag|eHt'add |
|00001bb0| 61 20 70 61 67 65 20 68 | 65 69 67 68 74 20 74 6f |a page h|eight to|
|00001bc0| 20 74 68 65 20 74 6f 74 | 61 6c 20 76 65 72 74 69 | the tot|al verti|
|00001bd0| 63 6c 65 0d 77 65 6e 64 | 0d 65 72 72 20 3d 20 66 |cle.wend|.err = f|
|00001be0| 6e 20 48 52 44 69 73 70 | 6f 73 65 52 65 66 65 72 |n HRDisp|oseRefer|
|00001bf0| 65 6e 63 65 28 48 52 72 | 65 66 29 27 64 69 73 70 |ence(HRr|ef)'disp|
|00001c00| 6f 73 65 20 6f 66 20 67 | 6c 6f 62 61 6c 20 72 65 |ose of g|lobal re|
|00001c10| 66 0d 63 6c 6f 73 65 20 | 6c 70 72 69 6e 74 27 69 |f.close |lprint'i|
|00001c20| 6d 6d 65 64 69 61 74 65 | 6c 79 20 63 6c 6f 73 65 |mmediate|ly close|
|00001c30| 20 74 68 65 20 70 72 69 | 6e 74 69 6e 67 0d 72 6f | the pri|nting.ro|
|00001c40| 75 74 65 20 5f 74 6f 73 | 63 72 65 65 6e 27 72 6f |ute _tos|creen'ro|
|00001c50| 75 74 65 20 62 61 63 6b | 20 74 6f 20 73 63 72 65 |ute back| to scre|
|00001c60| 65 6e 0d 45 4e 44 20 46 | 4e 0d 0d 0d 0d 43 4c 45 |en.END F|N....CLE|
|00001c70| 41 52 20 4c 4f 43 41 4c | 0d 44 49 4d 20 54 68 65 |AR LOCAL|.DIM The|
|00001c80| 52 65 73 70 6f 6e 73 65 | 2c 6c 6f 6f 70 2c 4e 75 |Response|,loop,Nu|
|00001c90| 6d 54 6f 70 69 63 73 2c | 68 65 6c 70 56 52 65 66 |mTopics,|helpVRef|
|00001ca0| 2c 65 72 72 0d 44 49 4d | 20 61 73 20 45 76 65 6e |,err.DIM| as Even|
|00001cb0| 74 52 65 63 6f 72 64 20 | 65 76 6e 74 0d 64 69 6d |tRecord |evnt.dim|
|00001cc0| 20 73 70 65 63 20 61 73 | 20 66 73 73 70 65 63 0d | spec as| fsspec.|
|00001cd0| 64 69 6d 20 40 46 72 6f | 6d 50 61 67 65 20 61 73 |dim @Fro|mPage as|
|00001ce0| 20 55 49 6e 74 33 32 0d | 44 69 6d 20 40 54 6f 50 | UInt32.|Dim @ToP|
|00001cf0| 61 67 65 20 61 73 20 55 | 49 6e 74 33 32 0d 64 69 |age as U|Int32.di|
|00001d00| 6d 20 40 77 20 61 73 20 | 57 69 6e 64 6f 77 52 65 |m @w as |WindowRe|
|00001d10| 66 0d 64 69 6d 20 61 73 | 20 43 46 53 74 72 69 6e |f.dim as| CFStrin|
|00001d20| 67 52 65 66 20 20 40 44 | 6f 63 54 69 74 6c 65 0d |gRef  @D|ocTitle.|
|00001d30| 64 69 6d 20 74 65 6d 70 | 24 0d 64 69 6d 20 40 6f |dim temp|$.dim @o|
|00001d40| 72 69 65 6e 74 61 74 69 | 6f 6e 20 61 73 20 55 49 |rientati|on as UI|
|00001d50| 6e 74 31 36 0d 27 7e 27 | 32 0d 4c 4f 43 41 4c 20 |nt16.'~'|2.LOCAL |
|00001d60| 46 4e 20 43 61 6c 6c 50 | 72 69 6e 74 52 6f 75 74 |FN CallP|rintRout|
|00001d70| 69 6e 65 0d 27 7e 27 32 | 0d 54 68 65 52 65 73 70 |ine.'~'2|.TheResp|
|00001d80| 6f 6e 73 65 20 3d 20 46 | 4e 20 41 4c 45 52 54 28 |onse = F|N ALERT(|
|00001d90| 32 32 32 32 2c 30 29 0d | 49 46 20 54 68 65 52 65 |2222,0).|IF TheRe|
|00001da0| 73 70 6f 6e 73 65 20 3d | 20 31 20 54 48 45 4e 20 |sponse =| 1 THEN |
|00001db0| 45 58 49 54 20 46 4e 0d | 4e 75 6d 54 6f 70 69 63 |EXIT FN.|NumTopic|
|00001dc0| 73 20 3d 20 46 4e 20 63 | 6f 75 6e 74 53 74 72 28 |s = FN c|ountStr(|
|00001dd0| 5f 48 65 6c 70 4c 69 73 | 74 53 54 52 29 0d 44 45 |_HelpLis|tSTR).DE|
|00001de0| 46 20 50 41 47 45 0d 65 | 72 72 20 3d 20 66 6e 20 |F PAGE.e|rr = fn |
|00001df0| 50 4d 53 65 74 46 69 72 | 73 74 50 61 67 65 28 67 |PMSetFir|stPage(g|
|00001e00| 46 42 50 72 69 6e 74 53 | 65 74 74 69 6e 67 73 2c |FBPrintS|ettings,|
|00001e10| 31 2c 20 5f 66 61 6c 73 | 65 29 20 27 20 64 75 6e |1, _fals|e) ' dun|
|00001e20| 6e 6f 20 77 68 79 20 69 | 74 20 69 73 20 5f 66 61 |no why i|t is _fa|
|00001e30| 6c 73 65 20 2f 20 6d 61 | 79 62 65 20 5f 74 72 75 |lse / ma|ybe _tru|
|00001e40| 65 20 77 6f 72 6b 73 20 | 74 6f 6f 0d 65 72 72 20 |e works |too.err |
|00001e50| 3d 20 66 6e 20 50 4d 53 | 65 74 4c 61 73 74 50 61 |= fn PMS|etLastPa|
|00001e60| 67 65 20 28 67 46 42 50 | 72 69 6e 74 53 65 74 74 |ge (gFBP|rintSett|
|00001e70| 69 6e 67 73 20 2c 4e 75 | 6d 54 6f 70 69 63 73 2c |ings ,Nu|mTopics,|
|00001e80| 20 5f 66 61 6c 73 65 29 | 0d 65 72 72 20 3d 20 66 | _false)|.err = f|
|00001e90| 6e 20 50 4d 53 65 74 50 | 61 67 65 52 61 6e 67 65 |n PMSetP|ageRange|
|00001ea0| 28 67 46 42 50 72 69 6e | 74 53 65 74 74 69 6e 67 |(gFBPrin|tSetting|
|00001eb0| 73 2c 31 2c 4e 75 6d 54 | 6f 70 69 63 73 29 0d 65 |s,1,NumT|opics).e|
|00001ec0| 72 72 20 3d 20 66 6e 20 | 50 4d 47 65 74 4f 72 69 |rr = fn |PMGetOri|
|00001ed0| 65 6e 74 61 74 69 6f 6e | 28 67 46 42 50 61 67 65 |entation|(gFBPage|
|00001ee0| 46 6f 72 6d 61 74 2c 40 | 6f 72 69 65 6e 74 61 74 |Format,@|orientat|
|00001ef0| 69 6f 6e 29 0d 4c 4f 4e | 47 20 49 46 20 4e 4f 54 |ion).LON|G IF NOT|
|00001f00| 20 50 52 43 41 4e 43 45 | 4c 0d 44 45 46 20 4c 50 | PRCANCE|L.DEF LP|
|00001f10| 52 49 4e 54 0d 65 72 72 | 20 3d 20 46 6e 20 50 4d |RINT.err| = Fn PM|
|00001f20| 47 65 74 46 69 72 73 74 | 50 61 67 65 28 67 46 42 |GetFirst|Page(gFB|
|00001f30| 50 72 69 6e 74 53 65 74 | 74 69 6e 67 73 2c 46 72 |PrintSet|tings,Fr|
|00001f40| 6f 6d 50 61 67 65 29 0d | 65 72 72 20 3d 20 46 6e |omPage).|err = Fn|
|00001f50| 20 50 4d 47 65 74 4c 61 | 73 74 50 61 67 65 20 28 | PMGetLa|stPage (|
|00001f60| 67 46 42 50 72 69 6e 74 | 53 65 74 74 69 6e 67 73 |gFBPrint|Settings|
|00001f70| 2c 54 6f 50 61 67 65 20 | 29 0d 4c 4f 4e 47 20 49 |,ToPage |).LONG I|
|00001f80| 46 20 4e 4f 54 20 50 52 | 43 41 4e 43 45 4c 0d 68 |F NOT PR|CANCEL.h|
|00001f90| 65 6c 70 56 52 65 66 20 | 3d 20 66 6f 6c 64 65 72 |elpVRef |= folder|
|00001fa0| 28 22 48 65 6c 70 22 2c | 53 59 53 54 45 4d 28 5f |("Help",|SYSTEM(_|
|00001fb0| 61 70 6c 76 6f 6c 29 29 | 27 67 65 74 20 74 68 65 |aplvol))|'get the|
|00001fc0| 20 66 6f 6c 64 65 72 20 | 6c 6f 63 61 74 69 6f 6e | folder |location|
|00001fd0| 20 66 6f 72 20 74 68 65 | 20 66 69 6c 65 20 74 6f | for the| file to|
|00001fe0| 20 62 65 20 75 73 65 64 | 0d 4c 4f 4e 47 20 49 46 | be used|.LONG IF|
|00001ff0| 20 46 72 6f 6d 50 61 67 | 65 20 3c 3e 20 30 20 61 | FromPag|e <> 0 a|
|00002000| 6e 64 20 46 72 6f 6d 50 | 61 67 65 20 3c 3d 20 54 |nd FromP|age <= T|
|00002010| 6f 50 61 67 65 20 61 6e | 64 20 54 6f 50 61 67 65 |oPage an|d ToPage|
|00002020| 20 3c 3e 20 30 20 61 6e | 64 20 46 72 6f 6d 50 61 | <> 0 an|d FromPa|
|00002030| 67 65 20 3c 3d 20 4e 75 | 6d 54 6f 70 69 63 73 20 |ge <= Nu|mTopics |
|00002040| 61 6e 64 20 54 6f 50 61 | 67 65 20 3c 3d 20 4e 75 |and ToPa|ge <= Nu|
|00002050| 6d 54 6f 70 69 63 73 0d | 57 49 4e 44 4f 57 28 5f |mTopics.|WINDOW(_|
|00002060| 4d 79 43 61 6c 65 6e 64 | 61 72 48 65 6c 70 32 57 |MyCalend|arHelp2W|
|00002070| 6e 64 29 0d 66 6f 72 20 | 6c 6f 6f 70 20 3d 20 46 |nd).for |loop = F|
|00002080| 72 6f 6d 50 61 67 65 20 | 74 6f 20 54 6f 50 61 67 |romPage |to ToPag|
|00002090| 65 0d 67 54 6f 70 69 63 | 24 20 3d 20 53 54 52 23 |e.gTopic|$ = STR#|
|000020a0| 28 5f 48 65 6c 70 4c 69 | 73 74 53 54 52 2c 6c 6f |(_HelpLi|stSTR,lo|
|000020b0| 6f 70 29 0d 57 49 4e 44 | 4f 57 28 5f 4d 79 43 61 |op).WIND|OW(_MyCa|
|000020c0| 6c 65 6e 64 61 72 48 65 | 6c 70 32 57 6e 64 29 0d |lendarHe|lp2Wnd).|
|000020d0| 66 6e 20 46 42 42 65 67 | 69 6e 53 65 73 73 69 6f |fn FBBeg|inSessio|
|000020e0| 6e 0d 44 6f 63 54 69 74 | 6c 65 20 3d 20 66 6e 20 |n.DocTit|le = fn |
|000020f0| 43 46 53 74 72 69 6e 67 | 43 72 65 61 74 65 57 69 |CFString|CreateWi|
|00002100| 74 68 50 61 73 63 61 6c | 53 74 72 69 6e 67 28 30 |thPascal|String(0|
|00002110| 2c 67 54 6f 70 69 63 24 | 2c 5f 6b 43 46 53 74 72 |,gTopic$|,_kCFStr|
|00002120| 69 6e 67 45 6e 63 6f 64 | 69 6e 67 41 53 43 49 49 |ingEncod|ingASCII|
|00002130| 29 0d 65 72 72 20 3d 20 | 66 6e 20 50 4d 53 65 74 |).err = |fn PMSet|
|00002140| 4a 6f 62 4e 61 6d 65 43 | 46 53 74 72 69 6e 67 28 |JobNameC|FString(|
|00002150| 67 46 42 50 72 69 6e 74 | 53 65 74 74 69 6e 67 73 |gFBPrint|Settings|
|00002160| 2c 20 44 6f 63 54 69 74 | 6c 65 29 0d 65 72 72 20 |, DocTit|le).err |
|00002170| 3d 20 66 6e 20 50 4d 53 | 65 74 4f 72 69 65 6e 74 |= fn PMS|etOrient|
|00002180| 61 74 69 6f 6e 20 28 67 | 46 42 50 61 67 65 46 6f |ation (g|FBPageFo|
|00002190| 72 6d 61 74 2c 6f 72 69 | 65 6e 74 61 74 69 6f 6e |rmat,ori|entation|
|000021a0| 2c 5f 66 61 6c 73 65 29 | 0d 46 4e 20 50 72 69 6e |,_false)|.FN Prin|
|000021b0| 74 48 74 6d 6c 28 67 54 | 6f 70 69 63 24 2c 68 65 |tHtml(gT|opic$,he|
|000021c0| 6c 70 56 52 65 66 29 0d | 43 46 52 65 6c 65 61 73 |lpVRef).|CFReleas|
|000021d0| 65 28 44 6f 63 54 69 74 | 6c 65 29 0d 6e 65 78 74 |e(DocTit|le).next|
|000021e0| 0d 66 6e 20 70 47 43 6c | 6f 73 65 28 5f 4d 79 43 |.fn pGCl|ose(_MyC|
|000021f0| 61 6c 65 6e 64 61 72 48 | 65 6c 70 32 57 6e 64 29 |alendarH|elp2Wnd)|
|00002200| 0d 67 54 6f 70 69 63 24 | 20 3d 20 53 54 52 23 28 |.gTopic$| = STR#(|
|00002210| 5f 48 65 6c 70 4c 69 73 | 74 53 54 52 2c 31 29 0d |_HelpLis|tSTR,1).|
|00002220| 46 4e 20 42 75 69 6c 64 | 48 65 6c 70 57 69 6e 64 |FN Build|HelpWind|
|00002230| 6f 77 0d 58 45 4c 53 45 | 0d 54 68 65 52 65 73 70 |ow.XELSE|.TheResp|
|00002240| 6f 6e 73 65 20 3d 20 46 | 4e 20 41 4c 45 52 54 28 |onse = F|N ALERT(|
|00002250| 32 32 32 33 2c 30 29 0d | 45 4e 44 20 49 46 0d 45 |2223,0).|END IF.E|
|00002260| 4e 44 20 49 46 0d 45 4e | 44 20 49 46 0d 45 4e 44 |ND IF.EN|D IF.END|
|00002270| 20 46 4e 0d 0d 0d 63 6c | 65 61 72 20 6c 6f 63 61 | FN...cl|ear loca|
|00002280| 6c 0d 64 69 6d 20 6c 6f | 6f 70 2c 67 65 72 72 2c |l.dim lo|op,gerr,|
|00002290| 68 65 6c 70 56 72 65 66 | 0d 27 7e 27 31 0d 6c 6f |helpVref|.'~'1.lo|
|000022a0| 63 61 6c 20 66 6e 20 53 | 69 7a 65 48 65 6c 70 57 |cal fn S|izeHelpW|
|000022b0| 6e 64 0d 27 7e 27 31 0d | 46 4f 52 20 6c 6f 6f 70 |nd.'~'1.|FOR loop|
|000022c0| 20 3d 20 31 20 74 6f 20 | 32 0d 46 4e 20 70 47 67 | = 1 to |2.FN pGg|
|000022d0| 65 74 4f 62 6a 28 5f 4d | 79 43 61 6c 65 6e 64 61 |etObj(_M|yCalenda|
|000022e0| 72 48 65 6c 70 32 57 6e | 64 2c 6c 6f 6f 70 29 0d |rHelp2Wn|d,loop).|
|000022f0| 67 4f 62 6a 53 65 6c 20 | 3d 20 6c 6f 6f 70 0d 67 |gObjSel |= loop.g|
|00002300| 4f 62 6a 42 20 3d 20 57 | 49 4e 44 4f 57 28 5f 68 |ObjB = W|INDOW(_h|
|00002310| 65 69 67 68 74 29 2d 20 | 36 0d 46 4e 20 70 47 70 |eight)- |6.FN pGp|
|00002320| 75 74 4f 62 6a 28 5f 4d | 79 43 61 6c 65 6e 64 61 |utObj(_M|yCalenda|
|00002330| 72 48 65 6c 70 32 57 6e | 64 2c 6c 6f 6f 70 29 0d |rHelp2Wn|d,loop).|
|00002340| 4e 45 58 54 0d 75 70 64 | 61 74 65 72 65 73 66 69 |NEXT.upd|ateresfi|
|00002350| 6c 65 28 67 52 65 73 52 | 65 66 29 0d 6c 6f 6f 70 |le(gResR|ef).loop|
|00002360| 20 3d 20 48 65 6c 70 4c | 69 73 74 2e 6e 65 77 73 | = HelpL|ist.news|
|00002370| 65 6c 65 63 74 0d 46 4e | 20 49 6e 69 74 48 65 6c |elect.FN| InitHel|
|00002380| 70 54 6f 70 69 63 4c 69 | 73 74 0d 48 65 6c 70 4c |pTopicLi|st.HelpL|
|00002390| 69 73 74 2e 6e 65 77 73 | 65 6c 65 63 74 20 3d 20 |ist.news|elect = |
|000023a0| 6c 6f 6f 70 0d 66 6e 20 | 50 47 44 52 41 57 43 4f |loop.fn |PGDRAWCO|
|000023b0| 4e 54 52 4f 4c 53 0d 0d | 0d 67 65 72 72 20 3d 20 |NTROLS..|.gerr = |
|000023c0| 66 6e 20 48 52 44 65 61 | 63 74 69 76 61 74 65 28 |fn HRDea|ctivate(|
|000023d0| 67 48 52 72 65 66 29 0d | 67 65 72 72 20 3d 20 66 |gHRref).|gerr = f|
|000023e0| 6e 20 48 52 44 69 73 70 | 6f 73 65 52 65 66 65 72 |n HRDisp|oseRefer|
|000023f0| 65 6e 63 65 28 67 48 52 | 72 65 66 29 0d 67 48 52 |ence(gHR|ref).gHR|
|00002400| 72 65 66 20 3d 20 30 0d | 66 6e 20 48 54 4d 4c 42 |ref = 0.|fn HTMLB|
|00002410| 65 67 69 6e 0d 66 6e 20 | 73 65 74 48 54 4d 4c 72 |egin.fn |setHTMLr|
|00002420| 65 63 74 0d 68 65 6c 70 | 56 52 65 66 20 3d 20 66 |ect.help|VRef = f|
|00002430| 6f 6c 64 65 72 28 22 48 | 65 6c 70 22 2c 53 59 53 |older("H|elp",SYS|
|00002440| 54 45 4d 28 5f 61 70 6c | 76 6f 6c 29 29 0d 67 65 |TEM(_apl|vol)).ge|
|00002450| 72 72 20 3d 20 66 6e 20 | 48 52 46 6f 72 63 65 51 |rr = fn |HRForceQ|
|00002460| 75 69 63 6b 64 72 61 77 | 28 67 48 52 72 65 66 2c |uickdraw|(gHRref,|
|00002470| 5f 66 61 6c 73 65 29 27 | 66 6f 72 63 65 20 71 75 |_false)'|force qu|
|00002480| 69 63 6b 20 64 72 61 77 | 20 64 72 61 77 69 6e 67 |ick draw| drawing|
|00002490| 20 66 6f 72 20 74 68 69 | 73 20 70 6f 72 74 20 64 | for thi|s port d|
|000024a0| 75 65 20 74 6f 20 73 6f | 6d 65 20 70 72 69 6e 74 |ue to so|me print|
|000024b0| 65 72 73 0d 66 6e 20 48 | 54 4d 4c 47 6f 74 6f 46 |ers.fn H|TMLGotoF|
|000024c0| 69 6c 65 28 67 48 52 72 | 65 66 2c 67 54 6f 70 69 |ile(gHRr|ef,gTopi|
|000024d0| 63 24 2c 68 65 6c 70 56 | 52 65 66 29 0d 67 65 72 |c$,helpV|Ref).ger|
|000024e0| 72 20 3d 20 66 6e 20 48 | 52 61 63 74 69 76 61 74 |r = fn H|Ractivat|
|000024f0| 65 28 67 48 52 72 65 66 | 29 0d 48 52 53 63 72 65 |e(gHRref|).HRScre|
|00002500| 65 6e 43 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 43 |enConfig|urationC|
|00002510| 68 61 6e 67 65 64 0d 65 | 6e 64 20 66 6e 0d 0d 0d |hanged.e|nd fn...|
|00002520| 0d 63 6c 65 61 72 20 6c | 6f 63 61 6c 0d 64 69 6d |.clear l|ocal.dim|
|00002530| 20 67 65 72 72 2c 6e 65 | 77 78 0d 44 49 4d 20 61 | gerr,ne|wx.DIM a|
|00002540| 73 20 45 76 65 6e 74 52 | 65 63 6f 72 64 20 65 76 |s EventR|ecord ev|
|00002550| 6e 74 0d 27 7e 27 31 0d | 6c 6f 63 61 6c 20 66 6e |nt.'~'1.|local fn|
|00002560| 20 52 65 73 69 7a 65 4c | 69 73 74 41 72 65 61 0d | ResizeL|istArea.|
|00002570| 27 7e 27 31 0d 67 4f 62 | 6a 53 65 6c 42 20 3d 20 |'~'1.gOb|jSelB = |
|00002580| 57 49 4e 44 4f 57 28 5f | 68 65 69 67 68 74 29 2d |WINDOW(_|height)-|
|00002590| 34 0d 57 48 49 4c 45 20 | 46 4e 20 42 55 54 54 4f |4.WHILE |FN BUTTO|
|000025a0| 4e 0d 67 65 74 6d 6f 75 | 73 65 28 67 4d 6f 75 73 |N.getmou|se(gMous|
|000025b0| 65 59 29 0d 6c 6f 6e 67 | 20 69 66 20 67 4d 6f 75 |eY).long| if gMou|
|000025c0| 73 65 58 20 3e 20 39 30 | 20 61 6e 64 20 67 4d 6f |seX > 90| and gMo|
|000025d0| 75 73 65 58 20 3c 20 34 | 30 30 0d 73 65 74 72 65 |useX < 4|00.setre|
|000025e0| 63 74 28 67 4f 62 6a 53 | 65 6c 54 2c 67 4d 6f 75 |ct(gObjS|elT,gMou|
|000025f0| 73 65 58 20 2d 20 38 2c | 67 4f 62 6a 53 65 6c 54 |seX - 8,|gObjSelT|
|00002600| 2c 67 4d 6f 75 73 65 58 | 20 2b 20 38 2c 57 49 4e |,gMouseX| + 8,WIN|
|00002610| 44 4f 57 28 5f 68 65 69 | 67 68 74 29 2d 34 29 0d |DOW(_hei|ght)-4).|
|00002620| 67 65 72 72 20 3d 20 46 | 4e 20 45 76 65 6e 74 41 |gerr = F|N EventA|
|00002630| 76 61 69 6c 28 30 2c 65 | 76 6e 74 29 27 61 6c 6c |vail(0,e|vnt)'all|
|00002640| 6f 77 73 20 74 69 6d 65 | 20 66 6f 72 20 73 79 73 |ows time| for sys|
|00002650| 74 65 6d 20 74 61 73 6b | 73 20 61 6e 64 20 73 74 |tem task|s and st|
|00002660| 6f 70 20 74 68 65 20 73 | 70 69 6e 6e 69 6e 67 20 |op the s|pinning |
|00002670| 63 75 72 73 6f 72 20 69 | 6e 20 4f 53 58 0d 6e 65 |cursor i|n OSX.ne|
|00002680| 77 78 20 3d 20 67 4f 62 | 6a 53 65 6c 4c 0d 45 4e |wx = gOb|jSelL.EN|
|00002690| 44 20 49 46 0d 57 45 4e | 44 0d 46 4e 20 70 47 67 |D IF.WEN|D.FN pGg|
|000026a0| 65 74 4f 62 6a 28 5f 4d | 79 43 61 6c 65 6e 64 61 |etObj(_M|yCalenda|
|000026b0| 72 48 65 6c 70 32 57 6e | 64 2c 31 29 0d 67 4f 62 |rHelp2Wn|d,1).gOb|
|000026c0| 6a 52 20 3d 20 6e 65 77 | 78 0d 46 4e 20 70 47 70 |jR = new|x.FN pGp|
|000026d0| 75 74 4f 62 6a 28 5f 4d | 79 43 61 6c 65 6e 64 61 |utObj(_M|yCalenda|
|000026e0| 72 48 65 6c 70 32 57 6e | 64 2c 31 29 0d 0d 46 4e |rHelp2Wn|d,1)..FN|
|000026f0| 20 70 47 67 65 74 4f 62 | 6a 28 5f 4d 79 43 61 6c | pGgetOb|j(_MyCal|
|00002700| 65 6e 64 61 72 48 65 6c | 70 32 57 6e 64 2c 32 29 |endarHel|p2Wnd,2)|
|00002710| 0d 67 4f 62 6a 4c 20 3d | 20 6e 65 77 78 20 2b 20 |.gObjL =| newx + |
|00002720| 31 36 0d 67 4f 62 6a 53 | 65 6c 4c 20 3d 20 67 4f |16.gObjS|elL = gO|
|00002730| 62 6a 4c 0d 46 4e 20 70 | 47 70 75 74 4f 62 6a 28 |bjL.FN p|GputObj(|
|00002740| 5f 4d 79 43 61 6c 65 6e | 64 61 72 48 65 6c 70 32 |_MyCalen|darHelp2|
|00002750| 57 6e 64 2c 32 29 0d 0d | 46 4e 20 70 47 67 65 74 |Wnd,2)..|FN pGget|
|00002760| 4f 62 6a 28 5f 4d 79 43 | 61 6c 65 6e 64 61 72 48 |Obj(_MyC|alendarH|
|00002770| 65 6c 70 32 57 6e 64 2c | 5f 53 69 7a 65 54 68 65 |elp2Wnd,|_SizeThe|
|00002780| 4c 69 73 74 4f 62 6a 29 | 0d 67 4f 62 6a 4c 20 3d |ListObj)|.gObjL =|
|00002790| 20 6e 65 77 78 0d 67 4f | 62 6a 52 20 3d 20 67 4f | newx.gO|bjR = gO|
|000027a0| 62 6a 4c 20 2b 20 31 36 | 0d 67 4f 62 6a 53 65 6c |bjL + 16|.gObjSel|
|000027b0| 4c 20 3d 20 67 4f 62 6a | 4c 0d 67 4f 62 6a 53 65 |L = gObj|L.gObjSe|
|000027c0| 6c 52 20 3d 20 67 4f 62 | 6a 52 0d 46 4e 20 70 47 |lR = gOb|jR.FN pG|
|000027d0| 70 75 74 4f 62 6a 28 5f | 4d 79 43 61 6c 65 6e 64 |putObj(_|MyCalend|
|000027e0| 61 72 48 65 6c 70 32 57 | 6e 64 2c 5f 53 69 7a 65 |arHelp2W|nd,_Size|
|000027f0| 54 68 65 4c 69 73 74 4f | 62 6a 29 0d 0d 75 70 64 |TheListO|bj)..upd|
|00002800| 61 74 65 72 65 73 66 69 | 6c 65 28 67 72 65 73 52 |ateresfi|le(gresR|
|00002810| 65 66 29 0d 66 6e 20 53 | 69 7a 65 48 65 6c 70 57 |ef).fn S|izeHelpW|
|00002820| 6e 64 0d 65 6e 64 20 66 | 6e 0d 0d 0d 2f 2a 62 65 |nd.end f|n.../*be|
|00002830| 67 69 6e 20 72 65 63 6f | 72 64 20 45 76 65 6e 74 |gin reco|rd Event|
|00002840| 52 65 63 6f 72 64 0d 64 | 69 6d 20 77 68 61 74 20 |Record.d|im what |
|00002850| 20 20 20 20 20 20 20 20 | 20 61 73 20 73 68 6f 72 |        | as shor|
|00002860| 74 0d 64 69 6d 20 6d 65 | 73 73 61 67 65 20 20 20 |t.dim me|ssage   |
|00002870| 20 20 20 20 61 73 20 55 | 49 6e 74 33 32 0d 64 69 |    as U|Int32.di|
|00002880| 6d 20 77 68 65 6e 20 20 | 20 20 20 20 20 20 20 20 |m when  |        |
|00002890| 61 73 20 55 49 6e 74 33 | 32 0d 64 69 6d 20 77 68 |as UInt3|2.dim wh|
|000028a0| 65 72 65 20 20 20 20 20 | 20 20 20 20 61 73 20 70 |ere     |    as p|
|000028b0| 6f 69 6e 74 0d 64 69 6d | 20 6d 6f 64 69 66 69 65 |oint.dim| modifie|
|000028c0| 72 73 20 20 20 20 20 61 | 73 20 73 68 6f 72 74 0d |rs     a|s short.|
|000028d0| 65 6e 64 20 72 65 63 6f | 72 64 2a 2f 0d 0d 0d 22 |end reco|rd*/..."|
|000028e0| 45 6e 64 4f 66 48 54 4d | 4c 43 41 4c 22 0d 44 49 |EndOfHTM|LCAL".DI|
|000028f0| 4d 20 68 65 6c 70 56 52 | 65 66 2c 67 65 72 72 0d |M helpVR|ef,gerr.|
|00002900| 0d 64 69 6d 20 72 67 6e | 20 20 61 73 20 72 67 6e |.dim rgn|  as rgn|
|00002910| 48 61 6e 64 6c 65 0d 27 | 7e 27 3a 0d 27 7e 27 3a |Handle.'|~':.'~':|
|00002920| 0d 4c 4f 4e 47 20 49 46 | 20 77 69 6e 64 6f 77 28 |.LONG IF| window(|
|00002930| 5f 6f 75 74 70 75 74 77 | 6e 64 29 20 3d 20 5f 4d |_outputw|nd) = _M|
|00002940| 79 43 61 6c 65 6e 64 61 | 72 48 65 6c 70 32 57 6e |yCalenda|rHelp2Wn|
|00002950| 64 0d 6c 6f 6e 67 20 69 | 66 20 67 48 52 72 65 66 |d.long i|f gHRref|
|00002960| 20 0d 6c 6f 6e 67 20 69 | 66 20 46 4e 20 48 52 49 | .long i|f FN HRI|
|00002970| 73 48 52 45 76 65 6e 74 | 28 65 76 65 6e 74 29 0d |sHREvent|(event).|
|00002980| 63 61 6c 6c 20 46 6c 75 | 73 68 45 76 65 6e 74 73 |call Flu|shEvents|
|00002990| 28 5f 65 76 65 72 79 45 | 76 65 6e 74 2c 20 30 20 |(_everyE|vent, 0 |
|000029a0| 29 0d 25 20 65 76 65 6e | 74 2c 30 0d 67 4c 6f 6e |).% even|t,0.gLon|
|000029b0| 67 41 63 74 69 6f 6e 26 | 20 3d 20 30 0d 65 6e 64 |gAction&| = 0.end|
|000029c0| 20 69 66 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 | if.end |if.end i|
|000029d0| 66 0d 27 7e 27 3a 0d 27 | 7e 27 3a 0d 0d 53 45 4c |f.'~':.'|~':..SEL|
|000029e0| 45 43 54 20 67 4c 6f 6e | 67 41 63 74 69 6f 6e 26 |ECT gLon|gAction&|
|000029f0| 0d 0d 27 43 41 53 45 20 | 5f 62 74 6e 4c 6f 6e 67 |..'CASE |_btnLong|
|00002a00| 0d 43 41 53 45 20 5f 6f | 55 73 65 72 43 6c 69 63 |.CASE _o|UserClic|
|00002a10| 6b 0d 6c 6f 6e 67 20 69 | 66 20 67 4f 62 6a 55 73 |k.long i|f gObjUs|
|00002a20| 65 72 54 70 26 20 3d 20 | 5f 22 73 7a 65 65 22 0d |erTp& = |_"szee".|
|00002a30| 46 4e 20 52 65 73 69 7a | 65 4c 69 73 74 41 72 65 |FN Resiz|eListAre|
|00002a40| 61 0d 45 4e 44 20 49 46 | 0d 0d 4c 4f 4e 47 20 49 |a.END IF|..LONG I|
|00002a50| 46 20 67 4f 62 6a 55 73 | 65 72 54 70 26 20 3d 20 |F gObjUs|erTp& = |
|00002a60| 5f 22 4d 49 43 4e 22 20 | 61 6e 64 20 67 57 68 69 |_"MICN" |and gWhi|
|00002a70| 63 68 43 6c 61 73 73 20 | 3d 20 5f 4d 79 43 61 6c |chClass |= _MyCal|
|00002a80| 65 6e 64 61 72 48 65 6c | 70 32 57 6e 64 0d 53 45 |endarHel|p2Wnd.SE|
|00002a90| 4c 45 43 54 20 67 57 68 | 69 63 68 4f 62 6a 45 6c |LECT gWh|ichObjEl|
|00002aa0| 65 6d 0d 43 41 53 45 20 | 34 0d 48 65 6c 70 4c 69 |em.CASE |4.HelpLi|
|00002ab0| 73 74 2e 6e 65 77 73 65 | 6c 65 63 74 20 3d 20 31 |st.newse|lect = 1|
|00002ac0| 0d 67 65 72 72 20 3d 20 | 66 6e 20 48 52 44 65 61 |.gerr = |fn HRDea|
|00002ad0| 63 74 69 76 61 74 65 28 | 67 48 52 72 65 66 29 0d |ctivate(|gHRref).|
|00002ae0| 67 65 72 72 20 3d 20 66 | 6e 20 48 52 44 69 73 70 |gerr = f|n HRDisp|
|00002af0| 6f 73 65 52 65 66 65 72 | 65 6e 63 65 28 67 48 52 |oseRefer|ence(gHR|
|00002b00| 72 65 66 29 0d 67 48 52 | 72 65 66 20 3d 20 30 0d |ref).gHR|ref = 0.|
|00002b10| 66 6e 20 48 54 4d 4c 42 | 65 67 69 6e 0d 68 65 6c |fn HTMLB|egin.hel|
|00002b20| 70 56 52 65 66 20 3d 20 | 66 6f 6c 64 65 72 28 22 |pVRef = |folder("|
|00002b30| 48 65 6c 70 22 2c 53 59 | 53 54 45 4d 28 5f 61 70 |Help",SY|STEM(_ap|
|00002b40| 6c 76 6f 6c 29 29 0d 67 | 54 6f 70 69 63 24 20 3d |lvol)).g|Topic$ =|
|00002b50| 20 22 31 20 49 6e 74 72 | 6f 64 75 63 74 69 6f 6e | "1 Intr|oduction|
|00002b60| 22 0d 67 65 72 72 20 3d | 20 66 6e 20 48 52 46 6f |".gerr =| fn HRFo|
|00002b70| 72 63 65 51 75 69 63 6b | 64 72 61 77 28 67 48 52 |rceQuick|draw(gHR|
|00002b80| 72 65 66 2c 5f 66 61 6c | 73 65 29 27 66 6f 72 63 |ref,_fal|se)'forc|
|00002b90| 65 20 71 75 69 63 6b 20 | 64 72 61 77 20 64 72 61 |e quick |draw dra|
|00002ba0| 77 69 6e 67 20 66 6f 72 | 20 74 68 69 73 20 70 6f |wing for| this po|
|00002bb0| 72 74 20 64 75 65 20 74 | 6f 20 73 6f 6d 65 20 70 |rt due t|o some p|
|00002bc0| 72 69 6e 74 65 72 73 0d | 66 6e 20 48 54 4d 4c 47 |rinters.|fn HTMLG|
|00002bd0| 6f 74 6f 46 69 6c 65 28 | 67 48 52 72 65 66 2c 67 |otoFile(|gHRref,g|
|00002be0| 54 6f 70 69 63 24 2c 68 | 65 6c 70 56 52 65 66 29 |Topic$,h|elpVRef)|
|00002bf0| 0d 67 65 72 72 20 3d 20 | 66 6e 20 48 52 61 63 74 |.gerr = |fn HRact|
|00002c00| 69 76 61 74 65 28 67 48 | 52 72 65 66 29 0d 43 41 |ivate(gH|Rref).CA|
|00002c10| 53 45 20 35 0d 46 4e 20 | 43 61 6c 6c 50 72 69 6e |SE 5.FN |CallPrin|
|00002c20| 74 52 6f 75 74 69 6e 65 | 0d 43 41 53 45 20 36 0d |tRoutine|.CASE 6.|
|00002c30| 66 6e 20 70 47 43 6c 6f | 73 65 28 5f 4d 79 43 61 |fn pGClo|se(_MyCa|
|00002c40| 6c 65 6e 64 61 72 48 65 | 6c 70 32 57 6e 64 29 0d |lendarHe|lp2Wnd).|
|00002c50| 67 4b 69 73 73 6f 66 44 | 65 61 74 68 20 3d 20 5f |gKissofD|eath = _|
|00002c60| 74 72 75 65 0d 45 4e 44 | 20 53 45 4c 45 43 54 0d |true.END| SELECT.|
|00002c70| 45 4e 44 20 49 46 0d 0d | 4c 4f 4e 47 20 49 46 20 |END IF..|LONG IF |
|00002c80| 67 4f 62 6a 55 73 65 72 | 54 70 26 20 3d 20 5f 22 |gObjUser|Tp& = _"|
|00002c90| 4c 69 73 74 22 0d 4c 4f | 4e 47 20 49 46 20 57 49 |List".LO|NG IF WI|
|00002ca0| 4e 44 4f 57 28 5f 6f 75 | 74 70 75 74 57 6e 64 29 |NDOW(_ou|tputWnd)|
|00002cb0| 20 3d 20 5f 4d 79 43 61 | 6c 65 6e 64 61 72 48 65 | = _MyCa|lendarHe|
|00002cc0| 6c 70 32 57 6e 64 0d 67 | 54 6f 70 69 63 24 20 3d |lp2Wnd.g|Topic$ =|
|00002cd0| 20 46 4e 20 44 6f 4c 69 | 73 74 53 65 6c 65 63 74 | FN DoLi|stSelect|
|00002ce0| 6f 6e 24 28 48 65 6c 70 | 4c 69 73 74 29 0d 67 65 |on$(Help|List).ge|
|00002cf0| 72 72 20 3d 20 66 6e 20 | 48 52 44 65 61 63 74 69 |rr = fn |HRDeacti|
|00002d00| 76 61 74 65 28 67 48 52 | 72 65 66 29 0d 67 65 72 |vate(gHR|ref).ger|
|00002d10| 72 20 3d 20 66 6e 20 48 | 52 44 69 73 70 6f 73 65 |r = fn H|RDispose|
|00002d20| 52 65 66 65 72 65 6e 63 | 65 28 67 48 52 72 65 66 |Referenc|e(gHRref|
|00002d30| 29 0d 67 48 52 72 65 66 | 20 3d 20 30 0d 66 6e 20 |).gHRref| = 0.fn |
|00002d40| 48 54 4d 4c 42 65 67 69 | 6e 0d 68 65 6c 70 56 52 |HTMLBegi|n.helpVR|
|00002d50| 65 66 20 3d 20 66 6f 6c | 64 65 72 28 22 48 65 6c |ef = fol|der("Hel|
|00002d60| 70 22 2c 53 59 53 54 45 | 4d 28 5f 61 70 6c 76 6f |p",SYSTE|M(_aplvo|
|00002d70| 6c 29 29 0d 66 6e 20 48 | 54 4d 4c 47 6f 74 6f 46 |l)).fn H|TMLGotoF|
|00002d80| 69 6c 65 28 67 48 52 72 | 65 66 2c 67 54 6f 70 69 |ile(gHRr|ef,gTopi|
|00002d90| 63 24 2c 68 65 6c 70 56 | 52 65 66 29 0d 67 65 72 |c$,helpV|Ref).ger|
|00002da0| 72 20 3d 20 66 6e 20 48 | 52 61 63 74 69 76 61 74 |r = fn H|Ractivat|
|00002db0| 65 28 67 48 52 72 65 66 | 29 0d 73 65 74 72 65 63 |e(gHRref|).setrec|
|00002dc0| 74 28 67 4f 62 6a 54 2c | 30 2c 30 2c 34 30 30 2c |t(gObjT,|0,0,400,|
|00002dd0| 36 30 29 0d 66 6e 20 69 | 6e 76 61 6c 72 65 63 74 |60).fn i|nvalrect|
|00002de0| 28 67 4f 62 6a 54 29 0d | 45 4e 44 20 49 46 0d 45 |(gObjT).|END IF.E|
|00002df0| 4e 44 20 49 46 0d 0d 43 | 41 53 45 20 5f 77 43 6c |ND IF..C|ASE _wCl|
|00002e00| 6f 73 65 0d 4c 4f 4e 47 | 20 49 46 20 67 57 68 69 |ose.LONG| IF gWhi|
|00002e10| 63 68 43 6c 61 73 73 20 | 3d 20 5f 4d 79 43 61 6c |chClass |= _MyCal|
|00002e20| 65 6e 64 61 72 48 65 6c | 70 32 57 6e 64 0d 6c 6f |endarHel|p2Wnd.lo|
|00002e30| 6e 67 20 69 66 20 67 48 | 52 72 65 66 0d 67 65 72 |ng if gH|Rref.ger|
|00002e40| 72 20 3d 20 66 6e 20 48 | 52 44 65 61 63 74 69 76 |r = fn H|RDeactiv|
|00002e50| 61 74 65 28 67 48 52 72 | 65 66 29 0d 67 65 72 72 |ate(gHRr|ef).gerr|
|00002e60| 20 3d 20 66 6e 20 48 52 | 44 69 73 70 6f 73 65 52 | = fn HR|DisposeR|
|00002e70| 65 66 65 72 65 6e 63 65 | 28 67 48 52 72 65 66 29 |eference|(gHRref)|
|00002e80| 0d 67 48 52 72 65 66 20 | 3d 20 30 0d 45 4e 44 20 |.gHRref |= 0.END |
|00002e90| 49 46 0d 45 4e 44 20 49 | 46 0d 0d 0d 63 61 73 65 |IF.END I|F...case|
|00002ea0| 20 5f 77 55 70 64 61 74 | 65 27 2c 5f 77 43 6c 69 | _wUpdat|e',_wCli|
|00002eb0| 63 6b 65 64 0d 73 65 6c | 65 63 74 20 67 57 68 69 |cked.sel|ect gWhi|
|00002ec0| 63 68 43 6c 61 73 73 0d | 0d 63 61 73 65 20 5f 4d |chClass.|.case _M|
|00002ed0| 79 43 61 6c 65 6e 64 61 | 72 48 65 6c 70 32 57 6e |yCalenda|rHelp2Wn|
|00002ee0| 64 0d 72 67 6e 20 3d 20 | 66 6e 20 4e 65 77 52 67 |d.rgn = |fn NewRg|
|00002ef0| 6e 0d 6c 6f 6e 67 20 69 | 66 28 72 67 6e 29 0d 66 |n.long i|f(rgn).f|
|00002f00| 6e 20 73 65 74 48 54 4d | 4c 72 65 63 74 0d 67 65 |n setHTM|Lrect.ge|
|00002f10| 72 72 20 3d 20 66 6e 20 | 48 52 61 63 74 69 76 61 |rr = fn |HRactiva|
|00002f20| 74 65 28 67 48 52 72 65 | 66 29 0d 67 65 72 72 20 |te(gHRre|f).gerr |
|00002f30| 3d 20 46 4e 20 48 52 53 | 65 74 52 65 6e 64 65 72 |= FN HRS|etRender|
|00002f40| 69 6e 67 52 65 63 74 28 | 67 48 52 72 65 66 2c 67 |ingRect(|gHRref,g|
|00002f50| 72 65 6e 64 65 72 52 65 | 63 74 29 0d 52 65 63 74 |renderRe|ct).Rect|
|00002f60| 52 67 6e 28 72 67 6e 2c | 67 72 65 6e 64 65 72 52 |Rgn(rgn,|grenderR|
|00002f70| 65 63 74 29 0d 67 65 72 | 72 20 3d 20 66 6e 20 48 |ect).ger|r = fn H|
|00002f80| 52 64 72 61 77 28 67 48 | 52 72 65 66 2c 72 67 6e |Rdraw(gH|Rref,rgn|
|00002f90| 29 0d 44 69 73 70 6f 73 | 65 52 67 6e 28 72 67 6e |).Dispos|eRgn(rgn|
|00002fa0| 29 0d 67 65 72 72 20 3d | 20 66 6e 20 68 72 61 63 |).gerr =| fn hrac|
|00002fb0| 74 69 76 61 74 65 28 67 | 48 52 72 65 66 29 0d 66 |tivate(g|HRref).f|
|00002fc0| 6c 75 73 68 77 69 6e 64 | 6f 77 62 75 66 66 65 72 |lushwind|owbuffer|
|00002fd0| 0d 66 6e 20 76 61 6c 69 | 64 72 65 63 74 28 67 42 |.fn vali|drect(gB|
|00002fe0| 69 67 54 29 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |igT).end| if.end |
|00002ff0| 73 65 6c 65 63 74 0d 0d | 43 41 53 45 20 5f 77 53 |select..|CASE _wS|
|00003000| 69 7a 65 64 27 2c 5f 77 | 55 70 64 61 74 65 2c 5f |ized',_w|Update,_|
|00003010| 77 43 6c 69 63 6b 65 64 | 0d 73 65 6c 65 63 74 20 |wClicked|.select |
|00003020| 67 57 68 69 63 68 43 6c | 61 73 73 0d 0d 63 61 73 |gWhichCl|ass..cas|
|00003030| 65 20 5f 4d 79 43 61 6c | 65 6e 64 61 72 48 65 6c |e _MyCal|endarHel|
|00003040| 70 32 57 6e 64 0d 46 4e | 20 53 69 7a 65 48 65 6c |p2Wnd.FN| SizeHel|
|00003050| 70 57 6e 64 0d 0d 45 4e | 44 20 73 65 6c 65 63 74 |pWnd..EN|D select|
|00003060| 0d 45 4e 44 20 53 45 4c | 45 43 54 0d 0d 0d 27 7e |.END SEL|ECT...'~|
|00003070| 27 32 0d 0d 49 46 20 30 | 20 54 48 45 4e 20 52 45 |'2..IF 0| THEN RE|
|00003080| 54 55 52 4e 0d 0d 00 00 | 00 00 00 00 00 00 00 00 |TURN....|........|
|00003090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003100| 00 00 01 00 00 00 01 12 | 00 00 00 12 00 00 00 6b |........|.......k|
|00003110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003200| 00 00 00 08 00 93 00 2a | 03 f8 04 77 00 00 00 02 |.......*|...w....|
|00003210| 02 82 00 00 01 00 00 00 | 01 12 00 00 00 12 00 00 |........|........|
|00003220| 00 6b 07 e5 11 08 01 fa | 00 00 00 1c 00 46 00 01 |.k......|.....F..|
|00003230| 77 50 4f 53 00 00 00 12 | 52 45 4d 3e 00 00 00 1e |wPOS....|REM>....|
|00003240| 03 e8 00 00 00 00 00 00 | 00 00 00 00 03 e8 00 1a |........|........|
|00003250| 00 00 00 0c 07 e4 b8 14 | 00 00 00 00 00 00 00 00 |........|........|
|00003260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003270| 00 00 0a 52 45 4d 20 49 | 6e 64 65 6e 74 00 00 00 |...REM I|ndent...|
+--------+-------------------------+-------------------------+--------+--------+