home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 78 / 64er_Magazin_Sonderheft_78_19xx_Markt__Technik_de_Side_B.d64 / sounddemo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  38 lines
  1. 10 rem*******************************   20 rem* beispiel zur soundsteuerung *
  2. 30 rem* durch ein eigenes programm. *
  3. 40 rem*******************************
  4. 50 if a=0 then a=1:load"sounds c000",8,1:rem sounddaten laden
  5. 55 sys 49152:poke49192,128:rem soundroutine starten
  6. 60 dim z(5,2):rem tabelle fuer spurzeilennummern anlegen
  7. 70 for i=0 to 5:rem tabelle fuellen
  8. 80 :read z(i,0),z(i,1),z(i,2)
  9. 90 next i
  10. 100 :
  11. 110 poke53280,0:poke53281,0
  12. 120 print"[147]     bitte sound waehlen:"
  13. 125 print"     --------------------"
  14. 130 print"[150]    1 .......... dampflok"
  15. 140 print"[158]    2 ..... trillerpfeife"
  16. 150 print"    3 ............. bombe"
  17. 160 print"[159]    4 ...... 'extra life'"
  18. 170 print"[154]    5 ....... 'game over'"
  19. 180 print"[152]    0 ....... ausschalten"
  20. 185 print"    e ...... programmende"
  21. 190 :
  22. 200 get a$:if a$="" then 200
  23. 204 if a$="e" then print"[147]":end
  24. 208 if a$<"0" or a$>"5" then 200
  25. 210 a=val(a$)
  26. 220 poke49193,z(a,0):poke49194,z(a,1):poke49195,z(a,2):rem spurzeilennummern in
  27. 225 rem sprungregister schreiben
  28. 230 poke49192,peek(49192)or32:rem sprung durchfuehren
  29. 240 goto 200
  30. 250 :
  31. 260 rem *** spurzeilennummern ***
  32. 270 data 0,0,0
  33. 280 data 3,3,0
  34. 290 data 24,0,0
  35. 300 data 0,24,0
  36. 310 data 30,30,0
  37. 320 data 36,36,3
  38.