home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 July / Chip_2000-07_cd.bin / sharewar / basturbo / demo.bas < prev    next >
BASIC Source File  |  2000-04-24  |  184b  |  15 lines
  1. %USES pmouse
  2. SCREEN 9
  3. %Show
  4. ax = x
  5. ay = y
  6. DO
  7.   IF LeftButton THEN
  8.     LINE (ax, ay)-(x, y), INT(RND(1) * 256)
  9.     ax = x
  10.     ay = y
  11.   END IF
  12. LOOP UNTIL keypressed
  13. %Hide
  14.  
  15.