1 END0DATA&
2 ENDDATA
3 ENDEND
4 ENDDATA
5 ENDEND
6 ENDDATA
7 ENDEND
8 ENDDATA
9 ENDEND
10 ENDDATA
11 ENDDATA
12 ENDDATA
13 ENDDATA

14 ENDDATA
15 ENDDATA	
257 FOR(null)IMPLE LENHEQUE PEEKALANCER
258 FOR !=
259 ON=======A999
260 ON=========A999
261 ON=======A999
262 ON=========A999
263 ON=======A999
264 ON=========A999
265 ON=======A999
266 ON=========A999
267 FOR=!          XX1
513 FOR**********************
514 FOR!
516 ONPEEKATN(null)ATN(null)LENVAL PEEK
517 ONPEEK(null)(null)(null)CHR$
518 ONCHR$LEFT$(null) ASC(null)(null)(null)
519 ONATN(null)STR$:    /
520 RETURNCLOSE