home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / hor.bas < prev    next >
BASIC Source File  |  1988-05-22  |  202b  |  11 lines
  1. 1     scnclr
  2. 2     pena 1
  3. 3     paint (10,10)
  4. 15    locate (x1,y1)
  5. 20    x1 = 0 : y1 = 20 : x2 = 320
  6. 100   for z = 1 to 21
  7. 105   pena 11
  8. 110   draw (x1,y1 to x2,y1)
  9. 120   y1=y1+((y1*.1)^1.3)
  10. 200   next
  11.