X;SAVE#D:GRAPHICS.M65 X;X; GRAPHICS gX;(-X; ENTRY: A-REG CONTAINS GRAPHICS MODE 'G'2(X; EXIT: Y-REG HAS COMPLETION STATUS<X;FSNAME AS:A==P GRAFIXZ5;;SAVE 'G'd$>;;FILE 6n Q>CCLOSEx PICCOM9% CIO;;FIRST WE MUST CLOSE FILE #6(X;WE IGNORE ANY ERRORS FROM THE CLOSEX;$>;;AGAIN, FILE 6"Q>COPN;;WE WILL OPEN THIS FILE PICCOM9 Q>4SNAME'PICBADR9;;WE USE THE FILE NAME "S:" Q>5SNAME"PICBADR9;;BY POINTING AT ITX; X;ALL IS SET UP FOR OPEN, NOW)X;WE TELL CIO (& S:) WHAT KIND OF OPENX;!7;;OUR SAVED 'G' GRAPHICS MODEPICAUX29;;IS GIVEN TO 'S:'"/X; (NOTE THAT S: IGNORES UPPER BITS OF AUX2),"M>;;NOW WE GET THE UPPER BITS6N>;;AND FLIP BIT 4@)X; (S: EXPECTS THIS BIT TO BE INVERTEDJ%X;FROM WHAT NORMAL BASIC USAGE IS)T*L> ;;ALLOW READ & WRITE ACCESS FOR CIO^PICAUX19;;FOR CIO AND S:h CIO;;OPEN S:r :;:GRAPHICS MODE 'G' NOW OPEN|GRAPHICS    AGRAPHICS LENA  Q Q>  GRAFIX