home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / QB4GRAF.ZIP / PLANE.BAS < prev    next >
BASIC Source File  |  1989-05-16  |  3KB  |  59 lines
  1.  'line drawing of an airplane
  2.  '
  3.  '
  4.  ' ACTUALLY TAKEN FROM A BOOK CALLED
  5.  ' HIGH-SPEED ANIMATION AND SIMULATION FOR MICROCOMPUTERS
  6.  ' BY LEE ADAMS PRINTED BY TAB BOOKS
  7.  ' MAY BE OBTAIN BY WRITING THE FOLLOWING ADDRESS:
  8.  '
  9.  ' TAB BOOKS
  10.  ' P.O. BOX 40
  11.  ' BLUE RIDGE SUMMIT, PA. 17214
  12.  ' IF YOU USE BASIC YOU NEED THIS BOOK, THIS IS JUST ONE OF THE FEW BEGINNING
  13.  ' EXAMPLES, THE BOOK COST $20.00 AND IT REALLY IS WORTH IT !!
  14.  '
  15.  '
  16.  CLS : KEY OFF: CLEAR , , 32768!
  17.  SCREEN 9, 0, 0, 0: CLS
  18.  ON KEY(2) GOSUB L480: KEY(2) ON
  19.  '
  20.  '
  21.  'draw graphics
  22.  LOCATE 20, 3: PRINT "HIGH speed animation and simulation": LOCATE 21, 10: PRINT "for monster computers:"
  23.  LOCATE 22, 7: PRINT "DESIGN BY ROD LAIZURE"
  24.  CIRCLE (160, 122), 80, 1: CIRCLE (160, 122), 68, 1: PAINT (235, 120), 1, 1
  25.  CIRCLE (160, 122), 68, 9: CIRCLE (160, 122), 57, 9: PAINT (222, 120), 9, 9
  26.  PSET (42, 100): LINE -(50, 100): LINE -(154, 107): LINE -(224, 108): LINE -(222, 11): LINE -(178, 113)
  27.  PSET (42, 100): LINE -(46, 103): LINE -(50, 104): LINE -(163, 112): LINE -(159, 109): LINE -(50, 102): LINE -(53, 104)
  28.  PSET (180, 112): LINE -(176, 110): LINE -(223, 108)
  29.  PSET (171, 109): LINE -(185, 116): LINE -(223, 119)
  30.  PSET (204, 117): LINE -(222, 111): LINE -(243, 84): LINE -(256, 82): LINE -(245, 122): LINE -(242, 126): LINE -(237, 127): LINE -(153, 136): LINE -(136, 136): LINE -(130, 135): LINE -(125, 131): LINE -(122, 127): LINE -(121, 125): LINE -(121, 123)
  31.  PSET (121, 122): LINE -(122, 119): LINE -(127, 117): LINE -(137, 116): LINE -(141, 111): LINE -(142, 111): LINE -(140, 118): LINE -(138, 117): LINE -(137, 115)
  32.  PAINT (230, 120), 0, 15: PAINT (219, 109), 0, 15: PAINT (100, 105), 0, 15
  33.  PAINT (100, 104), 0, 15: PAINT (100, 106), 0, 15: PAINT (105, 105), 0, 15: PAINT (85, 103), 0, 15
  34.  PSET (249, 84): LINE -(235, 119): LINE -(245, 119)
  35.  PSET (237, 127): LINE -(245, 123): LINE -(202, 127): LINE -(191, 125): LINE -(191, 124): LINE -(218, 121): LINE -(233, 121): LINE -(199, 125): LINE -(204, 126)
  36.  PSET (245, 123): LINE -(268, 119): LINE -(254, 118): LINE -(246, 119):
  37.  PSET (97, 107): LINE -(139, 135): LINE -(142, 135): LINE -(102, 108)
  38.  PSET (142, 135): LINE -(134, 145): LINE -(133, 143): LINE -(139, 135)
  39.  PSET (153, 136): LINE -(164, 144): LINE -(156, 136)
  40.  PSET (131, 118): LINE -(129, 120): LINE -(129, 126)
  41.  PSET (130, 131): LINE -(132, 134)
  42.  PSET (145, 113): LINE -(144, 118): LINE -(153, 119): LINE -(154, 113): LINE -(145, 113)
  43.  PSET (156, 113): LINE -(155, 119): LINE -(166, 118): LINE -(167, 117): LINE -(166, 116): LINE -(162, 114): LINE -(156, 113)
  44.  CIRCLE (164, 144), 5, , , , 7 / 5
  45.  CIRCLE (130, 148), 6, , , , 7 / 5
  46.  
  47. L440:
  48.  GOTO L440
  49.  '------------
  50.  '
  51.  'SUBROUTINE ; RETURN BASIC COMMAND LEVEL
  52.  
  53. L480:
  54.  CLS : SCREEN 0, 0, 0, 0: CLS : CLEAR , , 16384!: END
  55.  '
  56.  '
  57.  END 'OF PROGRAM CODE
  58.  
  59.