'Ä Area: F-QUICKBASIC ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ' Msg#: 386 Date: 15 Apr 94 09:17:00 ' From: Lester Dodds Read: Yes Replied: No ' To: Matthew Kodatsky Mark: ' Subj: A Test Board 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ DECLARE SUB LineBox (topRow%, topCol%, lowRow%, lowCol%, typeLine%,_ frg%, bkg%) DECLARE SUB ShadowBox (topRow%, topCol%, lowRow%, lowCol%, chr%,_ frg%, bkg%) '--- Draw and set up test board CLS COLOR 3, 0 PRINT STRING$(1920, 178); COLOR 14, 0 LOCATE 3, 1 PRINT " 1 2 3 4 5 6" COLOR 15, 1 LOCATE 4, 1 PRINT "123456789012345678901234567890123456789012345678901234567890" '--- Call subs for test on board ShadowBox 5, 10, 20, 76, 176, 6, 7 LineBox 5, 10, 20, 76, 2, 14, 6 END SUB LineBox (topRow%, topCol%, lowRow%, lowCol%, typeLine%, frg%, bkg%) SELECT CASE typeLine% CASE 1 tlc% = 218 trc% = 191 llc% = 192 lrc% = 217 bar% = 196 side% = 179 CASE 2 tlc% = 201 trc% = 187 llc% = 200 lrc% = 188 bar% = 205 side% = 186 END SELECT COLOR frg%, bkg% LOCATE topRow%, topCol% PRINT CHR$(tlc%) + STRING$(lowCol% - topCol% - 1, bar%) + CHR$(trc%) FOR i% = (topRow% + 1) TO (lowRow% - 1) LOCATE i%, topCol% PRINT CHR$(side%) LOCATE i%, lowCol% PRINT CHR$(side%) NEXT LOCATE lowRow%, topCol% PRINT CHR$(llc%) + STRING$(lowCol% - topCol% - 1, bar%) + CHR$(lrc%) COLOR 7, 0 END SUB SUB ShadowBox (topRow%, topCol%, lowRow%, lowCol%, chr%, frg%, bkg%) COLOR bkg%, 0 FOR i% = topRow% TO lowRow% LOCATE i% + 1, topCol% + 2 PRINT STRING$(lowCol% - topCol% + 1, chr%) NEXT i% COLOR frg%, bkg% FOR i% = topRow% TO lowRow% LOCATE i%, topCol% PRINT STRING$(lowCol% - topCol% + 1, 219) NEXT i% COLOR 7, 0 END SUB