'**********************************************
'*                  Guru.AMOS                 *
'*          ©1992 by Volker Stepprath         *
'*  Calls a DisplayAlert ( Guru Meditation )  *
'**********************************************
'
Amos To Back 
'
'**** Define text in display ****
'
T$=Chr$(0)+Chr$(75)+Chr$(38)+" No panic ... "
T$=T$+"This GURU was called up by AMOS !"+Chr$(0)
'
'**** Call up DisplayAlert ( Guru ) ****   
'
Areg(0)=Varptr(T$)
Dreg(1)=80
XALERT=Intcall(-90)
'
If XALERT Then Print "left button" Else Print "right button"
'
Amos To Front 
End