inmem Example10 CLEAR SCREEN
20 Str$="FNZtest"
30 IF INMEM(Str$) THEN
40 PRINT "Procedure ";Str$;" is in memory"
50 ELSE
60 PRINT "No such procedure ";Str$;" in memory."
70 END IF
80 END
90 SUB Test
100 SUBEND
110 DEF FNZtest
120 FNEND
|