10 REM 'POS(A$,B$,N)' TEST PROGRAM
20 A$ = "COMPUSOFT"
30 B$ = "O"
40 K = POS(A$,B$,4)
50 IF K=7 THEN 80
60 PRINT "'POS(A$,B$,N)' FAILED THE TEST"
70 GOTO 99
80 PRINT "'POS(A$,B$,N)' PASSED THE TEST"
99 END
