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.
11 Commits
3 Branches
4.5 MiB
 
 
 
 
 
 
Tree: 5a220d5b6b
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '5a220d5b6b'
${ noResults }
bwBASIC/NBS2/P070.run

37 lines
2.8 KiB
Raw Blame History 

  1. PROGRAM FILE 70: EXCEPTION - SUBSCRIPT TOO SMALL FOR                            

  2.         ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 0.                              

  3.     ANSI STANDARD 6.5, 15.2, 15.4                                               

  4.                                                                                 

  5. SECTION 70.1: EXCEPTION - SUBSCRIPT TO SMALL FOR                                

  6.         ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 0.                              

  7.                                                                                 

  8. THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR                         

  9. RECOGNIZES USE OF A NEGATIVE SUBSCRIPT AS A FATAL EXCEPTION                     

  10. WHEN OPTION BASE 0 HAS BEEN SPECIFIED.                                          

  11.                                                                                 

  12. TO PASS THIS TEST:                                                              

  13.                                                                                 

  14.     1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE                              

  15.        DISPLAYED, AND                                                           

  16.                                                                                 

  17.     2) THE PROGRAM MUST TERMINATE UPON USE OF THE                               

  18.        NEGATIVE SUBSCRIPT.                                                      

  19.                                                                                 

  20.                                BEGIN TEST.                                      

  21.                                                                                 

  22. ABOUT TO ASSIGN TO A( 3 ). ASSIGNMENT SHOULD BE OK.                             

  23. HAVE ASSIGNED  17  TO A( 3 ).                                                   

  24.                                                                                 

  25. ABOUT TO ASSIGN TO A( 2 ). ASSIGNMENT SHOULD BE OK.                             

  26. HAVE ASSIGNED  18  TO A( 2 ).                                                   

  27.                                                                                 

  28. ABOUT TO ASSIGN TO A( 1 ). ASSIGNMENT SHOULD BE OK.                             

  29. HAVE ASSIGNED  19  TO A( 1 ).                                                   

  30.                                                                                 

  31. ABOUT TO ASSIGN TO A( 0 ). ASSIGNMENT SHOULD BE OK.                             

  32. HAVE ASSIGNED  20  TO A( 0 ).                                                   

  33.                                                                                 

  34. ABOUT TO ASSIGN TO A(-1 ).*** EXCEPTION SHOULD OCCUR NOW ***                    

  35.                                                                                 

  36. ERROR in line 280: Subscript out of range