home *** CD-ROM | disk | FTP | other *** search
/ Hráč 1997 February / Hrac_09_1997-02_cd.bin / HRACI / 02 / FACE / SOUNDING.BAS < prev   
BASIC Source File  |  1997-01-29  |  2KB  |  164 lines
  1. CLS
  2. PRINT "FACEMAN SOFTWARE (c)"
  3. PRINT "ALL RIGHTS RESERVED"
  4. FOR A = 1 TO 120000: NEXT A
  5. SCREEN 2
  6. SCREEN 1
  7. SCREEN 0
  8. PRINT
  9. PRINT
  10. PRINT
  11. PRINT
  12. PRINT
  13. PRINT
  14. PRINT " F A C E M A N    S O F T W A R E   "
  15. SLEEP
  16. SCREEN 1
  17. SCREEN 2
  18. SCREEN 1
  19. SCREEN 0
  20. CLS
  21. PRINT
  22. PRINT
  23. PRINT
  24. PRINT
  25. PRINT
  26. PRINT
  27. PRINT "            A N D "
  28. SLEEP
  29. SCREEN 0
  30. 1 CLS
  31. SCREEN 1
  32. SCREEN 2
  33. SCREEN 1
  34. SCREEN 0
  35. PRINT
  36. PRINT
  37. PRINT
  38. PRINT
  39. PRINT
  40. PRINT
  41. PRINT " S I L I C O N I C     G R A P H I C"
  42. SLEEP
  43. CLS
  44. SCREEN 2
  45. SCREEN 1
  46. SCREEN 0
  47. PRINT
  48. PRINT
  49. PRINT
  50. PRINT
  51. PRINT
  52. PRINT
  53. PRINT "            P R E S E N T S "
  54. SLEEP
  55. CLS
  56. SCREEN 2
  57. SCREEN 1
  58. SCREEN 0
  59. SCREEN 2
  60. SCREEN 1
  61. SCREEN 0
  62. GOTO 45
  63. 100 CLS
  64. 110 PRINT "      S T L A C       H O C I C O "
  65. 120 SLEEP
  66. 130 PRINT " PRODUCED BY THE FACE TEAM"
  67.  
  68. 140 PRINT " NEW PROGRAMS COMMING SOON !"
  69. 150 PRINT " (c) BIANCHI 1997 "
  70. 160 SLEEP
  71. 170 STOP
  72.  
  73.  
  74.  
  75. 45 PRINT
  76. PRINT
  77. PRINT
  78. PRINT
  79. PRINT
  80. PRINT
  81. COLOR 5
  82. SOUND 50, 5
  83. SOUND 100, 5
  84. SOUND 150, 5
  85. SOUND 200, 5
  86. SOUND 250, 5
  87. SOUND 300, 5
  88. SOUND 350, 5
  89. SOUND 300, 5
  90. SOUND 350, 5
  91. SOUND 300, 5
  92. SOUND 350, 5
  93. SOUND 300, 5
  94. SOUND 250, 5
  95. SOUND 200, 5
  96. SOUND 150, 5
  97. SOUND 100, 5
  98. PRINT "    S O U N D M A N    V O I C E "
  99.  
  100. FOR A = 1 TO 200000: NEXT A
  101. CLS
  102.  
  103. PRINT " ***********************************"
  104. PRINT "         NASTAVENIE KLAVES"
  105. PRINT " ***********************************"
  106. INPUT ; "KLAVESA PRE ODCHOD Z PROGRAMU"; Q$
  107. CLS
  108.  
  109.  
  110.  
  111. PRINT " ***********************************"
  112. PRINT "         NASTAVENIE KLAVES"
  113. PRINT " ***********************************"
  114. INPUT ; "C"; A$
  115. CLS
  116. PRINT " ***********************************"
  117. PRINT "         NASTAVENIE KLAVES"
  118. PRINT " ***********************************"
  119. INPUT ; "D"; S$
  120. 4 CLS
  121. PRINT " ***********************************"
  122. PRINT "         NASTAVENIE KLAVES"
  123. PRINT " ***********************************"
  124. INPUT ; "E"; Z$
  125. CLS
  126.  
  127. PRINT " ***********************************"
  128. PRINT "         NASTAVENIE KLAVES"
  129. PRINT " ***********************************"
  130. INPUT ; "F"; X$
  131. 1000 CLS
  132.  
  133. 7 IF INKEY$ = A$ THEN SOUND 50, 7
  134. IF INKEY$ = S$ THEN SOUND 100, 7
  135.  
  136. IF INKEY$ = X$ THEN SOUND 150, 7
  137. IF INKEY$ = Z$ THEN SOUND 200, 7
  138. IF INKEY$ = Q$ THEN GOTO 100
  139.  
  140. GOTO 1000
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.