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/HB2/INSTR_1.BAS

13 lines
255 B
Raw Blame History 

  1.  10 REM 'INSTR' TEST PROGRAM

  2.  20 A$ = "PROGRAM"

  3.  30 B$ = "RAM"

  4.  40 K = INSTR(A$,B$)

  5.  50 IF K<>5 THEN 110

  6.  60 B$ = "ROM"

  7.  70 K = INSTR(A$,B$)

  8.  80 IF K<>0 THEN 110

  9.  90 PRINT "'INSTR' PASSED THE TEST"

  10. 100 GOTO 999

  11. 110 PRINT "'INSTR' FAILED THE TEST"

  12. 999 END