home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST109.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  730 b   |  33 lines
  1. ********************
  2.  
  3. PROCEDURE Nantucket_bye
  4.  
  5.    PRIVATE _qaz
  6.    
  7.    IF ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono))
  8.       SET COLOR TO N/N
  9.       @ 3,19,17,61 BOX SPACE(1)
  10.       SET COLOR TO W+/N
  11.       @  3,28 SAY "A Clipper(R) Compiled"
  12.       @ 17,28 SAY "     Application   "
  13.       @ 4,62 SAY "(R)"
  14.       SET COLOR TO BG+/BG
  15.       @ 4,20,16,60 BOX SPACE(9)
  16.       SET COLOR TO B/BG, B/B
  17.       _qaz = 60
  18.       FOR x = 4 TO 16
  19.          IF _qaz > 20
  20.             FOR y = 20 TO _qaz
  21.               @ x,y SAY CHR(223)
  22.             NEXT
  23.             _qaz = _qaz - 3
  24.          ELSE
  25.             EXIT
  26.          ENDIF
  27.       NEXT
  28.       SET COLOR TO BG/BG
  29.       @ 20,00 SAY ""
  30.    ENDIF
  31.  
  32. * End of File
  33.