home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / DFQBX10.ZIP / DISPLAY.BAS < prev    next >
BASIC Source File  |  1991-10-21  |  2KB  |  40 lines
  1. ' Example usage of the DIS.PLAY routine enhancements (~ ` @ ^ | { and })
  2. ' If BLINK% = 1 and you are using one of these enhancements, then only
  3. ' the text between the symbols will blink. Otherwise the whole line blinks
  4. ' normally. If BLINK% = 0 then the text between the symbols will display
  5. ' normally in the color specfied by the symbols you are using
  6. ' Note that the text to blink must start and end with the same symbol.
  7. ' To make the color low intensity, put an * is front of the first symbol.
  8. ' For example: *@text@ will make 'text' appear in low intensity cyan.
  9. '  ~ = blue
  10. '  ` = green
  11. '  @ = cyan
  12. '  ^ = red
  13. '  | = magenta
  14. '  { = yellow
  15. '  } = white
  16.  
  17. ' $INCLUDE: '\INC\DFRAMEX.INC'
  18.  
  19. PROGNAME$ = "Display Examples"
  20. VERSION$ = " v0.0"
  21. INITIALIZE
  22. CLOSE #1
  23.  
  24. DETECT.ANSI               'Required for the symbols to work
  25.  
  26. DIS.PLAY "Example for <~BLINKING BLUE~> in the middle.", LGREEN, BLACK, 1, 0, 2, 0, 0, 1, 0
  27. DIS.PLAY "Example for <`BLINKING GREEN`> in the middle.", LCYAN, BLACK, 1, 0, 4, 0, 0, 1, 0
  28. DIS.PLAY "Example for <@BLINKING CYAN@> in the middle.", LRED, BLACK, 1, 0, 6, 0, 0, 1, 0
  29. DIS.PLAY "Example for <^BLINKING RED^> in the middle.", GRAY, WHITE, 1, 0, 8, 0, 0, 1, 0
  30. DIS.PLAY "Example for <|BLINKING MAGENTA|> in the middle.", LYELLOW, BLACK, 1, 0, 10, 0, 0, 1, 0
  31. DIS.PLAY "Example for <{BLINKING YELLOW{> in the middle.", LWHITE, BLUE, 1, 0, 12, 0, 0, 1, 0
  32. DIS.PLAY "Example for <}BLINKING WHITE}> in the middle.", LBLUE, BLACK, 1, 0, 14, 0, 0, 1, 0
  33. DIS.PLAY "Example for <~NON-BLINKING BLUE~> in the middle.", LWHITE, BLACK, 0, 0, 16, 0, 0, 1, 0
  34. DIS.PLAY "Example for <*}LOW-INTENSITY WHITE}> in the middle.", LWHITE, BLACK, 0, 0, 18, 0, 0, 1, 0
  35.  
  36. ENTER
  37. EXIT.DOOR "y"
  38. END
  39.  
  40.