0 '........ Consalvi Software ........
1 '........... B O M B E R ...........
10 PRINTCHR$(27)+"V":DEFINTA-Z
20 CLS
21 A=3:Q=1:LM=1:T=20:D=1:P=1:SC=0:W=58:TRUE=(1=1):FALSE=NOTTRUE
22 M$=CHR$(27)+"p":N$=CHR$(27)+"q"
23 A$=CHR$(182)+"=."
24 B$=CHR$(205)
25 D$="   "
26 P$=" "
27 AE$=" "+STRING$(10,CHR$(200))
28 ONERRORGOTO180:FORI=1TOVAL(RIGHT$(TIME$,2))/2:J=RND(1):NEXT
30 A=A+1:P=P+ABS(P<3):T=T-7:C=T:BOM=FALSE:NB=0:V$="BOMBER":GOSUB130:CLS
35 GOSUB120:GOSUB110
40 FORN=47TO309:GOSUB450:IFPEEK(65025+N+2)=WTHENY=(N/40)*8+3:X=(NMOD40)*6+2:FORI=1TO10:GOSUB160:PRINT@N,D$;:GOSUB160:GOSUB200:PRINT@N,A$:NEXT:A=A-1:IFA=0THENFORI=4TO30STEP2:LINE(X-I,Y-I)-(X+I,Y+4),1,B:NEXT:GOSUB350:RUNELSEPRINT@N,D$;:N=N-45:GOSUB110
50 IFN=30ORN=70ORN=110ORN=150ORN=190ORN=230ORN=270THENN=N+16:G=N-16:ELSEG=N
55 PRINT@G,D$;:PRINT@N+1,A$;:GOSUB60:SOUND16000,1:NEXT:GOSUB140:GOSUB500
60 IFNOTBOMTHENIFINKEY$<>""THENIFN<280THENBOM=TRUE:NP=N:NB=0
70 GOSUB170:IFBOMTHENPRINT@NP,P$;:NP=NP+40:IFNP>317ORNB>PTHENBOM=FALSE:RETURN
80 IFBOMANDPEEK(65024!+NP)=WTHENGOSUB110:NB=NB+1:GOSUB160ELSEGOSUB170
90 IFBOMTHENPRINT@NP,B$;:RETURN
100 GOSUB170:RETURN
110 PRINTM$:PRINT@86-LEN(LEFT$(AE$,A)),LEFT$(AE$,A):PRINT@80,"V.";SPACE$(4-LEN(LEFT$(AE$,A))):PRINT@120,"P.";USING"####";SC;:PRINT@160,"Q.";USING"####";Q:PRINT@200,"R.";USING"####";HC;:PRINTN$;:SC=SC+1:RETURN
120 LINE(39,3)-(200,63),1,B:LINE(41,5)-(198,63),1,B:LINE(42,63)-(197,63),0:PRINTM$;:FORI=13-DTO26+D:VC=INT(RND(1)*5):FORJ=-1TORND(1)+VC)*(D-ABS(D>5)*(D-5)):PRINT@280+I-J*40,CHR$(W);:SOUND8000+J*1500,3:NEXTJ,I:PRINTN$:RETURN
130 LINE(82,6)-(157,17),1,B:LINE(39,3)-(200,63),1,B:LINE(41,5)-(198,63),1,B:PRINT@54,M$"   "V$"   "N$;:PRINT@170,"by Consalvi Software":PRINT@253,"premi un tasto":GOSUB290:RETURN
140 'Atterraggio riuscito
150 FORI=3000TO300STEP-30:SOUNDI,1:NEXT:Q=Q+1:T=C:RETURN
160 SOUND5000,2:RETURN
170 FORJ=1TOT:NEXT:RETURN
180 RESUMENEXT
190 IFINKEY$<>""THEN190ELSERETURN
200 FORJ=1TO120:NEXT:RETURN
250 I$=INKEY$:IFI$=""THEN250
260 RETURN
290 I$=INKEY$:IFI$=""THEN290ELSERETURN
350 CLS:LINE(3,3)-(236,60),1,B:PRINT@57,"BOMBER":PRINT@128,"Punti : ";SC
360 IFSC>HCTHENHC=SC
370 PRINT@218,"Record : ";HC
380 PRINT@291," vuoi rigiocare ? "
390 I$=INKEY$:IFI$="S"ORI$="s"THEN20
392 IFI$="N"ORI$="n"THENMENU
395 GOTO390
450 IFN>288THENT=T+7:RETURNELSERETURN
500 A=A+1:P=P+ABS(P<3):T=T-7:BOM=FALSE:NB=0:PRINT@136,"QUADRO ";Q
510 FORI=1TO1300:NEXT:CLS:GOTO35