home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 1 / agavol1.iso / aga_programmers / source / checkaga / checkagatest.e < prev    next >
Text File  |  1978-06-28  |  200b  |  11 lines

  1. /*
  2. ** Program to test the module 'other/checkaga'
  3. */
  4.  
  5. MODULE 'other/checkaga'
  6.  
  7. PROC main()
  8.     IF checkaga()=TRUE  THEN WriteF('- AGA -\n')
  9.     IF checkaga()=FALSE THEN WriteF('- NO AGA -\n')
  10. ENDPROC
  11.