home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / VPI1_330.ZIP / SRILOGON.PRG < prev    next >
Encoding:
Text File  |  1991-12-30  |  2.0 KB  |  57 lines
  1. ***************************************************************************
  2. **  SRILOGON.PRG
  3. **  (C) Copyright 1990-91, Sub Rosa Publishing Inc.
  4. **
  5. **  A demonstration program provided to VP-Info users.
  6. **  This program may be copied freely. If it is used in commercial code,
  7. **  please credit the source, Sub Rosa Publishing Inc.
  8. **
  9. **  SRILOGON demonstrates the use of color command to paint blocks.
  10. **  THE sign-on screen for SR-Info, the original shareware edition of
  11. **  the Sub Rosa database language, was designed from this test code.
  12. **
  13. **  SRILOGON is compatible with all current versions of VP-Info.
  14. **
  15. **  Sid Bursten and Bernie Melman
  16. ***************************************************************************
  17. IF :color <> 7
  18.    SET color to 117; violet on grey (my choice, maybe not yours! BDM)
  19. ENDIF
  20. ERASE
  21. COLOR :color,3,16,9,57,178
  22. DELAY .1
  23. COLOR :color,2,28,10,32,32 ; main block S
  24. DELAY .1
  25. COLOR :color,7,16,8 ,25,32 ; bottom large hole in S
  26. DELAY .1
  27. COLOR :color,3,45,9,50,32 ; main block R
  28. DELAY .1
  29. COLOR :color,6,48,6,49,178 ; the '-'
  30. DELAY .1
  31. COLOR :color,4,51,8,52,32 ; left hollow of 'I'
  32. DELAY .1
  33. COLOR :color,4,35,5,42,32 ; top hollow of 'R'
  34. DELAY .1
  35. COLOR :color,4,56,8,57,32 ; right hollow of 'I'
  36. DELAY .1
  37. COLOR :color,4,18,5,28,32 ; top hollow of 'S'
  38. DELAY .1
  39. COLOR :color,7,35,10,41,32 ; bottom main hollow of R
  40. DELAY .1
  41. COLOR :color,7,44,10,45,32 ; outside of tail of R
  42. DELAY .2
  43. @ 12,10 say 'SR-Info 3.10   (C) Copyright 1984-90, Sub Rosa Inc.'
  44. @ 13,10 say 'Thank you for trying out our Shareware Database Software.'
  45. @ 14,10 say 'As Shareware, you are welcome to try before you buy as well as'
  46. @ 15,10 say 'to distribute copies within the United States and Canada.'
  47. @ 16,10 say 'Before placing copies on bulletin boards, sysops are asked'
  48. @ 17,10 say 'to advise Sub Rosa Publishing Inc. (416) 398-8414.'
  49. @ 24,53 say 'Press F10 to enter SR-Info.'
  50. DUMMY = 50
  51. DO WHILE dummy <> 324 ; Info code for F10
  52.    DUMMY = inkey()
  53. ENDDO
  54. CHAIN samples
  55. *
  56. *                   *** end of program SRILOGON.PRG **
  57.