 10 REM 'INDEX' TEST PROGRAM
 20 A$ = "KEYBOARD"
 30 B$ = "OAR"
 40 K = INDEX(A$,B$)
 50 IF K<>5 THEN 110
 60 B$ = "ORE"
 70 K = INDEX(A$,B$)
 80 IF K<>0 THEN 110
 90 PRINT "'INDEX' PASSED THE TEST"
100 GOTO 999
110 PRINT "'INDEX' FAILED THE TEST"
999 END
