home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / BBS-PCBOARD-STUFF / ESCLOM20.ZIP / LOM.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-06-10  |  29KB  |  1,091 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.     String   STRING025
  44.     String   STRING026
  45.     String   STRING027
  46.     String   STRING028
  47.     String   STRING029
  48.     String   STRING030
  49.     String   STRING031
  50.     String   STRING032
  51.     String   STRING033
  52.     String   STRING034
  53.     String   STRING035
  54.     String   STRING036
  55.     String   STRING037
  56.     String   STRING038
  57.     String   STRING039
  58.     String   STRING040
  59.     String   STRING041
  60.     String   STRING042
  61.     String   STRING043
  62.     String   STRING044
  63.     String   STRING045
  64.     String   STRING046
  65.     String   STRING047
  66.     String   STRING048
  67.     String   STRING049
  68.     String   STRING050
  69.     String   STRING051
  70.     String   STRING052
  71.     String   STRING053
  72.     String   STRING054
  73.     String   STRING055
  74.     String   STRING056
  75.     String   STRING057
  76.  
  77. ;------------------------------------------------------------------------------
  78.  
  79.     STRING001 = "Don't even think about stealin' my sources ..."
  80.     STRING001 = "If u need help for ur PPEs, u can call my Board and leave"
  81.     STRING001 = "me a mail, and I will try to solve ur problems !"
  82.     STRING001 = "My board : The Seven Gates - +49-5254-958024 - 24h"
  83.     STRING001 = ""
  84.     STRING041 = PPEPath() + "LOM.CFG"
  85.     If (Exist(STRING041)) STRING042 = 1
  86.     If (STRING042 == 1) Goto LABEL001
  87.     FCreate 1, PPEPath() + "LOM.CFG", 2, 0
  88.     FPutLn 1, "Ford Prefect"
  89.     FPutLn 1, "Grim Reaper"
  90.     FPutLn 1, "y"
  91.     FPutLn 1, "D:\PCB\PPE\LOM\CU.PCB"
  92.     FPutLn 1, "2"
  93.     FPutLn 1, "D:\PCB\PPE\ONE-2011.PPE"
  94.     FPutLn 1, "D:\PCB\PPE\FTR-STAT.PPE"
  95.     FPutLn 1, "D:\PCB\PPE\MADWHO.PPE"
  96.     FPutLn 1, "y"
  97.     FPutLn 1, "                         @X0CC@X04oded @X0Cb@X04y @X0CF@X04ord @X0CP@X04refect@X0D/@X0CE@X04SCAPE"
  98.     FPutLn 1, "1"
  99.     FPutLn 1, "D:\PCB\PPE\LOM\BOARD.AD"
  100.     FPutLn 1, ""
  101.     FPutLn 1, ""
  102.     FPutLn 1, ""
  103.     FPutLn 1, ""
  104.     FPutLn 1, ""
  105.     FPutLn 1, "D:\PCB\PPE\TURBO\NEXTCALL.MSG"
  106.     FPutLn 1, "D:\PCB\PPE\TURBO\"
  107.     FPutLn 1, "y"
  108.     FPutLn 1, "y"
  109.     FPutLn 1, "b"
  110.     FPutLn 1, "20"
  111.     FPutLn 1, "D:\PCB\PPE\LOM\SEC2LOW.ERR"
  112.     FPutLn 1, "00000"
  113.     FPutLn 1
  114.     FPutLn 1, "-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-"
  115.     FPutLn 1
  116.     FPutLn 1, "Line 1 : Name of the SysOp"
  117.     FPutLn 1, "Line 2 : Name of the Co.SysOp"
  118.     FPutLn 1, "Line 3 : Display a file at normal LogOff ? (Y/N)"
  119.     FPutLn 1, "Line 4 : File to display at normal LogOff (IF LINE 3 = Y)"
  120.     FPutLn 1, "Line 5 : How many PPE`s to execute at normal LogOff (max. 3) 0 = NONE"
  121.     FPutLn 1, "Line 6 : 1. PPE to execute at normal LogOff"
  122.     FPutLn 1, "Line 7 : 2. PPE to execute at normal LogOff"
  123.     FPutLn 1, "Line 8 : 3. PPE to execute at normal LogOff"
  124.     FPutLn 1, "Line 9 : Display a free-definable Line at LOM Mainmenu ? (Y/N)"
  125.     FPutLn 1, "         Hey, SyZo, take a look at thiz ..."
  126.     FPutLn 1, "Line 10 : Text to display at LOM Mainmenu (IF LINE 9 = Y)"
  127.     FPutLn 1, "Line 11 : How many BBS Ad`s to display at Button `SHOW BBS-AD`S` ?"
  128.     FPutLn 1, "          (max. 6) 0 = NONE"
  129.     FPutLn 1, "Line 12 : 1. BBS Ad to display"
  130.     FPutLn 1, "Line 13 : 2. BBS Ad to display"
  131.     FPutLn 1, "Line 14 : 3. BBS Ad to display"
  132.     FPutLn 1, "Line 15 : 4. BBS Ad to display"
  133.     FPutLn 1, "Line 16 : 5. BBS Ad to display"
  134.     FPutLn 1, "Line 17 : 6. BBS Ad to display"
  135.     FPutLn 1, "Line 18 : Path and Filename to store Message-to-next-caller"
  136.     FPutLn 1, "Line 19 : Path (ONLY PATH!) to store Message-to-next-caller"
  137.     FPutLn 1, "Line 20 : Display Msg-2-next-caller before execution of LOM ? (Y/N)"
  138.     FPutLn 1, "Line 21 : Display `FORMAT C:` - Prompt ? (Y/N)"
  139.     FPutLn 1, "Line 22 : Display `FORMAT C:` - Prompt before or after LogOff Screen ? (B/A)"
  140.     FPutLn 1, "          `FORMAT C:` - PROMPT NOT IMPLENTED YET"
  141.     FPutLn 1, "Line 23 : Sec.level needed to leave Message-to-next-Caller ?"
  142.     FPutLn 1, "Line 24 : File to display if Sec. to low for MSG-2-NEXT-CALLER ?"
  143.     FPutLn 1, "Line 25 : Your registration Numba (None = 00000) ?"
  144.     FClose 1
  145.     :LABEL001
  146.     FOpen 1, PPEPath() + "LOM.CFG", 0, 3
  147.     If (Ferr(1)) Then
  148.         PrintLn "Error, exitin` ..."
  149.         End
  150.     Endif
  151.     FRead 1, STRING053, 1
  152.     Frewind 1
  153.     FGet 1, STRING003
  154.     FGet 1, STRING004
  155.     FGet 1, STRING005
  156.     FGet 1, STRING006
  157.     FGet 1, STRING008
  158.     FGet 1, STRING009
  159.     FGet 1, STRING010
  160.     FGet 1, STRING011
  161.     FGet 1, STRING032
  162.     FGet 1, STRING033
  163.     FGet 1, STRING034
  164.     FGet 1, STRING035
  165.     FGet 1, STRING036
  166.     FGet 1, STRING037
  167.     FGet 1, STRING038
  168.     FGet 1, STRING039
  169.     FGet 1, STRING040
  170.     FGet 1, STRING043
  171.     FGet 1, STRING044
  172.     FGet 1, STRING049
  173.     FGet 1, STRING048
  174.     FGet 1, STRING047
  175.     FGet 1, STRING050
  176.     FGet 1, STRING051
  177.     FGet 1, STRING054
  178.     FClose 1
  179.     :LABEL002
  180.     SaveScrn
  181.     If (Exist(PPEPath() + "LOM.PPD")) Goto LABEL028
  182.     If (Exist(PPEPath() + "LOM.PPX")) Goto LABEL028
  183.     If ((STRING049 == "N") || (STRING049 == "n")) Goto LABEL003
  184.     If ((STRING049 == "Y") || (STRING049 == "y")) Then
  185.         If (Exist(STRING043)) Then
  186.             Color 9
  187.             Cls
  188.             DispFile STRING043, 0
  189.         Endif
  190.     Endif
  191.     :LABEL003
  192.     Cls
  193.     PrintLn "@X08────────────@X07─────────────────@X0F──────────────────────@X07──────────────@X08──────────────"
  194.     PrintLn "               @X0BF@X09ord @X0BP@X09refect's @X0BL@X09og@X0BO@X09ff @X0BM@X09atrix @X0Bv@X092.0 @X0B- R@X09unning @X0Bo@X09n @X0B:"
  195.     PrintLn "@X09@BOARDNAME:78C@ "
  196.     PrintLn "@X08────────────@X07─────────────────@X0F──────────────────────@X07──────────────@X08──────────────"
  197.     PrintLn ""
  198.     PrintLn "   @X0FG@X07e@X08t @X0Fd@X07a @X0Fh@X07e@X08ll @X0Fo@X07u@X08t @X0Fh@X07e@X08re @X0F! "
  199.     PrintLn ""
  200.     PrintLn "             R@X07e@X08turn @X0Ft@X07o @X0Fd@X07a @X0FB@X07o@X08ard "
  201.     PrintLn ""
  202.     PrintLn "                        @X0FW@X07r@X08ite @X0Fs@X07o@X08me @X0Fl@X07i@X08nez @X0F2 d@X07a @X0FS@X07y@X08Zo @X0F! "
  203.     PrintLn ""
  204.     PrintLn "                                W@X07r@X08ite @X0Fs@X07o@X08me @X0Fc@X07r@X08ap @X0F2 d@X07a @X0FC@X07o@X0F.@X07S@X08yZo @X0F! "
  205.     PrintLn ""
  206.     PrintLn "                                           L@X07e@X08ave @X0FM@X07e@X08ssage-@X0Ft@X07o@X08-@X0Fn@X07e@X08xt-@X0FC@X07a@X08ller"
  207.     PrintLn ""
  208.     PrintLn "                                                    @X0FS@X07h@X08ow @X0FB@X07B@X08S-@X0FA@X07d@X08vertisements"
  209.     PrintLn ""
  210.     PrintLn "──────────────@X07───────────────@X0F──────────────────────@X07───────────────@X08─────────────"
  211.     PrintLn "                       @X0BU@X09se @X0Bu@X09r @X0Bf@X09uckin` @X0BC@X09ursor-@X0BK@X09eyz @X0B2 s@X09elect"
  212.     PrintLn "@X08──────────────@X07───────────────@X0F──────────────────────@X07───────────────@X08─────────────"
  213.     If ((STRING032 == "N") || (STRING032 == "n")) Goto LABEL004
  214.     If ((STRING032 == "Y") || (STRING032 == "y")) Then
  215.         AnsiPos 1, 20
  216.         Color 9
  217.         ClrEol
  218.         AnsiPos 1, 20
  219.         PrintLn STRING033
  220.         Print "@X08──────────────@X07───────────────@X0F──────────────────────@X07───────────────@X08──────────────"
  221.         Goto LABEL004
  222.     Endif
  223.     :LABEL004
  224.     AnsiPos 3, 6
  225.     Print "@X70 GET DA HELL OUT OF HERE ! "
  226.     STRING002 = ""
  227.     While ((STRING002 == "")) STRING002 = Inkey()
  228.     If (STRING002 == Chr(13)) Then
  229.         If (STRING008 == 0) Goto LABEL014
  230.         If (STRING008 > 3) Goto LABEL015
  231.         If (STRING008 == 1) Then
  232.             Color 9
  233.             Cls
  234.             Call STRING009
  235.             Goto LABEL014
  236.         Endif
  237.         If (STRING008 == 2) Then
  238.             Color 9
  239.             Cls
  240.             Call STRING009
  241.             Cls
  242.             Call STRING010
  243.             Goto LABEL014
  244.         Endif
  245.         If (STRING008 == 3) Then
  246.             Color 9
  247.             Cls
  248.             Call STRING009
  249.             Cls
  250.             Call STRING010
  251.             Cls
  252.             Call STRING011
  253.             Goto LABEL014
  254.         Endif
  255.     Endif
  256.     AnsiPos 3, 6
  257.     Print "@X0F G@X07e@X08t @X0Fd@X07a @X0Fh@X07e@X08ll @X0Fo@X07u@X08t @X0Fo@X07f @X0Fh@X07e@X08re @X0F! "
  258.     If ((STRING002 == "DOWN") || (STRING002 == "RIGHT")) Goto LABEL005
  259.     If ((STRING002 == "2") || (STRING002 == 2)) Goto LABEL005
  260.     If ((STRING002 == "UP") || (STRING002 == "LEFT")) Goto LABEL009
  261.     If ((STRING002 == "8") || (STRING002 == 8)) Goto LABEL009
  262.     Goto LABEL004
  263.     :LABEL005
  264.     AnsiPos 13, 8
  265.     Print "@X70 RETURN TO DA BOARD "
  266.     Color 1
  267.     STRING002 = ""
  268.     While ((STRING002 == "")) STRING002 = Inkey()
  269.     If (STRING002 == Chr(13)) Goto LABEL010
  270.     AnsiPos 13, 8
  271.     Print "@X0F R@X07e@X08turn @X0Ft@X07o @X0Fd@X07a @X0FB@X07o@X08ard "
  272.     If ((STRING002 == "UP") || (STRING002 == "LEFT")) Goto LABEL004
  273.     If ((STRING002 == "8") || (STRING002 == 8)) Goto LABEL004
  274.     If ((STRING002 == "DOWN") || (STRING002 == "RIGHT")) Goto LABEL006
  275.     If ((STRING002 == "2") || (STRING002 == 2)) Goto LABEL006
  276.     Goto LABEL005
  277.     :LABEL006
  278.     AnsiPos 24, 10
  279.     Print "@X70 WRITE SOME LINEZ 2 DA SYZO ! "
  280.     STRING002 = ""
  281.     While ((STRING002 == "")) STRING002 = Inkey()
  282.     If (STRING002 == Chr(13)) Goto LABEL011
  283.     AnsiPos 24, 10
  284.     Print "@X0F W@X07r@X08ite @X0Fs@X07o@X08me @X0Fl@X07i@X08nez @X0F2 d@X07a @X0FS@X07y@X08Zo @X0F! "
  285.     If ((STRING002 == "UP") || (STRING002 == "LEFT")) Goto LABEL005
  286.     If ((STRING002 == "8") || (STRING002 == 8)) Goto LABEL005
  287.     If ((STRING002 == "DOWN") || (STRING002 == "RIGHT")) Goto LABEL007
  288.     If ((STRING002 == "2") || (STRING002 == 2)) Goto LABEL007
  289.     Goto LABEL006
  290.     :LABEL007
  291.     AnsiPos 32, 12
  292.     Print "@X70 WRITE SOME CRAP 2 DA CO.SYZO ! "
  293.     STRING002 = ""
  294.     While ((STRING002 == "")) STRING002 = Inkey()
  295.     If (STRING002 == Chr(13)) Goto LABEL012
  296.     AnsiPos 32, 12
  297.     Print "@X0F W@X07r@X08ite @X0Fs@X07o@X08me @X0Fc@X07r@X08ap @X0F2 d@X07a @X0FC@X07o@X0F.@X07S@X08yZo @X0F! "
  298.     If ((STRING002 == "UP") || (STRING002 == "LEFT")) Goto LABEL006
  299.     If ((STRING002 == "8") || (STRING002 == 8)) Goto LABEL006
  300.     If ((STRING002 == "DOWN") || (STRING002 == "RIGHT")) Goto LABEL008
  301.     If ((STRING002 == "2") || (STRING002 == 2)) Goto LABEL008
  302.     Goto LABEL007
  303.     :LABEL008
  304.     AnsiPos 43, 14
  305.     Print "@X70 LEAVE MESSAGE-TO-NEXT-CALLER "
  306.     STRING002 = ""
  307.     While ((STRING002 == "")) STRING002 = Inkey()
  308.     If (STRING002 == Chr(13)) Goto LABEL024
  309.     AnsiPos 43, 14
  310.     Print "@X0F L@X07e@X08ave @X0FM@X07e@X08ssage-@X0Ft@X07o@X08-@X0Fn@X07e@X08xt-@X0FC@X07a@X08ller "
  311.     If ((STRING002 == "UP") || (STRING002 == "LEFT")) Goto LABEL007
  312.     If ((STRING002 == "8") || (STRING002 == 8)) Goto LABEL007
  313.     If ((STRING002 == "DOWN") || (STRING002 == "RIGHT")) Goto LABEL009
  314.     If ((STRING002 == "2") || (STRING002 == 2)) Goto LABEL009
  315.     Goto LABEL008
  316.     :LABEL009
  317.     AnsiPos 52, 16
  318.     Print "@X70 SHOW BBS-ADVERTISEMENTS "
  319.     STRING002 = ""
  320.     While ((STRING002 == "")) STRING002 = Inkey()
  321.     If (STRING002 == Chr(13)) Then
  322.         If (STRING034 == 0) Then
  323.             Color 9
  324.             Cls
  325.             Newlines 3
  326.             PrintLn "@X0CS@X04orry ..."
  327.             Newline
  328.             PrintLn "@X0CN@X04o @X0CB@X04BS-@X0CA@X04dvertisements @X0Co@X04nline @X0Ca@X04t @X0Ct@X04he @X0Cm@X04oment @X0C.@X04.."
  329.             Newlines 3
  330.             Delay 90
  331.             Goto LABEL003
  332.         Endif
  333.         If (STRING034 > 6) Goto LABEL016
  334.         If (STRING034 == 1) Then
  335.             Color 9
  336.             Cls
  337.             DispFile STRING035, 0
  338.             Goto LABEL003
  339.         Endif
  340.         If (STRING034 == 2) Then
  341.             Color 9
  342.             Cls
  343.             DispFile STRING035, 1
  344.             Cls
  345.             DispFile STRING036, 1
  346.             Goto LABEL003
  347.         Endif
  348.         If (STRING034 == 3) Then
  349.             Color 9
  350.             Cls
  351.             DispFile STRING035, 1
  352.             Cls
  353.             DispFile STRING036, 1
  354.             Cls
  355.             DispFile STRING037, 1
  356.             Goto LABEL003
  357.         Endif
  358.         If (STRING034 == 4) Then
  359.             Color 9
  360.             Cls
  361.             DispFile STRING035, 1
  362.             Cls
  363.             DispFile STRING036, 1
  364.             Cls
  365.             DispFile STRING037, 1
  366.             Cls
  367.             DispFile STRING038, 1
  368.             Goto LABEL003
  369.         Endif
  370.         If (STRING034 == 5) Then
  371.             Color 9
  372.             Cls
  373.             DispFile STRING035, 1
  374.             Cls
  375.             DispFile STRING036, 1
  376.             Cls
  377.             DispFile STRING037, 1
  378.             Cls
  379.             DispFile STRING038, 1
  380.             Cls
  381.             DispFile STRING039, 1
  382.             Goto LABEL003
  383.         Endif
  384.         If (STRING034 == 6) Then
  385.             Color 9
  386.             Cls
  387.             DispFile STRING035, 1
  388.             Cls
  389.             DispFile STRING036, 1
  390.             Cls
  391.             DispFile STRING037, 1
  392.             Cls
  393.             DispFile STRING038, 1
  394.             Cls
  395.             DispFile STRING039, 1
  396.             Cls
  397.             DispFile STRING040, 1
  398.             Goto LABEL003
  399.         Endif
  400.     Endif
  401.     AnsiPos 52, 16
  402.     Print "@X0F S@X07h@X08ow @X0FB@X07B@X08S-@X0FA@X07d@X08vertisements "
  403.     If ((STRING002 == "UP") || (STRING002 == "LEFT")) Goto LABEL008
  404.     If ((STRING002 == "8") || (STRING002 == 8)) Goto LABEL008
  405.     If ((STRING002 == "DOWN") || (STRING002 == "RIGHT")) Goto LABEL004
  406.     If ((STRING002 == "2") || (STRING002 == 2)) Goto LABEL004
  407.     Goto LABEL009
  408.     :LABEL010
  409.     RestScrn
  410.     End
  411.     :LABEL011
  412.     Gosub LABEL029
  413.     Cls
  414.     ShowOff
  415.     Join 0
  416.     ShowOn
  417.     Color 1
  418.     Cls
  419.     PrintLn "@X08────@X07─@X08──@X07──@X08────@X07─────@X0F─@X07──@X0F─@X07───@X0F──@X07───@X0F─────────┬─────────@X07───@X0F─@X07────@X0F──@X07─@X0F─@X07────@X08───@X07─@X08────@X07──@X08────"
  420.     PrintLn "@X0BT@X09o      @X0B: " + STRING003
  421.     AnsiPos 40, 2
  422.     PrintLn "@X07│ @X04Y@X0Cou @X04h@X0Cave @X04a m@X0Cax. @X04o@X0Cf @X0420 l@X0Cinez"
  423.     PrintLn "@X0BF@X09rom @X0B   : @USER:25@    @X08│ @X04/@X0CS @X04o@X0Cn @X04a@X0Cn @X04e@X0Cmpty @X04l@X0Cine @X04s@X0Caves @X04d@X0Ciz @X04c@X0Crap"
  424.     PrintLn "@X0BS@X09ubject @X0B: L@X09og@X0BO@X09ff @X0Bc@X09omment               @X07│@X04 /@X0CA @X04o@X0Cn @X04a@X0Cn @X04e@X0Cmpty @X04l@X0Cine @X04a@X0Cborts"
  425.     PrintLn "@X08──@X07─@X08────@X07─@X08─────@X07───@X0F─@X07─@X0F──@X07───@X0F─@X07───@X0F─@X07──@X0F─────────┴────@X07───@X0F──> @X0BF@X09ord @X0BP@X09refect's @X0BLOM v@X092.0 @X0F<─@X07─@X08─"
  426.     FCreate 2, PPEPath() + "MESSAGE.TMP", 2, 3
  427.     InputStr "@X0F■@X07> _", STRING012, 8, 76, Mask_Ascii(), 4096
  428.     If ((STRING012 == "/s") || (STRING012 == "/S")) Goto LABEL017
  429.     If ((STRING012 == "/a") || (STRING012 == "/A")) Goto LABEL021
  430.     FPut 2, STRING012 + Chr(13)
  431.     PrintLn 
  432.     InputStr "@X0F■@X07> _", STRING013, 8, 75, Mask_Ascii(), 4096
  433.     If ((STRING013 == "/s") || (STRING013 == "/S")) Goto LABEL017
  434.     If ((STRING013 == "/a") || (STRING013 == "/A")) Goto LABEL021
  435.     FPut 2, STRING013 + Chr(13)
  436.     PrintLn 
  437.     InputStr "@X0F■@X07> _", STRING014, 8, 76, Mask_Ascii(), 4096
  438.     If ((STRING014 == "/s") || (STRING014 == "/S")) Goto LABEL017
  439.     If ((STRING014 == "/a") || (STRING014 == "/A")) Goto LABEL021
  440.     FPut 2, STRING014 + Chr(13)
  441.     PrintLn 
  442.     InputStr "@X0F■@X07> _", STRING015, 8, 76, Mask_Ascii(), 4096
  443.     If ((STRING015 == "/s") || (STRING015 == "/S")) Goto LABEL017
  444.     If ((STRING015 == "/a") || (STRING015 == "/A")) Goto LABEL021
  445.     FPut 2, STRING015 + Chr(13)
  446.     PrintLn 
  447.     InputStr "@X0F■@X07> _", STRING016, 8, 76, Mask_Ascii(), 4096
  448.     If ((STRING016 == "/s") || (STRING016 == "/S")) Goto LABEL017
  449.     If ((STRING016 == "/a") || (STRING016 == "/A")) Goto LABEL021
  450.     FPut 2, STRING016 + Chr(13)
  451.     PrintLn 
  452.     InputStr "@X0F■@X07> _", STRING017, 8, 76, Mask_Ascii(), 4096
  453.     If ((STRING017 == "/s") || (STRING017 == "/S")) Goto LABEL017
  454.     If ((STRING017 == "/a") || (STRING017 == "/A")) Goto LABEL021
  455.     FPut 2, STRING017 + Chr(13)
  456.     PrintLn 
  457.     InputStr "@X0F■@X07> _", STRING018, 8, 76, Mask_Ascii(), 4096
  458.     If ((STRING018 == "/s") || (STRING018 == "/S")) Goto LABEL017
  459.     If ((STRING018 == "/a") || (STRING018 == "/A")) Goto LABEL021
  460.     FPut 2, STRING018 + Chr(13)
  461.     PrintLn 
  462.     InputStr "@X0F■@X07> _", STRING019, 8, 76, Mask_Ascii(), 4096
  463.     If ((STRING019 == "/s") || (STRING019 == "/S")) Goto LABEL017
  464.     If ((STRING019 == "/a") || (STRING019 == "/A")) Goto LABEL021
  465.     FPut 2, STRING019 + Chr(13)
  466.     PrintLn 
  467.     InputStr "@X0F■@X07> _", STRING020, 8, 76, Mask_Ascii(), 4096
  468.     If ((STRING020 == "/s") || (STRING020 == "/S")) Goto LABEL017
  469.     If ((STRING020 == "/a") || (STRING020 == "/A")) Goto LABEL021
  470.     FPut 2, STRING020 + Chr(13)
  471.     PrintLn 
  472.     InputStr "@X0F■@X07> _", STRING021, 8, 76, Mask_Ascii(), 4096
  473.     If ((STRING021 == "/s") || (STRING021 == "/S")) Goto LABEL017
  474.     If ((STRING021 == "/a") || (STRING021 == "/A")) Goto LABEL021
  475.     FPut 2, STRING021 + Chr(13)
  476.     PrintLn 
  477.     InputStr "@X0F■@X07> _", STRING022, 8, 76, Mask_Ascii(), 4096
  478.     If ((STRING022 == "/s") || (STRING022 == "/S")) Goto LABEL017
  479.     If ((STRING022 == "/a") || (STRING022 == "/A")) Goto LABEL021
  480.     FPut 2, STRING022 + Chr(13)
  481.     PrintLn 
  482.     InputStr "@X0F■@X07> _", STRING023, 8, 76, Mask_Ascii(), 4096
  483.     If ((STRING023 == "/s") || (STRING023 == "/S")) Goto LABEL017
  484.     If ((STRING023 == "/a") || (STRING023 == "/A")) Goto LABEL021
  485.     FPut 2, STRING023 + Chr(13)
  486.     PrintLn 
  487.     InputStr "@X0F■@X07> _", STRING024, 8, 76, Mask_Ascii(), 4096
  488.     If ((STRING024 == "/s") || (STRING024 == "/S")) Goto LABEL017
  489.     If ((STRING024 == "/a") || (STRING024 == "/A")) Goto LABEL021
  490.     FPut 2, STRING024 + Chr(13)
  491.     PrintLn 
  492.     InputStr "@X0F■@X07> _", STRING025, 8, 76, Mask_Ascii(), 4096
  493.     If ((STRING025 == "/s") || (STRING025 == "/S")) Goto LABEL017
  494.     If ((STRING025 == "/a") || (STRING025 == "/A")) Goto LABEL021
  495.     FPut 2, STRING025 + Chr(13)
  496.     PrintLn 
  497.     InputStr "@X0F■@X07> _", STRING026, 8, 76, Mask_Ascii(), 4096
  498.     If ((STRING026 == "/s") || (STRING026 == "/S")) Goto LABEL017
  499.     If ((STRING026 == "/a") || (STRING026 == "/A")) Goto LABEL021
  500.     FPut 2, STRING026 + Chr(13)
  501.     PrintLn 
  502.     InputStr "@X0F■@X07> _", STRING027, 8, 76, Mask_Ascii(), 4096
  503.     If ((STRING027 == "/s") || (STRING027 == "/S")) Goto LABEL017
  504.     If ((STRING027 == "/a") || (STRING027 == "/A")) Goto LABEL021
  505.     FPut 2, STRING027 + Chr(13)
  506.     PrintLn 
  507.     InputStr "@X0F■@X07> _", STRING028, 8, 76, Mask_Ascii(), 4096
  508.     If ((STRING028 == "/s") || (STRING028 == "/S")) Goto LABEL017
  509.     If ((STRING028 == "/a") || (STRING028 == "/A")) Goto LABEL021
  510.     FPut 2, STRING028 + Chr(13)
  511.     PrintLn 
  512.     InputStr "@X0F■@X07> _", STRING029, 8, 76, Mask_Ascii(), 4096
  513.     If ((STRING029 == "/s") || (STRING029 == "/S")) Goto LABEL017
  514.     If ((STRING029 == "/a") || (STRING029 == "/A")) Goto LABEL021
  515.     FPut 2, STRING029 + Chr(13)
  516.     PrintLn 
  517.     InputStr "@X0F■@X07> _", STRING030, 8, 76, Mask_Ascii(), 4096
  518.     If ((STRING030 == "/s") || (STRING030 == "/S")) Goto LABEL017
  519.     If ((STRING030 == "/a") || (STRING030 == "/A")) Goto LABEL021
  520.     FPut 2, STRING030 + Chr(13)
  521.     PrintLn 
  522.     InputStr "@X0F■@X07> _", STRING031, 8, 76, Mask_Ascii(), 4096
  523.     If ((STRING031 == "/s") || (STRING031 == "/S")) Goto LABEL017
  524.     If ((STRING031 == "/a") || (STRING031 == "/A")) Goto LABEL021
  525.     FPut 2, STRING031 + Chr(13)
  526.     Goto LABEL017
  527.     End
  528.     :LABEL012
  529.     Gosub LABEL029
  530.     Cls
  531.     ShowOff
  532.     Join 0
  533.     ShowOn
  534.     Color 9
  535.     Cls
  536.     PrintLn "@X08────@X07─@X08──@X07──@X08────@X07─────@X0F─@X07──@X0F─@X07───@X0F──@X07───@X0F─────────┬─────────@X07───@X0F─@X07────@X0F──@X07─@X0F─@X07────@X08───@X07─@X08────@X07──@X08────"
  537.     PrintLn "@X0BT@X09o      @X0B: " + STRING004
  538.     AnsiPos 40, 2
  539.     PrintLn "@X07│ @X04Y@X0Cou @X04h@X0Cave @X04a m@X0Cax. @X04o@X0Cf @X0420 l@X0Cinez"
  540.     PrintLn "@X0BF@X09rom @X0B   : @USER:25@    @X08│ @X04/@X0CS @X04o@X0Cn @X04a@X0Cn @X04e@X0Cmpty @X04l@X0Cine @X04s@X0Caves @X04d@X0Ciz @X04c@X0Crap"
  541.     PrintLn "@X0BS@X09ubject @X0B: L@X09og@X0BO@X09ff @X0Bc@X09omment               @X07│@X04 /@X0CA @X04o@X0Cn @X04a@X0Cn @X04e@X0Cmpty @X04l@X0Cine @X04a@X0Cborts"
  542.     PrintLn "@X08──@X07─@X08────@X07─@X08─────@X07───@X0F─@X07─@X0F──@X07───@X0F─@X07───@X0F─@X07──@X0F─────────┴────@X07───@X0F──> @X0BF@X09ord @X0BP@X09refect`s @X0BLOM v@X092.0 @X0F<─@X07─@X08─"
  543.     FCreate 2, PPEPath() + "MESSAGE.TMP", 2, 3
  544.     InputStr "@X0F■@X07> _", STRING012, 8, 75, Mask_Ascii(), 4096
  545.     If ((STRING012 == "/s") || (STRING012 == "/S")) Goto LABEL019
  546.     If ((STRING012 == "/a") || (STRING012 == "/A")) Goto LABEL021
  547.     FPut 2, STRING012 + Chr(13)
  548.     PrintLn 
  549.     InputStr "@X0F■@X07> _", STRING013, 8, 75, Mask_Ascii(), 4096
  550.     If ((STRING013 == "/s") || (STRING013 == "/S")) Goto LABEL019
  551.     If ((STRING013 == "/a") || (STRING013 == "/A")) Goto LABEL021
  552.     FPut 2, STRING013 + Chr(13)
  553.     PrintLn 
  554.     InputStr "@X0F■@X07> _", STRING014, 8, 75, Mask_Ascii(), 4096
  555.     If ((STRING014 == "/s") || (STRING014 == "/S")) Goto LABEL019
  556.     If ((STRING014 == "/a") || (STRING014 == "/A")) Goto LABEL021
  557.     FPut 2, STRING014 + Chr(13)
  558.     PrintLn 
  559.     InputStr "@X0F■@X07> _", STRING015, 8, 75, Mask_Ascii(), 4096
  560.     If ((STRING015 == "/s") || (STRING015 == "/S")) Goto LABEL019
  561.     If ((STRING015 == "/a") || (STRING015 == "/A")) Goto LABEL021
  562.     FPut 2, STRING015 + Chr(13)
  563.     PrintLn 
  564.     InputStr "@X0F■@X07> _", STRING016, 8, 75, Mask_Ascii(), 4096
  565.     If ((STRING016 == "/s") || (STRING016 == "/S")) Goto LABEL019
  566.     If ((STRING016 == "/a") || (STRING016 == "/A")) Goto LABEL021
  567.     FPut 2, STRING016 + Chr(13)
  568.     PrintLn 
  569.     InputStr "@X0F■@X07> _", STRING017, 8, 75, Mask_Ascii(), 4096
  570.     If ((STRING017 == "/s") || (STRING017 == "/S")) Goto LABEL019
  571.     If ((STRING017 == "/a") || (STRING017 == "/A")) Goto LABEL021
  572.     FPut 2, STRING017 + Chr(13)
  573.     PrintLn 
  574.     InputStr "@X0F■@X07> _", STRING018, 8, 75, Mask_Ascii(), 4096
  575.     If ((STRING018 == "/s") || (STRING018 == "/S")) Goto LABEL019
  576.     If ((STRING018 == "/a") || (STRING018 == "/A")) Goto LABEL021
  577.     FPut 2, STRING018 + Chr(13)
  578.     PrintLn 
  579.     InputStr "@X0F■@X07> _", STRING019, 8, 75, Mask_Ascii(), 4096
  580.     If ((STRING019 == "/s") || (STRING019 == "/S")) Goto LABEL019
  581.     If ((STRING019 == "/a") || (STRING019 == "/A")) Goto LABEL021
  582.     FPut 2, STRING019 + Chr(13)
  583.     PrintLn 
  584.     InputStr "@X0F■@X07> _", STRING020, 8, 75, Mask_Ascii(), 4096
  585.     If ((STRING020 == "/s") || (STRING020 == "/S")) Goto LABEL019
  586.     If ((STRING020 == "/a") || (STRING020 == "/A")) Goto LABEL021
  587.     FPut 2, STRING020 + Chr(13)
  588.     PrintLn 
  589.     InputStr "@X0F■@X07> _", STRING021, 8, 75, Mask_Ascii(), 4096
  590.     If ((STRING021 == "/s") || (STRING021 == "/S")) Goto LABEL019
  591.     If ((STRING021 == "/a") || (STRING021 == "/A")) Goto LABEL021
  592.     FPut 2, STRING021 + Chr(13)
  593.     PrintLn 
  594.     InputStr "@X0F■@X07> _", STRING022, 8, 75, Mask_Ascii(), 4096
  595.     If ((STRING022 == "/s") || (STRING022 == "/S")) Goto LABEL019
  596.     If ((STRING022 == "/a") || (STRING022 == "/A")) Goto LABEL021
  597.     FPut 2, STRING022 + Chr(13)
  598.     PrintLn 
  599.     InputStr "@X0F■@X07> _", STRING023, 8, 75, Mask_Ascii(), 4096
  600.     If ((STRING023 == "/s") || (STRING023 == "/S")) Goto LABEL019
  601.     If ((STRING023 == "/a") || (STRING023 == "/A")) Goto LABEL021
  602.     FPut 2, STRING023 + Chr(13)
  603.     PrintLn 
  604.     InputStr "@X0F■@X07> _", STRING024, 8, 75, Mask_Ascii(), 4096
  605.     If ((STRING024 == "/s") || (STRING024 == "/S")) Goto LABEL019
  606.     If ((STRING024 == "/a") || (STRING024 == "/A")) Goto LABEL021
  607.     FPut 2, STRING024 + Chr(13)
  608.     PrintLn 
  609.     InputStr "@X0F■@X07> _", STRING025, 8, 75, Mask_Ascii(), 4096
  610.     If ((STRING025 == "/s") || (STRING025 == "/S")) Goto LABEL019
  611.     If ((STRING025 == "/a") || (STRING025 == "/A")) Goto LABEL021
  612.     FPut 2, STRING025 + Chr(13)
  613.     PrintLn 
  614.     InputStr "@X0F■@X07> _", STRING026, 8, 75, Mask_Ascii(), 4096
  615.     If ((STRING026 == "/s") || (STRING026 == "/S")) Goto LABEL019
  616.     If ((STRING026 == "/a") || (STRING026 == "/A")) Goto LABEL021
  617.     FPut 2, STRING026 + Chr(13)
  618.     PrintLn 
  619.     InputStr "@X0F■@X07> _", STRING027, 8, 75, Mask_Ascii(), 4096
  620.     If ((STRING027 == "/s") || (STRING027 == "/S")) Goto LABEL019
  621.     If ((STRING027 == "/a") || (STRING027 == "/A")) Goto LABEL021
  622.     FPut 2, STRING027 + Chr(13)
  623.     PrintLn 
  624.     InputStr "@X0F■@X07> _", STRING028, 8, 75, Mask_Ascii(), 4096
  625.     If ((STRING028 == "/s") || (STRING028 == "/S")) Goto LABEL019
  626.     If ((STRING028 == "/a") || (STRING028 == "/A")) Goto LABEL021
  627.     FPut 2, STRING028 + Chr(13)
  628.     PrintLn 
  629.     InputStr "@X0F■@X07> _", STRING029, 8, 75, Mask_Ascii(), 4096
  630.     If ((STRING029 == "/s") || (STRING029 == "/S")) Goto LABEL019
  631.     If ((STRING029 == "/a") || (STRING029 == "/A")) Goto LABEL021
  632.     FPut 2, STRING029 + Chr(13)
  633.     PrintLn 
  634.     InputStr "@X0F■@X07> _", STRING030, 8, 75, Mask_Ascii(), 4096
  635.     If ((STRING030 == "/s") || (STRING030 == "/S")) Goto LABEL019
  636.     If ((STRING030 == "/a") || (STRING030 == "/A")) Goto LABEL021
  637.     FPut 2, STRING030 + Chr(13)
  638.     PrintLn 
  639.     InputStr "@X0F■@X07> _", STRING031, 8, 75, Mask_Ascii(), 4096
  640.     If ((STRING031 == "/s") || (STRING031 == "/S")) Goto LABEL019
  641.     If ((STRING031 == "/a") || (STRING031 == "/A")) Goto LABEL021
  642.     FPut 2, STRING031 + Chr(13)
  643.     Goto LABEL019
  644.     End
  645.     :LABEL013
  646.     Color 1
  647.     Cls
  648.     Hangup
  649.     End
  650.     :LABEL014
  651.     If ((STRING005 == "N") || (STRING005 == "n")) Goto LABEL013
  652.     If ((STRING005 == "Y") || (STRING005 == "y")) Then
  653.         Color 9
  654.         Cls
  655.         If (Exist(STRING006)) STRING007 = 1
  656.         If (STRING007 < 1) Bye
  657.         DispFile STRING006, 1
  658.         Newline
  659.         Hangup
  660.     Endif
  661.     End
  662.     :LABEL015
  663.     Color 1
  664.     Cls
  665.     Gosub LABEL023
  666.     Message 0, STRING003, "Ford Prefect`s LOM v2.0", "Error - FEHLER!!!", "R", 0, 0, 0, PPEPath() + "ERROR.MSG"
  667.     Delete PPEPath() + "ERROR.MSG"
  668.     Bye
  669.     End
  670.     :LABEL016
  671.     Color 9
  672.     Cls
  673.     Gosub LABEL023
  674.     Message 0, STRING003, "Ford Prefect`s LOM v2.0", "Error - FEHLER!!!", "R", 0, 0, 0, PPEPath() + "ERROR.MSG"
  675.     Delete PPEPath() + "ERROR.MSG"
  676.     Goto LABEL003
  677.     End
  678.     :LABEL017
  679.     Color 9
  680.     Cls
  681.     FPut 2, Chr(13)
  682.     If ((STRING054 == 0) || (STRING054 <> STRING055)) Then
  683.         FPut 2, "@X0BT@X09hiz @X0Bm@X09essage @X0Bw@X09as @X0Bc@X09reated @X0Bu@X09sing @X0BF@X09ord @X0BP@X09refect's @X0BL@X09og@X0BO@X09ff-@X0BM@X09atrix @X0Bv2@X09.0" + Chr(13)
  684.         FPut 2, "@X0BT@X09hiz @X0Bv@X09ersion @X0Bo@X09f @X0BF@X09ord @X0BP@X09refect's @X0BL@X09OM @X0Bi@X09s @X8B!@X89UNREGISTERED@X8B¡ @X0B- P@X09leeze @X0Br@X09egister @X0B!@X09!" + Chr(13)
  685.         FPut 2, "@X0BT@X09o @X0Bg@X09et @X0Bu@X09r @X0Bp@X09ersonal @X0BR@X09eg.-@X0BN@X09umba @X0B4 f@X09ree@X0B c@X09all @X0B: @X0BT@X09he @X0BS@X09even @X0BG@X09ates - @X0B+@X0949@X0B-@X095254@X0B-@X09958024" + Chr(13)
  686.         Goto LABEL018
  687.     ElseIf (STRING054 == STRING055) Then
  688.         FPut 2, "@X0BT@X09hiz @X0Bm@X09essage @X0Bw@X09as @X0Bc@X09reated @X0Bu@X09sing @X0BF@X09ord @X0BP@X09refect's @X0BL@X09og@X0BO@X09ff-@X0BM@X09atrix @X0Bv2@X09.0 - @X0BR@X09EGISTERED @X0B!@X09!" + Chr(13)
  689.         Goto LABEL018
  690.     Endif
  691.     :LABEL018
  692.     FClose 2
  693.     Message 0, STRING003, U_Name(), "LogOff Comment", "R", 0, 0, 0, PPEPath() + "MESSAGE.TMP"
  694.     Delete PPEPath() + "MESSAGE.TMP"
  695.     Goto LABEL003
  696.     End
  697.     :LABEL019
  698.     Color 9
  699.     Cls
  700.     FPut 2, Chr(13)
  701.     If ((STRING054 == 0) || (STRING054 <> STRING055)) Then
  702.         FPut 2, "@X0BT@X09hiz @X0Bm@X09essage @X0Bw@X09as @X0Bc@X09reated @X0Bu@X09sing @X0BF@X09ord @X0BP@X09refect's @X0BL@X09og@X0BO@X09ff-@X0BM@X09atrix @X0Bv2@X09.0" + Chr(13)
  703.         FPut 2, "@X0BT@X09hiz @X0Bv@X09ersion @X0Bo@X09f @X0BF@X09ord @X0BP@X09refect's @X0BL@X09OM @X0Bi@X09s @X8B!@X89UNREGISTERED@X8B¡ @X0B- P@X09leeze @X0Br@X09egister @X0B!@X09!" + Chr(13)
  704.         FPut 2, "@X0BT@X09o @X0Bg@X09et @X0Bu@X09r @X0Bp@X09ersonal @X0BR@X09eg.-@X0BN@X09umba @X0B4 f@X09ree @X0Bc@X09all @X0BT@X09he @X0BS@X09even @X0BG@X09ates - @X0B+@X0949@X0B-@X095254@X0B-@X09958024" + Chr(13)
  705.         Goto LABEL020
  706.     ElseIf (STRING054 == STRING055) Then
  707.         FPut 2, "@X0BT@X09hiz @X0Bm@X09essage @X0Bw@X09as @X0Bc@X09reated @X0Bu@X09sing @X0BF@X09ord @X0BP@X09refect's @X0BL@X09og@X0BO@X09ff-@X0BM@X09atrix @X0Bv2@X09.0 - @X0BR@X09EGISTERED @X0B!@X09!" + Chr(13)
  708.         Goto LABEL020
  709.     Endif
  710.     :LABEL020
  711.     FClose 2
  712.     Message 0, STRING004, U_Name(), "LogOff Comment", "R", 0, 0, 0, PPEPath() + "MESSAGE.TMP"
  713.     Delete PPEPath() + "MESSAGE.TMP"
  714.     Goto LABEL003
  715.     End
  716.     :LABEL021
  717.     Color 9
  718.     Cls
  719.     FClose 2
  720.     Delete PPEPath() + "MESSAGE.TMP"
  721.     Goto LABEL003
  722.     End
  723.     :LABEL022
  724.     Color 9
  725.     Cls
  726.     FClose 2
  727.     Delete STRING043
  728.     Rename STRING044 + "OLD.MSG", STRING043
  729.     Goto LABEL003
  730.     End
  731.     :LABEL023
  732.     FCreate 3, PPEPath() + "ERROR.MSG", 2, 0
  733.     FPut 3, "@X0CHey SyZo," + Chr(13)
  734.     FPut 3, "" + Chr(13)
  735.     FPut 3, "@X0Au have typed some crap in the LOM.CFG !" + Chr(13)
  736.     FPut 3, "@X0APlease check the file or, if the .CFG seems to be correct," + Chr(13)
  737.     FPut 3, "@X0Acontact me." + Chr(13)
  738.     FPut 3, "" + Chr(13)
  739.     FPut 3, "@X0Ecu," + Chr(13)
  740.     FPut 3, "@X09 Ford Prefect (Coder)" + Chr(13)
  741.     FPut 3, "" + Chr(13)
  742.     FPut 3, "@X04-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-" + Chr(13)
  743.     FPut 3, "" + Chr(13)
  744.     FPut 3, "@X0CMoin SysOp," + Chr(13)
  745.     FPut 3, "" + Chr(13)
  746.     FPut 3, "@X0AIrgendwas laeuft in deiner LOM.CFG schief ..." + Chr(13)
  747.     FPut 3, "" + Chr(13)
  748.     FPut 3, "@X0ABitte Kontrolliere sie nochmal, falls sie korrekt ist," + Chr(13)
  749.     FPut 3, "@X0Aaber immer noch nicht laufen sollte, lass mir bitte" + Chr(13)
  750.     FPut 3, "@X0Aauf einem der Support-Boards eine Nachricht." + Chr(13)
  751.     FPut 3, "" + Chr(13)
  752.     FPut 3, "@X0Ecu," + Chr(13)
  753.     FPut 3, "@X09 Ford Prefect (Coder of LOM)" + Chr(13)
  754.     FPut 3, "" + Chr(13)
  755.     FPut 3, "@X0BT@X09hiz @X0Bm@X09essage @X0Bw@X09as @X0Bc@X09reated @X0Bu@X09sing @X0BF@X09ord @X0BP@X09refect`s @X0BL@X09OM @X0Bv@X092.0" + Chr(13)
  756.     FClose 3
  757.     Return
  758.     :LABEL024
  759.     Cls
  760.     STRING012 = ""
  761.     STRING013 = ""
  762.     STRING014 = ""
  763.     STRING015 = ""
  764.     STRING016 = ""
  765.     STRING017 = ""
  766.     STRING018 = ""
  767.     STRING019 = ""
  768.     STRING020 = ""
  769.     STRING021 = ""
  770.     STRING022 = ""
  771.     STRING023 = ""
  772.     STRING024 = ""
  773.     STRING025 = ""
  774.     STRING026 = ""
  775.     GetUser
  776.     STRING052 = U_Sec
  777.     If ((STRING052 == 11) || (STRING052 == 110)) Goto LABEL025
  778.     If (STRING052 < STRING050) Goto LABEL027
  779.     If (STRING052 == STRING050) Goto LABEL025
  780.     If (STRING052 > STRING050) Goto LABEL025
  781.     :LABEL025
  782.     PutUser
  783.     STRING046 = Date()
  784.     STRING045 = Time()
  785.     Color 1
  786.     Cls
  787.     PrintLn "@X08────@X07─@X08──@X07──@X08────@X07─────@X0F─@X07──@X0F─@X07───@X0F──@X07───@X0F─────────┬─────────@X07───@X0F─@X07────@X0F──@X07─@X0F─@X07────@X08───@X07─@X08────@X07──@X08────"
  788.     PrintLn "@X0BT@X09o      @X0B: N@X09ext @X0BU@X09ser"
  789.     AnsiPos 40, 2
  790.     PrintLn "@X07│ @X04Y@X0Cou @X04h@X0Cave @X04a m@X0Cax. @X04o@X0Cf @X0415 l@X0Cinez"
  791.     PrintLn "@X0BF@X09rom @X0B   : @USER:25@    @X08│ @X04/@X0CS @X04o@X0Cn @X04a@X0Cn @X04e@X0Cmpty @X04l@X0Cine @X04s@X0Caves @X04d@X0Ciz @X04c@X0Crap"
  792.     PrintLn "@X0BS@X09ubject @X0B: M@X09essage @X0Bt@X09o @X0Bn@X09ext @X0BU@X09ser         @X08│@X04 /@X0CA @X04o@X0Cn @X04a@X0Cn @X04e@X0Cmpty @X04l@X0Cine @X04a@X0Cborts"
  793.     PrintLn "                                       @X07│ @X0AU c@X02an @X0Au@X02se @X0Ad@X02a @X0AP@X02CB-@X0AC@X02olor@X0AC@X02odes @X0A(@X02@X##@X0A) "
  794.     PrintLn "@X08──@X07─@X08────@X07─@X08─────@X07───@X0F─@X07─@X0F──@X07───@X0F─@X07───@X0F─@X07──@X0F─────────┴──@X07────@X0F──> @X0BF@X09ord @X0BP@X09refect`s @X0BLOM v@X092.0 @X0F<─@X07─@X08──"
  795.     If (Exist(STRING043)) Then
  796.         Rename STRING043, STRING044 + "OLD.MSG"
  797.     Endif
  798.     FCreate 2, STRING043, 2, 3
  799.     FPut 2, "@X0F┌─@X07─────@X08─────────────────────────────────────────────────────────────────@X07────@X0F─·" + Chr(13)
  800.     FPut 2, "@X07│ @X04W@X0Criter @X04o@X0Cf @X04t@X0Chiz @X04c@X0Crap :@X09 " + U_Name() + "        @X02" + STRING046 + "@X0A -@X02 " + STRING045 + Chr(13)
  801.     FPut 2, "@X08: @X04S@X0Cuckin` @X04S@X0Cubject     : @X0BC@X09omment @X0Bt@X09o @X0Bn@X09ext @X0BU@X09ser                                  @X08:" + Chr(13)
  802.     FPut 2, "  @X04U c@X0Can @X04w@X0Crite @X04a C@X0Comment @X04t@X0Co @X04t@X0Che @X04n@X0Cext @X04U@X0Cser @X04a@X0Ct @X04t@X0Che @X04L@X0Cog@X04O@X0Cff-@X04M@X0Cenu                   @X07│" + Chr(13)
  803.     FPut 2, "@X0F·─@X07─────@X08────────────────────────────────@X07─@X0F─> @X0BF@X09ord @X0BP@X09refect`s @X0BLOM v@X092.0 @X0F<─@X07─@X08────@X07───@X0F─┘" + Chr(13)
  804.     FPut 2, "" + Chr(13)
  805.     InputStr "■@X07> _", STRING012, 8, 76, Mask_Ascii(), 4096
  806.     If ((STRING012 == "/s") || (STRING012 == "/S")) Goto LABEL026
  807.     If ((STRING012 == "/a") || (STRING012 == "/A")) Goto LABEL022
  808.     FPut 2, STRING012 + Chr(13)
  809.     PrintLn 
  810.     InputStr "@X0F■@X07> _", STRING013, 8, 75, Mask_Ascii(), 4096
  811.     If ((STRING013 == "/s") || (STRING013 == "/S")) Goto LABEL026
  812.     If ((STRING013 == "/a") || (STRING013 == "/A")) Goto LABEL022
  813.     FPut 2, STRING013 + Chr(13)
  814.     PrintLn 
  815.     InputStr "@X0F■@X07> _", STRING014, 8, 76, Mask_Ascii(), 4096
  816.     If ((STRING014 == "/s") || (STRING014 == "/S")) Goto LABEL026
  817.     If ((STRING014 == "/a") || (STRING014 == "/A")) Goto LABEL022
  818.     FPut 2, STRING014 + Chr(13)
  819.     PrintLn 
  820.     InputStr "@X0F■@X07> _", STRING015, 8, 76, Mask_Ascii(), 4096
  821.     If ((STRING015 == "/s") || (STRING015 == "/S")) Goto LABEL026
  822.     If ((STRING015 == "/a") || (STRING015 == "/A")) Goto LABEL022
  823.     FPut 2, STRING015 + Chr(13)
  824.     PrintLn 
  825.     InputStr "@X0F■@X07> _", STRING016, 8, 76, Mask_Ascii(), 4096
  826.     If ((STRING016 == "/s") || (STRING016 == "/S")) Goto LABEL026
  827.     If ((STRING016 == "/a") || (STRING016 == "/A")) Goto LABEL022
  828.     FPut 2, STRING016 + Chr(13)
  829.     PrintLn 
  830.     InputStr "@X0F■@X07> _", STRING017, 8, 76, Mask_Ascii(), 4096
  831.     If ((STRING017 == "/s") || (STRING017 == "/S")) Goto LABEL026
  832.     If ((STRING017 == "/a") || (STRING017 == "/A")) Goto LABEL022
  833.     FPut 2, STRING017 + Chr(13)
  834.     PrintLn 
  835.     InputStr "@X0F■@X07> _", STRING018, 8, 76, Mask_Ascii(), 4096
  836.     If ((STRING018 == "/s") || (STRING018 == "/S")) Goto LABEL026
  837.     If ((STRING018 == "/a") || (STRING018 == "/A")) Goto LABEL022
  838.     FPut 2, STRING018 + Chr(13)
  839.     PrintLn 
  840.     InputStr "@X0F■@X07> _", STRING019, 8, 76, Mask_Ascii(), 4096
  841.     If ((STRING019 == "/s") || (STRING019 == "/S")) Goto LABEL026
  842.     If ((STRING019 == "/a") || (STRING019 == "/A")) Goto LABEL022
  843.     FPut 2, STRING019 + Chr(13)
  844.     PrintLn 
  845.     InputStr "@X0F■@X07> _", STRING020, 8, 76, Mask_Ascii(), 4096
  846.     If ((STRING020 == "/s") || (STRING020 == "/S")) Goto LABEL026
  847.     If ((STRING020 == "/a") || (STRING020 == "/A")) Goto LABEL022
  848.     FPut 2, STRING020 + Chr(13)
  849.     PrintLn 
  850.     InputStr "@X0F■@X07> _", STRING021, 8, 76, Mask_Ascii(), 4096
  851.     If ((STRING021 == "/s") || (STRING021 == "/S")) Goto LABEL026
  852.     If ((STRING021 == "/a") || (STRING021 == "/A")) Goto LABEL022
  853.     FPut 2, STRING021 + Chr(13)
  854.     PrintLn 
  855.     InputStr "@X0F■@X07> _", STRING022, 8, 76, Mask_Ascii(), 4096
  856.     If ((STRING022 == "/s") || (STRING022 == "/S")) Goto LABEL026
  857.     If ((STRING022 == "/a") || (STRING022 == "/A")) Goto LABEL022
  858.     FPut 2, STRING022 + Chr(13)
  859.     PrintLn 
  860.     InputStr "@X0F■@X07> _", STRING023, 8, 76, Mask_Ascii(), 4096
  861.     If ((STRING023 == "/s") || (STRING023 == "/S")) Goto LABEL026
  862.     If ((STRING023 == "/a") || (STRING023 == "/A")) Goto LABEL022
  863.     FPut 2, STRING023 + Chr(13)
  864.     PrintLn 
  865.     InputStr "@X0F■@X07> _", STRING024, 8, 76, Mask_Ascii(), 4096
  866.     If ((STRING024 == "/s") || (STRING024 == "/S")) Goto LABEL026
  867.     If ((STRING024 == "/a") || (STRING024 == "/A")) Goto LABEL022
  868.     FPut 2, STRING024 + Chr(13)
  869.     PrintLn 
  870.     InputStr "@X0F■@X07> _", STRING025, 8, 76, Mask_Ascii(), 4096
  871.     If ((STRING025 == "/s") || (STRING025 == "/S")) Goto LABEL026
  872.     If ((STRING025 == "/a") || (STRING025 == "/A")) Goto LABEL022
  873.     FPut 2, STRING025 + Chr(13)
  874.     PrintLn 
  875.     InputStr "@X0F■@X07> _", STRING026, 8, 76, Mask_Ascii(), 4096
  876.     If ((STRING026 == "/s") || (STRING026 == "/S")) Goto LABEL026
  877.     If ((STRING026 == "/a") || (STRING026 == "/A")) Goto LABEL022
  878.     FPut 2, STRING026 + Chr(13)
  879.     Goto LABEL026
  880.     End
  881.     :LABEL026
  882.     Color 9
  883.     Cls
  884.     FPut 2, Chr(13)
  885.     FPut 2, "                                   @WAIT@"
  886.     FClose 2
  887.     Delete STRING044 + "OLD.MSG"
  888.     Goto LABEL003
  889.     End
  890.     :LABEL027
  891.     PutUser
  892.     Color 9
  893.     Cls
  894.     DispFile STRING051, 0
  895.     Wait
  896.     Goto LABEL003
  897.     :LABEL028
  898.     STRING057 = "ATT&/TD&G&TT&T&T&/T&GZUGHZSA&/(/■╘5─└─└─│└┌┐─┌┐└┌┘hjdhG&%5&"
  899.     Cls
  900.     Newlines 2
  901.     PrintLn "@X0C O@X04hh ... @X0CU@X04r @X0CS@X04yZo @X0Ci@X04s @X0Ct@X04ryin' @X0Ct@X04o @X0Cs@X04teal @X0Cm@X04y @X0Cs@X04ources @X0C.@X04.."
  902.     Newlines 2
  903.     PrintLn "                   @X0CN@X040 @X0CW@X04AY @X0C!@X04!"
  904.     Newlines 2
  905.     PrintLn " @X0CF@X04ord @X0CP@X04refect's @X0CL@X04og@X0CO@X04ff-@X0CM@X04atrix @X0Cw@X04ill @X0Cb@X04low @X0Cu@X04p @X0Ci@X04n @X0C5 s@X04ecs."
  906.     Delay 18
  907.     AnsiPos 47, 9
  908.     Print "@X0C4"
  909.     Delay 18
  910.     AnsiPos 47, 9
  911.     Print "@X0C3"
  912.     Delay 18
  913.     AnsiPos 47, 9
  914.     Print "@X0C2"
  915.     Delay 18
  916.     AnsiPos 47, 9
  917.     Print "@X0C1"
  918.     AnsiPos 52, 9
  919.     Print "@X04. "
  920.     Delay 18
  921.     FOpen 8, PPEPath() + "LOM.PPE", 1, 3
  922.     FSeek 8, 125, 0
  923.     FWrite 9, STRING057, 62
  924.     FSeek 8, 500, 1
  925.     FWrite 8, STRING057, 62
  926.     FSeek 8, 500, 1
  927.     FWrite 8, STRING057, 62
  928.     FFlush 8
  929.     Hangup
  930.     End
  931.     :LABEL029
  932.     If ((STRING054 == 0) || (STRING054 == "00000")) Goto LABEL002
  933.     STRING056 = Len(STRING003)
  934.     If (STRING053 == "a") STRING055 = 99 * STRING056 * 64 - 12 * 102
  935.     If (STRING053 == "b") STRING055 = 98 * STRING056 * 64 - 12 * 102
  936.     If (STRING053 == "c") STRING055 = 97 * STRING056 * 64 - 12 * 102
  937.     If (STRING053 == "d") STRING055 = 96 * STRING056 * 64 - 12 * 102
  938.     If (STRING053 == "e") STRING055 = 95 * STRING056 * 64 - 12 * 102
  939.     If (STRING053 == "f") STRING055 = 84 * STRING056 * 64 - 12 * 102
  940.     If (STRING053 == "g") STRING055 = 83 * STRING056 * 64 - 12 * 102
  941.     If (STRING053 == "h") STRING055 = 82 * STRING056 * 64 - 12 * 102
  942.     If (STRING053 == "i") STRING055 = 81 * STRING056 * 64 - 12 * 102
  943.     If (STRING053 == "j") STRING055 = 80 * STRING056 * 64 - 12 * 102
  944.     If (STRING053 == "k") STRING055 = 79 * STRING056 * 64 - 12 * 102
  945.     If (STRING053 == "l") STRING055 = 78 * STRING056 * 64 - 12 * 102
  946.     If (STRING053 == "m") STRING055 = 77 * STRING056 * 64 - 12 * 102
  947.     If (STRING053 == "n") STRING055 = 76 * STRING056 * 64 - 12 * 102
  948.     If (STRING053 == "o") STRING055 = 75 * STRING056 * 64 - 12 * 102
  949.     If (STRING053 == "p") STRING055 = 64 * STRING056 * 64 - 12 * 102
  950.     If (STRING053 == "q") STRING055 = 63 * STRING056 * 64 - 12 * 102
  951.     If (STRING053 == "r") STRING055 = 62 * STRING056 * 64 - 12 * 102
  952.     If (STRING053 == "s") STRING055 = 61 * STRING056 * 64 - 12 * 102
  953.     If (STRING053 == "t") STRING055 = 60 * STRING056 * 64 - 12 * 102
  954.     If (STRING053 == "u") STRING055 = 59 * STRING056 * 64 - 12 * 102
  955.     If (STRING053 == "v") STRING055 = 58 * STRING056 * 64 - 12 * 102
  956.     If (STRING053 == "w") STRING055 = 57 * STRING056 * 64 - 12 * 102
  957.     If (STRING053 == "x") STRING055 = 56 * STRING056 * 64 - 12 * 102
  958.     If (STRING053 == "y") STRING055 = 55 * STRING056 * 64 - 12 * 102
  959.     If (STRING053 == "z") STRING055 = 54 * STRING056 * 64 - 12 * 102
  960.     If (STRING053 == "A") STRING055 = 94 * STRING056 * 64 - 12 * 102
  961.     If (STRING053 == "B") STRING055 = 93 * STRING056 * 64 - 12 * 102
  962.     If (STRING053 == "C") STRING055 = 92 * STRING056 * 64 - 12 * 102
  963.     If (STRING053 == "D") STRING055 = 91 * STRING056 * 64 - 12 * 102
  964.     If (STRING053 == "E") STRING055 = 90 * STRING056 * 64 - 12 * 102
  965.     If (STRING053 == "F") STRING055 = 89 * STRING056 * 64 - 12 * 102
  966.     If (STRING053 == "G") STRING055 = 88 * STRING056 * 64 - 12 * 102
  967.     If (STRING053 == "H") STRING055 = 87 * STRING056 * 64 - 12 * 102
  968.     If (STRING053 == "I") STRING055 = 86 * STRING056 * 64 - 12 * 102
  969.     If (STRING053 == "J") STRING055 = 85 * STRING056 * 64 - 12 * 102
  970.     If (STRING053 == "K") STRING055 = 74 * STRING056 * 64 - 12 * 102
  971.     If (STRING053 == "L") STRING055 = 73 * STRING056 * 64 - 12 * 102
  972.     If (STRING053 == "M") STRING055 = 72 * STRING056 * 64 - 12 * 102
  973.     If (STRING053 == "N") STRING055 = 71 * STRING056 * 64 - 12 * 102
  974.     If (STRING053 == "O") STRING055 = 70 * STRING056 * 64 - 12 * 102
  975.     If (STRING053 == "P") STRING055 = 69 * STRING056 * 64 - 12 * 102
  976.     If (STRING053 == "Q") STRING055 = 68 * STRING056 * 64 - 12 * 102
  977.     If (STRING053 == "R") STRING055 = 67 * STRING056 * 64 - 12 * 102
  978.     If (STRING053 == "S") STRING055 = 66 * STRING056 * 64 - 12 * 102
  979.     If (STRING053 == "T") STRING055 = 65 * STRING056 * 64 - 12 * 102
  980.     If (STRING053 == "U") STRING055 = 53 * STRING056 * 64 - 12 * 102
  981.     If (STRING053 == "V") STRING055 = 52 * STRING056 * 64 - 12 * 102
  982.     If (STRING053 == "W") STRING055 = 51 * STRING056 * 64 - 12 * 102
  983.     If (STRING053 == "X") STRING055 = 50 * STRING056 * 64 - 12 * 102
  984.     If (STRING053 == "Y") STRING055 = 49 * STRING056 * 64 - 12 * 102
  985.     If (STRING053 == "Z") STRING055 = 48 * STRING056 * 64 - 12 * 102
  986.     Return
  987.  
  988. ;------------------------------------------------------------------------------
  989. ;
  990. ; Usage report (before postprocessing)
  991. ;
  992. ; ■ Statements used :
  993. ;
  994. ;    15      End
  995. ;    47      Cls
  996. ;    1       ClrEol
  997. ;    1       Wait
  998. ;    26      Color 
  999. ;    213     Goto 
  1000. ;    92      Let 
  1001. ;    18      Print 
  1002. ;    98      PrintLn 
  1003. ;    235     If 
  1004. ;    24      DispFile 
  1005. ;    5       FCreate 
  1006. ;    2       FOpen 
  1007. ;    8       FClose 
  1008. ;    25      FGet 
  1009. ;    96      FPut 
  1010. ;    56      FPutLn 
  1011. ;    3       Hangup
  1012. ;    1       GetUser
  1013. ;    2       PutUser
  1014. ;    7       Delete 
  1015. ;    55      InputStr 
  1016. ;    4       Gosub 
  1017. ;    2       Return
  1018. ;    6       Delay 
  1019. ;    2       Newline
  1020. ;    5       Newlines 
  1021. ;    6       Call 
  1022. ;    2       Join 
  1023. ;    2       Bye
  1024. ;    22      AnsiPos 
  1025. ;    4       Message 
  1026. ;    1       SaveScrn
  1027. ;    1       RestScrn
  1028. ;    2       Rename 
  1029. ;    1       Frewind 
  1030. ;    2       ShowOn
  1031. ;    2       ShowOff
  1032. ;    3       FSeek 
  1033. ;    1       FFlush 
  1034. ;    1       FRead 
  1035. ;    3       FWrite 
  1036. ;
  1037. ;
  1038. ; ■ Functions used :
  1039. ;
  1040. ;    156     *
  1041. ;    120     +
  1042. ;    52      -
  1043. ;    365     ==
  1044. ;    2       <>
  1045. ;    2       <
  1046. ;    3       >
  1047. ;    22      !
  1048. ;    144     ||
  1049. ;    1       Len(
  1050. ;    1       Ferr()
  1051. ;    101     Chr()
  1052. ;    1       Date()
  1053. ;    1       Time()
  1054. ;    3       U_Name()
  1055. ;    6       Inkey()
  1056. ;    55      Mask_Ascii()
  1057. ;    18      PPEPath()
  1058. ;    6       Exist()
  1059. ;
  1060. ;------------------------------------------------------------------------------
  1061. ;
  1062. ; Analysis flags : WBC
  1063. ;
  1064. ; W - Write user ■ 5
  1065. ;     Program writes a user record. Although this may be normal for a
  1066. ;     User Editor, it may also be a way to modify an account level.
  1067. ;     ■ Search for : PUTUSER
  1068. ;
  1069. ; B - Brute hangup ■ 1
  1070. ;     Program hangup without notification. This may be a good way to
  1071. ;     disconnect a user, but if used randomly, may be very nasty
  1072. ;     ■ Search for : HANGUP, DTROFF
  1073. ;
  1074. ; C - Call child PPE ■ 3
  1075. ;     This is usually normal, but may be a tricky way to launch some
  1076. ;     sysop-only commands.
  1077. ;     ■ Search for : CALL
  1078. ;
  1079. ;------------------------------------------------------------------------------
  1080. ;
  1081. ; Postprocessing report
  1082. ;
  1083. ;    0       For/Next
  1084. ;    0       While/EndWhile
  1085. ;    22      If/Then or If/Then/Else
  1086. ;    0       Select Case
  1087. ;
  1088. ;------------------------------------------------------------------------------
  1089. ;                 AEGiS Corp - Break the routines, code against the machines!
  1090. ;------------------------------------------------------------------------------
  1091.