home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Emulatoren / C64-Files / ADEMO (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-05-15  |  6.7 KB  |  198 lines
  1. 1 ]SA
  2. 5 PRINT "[147]":PRINT:PRINT:PRINT "    S.A.M. DEMONSTRATION PROGRAM":PRINT:PRINT:PRINT
  3. 6 PRINT "1.  INTRODUCTION:[146]";:PRINT:PRINT
  4. 8 PRINT "2.  KNOBS DEMO:[146]";:PRINT:PRINT
  5. 9 PRINT "3.  S.A.M. SINGS:[146]";:PRINT:PRINT
  6. 10 PRINT "4.  BACK TO BASIC:[146]";:PRINT:PRINT
  7. 20 GET A$:IF A$="" THEN 20
  8. 21 IF A$="1" THEN 1000
  9. 22 IF A$="2" THEN 100
  10. 23 IF A$="3" THEN 2000
  11. 24 IF A$="4" THEN PRINT"[147]":END
  12. 25 GOTO 20
  13. 100 ]PI64:]SP72
  14. 105 POKE 53265,0
  15. 110 SAY "/HEH4LOW DHEHR. YUW4 NOW MIY4Y, AY4 AEM SAE5M,"
  16. 120 SAY "DHAH SAO4FTWEHR MAW5TH"                                      
  17. 126 SAY "FOHR YOHR KAA4MIXDOH6R SIH4KSTIYFOH6R KUMPYUW4TER."
  18. 130 SAY "AY4 KUHD AO4LWEYZ DUW LAA3TS AHV AHMEY4ZIHNX THIHNXGZ."
  19. 140 ]SP35:SAY "AY5 KUHD TAO5K VEH4RIY KWIH4KLIY WHEHN AY WAA4NTIHD."
  20. 150 ]PI64:]SP140:SAY "AE4ND AY KUHD TAO4K VEH3RIY SLOW4LIY TUW."
  21. 160 ]SP72:]PI30:SAY "AY5 KUHD SPIY5K IHNAH VEH3RIY /HAY5 VOYS."
  22. 166 ]PI169:SAY "AE4ND AY KUHD SPIY5K RIY3L LOW."
  23. 180 ]PI64:SAY "BAHT NAW4 AY KAEN DUW5 SAH4MPTHIHNX IY5VUN MOH4R AHMEY3ZIHNX."
  24. 185 ]KNOB110,160:SAY "AY4 KAEN CHEY4NJ MAY VOY5S KUMPLIY3TLIY.Q."
  25. 188 SAY "AY4 KAEN BIY5 AH LIH4TUL EH5LF /HUW TAO5KS LAYK DHIH5S. OH3R."
  26. 190 ]KN190,190:]PI60:]SP92
  27. 192 SAY "AY5 KAEN BIHKAH5M AH STREY4NJ EY4LIYUN."
  28. 194 SAY "YUW5 KAEN YUW4Z DHIHS VOY5S IHN AH SPEY4S GEY5M."
  29. 199 ]KN110,105:]SP82:]PI72
  30. 200 SAY "OHR /HAW5 AHBAW5T DHIH3S STAH4FIY LIH5TUL KEH4RIXKTER."
  31. 205 SAY "EY SIH4LIY VOY5S FOHR AH KUMPYUW4TER."
  32. 210 ]PI32:]KN145,145
  33. 212 SAY "AY5 KAEN TAO5K LAYK AH LIH5TUL OH5LD LEY5DIY."
  34. 214 SAY "NAAT MEH5NIY KUMPYUW5TERZ KAEN DUW DHIH4S - SWIY5TIY."
  35. 216 ]SP72:]PI64:]KN128,128
  36. 218 SAY "AE4ND AEZ AH MAE5TER AHV FAE4KT,"
  37. 220 SAY "AY4 KAEN BIYKAH5M DHAX LEY4TIXST MUW4VIY /HIY4ROW - AEND SEH8EY4,"
  38. 230 ]KN150,200:]PI58:]SP120
  39. 240 SAY "IY4IY6 TTIY6 -FOW5N /HOW5MM. IY4IY6 TTIY6 - FOW5N /HOW5MM."
  40. 250 ]KN128,128:]SP72:]PI64
  41. 260 SAY "DHEH4RZ NOW4 TEH5LIHNX WHAH5T SAE5M WIHL DUW NEH5KST."
  42. 300 POKE 53265,27
  43. 310 GOTO 5
  44. 1000 POKE 53265,0
  45. 1100 ]PI64: ]SP74
  46. 1110 SAY "/HEHLOW3 EH5VRIXWAHN. IHT SHUH4R IHZ NAY3S - TAX BIY /HIY4R TUH7DEY."
  47. 1120 SAY "AY3 AEM SAE4M -"
  48. 1125 SAY "DHAX BRAE4ND NUW5 VOY4S FOHR DHAX KAA4MIXDOH6R"
  49. 1126 SAY "SIH4KSTIYFOH6R KUMPYUW4TER."
  50. 1130 SAY "AY4 AEM DHAX MOW5ST VER4SIXTUL -"
  51. 1132 SAY "AH5NDERSTAE4NDIXBUL SPIY5CH SIH3NTHAXSAY7ZER"
  52. 1133 SAY "AAN DHAX MAA3RKIXT."
  53. 1140 SAY "AE4AE7ND- AY4 AEM DHAX LOHOW4EHST PRAY4ST- AHV DHEHM AO4UL."
  54. 1150 SAY "BAH6T WHAH4T KAEN YUW DUW3 WHIHTH MIYIY."
  55. 1155 SAY "WAY7 YUW3 KAEN PUH5T MIY-IH5NTUX YOHR OW7N PROH3GRAEMZ."
  56. 1160 SAY "/HAW4 WUHD YUW4 LAYK YOHR BIH3ZNIXS SAO5FTWEHR TUX SEY-"
  57. 1166 SAY "PLIY4Z EH5NTER DHIH4S WIY6KS PER3CHAHSIXZ."
  58. 1180 SAY "OH3ER- IHMAE3JIXN AEN EHDVEH4NCHER GEY6M DHAET DAH6Z DHIH4S."
  59. 1190 SAY "DHIY EH3LF WAHZ KAE3PCHERD-BAY DHAX JAY3IXNT."
  60. 1194 SAY "/HIY BIHGAE5N TUX KRAA3IY-AEND /HIY SEH4D."
  61. 1200 ]PI31:]SP66+6
  62. 1202 SAY "OH5OW7 NAX5OW. PLIY5Z DOWNT /HER5T MIY-MIH6STER JAYIXNT?"
  63. 1205 ]PI64:]SP76
  64. 1210 SAY "BAH6T DHAX JAY4IXNT WAHZ VEH3RIY MIY6N-"
  65. 1212 SAY "AEND /HIY4 OW3NLIY SEHD-"
  66. 1215 ]PI120:]SP80:SAY "/HOW2- /HOW4- /HOW."
  67. 1220 ]PI64:]SP72
  68. 1225 SAY "DHEH5R IHZ NOW LIH3MIXT-TUX DHAX PAA4SAXBUL AE5PLIXKEY3SHUNZ-"
  69. 1228 SAY "AHV SPIY4CH IHN YOH7R PROH3GRAEMZ."
  70. 1230 SAY "AO3LSOW7W3- AY4 AEM VEH3RIY IY4ZIY TUX YUW4Z."
  71. 1233 SAY "EH2NIYWAH6N KAEN AE5DSPIY5CH-TUX6 AH BEY4SIHKQPROH4GRAEM."
  72. 1240 SAY "AY4 KAEN IY3VIXN TAOK VEH4RIY KWIH4KLIY."
  73. 1244 SAY "LIH4SUN TUX6 DHIH3S WAHN."
  74. 1246 ]SP30
  75. 1248 SAY "PIY4TER PAY3PER- PIH4KT AH PEH4K AHV PIH4KULD PEH4PERZ."
  76. 1250 ]SP28
  77. 1252 SAY "/HAW3 MEHNIY PEH4KS AHV PIH4KULD PEH4PERZ-DIHD PIY4TER PAY3PER PIH6K."
  78. 1255 ]SP100
  79. 1260 SAY "QQQQ WWAW7IY1IY3IY. DHAE3T WHAHZ AH TAH4FIY."
  80. 1265 ]SP72:SAY "EH2NIYWEY6- YUW4 GEHT DHIY AYDIY5AH."
  81. 1268 SAY "SAE3M IHZ DHIY MOW3STEHKSAY4TIHNX NUW4 PRAA4DAHKT - AHV DHIHS YIY4R."
  82. 1280 SAY "SOH3OW7-/HAW4AHBAW3T IHT. WOH3NT YUW PLIY2Z TEY6KMIY /HOW6M?"
  83. 1284 SAY "Q SAE4M IHZ /HIY3R TUX STEY4IY."
  84. 1288 SAY "THAE2NXKS FOHR LIH4SUNIHNX EHVRIXBAH5DIY."
  85. 1290 SAY "AY /HOW3P YUW EHNJOY4D-MAYLIH4TUL TAOK."
  86. 1300 POKE 53265,27
  87. 1400 GOTO 5
  88. 2000 RESTORE
  89. 2010 AU=47994:POKE AU,234:POKE AU+1,234:POKE AU+2,234
  90. 2015 POKE 53265,0
  91. 2018 ]SP49
  92. 2020 FOR Z=1 TO 101:READ P,S$
  93. 2030 POKE 39439,P:SAY S$:NEXT Z
  94. 2040 POKE AU,157:POKE AU+1,0:POKE AU+2,168
  95. 2045 POKE 53265,27
  96. 2050 GOTO 5
  97. 2101 DATA 64,OHOHOH
  98. 2102 DATA 76,OHOHOH
  99. 2103 DATA 96,SEHEHEHEHEHEHEHEHEHEY
  100. 2104 DATA 76,KAEAEAEAEAEAEAEAEAEN
  101. 2105 DATA 64,YUXUXUXUXUXUXW
  102. 2106 DATA 48,SIYIYIYIYIYIYIYIYIYIYIYIYIYIYIYIYIYIY
  103. 2107 DATA 38,BAAAAAY
  104. 2108 DATA 42,DHAAAXAXAXAX
  105. 2109 DATA 48,DAOAOAOAOAOAOAONZ
  106. 2110 DATA 76,ERERERERERERER
  107. 2111 DATA 68,LIYIYIYIYIYIYIYIYIY
  108. 2112 DATA 64,LAAAAAAAAAAAAAAAAAAAAAAAAAYT
  109. 2113 DATA 64,WHAHAHAHT
  110. 2114 DATA 64,SOHOHUW
  111. 2115 DATA 38,PRAAAAAAAAAAAAAAAAUWD
  112. 2116 DATA 42,LIYIYIY
  113. 2117 DATA 48,WIYIYIYIYIYIYIYIYIY
  114. 2118 DATA 51,/HEHEHEHEHEHEHEHEHEHEHEHEHEHEHEHEHEHEYLD
  115. 2119 DATA 56,AEAEAEAET
  116. 2120 DATA 51,DHAAAXAXAXAX
  117. 2121 DATA 48,TWAAAAAAAAAAAAAAIY
  118. 2122 DATA 48,LAAAAAAAAAAAAIYTS
  119. 2123 DATA 64,LAEAEAEAEAEAEAEAEAEST
  120. 2124 DATA 76,GLIYIYIYIYIYIYIYIYIYM
  121. 2125 DATA 96,MIHIHIHIHIHIHIHIHIHIHNX
  122. 2126 DATA 64,/HUXUXUXUXUXUXUXUXUXUXWZ
  123. 2127 DATA 76,BRAOAOAOD
  124. 2128 DATA 96,STRAAAAAAAAAAAAIYPS
  125. 2129 DATA 76,AEAEAEAEAEAEAEAEAEAEND
  126. 2130 DATA 64,BRAAAAAAAAAAAAAAIYT
  127. 2131 DATA 48,STAAAAAAAAAAAAAAAAAAAAAAAAAARZ
  128. 2132 DATA 38,THRUXUXW
  129. 2133 DATA 42,DHAAAXAXAXAX
  130. 2134 DATA 48,PEHEHEHEHEHEHEHEHEHEHR
  131. 2135 DATA 76,RIXIXIXIXIXIXIXIXIXIXIXIXL
  132. 2136 DATA 68,LAHAHAHAHAHAHAHAHAHS
  133. 2137 DATA 64,FAAAAAAAAAAAAAAAAAAAAAAAAAAIYT
  134. 2138 DATA 64,OHOHOHR
  135. 2139 DATA 64,DHAAAXAXAXAX
  136. 2140 DATA 38,RAEAEAEAEAEAEAEAEAEAEAEAEM
  137. 2141 DATA 42,PAAAARTS
  138. 2142 DATA 48,WIYIYIYIYIYIYIYIYIY
  139. 2143 DATA 51,WAAAAAAAAAAAAAAAAAAAAAAAAAACHD
  140. 2144 DATA 56,WERER
  141. 2145 DATA 51,SOHOHW
  142. 2146 DATA 48,GAEAEAEAEAEAEAEAEAEAEL
  143. 2147 DATA 48,LIXIXIXIXIXIXIXIXIXIXIXIXIXNT
  144. 2148 DATA 64,LIYIYIYIYIYIYIYIYIY
  145. 2149 DATA 76,STRIYIYIYIYIYIYIYIYIYM
  146. 2150 DATA 96,MIHIHIHIHIHIHIHIHIHNX
  147. 2151 DATA 38,AEAEAEAEAEND
  148. 2152 DATA 38,DHAAAXAXAXAX
  149. 2153 DATA 38,RAAAAAAAAAAAAK
  150. 2154 DATA 36,KIXIXIXIXIXIXIXIXIXIXIXTS
  151. 2155 DATA 32,REHEHEHEHEHEHEHEHEHD
  152. 2156 DATA 32,GLEHEHEHEHEHEHEHEHEHEHEHEHEHEHEHERER
  153. 2157 DATA 36,DHAAAXAXAXAX
  154. 2158 DATA 38,BAAAAMZ
  155. 2159 DATA 42,BERERERERERERST
  156. 2160 DATA 38,TIHIHIHIHIHIHIHIHIHNX
  157. 2161 DATA 36,IHIHIHIHIHIHIHIHIHIHN
  158. 2162 DATA 36,EHEHEHEHEHEHEHEHEHEHEHEHEHEHEHEHEHEYR
  159. 2163 DATA 36,GEHEHEHEYV
  160. 2164 DATA 38,PRUXUXUXUXUXUXUXUXUXUXUXUXWF
  161. 2165 DATA 42,THRUXUXW
  162. 2166 DATA 48,DHAAAXAXAX
  163. 2167 DATA 51,NAAAAAAAAAAAAAAAAAAAAAAAYIYT
  164. 2168 DATA 56,DHAEAEAEAET
  165. 2169 DATA 51,AAAAAAUWR
  166. 2180 DATA 48,FLAEAEAEAEAEAEAEAEAEG
  167. 2181 DATA 76,WAHAHAHAHAHAHAHAHAHZ
  168. 2182 DATA 68,STIHIHIHIHIHIHIHIHIHL
  169. 2183 DATA 64,DHEHEHEHEHEHEHEHEHEHEHEHEHEHEHEHEHEHEHEHR
  170. 2184 DATA 64,OHOHOHOHOHOHOW
  171. 2185 DATA 48,SEHEHEHEHEHEHEHEHEHEY
  172. 2186 DATA 48,DAHAHAHAHAHAHAHAHAHZ
  173. 2187 DATA 48,DHAEAEAE
  174. 2188 DATA 51,AEAEAET
  175. 2189 DATA 56,STAAAAAAAAAAAAR
  176. 2190 DATA 56,SPEHEHEHEHEHEHEHEHEHIYNX
  177. 2191 DATA 56,GAXAXAXAXAXAXAXAXAXAXAXAXLD
  178. 2192 DATA 42,BAEAEAEAEAEAEAEAEAEN
  179. 2193 DATA 36,NERER
  180. 2194 DATA 38,ERERER
  181. 2195 DATA 42,YEHEHEH
  182. 2196 DATA 48,EHEHEHEHT
  183. 2197 DATA 48,WEHEHEHEHEHEHEHEHEHEHEH
  184. 2198 DATA 51,EHEHEHEHEHEHEHIYIYIYV
  185. 2199 DATA 64,OHOHOHR
  186. 2200 DATA 64,DHAAAXAXAXAX
  187. 2201 DATA 48,LAEAEAEAEAEAEAEAEAEAEAEAE
  188. 2202 DATA 42,AEAEAEND
  189. 2203 DATA 38,AHAHAHV
  190. 2204 DATA 36,DHAAAXAXAXAX
  191. 2205 DATA 32,FRIYIYIYIYIYIYIYIYIYIYIYIYIYIYIYIYIYIY
  192. 2206 DATA 48,AEAEAEND
  193. 2208 DATA 42,DHAAAXAXAXAX
  194. 2209 DATA 38,/HOHOHOHOHOHOHOHOHOWM
  195. 2210 DATA 36,AHAHAHAHV
  196. 2211 DATA 42,DHAAAXAXAXAXAXAXAXAXAXAXAXAXAX
  197. 2212 DATA 48,BREHEHEHEHEHEHEHEHEHEHIYIYIYV
  198.