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