home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh91a.d64
/
master-fox
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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