home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 2: PC
/
frozenfish_august_1995.bin
/
bbs
/
d09xx
/
d0925.lha
/
DonsGenies
/
FrenchGenies.lha
/
Rexx
/
IdentifieBoîte.pprx
< prev
next >
Wrap
Text File
|
1993-08-03
|
1KB
|
49 lines
/*
@BIdentifieBoεte @P @I Ecrit et ⌐ par Don Cox
@IN'est pas du Domaine Publique. Tous Droits RΘservΘs.
Traduit et modifiΘ par Fabien Larini le 22/07/93.
Ce GΘnie affiche le nom, le numΘro et la donnΘe utilisateur de la boεte sΘlectionnΘe.
*/
/*BoxIdentify*/
/* Get name and number of box. The user data will only be present if it has been put in the box by a genie.
Written by Don Cox */
trace n
signal on error
signal on syntax
address command
call SafeEndEdit.rexx()
address command
call SafeEndEdit.rexx()
box=ppm_ClickOnBox("Clickez dans la Boεte α Identifier")
if box=0 then exit_msg("Pas de Boεte SΘlectionnΘe")
boxname = ppm_GetBoxName(box)
if boxname = "" then boxname = "(Sans Nom)"
thisbox = ppm_BoxNum(box)
udata = ppm_GetBoxUserData(box)
if udata = 0 then udata = "Pas de"
call exit_msg("Nom: "boxname" NumΘro: "box" DonnΘe Utilisateur: "udata))
end
error:
syntax:
do
exit_msg("ArrΩt du GΘnie d√ α l'erreur: "errortext(rc))
end
exit_msg:
do
parse arg message
if message ~= "" then
call ppm_Inform(1,message,)
call ppm_ClearStatus()
call ppm_AutoUpdate(1)
exit
end