home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
bazy
/
ownwords
/
support
/
ped
/
last.ped
< prev
next >
Wrap
Text File
|
1996-12-04
|
773b
|
61 lines
/* start this from PED */
OPTIONS results
SEPARATOR=".,;:_/\|'@1234567890!?#$%&()[]{}=*+^-~`<> "
parse arg PEDport
if PEDport = '' then PEDport="PED_AREXX"
address value PEDport
GUI LOCK
QUERY MEMCURSORCOL
ncolonna=result+1
QUERY LINE
riga=result
i=ncolonna+1
DO WHILE i>0
i=i-1
IF i=0 THEN BREAK
c=SUBSTR(riga,i,1)
ok=0
IF POS(c,SEPARATOR)=0 THEN ok=1
IF ok=0 THEN BREAK
END
szo=""
DO j=i+1 to 1000
c=SUBSTR(riga,j,1)
ok=0
IF POS(c,SEPARATOR)=0 THEN ok=1
IF ok=0 THEN BREAK
szo=szo||c
END
if ~show(ports, OWNWORDS) then
do
ADDRESS COMMAND 'run >nil: OwnWords'
ADDRESS COMMAND 'SYS:REXXC/WaitForPort OWNWORDS'
ADDRESS OWNWORDS
GUI PUBSCREEN "PED_SCREEN"
end
ADDRESS OWNWORDS
FIND word szo last win
address value PEDport
GUI UNLOCK