10 REM ATAQUE AEREO
80 GOSUB 1000:REM INSTRUCOES
90 GOSUB 2000:REM CRIA VARIAVEIS
100 GOSUB 3000:REM INICIO DE JOGO
110 GOSUB 4000:REM FIM DE JOGO
120 VTAB 21:HTAB 1:INVERSE
130 PRINT "VOCE QUER JOGAR NOVAMENTE ? (S/N) ";GET A$:NORMAL
140 IF A$="S" THEN GOTO 90
150 IF A$<> "N" THEN GOTO 120
160 VTAB 21:HTAB 1: PRINT SPC(39):END
1000 REM *** INSTRUCOES ***
1030 TEXT:HOME
1035 INVERSE
1040 VTAB 3:HTAB 11:PRINT "*** ATAQUE AEREO ***"
1045 NORMAL
1050 PRINT: PRINT: PRINT "VOCE E UM PILOTO DE COMBATE."
1060 PRINT: PRINT "PONTOS SAO OBTIDOS QUANDO UMA DAS SUAS BOMBAS, ACERTA O NAVIO, QUE TEM QUE AFUNDAR."
1070 PRINT
1080 PRINT "PARA SOLTAR UMA BOMBA APERTE QUALQUER TECLA. O NUMERO DE PONTOS OBTIDOS DEPENDERA DA PARTE DO NAVIO QUE FOI ATINGIDO."
1090 PRINT
1100 PRINT "A PARTE INFERIOR DO NAVIO 10 => PONTOS"
1105 PRINT "A PARTE SUPERIOR DO NAVIO 20 => PONTOS"
1108 PRINT "A CHAMINE DO NAVIO => 30 PONTOS"
1110 VTAB 23
1120 PRINT "TECLE <RETURN> PARA CONTINUAR"
1125 IF PEEK (-16384)=141 THEN POKE -16368,0: GOTO 130
1128 GOTO 1110
1130 INVERSE: HOME:VTAB 3:HTAB 11:PRINT "*** ATAQUE AEREO ***":NORMAL:VTAB 7
1140 PRINT "VOCE TEM 15 BOMBAS."
1145 PRINT: PRINT "A VELOCIDADE DO NAVIO VARIA, PORTANTO TOME CUIDADO PARA NAO DESPERDICAR BOMBAS."
1150 PRINT: PRINT: PRINT TAB (11)" B O A   S O R T E"
1155 NORMAL
1160 VTAB 23
1165 INVERSE
1170 PRINT "TECLE <RETURN> PARA CONTINUAR"
1175 IF PEEK (-16384)=141 THEN POKE -16368,0:GOTO 1180
1178 GOTO 1160
1180 NORMAL:RETURN
2000 REM *** CRIAR VARIAVEIS ***
2020 TS=0
2030 SL=15
2050 GR:COLOR=2
2060 HLIN 0,39 AT 39
2080 HLIN 0,39 AT 38
2090 AX=0:SX=33:SS=1
2100 RETURN
3000 REM *** 0 JOGO ***
3030 HOME
3035 INVERSE
3040 VTAB 22:CALL -958:PRINT "TIROS FALTANDO";:NORMAL:PRINT" ";SL;" ";: INVERSE: PRINT "PONTOS":NORMAL: PRINT " ";TS
3050 GOSUB 3090:REM AVIAO
3060 GOSUB 3130:IF SL=0 THEN RETURN
3070 GOSUB 3270:REM NAVIO
3080 GOTO 3050
3090 COLOR=0:HLIN AX,AX+6 AT 2:HLIN AX+1,AX+6 AT 1:PLOT AX+6,0
3100 REM
3110 AX=AX-1: IF AX<0 THEN AX=33
3120 COLOR=4:HLIN AX,AX+6 AT 2:HLIN AX+1,AX+6 AT 1:PLOT AX+6,0:RETURN
3130 IF FF THEN 3160
3140 IF PEEK (-16384)=<128 THEN RETURN
3150 FF=1:POKE -16368,0:FX=AX+3:FY=2
3160 COLOR=0:PLOT FX,FY
3170 FY=FY+1
3180 IF SCRN (FX,FY)=0 THEN COLOR=13:PLOT FX,FY:RETURN
3190 IF SCRN (FX,FY)=2 THEN 3230
3200 TS=TS+(38-FY)*10
3210 SC=0:COLOR=0:HLIN SX,SX+6 AT 37:HLIN SX+3, SX+S AT 36 : PLOT SX+4,35
3220 SX=33:SS=1:SC=0
3230 COLOR= 2:HLIN FX-1,FX+1 AT 37: PLOT FX-2,36:PLOT FX,36: PLOT FX+2,36 : PLOTFX-3,35:PLOT FX,35:PLOT FX+3,35
3240 COLOR= 0: HLIN FX-1,FX+1 AT 37: PLOT FX -2,36: PLOT FX,36: PLOT FX+2,36:PLOT FX-3,35:PLOT FX,35: PLOT FX+3,35
3250 FF=0:SL=SL-1:POKE -16368,0
3255 INVERSE
3260 VTAB 22: CALL -958:PRINT "TIROS FALTANDO";:NORMAL: PRINT " ";SL;" ";:INVERSE: PRINT "PONTOS";:NORMAL: PRINT " ";TS
3270 SC=SC+1:IF SC=SS THEN RETURN
3280 SC=0:COLOR=0:HLIN SX,SX+6 AT 37: HLIN SX+3,SX+5 AT 36:PLOT SX+4,35
3290 SX=SX+1: IF SX=> 33 THEN SX=0:SS=INT( RND(1)*3)+1:SC=SS
3300 COLOR=1:HLIN SX,SX+6 AT 37:HLIN SX+3,SX+5 AT 36: PLOT SX+4,35:RETURN
4000 REM *** FIM DE JOGO ***
4010 FOR N= 1 TO 3000:NEXT N
4020 TEXT: HOME: VTAB 3:HTAB 7: INVERSE: PRINT "*** ATAQUE AEREO ***"
4025 NORMAL
4030 PRINT:PRINT:PRINT "0 JOGO ACABOU.":PRINT:PRINT:PRINT "VOCE OBTEVE ";:INVERSE:PRINT TS;:NORMAL: PRINT "PONTOS QUE E' ";
4040 IF TS =<25 THEN PRINT "HORRIVEL ": RETURN
4050 IF TS =<50 THEN PRINT "PESSIMO!!": RETURN
4060 IF TS =<75 THEN PRINT "RUIM!!! ":  RETURN
4070 IF TS =<100 THEN PRINT "MEDIO! ":  RETURN
4080 IF TS =<150 THEN PRINT "BOM!!! ":  RETURN
4090 IF TS =<250 THEN PRINT "OTIMO!!!": RETURN
4100 IF TS =<450 THEN INVERSE: PRINT "": PRINT "FANTASTICO !!!":NORMAL: RETURN

