1 / 61

; P.PPS - Replacement for PCBoard's P (Page Length) command

; P.PPS - Replacement for PCBoard's P (Page Length) command. ; Written by Jesse Keene (spacecb@deeptht.armory.com). ; Digital Nebula BBS - (408)469-3604. ; If you find this PPE of any use, I'd really appreciate hearing from you!.

barbra
Download Presentation

; P.PPS - Replacement for PCBoard's P (Page Length) command

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ; P.PPS - Replacement for PCBoard's P (Page Length) command

  2. ; Written by Jesse Keene (spacecb@deeptht.armory.com)

  3. ; Digital Nebula BBS - (408)469-3604

  4. ; If you find this PPE of any use, I'd really appreciate hearing from you!

  5. ; You can send me email at spacecb@deeptht.armory.com ... thanks!

  6. string cmdline, ESC

  7. int i, ii, plen, cmdnum

  8. boolean cmdflag

  9. ESC = chr(27)

  10. ii = 100

  11. plen = -1

  12. cmdflag = 0

  13. begin

  14. getuser

  15. ' This checks to see if the user entered anything at the command line

  16. ' (ie "p 23") if so, it checks to see if they entered a valid # (0-99)

  17. ' if so, the PPE will set the users page length to that number.

  18. cmdline = tokenstr() ' get command line

  19. tokenize cmdline

  20. if (tokcount() > 0) then ' if something was entered at command line

  21. cmdline = GetTOKEN()

  22. cmdnum = s2i(cmdline,10) ' converts string (cmdline) to int (cmdnum)

  23. if (cmdline=i2s(cmdnum,10)) cmdflag=1 ' if successfully converted

  24. ' to int, set cmdflag to true

  25. if (cmdflag=0 | cmdnum > 99) end ' if conversion unsuccessful, or

  26. ' if # bigger than 99, end program

  27. endif

  28. if (!cmdflag) then ' if nothing entered at command prompt,

  29. ' get page length from user

  30. print "@POFF@@X07" ' Disables pausing, sets color to standard white

  31. for i = 1 to 100 ' Prints #'s

  32. dec ii

  33. println ii

  34. if (ii <= 10) break

  35. endfor

  36. newlines 4

  37. println "@X0EThe number at the top of your screen is your Page Length"

  38. println

  39. println "@X02Page Length is currently set to @X0A", U_PAGELEN

  40. println

  41. ' if user has ANSI, this prints the arrow at the top of the screen

  42. if (ansion()) print Esc+"[s"+Esc+"[0;4H@X0E<@X06--"+Esc+"[u"

  43. ' The _ underscore at the end of an input string keeps PCBoard from

  44. ' prompting with a ? Question mark; this can come in handy often ;-)

  45. inputstr "@X0BEnter Page Length@X03: _",plen,@X0B,2,MASK_NUM(),DEFS

  46. print "@PON@" ' Enables pausing

More Related