home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / amos_tips / guru / guru.amos / guru.amosSourceCode
Encoding:
AMOS Source Code  |  1992-03-02  |  573 b   |  23 lines
  1. '**********************************************
  2. '*                  Guru.AMOS                 *
  3. '*          ï¿½1992 by Volker Stepprath         *
  4. '*  Calls a DisplayAlert ( Guru Meditation )  *
  5. '**********************************************
  6. '
  7. Amos To Back 
  8. '
  9. '**** Define text in display ****
  10. '
  11. T$=Chr$(0)+Chr$(75)+Chr$(38)+" No panic ... "
  12. T$=T$+"This GURU was called up by AMOS !"+Chr$(0)
  13. '
  14. '**** Call up DisplayAlert ( Guru ) ****   
  15. '
  16. Areg(0)=Varptr(T$)
  17. Dreg(1)=80
  18. XALERT=Intcall(-90)
  19. '
  20. If XALERT Then Print "left button" Else Print "right button"
  21. '
  22. Amos To Front 
  23. End