home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SDE-PL11.ZIP / SDE-PL.PPS < prev    next >
Text File  |  1996-03-30  |  1KB  |  45 lines
  1. *$USEFUNCS
  2.  
  3. integer i,p, x, y, o
  4. string cr
  5.  
  6. begin
  7.   getuser;
  8.   cls
  9.   startdisp fns
  10.   log "SyNDRoME Page-Lenght has been started", FALSE
  11.   dispfile ppepath() + "pageln.ans", graph
  12.   newline
  13.   i = u_pagelen
  14.   print "@X01U@X09SE @X01C@X09URSOR @X01U@X09P@X08/@X01D@X09OWN @X01T@X09O @X01C@X09HANGE @X01N@X09UMBER @X01O@X09F @X01L@X09INES@X08. @X01E@X09SC @X01T@X09O @X01Q@X09UIT@X08. @X01E@X09NTER @X01T@X09O @X01S@X09AVE@X09. @X08[@X09"
  15.   x = getx()
  16.   y = gety()
  17.   print i, "@X08]@X09"
  18.   o = 0
  19.   while ((o != 13) && (o != 27)) do
  20.     cr = inkey()
  21.     o = asc(cr)
  22.     if (cr == "UP") then
  23.       inc i
  24.       if (i > 99) i=99
  25.       ansipos x, y
  26.       print i,"@X08]@X09"
  27.     endif
  28.     if (cr == "DOWN") then
  29.       dec i
  30.       if (i < 10) i = 10
  31.       ansipos x, y
  32.       print i , "@X08]@X09"
  33.     endif
  34.   endwhile
  35.   if (o = 13) then
  36.     u_pagelen = i
  37.     putuser
  38.   endif
  39.   cls
  40.   println "@X08(@X0FSYNDR0Mε PAGε-LεNGHT BY STεÆM@X08)(@X0FGFX & DεSiGN BY RÆYMÆN@X08)"
  41. end
  42.  
  43.  
  44.  
  45.