10REM Union Jack 20REM S.Johnson 30REM September 1992 100MODE1 110CLS 120VDU23,0,10,32,0,0,0,0,0,0 130VDU19,2,4,0,0,0,0,0,0 140MOVE150,250 150PROCbox(950,550,0) 160MOVE170,270 170PROCbox(910,510,2) 180PROCdiagw 190MOVE567,270 200PROCbox(101,510,3) 210MOVE170,479 220PROCbox(910,101,3) 230MOVE579,270 240PROCbox(80,510,1) 250MOVE170,490 260PROCbox(910,80,1) 270GCOL0,3 280PLOT141,540,450 290PLOT141,190,770 300PLOT141,1070,770 310PLOT141,1070,280 320PROCdiagr 330GCOL0,1 340PLOT141,540,450 350PLOT141,190,770 360PLOT141,1060,770 370PLOT141,1070,280 375REPEATUNTILGET:OSCLI"EX.!BOOT" 380END 1000DEFPROCdiagw 1010GCOL0,3 1020MOVE170,270 1030DRAW170,280:DRAW520,480 1040DRAW560,480:DRAW560,430 1050DRAW270,270:DRAW170,270 1060MOVE170,760 1070DRAW520,580:DRAW560,580 1080DRAW560,630:DRAW280,780 1090DRAW170,780:DRAW170,760 1100MOVE1078,760 1110DRAW610,520:DRAW580,520 1120DRAW580,580:DRAW980,780 1130DRAW1078,780:DRAW1078,760 1140MOVE980,270 1150DRAW580,470:DRAW580,520 1160DRAW630,520:DRAW1078,290 1170DRAW1078,270:DRAW980,270 1180ENDPROC 1190DEFPROCdiagr 1200GCOL0,1 1210MOVE170,270 1220DRAW170,270:DRAW535,475 1230DRAW560,475:DRAW560,440 1240DRAW250,270:DRAW170,270 1250MOVE170,775 1260DRAW535,585:DRAW560,585 1270DRAW560,620:DRAW260,780 1280DRAW170,780:DRAW170,775 1290MOVE1078,775 1300DRAW708,585:DRAW675,585 1310DRAW675,615:DRAW1000,780 1320DRAW1078,780:DRAW1078,770 1330MOVE1000,270 1340DRAW675,435:DRAW675,475 1350DRAW705,475:DRAW1078,280 1360DRAW1078,270:DRAW980,270 1370ENDPROC 1380DEFPROCbox(x,y,c) 1390GCOL0,c 1400PLOT97,x,y 1410ENDPROC 1420DEFPROCcircle(x,y,c) 1430GCOL0,c 1440PLOT153,x,y 1450ENDPROC