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