home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / NEWASK.ZIP / NEWASK.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1993-03-01  |  2.6 KB  |  127 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 1.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.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     STRING008 = " 0123456789.,;abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
  31.     PrintLn "@CLS@@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
  32.     PrintLn "@X38│ @X3EIn researching the BBS market we are interested in finding out where or how @X3B│@X07"
  33.     PrintLn "@X38│ @X3Eyou learned of PCBoard software or this BBS.                                @X3B│@X07"
  34.     PrintLn "@X38│                                                                             @X3B│@X07"
  35.     PrintLn "@X38│ @X31If you could volunteer that information it would be appreciated.            @X3B│@X07"
  36.     PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
  37.     PrintLn ""
  38.     STRING001 = NoChar()
  39.     InputYN "Have you seen our advertisement for PCBoard software in a magazine", STRING001, 14
  40.     PrintLn 
  41.     If (Upper(Left(STRING001, 1)) <> YesChar()) Goto LABEL001
  42.     InputStr "Which one", STRING002, 14, 60, STRING008, 2 + 64 + 128
  43.     FPutLn 0, "Q: Which magazine?"
  44.     FPut 0, "A: "
  45.     FPutLn 0, STRING002
  46.     :LABEL001
  47.     PrintLn 
  48.     PrintLn "@X0EHow did you hear about PCBoard, or from whom?  (2 lines)"
  49.     Input "", STRING003
  50.     PrintLn 
  51.     Input "", STRING004
  52.     PrintLn 
  53.     FPutLn 0, "Q: Referral Line 1"
  54.     FPut 0, "A: "
  55.     FPutLn 0, STRING003
  56.     FPutLn 0, "Q: Referral Line 2"
  57.     FPut 0, "A: "
  58.     FPutLn 0, STRING004
  59.     STRING001 = NoChar()
  60.     PrintLn 
  61.     InputYN "Do you currently run a BBS", STRING001, 14
  62.     PrintLn 
  63.     If (Upper(Left(STRING001, 1)) <> YesChar()) Goto LABEL002
  64.     InputStr "What software are you currently using", STRING005, 14, 30, STRING008, 2 + 64 + 128
  65.     FPutLn 0, "Q: Current BBS Software"
  66.     FPut 0, "A: "
  67.     FPutLn 0, STRING005
  68.     :LABEL002
  69.     PrintLn 
  70.     PrintLn "@X0EWhat attracted you to PCBoard software?  (2 lines)"
  71.     Input "", STRING006
  72.     PrintLn 
  73.     Input "", STRING007
  74.     PrintLn 
  75.     FPutLn 0, "Q: Features Line 1"
  76.     FPut 0, "A: "
  77.     FPutLn 0, STRING006
  78.     FPutLn 0, "Q: Features Line 2"
  79.     FPut 0, "A: "
  80.     FPutLn 0, STRING007
  81.     PrintLn 
  82.     PrintLn "@X0FThank you for your responses."
  83.     PrintLn 
  84.  
  85. ;------------------------------------------------------------------------------
  86. ;
  87. ; Usage report (before postprocessing)
  88. ;
  89. ; ■ Statements used :
  90. ;
  91. ;    2       Goto 
  92. ;    3       Let 
  93. ;    21      PrintLn 
  94. ;    2       If 
  95. ;    4       Input 
  96. ;    6       FPut 
  97. ;    12      FPutLn 
  98. ;    2       InputStr 
  99. ;    2       InputYN 
  100. ;
  101. ;
  102. ; ■ Functions used :
  103. ;
  104. ;    4       +
  105. ;    2       <>
  106. ;    2       Upper()
  107. ;    2       Left()
  108. ;    2       NoChar()
  109. ;    2       YesChar()
  110. ;
  111. ;------------------------------------------------------------------------------
  112. ;
  113. ; Analysis flags : No flag
  114. ;
  115. ;------------------------------------------------------------------------------
  116. ;
  117. ; Postprocessing report
  118. ;
  119. ;    0       For/Next
  120. ;    0       While/EndWhile
  121. ;    0       If/Then or If/Then/Else
  122. ;    0       Select Case
  123. ;
  124. ;------------------------------------------------------------------------------
  125. ;                 AEGiS Corp - Break the routines, code against the machines!
  126. ;------------------------------------------------------------------------------
  127.