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