50 IFPEEK(52000)<>120THENLOAD"MESSROUTINE",8,1
60 POKE45,100:POKE46,20:CLR
100 O2=985248:REM SYSTEMTAKT
110 TA=61578:REM 1/16 SYSTEMTAKT  =$F08A
120 F$="      FREQUENZ :":H$=" HZ  "
130 F1$="         ****  FULL  ***         "
160 T1=138:T2=240:REM LO HI TIMER A
170 T3=16:T4=0
180 CN=52000:FU=708:REM OBJ-ROUTINE
190 DIMTB(32),T1(16),T2(16),T3(16),T4(16)
250 GOSUB2000
300 GOSUB1000
499 REM *** MESSEN ***
500 POKE704,T1:POKE705,T2:POKE706,T3:POKE707,T4
510 SYSCN
520 IF PEEK(FU)<>255 THEN PRINTF1$:GOTO770
530 PU=65535-(PEEK(704)+256*PEEK(705))
540 FR=PU/TB
570 PRINTF$FR;H$;
770 IFPEEK(653)THEN300
780 GOTO500
999 STOP
1000 PRINT"[147]"
1010 PRINT"      F R E Q U E N Z M E S S E R"
1015 PRINT"    PROGRAMMED BY  BHA  (C) 12.4.85"
1020 PRINT"   TORZEIT:"
1100 PRINT" A) 1/128 SEC    MAXIMAL 65535 ZYKLEN"
1110 PRINT" B) 1/64  SEC"
1120 PRINT" C) 1/32  SEC    WERDEN IN DER TORZEIT"
1130 PRINT" D) 1/16  SEC"
1140 PRINT" E) 1/8   SEC    GEZAEHLT!
1150 [153]" F) 1/4   SEC"
1160 [153]" G) 1/2   SEC"
1180 [153]" H) 1 ----SEC"
1190 [153]" I) 2     SEC"
1200 [153]" J) 4     SEC"
1210 [153]" K) 8     SEC"
1220 [153]" L) 16    SEC"
1230 [153]" M) 32    SEC"
1240 [153]" N) 64    SEC"
1250 [153]" O) 128   SEC"
1300 [161]Q$:[139]Q$[178]""[167]1300
1310 Q[178][198](Q$)[171]65:[139]Q[179]0[176]Q[177]14[167]1300
1320 TB[178]TB(Q):T1[178]T1(Q):T2[178]T2(Q):T3[178]T3(Q):T4[178]T4(Q)
1330 [153]"  *** ZUM AENDERN 'SHIFT' DRUECKEN ***";
1399 [142]
2000 [129]S[178]0[164]14:[135]TB(S),T1(S),T2(S),T3(S),T4(S):[130]
2599 [142]
10080 [131].0078125,17,30,0,0   :[143] .125 MAL
10090 [131].015625,17,060,0,0   :[143] .25 MAL
10100 [131].03125,069,120,0,0   :[143] .5 MAL
10110 [131].0625,138,240,0,0   :[143] 1 MAL
10120 [131].125 ,138,240,1,0   :[143] 2 MAL
10130 [131].25  ,138,240,3,0   :[143] 4 MAL
10140 [131].5   ,138,240,7,0   :[143] 8 MAL
10150 [131]1    ,138,240,15,0  :[143] 16 MAL
10160 [131]2    ,138,240,31,0  :[143] 32 MAL
10170 [131]4    ,138,240,63,0  :[143] 64 MAL
10180 [131]8    ,138,240,127,0 :[143] 128 MAL
10190 [131]16   ,138,240,255,0 :[143] 256 MAL
10200 [131]32   ,138,240,255,1 :[143] 512 MAL
10210 [131]64   ,138,240,255,2 :[143] 1024 MAL
10220 [131]128  ,138,240,255,4 :[143] 2048 MAL