home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST323.PRG < prev    next >
Encoding:
Text File  |  1989-10-04  |  2.2 KB  |  43 lines
  1. ********************
  2.  
  3. FUNCTION Sjs_hello
  4.  
  5.    PARAMETER _withit
  6.  
  7.    PRIVATE _holdcol
  8.  
  9.    _withit = IF((TYPE("_withit") != "L"), .T., _withit)
  10.  
  11.    IF _withit
  12.       WINDOWPUSH()
  13.    ELSE
  14.       _holdcol = SETCOLOR()
  15.       SETCOLOR(IF((ISCOLOR() .AND. !IF((TYPE("scrmono") = "U"), .T., scrmono)), "B/BG", "W/N"))
  16.    ENDIF
  17.    WSAYGET( 1,1,"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀")
  18.    WSAYGET( 2,1,"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀")
  19.    WSAYGET( 3,1,"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀                                            ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀")
  20.    WSAYGET( 4,1,"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀                                            ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀")
  21.    WSAYGET( 5,1,"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀   This logo (and application) was built    ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀")
  22.    WSAYGET( 6,1,"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀                                            ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀")
  23.    WSAYGET( 7,1,"═══════════════    by:   Steve Straley's Toolkit           ═══════════════")
  24.    WSAYGET( 8,1,"═══════════════                 Release 2                  ═══════════════")
  25.    WSAYGET( 9,1,"═══════════════                                            ═══════════════")
  26.    WSAYGET(10,1,"═══════════════    Created by: SJS & Associates.           ═══════════════")
  27.    WSAYGET(11,1,"═══════════════    Copyright(c) SJS & Assoc. - All         ═══════════════")
  28.    WSAYGET(12,1,"═══════════════                         Rights Reserved    ═══════════════")
  29.    WSAYGET(13,1,"───────────────                                            ───────────────")
  30.    WSAYGET(14,1,"───────────────    Published by Four Seasons Publishing    ───────────────")
  31.    WSAYGET(15,1,"───────────────                                            ───────────────")
  32.    WSAYGET(16,1,"───────────────                                            ───────────────")
  33.    WSAYGET(17,1,"──────────────────────────────────────────────────────────────────────────")
  34.    WSAYGET(18,1,"──────────────────────────────────────────────────────────────────────────")
  35.    WSAYGET(19,1,"──────────────────────────────────────────────────────────────────────────")
  36.    INKEY(5)
  37.    IF _withit
  38.       WINDOWPOP()
  39.    ELSE
  40.       SETCOLOR(_holdcol)
  41.    ENDIF
  42.    RETURN("")
  43.