home *** CD-ROM | disk | FTP | other *** search
INI File | 1996-05-14 | 71.4 KB | 1,936 lines
[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] HP LaserJet Series II [port] LPT2: [lang] 1 [desc] 828465585 255 731959686 2463 6 0 0 0 0 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Body Text 2 [fnt] Courier 240 0 32768 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 6 [fnt] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 8 [fnt] Arial 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [tag] Footnote 12 [fnt] Courier 240 0 32768 [algn] 1 1 0 720 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:> 0 1 1 256 0 0 0 [nfmt] 280 1 2 . , $ Footnote 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 720 0 0 1 0 1 0 2 1 1440 12240 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 720 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 720 12240 1 1440 0 1 720 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [edoc] <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0>FUNCTION AssembleDoc(testAsm) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> DECLARE DelHRt()<:f><:f240,QCourier,0,0,0><:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> DECLARE Echo(on) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> DEFSTR <:f><:f240,QCourier,0,0,0>result<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> DEFINE OpenAsmDoc() DllCall("hd3.dll,OpenAssembly,JCJ",%1,%2) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> DEFINE Parse() DllCall("hd3.dll,Parse,CCJOC",%1,%2,%3,%4) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> DEFINE MoreStuff() DllCall<:f><:f240,QCourier,0,0,0>("hd3.dll,MoreStuff,CCO",%1,%2<:f><:f240,QCourier,0,0,0>)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> DEFINE ParseDone<:f><:f240,QCourier,0,0,0>() DllCall("hd3.dll,ParseDone,JC",%1) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> DEFINE CloseAsmDoc() DllCall("hd3.dll,CloseAssembly,JC",%1) @Body Single@<:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> DEFINE GetPref() DllCall("hd3.dll,GetPref,CCC",%1,%2) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> DraftMode()<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> selBM = "HDSelAsm"<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookmark(selBM,FindBookmark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:f><:f240,QCourier,0,0,0>chkstr=CurShade$() <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> InFlags = 0 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:f>IF (chkstr <<<;> "") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> WHILE (chkstr <<<;> "") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> Type("<[>CtrlShiftLEFT]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> chkstr = CurShade$() <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> WEND <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> Type("<[>LEFT]<[>CtrlShiftHOME]<[>DEL]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> <:f240,QCourier,0,0,0>MarkBookmark(selBM,FindBookmark)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> Type("<[>RIGHT]<[>CtrlShiftEND]<[>DEL]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookmark(selBM,Delete<:f><:f240,QCourier,0,0,0>Bookmark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> InFlags = 64 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0><:Ztempbm> '*** GO TO DOC TOP <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> Type("<[>CTRLHOME]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> '**** CALL TO DLL (Open Assemble Doc) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> OrgFile = GetGlobalVar$("tplName")<:f><:f240,QCourier,0,0,0> <:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> InsFile = GetGlobalVar$("insName")<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> Result = <:f><:f240,QCourier,0,0,0>OpenAsmDoc(&OrgFile,InFlags<:f><:f240,QCourier,0,0,0>) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0><:Z~tempbm> IF (Result=0) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> AssembleDoc = 0 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> FileChanged(1,0)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> FileClose()<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> EXIT FUNCTION <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> AssembleDoc = 1 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> '*** SET SHOW ASM <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> showAsm = 1 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (Result = 1) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> showAsm = 0 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> '**** INIT STUFF<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> lChar = CHR$(171) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> rChar = CHR$(187) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> lStr = "{lChar}" <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> rStr = "<<{rChar}<;>" <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> insert = 1 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> DocInfoFields("<:f><:f240,QCourier,0,0,0>","","","","","","","")<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> asmCode = 1<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> insBM = "CapsBM1" <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> fldBM = "CapsBM2" <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookMark(insBM, DeleteBookmark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookMark(fldBM,DeleteBookmark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> '**** LOOP TILL NO LEFT CHEVRON FOUND<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> WHILE (<:f><:f240,QCourier,0,0,0>Replace(0,0,0,l<:f><:f240,QCourier,0,0,0>Str,"") =<:f><:f240,QCourier,0,0,0> 1<:f><:f240,QCourier,0,0,0>)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> '*** DETERMINE IF IN TABLE <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:f><:f240,QCourier,0,0,0>startrow = -1 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> startcol = -1 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> endrow = -1<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> endcol = -1<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> parsecmd = 1 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> TableGetRange(&startrow,&startcol,&endrow,&endcol)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> IF (startrow <<<;> -1) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> parsecmd = 2 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> '*** SELECT THE FIELD BY SEARCHING FOR THE RIGHT CHEVRON <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE("<[>ESC]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> charCnt = 0 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> WHILE (1<<2) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> 'curch = CurChar$() <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> 'IF (curch = rStr OR charCnt <;> 200) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> IF (CurChar$() = "<:f240,QCourier,0,0,0></{><:><:>"<:f> OR charCnt <;> 200) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> BREAK <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE("<[>SHIFTRIGHT]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> charCnt = charCnt + 1 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> WEND <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> '*** IF NO RIGHT CHEVRON FOUND, ABORT <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> IF (charCnt <;> 200) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> BREAK <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> '*** PARSE THE FIELD <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> inStr = CurShade$() <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> retStr = <:f><:f240,QCourier,0,0,0>Parse(&OrgFile<:f><:f240,QCourier,0,0,0>,parsecmd+(32*1),&Result,&inStr)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> '**** DELETE FIELD AND FIELD MARKS <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> TYPE("<[>DEL]<[>BACKSPACE]<[>DEL]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> '*** IF NOT INSERTING AND IN TABLE, DELETE THE TABLE <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (insert = 0 AND startrow <<<;> -1) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> DeleteEntireTable() <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> '*** INSERT BOOKMARK FOR CURRENT POSITION <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookMark(fldBM,AddBookMark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> <:f><:f240,QCourier,0,0,0> '*** IF NOT INSERTING, DELETE FROM PREVIOUS BOOKMARK<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (insert=0) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookMark(insBM,FindBookmark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookMark(insBM,DeleteBookmark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> GoToShade(4,0,12) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> '*** MOVE OUT OF BOOKMARK AND DELETE SELECTED TEXT IF ANY <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (CurShade$() = "") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> TYPE("<:f><:f240,QCourier,0,0,0><[>RIGHT]")<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ELSE <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> TYPE("<[>SHIFTLeft]<[>Del]<[>RIGHT]<[>RIGHT]")<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> '*** DO ACTION BY RESULT <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (Result = 0) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> asmCode = 0 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> BREAK <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ELSE<:f><:f240,QCourier,0,0,0>IF (Result = 1) '*** SKIP <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> DelHRt()<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> ELSEIF (Result = 2 OR Result = 8 OR Result = 9) '*** MERGE<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> more = Result <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> WHILE (more<:f><:f240,QCourier,0,0,0><<<;>0) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> TYPE(retStr)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> IF (more = 8) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE("<[>CTRLRIGHT]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ELSEIF (more = 9) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> InsertColumnRow(1,0,0) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE("<[>DOWN]<[>HOME]<[>HOME]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> IF (more <<<;> 2 OR LEN(retStr) <;> 200) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> retStr= <:f><:f240,QCourier,0,0,0>MoreStuff(<:f><:f240,QCourier,0,0,0>&OrgFile<:f><:f240,QCourier,0,0,0>,&more<:f><:f240,QCourier,0,0,0>)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> ELSE <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> more = 0 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> WEND <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> IF (CurChar$() = ".") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> TYPE("<[>LEFT]")<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> IF (CurChar$() = ".") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> TYPE("<[>Del]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> ELSE <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> TYPE("<[>RIGHT]")<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> ENDIF <:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> ELSEIF (Re<:f><:f240,QCourier,0,0,0>sult = 3) '*** ON <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> DelHRt() <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> insert = 1 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ELSEIF (Result = 4) '*** OFF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (retStr = "") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> DelHRt()<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ELSE <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE(retStr) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> insert = 0<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ELSEIF (Result = 5) '*** INSERT<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> DelHRt()<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> TYPE("<:f><:f240,QCourier,0,0,0><[>Enter]<[>Up]") '*** Move Over FieldBM<:f> and insert HRt <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> FileOpen(retStr,1+8,"") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:f><:f240,QCourier,0,0,0>TYPE("<:f><:f240,QCourier,0,0,0></k><:><:><:f><:f240,QCourier,0,0,0>END INSERT<:f><:f240,QCourier,0,0,0></{><:><:><:f><:f240,QCourier,0,0,0>")<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE("<[>Enter]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> MarkBookmark(fldBM,FindBookmark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> <:f240,QCourier,0,0,0>TYPE("<[>Right<:f><:f240,QCourier,0,0,0>]<[>Right<:f><:f240,QCourier,0,0,0>]<:f><[>Del]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ELSEIF (Result = 6) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> asmCode = 2 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> BREAK <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ELSEIF (Result = 7) '*** RESTART <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookMark(fldBM,DeleteBookmark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookMark(insBM,DeleteBookmark)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> Type("<[>CTRLHome]<[>CTRLSHIFTEnd]<[>Del]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> IF (OrgFile = InsFile) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> FileOpen(OrgFile,1+8,"") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ELSE <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> <:f240,QCourier,0,0,0>FileOpen(InsFile<:f><:f240,QCourier,0,0,0>,8+16,"WordPerfect 5.x")<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE("<[>CTRLHome]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> IF (showAsm = 0) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> Echo(0) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> insert = 1 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ELSEIF (Result = 10) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (MID$(retStr,2,1) <<<;> ":") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> retStr = strcat$(GetMacPath$(),retStr) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> CALLI retStr()<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> ELSEIF (Result <;>= 20)<:f> <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> <:f240,QCourier,0,0,0> endRepeat = "</k>END REPEAT</{><:><:><:f><:f240,QCourier,0,0,0>" <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> nextTkn = "</k>NEXT</{><:><:>" <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> IF (startRow <<<;><:f><:f240,QCourier,0,0,0> -1)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> IF (Result <;>= 21) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> TYPE("<[>ShiftEND]<[>ShiftEND]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> Copy() <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE("<[>END]<[>END]<[>END]<[>CtrlRIGHT]<[>LEFT]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE(endRepeat) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> FOR i = 1 TO Result - 22 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> InsertColumnRow(1,1,0) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE("<[>CtrlUP]<[>HOME]<[>HOME]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> Paste() <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE("<[>END]<[>END]<[>END]<[>CtrlRIGHT]<[>LEFT]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE(nextTkn) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> NEXT <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE("<[>HOME]<[>HOME]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ENDIF <+@><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> ELSE<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> DelHRt()<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> IF (Result = 20) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> TYPE("<[>LEFT]<:f><:f240,QCourier,0,0,0><[>LEFT]<:f><:f240,QCourier,0,0,0><[>LEFT]<:f><:f240,QCourier,0,0,0>") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:f> IF (CurChar$() = "") <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE(retStr) <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> TYPE("<[>RIGHT]<[>RIGHT]<[>RIGHT]") <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ELSE <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> TYPE("<[>RIGHT]<[>RIGHT]<[>RIGHT]") <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE(retStr) <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ELSE <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE(retStr) <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> endRepeat = strcat$(lStr,"END REPEAT") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (Replace(0,0,0,endRepeat<:f><:f240,QCourier,0,0,0>,"") << 1) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> BREAK <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE("<[>LEFT]<[>LEFT]<[>LEFT]<[>LEFT]<[>LEFT]<[>LEFT]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE("<[>LEFT]<[>LEFT]<[>LEFT]<[>LEFT]<[>LEFT]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> MarkBookMark(insBm,AddBookMark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> MarkBookMark(fldBm,FindBookMark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> TYPE("<[>RIGHT]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> GoToShade(4,0,12) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> TYPE("<[>ShiftLEFT]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> Cut() <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> FOR i = 1 TO Result - 21 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> Paste() <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> MarkBookMark(insBm,FindBookMark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> TYPE(<:f><:f240,QCourier,0,0,0>nextTkn<:f><:f240,QCourier,0,0,0>) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> TYPE("<[>ENTER]")<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> 'TYPE("<[>LEFT]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> NEXT <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> MarkBookMark(insBm,DeleteBookMark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> MarkBookMark(fldBm,FindBookMark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> TYPE("<[>RIGHT]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> ENDIF <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> ELSE <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> BREAK <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF '*** Error, ABORT <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> '*** FIDDLE WITH BOOKMARKS <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (insert = 1) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookMark(fldBM,DeleteBookMark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ELSE <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> '*** IF NOT INSERTING, FLDBM BECOMES INSBM <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> tempBM = insBM <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> insBM = fldBM <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> fldBM = tempBM <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> WEND <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookMark(insBM,DeleteBookmark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookMark(fldBM,DeleteBookmark)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> '*** IF ASSEMBLY COMPLETED CALL PARSE DONE <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (asmCode = 1) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> pdCode = ParseDone(OrgFile<:f><:f240,QCourier,0,0,0>) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (pdCode = 1) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> LayoutMode() <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> TYPE("<[>CTRLHOME]") <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> IF (GetPref(OrgFile,<:f><:f240,,>"(MOVE TO TYPE HERE)<:>")<:f><:f240,QCourier,0,0,0> = "YES") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookmark("TypeHere",FindBookmark)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> MarkBookmark("TypeHere",DeleteBookmark) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ELSEIF (pdCode = 2) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> Type("<[>CTRLHome]<:f><:f240,QCourier,0,0,0><[>CTRLSHIFTEnd]<[>DEL]")<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> Paste() <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> Type("<[>CTRLHome]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:f><:f240,QCourier,0,0,0> WHILE (Replace(0,0,0,"\b","") = 1)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> Type("<[>DEL]<[>SHIFTDown]")<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> Bold() <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> Type("<[>LEFT]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> WEND <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> Type("<[>CTRLEnd]<[>CTRLSHIFTHome]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> FontChange("Courier New",0,0,200) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> Type("<[>LEFT]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ELSE <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> asmCode = 3 <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:f><:f240,QCourier,0,0,0>DocInfoFields("<:f><:f240,QCourier,0,0,0>",""<:f><:f240,QCourier,0,0,0>,"","","","","","")<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (asmCode <<<;> 1)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <:f><:f240,QCourier,0,0,0>FileChanged(1,0) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> FileClose()<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> '*** IF TEST ASSEMBLING AND AN ERROR WAS FOUND, GO TO THE ERROR <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (<:f><:f240,QCourier,0,0,0>testAsm=1) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> IF (asmCode = 2) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> Type("<[>CTRLHOME]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> Replace(0,0,1,in<:f><:f240,QCourier,0,0,0>Str<:f><:f240,QCourier,0,0,0>,"") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ELSEIF (asmCode = 3) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> TYPE("<[>CTRLEND]") <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> ENDIF <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> CloseAsmDoc(&OrgFile<:f><:f240,QCourier,0,0,0>)<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0>END FUNCTION <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0>Function Echo(fOn) <:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> FocusHandle=DLLCall("user,GetFocus,I") <:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> DLLCall("user,SendMessage,IIIIJ",FocusHandle,11,fOn,0) <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> If (fOn=1) <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> DLLCall("user,InvalidateRect,IIJI",FocusHandle,0,1) <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> DLLCall("user,UpdateWindow,II",FocusHandle) <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> EndIf <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0>End Function<:><:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800><:f240,QCourier,0,0,0> <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0>Function DelHRt() <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> IF (CurChar$() = "</v><:>")<:> <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0><:f><:f240,QCourier,0,0,0><:f240,QCourier,0,0,0> TYPE("<[>DEL]<[>BACKSPACE]")<:f><:f240,QCourier,0,0,0><:f><:f240,QCourier,0,0,0><:f240,QCourier,0,0,0><:f> <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> ELSEIF (CurChar$() = "") <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> TYPE("<[>DEL]") <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> ENDIF <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0>End Function<:f> <+@><:S+-1><:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> > [Embedded] 00067488 > [macsum] 3 AssembleDoc 0 1 30 0 Echo 5200 1 2 298 DelHRt 5413 0 1 307 [macse] 14 AssembleDoc 2 211 1 7 "HDSelAsm" 8 3 2 466 1 "{3}" 4002 0 24 13 8 4 5 0 8 5 6 4 7 "" 18 1 11 00000289 6 4 7 "" 18 1 11 00000192 0 6 "[20517]" 0 24 13 8 4 10 00000119 0 6 "[37][20516][46]" 2 466 1 "{3}" 4002 0 6 "[39][20515][46]" 2 466 1 "{3}" 4004 5 64 8 5 0 6 "[16420]" 0 265 "tplName" 13 8 6 0 265 "insName" 13 8 7 0 284 "hd3.dll,OpenAssembly,JCJ" &6 "{5}" 13 8 2 6 2 5 0 18 0 11 00000478 5 0 8 1 0 34 1 0 2 147 1 6 1 15 9 5 1 8 1 5 1 8 8 6 2 5 1 18 0 11 00000537 5 0 8 8 0 39 171 13 8 9 0 39 187 13 8 10 7 "{9}" 8 11 7 "<<{10}>" 8 12 5 1 8 13 2 140 1 "" "" "" "" "" "" "" "" 5 1 8 14 7 "CapsBM1" 8 15 7 "CapsBM2" 8 16 2 466 1 "{15}" 4004 2 466 1 "{16}" 4004 2 488 1 0 0 0 "{11}" "" 13 5 1 18 0 11 00004316 5 -1 8 17 5 -1 8 18 5 -1 8 19 5 -1 8 20 5 1 8 21 0 1301 &17 &18 &19 &20 6 17 5 -1 18 1 11 00000923 5 2 8 21 0 6 "[27]" 5 0 8 22 5 1 5 2 18 5 11 00001101 0 282 13 7 "</{>" 18 0 6 22 5 200 18 3 1 2 11 00001052 10 00001101 0 6 "[4135]" 6 22 5 1 3 0 8 22 10 00000946 6 22 5 200 18 3 11 00001146 10 00004316 0 24 13 8 23 6 21 5 32 5 1 4 0 3 0 0 284 "hd3.dll,Parse,CCJOC" &6 [X] &2 &23 13 8 24 0 6 "[46][8][46]" 6 13 5 0 18 0 6 17 5 -1 18 1 1 1 11 00001323 2 651 1 2 466 1 "{16}" 4003 6 13 5 0 18 0 11 00001518 2 466 1 "{15}" 4002 2 466 1 "{15}" 4004 2 452 2 4 0 12 0 24 13 7 "" 18 0 11 00001492 0 6 "[39]" 10 00001518 0 6 "[4133][46][39][39]" 6 2 5 0 18 0 11 00001584 5 0 8 14 10 00004316 10 00004203 6 2 5 1 18 0 11 00001637 16 DelHRt 10 00004203 6 2 5 2 18 0 6 2 5 8 18 0 6 2 5 9 18 0 1 2 1 2 11 00002170 6 2 8 25 6 25 5 0 18 1 11 00002034 0 6 "{24}" 6 25 5 8 18 0 11 00001819 0 6 "[16423]" 10 00001884 6 25 5 9 18 0 11 00001884 2 627 1 1 0 0 0 6 "[40][36][36]" 6 25 5 2 18 1 0 14 "{24}" 13 5 200 18 3 1 2 11 00002010 0 284 "hd3.dll,MoreStuff,CCO" &6 &25 13 8 24 10 00002021 5 0 8 25 10 00001719 0 282 13 7 "." 18 0 11 00002157 0 6 "[37]" 0 282 13 7 "." 18 0 11 00002145 0 6 "[46]" 10 00002157 0 6 "[39]" 10 00004203 6 2 5 3 18 0 11 00002234 16 DelHRt 5 1 8 13 10 00004203 6 2 5 4 18 0 11 00002354 6 24 7 "" 18 0 11 00002318 16 DelHRt 10 00002330 0 6 "{24}" 5 0 8 13 10 00004203 6 2 5 5 18 0 11 00002540 16 DelHRt 0 6 "[13][38]" 5 1 5 8 3 0 2 102 1 "{24}" [X] "" 0 6 "</k>END INSERT</{>" 0 6 "[13]" 2 466 1 "{16}" 4002 0 6 "[39][39][46]" 10 00004203 6 2 5 6 18 0 11 00002606 5 2 8 14 10 00004316 10 00004203 6 2 5 7 18 0 11 00002914 2 466 1 "{16}" 4004 2 466 1 "{15}" 4004 0 6 "[16420][20515][46]" 6 6 6 7 18 0 11 00002782 5 1 5 8 3 0 2 102 1 "{6}" [X] "" 10 00002835 5 8 5 16 3 0 2 102 1 "{7}" [X] "WordPerfect 5.x" 0 6 "[16420]" 6 8 5 0 18 0 11 00002890 16 Echo 0 5 1 8 13 10 00004203 6 2 5 10 18 0 11 00003053 0 15 "{24}" 2 1 13 7 ":" 18 1 11 00003029 0 295 13 0 16 [X] "{24}" 13 8 24 16 "{24}" 10 00004203 6 2 5 20 18 2 11 00004190 7 "</k>END REPEAT</{>" 8 26 7 "</k>NEXT</{>" 8 27 6 17 5 -1 18 1 11 00003502 6 2 5 21 18 2 11 00003489 0 6 "[4131][4131]" 2 154 1 0 6 "[35][35][35][16423][37]" 0 6 "{26}" 5 1 8 28 6 2 5 22 3 1 6 28 18 2 12 00003370 10 00003473 5 1 6 28 3 0 8 28 10 00003281 2 627 1 1 1 0 0 6 "[16422][36][36]" 2 155 1 0 6 "[35][35][35][16423][37]" 0 6 "{27}" 10 00003335 0 6 "[36][36]" 10 00004177 16 DelHRt 6 2 5 20 18 0 11 00003689 0 6 "[37][37][37]" 0 282 13 7 "" 18 0 11 00003644 0 6 "{24}" 0 6 "[39][39][39]" 10 00003676 0 6 "[39][39][39]" 0 6 "{24}" 10 00004177 0 6 "{24}" 0 16 "{11}" "END REPEAT" 13 8 26 2 488 1 0 0 0 "{26}" "" 13 5 1 18 5 11 00003803 10 00004316 0 6 "[37][37][37][37][37][37]" 0 6 "[37][37][37][37][37]" 2 466 1 "{15}" 4003 2 466 1 "{16}" 4002 0 6 "[39]" 2 452 2 4 0 12 0 6 "[4133]" 2 153 1 5 1 8 28 6 2 5 21 3 1 6 28 18 2 12 00004056 10 00004123 5 1 6 28 3 0 8 28 10 00003967 2 155 1 2 466 1 "{15}" 4002 0 6 "{27}" 0 6 "[13]" 10 00004021 2 466 1 "{15}" 4004 2 466 1 "{16}" 4002 0 6 "[39]" 10 00004203 10 00004316 6 13 5 1 18 0 11 00004267 2 466 1 "{16}" 4004 10 00004303 6 15 8 29 6 16 8 15 6 29 8 16 10 00000745 2 466 1 "{15}" 4004 2 466 1 "{16}" 4004 6 14 5 1 18 0 11 00004912 0 284 "hd3.dll,ParseDone,JC" "{6}" 13 8 30 6 30 5 1 18 0 11 00004640 2 210 1 0 6 "[16420]" 0 284 "hd3.dll,GetPref,CCC" "{6}" "(MOVE TO TYPE HERE)" 13 7 "YES" 18 0 11 00004627 2 466 1 "TypeHere" 4002 2 466 1 "TypeHere" 4004 10 00004912 6 30 5 2 18 0 11 00004901 0 6 "[16420][20515][46]" 2 155 1 0 6 "[16420]" 2 488 1 0 0 0 "\b" "" 13 5 1 18 0 11 00004823 0 6 "[46][4136]" 2 254 1 0 6 "[37]" 10 00004720 0 6 "[16419][20516]" 2 251 1 "Courier New" 0 0 200 0 6 "[37]" 10 00004912 5 3 8 14 2 140 1 "" "" "" "" "" "" "" "" 6 14 5 1 18 1 11 00004994 0 34 1 0 2 147 1 6 0 5 1 18 0 11 00005151 6 14 5 2 18 0 11 00005106 0 6 "[16420]" 2 488 1 0 0 1 "{23}" "" 10 00005151 6 14 5 3 18 0 11 00005151 0 6 "[16419]" 0 284 "hd3.dll,CloseAssembly,JC" &6 6 1 15 9 14 Echo 0 284 "user,GetFocus,I" 13 8 2 0 284 "user,SendMessage,IIIIJ" "{2}" 11 "{0}" 0 6 0 5 1 18 0 11 00000201 0 284 "user,InvalidateRect,IIJI" "{2}" 0 1 0 284 "user,UpdateWindow,II" "{2}" 6 1 15 9 14 DelHRt 0 282 13 7 "</v>" 18 0 11 00000079 0 6 "[46][8]" 10 00000127 0 282 13 7 "" 18 0 11 00000127 0 6 "[46]" 6 0 15 9 00067513 
