home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ob140os2.zip / FCNDEMO.B < prev    next >
Text File  |  1997-09-17  |  290b  |  26 lines
  1. * This shows the use of functions
  2.  
  3. #FCN VoidFcn() VOID
  4. #FCN IntFcn() INT
  5. #FCN FcnPtr() VOID POINTER
  6.  
  7. DIM X:LONG
  8.  
  9. X=4
  10.  
  11. VoidFcn()
  12. PRINT IntFcn(X)
  13. FcnPtr=VoidFcn
  14. FcnPtr()
  15.  
  16. * Functions begin here
  17.  
  18. VoidFcn:
  19. PRINT "Void Function"
  20. RETURN
  21.  
  22. IntFcn:
  23. PARAM Z:LONG
  24. RETURN Z*2
  25.  
  26.