home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 91
/
64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64
/
fox-master
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
47 lines
100 rem fox-master
110 rem
120 rem 02.03.87 by p.engels
130 rem ----------------------
140 rem
150 printchr$(14)"[147][208]rint[198]ox -> [205]aster[212]ext"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$:print#2,chr$(0)chr$(08);:rem start-kennung
200 print:print
210 get#1,a$:rem text-kennung ueberlesen
220 get#1,a$:ifa$=""thena$=chr$(0)
230 a=asc(a$):b=0
240 if(a>96)and(a<123)thenb=a-96:goto370:rem klein
250 if(a>31)and(a<91)thenb=a:goto370:rem ziffern,zeichen,grossbuchst.
260 ifa=2thengoto540:rem formatzeile ignorieren
270 ifa=127thenb=32:rem shift space
280 ifa=13thenb=142:rem absatz
290 ifa=91thenb=91:rem ae
300 ifa=92thenb=92:rem oe
310 ifa=93thenb=93:rem ue
320 ifa=123thenb=27:rem ae
330 ifa=124thenb=28:rem oe
340 ifa=125thenb=29:rem ue
350 ifa=126thenb=30:rem sz
360 :
370 if(a>31)or(a=13)thenprintchr$(a);
380 ifst=2goto440:rem file-ende
390 ifb=0then220
400 print#2,chr$(b);
410 sz=sz+1:rem spaltenzaehler
420 ifb=142thengosub480:rem zeile auffuellen
430 goto220
440 print#2,chr$(0)chr$(0):rem ende
450 close1:close2
460 print:print"[212]ext ist konvertiert !![146]":end
470 :
480 ifsz> 79thenprint#2," ";
490 ifsz>159thenprint#2," ";
500 ifsz>319thenprint#2," ";
510 ifsz>399thenprint#2," ";
520 forz=szto79*(int(sz/79)+1):print#2," ";:next:sz=0:return:rem auffuellen
530 :
540 get#1,a$:ifasc(a$)<>13goto540:zeile ueberlesen
550 goto220