home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SK-NULS.ZIP / NULS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-23  |  6KB  |  270 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   STRING010
  20.     String   STRING011
  21.  
  22. ;------------------------------------------------------------------------------
  23.  
  24.     Log "■ NEW USER APPLIED ■  NULS v1.oo", -0
  25.     Sound 300
  26.     Delay 5
  27.     Sound 400
  28.     Delay 2
  29.     Sound 600
  30.     Delay 3
  31.     Sound 800
  32.     Delay 4
  33.     Sound 1000
  34.     Delay 5
  35.     Sound 0
  36.     GetUser
  37.     Gosub LABEL001
  38.     AnsiPos 8, 7
  39.     InputText "REAL NAME , (YOUR LOGON NAME MAY BE THE SAME)@X0F", STRING010, 9, 25
  40.     Cls
  41.     Gosub LABEL001
  42.     AnsiPos 8, 7
  43.     InputText "WHAT WOULD YOU LIKE YOUR PASSWORD TO BE@X0F", U_Pwd, 9, 12
  44.     Cls
  45.     Gosub LABEL001
  46.     AnsiPos 8, 7
  47.     InputText "HOW OLD ARE YOU@X0F", U_Cmnt1, 9, 2
  48.     Cls
  49.     Gosub LABEL001
  50.     AnsiPos 8, 7
  51.     InputText "CITY or AFFILIATION@X0F", U_City, 9, 24
  52.     Cls
  53.     Gosub LABEL001
  54.     AnsiPos 8, 7
  55.     InputText "ALIAS TO USE IN CONFERENCE'S@X0F", U_Alias, 9, 25
  56.     Cls
  57.     Gosub LABEL001
  58.     AnsiPos 8, 7
  59.     InputText "MODEM or DATA PHONE #@X0F", U_BDPhone, 9, 13
  60.     Cls
  61.     Gosub LABEL001
  62.     AnsiPos 8, 7
  63.     InputText "HOME VOICE PHONE (SAME) IF SAME AS DATA@X0F", U_HVPhone, 9, 13
  64.     Cls
  65.     Cls
  66.     AnsiPos 1, 1
  67.     Print "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  68.     Print "@X07████████████████████████████████@X75[ N.U.L.S.]@X07█████████████████████████████████████"
  69.     Print "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  70.     Newline
  71.     PrintLn "@X0F       @X0DWhat Is Yer Mailing Address? This Information Is STRICKTLY"
  72.     PrintLn "@X0F       @X0DCONFEDENTIAL!"
  73.     Newline
  74.     PrintLn "@X0F       @X0D1st"
  75.     Newline
  76.     PrintLn "@X0F       @X0D2nd"
  77.     Newline
  78.     PrintLn "@X0F       @X0DCity"
  79.     Newline
  80.     PrintLn "@X0F       @X0DProvince/"
  81.     Newline
  82.     PrintLn "@X0F       @X0DZip"
  83.     Newlines 4
  84.     Print "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  85.     Print "@X07█████████████████████████████████████@X78[Codeded by BBS BOY in PPL v2.oo '94 (SK)]"
  86.     Print "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  87.     AnsiPos 12, 8
  88.     InputText "Street@X0F", U_Addr(0), 13, 60
  89.     AnsiPos 12, 10
  90.     InputText "Street@X0F", U_Addr(1), 13, 60
  91.     AnsiPos 12, 12
  92.     InputText " or Affiliation@X0F", U_Addr(2), 13, 25
  93.     AnsiPos 17, 14
  94.     InputText "State@X0F", U_Addr(3), 13, 10
  95.     AnsiPos 11, 16
  96.     InputText " Code@X0F", U_Addr(4), 13, 10
  97.     Cls
  98.     Print "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  99.     Print "@X07████████████████████████████████@X75[ N.U.L.S.]@X07█████████████████████████████████████"
  100.     Print "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  101.     Newline
  102.     PrintLn "@X0F     @X0DPick A File Transfer Protocol"
  103.     Newline
  104.     PrintLn "@X0F     @X03A - Ascii"
  105.     PrintLn "@X0F     @X03X - Xmodem/Checksum"
  106.     PrintLn "@X0F     @X03C - Xmodem/CRC"
  107.     PrintLn "@X0F     @X03O - 1K-Xmodem       (a.k.a. non-BATCH Ymodem)"
  108.     PrintLn "@X0F     @X03F - 1K-Xmodem/G     (a.k.a. non-BATCH Ymodem/G)"
  109.     PrintLn "@X0F     @X03Y - Ymodem BATCH"
  110.     PrintLn "@X0F     @X03G - Ymodem/G BATCH"
  111.     PrintLn "@X0F     @X03Z - Zmodem (batch)"
  112.     PrintLn "@X0F     @X03H - HS/Link (bidirectional)"
  113.     PrintLn "@X0F     @X03B - BiModem (bidirectional)"
  114.     PrintLn "@X0F     @X03N - No Protocol At This Time.... Select Before File Transfer."
  115.     Newline
  116.     PrintLn "@X0F                 @X0DYOUR CHOICE [ ]"
  117.     Print "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  118.     Print "@X07██████████████████████████████████████@X78[Codeded by BBS BOY in PPL v2.oo '94 (SK)]"
  119.     Print "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  120.     AnsiPos 29, 19
  121.     InputText "", U_Trans, 13, 1
  122.     Gosub LABEL001
  123.     AnsiPos 8, 7
  124.     InputYN "USE 79 COLOMN EDITOR@X0F", U_Def79, 9
  125.     Cls
  126.     Gosub LABEL001
  127.     AnsiPos 8, 7
  128.     InputYN "USE EXPERT MODE (no menu's)@X0F", U_Expert, 9
  129.     Cls
  130.     Gosub LABEL001
  131.     AnsiPos 8, 7
  132.     InputYN "USE FULL SCREEN MESSAGE EDITOR@X0F", U_FSEP, 9
  133.     Cls
  134.     Gosub LABEL001
  135.     AnsiPos 8, 7
  136.     InputYN "USE LONG MESSAGE HEADERS?@X0F", U_LongHDR, 9
  137.     Cls
  138.     Gosub LABEL001
  139.     AnsiPos 8, 7
  140.     InputYN "SCROLL LONG MESSAGE'S (ansi)@X0F", U_Scroll, 9
  141.     Cls
  142.     Gosub LABEL001
  143.     AnsiPos 8, 7
  144.     InputInt "LINES AVALIBLE ON YOUR SCREEN (usually 23)@X0F", U_PageLen, 9
  145.     Cls
  146.     Gosub LABEL001
  147.     AnsiPos 8, 7
  148.     InputText "DO YOU, (or have you ever) PIRATED SOFTWARE?", U_Cmnt2, 9, 30
  149.     FOpen 1, PPEPath() + "NULS.CFG", 0, 0
  150.     FGet 1, STRING011
  151.     FClose 1
  152.     If (STRING011 == "Y") Then
  153.         Gosub LABEL002
  154.     Else
  155.         Gosub LABEL003
  156.     Endif
  157.     :LABEL001
  158.     Cls
  159.     AnsiPos 1, 1
  160.     Print "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  161.     Print "@X07████████████████████████████████@X75[ N.U.L.S.]@X07█████████████████████████████████████"
  162.     Print "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  163.     Newlines 17
  164.     Print "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  165.     Print "@X07█████████████████████████████████████@X78[Codeded by BBS BOY in PPL v2.oo '94 (SK)]"
  166.     Print "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  167.     Return
  168.     :LABEL002
  169.     Cls
  170.     DispFile PPEPath() + "RULES.TXT", 1
  171.     Wait
  172.     :LABEL003
  173.     Cls
  174.     Newlines 2
  175.     PrintLn "         @X0FHELLO!"
  176.     Newlines 2
  177.     PrintLn "    @X07Welcome to @BOARDNAME@! Thanks for filing out the registration ."
  178.     PrintLn "    @X07form You have @MINLEFT@ min today to look around the BBS..."
  179.     Newline
  180.     PrintLn "    You will soon be prompted to leave me a message telling me about"
  181.     PrintLn "    yourself and why you think you could be a valuable member of this BBS."
  182.     Newlines 2
  183.     PrintLn "    Thanks again and have fun here on @BOARDNAME@!"
  184.     Newlines 2
  185.     PrintLn "                                             -=SYSOP=-"
  186.     Newlines 5
  187.     PutUser
  188.     Wait
  189.     U_Expert = -0
  190.     KbdString Chr(13)
  191.     KbdString "E "
  192.     KbdString Chr(13)
  193.     KbdString "SYSOP "
  194.     KbdString Chr(13)
  195.     KbdString "HI IM A NEW USER "
  196.     KbdString Chr(13)
  197.     KbdString "R "
  198.     KbdString Chr(13)
  199.     KbdString "Y "
  200.     KbdString Chr(13)
  201.  
  202. ;------------------------------------------------------------------------------
  203. ;
  204. ; Usage report (before postprocessing)
  205. ;
  206. ; ■ Statements used :
  207. ;
  208. ;    18      Cls
  209. ;    2       Wait
  210. ;    2       Goto 
  211. ;    1       Let 
  212. ;    18      Print 
  213. ;    27      PrintLn 
  214. ;    1       If 
  215. ;    1       DispFile 
  216. ;    1       FOpen 
  217. ;    1       FClose 
  218. ;    1       FGet 
  219. ;    1       GetUser
  220. ;    1       PutUser
  221. ;    1       Log 
  222. ;    5       InputYN 
  223. ;    1       InputInt 
  224. ;    16      Gosub 
  225. ;    1       Return
  226. ;    5       Delay 
  227. ;    10      Newline
  228. ;    7       Newlines 
  229. ;    14      InputText 
  230. ;    22      AnsiPos 
  231. ;    6       Sound 
  232. ;    11      KbdString 
  233. ;
  234. ;
  235. ; ■ Functions used :
  236. ;
  237. ;    2       -
  238. ;    2       +
  239. ;    1       ==
  240. ;    1       !
  241. ;    6       Chr()
  242. ;    2       PPEPath()
  243. ;
  244. ;------------------------------------------------------------------------------
  245. ;
  246. ; Analysis flags : WH
  247. ;
  248. ; W - Write user ■ 5
  249. ;     Program writes a user record. Although this may be normal for a
  250. ;     User Editor, it may also be a way to modify an account level.
  251. ;     ■ Search for : PUTUSER
  252. ;
  253. ; H - Read Password or Password History ■ 5
  254. ;     Program is reading the user's password or last password history
  255. ;     This may be ok for a password manager, but it is very suspect. Check!
  256. ;     ■ Search for : U_PWDHIST, U_PWD
  257. ;
  258. ;------------------------------------------------------------------------------
  259. ;
  260. ; Postprocessing report
  261. ;
  262. ;    0       For/Next
  263. ;    0       While/EndWhile
  264. ;    1       If/Then or If/Then/Else
  265. ;    0       Select Case
  266. ;
  267. ;------------------------------------------------------------------------------
  268. ;                 AEGiS Corp - Break the routines, code against the machines!
  269. ;------------------------------------------------------------------------------
  270.