home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_007_19xx_-_de_Disk_2_of_2_Side_B.d64 / notendef (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  478b  |  16 lines
  1. 10 rem *************
  2. 20 rem ** logiker **    notendef
  3. 30 rem *************    ========
  4. 40 def fnp(n)=int(7493*2^(okt+(n-10)/12)+.5)
  5. 50 def fnhi(n)=int(fnp(n)/256):def fnlo(n)=int(fnp(n)-fnhi(n)*256)
  6. 60 def fnsh(n)=int(fnps(n)/256):def fnsl(n)=int(fnps(n)-fnsh(n)*256)
  7. 70 def fnps(n)=int(7493*(n/440))
  8. 80 sid=54272:laut=sid+24:welle=sid+4:anschl=sid+5:hlt=sid+6:lob=sid:hib=sid+1
  9. 90 tvl=sid+2:tvh=sid+3
  10. 100 poke laut,15
  11. 110 okt=0
  12. 120 poke lob,fnlo(10):poke hib,fnhi(10)
  13. 130 poke hlt,240
  14. 140 poke welle,33
  15. 150 print"[147]poke laut,0"
  16.