home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / DNALIB59.ZIP / POKEAREA.BAS < prev    next >
BASIC Source File  |  1994-02-06  |  268b  |  14 lines
  1. SUB PokeArea(TopRow%,LeftColumn%,BottomRow%,RightColumn%,Attr%)PUBLIC
  2.  
  3. DEF SEG = &HB800
  4.  
  5. FOR Row% = TopRow% TO BottomRow%
  6.   FOR Col% = LeftColumn% TO RightColumn%
  7.     POKE ((Row% - 1) * 160) + (Col% * 2) - 1, Attr%
  8.   NEXT Col%
  9. NEXT Row%
  10.  
  11. DEF SEG
  12.  
  13. END SUB
  14.