$ FORGET v1 VAR v1 VAR v2 VAR v3 VAR wt : , . D EMIT RET : VTC1 DUP 40 = IF DROP B ELSE DUP 100 = IF DROP C ELSE 400 = IF D ENDIF ENDIF ENDIF RET : VTC DUP 1 = IF DROP 9 ELSE DUP 8 = IF DROP A ELSE VTC1 ENDIF ENDIF RET : vtc21 DUP 80 = IF DROP 1D ELSE DUP 100 = IF DROP 1E ELSE 400 = IF 1F ENDIF ENDIF ENDIF RET : VTC22 DUP 20 = IF DROP 1B ELSE DUP 40 = IF DROP 1C ELSE vtc21 ENDIF ENDIF RET : VTC2 DUP 1 = IF DROP 19 ELSE DUP 8 = IF DROP 1A ELSE VTC22 ENDIF ENDIF RET $ : DLY 1 REPEAT SWAP DUP ROT INK DUP ROT >= UNTIL DROP DROP RET { ### 0,5 s bei 6000 dly \ { >>> : FREQA B1 OL DUP FF AND SWAP 8 >> 4B WR 4A WR 4F RD 40 OR 4F WR Vtc 4E WR RET : FREQ2 B3 OL 43 WR VTC2 45 WR RET : HALL $ C1 IZ REPEAT & 1 AIN 5000 2048 */ DROP . 32 EMIT 13 EMIT KEY? UNTIL DROP RET : HZ$ $ 3D09 SWAP / DEK DUP INK 3D09 SWAP / . 100 SWAP FREQA RET : FREQ? $ D2 IZ & CNT0 250 MS WAIT CNT0 SWAP - 4 * . RET : HZM HZ$ 1000 DLY 0 AIN $ , & RET : HZLAUF_0 $ C0 IZ & 10 REPEAT 10 + DUP hzm KEY? IF DROP 1 ELSE DUP 3000 >= ENDIF UNTIL DROP RET $ : MES100 FFFF DUP MS SWAP 0 REPEAT INK DUP ROT DUP AIN . D EMIT ROT ROT 64 >= UNTIL . DROP TIME - , RET : MES2 FFFF DUP MS REPEAT ROT DUP AIN . ROT DUP AIN , ROT KEY? UNTIL DROP TIME - , DROP DROP RET : MES1 FFFF DUP MS SWAP REPEAT DUP AIN . D EMIT KEY? UNTIL DROP DROP TIME - , RET $ : ULR 200 REPEAT INK INK DUP DUP RD . D EMIT 2C8 >= UNTIL DROP RET : STORE1 wt wr $ FFFF DUP MS SWAP 200 REPEAT wt RD DLY INK INK DUP ROT DUP AIN ROT WR SWAP DUP 2C8 >= UNTIL DROP DROP TIME - ULR , RET $ : TRIG_2 IF REPEAT DUP 2 AIN >= UNTIL ELSE REPEAT DUP 2 AIN <= UNTIL ENDIF DROP RET : ULTRA_2 $ C2 IZ TRIG_2 FFFF DUP MS 200 REPEAT INK INK DUP 2 AIN SWAP WR DUP 2C8 >= UNTIL DROP TIME - ULR , RET : TAST_10 REPEAT KEY? IF D <> IF 1 AIN . 0 AIN , 0 ELSE 1 ENDIF ELSE 0 ENDIF UNTIL RET : KLINIE_10 REPEAT 1 AIN DUP 0 AIN DUP ROT < IF DUP . - , ELSE DROP DROP ENDIF WT RD MS WAIT KEY? UNTIL DROP RET : KOND_01 C0 IZ C1 IZ REPEAT 1 AIN 200 + 0 AIN DUP . - , KEY? UNTIL DROP RET : MESAVG DUP HZ$ 32 MS WAIT 2 AIN 2 AIN 2 AIN + + 3 / , RET : D= = IF DROP 1 ELSE DUP 2B = IF DROP A + ELSE 2D = IF A - ENDIF ENDIF MESAVG 0 ENDIF RET : FREQSUCH_2 3f emit REPEAT KEY? IF DUP D D= ELSE 0 ENDIF UNTIL DROP RET $ : WID IF C0 IP C1 IP ELSE C0 IZ C1 IZ ENDIF C2 IZ C3 IZ RET $ : LAD_0 A MS WAIT 0 AIN 1388 3FF */ DROP . , RET : POUT 1 38 BSET V3 MS WAIT 1 38 BCLR RET : LADTAST V3 WR B1 OL 0 REPEAT INK DUP POUT LAD_0 REPEAT KEY? UNTIL D = UNTIL DROP RET : VZ DUP 0 < IF DROP 0 ENDIF RET : INDU $ REPEAT 2 AIN V2 RD - 200 + VZ DUP . V1 RD IF 3 * ENDIF 3 AIN V3 RD - - 200 + VZ , KEY? UNTIL DROP RET : +W DUP RD ROT + SWAP WR RET : SELB_32 0 V2 WR 0 V3 WR 0 REPEAT INK DUP 2 AIN V2 +W 3 AIN V3 +W A >= UNTIL DROP V2 RD A / V2 WR V3 RD A / V3 WR INDU RET $ : MES_t FFFF DUP MS REPEAT DUP TIME - . SWAP DUP AIN , SWAP KEY? UNTIL DROP DROP DROP RET