10 IFPAGE<>&1900THENPAGE=&1900:CHAIN"Poland2" 20 MODE7:HIMEM=&19A0:FORI%=0TO&7FCSTEP4:I%!&1100=I%!&2F00:NEXT:MODE1:HIMEM=&19A0:VDU23;8202;0;0;0;0;:CALL&19A0:CHAIN"PoLink2"