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