home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / jots.zip / BOXES.BAS next >
BASIC Source File  |  1989-03-14  |  2KB  |  59 lines
  1. ' BOXES.BAS -- This module creates and highlights the boxes on the screen
  2. ' and keeps track of the box coordinates
  3. ' $INCLUDE: 'J.INC'
  4.  
  5. BoxDefs:    'Size/position for various boxes
  6.     DATA   4, 15,  1, 22   : 'Guess List Box
  7.     DATA  19, 32,  1,  5   : 'Guess Box
  8.     DATA  41, 57,  1,  5   : 'Known Box
  9.     DATA  65, 73,  1,  5   : 'Score Box
  10.     DATA  19, 73,  6, 10   : 'Excluded Letters Box
  11.     DATA  19, 73, 11, 15   : 'Used Letters Box
  12.     DATA  19, 73, 16, 22      : 'Note Box
  13.     DATA   1, 79, 23, 25   : 'Message Box
  14.     DATA  20, 60,  5, 20   : 'Main Menu Box 
  15.     DATA  15, 65,  7, 18   : 'Maintenance Menu Box
  16.     DATA  20, 60, 11, 13   : 'Another Game Box
  17.  
  18. DIM SHARED Box(1 TO MaxBox) AS BoxType
  19.  
  20. SUB InitBoxes
  21.     RESTORE BoxDefs
  22.     FOR Lp = 1 TO MaxBox
  23.         READ Box(Lp).LftCol, Box(Lp).RtCol
  24.         READ Box(Lp).TopRow, Box(Lp).BotRow
  25.     NEXT Lp
  26. END SUB
  27.  
  28. SUB MakeBox (BoxNum, Clr)
  29.     COLOR Clr, Background, Background
  30.     LftCol = Box(BoxNum).LftCol
  31.     RtCol = Box(BoxNum).RtCol
  32.     TopRow = Box(BoxNum).TopRow
  33.     BotRow = Box(BoxNum).BotRow
  34.     Htemp$ = STRING$(RtCol - LftCol - 1, 205)
  35.     LOCATE TopRow, LftCol, 0
  36.     PRINT CHR$(201); Htemp$; CHR$(187);
  37.     FOR Lp = TopRow + 1 TO BotRow - 1
  38.         LOCATE Lp, LftCol, 0
  39.         PRINT CHR$(186);
  40.         LOCATE Lp, RtCol, 0
  41.         PRINT CHR$(186);
  42.     NEXT Lp
  43.     LOCATE BotRow, LftCol, 0
  44.     PRINT CHR$(200); Htemp$; CHR$(188);
  45. END SUB
  46.  
  47. SUB HighlightBox (BoxNum%)
  48.     CALL MakeBox(BoxNum%, HighLight)
  49. END SUB
  50.  
  51. SUB NormalBox (BoxNum%)
  52.     CALL MakeBox(BoxNum%, Normal)
  53. END SUB
  54.  
  55. SUB BoxCoords (BoxNum%, CallBox AS BoxType)
  56.     CallBox = Box(BoxNum)
  57. END SUB
  58.  
  59.