home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 91
/
64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64
/
master-fox
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
959b
|
40 lines
100 rem master-fox
110 rem
120 rem 01.03.87 by p.engels
130 rem ----------------------
140 rem
150 printchr$(14)"[147][205]astertext -> [208]rint[198]ox"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$(84);:rem text-kennung
200 print:print
210 get#1,a$:get#1,a$:rem start adresse ueberlesen
220 get#1,a$:ifa$=""thena$=chr$(0)
230 a=asc(a$):b=0
240 if(a<27)thenb=a+96:goto360:rem klein
250 if(a>31)and(a<91)thenb=a:goto360:rem ziffern,zeichen,grossbuchst.
260 ifa=160thenb=127:rem shift space
270 ifa=142thenb=13:rem absatz
280 ifa=91thenb=91:rem ae
290 ifa=92thenb=92:rem oe
300 ifa=93thenb=93:rem ue
310 ifa=27thenb=123:rem ae
320 ifa=28thenb=124:rem oe
330 ifa=29thenb=125:rem ue
340 ifa=30thenb=126:rem sz
350 :
360 printchr$(b);
370 ifst=2goto420:rem file-ende
380 if b=0goto220
390 print#2,chr$(b);:ifb=13goto460:rem spaces ueberlesen
400 goto220
410 :
420 print#2,chr$(0);chr$(0):rem endekennung
430 close1:close2
440 print:print:print"[212]ext ist konvertiert !![146]":end
450 :
460 get#1,a$:ifa$=""thena$=chr$(00):goto460
470 ifa$=chr$(32)then460:spaces ueberlesen
480 goto230