home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / POWRPK10.ZIP / QWKMSG30.ZIP / QWKMSG.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-03-31  |  7KB  |  303 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 2.OO (plain) - 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.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     STRING009 = "Y"
  35.     STRING007 = "N"
  36.     STRING003 = "1234567890-=\!@#$%^&*()_+/qwertyuiop[]{}POIUYTREWQASDFGHJKL:';lkjhgfdsazxcvbnm,./?><MNBVCXZ "
  37.     STRING001 = "N"
  38.     STRING004 = "Y"
  39.     STRING005 = "N"
  40.     STRING006 = "Y"
  41.     GetUser
  42.     STRING011 = "N"
  43.     If (U_Sec > 109) PrintLn "@X0ASysop Access Detected - Privileges Added!@X07"
  44.     PrintLn 
  45.     STRING010 = "Y"
  46.     :LABEL001
  47.     PrintLn "@X0CIn this program, you can freely leave messages between other callers,@X07"
  48.     PrintLn "@X0Ctalking about anything from A to Z.@X07"
  49.     PrintLn 
  50.     PrintLn "@X0B────────────────────────────────────────────────────────────────@X07"
  51.     PrintLn "@X08The Current Quick Message Is:@X0F"
  52.     PrintLn "" + ReadLine("qwkmsg.msg", 1)
  53.     PrintLn "@X08This Message Was Written By: @X0F"
  54.     PrintLn "@X0C░▒▓█ @X0F" + ReadLine("qwkmsg.msg", 2) + " @X0C█▓▒░@X07"
  55.     PrintLn "@X0B────────────────────────────────────────────────────────────────@X07"
  56.     PrintLn 
  57.     If (U_Sec > 109) InputYN "Would you like to go to the sysop menu", STRING011, 12
  58.     If (STRING011 == "Y") Goto LABEL014
  59.     If (STRING011 == "y") Goto LABEL014
  60.     If (STRING011 == "n") PrintLn 
  61.     If (STRING011 == "N") PrintLn 
  62.     InputYN "Would you like to change the Quick Message", STRING001, 12
  63.     If (STRING001 == "n") Goto LABEL002
  64.     If (STRING001 == "N") Goto LABEL002
  65.     If (STRING001 == "y") Goto LABEL003
  66.     If (STRING001 == "Y") Goto LABEL003
  67.     :LABEL002
  68.     PrintLn 
  69.     End
  70.     :LABEL003
  71.     PrintLn 
  72.     PrintLn "@X8FNo Profane Or Obscene Language, Please!@X07"
  73.     PrintLn 
  74.     PrintLn "@X02░▒@X0A▓█ @X0EChanging the Quick Message @X0A█▓@X02▒░@X07"
  75.     PrintLn "@X09────────────────────────────────────@X07"
  76.     PrintLn 
  77.     PrintLn "@X07You may enter up to @X0C75 @X07letters or digits below that will be displayed to"
  78.     PrintLn "the next caller online."
  79.     PrintLn 
  80.     PrintLn "He may choose to change it at anytime and therefore your message will"
  81.     PrintLn "be @X0Cdeleted@X07."
  82.     PrintLn 
  83.     PrintLn "You may choose to remain @X0Canonymous @X07in this message if you wish.  No"
  84.     PrintLn "@X0Dprofane @X07or @X0Dobscene @X07language may be used at any time within this message!"
  85.     PrintLn 
  86.     PrintLn "Sysops always have the ability to kill a message.  If they need to,@X07"
  87.     PrintLn "they can do this @X0Canytime @X07with @X0Cany message@X07."
  88.     :LABEL004
  89.     PrintLn "@X0AEnter your message below @X0F(Enter)=abort@X0E"
  90.     InputStr "", STRING002, 14, 75, STRING003, 2
  91.     If (STRING002 == "") Goto LABEL005
  92.     PrintLn 
  93.     PrintLn 
  94.     PrintLn "@X0B──────────────────────────────────────────────────────────────────@X07"
  95.     PrintLn "@X08Message will be:@X0F"
  96.     PrintLn STRING002
  97.     PrintLn "@X0B──────────────────────────────────────────────────────────────────@X07"
  98.     PrintLn 
  99.     InputYN "@X0EIs the message written correct", STRING004, 14
  100.     If (STRING004 == "y") Goto LABEL006
  101.     If (STRING004 == "Y") Goto LABEL006
  102.     If (STRING004 == "n") PrintLn 
  103.     PrintLn 
  104.     PrintLn "@X0CYou can now edit your previous message.@X07"
  105.     Goto LABEL004
  106.     If (STRING004 == "N") PrintLn 
  107.     PrintLn 
  108.     PrintLn "@X0CYou can now edit your previous message.@X07"
  109.     Goto LABEL004
  110.     :LABEL005
  111.     PrintLn 
  112.     PrintLn "@X02Message to Next Caller @X0AAborted@X02 (@X0ENothing Saved@X02).@X07"
  113.     Beep
  114.     End
  115.     :LABEL006
  116.     PrintLn 
  117.     PrintLn 
  118.     PrintLn "@X0FPosting Message for Next Caller...@X07"
  119.     FOpen 1, "qwkmsg.msg", 2, 0
  120.     FPutLn 1, STRING002
  121.     PrintLn 
  122.     PrintLn "@X0B──────────────────────────────────────────────────────────────────@X07"
  123.     PrintLn "@X08From: @X0F@USER@@X07"
  124.     PrintLn "@X0B──────────────────────────────────────────────────────────────────@X07"
  125.     PrintLn 
  126.     PrintLn "@X07To make matters fair sometimes, we offer an @X0Canonymous @X07mode for our"
  127.     PrintLn "callers."
  128.     PrintLn 
  129.     PrintLn "Below you may choose to have your name show or become @X0Canonymous@X07."
  130.     PrintLn 
  131.     PrintLn "If you wish to have your name revealed, but have an @X0Calias @X07name, pick"
  132.     PrintLn "@X0CN @X07here and then pick @X0CY @X07to the next question."
  133.     :LABEL007
  134.     InputYN "@X0EWould you like to be Anonymous@X0A", STRING005, 14
  135.     If (STRING005 == "n") Goto LABEL008
  136.     If (STRING005 == "N") Goto LABEL008
  137.     If (STRING005 == "y") Goto LABEL010
  138.     If (STRING005 == "Y") Goto LABEL010
  139.     :LABEL008
  140.     PrintLn 
  141.     InputYN "@X0EDo you wish to use a @X0Chandle@X0A", STRING007, 14
  142.     PrintLn 
  143.     If (STRING007 == "y") Goto LABEL012
  144.     If (STRING007 == "Y") Goto LABEL012
  145.     If (STRING007 == "N") PrintLn 
  146.     Goto LABEL009
  147.     If (STRING007 == "n") PrintLn 
  148.     :LABEL009
  149.     PrintLn "@X0CYour name @X0Dwill @X0Cbe revealed to the public!@X07"
  150.     PrintLn 
  151.     InputYN "@X0EIs this what you wish@X0A", STRING006, 14
  152.     PrintLn 
  153.     If (STRING006 == "y") Goto LABEL011
  154.     If (STRING006 == "Y") Goto LABEL011
  155.     If (STRING006 == "n") PrintLn 
  156.     PrintLn 
  157.     PrintLn "@X0CYou may now choose to go anonymous again.@X07"
  158.     Goto LABEL007
  159.     If (STRING006 == "N") PrintLn 
  160.     PrintLn 
  161.     PrintLn "@X0CYou may now choose to go anonymous again.@X07"
  162.     Goto LABEL007
  163.     :LABEL010
  164.     PrintLn 
  165.     PrintLn "@X0FHiding your name...@X07"
  166.     FPutLn 1, "@X04Anonymous @X0CUser@X07"
  167.     FClose 1
  168.     PrintLn 
  169.     PrintLn "Your message has been added and your name is anonymous!  Thanks for"
  170.     PrintLn "using @X0CQuick Message@X07!"
  171.     PrintLn 
  172.     Wait
  173.     PrintLn 
  174.     End
  175.     :LABEL011
  176.     PrintLn 
  177.     PrintLn "@X0FAdding your name to the message...@X07"
  178.     FPutLn 1, U_Name()
  179.     FClose 1
  180.     PrintLn 
  181.     PrintLn "Your message has been added and your name is shown to the users!  Thanks"
  182.     PrintLn "for using @X0CQuick Message@X07!"
  183.     PrintLn 
  184.     Wait
  185.     PrintLn 
  186.     End
  187.     :LABEL012
  188.     PrintLn 
  189.     PrintLn 
  190.     PrintLn "@X0A░▒▓█ @X0EMaking an Alias @X0A█▓▒░@X07"
  191.     PrintLn "@X09─────────────────────────@X07"
  192.     PrintLn 
  193.     PrintLn "You may make an alias name (a.k.a. handle).  We request that it has no"
  194.     PrintLn "@X0Cprofane @X07or @X0Cobscene @X07language in it."
  195.     :LABEL013
  196.     PrintLn 
  197.     InputStr "@X0AWhat do you want your alias to be @X0F(Enter)=abort@X0A", STRING008, 10, 15, STRING003, 2
  198.     If (STRING008 == "") Goto LABEL008
  199.     PrintLn 
  200.     PrintLn 
  201.     PrintLn "@X0B──────────────────────────────────────────────────────────────────@X07"
  202.     PrintLn "@X08Your alias will be: @X0F" + STRING008
  203.     PrintLn "@X0B──────────────────────────────────────────────────────────────────@X07"
  204.     PrintLn 
  205.     InputYN "@X0EIs this correct", STRING009, 14
  206.     If (STRING009 == "N") Goto LABEL013
  207.     If (STRING009 == "n") Goto LABEL013
  208.     PrintLn 
  209.     PrintLn 
  210.     PrintLn "@X0FReplacing your name with alias...@X07"
  211.     FPutLn 1, STRING008
  212.     FClose 1
  213.     PrintLn 
  214.     PrintLn "Your message has been added and your name has been replaced with an alias."
  215.     PrintLn "Thanks for using @X0CQuick Message@X07!"
  216.     PrintLn 
  217.     Wait
  218.     PrintLn 
  219.     End
  220.     :LABEL014
  221.     PrintLn 
  222.     PrintLn 
  223.     PrintLn "@X0A░▒▓█ @X09Sysop Menu @X0A█▓▒░@X07"
  224.     PrintLn "@X08     ──────────      @X07"
  225.     PrintLn 
  226.     PrintLn "@X0C1. @X0DReset the Quick Message@X07"
  227.     PrintLn "@X0C2. @X0DBack to Main Quick Message@X07"
  228.     PrintLn 
  229.     InputInt "@X0E(@X0C@MINLEFT@ min. left@X0E) @X0DQuick Message Sysop @X0CCommand@X07", STRING012, 14
  230.     If (STRING012 == 1) Goto LABEL015
  231.     If (STRING012 == 2) PrintLn 
  232.     Goto LABEL001
  233.     If (STRING012 > 2) PrintLn 
  234.     PrintLn 
  235.     PrintLn "@X8FInvalid Choice!@X07"
  236.     PrintLn 
  237.     Goto LABEL014
  238.     If (STRING012 < 1) PrintLn 
  239.     PrintLn 
  240.     PrintLn "@X8FInvalid Choice!@X07"
  241.     PrintLn 
  242.     Goto LABEL014
  243.     :LABEL015
  244.     PrintLn 
  245.     PrintLn "@X0FResetting the Quick Message...@X07"
  246.     PrintLn 
  247.     FOpen 1, "qwkmsg.msg", 2, 0
  248.     FPutLn 1, "<<< QUICK MESSAGE RESET >>>"
  249.     FPutLn 1, "Sysop"
  250.     FClose 1
  251.     PrintLn "The @X0CQuick Message @X07has been reset with the name of @X0CSysop @X07and a message@X07"
  252.     PrintLn "of @X0C<<< QUICK MESSAGE RESET >>>@X07.  Thanks for using @X0CQuick Message@X07!"
  253.     Wait
  254.     Goto LABEL001
  255.  
  256. ;------------------------------------------------------------------------------
  257. ;
  258. ; Usage report (before postprocessing)
  259. ;
  260. ; ■ Statements used :
  261. ;
  262. ;    5       End
  263. ;    4       Wait
  264. ;    31      Goto 
  265. ;    9       Let 
  266. ;    134     PrintLn 
  267. ;    34      If 
  268. ;    2       FOpen 
  269. ;    4       FClose 
  270. ;    6       FPutLn 
  271. ;    1       GetUser
  272. ;    2       InputStr 
  273. ;    7       InputYN 
  274. ;    1       InputInt 
  275. ;    1       Beep
  276. ;
  277. ;
  278. ; ■ Functions used :
  279. ;
  280. ;    4       +
  281. ;    30      ==
  282. ;    1       <
  283. ;    3       >
  284. ;    1       U_Name()
  285. ;    2       ReadLine()
  286. ;
  287. ;------------------------------------------------------------------------------
  288. ;
  289. ; Analysis flags : No flag
  290. ;
  291. ;------------------------------------------------------------------------------
  292. ;
  293. ; Postprocessing report
  294. ;
  295. ;    0       For/Next
  296. ;    0       While/EndWhile
  297. ;    0       If/Then or If/Then/Else
  298. ;    0       Select Case
  299. ;
  300. ;------------------------------------------------------------------------------
  301. ;                 AEGiS Corp - Break the routines, code against the machines!
  302. ;------------------------------------------------------------------------------
  303.