1 REM  MADE BY MATS WALLIN                  
2 RANDOMIZE 
3 DIM F1$(12%),F2$(12%),F3$(12%),N$(12%)
4 FOR A%=1% TO 12% : READ F1$(A%),F2$(A%),F3$(A%),N$(A%) : NEXT A%
5 READ I$,K$,K1$,K2$
6 P1%=-10% : P2%=1000%
7 ; CHR$(12%)
8 ; CUR(0%,12%)"LUFTV[RN" : ; TAB(12%)STRING$(8%,42%)
9 ; : ; "Sverige {r i krig." : ; : ; "Du ska skjuta ner alla utl{ndska plan.  Du har kommandot |ver en r|rlig "
10 ; "raketbas." : ; : ; "Du har tre kanoner som du ska skjuta    med. Om du blir tr{ffad s} har du "
11 ; "f|rlorat den." : ; : ; "Det finns n}gra svenska plan ocks}. Om  du skjuter ner dem s} f|rlorar du en bas";
12 ; "och f}r minuspo{ng." : ; : ; "Om du trycker p} 'S' s} f}r du se hur desvenska planen ser ut."
13 ; : ; "Tryck p} framstegaren n{r du vill b|rja."
14 IF INP(56%)=160% THEN 18 ELSE IF INP(56%)=211% THEN 15 ELSE 14
15 ; CHR$(12%)
16 FOR A%=6% TO 9% : ; I$,,,F1$(A%),,,F2$(A%),N$(A%),,F3$(A%),,,I$ : NEXT A%
17 GOTO 14
18 Y%=20% : X%=19% : E%=0% : B5%=3% : P%=0%
19 IF B5%<=0% THEN 101
20 ; CHR$(12%)
21 OUT 6%,0%
22 FOR A%=1% TO 1000% : NEXT A%
23 ; CUR(22%,27%)"Baser:"; : FOR A%=1% TO B5%-1% : ; "(!)"; : NEXT A%
24 ; CUR(22%,15%)"Po{ng:"P%
25 ; CUR(21%,0%)CHR$(151%)STRING$(37%,47%);
26 S%=5%
27 FOR A%=1% TO S% : ; CUR(22%,A%)"!"; : NEXT A%
28 F%=RND*11%+1%
29 IF F1%=F% THEN 28 ELSE F1%=F%
30 B%=RND*26%+1% : H%=RND*8% : H1%=H%+4% : B1%=B%+6%
31 T%=0%
32 F2%=0% : F3%=0%
33 ; CUR(Y%,X%)K$
34 I%=INP(56%)
35 T%=T%+1% : IF T%>50% THEN 20
36 OUT 6%,27%
37 FOR G%=1% TO 100% : NEXT G%
38 IF I%=205% THEN X%=X%+1%
39 IF NOT DOT(63%,(X%+3%)*2%) THEN X%=X%-1%
40 IF I%=214% THEN X%=X%-1%
41 IF NOT DOT(63%,(X%+1%)*2%) THEN X%=X%+1%
42 IF X%>34% THEN X%=34% ELSE IF X%<0% THEN X%=0%
43 IF I%=160% THEN IF S%>0% THEN GOSUB 73
44 R%=RND*100%
45 IF R%<14% THEN B%=B%-1% ELSE 48
46 IF B%<0% THEN B%=0%
47 GOTO 55
48 IF R%<29% THEN B%=B%+1% ELSE 51
49 IF B%>26% THEN B%=26%
50 GOTO 55
51 IF R%<44% THEN H%=H%-1% ELSE 54
52 IF H%<0% THEN H%=0%
53 GOTO 55
54 IF R%<59% THEN H%=H%+1% : IF H%>15% THEN H%=15%
55 ; CUR(H%,B%)I$ : ; TAB(B%)F1$(F%) : ; TAB(B%)F2$(F%) : ; TAB(B%)F3$(F%) : ; TAB(B%)I$
56 IF I%=205% OR I%=214% THEN ; CUR(Y%,X%)K$;
57 IF E%=0% THEN 68
58 H1%=H1%+1%
59 ; CUR(H1%-1%,B1%)" "CUR(H1%,B1%)"$";
60 IF H1%=20% THEN 61 ELSE 69
61 ; CUR(H1%,B1%)" ";
62 FOR A%=1% TO 3%
63 IF X%+A%=B1% THEN OUT 6%,0% : OUT 6%,137% : GOTO 70
64 NEXT A%
65 ; CUR(21%,B1%)" ";
66 E%=0% : H1%=22%
67 GOTO 69
68 R%=RND*10% : IF R%=1% THEN H1%=H%+4% : B1%=B%+6% : E%=1%
69 GOTO 34
70 ; CUR(Y%-1%,X%)K1$ : ; TAB(X%)K2$
71 E%=0%
72 FOR A%=1% TO 3000% : NEXT A% : B5%=B5%-1% : GOTO 19
73 X1%=X%+2%
74 ; CUR(22%,S%)" "; : S%=S%-1%
75 FOR A%=19% TO 0% STEP -1%
76 ; CUR(A%+1%,X1%)" ";CUR(A%,X1%)"!"
77 IF A%=H1% AND B1%=X1% THEN ; CUR(H1%,B1%)" " : E%=0% : B1%=0% : GOTO 34
78 IF H%+2%=A% THEN ON F% GOTO 79,79,80,80,79,80,79,79,83,80,83 ELSE 86
79 IF B%+6%=X1% THEN 89 ELSE 86
80 IF B%+6%=X1% THEN 89
81 IF B%+4%=X1% THEN F2%=1% : IF F3%=1% THEN 89
82 IF B%+8%=X1% THEN F3%=1% : IF F2%=1% THEN 89 ELSE 86
83 IF B%+5%=X1% THEN F2%=1% : IF F3%=1% THEN 89
84 IF B%+6%=X1% THEN 89
85 IF B%+7%=X1% THEN F3%=1% : IF F2%=1% THEN 89
86 NEXT A%
87 ; CUR(0%,X1%)" ";CUR(20%,X1%)"!"
88 RETURN 
89 P%=P%+1%
90 IF F%=6% OR F%=7% OR F%=8% OR F%=9% THEN 95
91 OUT 6%,0% : OUT 6%,137%
92 ; CUR(H%,B%)I$CUR(H%+1%,B%)F1$(12%)CUR(H%+2%,B%)F2$(12%)CUR(H%+3%,B%)F3$(12%)CUR(H%+4%,B%)I$
93 ; CUR(H1%,B1%)" "
94 FOR A%=1% TO 3000% : NEXT A% : GOTO 20
95 OUT 6%,0% : OUT 6%,137%
96 ; CHR$(12%)
97 ; CUR(10%,0%)"Idiot! Du sk|t ner ett svenskt plan."
98 B5%=B5%-1%
99 P%=P%-3%
100 FOR A%=1% TO 10000% : NEXT A% : GOTO 19
101 ; CHR$(12%)
102 ; CUR(1%,12%)"LUFTV[RN" : ; TAB(12%)STRING$(8%,42%)
103 ; : ; "Din po{ng:",P%
104 IF P%>P1% THEN P1%=P%
105 ; : ; "Rekord:",P1%
106 IF P2%>P% THEN P2%=P%
107 ; : ; "Bottenrekord:",P2%
108 ; : ; "Tryck p} 'return'."
109 IF INP(56%)=141% THEN 18 ELSE 109
110 DATA "   _ _!_ _   ","   _!_O_!_   ",'     "-"     ',"BE 2"
111 DATA "   ___!___   ","     -O-     ",'     " "     ',LYSANDER
112 DATA "      !      ","  __o_O_o__  ",'     " "     ',"LARRE SPECIAL"
113 DATA "      !      "," ---o-0-o--- ","             ","BEAUFORT"
114 DATA "     _!_     ","  ----0----  ","             ","SPITFIRE"
115 DATA "    !   !    ","  --o_0_o--  ",'     " "     ',"J 21"
116 DATA "     -!-     ","  ____0____  ","             ",LANSEN
117 DATA "     -!-     ","   ---0---   ","             ",TUNNAN
118 DATA "      !      ","  ---o0o---  ","             ",DRAKEN
119 DATA "     _!_     ","  --o-0-o--  ","     o o     ",SJ\FLYGPLAN
120 DATA "    _ ! _    ","  ___o0o___  ","      $      ",HERCULES
121 DATA '   "/  -  "  ',"  o  O_ -    ","    $ o,!_   ",KRASCH
122 DATA "             "," (!) ",' X +"',"* .- "