home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / basic / bmag / testbox.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-26  |  2.2 KB  |  81 lines
  1. '─ Area: F-QUICKBASIC ─────────────────────────────────────────────────────────
  2. '  Msg#: 386                                          Date: 15 Apr 94  09:17:00
  3. '  From: Lester Dodds                                 Read: Yes    Replied: No 
  4. '    To: Matthew Kodatsky                             Mark:                     
  5. '  Subj: A Test Board
  6. '──────────────────────────────────────────────────────────────────────────────
  7.  
  8. DECLARE SUB LineBox (topRow%, topCol%, lowRow%, lowCol%, typeLine%,_ 
  9. frg%, bkg%)
  10. DECLARE SUB ShadowBox (topRow%, topCol%, lowRow%, lowCol%, chr%,_ 
  11. frg%, bkg%)
  12.  
  13. '--- Draw and set up test board
  14.  
  15. CLS
  16. COLOR 3, 0
  17. PRINT STRING$(1920, 178);
  18. COLOR 14, 0
  19. LOCATE 3, 1
  20. PRINT "         1         2         3         4         5        6"
  21. COLOR 15, 1
  22. LOCATE 4, 1
  23. PRINT "123456789012345678901234567890123456789012345678901234567890"
  24.  
  25.  
  26. '--- Call subs for test on board
  27.  
  28. ShadowBox 5, 10, 20, 76, 176, 6, 7
  29. LineBox 5, 10, 20, 76, 2, 14, 6
  30.  
  31. END
  32.  
  33. SUB LineBox (topRow%, topCol%, lowRow%, lowCol%, typeLine%, frg%, bkg%)
  34.     SELECT CASE typeLine%
  35.         CASE 1
  36.             tlc% = 218
  37.             trc% = 191
  38.             llc% = 192
  39.             lrc% = 217
  40.             bar% = 196
  41.             side% = 179
  42.            
  43.         CASE 2
  44.             tlc% = 201
  45.             trc% = 187
  46.             llc% = 200
  47.             lrc% = 188
  48.             bar% = 205
  49.             side% = 186
  50.     END SELECT
  51.  
  52.     COLOR frg%, bkg%
  53.     LOCATE topRow%, topCol%
  54.     PRINT CHR$(tlc%) + STRING$(lowCol% - topCol% - 1, bar%) + CHR$(trc%)
  55.     FOR i% = (topRow% + 1) TO (lowRow% - 1)
  56.         LOCATE i%, topCol%
  57.         PRINT CHR$(side%)
  58.         LOCATE i%, lowCol%
  59.         PRINT CHR$(side%)
  60.     NEXT
  61.     LOCATE lowRow%, topCol%
  62.     PRINT CHR$(llc%) + STRING$(lowCol% - topCol% - 1, bar%) + CHR$(lrc%)
  63.     COLOR 7, 0
  64. END SUB
  65.  
  66. SUB ShadowBox (topRow%, topCol%, lowRow%, lowCol%, chr%, frg%, bkg%)
  67.     COLOR bkg%, 0
  68.     FOR i% = topRow% TO lowRow%
  69.         LOCATE i% + 1, topCol% + 2
  70.         PRINT STRING$(lowCol% - topCol% + 1, chr%)
  71.     NEXT i%
  72.    
  73.     COLOR frg%, bkg%
  74.     FOR i% = topRow% TO lowRow%
  75.         LOCATE i%, topCol%
  76.         PRINT STRING$(lowCol% - topCol% + 1, 219)
  77.     NEXT i%
  78.     COLOR 7, 0
  79. END SUB
  80.  
  81.