home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PWAPCP01.ZIP / TUTOR152 / TUTOR.PPX < prev    next >
Text File  |  1995-09-03  |  18KB  |  351 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                                              
  3. ;  █▀████ ████▄▄   █▀████ █████▄▄   █▀████ █████▄▄   █▀█▀ ▄  █▀████ █████▄▄    
  4. ;  ██████     ███  ██████      ███  ██████      ███  █▀ ▄██  ██████      ███   
  5. ;  ████▓█     ███  ████▓█      ███  ████▓█      ███   ▄██▓█  ████▓█      ███   
  6. ;  ███▓▒█     ███  ███▓▒█           ███▓▒█           ███▓▒█  ███▓▒█            
  7. ;  ██▓▒░█ ░▒▓████  ██▓▒░█ ░▒▓█      ██▓▒░█ ░▒▓███▄   ██▓▒░█  ▀█▓▒░████████▄    
  8. ;  █▓▒░ █     █▓█  █▓▒░ █      ▄▄▄  █▓▒░ █      █▓█  █▓▒░ █  ▄▄▄▄▄▄      █▓█   
  9. ;  █▒░  █     █▒█  █▒░  █      █▒█  █▒░  █      █▒█  █▒░  █  █▒░  █      █▒█   
  10. ;  █░   █     █░█  █░   █      █░█  █░   █      █░█  █░   █  █░   █      █░█   
  11. ;  █▄▄▄▄█KLoY!█▄█  █▄▄▄▄█ ██████▄▀  █▄▄▄▄█ ██████▄▀  █▄▄▄▄█  █▄▄▄▄█ ██████▄▀   
  12. ;                                                                              
  13. ;              C               O               R               P               
  14. ;------------------------------------------------------------------------------
  15. ; P.P.L.X. 1.5O                          (C)1995 - Lone Runner / AEGiS CoRP'95 
  16. ;------------------------------------------------------------------------------
  17. ; PPE 3.1O (crypted) - Analysis OFF
  18. ;------------------------------------------------------------------------------
  19.  
  20.     Integer  INTEGER001
  21.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.     String   STRING004
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.     Declare Function FUNCTION001() String
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     STRING001 = ReadLine(PcbDat(), 94)
  34.     INTEGER001 = Len(STRING001) / 16
  35.     STRING002 = 4646464
  36.     FOpen 1, PpePath() + "TUTOR.CFG", 0, 0
  37.     FGet 1, STRING003
  38.     FGet 1, STRING004
  39.     FGet 1, STRING006
  40.     FGet 1, STRING005
  41.     FGet 1, STRING007
  42.     FCloseAll
  43.     Log "      Opened DOOR (Tutorial) at @SYSTIME@", 1
  44.     If (!AnsiOn()) Goto LABEL000
  45.     Goto LABEL001
  46. :LABEL000
  47.     PrintLn 
  48.     PrintLn 
  49.     PrintLn "PCBoard Tutorial - ERROR: 101"
  50.     PrintLn 
  51.     PrintLn "ANSI.SYS is REQUIRED! to view this program."
  52.     PrintLn "Please make sure that you have the ANSI.SYS command loaded in your"
  53.     PrintLn "config.sys file and that you choose Color graphics on this system."
  54.     PrintLn 
  55.     Goto LABEL002
  56. :LABEL001
  57.     PrintLn "@CLS@@POFF@"
  58.     PrintLn 
  59.     PrintLn "@X1F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X08█"
  60.     PrintLn "@X1F█                                                                             @X18█@X07"
  61.     PrintLn "@X1F█    @X19PCB Tutorial       PCB Tutorial       PCB Tutorial       PCB Tutorial    @X08█"
  62.     PrintLn "@X1F█    @X19PCB T@X7F ┌─────────────────────────────────────────────────────────@X70┐ @X19ial    @X08█"
  63.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │    @X70╗══╗╔══╗╗══╗@X78tm  @X70╔═╦═╗╦  ╦╔═╦═╗╔══╗╔══╗ ╦ ╔══╗╦       │ @X19ial    @X08█"
  64.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │    @X71╠══╝║   ╠══╣      ║  ║  ║  ║  ║  ║╠═╦╝ ║ ╠══╣║       @X70│ @X19ial    @X08█"
  65.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │    @X70╩   ╚══╝╝══╝      ╩  ╚══╝  ╩  ╚══╝╩ ╚═ ╩ ╩  ╩╚══╝    │ @X19ial    @X08█"
  66.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │@X74                     Version 1.52                        @X70│ @X19ial    @X08█"
  67.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │ @X78   PCBoard Tutorial (C) (08-29-95) - A.600" + STRING003 + "711", "@POS:69@ @X70│ @X19ial    @X08█"
  68.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │                                                         @X70│ @X19ial    @X08█"
  69.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │ @X70                                                        │ @X19ial    @X08█"
  70.     PrintLn "@X1F█    @X19PCB@X08 T@X7F └@X70─────────────────────────────────────────────────────────┘ @X19ial    @X08█"
  71.     PrintLn "@X1F█    @X19PCB@X08 Tutorial        PCB Tutorial      PCB Tutorail       PCB Tuto@X19rial    @X08█"
  72.     PrintLn "@X1F█    @X19PCB Tutorial        PCB Tutorial      PCB Tutorial       PCB Tutorial    @X08█"
  73.     PrintLn "@X1F█                                                                             @X08█"
  74.     PrintLn "@X1F█@X18▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@X07"
  75.     PrintLn "@X03                       Copyright (c)1995 Equinox Software"
  76.     If (!(STRING002 <> STRING003)) Goto LABEL003
  77.     Goto LABEL004
  78.     Goto LABEL004
  79. :LABEL003
  80.     If (!(STRING002 == STRING003)) Goto LABEL004
  81.     Goto LABEL005
  82. :LABEL004
  83.     AnsiPos 27, 12
  84.     PrintLn "@XFEUNREGISTERED EVALUATION COPY@X03"
  85.     AnsiPos 27, 13
  86.     PrintLn "@X7E      20 Second Delay       @X07"
  87.     Delay 18 * 15
  88.     Goto LABEL006
  89. :LABEL005
  90.     AnsiPos 27, 12
  91.     PrintLn "@X70Registered and Licensed to:@X07"
  92.     AnsiPos 13, 13
  93.     PrintLn "@X70@BOARDNAME:54C@@X07"
  94.     AnsiPos 1, 22
  95.     PrintLn "@WAIT@"
  96. :LABEL006
  97.     PrintLn "@CLS@  @X4E  PCB Tutorial @X07    @X17╔════════════════════════════════════════════════════════╗@X07"
  98.     PrintLn "@X70┌─@X4E  Version 1.52 @X70─┐@X01  @X17║                                                        ║@X07"
  99.     PrintLn "@X70│                 │@X01  @X17╟────────────────────────────────────────────────────────╢@X07"
  100.     PrintLn "@X70│ @X6F @X60(@X6FA@X60)@X67ll about @X6F @X78▄ @X70│@X01  @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  101.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B┌──────────────────────────────────────────────────┐@X03░░@X17║@X07"
  102.     PrintLn "@X70│ @X10  @X13(@X1FC@X13)@X17ommands  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  103.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  104.     PrintLn "@X70│ @X2F @X28(@X2FL@X28)ogging On @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  105.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  106.     PrintLn "@X70│ @X1F  @X13(@X1FI@X13)@X17nternet  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  107.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│    Please make your selection from any of the    │@X03░░@X17║@X07"
  108.     PrintLn "@X70│ @X50   (@X5FU@X50)@X57senet   @X78▄ @X70│@X01  @X17║@X03░░@X0B│              catagories on the left.             │@X03░░@X17║@X07"
  109.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  110.     PrintLn "@X70│ @X30   @X34(@X3FF@X34)@X38idonet  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  111.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  112.     PrintLn "@X70│ @X40    (@X4FH@X40)@X47elp    @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  113.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  114.     PrintLn "@X70│ @X2F    @X28(@X2EE@X28)@X20XIT    @X78▄ @X70│@X0F  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  115.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B└──────────────────────────────────────────────────┘@X03░░@X17║@X07"
  116.     PrintLn "@X70│                 │@X01  @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  117.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  118.     If (!(STRING002 <> STRING003)) Goto LABEL007
  119.     Goto LABEL008
  120.     Goto LABEL009
  121. :LABEL007
  122.     If (!(STRING002 == STRING003)) Goto LABEL009
  123.     Goto LABEL009
  124. :LABEL009
  125.     AnsiPos 24, 2
  126.     PrintLn "@X1BRegistered to: @X1F@BOARDNAME:39@@X07"
  127.     Goto LABEL010
  128. :LABEL008
  129.     AnsiPos 36, 2
  130.     PrintLn "@X9E UNREGISTERED EVALUATION COPY@X07"
  131.     Goto LABEL010
  132. :LABEL010
  133.     Goto LABEL011
  134. :LABEL032
  135.     AnsiPos 1, 4
  136.     PrintLn "@X70│ @X6F @X60(@X6FA@X60)@X67ll about @X6F @X78▄ @X70│@X01  @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  137.     AnsiPos 1, 5
  138.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B┌──────────────────────────────────────────────────┐@X03░░@X17║@X07"
  139.     AnsiPos 1, 6
  140.     PrintLn "@X70│ @X10  @X13(@X1FC@X13)@X17ommands  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  141.     AnsiPos 1, 7
  142.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  143.     AnsiPos 1, 8
  144.     PrintLn "@X70│ @X2F @X28(@X2FL@X28)ogging On @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  145.     AnsiPos 1, 9
  146.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  147.     AnsiPos 1, 10
  148.     PrintLn "@X70│ @X1F  @X13(@X1FI@X13)@X17nternet  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  149.     AnsiPos 1, 11
  150.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│    Please make your selection from any of the    │@X03░░@X17║@X07"
  151.     AnsiPos 1, 12
  152.     PrintLn "@X70│ @X50   (@X5FU@X50)@X57senet   @X78▄ @X70│@X01  @X17║@X03░░@X0B│              catagories on the left.             │@X03░░@X17║@X07"
  153.     AnsiPos 1, 13
  154.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  155.     AnsiPos 1, 14
  156.     PrintLn "@X70│ @X30   @X34(@X3FF@X34)@X38idonet  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  157.     AnsiPos 1, 15
  158.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  159.     AnsiPos 1, 16
  160.     PrintLn "@X70│ @X40    (@X4FH@X40)@X47elp    @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  161.     AnsiPos 1, 17
  162.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  163.     AnsiPos 1, 18
  164.     PrintLn "@X70│ @X2F    @X28(@X2EE@X28)@X20XIT    @X78▄ @X70│@X0F  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  165.     AnsiPos 1, 19
  166.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B└──────────────────────────────────────────────────┘@X03░░@X17║@X07"
  167.     AnsiPos 1, 20
  168.     PrintLn "@X70│                 │@X01  @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  169.     AnsiPos 1, 21
  170.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  171.     AnsiPos 1, 22
  172.     PrintLn "                                                            "
  173. :LABEL011
  174.     AnsiPos 1, 22
  175.     STRING008 = " "
  176. :LABEL029
  177.     If (!(Upper(STRING008) <> "E")) Goto LABEL012
  178.     STRING008 = FUNCTION001()
  179.     If ((STRING008 == "END")) Goto LABEL002
  180.     If ((STRING008 == Chr(13))) Goto LABEL013
  181.     If (!(Upper(STRING008) == "A")) Goto LABEL014
  182.     Goto LABEL015
  183.     Goto LABEL016
  184. :LABEL014
  185.     If (!(Upper(STRING008) == "I")) Goto LABEL017
  186.     Goto LABEL018
  187.     Goto LABEL016
  188. :LABEL017
  189.     If (!(Upper(STRING008) == "U")) Goto LABEL019
  190.     Goto LABEL020
  191.     Goto LABEL016
  192. :LABEL019
  193.     If (!(Upper(STRING008) == "H")) Goto LABEL021
  194.     Goto LABEL022
  195.     Goto LABEL016
  196. :LABEL021
  197.     If (!(Upper(STRING008) == "F")) Goto LABEL023
  198.     Goto LABEL024
  199.     Goto LABEL016
  200. :LABEL023
  201.     If (!(Upper(STRING008) == "C")) Goto LABEL025
  202.     Goto LABEL026
  203.     Goto LABEL016
  204. :LABEL025
  205.     If (!(Upper(STRING008) == "L")) Goto LABEL027
  206.     Goto LABEL028
  207.     Goto LABEL016
  208. :LABEL027
  209.     If (!((Upper(STRING008) == "E") || (Upper(STRING008) == "e"))) Goto LABEL016
  210.     Goto LABEL002
  211. :LABEL016
  212.     Goto LABEL029
  213. :LABEL012
  214.     End
  215.  
  216. Function FUNCTION001() String
  217.  
  218. :LABEL031
  219.     If (!(FUNCTION001 == "")) Goto LABEL030
  220.     FUNCTION001 = Inkey()
  221.     Goto LABEL031
  222. :LABEL030
  223.  
  224. EndFunc
  225.  
  226. :LABEL013
  227.     AnsiPos 26, 17
  228.     PrintLn "@X4F  Please @XCEmake your selection @X4Ffrom the catagories  @X07"
  229.     AnsiPos 26, 18
  230.     PrintLn "@X4F                   on the LEFT.                   @X07"
  231.     Delay 100
  232.     Goto LABEL006
  233. :LABEL015
  234.     Call PpePath() + "ABOUT.MOD"
  235.     Goto LABEL032
  236. :LABEL028
  237.     Call PpePath() + "LOGIN.MOD"
  238.     Goto LABEL006
  239. :LABEL018
  240.     Call PpePath() + "INTERNT.MOD"
  241.     Goto LABEL032
  242. :LABEL026
  243.     Call PpePath() + "commands.mod"
  244.     Goto LABEL032
  245. :LABEL020
  246.     Call PpePath() + "USENET.MOD"
  247.     Goto LABEL032
  248. :LABEL022
  249.     Call PpePath() + "HELP.MOD"
  250.     Goto LABEL032
  251. :LABEL024
  252.     Call PpePath() + "FIDO.MOD"
  253.     Goto LABEL032
  254. :LABEL002
  255.     PrintLn "@CLS@@X1F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X08█@X0B"
  256.     PrintLn "@X1F█                                                                            @X18█@X0B"
  257.     PrintLn "@X1F█    @X19PCB Tutorial       PCB Tutorial       PCB Tutorial       PCB Tutorial   @X08█@X0B"
  258.     PrintLn "@X1F█    @X19PCB T@X47 ┌─────────────────────────────────────────────────────────┐ @X19ial   @X08█@X0B"
  259.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │         @X4B≡≡≡≡≡  @X4ECREDITS / ACKNOWLEDGEMENTS  @X4B≡≡≡≡≡        @X47│ @X19ial   @X08█@X0B"
  260.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │                                                         │ @X19ial   @X08█@X0B"
  261.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │         @X4FPCBoard is a registered Trademark (R) of        @X47│ @X19ial   @X08█@X0B"
  262.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │@X4F               Clark Developement Co, Inc.               @X47│ @X19ial   @X08█@X0B"
  263.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │                                                         │ @X19ial   @X08█"
  264.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │ @X4FA special thanks to The Wizard's BBS (508)481-4693,     @X47│ @X19ial   @X08█"
  265.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │ @X4FBob Neal and Jay Parekh for there suggestions and beta  @X47│ @X19ial   @X08█"
  266.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │ @X4Ftesting of this program.                                @X47│ @X19ial   @X08█"
  267.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │                                                         │ @X19ial   @X08█"
  268.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │                                                         │ @X19ial   @X08█@X0B"
  269.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │          @X4APCB Tutorial (C)1995 Equinox Software          @X47│ @X19ial   @X08█@X0B"
  270.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 └─────────────────────────────────────────────────────────┘ @X19ial   @X08█@X0B"
  271.     PrintLn "@X1F█    @X19PCB@X07 @X08Tutorial        PCB Tutorial      PCB Tutorail       PCB Tuto@X19rial   @X08█"
  272.     PrintLn "@X1F█    @X19PCB Tutorial        PCB Tutorial      PCB Tutorial       PCB Tutorial   @X08█@X0B"
  273.     PrintLn "@X1F█  @X17                                                                          @X08█"
  274.     PrintLn "@X1F█@X18▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@X07"
  275.     PrintLn "@WAIT@", "@PON@"
  276.     If (!(STRING002 <> STRING003)) Goto LABEL033
  277.     Goto LABEL034
  278.     Goto LABEL034
  279. :LABEL033
  280.     If (!(STRING002 == STRING003)) Goto LABEL034
  281.     Goto LABEL035
  282. :LABEL034
  283.     AnsiPos 27, 5
  284.     PrintLn "@XCE UNREGISTERED EVALUATION COPY @X07"
  285.     AnsiPos 1, 21
  286.     PrintLn "        @X0ASupport Shareware - Ask your SysOp to register this program@X07"
  287.     Delay 18 * 15
  288. :LABEL035
  289.     PrintLn 
  290.     PrintLn "Now returning to the @BOARDNAME@...."
  291.     Log "      Back from DOS at @SYSTIME@", 1
  292.     Delay 17
  293.     KbdStuff "MENU"
  294.  
  295. ;------------------------------------------------------------------------------
  296. ;
  297. ; Statements used :
  298. ;
  299. ;    1       End
  300. ;    59      Goto 
  301. ;    6       Let 
  302. ;    101     PrintLn 
  303. ;    19      If 
  304. ;    1       FOpen 
  305. ;    5       FGet 
  306. ;    2       Log 
  307. ;    4       Delay 
  308. ;    1       KbdStuff 
  309. ;    7       Call 
  310. ;    31      AnsiPos 
  311. ;    1       FCloseAll
  312. ;    1       EndFunc
  313. ;
  314. ;
  315. ; Functions used :
  316. ;
  317. ;    2       *
  318. ;    1       /
  319. ;    12      +
  320. ;    15      ==
  321. ;    4       <>
  322. ;    17      !
  323. ;    1       ||
  324. ;    1       Len(
  325. ;    10      Upper()
  326. ;    2       Mid()
  327. ;    1       Right()
  328. ;    1       Chr()
  329. ;    3       Asc()
  330. ;    1       Inkey()
  331. ;    3       String()
  332. ;    1       PcbDat()
  333. ;    8       PpePath()
  334. ;    1       ReadLine()
  335. ;    1       AnsiOn()
  336. ;
  337. ;------------------------------------------------------------------------------
  338. ; (C)1995 AEGiS CoRP       - Main Code by Lone Runner -       Parts by The doC 
  339. ;------------------------------------------------------------------------------
  340. ;        ___________      _______________________        _____________         
  341. ;[=======\          \====/          /           /_____  /            /=======] 
  342. ; ::::::::\  ______  \::/  \_____  /  _______  /______)/  \_______  /::::::::  
  343. ; ::kL!:::_\/    _/   \/   ___)__\/   \      \/        \_________ \/:::::::::  
  344. ; ::::::::\     __     \_  \      \_   \_     \_        \_      /  \_::::::::  
  345. ;[=========\_____/______/__________/___________/_________/__________/========] 
  346. ;                                                                              
  347. ;                      C          O          R          P                      
  348. ;------------------------------------------------------------------------------
  349. ;                        Dedicated to pure anarchists all around the world...  
  350. ;------------------------------------------------------------------------------
  351.