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