\start83P\
\comment=Program file dated 03/16/00, 18:02
\protected=TRUE
\name=MESSENGR
ClrHome
Disp "STARTING UP..."
" "\->\Str1
" "\->\Str2
ClrHome
Disp "   MESSENGER"
Pause 
ClrHome
Lbl 1
ClrHome
Menu("MESSENGER","LOG ON",2,"QUIT",3)
Lbl 2
ClrHome
" "\->\Str1
" "\->\Str2
Menu("LOGON AS","USER 1",4,"USER 2",5,"BACK",1)
Lbl 4
1\->\U
Goto 6
Lbl 5
2\->\U
Goto 6
Lbl 6
ClrHome
Menu("MAIN MENU","COMPOSE",7,"CHECK",8,"SWITCH USER",2,"QUIT",3)
Lbl 7
ClrHome
If U=1
Then
Input "MESSAGE?        ",Str1
End
If U=2
Then
Input "MESSAGE?        ",Str2
End
ClrHome
Disp "MESSAGE QUEUED"
Pause 
Goto 6
Lbl 8
ClrHome
Disp "CHECKING..."
If U=1
Then
GetCalc(Str2)
If Str2=" "
Then
ClrHome
Disp "NO NEW MAIL"
Pause 
Goto 6
End
ClrHome
Pause Str2
Goto 6
End
If U=2
Then
GetCalc(Str1)
If Str1=" "
Then
ClrHome
Disp "NO NEW MAIL"
Pause 
Goto 6
End
ClrHome
Pause Str1
Goto 6
End
Lbl 3
ClrHome
Stop
\stop83P\