home *** CD-ROM | disk | FTP | other *** search
/ Level 1998 August / Level_1998-08_cd.bin / Readers / Engine / AUTA.ZIP / AUTAF11.BAS < prev   
Encoding:
BASIC Source File  |  1997-10-18  |  7.0 KB  |  192 lines
  1. 0 CLS
  2. COLOR 15, 9
  3. LOCATE 1, 79: PRINT "                                                                                "
  4. LOCATE 2, 79: PRINT "                                                                                "
  5. LOCATE 3, 79: PRINT "                                                                                "
  6. LOCATE 4, 79: PRINT "                                                                                "
  7. LOCATE 5, 79: PRINT "                                                                                "
  8. LOCATE 6, 79: PRINT "                                                                                "
  9. LOCATE 7, 79: PRINT "                                                                                "
  10. LOCATE 8, 79: PRINT "                                                                                "
  11. LOCATE 9, 79: PRINT "                                                                                "
  12. LOCATE 10, 79: PRINT "                                                                                "
  13. LOCATE 11, 79: PRINT "                                                                                "
  14. LOCATE 12, 79: PRINT "                                                                                "
  15. LOCATE 13, 79: PRINT "                                                                                "
  16. LOCATE 14, 79: PRINT "                                                                                "
  17. LOCATE 15, 79: PRINT "                                                                                "
  18. LOCATE 16, 79: PRINT "                                                                                "
  19. LOCATE 17, 79: PRINT "                                                                                "
  20. LOCATE 18, 79: PRINT "                                                                                "
  21. LOCATE 19, 79: PRINT "                                                                                "
  22. LOCATE 20, 79: PRINT "                                                                                "
  23. LOCATE 21, 79: PRINT "                                                                                "
  24. COLOR 1, 4
  25.  LOCATE 2, 10: PRINT "┌──┐"
  26.   LOCATE 3, 9: PRINT "┌┘┌┐└┐"
  27.   LOCATE 4, 8: PRINT "┌┘┌┘└┐└┐"
  28.   LOCATE 5, 7: PRINT "┌┘┌┘  └┐└┐"
  29.   LOCATE 6, 6: PRINT "┌┘┌┘    └┐└┐"
  30.   LOCATE 7, 5: PRINT "┌┘ └──────┘ └┐"
  31.   LOCATE 8, 4: PRINT "┌┘ ┌────────┐ └┐"
  32.   LOCATE 9, 3: PRINT "┌┘ ┌┘        └┐ └┐"
  33.  LOCATE 10, 3: PRINT "└──┘          └──┘"
  34.      COLOR 15, 9
  35.      LOCATE 10, 7: PRINT "          "
  36.      LOCATE 9, 8: PRINT "        "
  37.      LOCATE 6, 10: PRINT "    "
  38.      LOCATE 5, 11: PRINT "  "
  39. COLOR 1, 4
  40.  LOCATE 2, 35: PRINT "┌────────────┐"
  41.  LOCATE 3, 35: PRINT "└────┐ ┌─────┘"
  42.  LOCATE 4, 40: PRINT "│ │"
  43.  LOCATE 5, 40: PRINT "│ │"
  44.  LOCATE 6, 40: PRINT "│ │"
  45.  LOCATE 7, 40: PRINT "│ │"
  46.  LOCATE 8, 40: PRINT "│ │"
  47.  LOCATE 9, 40: PRINT "│ │"
  48. LOCATE 10, 40: PRINT "└─┘"
  49. COLOR 1, 4
  50.  LOCATE 2, 22: PRINT "┌─┐     ┌─┐"
  51.  LOCATE 3, 22: PRINT "│ │     │ │"
  52.  LOCATE 4, 22: PRINT "│ │     │ │"
  53.  LOCATE 5, 22: PRINT "│ │     │ │"
  54.  LOCATE 6, 22: PRINT "│ │     │ │"
  55.  LOCATE 7, 22: PRINT "│ │     │ │"
  56.  LOCATE 8, 22: PRINT "│ └┐   ┌┘ │"
  57.  LOCATE 9, 22: PRINT "└┐ └───┘ ┌┘"
  58. LOCATE 10, 23: PRINT "└───────┘"
  59. COLOR 15, 9
  60.      LOCATE 2, 25: PRINT "     "
  61.      LOCATE 3, 25: PRINT "     "
  62.      LOCATE 4, 25: PRINT "     "
  63.      LOCATE 5, 25: PRINT "     "
  64.      LOCATE 6, 25: PRINT "     "
  65.      LOCATE 7, 25: PRINT "     "
  66.      LOCATE 8, 26: PRINT "   "
  67. COLOR 1, 4
  68.  LOCATE 2, 58: PRINT "┌──┐"
  69.  LOCATE 3, 57: PRINT "┌┘┌┐└┐"
  70.  LOCATE 4, 56: PRINT "┌┘┌┘└┐└┐"
  71.  LOCATE 5, 55: PRINT "┌┘┌┘  └┐└┐"
  72.  LOCATE 6, 54: PRINT "┌┘┌┘    └┐└┐"
  73.  LOCATE 7, 53: PRINT "┌┘ └──────┘ └┐"
  74.  LOCATE 8, 52: PRINT "┌┘ ┌────────┐ └┐"
  75.  LOCATE 9, 51: PRINT "┌┘ ┌┘        └┐ └┐"
  76. LOCATE 10, 50: PRINT " └──┘          └──┘"
  77. COLOR 15, 9
  78.  
  79. COLOR 4, 6
  80.  LOCATE 1, 1: PRINT "┌──────────────────────────────────────────────────────────────────────────────┐"
  81.  LOCATE 2, 1: PRINT "│"
  82.  LOCATE 3, 1: PRINT "│"
  83.  LOCATE 4, 1: PRINT "│"
  84.  LOCATE 5, 1: PRINT "│"
  85.  LOCATE 6, 1: PRINT "│"
  86.  LOCATE 7, 1: PRINT "│"
  87.  LOCATE 8, 1: PRINT "│"
  88.  LOCATE 9, 1: PRINT "│"
  89. LOCATE 10, 1: PRINT "│"
  90. LOCATE 11, 1: PRINT "│"
  91. LOCATE 12, 1: PRINT "│"
  92. LOCATE 13, 1: PRINT "│"
  93. LOCATE 14, 1: PRINT "│"
  94. LOCATE 15, 1: PRINT "│"
  95. LOCATE 16, 1: PRINT "│"
  96. LOCATE 17, 1: PRINT "│"
  97. LOCATE 18, 1: PRINT "│"
  98. LOCATE 19, 1: PRINT "│"
  99. LOCATE 20, 1: PRINT "│"
  100. LOCATE 21, 1: PRINT "│"
  101. LOCATE 22, 1: PRINT "└──────────────────────────────────────────────────────────────────────────────┘"
  102. COLOR 4, 6
  103.  LOCATE 2, 80: PRINT "│"
  104.  LOCATE 3, 80: PRINT "│"
  105.  LOCATE 4, 80: PRINT "│"
  106.  LOCATE 5, 80: PRINT "│"
  107.  LOCATE 6, 80: PRINT "│"
  108.  LOCATE 7, 80: PRINT "│"
  109.  LOCATE 8, 80: PRINT "│"
  110.  LOCATE 9, 80: PRINT "│"
  111. LOCATE 10, 80: PRINT "│"
  112. LOCATE 11, 80: PRINT "│"
  113. LOCATE 12, 80: PRINT "│"
  114. LOCATE 13, 80: PRINT "│"
  115. LOCATE 14, 80: PRINT "│"
  116. LOCATE 15, 80: PRINT "│"
  117. LOCATE 16, 80: PRINT "│"
  118. LOCATE 17, 80: PRINT "│"
  119. LOCATE 18, 80: PRINT "│"
  120. LOCATE 19, 80: PRINT "│"
  121. LOCATE 20, 80: PRINT "│"
  122. LOCATE 21, 80: PRINT "│"
  123. INPUT A$
  124.  
  125. PRINT "                   ┌──────┐      ┌─┐      ┌─┐"
  126. PRINT "                   │ ┌────┘    ┌─┘ │    ┌─┘ │"
  127. PRINT "                   │ └──┐     ┌┘┌┐ │   ┌┘┌┐ │"
  128. PRINT "                   │ ┌──┘    ┌┘┌┘│ │  ┌┘┌┘│ │"
  129. PRINT "                   │ │       └─┘ │ │  └─┘ │ │"
  130. PRINT "                   │ │           │ │      │ │"
  131. PRINT "                   │ │           │ │      │ │"
  132. PRINT "                   │ │           │ │      │ │"
  133. PRINT "                   └─┘           └─┘      └─┘"
  134.  
  135. PRINT "                                                      ┌─┬─┬─┬─┬─┐"
  136. PRINT "                                                      ├─┼─┼─┼─┼─┤"
  137. PRINT "                                                      ├─┼─┼─┼─┼─┤"
  138. PRINT "                                                      ├─┼─┼─┼─┼─┤"
  139. PRINT "                                                      ├─┼─┼─┼─┼─┤"
  140. PRINT "                                                      └─┴─┴─┴─┴─┘"
  141. PRINT ""
  142. PRINT ""
  143.     scale$ = "CDEFGAB"
  144.     PLAY "L16"
  145.     FOR i% = 0 TO 6
  146.         PLAY "O" + STR$(i%)
  147.         PLAY "X" + VARPTR$(scale$)
  148.     NEXT i%
  149.  
  150.  
  151.     SCREEN 1
  152.     DIM Box%(1 TO 200)
  153.     x1% = 0: x2% = 10: y1% = 0: y2% = 10
  154.     LINE (x1%, y1%)-(x2%, y2%), 2, BF
  155.     GET (x1%, y1%)-(x2%, y2%), Box%
  156.     DO
  157.         PUT (x1%, y1%), Box%, XOR
  158.         x1% = RND * 300
  159.         y1% = RND * 180
  160.         PUT (x1%, y1%), Box%
  161.     LOOP WHILE INKEY$ = ""
  162. SCREEN MODE, 0
  163.  
  164.     CLS
  165.  
  166.     PLAY ON
  167.     Music$ = "MBo3L8ED+ED+Eo2Bo3DCL2o2A"
  168.     PLAY Music$
  169.  
  170.     Music$ = "Eo2BCL2o2A"
  171.     PLAY Music$
  172.  
  173.     Music$ = "Eo3DDL2o2A"
  174.     PLAY Music$
  175.  
  176.     Music$ = "P24P8L8DDDL2D"
  177.     PLAY Music$
  178.  
  179.     Music$ = "P34P8L8CCCL3F"
  180.     PLAY Music$
  181.  
  182.     Music$ = "MBT180o2P2P8L8GGGL2E-P24P8L8FFFL2D"
  183.     PLAY Music$
  184.  
  185.     scale$ = "CDEFGAB"
  186.     PLAY "L16"
  187.     FOR i% = 0 TO 6
  188.         PLAY "O" + STR$(i%)
  189.         PLAY "X" + VARPTR$(scale$)
  190.     NEXT i%
  191.  
  192.