home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 2 / sauce-n-code-02.adf / ASCII_Source / Guru.asc < prev    next >
Text File  |  1995-07-02  |  578b  |  29 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 
  24.  
  25.  
  26.  
  27.  
  28.  
  29.