home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
polminet
/
jakub_zalepa
/
tasstring
/
tasstring.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1998-01-01
|
475b
|
28 lines
/* tasuj stringi */
OPTIONS RESULTS
IF ~OPEN('S1','RAM:Source1','r') THEN LEAVE
IF ~OPEN('S2','RAM:Source2','r') THEN LEAVE
IF ~OPEN('D','RAM:Dest','w') THEN LEAVE
DO UNTIL EOF('S1')
linia1 = READLN('S1')
control = LEFT(linia1, 2)
IF control = 'ID' THEN DO
/* SAY('Îâczë...\n') */
WRITELN('D', linia1)
linia2 = READLN('S2')
WRITELN('D', linia2)
END
IF control ~= 'ID' THEN DO
IF control ~= '##' THEN WRITELN('D', linia1)
END
END