home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / utilities / programmers / source / checkaga / checkagatest.e < prev    next >
Encoding:
Text File  |  1978-06-29  |  200 b   |  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.