home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / biga5.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  990 b   |  25 lines
  1. 500   scnclr
  2. 505   c = 1 :pena c
  3. 510   draw (100,150 to 100,145 to 105,145 to 150,50 to 145,50)
  4. 515   draw (145,50 to 145,45 to 175,45 to 175,50 to 170,50 to 185,145)
  5. 520   draw (185,145 to 190,145 to 190,150 to 170,150 to 170,145)
  6. 525   draw (170,145 to 175,145 to 168,100 to 136,100)
  7. 530   draw (136,100 to 115,145 to 120,145 to 120,150 to 100,150)
  8. 535   draw (100,150 to 95,148 to 95,143 to 100,143 to 145,50)
  9. 540   draw (145,50 to 140,48 to 140,43 to 170,43 to 175,45)
  10. 545   draw (95,143 to 100,145)
  11. 550   draw (145,45 to 140,43)
  12. 555   draw (115,143 to 120,145)
  13. 560   draw (100,143 to 105,145)
  14. 565   draw (170,150 to 165,148 to 165,143 to 170,143 to 163,100)
  15. 570   draw (170,143 to 175,145)
  16. 575   draw (166,90 to 162,60 to 155,60 to 141,90 to 166,90)
  17. 580   draw (185,143 to 190,145)
  18. 585   draw (161,88 to 157,60)
  19. 590   draw (161,88 to 142,88)
  20. 595   draw (161,88 to 166,90)
  21. 600   draw (165,143 to 170,145)
  22. 605   paint (10,10)
  23. 610   c = c + 1 : pena c : if c = 31 then end
  24. 615   goto 510
  25.