home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 91
/
64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64
/
fox-texto
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
931b
|
40 lines
100 rem fox-texto
110 rem
120 rem 01.03.87 by p.engels
130 rem ---------------------
140 rem
150 printchr$(14)"[147][208]rint[198]ox -> [212]extomat"chr$(13)" [212]extkonverter"
160 input"[209]uell-[212]ext: ";qf$:qf$=qf$+",p,r"
170 input" [218]iel-[212]ext: ";zf$:zf$=zf$+",p,w"
180 open1,8,3,qf$
190 open2,8,4,zf$
200 print:print:get#1,a$:rem textkennung
210 get#1,a$:ifa$=""thena$=chr$(0)
220 a=asc(a$):b=0
230 if(a>96)and(a<123)thenb=a-32:goto370:rem klein
240 if(a>64)and(a<91)thenb=a+128:goto370:rem gross
250 if(a>31)and(a<65)thenb=a:goto370:rem ziffern & zeichen
260 ifa=2thengoto470:rem formatzeile ignorieren
270 ifa=160thenb=127:rem shift space
280 ifa=13thenb=95:rem absatz
290 ifa=91thenb=169:rem ae
300 ifa=92thenb=168:rem oe
310 ifa=93thenb=170:rem ue
320 ifa=123thenb=165:rem ae
330 ifa=124thenb=161:rem oe
340 ifa=125thenb=166:rem ue
350 ifa=126thenb=167:rem sz
360 :
370 if(a>31)then printchr$(a);
380 ifa=13then printchr$(a);
390 ifst=2goto430:rem file-ende
400 if b=0goto210
410 print#2,chr$(b);:goto210
420 :
430 print#2
440 close1:close2
450 print:print:print"[212]ext ist konvertiert !![146]":end
460 :
470 get#1,a$:ifasc(a$)<>13goto470:zeile ueberlesen
480 goto210