home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 Janurary / 64er_Magazin_91-01_1991_Markt__Technik_de_Side_A.d64 / sfx-edit (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 0 print"[147]"+chr$(8):poke650,128:poke53280,0:poke53281,0:s=54272:q=255
  2. 1 forz=0to28:pokes+z,0:nextz:z=0:dimz(q),r(q):r(24)=15:pokes+24,r(24)
  3. 2 data5,4,30,30,33,0,240,12,8,30,30,33,0,240,10,12,30,30,33,0,240
  4. 3 print"[150][169]basic sfx-editor v2.0 by: sascha*nagie[223][146]"
  5. 4 print"    [151]press [152]f1 [155]for change a register."
  6. 5 print"    [151]press [152]f3 [155]for sfx demoregisters."
  7. 6 print"    [151]press [152]f5 [155]for fill all with zero."
  8. 7 fori=23to0step-1:pokes+i,r(i):nexti:pokes+4,r(4):pokes+11,r(11):pokes+18,r(18)
  9. 8 print"[145][145]      voice[150]1:[146]   voice[153]2:[146]   voice[154]3:[146]
  10. 9 [153]"":[129]i[178]0[164]6:[153]"pokerprint#"i"cmd#list"r(i)"cmd  ":[130]i:[153]"":[129]i[178]7[164]13
  11. 10 [153],"pokerprint#"i;"cmd#list"r(i)"cmd  ":[130]i:[153]"":[129]i[178]14[164]20
  12. 11 [153],,"pokerprint#"i"cmd#list"r(i)"cmd  ":[130]i:[153]:[129]i[178]21[164]28
  13. 12 [153]"pokerprint#"i"cmd#list"r(i)"cmd  ",:[130]i
  14. 13 [161]y$:[139]y$[178]"input"[167][137]17
  15. 14 [139]y$[178]"dim"[167] [129]i[178]0[164]20:[135] r(i):[130]i:[140]:[137]7
  16. 15 [139]y$[178]"read"[167][129]i[178]0[164]28:r(i)[178]0:[130]i:r(24)[178]15:[137]7
  17. 16 [137]7
  18. 17 [151]19,1:[133]"r]#";z:[151]19,0:[139]z[179]0[176]z[177]28[167][137]17
  19. 18 [151]19,1:[133]":";a:[151]19,0:[139]a[179]0[176]a[177]255[167][137] 18
  20. 19 r(z)[178]a:[151]s[170]z,r(z):[137] 7
  21.