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