home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / TLY-APP1.ZIP / TLY-APP.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-12-10  |  16KB  |  775 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.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     String   STRING012
  32.     String   STRING013
  33.     String   STRING014
  34.     String   STRING015
  35.     String   STRING016
  36.     String   STRING017
  37.     String   STRING018
  38.     String   STRING019
  39.     String   STRING020
  40.     String   STRING021
  41.     String   STRING022
  42.     String   STRING023
  43.     String   STRING024
  44.     String   STRING025
  45.     String   STRING026
  46.     String   STRING027
  47.     String   STRING028
  48.     String   STRING029
  49.     String   STRING030
  50.     String   STRING031
  51.  
  52. ;------------------------------------------------------------------------------
  53.  
  54.     GetUser
  55.     Print "@POFF@"
  56.     STRING027 = U_RecNum(U_Name())
  57.     STRING030 = PPEPath()
  58.     FOpen 2, STRING030 + "tly-app.cfg", 2, 0
  59.     FGet 2, STRING028
  60.     FGet 2, STRING029
  61.     FClose 2
  62.     INTEGER001 = 1
  63.     Cls
  64.     DispFile STRING030 + "_start.pcb", 1
  65.     AnsiPos 1, 21
  66.     Wait
  67.     :LABEL001
  68.     Cls
  69.     DispFile STRING030 + "_Screen.pcb", 1
  70.     AnsiPos 62, 2
  71.     Print "@X0FARTiST      @X08[ ]"
  72.     AnsiPos 62, 3
  73.     Print "@X0FCODER       @X08[ ]"
  74.     AnsiPos 62, 4
  75.     Print "@X0FCOMPOSER    @X08[ ]"
  76.     AnsiPos 62, 5
  77.     Print "@X0FWRiTER      @X08[ ]"
  78.     AnsiPos 62, 6
  79.     Print "@X0FCOURiER     @X08[ ]"
  80.     AnsiPos 62, 7
  81.     Print "@X0FHEADQUARTER @X08[ ]"
  82.     AnsiPos 62, 8
  83.     Print "@X0FDiSTRO SiTE @X08[ ]"
  84.     AnsiPos 62, 9
  85.     Print "@X0FMEMBERBOARD @X08[ ]"
  86.     AnsiPos 62, 10
  87.     Print "@X0FiNFORMATiON @X08[ ]"
  88.     :LABEL002
  89.     If (INTEGER001 == 1) Then
  90.         AnsiPos 75, 10
  91.         Print " "
  92.         AnsiPos 75, 2
  93.         Print "@X0B■"
  94.         AnsiPos 75, 3
  95.         Print " "
  96.         AnsiPos 56, 13
  97.         Print " @X08■ @X0FANSI/ASCII/VGA/RIP @X08 ■"
  98.     Endif
  99.     If (INTEGER001 == 2) Then
  100.         AnsiPos 75, 4
  101.         Print " "
  102.         AnsiPos 75, 3
  103.         Print "@X0B■"
  104.         AnsiPos 75, 2
  105.         Print " "
  106.         AnsiPos 56, 13
  107.         Print " @X08■ @X0FPPE/ASM/TP/C++/... @X08 ■"
  108.     Endif
  109.     If (INTEGER001 == 3) Then
  110.         AnsiPos 75, 5
  111.         Print " "
  112.         AnsiPos 75, 4
  113.         Print "@X0B■"
  114.         AnsiPos 75, 3
  115.         Print " "
  116.         AnsiPos 56, 13
  117.         Print " @X08■ @X0FXM/MOD/S3M/...     @X08 ■"
  118.     Endif
  119.     If (INTEGER001 == 4) Then
  120.         AnsiPos 75, 6
  121.         Print " "
  122.         AnsiPos 75, 5
  123.         Print "@X0B■"
  124.         AnsiPos 75, 4
  125.         Print " "
  126.         AnsiPos 56, 13
  127.         Print " @X08■ @X0FBELGIAN SCENE MAG  @X08 ■"
  128.     Endif
  129.     If (INTEGER001 == 5) Then
  130.         AnsiPos 75, 7
  131.         Print " "
  132.         AnsiPos 75, 6
  133.         Print "@X0B■"
  134.         AnsiPos 75, 5
  135.         Print " "
  136.         AnsiPos 56, 13
  137.         Print " @X08■ @X0FINBOUND/OUTBOUND   @X08 ■"
  138.     Endif
  139.     If (INTEGER001 == 6) Then
  140.         AnsiPos 75, 8
  141.         Print " "
  142.         AnsiPos 75, 7
  143.         Print "@X0B■"
  144.         AnsiPos 75, 6
  145.         Print " "
  146.         AnsiPos 56, 13
  147.         Print " @X08■ @X0FONLY 1 IN A COUNTRY@X08 ■"
  148.     Endif
  149.     If (INTEGER001 == 7) Then
  150.         AnsiPos 75, 9
  151.         Print " "
  152.         AnsiPos 75, 8
  153.         Print "@X0B■"
  154.         AnsiPos 75, 7
  155.         Print " "
  156.         AnsiPos 56, 13
  157.         Print " @X08■ @X0FONLY COOL/FAST BBS'@X08 ■"
  158.     Endif
  159.     If (INTEGER001 == 8) Then
  160.         AnsiPos 75, 10
  161.         Print " "
  162.         AnsiPos 75, 9
  163.         Print "@X0B■"
  164.         AnsiPos 75, 8
  165.         Print " "
  166.         AnsiPos 56, 13
  167.         Print " @X08■ @X0FONLY FOR MEMBERS!  @X08 ■"
  168.     Endif
  169.     If (INTEGER001 == 9) Then
  170.         AnsiPos 75, 2
  171.         Print " "
  172.         AnsiPos 75, 10
  173.         Print "@X0B■"
  174.         AnsiPos 75, 9
  175.         Print " "
  176.         AnsiPos 56, 13
  177.         Print " @X08■ @X0FINFO ABOUT THIS PPE@X08 ■"
  178.         Goto LABEL003
  179.     Endif
  180.     :LABEL003
  181.     STRING001 = Upper(Inkey())
  182.     If (STRING001 == "UP") Then
  183.         Goto LABEL005
  184.     Endif
  185.     If (STRING001 == "DOWN") Then
  186.         Goto LABEL004
  187.     Endif
  188.     If (STRING001 == Chr(13)) Goto LABEL006
  189.     If (STRING001 == Chr(27)) End
  190.     Goto LABEL003
  191.     :LABEL004
  192.     If (INTEGER001 == 9) Then
  193.         INTEGER001 = 1
  194.     Else
  195.         Inc INTEGER001
  196.     Endif
  197.     Goto LABEL002
  198.     :LABEL005
  199.     If (INTEGER001 == 1) Then
  200.         INTEGER001 = 9
  201.     Else
  202.         Dec INTEGER001
  203.     Endif
  204.     Goto LABEL002
  205.     :LABEL006
  206.     If (INTEGER001 == 9) Goto LABEL013
  207.     AnsiPos 1, 15
  208.     Print "@X08 ■─(@X07NORMAL@X08)──■ "
  209.     AnsiPos 1, 16
  210.     Print "@X08 ■@X0F HANDLE    @X07: "
  211.     AnsiPos 1, 17
  212.     Print "@X08 ■@X0F REAL NAME @X07: "
  213.     AnsiPos 1, 18
  214.     Print "@X08 ■@X0F AGE       @X07: "
  215.     AnsiPos 1, 19
  216.     Print "@X08 ■@X0F COUNTRY   @X07: "
  217.     AnsiPos 1, 20
  218.     Print "@X08 ■@X0F VOiCE #   @X07: "
  219.     AnsiPos 1, 21
  220.     Print "@X08 ■@X0F DATA #    @X07: "
  221.     AnsiPos 56, 13
  222.     Print " @X08■ @X0FYour Handle        @X08 ■"
  223.     AnsiPos 16, 16
  224.     InputStr "_", STRING002, 1, 25, Mask_Ascii(), 8
  225.     AnsiPos 56, 13
  226.     Print " @X08■ @X0FYour REAL Name     @X08 ■"
  227.     AnsiPos 16, 17
  228.     InputStr "_", STRING003, 1, 25, Mask_Ascii(), 8
  229.     AnsiPos 56, 13
  230.     Print " @X08■ @X0FYour Age           @X08 ■"
  231.     AnsiPos 16, 18
  232.     InputStr "_", STRING004, 1, 2, "0123456789", 4096
  233.     AnsiPos 56, 13
  234.     Print " @X08■ @X0FCountry You Live In@X08 ■"
  235.     AnsiPos 16, 19
  236.     InputStr "_", STRING008, 1, 25, Mask_Ascii(), 8
  237.     AnsiPos 56, 13
  238.     Print " @X08■ @X0FNumber To Contact  @X08 ■"
  239.     AnsiPos 16, 20
  240.     InputStr "_", STRING010, 1, 16, "()+-/0123456789 ", 4096
  241.     AnsiPos 56, 13
  242.     Print " @X08■ @X0FBoard/Data Numba   @X08 ■"
  243.     AnsiPos 16, 21
  244.     InputStr "_", STRING011, 1, 16, "()+-/0123456789 ", 4096
  245.     If (INTEGER001 == 1) Goto LABEL007
  246.     If (INTEGER001 == 2) Goto LABEL008
  247.     If (INTEGER001 == 3) Goto LABEL009
  248.     If (INTEGER001 == 4) Goto LABEL010
  249.     If (INTEGER001 == 5) Goto LABEL011
  250.     If (((INTEGER001 == 6) || 7) || 8) Goto LABEL012
  251.     :LABEL007
  252.     AnsiPos 1, 15
  253.     Print "@X08 ■─(@X07DETAiL@X08)──■ "
  254.     AnsiPos 1, 16
  255.     Print "@X08 ■@X0F ART TYPE  @X07:                          "
  256.     AnsiPos 1, 17
  257.     Print "@X08 ■@X0F RATiNG    @X07:                          "
  258.     AnsiPos 1, 18
  259.     Print "@X08 ■@X0F GROUPS    @X07:                          "
  260.     AnsiPos 1, 19
  261.     Print "@X08 ■@X0F SOFTWARE  @X07:                          "
  262.     AnsiPos 1, 20
  263.     Print "@X08 ■@X0F SCANNING  @X07:                          "
  264.     AnsiPos 1, 21
  265.     Print "                                                    "
  266.     AnsiPos 18, 17
  267.     Print "@X08/@X0710"
  268.     AnsiPos 56, 13
  269.     Print " @X08■ @X0FAnsi/Ascii/Rip/... @X08 ■"
  270.     AnsiPos 16, 16
  271.     InputStr "_", STRING018, 1, 25, Mask_Ascii(), 8
  272.     AnsiPos 56, 13
  273.     Print " @X08■ @X0FGHow Good Are You? @X08 ■"
  274.     AnsiPos 16, 17
  275.     InputStr "_", STRING005, 1, 2, "01234567890", 4096
  276.     AnsiPos 56, 13
  277.     Print " @X08■ @X0FOther Affiliations @X08 ■"
  278.     AnsiPos 16, 18
  279.     InputStr "_", STRING014, 1, 25, Mask_Ascii(), 8
  280.     AnsiPos 56, 13
  281.     Print " @X08■ @X0FSoftware You Use   @X08 ■"
  282.     AnsiPos 16, 19
  283.     InputStr "_", STRING017, 1, 25, Mask_Ascii(), 8
  284.     AnsiPos 56, 13
  285.     Print " @X08■ @X0FDo You Scan?       @X08 ■"
  286.     AnsiPos 16, 20
  287.     InputStr "_", STRING020, 1, 1, "YyNn", 8
  288.     Goto LABEL014
  289.     :LABEL008
  290.     AnsiPos 1, 15
  291.     Print "@X08 ■─(@X07DETAiL@X08)──■ "
  292.     AnsiPos 1, 16
  293.     Print "@X08 ■@X0F LANGUAGE  @X07:                          "
  294.     AnsiPos 1, 17
  295.     Print "@X08 ■@X0F RATiNG    @X07:                          "
  296.     AnsiPos 1, 18
  297.     Print "@X08 ■@X0F GROUPS    @X07:                          "
  298.     AnsiPos 1, 19
  299.     Print "                                                    "
  300.     AnsiPos 1, 20
  301.     Print "                                                    "
  302.     AnsiPos 1, 21
  303.     Print "                                                    "
  304.     AnsiPos 18, 17
  305.     Print "@X08/@X0710"
  306.     AnsiPos 56, 13
  307.     Print " @X08■ @X0FPpl/Tp/Asm/...     @X08 ■"
  308.     AnsiPos 16, 16
  309.     InputStr "_", STRING018, 1, 25, Mask_Ascii(), 8
  310.     AnsiPos 56, 13
  311.     Print " @X08■ @X0FGHow Good Are You? @X08 ■"
  312.     AnsiPos 16, 17
  313.     InputStr "_", STRING005, 1, 2, "0123456789", 4096
  314.     AnsiPos 56, 13
  315.     Print " @X08■ @X0FOther Affiliations @X08 ■"
  316.     AnsiPos 16, 18
  317.     InputStr "_", STRING014, 1, 30, Mask_Ascii(), 8
  318.     Goto LABEL014
  319.     :LABEL009
  320.     AnsiPos 1, 15
  321.     Print "@X08 ■─(@X07DETAiL@X08)──■ "
  322.     AnsiPos 1, 16
  323.     Print "@X08 ■@X0F MOD TYPE  @X07:                          "
  324.     AnsiPos 1, 17
  325.     Print "@X08 ■@X0F RATiNG    @X07:                          "
  326.     AnsiPos 1, 18
  327.     Print "@X08 ■@X0F GROUPS    @X07:                          "
  328.     AnsiPos 1, 19
  329.     Print "@X08 ■@X0F SOFTWARE  @X07:                          "
  330.     AnsiPos 1, 20
  331.     Print "@X08 ■@X0F STYLE     @X07:                          "
  332.     AnsiPos 1, 21
  333.     Print "                                                    "
  334.     AnsiPos 18, 17
  335.     Print "@X08/@X0710"
  336.     AnsiPos 56, 13
  337.     Print " @X08■ @X0FXM/S3M/MOD/DMF/... @X08 ■"
  338.     AnsiPos 16, 16
  339.     InputStr "_", STRING018, 1, 25, Mask_Ascii(), 8
  340.     AnsiPos 56, 13
  341.     Print " @X08■ @X0FGHow Good Are You? @X08 ■"
  342.     AnsiPos 16, 17
  343.     InputStr "_", STRING005, 1, 2, "01234567890", 4096
  344.     AnsiPos 56, 13
  345.     Print " @X08■ @X0FOther Affiliations @X08 ■"
  346.     AnsiPos 16, 18
  347.     InputStr "_", STRING014, 1, 25, Mask_Ascii(), 8
  348.     AnsiPos 56, 13
  349.     Print " @X08■ @X0FSoftware You Use   @X08 ■"
  350.     AnsiPos 16, 19
  351.     InputStr "_", STRING017, 1, 25, Mask_Ascii(), 8
  352.     AnsiPos 56, 13
  353.     Print " @X08■ @X0FTechno/Hardcore/...@X08 ■"
  354.     AnsiPos 16, 20
  355.     InputStr "_", STRING031, 1, 25, Mask_Ascii(), 8
  356.     Goto LABEL014
  357.     :LABEL010
  358.     AnsiPos 1, 15
  359.     Print "@X08 ■─(@X07DETAiL@X08)──■ "
  360.     AnsiPos 1, 16
  361.     Print "@X08 ■@X0F SUBJECTS  @X07:                          "
  362.     AnsiPos 1, 17
  363.     Print "@X08 ■@X0F RATiNG    @X07:                          "
  364.     AnsiPos 1, 18
  365.     Print "@X08 ■@X0F GROUPS    @X07:                          "
  366.     AnsiPos 1, 19
  367.     Print "                                                    "
  368.     AnsiPos 1, 20
  369.     Print "                                                    "
  370.     AnsiPos 1, 21
  371.     Print "                                                    "
  372.     AnsiPos 18, 17
  373.     Print "@X08/@X0710"
  374.     AnsiPos 56, 13
  375.     Print " @X08■ @X0Gaming/General/...  @X08 ■"
  376.     AnsiPos 16, 16
  377.     InputStr "_", STRING018, 1, 25, Mask_Ascii(), 8
  378.     AnsiPos 56, 13
  379.     Print " @X08■ @X0FGHow Good Are You? @X08 ■"
  380.     AnsiPos 16, 17
  381.     InputStr "_", STRING005, 1, 2, "0123456789", 4096
  382.     AnsiPos 56, 13
  383.     Print " @X08■ @X0FOther Affiliations @X08 ■"
  384.     AnsiPos 16, 18
  385.     InputStr "_", STRING014, 1, 30, Mask_Ascii(), 8
  386.     Goto LABEL014
  387.     :LABEL011
  388.     AnsiPos 1, 15
  389.     Print "@X08 ■─(@X07DETAiL@X08)──■ "
  390.     AnsiPos 1, 16
  391.     Print "@X08 ■@X0F LD CALLS? @X07:                          "
  392.     AnsiPos 1, 17
  393.     Print "@X08 ■@X0F COUNTRIES @X07:                          "
  394.     AnsiPos 1, 18
  395.     Print "@X08 ■@X0F GROUPS    @X07:                          "
  396.     AnsiPos 1, 19
  397.     Print "@X08 ■@X0F YOU PAY?  @X07:                          "
  398.     AnsiPos 1, 20
  399.     Print "                                                    "
  400.     AnsiPos 1, 21
  401.     Print "                                                    "
  402.     AnsiPos 56, 13
  403.     Print " @X08■ @X0FInternat. Courier? @X08 ■"
  404.     AnsiPos 16, 16
  405.     InputStr "_", STRING009, 1, 1, "YyNn", 8
  406.     AnsiPos 56, 13
  407.     Print " @X08■ @X0FCountries your call@X08 ■"
  408.     AnsiPos 16, 17
  409.     InputStr "_", STRING021, 1, 30, Mask_Ascii(), 8
  410.     AnsiPos 56, 13
  411.     Print " @X08■ @X0FOther Affiliations @X08 ■"
  412.     AnsiPos 16, 18
  413.     InputStr "_", STRING014, 1, 30, Mask_Ascii(), 8
  414.     AnsiPos 56, 13
  415.     Print " @X08■ @X0FAre You Paying?    @X08 ■"
  416.     AnsiPos 16, 19
  417.     InputStr "_", STRING022, 1, 1, "YyNn", 8
  418.     Goto LABEL014
  419.     :LABEL012
  420.     AnsiPos 1, 15
  421.     Print "@X08 ■─(@X07DETAiL@X08)──■ "
  422.     AnsiPos 1, 16
  423.     Print "@X08 ■@X0F BOARDNAME @X07:                          "
  424.     AnsiPos 1, 17
  425.     Print "@X08 ■@X0F NUMBER    @X07:                          "
  426.     AnsiPos 1, 18
  427.     Print "@X08 ■@X0F # NODES   @X07:                          "
  428.     AnsiPos 1, 19
  429.     Print "@X08 ■@X0F HOURS     @X07:                          "
  430.     AnsiPos 1, 20
  431.     Print "@X08 ■@X0F MODEM     @X07:                          "
  432.     AnsiPos 1, 21
  433.     Print "@X08 ■@X0F GROUPS    @X07:                          "
  434.     AnsiPos 41, 15
  435.     Print "@X08 ■@X0F DISKSPACE @X07:                          "
  436.     AnsiPos 41, 16
  437.     Print "@X08 ■@X0F CD-ROM?   @X07:                          "
  438.     AnsiPos 41, 17
  439.     Print "@X08 ■@X0F SOFTWARE  @X07:                          "
  440.     AnsiPos 41, 18
  441.     Print "@X08 ■@X0F NUP       @X07:                          "
  442.     AnsiPos 41, 19
  443.     Print "@X08 ■@X0F NUV?      @X07:                          "
  444.     AnsiPos 56, 13
  445.     Print " @X08■ @X0FName Of The Board  @X08 ■"
  446.     AnsiPos 16, 16
  447.     InputStr "_", STRING006, 1, 25, Mask_Ascii(), 8
  448.     AnsiPos 56, 13
  449.     Print " @X08■ @X0FRingdown Number    @X08 ■"
  450.     AnsiPos 16, 17
  451.     InputStr "_", STRING023, 1, 16, "()+-/0123456789 ", 4096
  452.     AnsiPos 56, 13
  453.     Print " @X08■ @X0FNumber Of Nodes    @X08 ■"
  454.     AnsiPos 16, 18
  455.     InputStr "_", STRING007, 1, 2, "0123456789", 4096
  456.     AnsiPos 56, 13
  457.     Print " @X08■ @X0FOpening Hours      @X08 ■"
  458.     AnsiPos 16, 19
  459.     InputStr "_", STRING015, 1, 5, "/0123456789", 4096
  460.     AnsiPos 56, 13
  461.     Print " @X08■ @X0FModem Type + Speed @X08 ■"
  462.     AnsiPos 16, 20
  463.     InputStr "_", STRING016, 1, 25, Mask_Ascii(), 8
  464.     AnsiPos 56, 13
  465.     Print " @X08■ @X0FGroups Supported   @X08 ■"
  466.     AnsiPos 16, 21
  467.     InputStr "_", STRING024, 1, 25, Mask_Ascii(), 8
  468.     AnsiPos 56, 13
  469.     Print " @X08 ■@X0FHD Space In MB      @X08 ■"
  470.     AnsiPos 56, 15
  471.     InputStr "_", STRING012, 1, 7, "gGmMbB.,0123456789 ", 4096
  472.     AnsiPos 56, 13
  473.     Print "@X08 ■ @X0FCD-Rom Online?      @X08 ■"
  474.     AnsiPos 56, 16
  475.     InputStr "_", STRING013, 1, 1, "YyNn", 8
  476.     AnsiPos 56, 13
  477.     Print "@X08 ■ @X0FBBS Software (PCB)  @X08 ■"
  478.     AnsiPos 56, 17
  479.     InputStr "_", STRING017, 1, 25, Mask_Ascii(), 8
  480.     AnsiPos 56, 13
  481.     Print "@X08 ■ @X0FNew User Password   @X08 ■"
  482.     AnsiPos 56, 18
  483.     InputStr "_", STRING026, 1, 25, Mask_Ascii(), 8
  484.     AnsiPos 56, 13
  485.     Print "@X08 ■ @X0FIs There NUV?       @X08 ■"
  486.     AnsiPos 56, 19
  487.     InputStr "_", STRING025, 1, 1, "YyNn", 8
  488.     Goto LABEL014
  489.     :LABEL013
  490.     Cls
  491.     DispFile STRING030 + "_info.pcb", 1
  492.     Wait
  493.     Goto LABEL001
  494.     :LABEL014
  495.     AnsiPos 1, 22
  496.     Print "@X08[@X07■@X08] @X07Ok To Save?"
  497.     AnsiPos 17, 22
  498.     InputStr "_", STRING019, 1, 1, "YyNn", 8
  499.     If ((STRING019 == "Y") || (STRING019 == "y")) Goto LABEL015
  500.     If ((STRING019 == "N") || (STRING019 == "n")) Goto LABEL027
  501.     :LABEL015
  502.     AnsiPos 1, 22
  503.     Print "@X08[@X8C■@X08] @X07Saving Information!"
  504.     If (Exist(STRING030 + STRING027 + ".APP")) Goto LABEL016
  505.     FCreate 1, STRING030 + STRING027 + ".APP", 1, 0
  506.     Goto LABEL017
  507.     :LABEL016
  508.     If (Exist(STRING030 + STRING027 + ".APP")) Then
  509.         FAppend 1, STRING030 + STRING027 + ".APP", 1, 0
  510.     Endif
  511.     :LABEL017
  512.     FPutLn 1, "───────────────────────────────────────────────────────────────────────────────"
  513.     FPutLn 1, " Triloxy Apply Generator [PPE] v1.0 Coded By Speed Freak."
  514.     FPutLn 1, "───────────────────────────────────────────────────────────────────────────────"
  515.     FPutLn 1
  516.     FPutLn 1, "■─(USER INFORMATION)──■"
  517.     FPutLn 1
  518.     FPutLn 1, " ■ HANDLE            : " + STRING002
  519.     FPutLn 1, " ■ REAL NAME         : " + STRING003
  520.     FPutLn 1, " ■ AGE               : " + STRING004
  521.     FPutLn 1, " ■ COUNTRY           : " + STRING008
  522.     FPutLn 1, " ■ VOiCE #           : " + STRING010
  523.     FPutLn 1, " ■ DATA #            : " + STRING011
  524.     FPutLn 1
  525.     FPutLn 1, "■───(DETAILED INFO)───■"
  526.     FPutLn 1
  527.     If (INTEGER001 == 1) Goto LABEL018
  528.     If (INTEGER001 == 2) Goto LABEL019
  529.     If (INTEGER001 == 3) Goto LABEL020
  530.     If (INTEGER001 == 4) Goto LABEL021
  531.     If (INTEGER001 == 5) Goto LABEL022
  532.     If (INTEGER001 == 6) Goto LABEL023
  533.     If (INTEGER001 == 7) Goto LABEL024
  534.     If (INTEGER001 == 8) Goto LABEL025
  535.     :LABEL018
  536.     FPutLn 1, " ■ TYPE OF APPLY     : <ARTiST> "
  537.     FPutLn 1, " ■ ART TYPE          : " + STRING018
  538.     FPutLn 1, " ■ RATiNG (xx/10)    : " + STRING005
  539.     FPutLn 1, " ■ GROUPS YOU'RE iN  : " + STRING014
  540.     FPutLn 1, " ■ SOFTWARE YOU USE  : " + STRING017
  541.     FPutLn 1, " ■ DO YOU SCAN?      : " + STRING020
  542.     FPutLn 1
  543.     FPutLn 1, "───────────────────────────────────────────────────────────────────────────────"
  544.     FClose 1
  545.     AnsiPos 1, 22
  546.     Print "@X08[@X8C■@X08] @X07Writing Message To " + STRING028
  547.     FCreate 1, STRING030 + "MSG.TMP", 1, 0
  548.     FPutLn 1, "[+] NEW TRILOXY APPLY [+]"
  549.     FPutLn 1, "NAME : " + STRING002
  550.     FPutLn 1, "MORE INFO : " + STRING027 + ".APP"
  551.     FClose 1
  552.     Message STRING029, STRING028, U_Name(), "[+] TLY-APPLY: ARTIST [+]", "R", Date(), 1, 0, STRING030 + "MSG.TMP"
  553.     Delete STRING030 + "MSG.TMP"
  554.     Goto LABEL026
  555.     :LABEL019
  556.     FPutLn 1, " ■ TYPE OF APPLY     : <CODER> "
  557.     FPutLn 1, " ■ LANGUAGE          : " + STRING018
  558.     FPutLn 1, " ■ RATiNG (xx/10)    : " + STRING005
  559.     FPutLn 1, " ■ GROUPS YOU'RE iN  : " + STRING014
  560.     FPutLn 1
  561.     FPutLn 1, "───────────────────────────────────────────────────────────────────────────────"
  562.     FClose 1
  563.     AnsiPos 1, 22
  564.     Print "@X08[@X8C■@X08] @X07Writing Message To " + STRING028
  565.     FCreate 1, STRING030 + "MSG.TMP", 1, 0
  566.     FPutLn 1, "[+] NEW TRILOXY APPLY [+]"
  567.     FPutLn 1, "NAME : " + STRING002
  568.     FPutLn 1, "MORE INFO : " + STRING027 + ".APP"
  569.     FClose 1
  570.     Message STRING029, STRING028, U_Name(), "[+] TLY-APPLY: CODER [+]", "R", Date(), 1, 0, STRING030 + "MSG.TMP"
  571.     Delete STRING030 + "MSG.TMP"
  572.     Goto LABEL026
  573.     :LABEL020
  574.     FPutLn 1, " ■ TYPE OF APPLY     : <COMPOSER> "
  575.     FPutLn 1, " ■ MOD TYPE          : " + STRING018
  576.     FPutLn 1, " ■ RATiNG (xx/10)    : " + STRING005
  577.     FPutLn 1, " ■ GROUPS YOU'RE iN  : " + STRING014
  578.     FPutLn 1, " ■ SOFTWARE YOU USE  : " + STRING017
  579.     FPutLn 1, " ■ MUSIC STYLE       : " + STRING031
  580.     FPutLn 1
  581.     FPutLn 1, "───────────────────────────────────────────────────────────────────────────────"
  582.     FClose 1
  583.     AnsiPos 1, 22
  584.     Print "@X08[@X8C■@X08] @X07Writing Message To " + STRING028
  585.     FCreate 1, STRING030 + "MSG.TMP", 1, 0
  586.     FPutLn 1, "[+] NEW TRILOXY APPLY [+]"
  587.     FPutLn 1, "NAME : " + STRING002
  588.     FPutLn 1, "MORE INFO : " + STRING027 + ".APP"
  589.     FClose 1
  590.     Message STRING029, STRING028, U_Name(), "[+] TLY-APPLY: COMPOSER [+]", "R", Date(), 1, 0, STRING030 + "MSG.TMP"
  591.     Delete STRING030 + "MSG.TMP"
  592.     Goto LABEL026
  593.     :LABEL021
  594.     FPutLn 1, " ■ TYPE OF APPLY     : <WRiTER> "
  595.     FPutLn 1, " ■ SUBJECTS          : " + STRING018
  596.     FPutLn 1, " ■ RATiNG (xx/10)    : " + STRING005
  597.     FPutLn 1, " ■ GROUPS YOU'RE iN  : " + STRING014
  598.     FPutLn 1
  599.     FPutLn 1, "───────────────────────────────────────────────────────────────────────────────"
  600.     FClose 1
  601.     AnsiPos 1, 22
  602.     Print "@X08[@X8C■@X08] @X07Writing Message To " + STRING028
  603.     FCreate 1, STRING030 + "MSG.TMP", 1, 0
  604.     FPutLn 1, "[+] NEW TRILOXY APPLY [+]"
  605.     FPutLn 1, "NAME : " + STRING002
  606.     FPutLn 1, "MORE INFO : " + STRING027 + ".APP"
  607.     FClose 1
  608.     Message STRING029, STRING028, U_Name(), "[+] TLY-APPLY: WRITER [+]", "R", Date(), 1, 0, STRING030 + "MSG.TMP"
  609.     Delete STRING030 + "MSG.TMP"
  610.     Goto LABEL026
  611.     :LABEL022
  612.     FPutLn 1, " ■ TYPE OF APPLY     : <COURiER> "
  613.     FPutLn 1, " ■ LD COURIER        : " + STRING018
  614.     FPutLn 1, " ■ COUNTRY(S)        : " + STRING021
  615.     FPutLn 1, " ■ GROUPS YOU'RE iN  : " + STRING014
  616.     FPutLn 1
  617.     FPutLn 1, "───────────────────────────────────────────────────────────────────────────────"
  618.     FClose 1
  619.     AnsiPos 1, 22
  620.     Print "@X08[@X8C■@X08] @X07Writing Message To " + STRING028
  621.     FCreate 1, STRING030 + "MSG.TMP", 1, 0
  622.     FPutLn 1, "[+] NEW TRILOXY APPLY [+]"
  623.     FPutLn 1, "NAME : " + STRING002
  624.     FPutLn 1, "MORE INFO : " + STRING027 + ".APP"
  625.     FClose 1
  626.     Message STRING029, STRING028, U_Name(), "[+] TLY-APPLY: COURIER [+]", "R", Date(), 1, 0, STRING030 + "MSG.TMP"
  627.     Delete STRING030 + "MSG.TMP"
  628.     Goto LABEL026
  629.     :LABEL023
  630.     FPutLn 1, " ■ TYPE OF APPLY     : <HEADQUARTER> "
  631.     FPutLn 1, " ■ BOARDNAME         : " + STRING006
  632.     FPutLn 1, " ■ RINGDOWN NUMBER   : " + STRING023
  633.     FPutLn 1, " ■ HOW MANY NODES?   : " + STRING007
  634.     FPutLn 1, " ■ OPENiNG HOURS     : " + STRING015
  635.     FPutLn 1, " ■ MODEM TYPE + SPEED: " + STRING016
  636.     FPutLn 1, " ■ GROUPS SUPPORTED  : " + STRING024
  637.     FPutLn 1, " ■ DiSKSPACE         : " + STRING012
  638.     FPutLn 1, " ■ CD-ROM ONLiNE?    : " + STRING013
  639.     FPutLn 1, " ■ BBS SOFTWARE      : " + STRING017
  640.     FPutLn 1, " ■ NUP               : " + STRING026
  641.     FPutLn 1, " ■ IS THERE NUV?     : " + STRING025
  642.     FPutLn 1
  643.     FPutLn 1, "───────────────────────────────────────────────────────────────────────────────"
  644.     FClose 1
  645.     AnsiPos 1, 22
  646.     Print "@X08[@X8C■@X08] @X07Writing Message To " + STRING028
  647.     FCreate 1, STRING030 + "MSG.TMP", 1, 0
  648.     FPutLn 1, "[+] NEW TRILOXY APPLY [+]"
  649.     FPutLn 1, "NAME : " + STRING002
  650.     FPutLn 1, "MORE INFO : " + STRING027 + ".APP"
  651.     FClose 1
  652.     Message STRING029, STRING028, U_Name(), "[+] TLY-APPLY: HEADQUARTER [+]", "R", Date(), 1, 0, STRING030 + "MSG.TMP"
  653.     Delete STRING030 + "MSG.TMP"
  654.     Goto LABEL026
  655.     :LABEL024
  656.     FPutLn 1, " ■ TYPE OF APPLY     : <DISTRIBUTION SITE> "
  657.     FPutLn 1, " ■ BOARDNAME         : " + STRING006
  658.     FPutLn 1, " ■ RINGDOWN NUMBER   : " + STRING023
  659.     FPutLn 1, " ■ HOW MANY NODES?   : " + STRING007
  660.     FPutLn 1, " ■ OPENiNG HOURS     : " + STRING015
  661.     FPutLn 1, " ■ MODEM TYPE + SPEED: " + STRING016
  662.     FPutLn 1, " ■ GROUPS SUPPORTED  : " + STRING024
  663.     FPutLn 1, " ■ DiSKSPACE         : " + STRING012
  664.     FPutLn 1, " ■ CD-ROM ONLiNE?    : " + STRING013
  665.     FPutLn 1, " ■ BBS SOFTWARE      : " + STRING017
  666.     FPutLn 1, " ■ NUP               : " + STRING026
  667.     FPutLn 1, " ■ IS THERE NUV?     : " + STRING025
  668.     FPutLn 1
  669.     FPutLn 1, "───────────────────────────────────────────────────────────────────────────────"
  670.     FClose 1
  671.     AnsiPos 1, 22
  672.     Print "@X08[@X8C■@X08] @X07Writing Message To " + STRING028
  673.     FCreate 1, STRING030 + "MSG.TMP", 1, 0
  674.     FPutLn 1, "[+] NEW TRILOXY APPLY [+]"
  675.     FPutLn 1, "NAME : " + STRING002
  676.     FPutLn 1, "MORE INFO : " + STRING027 + ".APP"
  677.     FClose 1
  678.     Message STRING029, STRING028, U_Name(), "[+] TLY-APPLY: DISTRIBUTION SITE [+]", "R", Date(), 1, 0, STRING030 + "MSG.TMP"
  679.     Delete STRING030 + "MSG.TMP"
  680.     Goto LABEL026
  681.     :LABEL025
  682.     FPutLn 1, " ■ TYPE OF APPLY     : <MEMBERBOARD> "
  683.     FPutLn 1, " ■ BOARDNAME         : " + STRING006
  684.     FPutLn 1, " ■ RINGDOWN NUMBER   : " + STRING023
  685.     FPutLn 1, " ■ HOW MANY NODES?   : " + STRING007
  686.     FPutLn 1, " ■ OPENiNG HOURS     : " + STRING015
  687.     FPutLn 1, " ■ MODEM TYPE + SPEED: " + STRING016
  688.     FPutLn 1, " ■ GROUPS SUPPORTED  : " + STRING024
  689.     FPutLn 1, " ■ DiSKSPACE         : " + STRING012
  690.     FPutLn 1, " ■ CD-ROM ONLiNE?    : " + STRING013
  691.     FPutLn 1, " ■ BBS SOFTWARE      : " + STRING017
  692.     FPutLn 1, " ■ NUP               : " + STRING026
  693.     FPutLn 1, " ■ IS THERE NUV?     : " + STRING025
  694.     FPutLn 1
  695.     FPutLn 1, "───────────────────────────────────────────────────────────────────────────────"
  696.     FClose 1
  697.     AnsiPos 1, 22
  698.     Print "@X08[@X8C■@X08] @X07Writing Message To " + STRING028
  699.     FCreate 1, STRING030 + "MSG.TMP", 1, 0
  700.     FPutLn 1, "[+] NEW TRILOXY APPLY [+]"
  701.     FPutLn 1, "NAME : " + STRING002
  702.     FPutLn 1, "MORE INFO : " + STRING027 + ".APP"
  703.     FClose 1
  704.     Message STRING029, STRING028, U_Name(), "[+] TLY-APPLY: MEMBERBOARD [+]", "R", Date(), 1, 0, STRING030 + "MSG.TMP"
  705.     Delete STRING030 + "MSG.TMP"
  706.     :LABEL026
  707.     AnsiPos 1, 22
  708.     Print "@X08[@X0A■@X08] @X07Finised!                "
  709.     Cls
  710.     DispFile STRING030 + "_end.pcb", 1
  711.     Wait
  712.     :LABEL027
  713.  
  714. ;------------------------------------------------------------------------------
  715. ;
  716. ; Usage report (before postprocessing)
  717. ;
  718. ; ■ Statements used :
  719. ;
  720. ;    1       End
  721. ;    4       Cls
  722. ;    3       Wait
  723. ;    57      Goto 
  724. ;    6       Let 
  725. ;    152     Print 
  726. ;    34      If 
  727. ;    4       DispFile 
  728. ;    9       FCreate 
  729. ;    1       FOpen 
  730. ;    1       FAppend 
  731. ;    17      FClose 
  732. ;    2       FGet 
  733. ;    115     FPutLn 
  734. ;    1       GetUser
  735. ;    8       Delete 
  736. ;    38      InputStr 
  737. ;    1       Inc 
  738. ;    1       Dec 
  739. ;    190     AnsiPos 
  740. ;    8       Message 
  741. ;
  742. ;
  743. ; ■ Functions used :
  744. ;
  745. ;    127     +
  746. ;    34      ==
  747. ;    15      !
  748. ;    4       ||
  749. ;    1       Upper()
  750. ;    2       Chr()
  751. ;    8       Date()
  752. ;    9       U_Name()
  753. ;    1       Inkey()
  754. ;    21      Mask_Ascii()
  755. ;    1       PPEPath()
  756. ;    2       Exist()
  757. ;    1       U_RecNum()
  758. ;
  759. ;------------------------------------------------------------------------------
  760. ;
  761. ; Analysis flags : No flag
  762. ;
  763. ;------------------------------------------------------------------------------
  764. ;
  765. ; Postprocessing report
  766. ;
  767. ;    0       For/Next
  768. ;    0       While/EndWhile
  769. ;    14      If/Then or If/Then/Else
  770. ;    0       Select Case
  771. ;
  772. ;------------------------------------------------------------------------------
  773. ;                 AEGiS Corp - Break the routines, code against the machines!
  774. ;------------------------------------------------------------------------------
  775.