home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 May / 64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64 / starkstrom (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  510 b   |  23 lines
  1. 1 rem         sound
  2. 2 rem*************************
  3. 3 rem*joern donges           *
  4. 4 rem*homrighaeuserweg 52    *
  5. 5 rem*5920 bad berleburg     *
  6. 6 rem*************************
  7. 7 :
  8. 8 fori=3000to3010:reada:pokei,a:next
  9. 9 :
  10. 10 print"bitte lautstaerke aufdrehen!!"
  11. 11 poke198,0:wait198,1:poke198,0
  12. 12 :
  13. 13 si=54272:forn=0to24:poke si+n,0:next n:
  14. 14 poke si+6 ,250
  15. 16 poke si+1 ,14:pokesi+2,0
  16. 18 poke si+4,129
  17. 19 :
  18. 20 print"        starkstromentladung"
  19. 21 :
  20. 22 :sys3000:::::::::::::::::::::goto22
  21. 24 :
  22. 100 data169,255,141,24,212,169,0,141,24,212,96
  23.