home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib29b.dsk / SCREEN.CREATOR.bas < prev    next >
BASIC Source File  |  2023-02-26  |  372b  |  12 lines
  1. 10  REM  **********************
  2. 20  REM  * SCREEN.CREATOR     *
  3. 30  REM  * CREATES SCREEN TO  *
  4. 40  REM  * USE AS DEMO WITH   *
  5. 50  REM  * SCREEN.CODER       *
  6. 60  REM  ***********************
  7. 70  HOME : GR 
  8. 80  FOR P = 1 TO 500
  9. 90 X =  INT( RND(1) *40):Y =  INT( RND(1) *40)
  10. 100  COLOR=  INT( RND(1) *16): PLOT X,Y
  11. 110  NEXT 
  12. 120  PRINT  CHR$(4)"BSAVE SCREEN,A1024,L1024"