home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / basicprg.lzh / FF_013 / LOZ.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-07-15  |  330 b   |  12 lines
  1. 10    scnclr
  2. 20    dim loz%(12)
  3. 30    for i=0 to 11: read loz%(i):next
  4. 40    restore
  5. 50    ask mouse x%, y%, b%
  6. 60    if b% = 0 goto 50
  7. 70    for i%=0 to 10 step 2: loz%(i%)=loz%(i%)+x%: next
  8. 80    for i%=1 to 11 step 2: loz%(i%)=loz%(i%)+y%: next
  9. 90    mat area 6,loz%()
  10. 100   goto 30
  11. 110   data 10,0,20,10,20,30,10,40,0,30,0,10
  12.