home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / POWRPK10.ZIP / LENGTH10.ZIP / LENGTH.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-03-31  |  2KB  |  123 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.  
  21. ;------------------------------------------------------------------------------
  22.  
  23.     GetUser
  24.     DispFile PPEPath() + "length", 2 + 4
  25.     STRING001 = "N"
  26.     PrintLn 
  27.     PrintLn " @X0F Below is a test to see if you have an abnormal screen page length.@X07"
  28.     PrintLn "@X0F  If the last " + Chr(34) + "Z" + Chr(34) + " listed is at the end of the line,@X07"
  29.     PrintLn "@X0F  we suggest you do not change your page length setting.@X07"
  30.     PrintLn 
  31.     Wait
  32.     Cls
  33.     Print "@POFF@"
  34.     PrintLn "Z"
  35.     PrintLn "Z"
  36.     PrintLn "Z"
  37.     PrintLn "Z"
  38.     PrintLn "Z"
  39.     PrintLn "Z"
  40.     PrintLn "Z"
  41.     PrintLn "Z"
  42.     PrintLn "Z"
  43.     PrintLn "Z"
  44.     PrintLn "Z"
  45.     PrintLn "Z"
  46.     PrintLn "Z"
  47.     PrintLn "Z"
  48.     PrintLn "Z"
  49.     PrintLn "Z"
  50.     PrintLn "Z"
  51.     PrintLn "Z"
  52.     PrintLn "Z"
  53.     PrintLn "Z"
  54.     Wait
  55.     PrintLn 
  56.     PrintLn "@X0FIf @X8CA LOT @X0Fmore " + Chr(34) + "Z's" + Chr(34) + " can fit on the screen, or the Z's fill@X07 @X0Fthe screen more"
  57.     PrintLn "than you can see, you should change@X07 @X0Fyour page length setting.@X07"
  58.     PrintLn 
  59.     PrintLn "@X0EYour Page Length is currently set at: @X0A@X07"
  60.     PrintLn U_PageLen
  61.     InputYN "Would you like to change your page length setting", STRING001, 12
  62.     If (STRING001 == "y") Goto LABEL001
  63.     If (STRING001 == "Y") Goto LABEL001
  64.     If (STRING001 == "n") End
  65.     If (STRING001 == "N") End
  66.     :LABEL001
  67.     PrintLn 
  68.     PrintLn "@X0APage Length Should Be @X0E0-99 @X0A- @X0E0 @X0AMeans Continious.@X07"
  69.     InputInt "What would you like your page length to be", U_PageLen, 12
  70.     PrintLn 
  71.     PrintLn 
  72.     PrintLn "@X0FPage Length Set.@X07"
  73.     KbdStuff Chr(13)
  74.     KbdStuff "P" + Chr(13)
  75.     KbdStuff U_PageLen + Chr(13)
  76.     KbdStuff Chr(13)
  77.     End
  78.  
  79. ;------------------------------------------------------------------------------
  80. ;
  81. ; Usage report (before postprocessing)
  82. ;
  83. ; ■ Statements used :
  84. ;
  85. ;    3       End
  86. ;    1       Cls
  87. ;    2       Wait
  88. ;    2       Goto 
  89. ;    1       Let 
  90. ;    1       Print 
  91. ;    36      PrintLn 
  92. ;    4       If 
  93. ;    1       DispFile 
  94. ;    1       GetUser
  95. ;    1       InputYN 
  96. ;    1       InputInt 
  97. ;    4       KbdStuff 
  98. ;
  99. ;
  100. ; ■ Functions used :
  101. ;
  102. ;    12      +
  103. ;    4       ==
  104. ;    8       Chr()
  105. ;    1       PPEPath()
  106. ;
  107. ;------------------------------------------------------------------------------
  108. ;
  109. ; Analysis flags : No flag
  110. ;
  111. ;------------------------------------------------------------------------------
  112. ;
  113. ; Postprocessing report
  114. ;
  115. ;    0       For/Next
  116. ;    0       While/EndWhile
  117. ;    0       If/Then or If/Then/Else
  118. ;    0       Select Case
  119. ;
  120. ;------------------------------------------------------------------------------
  121. ;                 AEGiS Corp - Break the routines, code against the machines!
  122. ;------------------------------------------------------------------------------
  123.