home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / PROGRAM / BASIC / POWBASIC / LIBRARY1 / EXAMP1.ZIP / UMEX235.BAS < prev    next >
BASIC Source File  |  1990-03-29  |  716b  |  28 lines
  1. 'User's Manual Example, Page 235.
  2.  
  3. DEFINT A-Z
  4. DEF SEG = &HB800
  5. FOR COUNT = 1 TO 500
  6.   ATTR   = INT( RND*255)
  7.   CHAR   = INT( RND*32 )
  8.   ROW    = INT( RND*25 )
  9.   COL    = INT( RND*80 )
  10.   OFFSET = (ROW * 160) + (COL * 2)
  11.   POKE OFFSET, CHAR
  12.   POKE OFFSET+1, ATTR
  13. NEXT COUNT
  14. LETTER$   = INPUT$(1)
  15. FOR ROUND1 = 1 TO 50
  16.   BACKGRD = INT( RND*8)
  17.   NEWCHAR = INT( RND*31 )
  18.   ROW     = INT( RND*15 )
  19.   COL     = INT( RND*70 )
  20.   FOR ROWCOUNT = ROW TO ROW + 10
  21.     FOR COLCOUNT = COL TO COL + 10
  22.       OFFSET = ROWCOUNT * 160 + COLCOUNT * 2
  23.       ATTR   = PEEK(OFFSET + 1) MOD 16 + BACKGRD * 16
  24.       POKE (OFFSET + 1), ATTR
  25.       POKE (OFFSET), NEWCHAR
  26.     NEXT COLCOUNT
  27.   NEXT ROWCOUNT
  28. NEXT ROUND1