home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI03.ARJ / ictari.03 / GFA / TUTORIAL / PROCED_3.GFA (.txt) < prev    next >
GFA-BASIC Atari  |  1989-07-29  |  926b  |  40 lines
  1. v1%=5
  2. '
  3. PRINT "V1 before procedures: ";v1%
  4. one
  5. ' two                                      ! To 'Activate' Remove Comment Marker
  6. ' three(v1%)                               ! To 'Activate' Remove Comment Marker
  7. PRINT CHR$(10);"V1 after procedures: ";v1%
  8. PRINT "Check V2 after procedures: ";v2%
  9. '
  10. PRINT CHR$(7);
  11. ~INP(2)
  12. EDIT
  13. '
  14. '
  15. '
  16. PROCEDURE one
  17.   LOCAL v1%
  18.   PRINT CHR$(10);" ENTER ONE"
  19.   PRINT "  Local V1: ";v1%
  20.   v1%=3
  21.   PRINT "  Local V1: ";v1%
  22.   PRINT " LEAVE ONE"
  23. RETURN
  24. '
  25. '
  26. PROCEDURE two
  27.   PRINT CHR$(10);" ENTER TWO"
  28.   PRINT "  Global V1: ";v1%
  29.   ADD v1%,1
  30.   PRINT "  Global V1: ";v1%
  31.   PRINT " LEAVE TWO"
  32. RETURN
  33. '
  34. '
  35. PROCEDURE three(v2%)
  36.   PRINT CHR$(10);" ENTER THREE"
  37.   PRINT "  Passed (Local) V2: ";v2%
  38.   PRINT " LEAVE THREE"
  39. RETURN
  40.