home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / SIGNON.PRG < prev    next >
Encoding:
Text File  |  1990-04-07  |  2.5 KB  |  67 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: SIGNON.PRG     Flashy sign-on screen.                   │ *
  3. * │  Copyright (c) 1989 Tech III, Inc. All rights reserved.             │ *
  4. * │  Tech III of San Pedro, California      (213) 547-2191.             │ *
  5. * │  "The bridge connecting people and technology."(tm)                 │ *
  6. * └─────────────────────────────────────────────────────────────────────┘ *
  7. *
  8. SET TALK OFF
  9. DEFINE WINDOW demo FROM 14,02 TO 16,17 DOUBLE COLOR SCHEME 7
  10. CLEAR
  11. @ 07,00
  12. TEXT
  13.  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀                    ▀▀▀▀▀▀▀▀▀▀▀
  14.    ▀▀         ▀▀▀                      ▀▀       ▀▀
  15.    ▀▀           ▀                      ▀▀        ▀▀
  16.    ▀▀                                  ▀▀        ▀▀
  17.    ▀▀          ▀▀▀      ▀▀▀▀▀  ▀▀▀▀▀   ▀▀       ▀▀  ▀▀▀   ▀▀▀▀         ▀▀▀
  18.    ▀▀▀▀▀    ▀▀     ▀▀     ▀▀    ▀▀     ▀▀▀▀▀▀▀▀▀      ▀▀ ▀▀   ▀▀    ▀▀     ▀▀
  19.    ▀▀      ▀▀       ▀▀     ▀▀  ▀▀      ▀▀             ▀▀▀          ▀▀       ▀▀
  20.    ▀▀     ▀▀         ▀▀     ▀▀▀        ▀▀             ▀▀          ▀▀         ▀▀
  21.    ▀▀      ▀▀       ▀▀     ▀▀ ▀▀       ▀▀             ▀▀           ▀▀       ▀▀
  22.    ▀▀       ▀▀     ▀▀     ▀▀   ▀▀      ▀▀             ▀▀            ▀▀     ▀▀
  23.  ▀▀▀▀▀▀▀       ▀▀▀      ▀▀▀▀▀  ▀▀▀▀  ▀▀▀▀▀▀         ▀▀▀▀▀▀             ▀▀▀
  24. ENDTEXT
  25.  
  26.  
  27. ACTIVATE SCREEN BOTTOM
  28. @ 06,00 TO 20,79 DOUBLE COLOR SCHEME 1
  29. STORE 'PRO-DEMO by TECH III * PRO-DEMO by TECH III * PRO-DEMO by TECH III ' ;
  30. +   '* PRO-DEMO by TECH III * PRO-DEMO by TECH III * ' TO signon
  31. STORE 0 TO LINE
  32. FOR LINE = 0 TO 5
  33.   IF LINE/2 = INT(LINE/2)
  34.     @ LINE,00 SAY SUBSTR(signon,1,80) COLOR SCHEME 1
  35.   ELSE
  36.     @ LINE,00 SAY SUBSTR(signon,5,80) COLOR SCHEME 1
  37.   ENDIF
  38. ENDFOR
  39. FOR LINE = 21 TO 23
  40.   IF LINE/2 = INT(LINE/2)
  41.     @ LINE,00 SAY SUBSTR(signon,1,80) COLOR SCHEME 1
  42.   ELSE
  43.     @ LINE,00 SAY SUBSTR(signon,5,80) COLOR SCHEME 1
  44.   ENDIF
  45. ENDFOR
  46. @ 24,00 SAY SUBSTR(signon,1,79) COLOR SCHEME 1
  47. @ 07,01 FILL TO 19,36 COLOR SCHEME 1
  48. @ 07,37 FILL TO 19,78 COLOR SCHEME 1
  49. ACTIVATE WINDOW demo
  50. @ 00,00 SAY '   D E M O    ' COLOR SCHEME 7
  51. FOR mcol = 03 TO 52
  52.   MOVE WINDOW demo TO 14,mcol
  53.   STORE SECONDS() TO stime
  54.   DO WHILE SECONDS() <= stime + .015
  55.   ENDDO
  56. ENDFOR
  57. ACTIVATE SCREEN BOTTOM
  58. @ 07,01 FILL TO 19,36 COLOR SCHEME 1
  59. @ 08,60 SAY "Tech III's" COLOR SCHEME 1
  60. @ 19,53 SAY 'Version: 1.03ß' COLOR SCHEME 1
  61. WAIT "Press a key or click the mouse... let's get started!"  WINDOW TIMEOUT 5
  62. RELEASE WINDOW demo
  63. @ 14,52 TO 16,67 DOUBLE COLOR SCHEME 7
  64. @ 15,53 SAY '   D E M O    ' COLOR SCHEME 7
  65. RETURN
  66. * EOF
  67.