home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
polminet
/
jakub_zalepa
/
wymowaamisîownik
/
wym.ami
< prev
Wrap
Text File
|
1998-01-01
|
276b
|
17 lines
/* Wymawiaj.rexx */
OPTIONS RESULTS
ADDRESS 'rexx_a-p'
AMIFILE
IF ~OPEN('P','RAM:AMISLOWNIK_A-P','r') THEN EXIT
slowo = READLN('P')
slowo = READLN('P')
slowko = WORD(slowo,1)
CLOSE('P')
ADDRESS COMMAND 'DH1:SAY "'||slowko||'"'
ADDRESS COMMAND 'DELETE RAM:AMISLOWNIK_A-P'