home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / spiele / axle.bas < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  7.1 KB  |  73 lines
  1. 10 REM:[:=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=:]
  2. 20 REM:[: (c)Copyright 1985 Chaotic Computing :]
  3. 30 REM:[:=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=:]
  4. 40 REM:This  program is  free  to the  public as
  5. 50 REM:it is not altered in any way.
  6. 60 REM:-----------------------------------------
  7. 70 REM: Call these boards...
  8. 80 REM:     The Seadog.............(415)657-4076
  9. 90 REM:     The Shrine of Chaos....(415)659-1264
  10. 100 WIDTH 80:CLS:KEY OFF:COLOR 9,0,0
  11. 110 PRINT"     ╒═════════════════════════════════════════════════════════════════╕
  12. 120 PRINT"     │                                                                 │
  13. 130 PRINT"     │       ";:COLOR 12:PRINT" ▄████▄               ██                   ██████████    ";:COLOR 9:PRINT" │
  14. 140 PRINT"     │     ";:COLOR 12:PRINT" ▄██▀  ▀██▄             ██                   ██             ";:COLOR 9:PRINT"│
  15. 150 PRINT"     │     ";:COLOR 12:PRINT" ██      ██ ▄▄      ▄▄  ██   ▄▄▄▄▄▄          ██             ";:COLOR 9:PRINT"│
  16. 160 PRINT"     │     ";:COLOR 12:PRINT" ██      ██  ▀█▄  ▄█▀   ██ ▄██▀▀▀▀██▄        ███████        ";:COLOR 9:PRINT"│
  17. 170 PRINT"     │     ";:COLOR 12:PRINT" ██████████    ▀██▀     ██ ██▄▄▄▄▄▄██        ██             ";:COLOR 9:PRINT"│
  18. 180 PRINT"     │     ";:COLOR 12:PRINT" ██      ██   ▄█▀▀█▄    ██ ██▄               ██             ";:COLOR 9:PRINT"│
  19. 190 PRINT"     │     ";:COLOR 12:PRINT" ██      ██ ▄█▀    ▀█▄  ██  ▀██████▀         ██             ";:COLOR 9:PRINT"│
  20. 200 PRINT"     │                                                                 ";:COLOR 9:PRINT"│
  21. 210 PRINT"     │               ";:COLOR 14:PRINT" The Theme from Beverly Hills Cop                 ";:COLOR 9:PRINT"│
  22. 220 PRINT"     │         ";:COLOR 14:PRINT"              by...The $muggler                 ";:COLOR 9:PRINT"        │
  23. 230 PRINT"     ╘═════════════════════════════════════════════════════════════════╛
  24. 240 PRINT
  25. 250 COLOR 15:PRINT "┌────────────────────────────────────────────────────────────────────────────┐":COLOR 15,0
  26. 260 PRINT "│ ░░░░░░░";:COLOR 11:PRINT "┌1─2─3┐ ";:COLOR 15:PRINT "┌";:COLOR 28:PRINT "°";:COLOR 15:PRINT "┐ ";:COLOR 15,1:PRINT " ∞ ∞ ∞ ∞ ";:COLOR 6,0:PRINT "   │";:COLOR 14:PRINT " ≡=≡= ";:COLOR 15,1:PRINT " ∞ ∞ ∞ ";:COLOR 7,0:PRINT " █ ";
  27. 270 COLOR 6:PRINT "│ ";:COLOR 12:PRINT"▄ ▄ ";:COLOR 6:PRINT"│";:COLOR 15,7:PRINT"┌──┐";:COLOR 3,0:PRINT"■";:COLOR 28:PRINT"∙";:COLOR 3:PRINT"■";:COLOR 15:PRINT"┌┐┌┐░░░░░░░░ │"
  28. 280 PRINT "│ ░░░░░░░";:COLOR 11:PRINT"│";:COLOR 4,7:PRINT"■ ■ ■";:COLOR 11,0:PRINT"│";:COLOR 14:PRINT" ▀ ▀ ";:COLOR 3:PRINT"■■■■■■■■■";:COLOR 12:PRINT" ▄ ";:COLOR 6:PRINT"│";:COLOR 10:PRINT" ■■■■■■■■■■■■";:COLOR 11:PRINT" ▄ ";:COLOR 6:PRINT"│";
  29. 290 COLOR 12:PRINT" ▀ ▀ ";:COLOR 6:PRINT"│";:COLOR 15,7:PRINT"│";:COLOR 0,7:PRINT"03";:COLOR 15,7:PRINT"│";:COLOR 3,0:PRINT"■■■";:COLOR 14:PRINT"▐▌▐▌";:COLOR 15:PRINT"░░░░░░░░ │"
  30. 300 PRINT "│ ░░░░░░░";:COLOR 11:PRINT"└═─═─═┘";:COLOR 7:PRINT"  █ ";:COLOR 3:PRINT" ■■■■■■■■■";:COLOR 12:PRINT" ▀ ";:COLOR 6:PRINT"│";:COLOR 10:PRINT" ■■■■■■■■■■■■ ";:COLOR 11:PRINT"▀ ";:COLOR 6:PRINT"│";:COLOR 15:PRINT" √ Γ ";:COLOR 6:PRINT"│";
  31. 310 COLOR 15,7:PRINT"└──┘";:COLOR 12,0:PRINT" █ ";:COLOR 15:PRINT"└┘└┘░░░░░░░░ │
  32. 320 PRINT "│ ┌────────────────────────────────────────────────────────────────────────┐ │
  33. 330 PRINT "│ │█▌ █ ▐█▐█ ▐▌ █ ▐█▐█ ▐▌ █▌█▌ █ ▐▌ █▌█▌ █ ▐█▐█ ▐▌ █ ▐█▐█ ▐▌ █▌█▌ █ ▐▌ █▌██│ │
  34. 340 PRINT "│ │█▌ █ ▐█▐█ ▐▌ █ ▐█▐█ ▐▌ █▌█▌ █ ▐▌ █▌█▌ █ ▐█▐█ ▐▌ █ ▐█▐█ ▐▌ █▌█▌ █ ▐▌ █▌██│";:COLOR 14:PRINT"█";:COLOR 15:PRINT"│
  35. 350 PRINT "│ │██▐█▌██▐█▌██▐█▌██▐█▌██▐█▌██▐█▌██▐█▌██▐█▌██▐█▌██▐█▌██▐█▌██▐█▌██▐█▌██▐█▌██│";:COLOR 12:PRINT"∙";:COLOR 15:PRINT"│
  36. 360 PRINT "└─┴────────────────────────────────────────────────────────────────────────┴─┘
  37. 370 PLAY "t125mbmso3 f g# l8 f l16 f l8 a# l8 f d# l4 f l4 o4 c l8 o3 f l16 f l8 o4 c# c o3 g# f o4 c l8 f o3 l16 f l8 d# l16 d# l8 c l8 g l4 f p2"
  38. 380 PLAY "t125mso3 f g# l8 f l16 f l8 a# l8 f d# l4 f l4 o4 c l8 o3 f l16 f l8 o4 c# c o3 g# f o4 c l8 f o3 l16 f l8 d# l16 d# l8 c l8 g l4 f p2"
  39. 390 PLAY "o1l4 f f l8 d# l16 d# l8 d# l8 c d# l4 f f p8 l16 f l8 f c f l4 c# c# l8 d# l16 d# l8 d# d# d# f p2 l8 f c o0 l8 a# g# l4 f
  40. 400 PLAY "o1l4 f l8 d# l16 d# l8 d# l8 c d# l4 f f p8 l16 f l8 f c f l4 c# c# l8 d# l16 d# l8 d# d# d# f p2
  41. 410 PLAY "t125mso3l4 f g# l8 f l16 f l8 a# l8 f d# l4 f l4 o4 c l8 o3 f l16 f l8 o4 c# c o3 g# f o4 c l8 f o3 l16 f l8 d# l16 d# l8 c l8 g l4 f p2"
  42. 420 PLAY "t125mso3l4 f g# l8 f l16 f l8 a# l8 f d# l4 f l4 o4 c l8 o3 f l16 f l8 o4 c# c o3 g# f o4 c l8 f o3 l16 f l8 d# l16 d# l8 c l8 g l4 f p2"
  43. 430 PLAY"t125mso4l8 c c c l16 d# l8 d# l8 d l16 d d p4
  44. 440 PLAY"t125mso4l8 c c c l16 d# l8 d# l8 d l16 c c p4
  45. 450 PLAY"t125mso3l8 g# g# g# l16 a# l8 a# a# l16 a# l8 a# p4 o4 c c c l16 o3 a# o4 l8 c c p4
  46. 460 PLAY"t125mso4l8 c c c l16 d# l8 d# l8 d l16 d d p4
  47. 470 PLAY"t125mso4l8 c c c l16 d# l8 d# l8 d l16 c c p4
  48. 480 PLAY"t125mso3l8 g# g# g# l16 a# l8 a# a# l16 a# l8 a# p4 o4 c c c l16 o3 a# o4 l8 c c p4
  49. 490 PLAY"t125mso6l48cbagfedo5cbagfedo4cbagfedo3cbagfedo2cbagfedp4
  50. 500 PLAY "o1l4 f f l8 d# l16 d# l8 d# l8 c d# l4 f f p8 l16 f l8 f c f l4 c# c# l8 d# l16 d# l8 d# d# d# f p4 l8 f c o0 l8 a# g#
  51. 510 PLAY"mlo4l3 f l2 d# l3 c o3 l4 a# l4 g# l1 f l8 o4 f p2"
  52. 520 PLAY "t125mso3l4 f g# l8 f l16 f l8 a# l8 f d# l4 f l4 o4 c l8 o3 f l16 f l8 o4 c# c o3 g# f o4 c l8 f o3 l16 f l8 d# l16 d# l8 c l8 g l4 f p2"
  53. 530 PLAY "t125mso3 f g# l8 f l16 f l8 a# l8 f d# l4 f l4 o4 c l8 o3 f l16 f l8 o4 c# c o3 g# f o4 c l8 f o3 l16 f l8 d# l16 d# l8 c l8 g l4 f p2"
  54. 540 PLAY" t125mso3l4 g# l8 d# l4 g# l8 d# g# d# l4 g# l8 d# l4 g# l8 d# g# d# l4 g# l8 d# l4 g# l8 d# g# d# l4 g# l8 d# l4 g#"
  55. 550 PLAY "t125mso3l8 d# g# d# l4 g# l8 g# l4 g# l8 d# g# d# l4 g# l8 g# l4 g# l8 d# g# d# l4 g# l8 g# l4 g# l8 d# g# d# l4 g# l8 g# l4 g# l8 g# g# g#
  56. 560 PLAY "t125mso3l16 d# c o2 a# l8 g# l8 a# o3 l16 c l8 d# l8 c# l4 o2 a#
  57. 570 PLAY "t125mso3l16 d# c o2 a# l8 g# l8 a# o3 l16 c l8 d# l8 c# l4 o2 a#
  58. 580 PLAY "t125mso3l16 d# c o2 a# l8 g# l8 a# o3 l16 c l8 d# l8 c# l4 o2 a#
  59. 590 PLAY "t125mso3l16 d# c o2 a# l8 g# l8 a# o3 l16 c l8 d# l8 c# l4 o2 a#
  60. 600 PLAY "t125mso3l16 d# c o2 a# l8 g# l8 a# o3 l16 c l8 d# l8 c# l4 o2 a#
  61. 610 PLAY "t125mso3l16 d# c o2 a# l8 g# l8 a# o3 l16 c l8 d# l8 c# l4 o2 a#
  62. 620 PLAY "t125mso3l16 d# c o2 a# l8 g# l8 a# o3 l16 c l8 d# l8 c# l4 o2 a#
  63. 630 PLAY "t125mso3l16 d# c o2 a# l8 g# l8 a# o3 l16 c l8 d# c d# c p8
  64. 640 PLAY"t125mso4l8 c c c l16 d# l8 d# l8 d l16 d d p4
  65. 650 PLAY"t125mso4l8 c c c l16 d# l8 d# l8 d l16 c c p4
  66. 660 PLAY"t125mso3l8 g# g# g# l16 a# l8 a# a# l16 a# l8 a# p4 o4 c c c l16 o3 a# o4 l8 c c p4
  67. 670 PLAY"t125mso4l8 c c c l16 d# l8 d# l8 d l16 d d p4
  68. 680 PLAY"t125mso4l8 c c c l16 d# l8 d# l8 d l16 c c p4
  69. 690 PLAY"t125mso3l8 g# g# g# l16 a# l8 a# a# l16 a# l8 a# p4 o4 c c c l16 o3 a# o4 l8 c c p4
  70. 700 PLAY"t125mso3l8 g# g# g# l16 a# l8 a# a# l16 a# l8 a# p4 o4 c c c l16 o3 a# o4 l8 c c p4
  71. 710 PLAY "t125mbmso3l4 f g# l8 f l16 f l8 a# l8 f d# l4 f l4 o4 c l8 o3 f l16 f l8 o4 c# c o3 g# f o4 c l8 f o3 l16 f l8 d# l16 d# l8 c l8 g l4 f p2"
  72. 720 PLAY "t125mso3l4 f g# l8 f l16 f l8 a# l8 f d# l4 f l4 o4 c l8 o3 f l16 f l8 o4 c# c o3 g# f o4 c l8 f o3 l16 f l8 d# l16 d# l8 c l8 g l4 f p2"
  73.