home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / bwbasic-2.10.sit / bwbasic-2.10 / bwbtest / callsub.bas < prev    next >
BASIC Source File  |  1993-11-09  |  889b  |  33 lines
  1.  
  2. rem ----------------------------------------------------
  3. rem CallSub.BAS
  4. rem ----------------------------------------------------
  5.  
  6. Print "CallSub.BAS -- Test BASIC Call and Sub Statements"
  7. Print "The next printed line should be from the Subroutine."
  8. Print
  9. testvar = 17
  10.  
  11. Call TestSub 5, "Hello", testvar
  12.  
  13. Print
  14. Print "This is back at the main program. "
  15. Print "The value of variable <testvar> is now "; testvar
  16.  
  17. Print "Did it work?"
  18. End
  19.  
  20. rem ----------------------------------------------------
  21. rem Subroutine TestSub
  22. rem ----------------------------------------------------
  23.  
  24. Sub TestSub( xarg, yarg$, tvar )
  25.    Print "This is written from the Subroutine."
  26.    Print "The value of variable <xarg> is"; xarg
  27.    Print "The value of variable <yarg$> is "; yarg$
  28.    Print "The value of variable <tvar> is "; tvar
  29.    tvar = 99
  30.    Print "The value of variable <tvar> is reset to "; tvar
  31. End Sub
  32.  
  33.