home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / charset_zi / UTILS.OPL < prev    next >
Text File  |  1992-05-18  |  1KB  |  52 lines
  1. REM +-----------------------+
  2. REM   Author      Jon Simpson   
  3. REM   Title               Utilities                
  4. REM   Version                 1.00
  5. REM   Date       18 April 1992
  6. REM   @CIX              jsimpsonb
  7. REM +-----------------------+
  8.  
  9. PROC Utils:
  10.  AnyKey:
  11. ENDP
  12.  
  13. REM Title      Add Author to header                 
  14. PROC AddAuth:
  15. LOCAL bitid% , winid%
  16.   winid%=gCREATE(180,60,57,17,1)
  17.   bitid%=gLOADBIT("jsname",0)
  18.   gUSE winid%
  19.   gCOPY bitid%,0,0,57,17,3
  20.   PAUSE -100
  21.     gCLOSE winid%
  22.     gCLOSE bitid%
  23. ENDP
  24.  
  25. REM routine to prompt for any key
  26. PROC AnyKey:
  27. LOCAL w%,txt$(25)
  28.   txt$="Press Any Key To Continue"
  29.   w%=gTWIDTH(txt$)
  30.   gAT gWIDTH-w%,gHEIGHT-16
  31.     gPRINT txt$
  32.     GET
  33.     gAT gWIDTH-w%,gHEIGHT-16
  34.     gPRINT REPT$(" ",25)
  35. ENDP
  36.  
  37. REM Routine to replace a character
  38. REM within a string at a position
  39. REM returns string value
  40. PROC ExChar$:( st$, ch$, pos%)
  41.     RETURN LEFT$(st$,pos%-1)+ch$+RIGHT$(st$,LEN(st$)-pos%)
  42. ENDP
  43.  
  44. PROC Inc%:( value% )
  45.  RETURN value% + 1
  46. ENDP
  47.  
  48. PROC Dec%:( value% )
  49.  RETURN value% - 1
  50. ENDP
  51.  
  52.