REVO2700 '
cellnet_demo P on handlecelula celula,numb
put "+351 964079329" into defaultnum
put ptcel() into defaultcel
if celula is empty or numb is empty then
put defaultcel into field "celula"
put defaultnum into button "telnumero"
else
-- derivar mcc pelo indicativo? na relaidade, nao, deveria ser da georef - obter mcc e mnc, etc.
-- usar getMCC e getMNC para actualizar celula com texto de pais e operador,
end if
end handlecelula
on resetcenario
put empty into field "acto"
hide field "ficha"
hide field "list_sintomas"
hide field "MCCtable"
hide field "fhospital1"
hide field "fhospital2"
hide image "notebook.gif"
end resetcenario
function ptcel
return "MCC: 268 (Portugal)"&cr&"MNC: 1 (Vodafone)"&cr&"LAC: 51 (Aveiro area)"&cr&"CellID: 23661 (CF Aveiro stop)"
end ptcel
function cvcel
return "MCC: 625 (Cabo Verde)"&cr&"MNC: 1 (CVTelecom)"&cr&"LAC: yy (Ilha do Sal)"&cr&"CellID: nnnnn (Marina do Sal)"
end cvcel
function getmedfile teln,celn -- temp
if teln contains "+351" then
put teln&cr&"Mario Turipi"&cr&"Age: 99"&cr&"alergic to stupids"&cr&"non-smoker" into ficha
else
put teln&cr&"Alessandra Lupini"&cr&"Age: 19"&cr&"alergic to snakes"&cr&"smokes cuban cigars" into ficha
end if
put ficha into field "ficha"
return ficha
end getmedfile
on moveicon orig,dest,speed
put "notebook.gif" into ic
if speed is empty then put 30 into speed -- in ticks
show image ic
if there is a field orig then put "field "&orig into porig
if there is a button orig then put "button "&orig into porig
if there is a field dest then put "field "&dest into pdest
if there is a button dest then put "button "&dest into pdest
move image ic from the loc of porig to the loc of pdest in speed ticks
end moveicon
function getMCC cod
put bg field "mcctable" into mtable
put getlinenumber(cod&",",mtable) into ix
if ix = 0 then
return "?"
else
return item 2 of line ix of mtable
end if
-- if cod is 268 then
-- return "Portugal"
-- else if cod is 234 then
-- return "Spain"
-- else
-- return "?"
-- end if
end getMCC
function getMNC cod,op
if cod= 268 then
if op = 1 or op = "01" then
return "Vodafone"
else if op = 3 or op = "03" then
return "Optimus"
else if op = 6 or op = "06" then
return "TMN"
end if
end if
return "?"
end getMNC
" .
U Lucida Grande U cREVGeneral breakpointconditions scripteditorvscroll 0 breakpoints scripteditorselection 891breakpointstates @
! " # % & '
hospital1 Ep"on mouseUp
answer "Medico Francisco"
end mouseUp
on receber x,y
set the hilite of me to true
put the short name of me into med
put "f"&med into fname
put "Daqui medico "&med&" recebendo mensagem destinada a: "&y&cr&cr&"Mensagem:"&x into mss
put mss into field fname
show field fname
revspeak "Hello, "&y&" got the file"
wait 3 secs
hide field fname
if x contains "diarreia" then
put "beber agua e so' comer caldos de arroz." into pact
else if x contains "febre" then
put "tomar aspegic dissolvida em agua." into pact
else
put "venha imediatamente ao hospital" into pact
end if
moveicon fname,"acto"
put "Medico "&y&cr&cr&"Ficha recebida:"&cr&x&cr&cr&"Acto:"&pact into field "acto"
set the hilite of me to false
end receber
* T cREVGeneral revUniqueID
1270145839313scripteditorvscroll 0scripteditorselection 357 sistema Mpon mouseUp
resetcenario
put the short name of me into sysname
put field "sintomas" into sint
moveicon "sintomas",sysname
set the hilite of me to true
wait 1 secs
set the hilite of me to false
-- get file:
put the label of button "telnumero" into teln
put field "celula" into celn
put getmedfile(teln,celn) into medfile
put medfile&cr&cr&"queixas:"&cr&sint into report
show field "ficha"
moveicon sysname,"ficha"
set the hilite of me to true
wait 50 ticks
set the hilite of me to false
-- analise symptoms
if sint contains "febre" then
put "Ale" into medico
put "receber "&report&comma&medico into mss
else if sint contains "diarreia" then
put "Mario" into medico
put "receber "&report&comma&medico into mss
else if sint = "espirro" then
put "you are not sick; toca a ir para a cama dormir" into response
put response&cr&cr&report into field "acto"
revspeak response
put empty into mss
else
beep
put "You need to see a doctor right now" into response
put response&cr&cr&report into field "acto"
revspeak response
put empty into mss
end if
if celn contains "ilha do sal" then
put "hospital1" into tgt
else
put "hospital2" into tgt
end if
if mss is not empty then
moveicon sysname,tgt
send mss to button tgt
else
moveicon sysname,"acto"
end if
--wait 5 sec
--hide field "ficha"
end mouseUp
* V cREVGeneral revUniqueID
1270145848289scripteditorvscroll 215scripteditorselection 512
ficha )` . p ~ cREVGeneral revUniqueID
1270145854460 +351 964079329
Mario Turipi Age: 99 alergic to stupids non-smoker
acto )` ( cREVGeneral revUniqueID
1270146061319 Medico Ale Ficha recebida: +351 964079329
Mario Turipi Age: 99 alergic to stupids non-smoker queixas: febre 'Acto:tomar aspegic dissolvida em agua.
Label Field
cREVTable currentview ACCAO A DAR SEQUENCIA: cREVGeneral revUniqueID
1270146195541 ACCAO A DAR SEQUENCIA:
notebook.gif P #on mouseup
hide me
end mouseup
V &GIF89a """̙f3www3ff ! , @*\0( bDj . @
EN(I= yK-ϛ;^ɲ"AUR) ӧH
HǨ)u.-J M rٳc x (ʝVZ2Cr-z7gĝ{[nk, n0͐u8 0Z- :pXh'鐒Z߭1<0h2v[\Un4pٜ=>;%iߦs٨k5zߣ/ ;; cREVGeneral revUniqueID
1270268924778scripteditorvscroll 0scripteditorselection 21
hospital2 Ep"on mouseUp
answer "Medico Francisco"
end mouseUp
on receber x,y
set the hilite of me to true
put the short name of me into med
put "f"&med into fname
put "Daqui medico "&med&" recebendo mensagem destinada a: "&y&cr&cr&"Mensagem:"&x into mss
put mss into field fname
show field fname
revspeak "Hello, "&y&" got the file"
wait 3 secs
hide field fname
if x contains "diarreia" then
put "beber agua e so' comer caldos de arroz." into pact
else if x contains "febre" then
put "tomar aspegic dissolvida em agua." into pact
else
put "venha imediatamente ao hospital" into pact
end if
moveicon fname,"acto"
put "Medico "&y&cr&cr&"Ficha recebida:"&cr&x&cr&cr&"Acto:"&pact into field "acto"
set the hilite of me to false
end receber
" V cREVGeneral scripteditorvscroll 0 revUniqueID
1270579024135scripteditorselection 357
mcctable !h T > cREVGeneral revUniqueID
1270702499670 454,Hong Kong 232,Austria 625,Cabo Verde 632,Guine Bissau
222,Italy 262,Germany
214,Spain 272,Ireland
502,Malaysia 525,Singapore 310,USA 240,Sweden 230,Czech Republic 208,France 244,Finland 260,Poland 334,Mexico 270,Luxembourg 280,Cyprus 206,Belgium 216,Hungary 234,United kingdom
268,Portugal 242,Norway
410,Pakistan
231,Slovakia 250,Russia 255,Ukraine 219,Croatia 604,Morocco 466,Taiwan 204,Netherlands 302,Canada
293,Slovenia 238,Denmark 228,Switzerland 202,Greece 655,South Africa
440,Japan ` group_citizen i , cREVGeneral revUniqueID
1270702694318
sintomas )` 04 V sintomas cREVGeneral revUniqueID
1270700985640 febre ` 5 T
telnumero +u on menuPick pItemName
if pItemName contains "+351" then
put ptcel() into field "celula"
else if pItemName contains "+238" then
put cvcel() into field "celula"
else
put empty into field "celula"
end if
end menuPick
0
telnumero 7 +351 964079329 6+238 9161034
+238 9160044
+33 34567890
+351 964079329
cREVGeneral revUniqueID
1270701221430scripteditorvscroll 0scripteditorselection 231
celula )p ]on mouseup
put field "telnumero" into numb
get me
handlecelula it,numb
end mouseup
0 < celula cREVGeneral revUniqueID
1270701942345scripteditorvscroll 0scripteditorselection 18 MCC: 268 (Portugal) MNC: 1 (Vodafone) LAC: 51 (Aveiro area) CellID: 23661 (CF Aveiro stop)
list_sintomas #!p Fon mouseup
put the selectedtext into field "sintomas"
end mouseup
list_sintomas
cREVTable currentview -febre
sangrar
espirro
tosse
vomitos
diarreia
cREVGeneral revUniqueID
1270703393922scripteditorvscroll 0scripteditorselection 34 febre sangrar espirro tosse vomitos diarreia ` ! sintomas Ewon mouseUp
set the visible of field "list_sintomas" to not the visible of field "list_sintomas"
set the hilitedLine of field "list_sintomas" to empty
end mouseUp
--Use the select empty form to deselect all objects and text. To select an object without deselecting any objects that are already selected, use the selected property instead of the select command.
--To select lines in a list field, set the field's hilitedLine property instead of using the select command.
--To change the selection in an option menu or combo box use the menuHistory property instead of the select command.
--To select text in a field, the field's traversalOn property must be set to true
J toggle lista
de sintomas cREVGeneral revUniqueID
1270703608253scripteditorvscroll 0scripteditorselection 156 " metal-brushed290-264.jpg @ P" Ub JFIF H H 6Exif MM * b j( 1 r2 i H H Adobe Photoshop CS Macintosh 2009:12:06 03:11:54 " &( . H H \Photoshop 3.0 8BIM% 8BIM
com.apple.print.PageFormat.PMHorizontalRes
com.apple.print.ticket.creator
com.apple.jobticket
com.apple.print.ticket.itemArray
com.apple.print.PageFormat.PMHorizontalRes
72
com.apple.print.ticket.stateFlag
0
com.apple.print.PageFormat.PMOrientation
com.apple.print.ticket.creator
com.apple.jobticket
com.apple.print.ticket.itemArray
com.apple.print.PageFormat.PMOrientation
1
com.apple.print.ticket.stateFlag
0
com.apple.print.PageFormat.PMScaling
com.apple.print.ticket.creator
com.apple.jobticket
com.apple.print.ticket.itemArray
com.apple.print.PageFormat.PMScaling
1
com.apple.print.ticket.stateFlag
0
com.apple.print.PageFormat.PMVerticalRes
com.apple.print.ticket.creator
com.apple.jobticket
com.apple.print.ticket.itemArray
com.apple.print.PageFormat.PMVerticalRes
72
com.apple.print.ticket.stateFlag
0
com.apple.print.PageFormat.PMVerticalScaling
com.apple.print.ticket.creator
com.apple.jobticket
com.apple.print.ticket.itemArray
com.apple.print.PageFormat.PMVerticalScaling
1
com.apple.print.ticket.stateFlag
0
com.apple.print.subTicket.paper_info_ticket
PMPPDPaperCodeName
com.apple.print.ticket.creator
com.apple.jobticket
com.apple.print.ticket.itemArray
PMPPDPaperCodeName
A4
com.apple.print.ticket.stateFlag
0
PMTiogaPaperName
com.apple.print.ticket.creator
com.apple.jobticket
com.apple.print.ticket.itemArray
PMTiogaPaperName
iso-a4
com.apple.print.ticket.stateFlag
0
com.apple.print.PageFormat.PMAdjustedPageRect
com.apple.print.ticket.creator
com.apple.jobticket
com.apple.print.ticket.itemArray
com.apple.print.PageFormat.PMAdjustedPageRect
0
0
783
559
com.apple.print.ticket.stateFlag
0
com.apple.print.PageFormat.PMAdjustedPaperRect
com.apple.print.ticket.creator
com.apple.jobticket
com.apple.print.ticket.itemArray
com.apple.print.PageFormat.PMAdjustedPaperRect
-18
-18
824
577
com.apple.print.ticket.stateFlag
0
com.apple.print.PaperInfo.PMPaperName
com.apple.print.ticket.creator
com.apple.jobticket
com.apple.print.ticket.itemArray
com.apple.print.PaperInfo.PMPaperName
iso-a4
com.apple.print.ticket.stateFlag
0
com.apple.print.PaperInfo.PMUnadjustedPageRect
com.apple.print.ticket.creator
com.apple.jobticket
com.apple.print.ticket.itemArray
com.apple.print.PaperInfo.PMUnadjustedPageRect
0
0
783
559
com.apple.print.ticket.stateFlag
0
com.apple.print.PaperInfo.PMUnadjustedPaperRect
com.apple.print.ticket.creator
com.apple.jobticket
com.apple.print.ticket.itemArray
com.apple.print.PaperInfo.PMUnadjustedPaperRect
-18
-18
824
577
com.apple.print.ticket.stateFlag
0
com.apple.print.PaperInfo.ppd.PMPaperName
com.apple.print.ticket.creator
com.apple.jobticket
com.apple.print.ticket.itemArray
com.apple.print.PaperInfo.ppd.PMPaperName
A4
com.apple.print.ticket.stateFlag
0
com.apple.print.ticket.APIVersion
00.20
com.apple.print.ticket.type
com.apple.print.PaperInfoTicket
com.apple.print.ticket.APIVersion
00.20
com.apple.print.ticket.type
com.apple.print.PageFormatTicket
8BIM x H H /8Ag{ H H ( d h 8BIM H H 8BIM& ? 8BIM
8BIM 8BIM 8BIM
8BIM'
8BIM H /ff lff /ff 2 Z 5 - 8BIM p 8BIM @ @ 8BIM 8BIM [ " b r u s h e d - m e t a l - s t e p 3 " null boundsObjc Rct1 Top long Leftlong Btomlong Rghtlong " slicesVlLs Objc slice sliceIDlong groupIDlong originenum ESliceOrigin
autoGenerated Typeenum
ESliceType Img boundsObjc Rct1 Top long Leftlong Btomlong Rghtlong " urlTEXT nullTEXT MsgeTEXT altTagTEXT cellTextIsHTMLbool cellTextTEXT horzAlignenum ESliceHorzAlign default vertAlignenum ESliceVertAlign default bgColorTypeenum ESliceBGColorType None topOutsetlong
leftOutsetlong bottomOutsetlong rightOutsetlong 8BIM( ? 8BIM 8BIM! S A d o b e P h o t o s h o p A d o b e P h o t o s h o p C S 8BIM http://ns.adobe.com/xap/1.0/
1
290
264
1
72/1
72/1
2
2009-12-06T03:11:54Z
2009-12-06T03:11:54Z
2009-12-06T03:11:54Z
Adobe Photoshop CS Macintosh
adobe:docid:photoshop:3de93275-e3a7-11de-ba1a-8325229eab1b
image/jpeg
XICC_PROFILE HLino mntrRGB XYZ 1 acspMSFT IEC sRGB -HP cprt P 3desc lwtpt bkpt rXYZ gXYZ , bXYZ @ dmnd T pdmdd vued L view $lumi meas $tech 0 rTRC < gTRC < bTRC < text Copyright (c) 1998 Hewlett-Packard Company desc sRGB IEC61966-2.1 sRGB IEC61966-2.1 XYZ Q XYZ XYZ o 8 XYZ b XYZ $ desc IEC http://www.iec.ch IEC http://www.iec.ch desc .IEC 61966-2.1 Default RGB colour space - sRGB .IEC 61966-2.1 Default RGB colour space - sRGB desc ,Reference Viewing Condition in IEC61966-2.1 ,Reference Viewing Condition in IEC61966-2.1 view _. \ XYZ L V P W meas sig CRT curv
# ( - 2 7 ; @ E J O T Y ^ c h m r w |
%+28>ELRY`gnu| &/8AKT]gqz !-8COZfr~ -;HUcq~
+:IXgw'7HYj{+=Oat 2FZn % : O d y
'
=
T
j
" 9 Q i * C \ u
&
@
Z
t
.Id %A^z &Ca~1Om&Ed#Cc'Ij4Vx&Il Ae@e Ek*Qw;c * R { G p @ j > i A l ! !H!u!!!"'"U"""#
#8#f###$ $M$|$$% %8%h%%%&'&W&&&''I'z''(
(?(q(())8)k))**5*h**++6+i++,,9,n,,- -A-v--..L.../$/Z///050l0011J1112*2c223
3F3334+4e4455M555676r667$7`7788P8899B999:6:t::;-;k;;<' >`>>?!?a??@#@d@@A)AjAAB0BrBBC:C}CDDGDDEEUEEF"FgFFG5G{GHHKHHI IcIIJ7J}JK KSKKL*LrLMMJMMN%NnNO OIOOP'PqPQQPQQR1R|RSS_SSTBTTU(UuUVV\VVWDWWX/X}XYYiYZZVZZ[E[[\5\\]']x]^^l^__a_``W``aOaabIbbcCccd@dde=eef=ffg=ggh?hhiCiijHjjkOkklWlmm`mnnkno oxop+ppq:qqrKrss]sttptu(uuv>vvwVwxxnxy*yyzFz{{c{|!||}A}~~b~#G
k͂0W Grׇ;iΉ3dʋ0cʍ1fΏ6n֑?zM _ɖ4
uL$h՛B dҞ@ iءG&vVǥ8nRĩ7 u\ЭD- u`ֲK³8%yhYѹJº;.!
zpg_XQKFAǿ=ȼ:ɹ8ʷ6˶5̵5͵6ζ7ϸ9к<Ѿ?DINU\dlvۀ܊ݖ ޢ)߯6DScs
2F[p(@Xr4Pm8Ww)Km !Adobe d
"" " !" 1# 1A2!BQ q3
() !A@ !A@(! ()H
!A@ PPP@ !A ) !AHAHPR ( @A@ R ) B
R (!A@( !@ (HR )R@ ) )@( ) ( !HP (( )P@@B @
PP@ ! PP
!@
P P@@ ( S% P B B
RC B )A@ d P
@
P P
B !A
P@
h)
@
(!
P
( )J ( @) ()A @R ( P@ B@@P
P !
@
@ )
R !HR 2
? / / ͌\b.X"2YNIJY,;T
TĪe2G DԚS0("_!_K GN̲ ?:A dܖi2d%s_5 BlKddXȒ+#u?J $ԚFjԔu̙H>K4ΐȱ?:tRtE$|Q#H4646IÃÇ!cL!DUC62̳,ɔe24lY,;I$FXtMs6&~!2eXcL4͍dXb! MMTSȳ ,GɒfXd"*p P5QJ:t̳,eD"LFeC%pBhM>I,EM &eÄTB8I'N:AÇ54#F)!b8p{= ,h:K,<4iGCSU4MMU5cU!fbv5cL٤;TFx<F$Y,z&ijߒJ!?d?fjƬif_:tmf4J8K=blM pK&VdIdO"45Oc4K(y8J' F+ajn+TVDY,ȒQlՉ C73b,C 䊍TH20a >p22̱cL gRY,$ ufd3b.{3b,z"lfؖK$MO'̿!d"*$jJ&h!2FjfTu<9H?C?D~&$I' 8A #*EIGQ5$+3l3fbIgI,(#3NflfnC:tt
d\z"X͆:t蛓sMdfK5cV6sH5RQfPX͏ ? ? ? eׁ^]x11ԌPA;[[>2Ӂ^]x5G;( ) SFJ5tבǡ!! qW#+^FY/'*bbbb
cST5P A\q xNHz?FJ =tm1Zbd u5Tjn6]x2Ԍ q S!5y =ADdw$f:Y h=St2˗ƨS
d+:ts>>@dI
A2H;
;
AC$BCϲ:::St$tB >1F:ڑ\ zUz#בcf5
y!# 2 \˗ u1e˯. GQc 6;6 S S uuߓe#%5\t +;&60"2R5#%=
SN#B2;[[[UzQ51YcIA-q=={"D a6dHACRPjXo?X-efd GY2!;P}qL}| mZFGSddd%s$d^Lqs\בd!B.BcTj0 0QNen6CFY(B2!2U2e a 2ׂC^
pzoj],j)a~(~(YY $d+$11,b2j
B2#"2#!= &=G =P}Zrda،dKb 6lz= D&5FUFFqMx=2> # g DNI1ej cf+5ffj:=G1t :k=?!s*\ʅ;2^OO aIfI1̌e,7σ < $d+$0 h$dA }ȗ &+51YS=Y !QQQ֣Og{=eS;Lu1F;}PA$mk]~:Zer2#"ŋ -rбkN.z h>[le1h:Pd,wZ,8:?ڃ i!~~
x#%uO| cn5T T]FUTrbd
AF)!C 2Y%Jr6o 5䆼h2}~ 3AӣeQ=nF ~:2ژaahFк A P v1ao?c&5NLVh5P (:IPXe%d ^ebzB(wד\.\5.nbS PzQt P@d5GN$H̸2 *8:p=-r ;ȌMOg q6jF*bPc}}FFDG22 Fueד
A#&!;^FI {!Qq12kNGZNH9"DuɮFƭI>12
QjFj5TƣTd oQaX;IP6%av"Du h>>AiɒNH'uYܽǯ=!i 'o#=K!C?V#+ ˯lz= @t:MGI1}!C &w_N$5l23,ȑ.BcI}Hp=,BV-b$C^ԍp@9 rDѐd32
Ơ4S U2Hd2 &2Ld deEʗ2 tJ=T2233C$2AE VCPo @tב^Mr62kɯ#jc
цacz au2W%̖FKQu c- C! hcKB2 GR$fFeI;"L3 P cREVGeneral revUniqueID
1270703661952 # MCC Ew fon mouseUp
set the visible of field "MCCtable" to not the visible of field "MCCtable"
end mouseUp
^ J toggle lista
de MCC cREVGeneral revUniqueID
1270703771092scripteditorvscroll 0scripteditorselection 100
% fhospital1 !p #on mouseup
hide me
end mouseup
* 6 cREVGeneral revUniqueID
1270706103469scripteditorvscroll 0scripteditorselection 33 ;Daqui medico hospital1 recebendo mensagem destinada a: Ale Mensagem:+238 9160044 Alessandra Lupini Age: 19 alergic to snakes smokes cuban cigars queixas: febre
& fhospital2 !p #on mouseup
hide me
end mouseup
cREVGeneral revUniqueID
1270706134029scripteditorvscroll 0scripteditorselection 34 ;Daqui medico hospital2 recebendo mensagem destinada a: Ale Mensagem:+351 964079329
Mario Turipi Age: 99 alergic to stupids non-smoker queixas: febre ' reset Ew$on mouseUp
resetcenario
end mouseUp
--Use the select empty form to deselect all objects and text. To select an object without deselecting any objects that are already selected, use the selected property instead of the select command.
--To select lines in a list field, set the field's hilitedLine property instead of using the select command.
--To change the selection in an option menu or combo box use the menuHistory property instead of the select command.
--To select text in a field, the field's traversalOn property must be set to true
J reset cenario cREVGeneral scripteditorvscroll 0 revUniqueID
1270709029978scripteditorselection 23