home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 05 / 0012 / sesame.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1991-12-02  |  3.1 KB  |  176 lines
  1. 10  KEY OFF:CLS
  2. 20  PRINT"LINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINE"
  3. 30  PRINT"LINEVARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLORLINE"
  4. 40  PRINT"LINECALL                                   CALLLINE"
  5. 50  PRINT"LINECALL            5008-A.BAS             CALLLINE"
  6. 60  PRINT"LINECALL              SESAME               CALLLINE"
  7. 70  PRINT"LINECALL                                   CALLLINE"
  8. 80  PRINT"LINECALL                                   CALLLINE"
  9. 90  PRINT"LINECALL BROUGHT TO YOU BY THE MEMBERS OF  CALLLINE"
  10. 100  PRINT"LINECALL      POINTPOINTPOINTPOINTPOINT POINTPOINTPOINTPOINTPOINT POINTPOINTPOINTPOINTPOINT POINTPOINTPOINTPOINTPOINT      CALLLINE"
  11. 110  PRINT"LINECALL        CSRLIN   CSRLIN   CSRLIN CSRLIN     CSRLIN   CSRLIN      CALLLINE"
  12. 120  PRINT"LINECALL        CSRLIN   CSRLINPOINTPOINTPOINTCSRLIN CSRLIN     CSRLIN   CSRLIN      CALLLINE"
  13. 130  PRINT"LINECALL        CSRLIN   CSRLIN     CSRLIN     CSRLIN   CSRLIN      CALLLINE"
  14. 140  PRINT"LINECALL      POINTPOINTCSRLINPOINTPOINT CSRLIN     CSRLINPOINTPOINTPOINTPOINT CSRLINPOINTPOINTPOINTCSRLIN      CALLLINE"
  15. 150  PRINT"LINECALL                                   CALLLINE"
  16. 160  PRINT"LINECALL      International PC Owners      CALLLINE"
  17. 170  PRINT"LINECALL                                   CALLLINE"
  18. 180  PRINT"LINECALLP.O. Box 10426, Pittsburgh PA 15234CALLLINE"
  19. 190  PRINT"LINECALL                                   CALLLINE"
  20. 200  PRINT"LINECLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'LINE"
  21. 210  PRINT"LINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINE"
  22. 220  PRINT
  23. 230  PRINT "       PRESS ANY KEY TO CONTINUE
  24. 240  A$=INKEY$: IF A$="" THEN 240
  25. 250  CLS
  26. 1000  KEY OFF
  27. 1010  CLS:WIDTH 40:LOCATE 10,19:PRINT "The":LOCATE 12,14:PRINT "Sesame Street":LOCATE 14,18:PRINT "Song"
  28. 1020  LOCATE 25,11,0:PRINT "Hit any key to begin"
  29. 1030  P$=INKEY$:IF P$="" GOTO 1030
  30. 1040  A$="c4"
  31. 1050  B$="C8"
  32. 1060  CLS:PRINT "Sun";
  33. 1070  PLAY "P4O4XA$+B$;"
  34. 1080  PRINT "ny ";
  35. 1090  PLAY "O3a4"
  36. 1100  PRINT "day ";
  37. 1110  PLAY "F2"
  38. 1120  PRINT "sweep";
  39. 1130  PLAY "L8F"
  40. 1140  PRINT "in' ";
  41. 1150  PLAY "G16"
  42. 1160  PRINT "the ";
  43. 1170  PLAY "A4P4"
  44. 1180  PRINT "clouds ";
  45. 1190  PLAY "O4XA$+B$;"
  46. 1200  PRINT "a";
  47. 1210  PLAY "O3A4"
  48. 1220  PRINT "way"
  49. 1230  PLAY "F1"
  50. 1240  PRINT:PRINT:PRINT
  51. 1250  PRINT "on ";
  52. 1260  PLAY "P4O4XA$+B$;"
  53. 1270  PRINT "my ";
  54. 1280  PLAY "O3a4"
  55. 1290  PRINT "way ";
  56. 1300  PLAY "F4"
  57. 1310  PRINT "to ";
  58. 1320  PLAY "f8"
  59. 1330  PRINT "where ";
  60. 1340  PLAY "g4"
  61. 1350  PRINT "the ";
  62. 1360  PLAY "a4"
  63. 1370  PRINT "air ";
  64. 1380  PLAY "b4"
  65. 1390  PRINT "is ";
  66. 1400  PLAY "O4xa$+b$;"
  67. 1410  PRINT "sweet."
  68. 1420  C$="d2"
  69. 1430  D$="d2"
  70. 1440  PLAY "XC$+D$;"
  71. 1450  PRINT:PRINT:PRINT
  72. 1460  PRINT "Can ";
  73. 1470  PLAY "c8"
  74. 1480  PRINT "you ";
  75. 1490  PLAY "d16"
  76. 1500  PRINT "tell ";
  77. 1510  PLAY "l4e-"
  78. 1520  PRINT "me ";
  79. 1530  PLAY "d4"
  80. 1540  PRINT "how ";
  81. 1550  PLAY "c4"
  82. 1560  PRINT "to ";
  83. 1570  PLAY "o3a8"
  84. 1580  PRINT "get,"
  85. 1590  PLAY "g16p4"
  86. 1600  PRINT:PRINT:PRINT
  87. 1610  PRINT "how ";
  88. 1620  PLAY "g8"
  89. 1630  PRINT "to ";
  90. 1640  PLAY "a16"
  91. 1650  PRINT "get ";
  92. 1660  PLAY "O3b4"
  93. 1670  PRINT "to ";
  94. 1680  PLAY "a4"
  95. 1690  PRINT "Ses";
  96. 1700  PLAY "g8"
  97. 1710  PRINT "a";
  98. 1720  PLAY "c8"
  99. 1730  PRINT "me ";
  100. 1740  PLAY "c8"
  101. 1750  PRINT "Street? "
  102. 1760  PLAY "c1"
  103. 1770  CLS
  104. 1780  CLS:PRINT "Come ";
  105. 1790  PLAY "P4O4XA$+B$;"
  106. 1800  PRINT "and ";
  107. 1810  PLAY "O3a4"
  108. 1820  PRINT "play! ";
  109. 1830  PLAY "F2"
  110. 1840  PRINT "Ev' ";
  111. 1850  PLAY "L8F"
  112. 1860  PRINT "ry ";
  113. 1870  PLAY "G16"
  114. 1880  PRINT "thing's ";
  115. 1890  PLAY "A4P4"
  116. 1900  PRINT "A-";
  117. 1910  PLAY "O4XA$+B$;"
  118. 1920  PRINT "O-";
  119. 1930  PLAY "O3A4"
  120. 1940  PRINT "kay."
  121. 1950  PLAY "F1"
  122. 1960  PRINT:PRINT:PRINT
  123. 1970  PRINT "Friend";
  124. 1980  PLAY "P4O4XA$+B$;"
  125. 1990  PRINT "ly ";
  126. 2000  PLAY "O3a4"
  127. 2010  PRINT "neigh";
  128. 2020  PLAY "F4"
  129. 2030  PRINT "bors ";
  130. 2040  PLAY "f8"
  131. 2050  PRINT "there, ";
  132. 2060  PLAY "g4"
  133. 2070  PRINT "that's ";
  134. 2080  PLAY "a4"
  135. 2090  PRINT "where ";
  136. 2100  PLAY "b4"
  137. 2110  PRINT "we ";
  138. 2120  PLAY "O4xa$+b$;"
  139. 2130  PRINT "meet."
  140. 2140  C$="d2"
  141. 2150  D$="d2"
  142. 2160  PLAY "XC$+D$;"
  143. 2170  PRINT:PRINT:PRINT
  144. 2180  PRINT "Can ";
  145. 2190  PLAY "c8"
  146. 2200  PRINT "you ";
  147. 2210  PLAY "d16"
  148. 2220  PRINT "tell ";
  149. 2230  PLAY "l4e-"
  150. 2240  PRINT "me ";
  151. 2250  PLAY "d4"
  152. 2260  PRINT "how ";
  153. 2270  PLAY "c4"
  154. 2280  PRINT "to ";
  155. 2290  PLAY "o3a8"
  156. 2300  PRINT "get,"
  157. 2310  PLAY "g16p4"
  158. 2320  PRINT:PRINT:PRINT
  159. 2330  PRINT "how ";
  160. 2340  PLAY "g8"
  161. 2350  PRINT "to ";
  162. 2360  PLAY "a16"
  163. 2370  PRINT "get ";
  164. 2380  PLAY "O3b4"
  165. 2390  PRINT "to ";
  166. 2400  PLAY "a4"
  167. 2410  PRINT "Ses";
  168. 2420  PLAY "g8"
  169. 2430  PRINT "a";
  170. 2440  PLAY "c8"
  171. 2450  PRINT "me ";
  172. 2460  PLAY "c8"
  173. 2470  PRINT "Street? "
  174. 2480  PLAY "c1"
  175. 2490  CLS
  176.