home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST905.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  589 b   |  26 lines
  1. *******************
  2.  
  3. PROCEDURE On_mem
  4.  
  5.    IF TYPE("scrleft_1") = "U"
  6.       scrleft_1 = "Steve Straley's ToolKit"
  7.       scrleft_2 = "Version 2.0"
  8.    ENDIF
  9.  
  10.    PRIVATE _oldcolor
  11.  
  12.    IF ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono))
  13.       WINDOWPUSH(18,10,22,70,"WHITE", "BLUE")
  14.    ELSE
  15.       WINDOWPUSH(18,10,22,70)
  16.    ENDIF
  17.  
  18.    WSAYGET(1,1, scrleft_1)
  19.    WSAYGET(1,RIGHT_JUST(scrleft_2, 60), scrleft_2)
  20.    WSAYGET(3,5, "Available on-line memory is now " + ;
  21.            LTRIM(TRANSFORM(MEMORY(0), "9999")) + "K")
  22.    INKEY(0)
  23.    WINDOWPOP()
  24.  
  25. * End of File
  26.