home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh78b.d64 / sounddemo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.