home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The AGA Experience 1
/
agavol1.iso
/
aga_programmers
/
source
/
checkaga
/
checkagatest.e
< prev
next >
Wrap
Text File
|
1978-06-28
|
200b
|
11 lines
/*
** Program to test the module 'other/checkaga'
*/
MODULE 'other/checkaga'
PROC main()
IF checkaga()=TRUE THEN WriteF('- AGA -\n')
IF checkaga()=FALSE THEN WriteF('- NO AGA -\n')
ENDPROC