100 REM de text - czech MQM5 demo text format -> windows text by QTZ 2024
105 ------------------------------
110 DIM C$(1),F$(1),T$(1)
120 TRAP #TC:OPEN #1,4,0,"H:TEXT.BIN":OPEN #2,8,8,"H:TEXT.TXT"
125 # NXT:GET #1,D:? D,:IF D<5:? "skip":GO# NXT:ENDIF :IF D=173:? "skip hyphen":GO# NXT:ENDIF 
130 N=D&$7F:? N,:O=N:C=N&$60:? C
135 IF C=$60
136   C$=CHR$(N):RESTORE #ZN
140   # CNV:READ F$:IF F$="X":? "not found >";C$;"< to convert":STOP :GO# SAV:ENDIF 
150   READ T$:IF F$=C$:O=ASC(T$):GO# SAV:ENDIF :GO# CNV
155 ENDIF 
160 # SAV:PUT #2,O:IF D>N:PUT #2,32:ENDIF :GO# NXT
200 # TC:CLOSE :END 
210 ------------------------------
300 # ZN
310 DATA a,�
320 DATA c,�
330 DATA d,�
340 DATA e,�
350 DATA i,�
360 DATA j,�
370 DATA n,�
380 DATA o,�
390 DATA r,�
395 DATA s,�
400 DATA t,�
410 DATA u,�
420 DATA w,�
430 DATA y,�
440 DATA z,�
450 DATA X