home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 56 / Digital_Talk_56_2002-08-23_Digital_Talk_de_Side_B.d64 / khtirqmusik01.ba (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  745b  |  28 lines
  1. 1 q=peek(186):qa=peek(821):onqagoto4,5,8
  2. 2 rem ---- khtirqmusik01---230602 ----
  3. 3 print"[147]":poke53280,0:poke53281,11:goto10
  4. 4 poke821,2:load"khtirqmsx01*",q,1
  5. 5 poke821,3:loadf$+"*",q,1
  6. 8 poke55,135:poke56,144:clr:goto80
  7. 10 print"[158]khtirqmusik01"
  8. 20 print"[159]von kahate"
  9. 30 print"[155]bitte musiktitel eingeben:"
  10. 40 print"[158][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  11. 50 poke19,1:input"[145][145]";f$:poke19,0:print
  12. 60 printtab(24)"[152]bitte warten"
  13. 70 poke821,1:goto1
  14. 80 printtab(17)"[158]und nun viel spass![152]"
  15. 82 fori=1101to1103:pokei,32:next
  16. 90 sys39000
  17. 100 r1=peek(1101):ifr1<>5then100
  18. 110 print"[152]repeat <return[152]>  /  ende <e[152]>"
  19. 112 print"[152]oder neue melodie laden? <n[152]>"
  20. 120 r$="":getr$:ifr$=""then120
  21. 122 ifr$="e"thensys64738
  22. 124 ifr$=chr$(13)then150
  23. 126 ifr$="n"then140
  24. 128 goto120
  25. 140 sys39796:poke821,0:goto1
  26. 150 forx=18to24:poke781,x:sys59903:next
  27. 152 poke211,0:poke214,16:sys58640:goto80
  28.