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)   :R[178]W5[172]10000
2170 W4[178][181]((W[171]R)[173]1000):R[178]R[170]W4[172]1000
2180 W3[178][181]((W[171]R)[173]100) :R[178]R[170]W3[172]100
2190 W2[178][181]((W[171]R)[173]10)  :R[178]R[170]W2[172]10
2200 W1[178][181](W[171]R)
2210 [142]
2220 :
2230 [143] "FREQUENZ >>> DIGITS
2240 :
2250 F4=INT(F/1000)   :R=F4*1000
2260 F3=INT((F-R)/100):R=R+F3*100
2270 F2=INT((F-R)/10) :R=R+F2*10
2280 F1=INT(F-R)      :R=R+F1
2290 F0=(F-R)*10
2300 RETURN
2310 :
2320 REM "GATEBIT + WAVEFORM
2330 :
2340 [151] SI[170]4,2[174]WF[170]GT
2350 [151]211,16:[151]214,23:[158]58640
2360 [139]GT[167][153]"SYSOUTPUT";:[151]SC[170]1022,16:[151]V[170]45,7
2370 [139]GT[178]0[167][153]"LIST ---- ";:[151]SC[170]1022,17:[151]V[170]45,15
2380 [139]WF[178]4[167][151]SC[170]1021,11
2390 [139]WF[178]5[167][151]SC[170]1021,12
2400 [139]WF[178]6[167][151]SC[170]1021,10
2410 [139]WF[178]7[167][151]SC[170]1021,13
2420 [142]
2430 :
2440 [143] "FREQUENZ >>> WERT
2450 :
2460 F=(F1)+(F2*10)+(F3*100)+(F4*1000)+(F0/10)                 
2470 W=INT((F*C)/T+.5):IFW>65535THENGOSUB2110
2480 GOSUB2160:GOTO1920
2490 :
2500 REM "WERT >>> FREQUENZ
2510 :
2520 W[178](W1)[170](W2[172]10)[170](W3[172]100)[170](W4[172]1000)[170](W5[172]10000):[139]W[177]65535[167][141]2110
2530 F[178][181]((W[172]T[173]C)[172]10[170].5)[173]10
2540 [141]2250:[137]1920
2550 :
2560 [143] "BALKEN
2570 :
2580 FORI=1TOL
2590 POKESC+943+I,160
2600 NEXT
2610 FORI=L+1TO15
2620 POKESC+943+I,32
2630 NEXT
2640 RETURN
2650 :
2660 REM "MASKE AUSGEBEN
2670 :
2680 [153]"LOAD"
2690 [153]" PRINT#(null)TANTANTANTANTANTANTANTAN";
2700 [153]"TANTANTANTANTANRIGHT$POKE                   ";
2710 [153]"      PRINT#(null)LISTFREQUENZ (HZ)PRINT#(null)POKE    ";
2720 [153]"                     PRINT#MID$TANTANTAN";
2730 [153]"TANTANTANTANTANTANTANTANTANTAN(null)POKE              ";
2740 [153]"   PRINT(null)      PRINT#ANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND";
2750 [153]"ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND";
2760 [153]"FN            THEN           ";
2770 [153]"               FN(null)TANTANTANTANTANTANTANTAN";
2780 [153]"TANTANRIGHT$THENPOKE PRINT#(null)TANTANTANTANTANTANTANTANTANRIGHT$POKE PRINT#(null)TANTANTANTANTANTANTAN";
2790 [153]"TANTANRIGHT$POKE  PRINT#FN(null)LISTWELLENFORMPRINT#(null)THENPOKE PRINT#(null)LISTLOW-";
2800 [153]"BYTE PRINT#(null)+(null)LISTHIGH-BYTEPRINT#(null)LIST POKE PRINT#FNMID$TANTANTAN";
2810 [153]"TANTANTANTANTANTANTAN(null)THENPOKE PRINT#MID$TANTANTANTANTANTANTANTANTAN(null)POKE PRINT#MID$TANTAN";
2820 [153]"TANTANTANTANTANTANTAN(null)POKE  PRINT#FNPOKE            PRINT#THENPOKE ";
2830 [153]"                         ";
2840 [153]"PRINT#FNPOKE LIST PRINT#        POKE  PRINT#THENPOKE          POKEWAIT ";
2850 [153]"           POKEWAIT    PRINT#FNPOKE  SYSDREIECK";
2860 [153]" POKE  PRINT#THENPOKE    WAIT      POKEWAIT  CONT+POKE   WAIT     ";
2870 [153]" POKEWAIT    PRINT#FNPOKE            PRINT#THENPOKE      ";
2880 [153]"    POKEWAIT            POKEWAIT    PRINT#FNPOKE LIST SAE";
2890 [153]"GEZAHNPOKE PRINT#THENPOKE                ";
2900 [153]"          PRINT#FNPOKE            PRINT#THENPOKE ";
2910 [153]"PRINT#(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$POKE ";
2920 [153]"PRINT#FNPOKE  LISTRECHTECK POKE PRINT#THENPOKE PRINT#(null)LISTRESULTAT ";
2930 [153]"(16-BIT-WERT)PRINT#(null)LIST PRINT#FNPOKE LIST        ";
2940 [153]"  POKE PRINT#THENPOKE PRINT#MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";
2950 [153]"TANTANTAN(null)POKE PRINT#FNPOKE LIST(RAUSCHEN)POKE PRINT#THENPOKE      ";
2960 [153]"                    PRINT#FNPOKE    ";
2970 [153]"        PRINT#THENPOKE                ";
2980 [153]"   POKEWAIT       PRINT#FNPOKE LIST          POKE PRINT#THENPOKE ";
2990 [153]"      WAIT            POKEWAIT      LIST ";
3000 [153]"PRINT#FNPOKE          POKEWAIT  PRINT#THENPOKE           ";
3010 [153]"        POKEWAIT       PRINT#FNPOKE         ";
3020 [153]" POKEWAIT  PRINT#THENPOKE                     ";
3030 [153]"     PRINT#FNPOKE          POKEWAIT  PRINT#THENPOKE PRINT#(null)TANTANTANTAN";
3040 [153]"TANTANRIGHT$POKE                 PRINT#FNPOKE  STOP  ";
3050 [153]"       POKEWAIT PRINT#THENPOKE PRINT#(null)LIST      PRINT#(null)POKE        ";
3060 [153]"WAIT        CONT PRINT#(null)ANDANDANDANDANDANDANDANDANDANDANDANDSQRPOKE ";
3070 [153]"PRINT#MID$TANTANTANTANTANTAN(null)";
3080 [142]