Labels: text | screenshot | number | font | parallel | black and white | line OCR: ÉGALE Datel Suchen Bearbeiten Fenster Optionen D: \EGALE\BEISPIE1. TXT D: \EGALE\BEISPIE2. TXT Länge: 23 | Länge: 22 2 1 FUNCTION wochentag$ (ds) LOCAL tag$, jahr , mon, tag, mo, jh, je, t ! Alt 1 FUNCTION wochentags (ds) ! Heu 2 LOCAL tag$, jahr , mon, tag, mo, jh, je, t 3 DEFIRD "a-Z" 4 4 jahr =VAL (MID$ (d$,7) ) 5 jahr =VAL (MID$ (d$, 7) ) 5 mon=VAL (MID$ (d$,4,2) ) 6 tag URL (MID$ (d$,1,2)) mon=VAL (MID$ (d$,4,2) ) tag UAL (LEFT$ (d$,2) ) ZEILE: D: \EGALE\BEISPIE1. TXT D: \EGAL 8 9 n-2 tag=VAL (MIDS (d5 1. hr DIV 100 LO A 10 11 tag=VAL (LEFTS hr MOD 100 K=B -0,12 je 15 IF je<0 je=99 16 IF je<0 16 jh=jh-1 Zeile editieren 18 ENDIF 19 t=tag+IHT (2 20 WHILE t<0 21 t=t+7 tag=VAL (MID$ (d$, 1, 2) ) 22 HEND 23 t=t MOD ? 124 RESTORE HOC Editor: O einfügen O überschreiben Übernehmen 25 tag$="Sonnt 26 FOR i%=1 TO 27 READ tag$ Darstellung 28 NEXT i% 29 RETURN tag$ Text O Dezimal O HEX Abbruch OK
(.png)
