home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / ham_bas / iu1.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-09-01  |  768 b   |  45 lines
  1. 5  KEY OFF
  2. 100  KEY OFF
  3. 110  SCREEN 1,0
  4. 120  COLOR 7,0:CLS
  5. 200  PLAY "T250O2 P4L4CC+L2DF.L4DFDL2DE.P4L4CC+L2DE.L4CEB-L1A.P4L4G+AL2O3DC.O2L4B-AO3DO2L2AG.P4L4CDFL2EL4DL2EGL1F.P4L2FL1GAA+O3CC."
  6. 500  SCREEN 1,0
  7. 510  COLOR 7,0:CLS
  8. 520  LINE (130,20)-(190,20)
  9. 530  LINE-(190,40)
  10. 540  LINE-(170,40)
  11. 550  LINE-(170,160)
  12. 560  LINE-(190,160)
  13. 570  LINE-(190,180)
  14. 580  LINE-(130,180)
  15. 590  LINE-(130,160)
  16. 600  LINE-(150,160)
  17. 610  LINE-(150,40)
  18. 620  LINE-(130,40)
  19. 630  LINE-(130,20)
  20. 640  LINE (80,50)-(80,70)
  21. 650  LINE-(100,70)
  22. 660  LINE-(100,130)
  23. 670  LINE-(120,150)
  24. 680  LINE-(150,150)
  25. 690  LINE-(150,130)
  26. 700  LINE-(120,130)
  27. 710  LINE-(120,70)
  28. 720  LINE-(140,70)
  29. 730  LINE-(140,50)
  30. 740  LINE-(80,50)
  31. 750  LINE (240,50)-(240,70)
  32. 760  LINE-(220,70)
  33. 770  LINE-(220,130)
  34. 780  LINE-(200,150)
  35. 790  LINE-(170,150)
  36. 800  LINE-(170,130)
  37. 810  LINE-(200,130)
  38. 820  LINE-(200,70)
  39. 830  LINE-(180,70)
  40. 840  LINE-(180,50)
  41. 850  LINE-(240,50)
  42. 860  PAINT (160,100),2,3
  43. 870  PAINT (110,100),2,3
  44. 880  PAINT (210,100),2,3
  45.