home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 56
/
64er_Magazin_Sonderheft_56_19xx_Markt__Technik_de_Side_A.d64
/
frequenzgen.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
118 lines
1000 ifpeek(2)=1then1090
1010 :
1020 rem "****************
1030 [143] "* frequenzgen. *
1040 rem "* marcus biber *
1050 [143] "****************
1060 :
1070 poke53280,0:poke53281,0:print"[147]"
1080 poke2,1:load"mobs.freq",8,1
1090 printchr$(142)chr$(8)
1100 poke55,0:poke56,128:clr
1110 poke56576,peek(56576)and252or1
1120 poke53272,peek(53272)and15or48
1130 poke648,140:sc=8*4096+3*1024:v=53248
1140 wf$(4)="dreieck":wf$(5)="saegezahn":wf$(6)="rechteck":wf$(7)="rauschen"
1150 gosub2680
1160 pokev+16,131
1170 fori=0to4:pokev+2*i+1,60:next
1180 pokev,48:pokev+2,0:pokev+4,224
1190 pokev+6,192:pokev+8,160
1200 pokev+10,55:pokev+11,212
1210 pokev+12,152:pokev+13,196
1220 pokev+14,41:pokev+15,196
1230 pokev+21,255
1240 pokev+28,31:pokev+29,32:pokev+44,1
1250 pokev+37,7:pokev+38,5
1260 si=54272:t=985248.4:c=2^24
1270 f1=0:f2=0:f3=0:f4=0:f0=0
1280 w1=0:w2=0:w3=0:w4=0:w5=0
1290 l=7:wf=4
1300 pokesi,0:pokesi+1,0
1310 pokesi+5,0:pokesi+6,240
1320 pokesi+2,0:pokesi+3,8
1330 pokesi+24,l
1340 gt=1:gosub2340
1350 goto 1920
1360 :
1370 rem "hauptschleife (tasten)
1380 :
1390 [161] t$
1400 [139]t$[178]"input"[167]f4[178]f4[170]1:[137]1650
1410 [139]t$[178]"dim"[167]f3[178]f3[170]1:[137]1640
1420 [139]t$[178]"read"[167]f2[178]f2[170]1:[137]1630
1430 [139]t$[178]"let"[167]f1[178]f1[170]1:[137]1620
1440 [139]t$[178]"goto"[167]w5[178]w5[170]1:[137]1730
1450 [139]t$[178]"run"[167]w4[178]w4[170]1:[137]1720
1460 [139]t$[178]"if"[167]w3[178]w3[170]1:[137]1710
1470 [139]t$[178]"restore"[167]w2[178]w2[170]1:[137]1700
1480 [139]t$[178]"+"[176]t$[178]"(NULL)"[167]l[178]l[170]1:[137]1760
1490 [139]t$[178]"-"[176]t$[178]"(NULL)"[167]l[178]l[171]1:[137]1760
1500 [139]t$[178]"\"[176]t$[178]"step"[167]wf[178]wf[170]1:[137]1800
1510 [139]t$[178]" "[176]t$[178]"close"[167]gt[178](1[171]gt):[141]2340:[137]1390
1520 [139]t$[178]""[167]f0[178]f0[170]1:[137]1660
1530 [139]t$[178]"on"[167]w1[178]w1[170]1:[137]1690
1540 [139]t$[178]""[176]t$[178]"load"[167]f0[178]0:f1[178]0:f2[178]0:f3[178]0:f4[178]0:[137]2460
1550 [139]t$[178]""[167][158]64738
1560 [139]t$[178]"^"[175]f[179]1920[167]f[178]2[172]f:[141]2250:[137]2470
1570 [139]t$[178]"*"[167]f[178]f[173]2:[141]2250:[137]2470
1580 [137]1390
1590 :
1600 [143] "auswertung
1610 :
1620 iff1>9thenf1=0
1630 iff2>9thenf2=0
1640 iff3>9thenf3=0
1650 iff4>3thenf4=0
1660 iff0>9thenf0=0
1670 goto2460
1680 :
1690 ifw1>9thenw1=0
1700 ifw2>9thenw2=0
1710 ifw3>9thenw3=0
1720 ifw4>9thenw4=0
1730 ifw5>6thenw5=0
1740 goto2520
1750 :
1760 ifl>15thenl=15
1770 ifl<0thenl=0
1780 gosub2580
1790 poke si+24,l:goto1390
1800 :
1810 ifwf>7thenwf=4
1820 gosub2340
1830 poke211,3:poke214,11:sys58640:print"[155]"wf$(4)
1840 poke211,3:poke214,13:sys58640:print"[155]"wf$(5)
1850 poke211,3:poke214,15:sys58640:print"[155]"wf$(6)
1860 poke211,3:poke214,17:sys58640:print"[155]"wf$(7)
1870 poke211,3:poke214,11+(2*(wf-4)):sys58640:print"[158]"wf$(wf)
1880 goto1390
1890 :
1900 rem "werte setzen
1910 :
1920 a[178][181](w[173]256):b[178]w[171](256[172]a)
1930 [151]si,b:[151]si[170]1,a
1940 [151]211,19:[151]214,11:[158]58640:[153]" cmdcmdcmdcmd"b
1950 [151]211,31:[151]214,11:[158]58640:[153]" cmdcmdcmdcmd"a
1960 [151]sc[170]1023,14:[151]v[170]46,5
1970 [151]sc[170]782,w5[170]48
1980 [151]sc[170]784,w4[170]48
1990 [151]sc[170]786,w3[170]48
2000 [151]sc[170]788,w2[170]48
2010 [151]sc[170]790,w1[170]48
2020 [151]sc[170]1016,f0
2030 [151]sc[170]1017,f1
2040 [151]sc[170]1018,f2
2050 [151]sc[170]1019,f3
2060 [151]sc[170]1020,f4
2070 [137]1390
2080 :
2090 [143] "ueberlauf
2100 :
2110 pokesc+1023,15:pokev+46,10
2120 goto1970
2130 :
2140 rem "wert >>> digits
2150 :
2160 w5[178][181](w[173]10000)