ChipMaster
/
bwBASIC
1
0
Fork 0
Code Issues 22 Pull Requests 0 Releases 17 Wiki Activity
ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
10 Commits
3 Branches
4.5 MiB
 
 
 
 
 
 
Tree: v3.00
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'v3.00'
${ noResults }
bwBASIC/NBS2/P085.run

45 lines
3.5 KiB
Raw Permalink Blame History 

  1. PROGRAM FILE 85: GENERAL CAPABILITIES OF GOSUB/RETURN.                          

  2.     ANSI STANDARD 10.4                                                          

  3.                                                                                 

  4. SECTION 85.1: SIMPLE NESTING OF GOSUBS.                                         

  5.                                                                                 

  6. THIS SECTION TESTS THAT SUBROUTINES MAY CALL ONE ANOTHER                        

  7. AND THAT A SUBROUTINE MAY BE CALLED FROM SEVERAL PLACES.                        

  8.                                                                                 

  9.                   BEGIN TEST.                                                   

  10.                                                                                 

  11.                                                                                 

  12. ***  TEST PASSED  ***                                                           

  13.                                                                                 

  14.                   END TEST.                                                     

  15.                                                                                 

  16.                                                                                 

  17. SECTION 85.2: STACKING OF RETURN ADDRESSES.                                     

  18.                                                                                 

  19. THIS SECTION TESTS THAT RETURN ADDRESSES ARE PROPERLY                           

  20. STACKED BY GOSUBS (INCLUDING SEVERAL EXECUTIONS OF THE                          

  21. SAME GOSUB) AND UNSTACKED BY CORRESPONDING RETURNS.                             

  22.                                                                                 

  23.                  BEGIN TEST.                                                    

  24.                                                                                 

  25.                                                                                 

  26. ***  TEST PASSED  ***                                                           

  27.                                                                                 

  28.                   END TEST.                                                     

  29.                                                                                 

  30.                                                                                 

  31. SECTION 85.3: GOSUB WITHOUT RETURN.                                             

  32.                                                                                 

  33. THIS SECTION TESTS THAT PROGRAM EXECUTION MAY VALIDLY                           

  34. TERMINATE EVEN THOUGH MORE GOSUBS HAVE BEEN EXECUTED                            

  35. THAN RETURNS.                                                                   

  36.                                                                                 

  37.                   BEGIN TEST.                                                   

  38.                                                                                 

  39. IF PROGRAM TERMINATES NORMALLY, THEN                                            

  40. ***  TEST PASSED  ***                                                           

  41.                                                                                 

  42.                    END TEST.                                                    

  43.                                                                                 

  44. END PROGRAM 85