home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST71.PRG < prev    next >
Encoding:
Text File  |  1989-10-17  |  458 b   |  23 lines
  1. ********************
  2.  
  3. PROCEDURE Badpass
  4.  
  5.    PARAMETERS bada, badb, badc, badd
  6.  
  7.    badc = SUBSTR(badc, 1, 32)
  8.    badd = SUBSTR(badd, 1, 32)
  9.  
  10.    Windowpush(bada - 3, badb - 5, bada + 3, badb + 34)
  11.  
  12.    templen = (LEN(TRIM(badc)) / 2) - 1
  13.    @ bada-1, badb+17-templen SAY badc
  14.    templen = LEN(TRIM(badd)) / 2
  15.    @ bada, badb+17-templen SAY badd
  16.    @ bada+1, badb+6 SAY "Any Key to continue..."
  17.    INKEY(0)
  18.    Windowpop()
  19.  
  20. * End of File
  21.  
  22.  
  23.