10  FILES PIC.A100
20  DIM N$[255]
30  PRINT "PRINTS PICTURE OF NAKED LADY"
40  PRINT 
50  PRINT 
60  PRINT 
70  PRINT "POSITION PAPER AND PRESS 'RETURN' ";
80  PRINT 
90  PRINT 
100  ENTER 255,X,X
110  FOR I=1 TO 500
120  IF  END #1 THEN 160
130  READ #1;N$
140  PRINT N$
150  NEXT I
160  PRINT 
170  PRINT 
180  PRINT 
190  PRINT "WITH COMPLEMENTS"'7
200  PRINT 
210  END 
