home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9108a.d64
/
frequenzgenerat.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
21 lines
1 PRINT"[147] FREQUENZGENERATOR V2.0 VON E.HAMMES":PRINT"FREQUENZ:":PRINT""
2 FORI=0TO3:PRINT"<";I*2+1"[157][157][157]F> : +"10^I"HZ ( +SHIFT: -"10^I"HZ )":NEXTI
3 PRINT"ANDERE STIMMEN:":PRINT"<W> : VERAENDERT WELLENFORM":Y=1
4 S=54272:FORI=1TO3:POKES+2,0:POKES+3,255:S=S+7:F(I)=440:W(I)=0:NEXTI:S=S-21:F=440
5 PRINT"<D> : FREQUENZDIREKTEINGABE":PRINT"<S> : ANDERE STIMME":T=1:L=10
6 W$(0)="DREIECK ":W$(1)="SAEGEZAHN":W$(2)="RECHTECK ":W$(3)="RAUSCHEN "
7 PRINT""TAB(17)" ":I=1:I2=2:IFT=1ORT=2THENI=2:I2=3:IFT=2THENI=1:I2=3
8 PRINT""TAB(17)I":"F(I)I2":"F(I2):POKE650,128:POKE54296,L:POKE5+S,25:POKES+6,68:GOTO18
9 IFF<1ORF>3460THENQ=F:F=1:IFQ>3460THENF=3460
10 P=INT(F*17.03199):HB=INT(P/256):LB=P-HB*256:POKE1+S,HB:POKES,LB:POKE54296,L
11 PRINT""TAB(10)F"[157] HZ VOL:"L"[157] "
12 GETA$:ON-(A$="")GOTO12:A=ASC(A$):ON-(A=68)GOTO19:ON-(A=87)GOTO17:IFA=83THENS=S+7:GOTO20
13 ON-(A=17)OR-(A=145)GOTO15:ON-(A<133)OR-(A>140)GOTO12:A=A-133:IFA>3THENA=A-4:Y=-1
14 F=F+(10^A)*Y:Y=1:F=INT(F+.5):GOTO 9
15 L=L-1:ON-(A$="[145]")GOTO16:L=L+2:GOTO16
16 ON-(L>-1)AND-(L<16)GOTO9:IFL<0ORL>15THENX=L:L=0:ON-(X<16)GOTO9:IFX>15THENL=15:GOTO9
17 W=W+1:IFW>3THENW=0
18 WW=(16*(2^W))+1:POKES+4,WW:PRINT"WELLENF:"W$(W)" STIMME:"T:GOTO9
19 POKE19,64:PRINT"";:INPUTF$:F=VAL(F$):POKE19,0:GOTO9
20 F(T)=F:W(T)=W:T=T+1:F=F(T):W=W(T):ON-(T<4)GOTO7:IFT>3THENT=0:S=S-21:GOTO20