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 >
Wrap
Commodore BASIC
|
2023-02-26
|
478b
|
16 lines
10 rem *************
20 rem ** logiker ** notendef
30 rem ************* ========
40 def fnp(n)=int(7493*2^(okt+(n-10)/12)+.5)
50 def fnhi(n)=int(fnp(n)/256):def fnlo(n)=int(fnp(n)-fnhi(n)*256)
60 def fnsh(n)=int(fnps(n)/256):def fnsl(n)=int(fnps(n)-fnsh(n)*256)
70 def fnps(n)=int(7493*(n/440))
80 sid=54272:laut=sid+24:welle=sid+4:anschl=sid+5:hlt=sid+6:lob=sid:hib=sid+1
90 tvl=sid+2:tvh=sid+3
100 poke laut,15
110 okt=0
120 poke lob,fnlo(10):poke hib,fnhi(10)
130 poke hlt,240
140 poke welle,33
150 print"[147]poke laut,0"