0 *FX144,0,1
   10 MODE7
   20 VDU23,1,0;0;0;0;
   30 PROCheader("City  Bomber")
   40 PRINT
   50 PROCdouble(CHR$&86+"Instructions  ")
   60 PRINTTAB(3,8);"Mission: to destroy city by bombing"
   70 PRINTTAB(5,11);"Score: 10 points for each hit"TAB(16,13)"-5 for a miss"
   80 PRINTTAB(6,16);"Keys:"
   90 PROCjustify("RETURN - Drop Bomb",16)
  100 PROCcentre("Press any key",20)
  110 PRINT
  120 PROCheader("City  Bomber")
  130 SOUND-1,246,0,0:SOUND-1,168,0,0:SOUND-1,212,0,0
  140 X$=INKEY$(1000):IFX$="" THEN GOTO 130
  150 CHAIN"BOMB1" 
  160 DEFPROCcentre(A$,vpos)PRINTTAB((20-LENA$DIV2),vpos);A$:ENDPROC
  170 DEFPROCheader(A$):FORI=0TO1:PRINTCHR$&81;CHR$&9D;CHR$&83;CHR$&8D;:PROCcentre(A$,VPOS):NEXT:ENDPROC
  180 DEFPROCjustify(A$,vpos)PRINTTAB(15,vpos);A$:ENDPROC
  190 DEFPROCdouble(A$)FORI=0TO1:PROCcentre(CHR$&8D+A$,VPOS):NEXT:ENDPROC