Code: Select all
# REM _3_ __:_____*_;_:_3-__(+5 > 5
# 4 5 4 3 2 5 5 -_= AAAAAAA
1 REM [HEX:\
02,1F,64,00,FF,02,0E,01,\
7E,58,8A,58,97,58,99,58,\
8E,5B,1F,16,02,08,10,15,\
21,00,12,00,21,00,00,00,\
20,00,21,00,00,00,20,00,\
1F,00,00,00,1E,00,21,00,\
21,00,16,F9,14,00,00,00,\
26,26,26,26,26,26,26,26 ]
# REM Y_M__Y_M__Y M__M__E£___ _6___£ _
# 6£__$ _6:_5 6__5/_Y6Q 7X_ 4_E£
2 REM [HEX:\
3E,05,32,82,40,3E,01,32,\
84,40,3E,00,32,83,40,32,\
85,40,2A,0C,40,01,07,00,\
09,22,8A,40,01,0C,00,09,\
22,8C,40,01,0D,00,09,22,\
8E,40,21,00,00,22,88,40,\
21,98,40,3E,22,36,00,23,\
3D,FE,00,20,F8,2A,0C,40,\
01,22,00,09,22,90,40,01,\
F5,02,09,22,92,40,21,02,\
0B,22,96,40,21,1F,17,22,\
94,40,2A,0C,40,01,F8,02,\
09,3E,20,36,80,23,3D,FE,\
00,20,F8,C9,27,27,27,27,\
27,27,27,27,27,27,27,27,\
27,27,27,27,27,27,27,27 ]
# REM __JE£_7)5 SC__;/________JE£_7)5
# SC__;/_TC______CCCCCCCCCCCCCCCC
3 REM [HEX:\
C5,F5,AF,2A,0C,40,23,11,\
21,00,B8,28,04,05,19,18,\
F9,09,F1,77,C1,C9,D5,C5,\
AF,2A,0C,40,23,11,21,00,\
B8,28,04,05,19,18,F9,B9,\
28,01,09,7E,C1,D1,C9,28,\
28,28,28,28,28,28,28,28,\
28,28,28,28,28,28,28,28 ]
# REM _E___Q_ 6_____C:1U___ C_XM__
# /__2 -.Q*7_V4__FF_V4___6 __V4__
4 REM [HEX:\
E5,2A,88,40,CD,B6,47,00,\
00,00,00,00,22,88,40,7B,\
FE,01,28,0E,1D,3A,82,40,\
FE,00,28,06,3D,32,82,40,\
18,ED,E1,1E,00,16,1B,36,\
17,23,7E,BB,20,01,72,2B,\
2B,7E,BB,20,01,72,01,22,\
00,09,7E,BB,20,01,72,01,\
42,00,AF,ED,42,7E,BB,20,\
01,72,01,21,00,09,AF,BA,\
28,10,06,11,0E,FF,0D,20,\
FD,10,F9,16,00,1E,1B,72,\
18,C7,3A,33,40,5F,3A,32,\
40,8E,FE,00,20,03,3A,34,\
40,3C,3C,32,32,40,3A,85,\
40,CB,FF,32,85,40,C9,29 ]
# REM _<C___C__.CT_ CP__4_Y_/A_:4_Y2/2
# __4_YC/-_T4_YM/:_O4)Y_M__ Y 2
5 REM [HEX:\
FE,13,28,44,FE,87,28,40,\
FE,1B,28,39,FE,80,28,35,\
FE,09,20,04,3E,0A,18,26,\
FE,8E,20,04,3E,1E,18,1E,\
FE,82,20,04,3E,28,18,16,\
FE,B9,20,04,3E,32,18,0E,\
FE,34,20,11,3E,64,32,84,\
40,00,00,00,3E,00,1E,01,\
CD,94,41,36,14,3E,01,C9,\
3E,00,C9,2A,2A,2A,2A,2A,\
2A,2A,2A,2A,2A,2A,2A,2A,\
2A,2A,2A,2A,2A,2A,2A,2A ]
# REM JS4<U_______M__ _:_2 />___U___ 4
# _F__.4_Q J0___K_£/:_(K_£_U___ 4
6 REM [HEX:\
AF,B8,20,13,3A,85,40,CB,\
47,C8,CB,87,32,85,40,00,\
44,0E,04,1E,00,18,12,CD,\
64,41,3A,84,40,FE,00,20,\
01,2B,7E,FE,1B,20,02,36,\
00,AF,1C,7B,FE,0A,30,03,\
0C,18,0E,FE,10,30,01,0C,\
04,3A,84,40,FE,00,20,01,\
0D,CD,64,41,FE,00,28,0E,\
FE,16,28,0A,CD,1E,42,FE,\
00,28,03,06,00,C9,36,1B,\
C9,2B,2B,2B,2B,2B,2B,2B ]
# REM JS_U___ 4_$___ __4__T**_/6__C__-C
# __ 4NQ E-_J_WC_S____J___S_$____
7 REM [HEX:\
AF,B8,C8,3A,84,40,FE,00,\
20,01,0D,CD,64,41,00,FE,\
82,20,06,78,B9,D8,05,18,\
22,FE,87,28,08,FE,16,28,\
04,FE,00,20,33,36,00,2A,\
96,40,AF,78,BC,28,05,38,\
02,05,05,04,AF,79,FE,03,\
38,01,0D,CD,64,41,FE,00,\
28,13,FE,16,28,0F,FE,87,\
28,0B,FE,80,20,0A,0C,23,\
7E,FE,00,20,03,36,87,C9,\
FE,83,28,0E,FE,8A,28,0A,\
FE,1B,20,0D,1E,01,3E,0A,\
18,04,1E,03,3E,00,CD,94,\
41,06,00,C9,06,00,C9,2C,\
2C,2C,2C,2C,2C,2C,2C,2C ]
# REM JS47_$Y_T_J_S_J____F$__ C____K_J
# _/J__ ____U___ 4_JT4__ _F__.C:_
8 REM [HEX:\
AF,B8,20,23,4D,0D,3E,03,\
B9,D0,AF,44,B8,C8,AF,CD,\
64,41,C5,2B,0D,7E,FE,80,\
28,09,79,FE,05,30,F4,AF,\
C1,18,2F,C1,06,00,C9,CD,\
64,41,3A,84,40,FE,00,20,\
08,AF,B9,20,03,06,00,C9,\
2B,7E,FE,1B,28,0E,FE,00,\
28,0A,FE,16,28,06,FE,13,\
28,04,18,19,36,00,AF,B9,\
28,22,0D,CD,64,41,FE,00,\
28,08,FE,16,28,04,FE,1B,\
20,03,36,1B,C9,FE,83,28,\
04,FE,8A,20,07,1E,02,3E,\
00,CD,94,41,06,00,C9,2D,\
2D,2D,2D,2D,2D,2D,2D,2D ]
# REM JS4-UM____:3_____ 4_Q<__ _JS_U__
# _ 4_JT4__ _$____<C>_-C__.4_2_Y_
9 REM [HEX:\
AF,B8,20,16,3A,32,40,FE,\
05,D0,0E,1F,43,CD,64,41,\
FE,00,20,03,36,13,C9,06,\
00,C9,AF,B8,C8,3A,84,40,\
FE,00,20,08,AF,B9,20,03,\
06,00,C9,0D,CD,64,41,FE,\
13,28,12,FE,16,28,04,FE,\
1B,20,07,1E,01,3E,0A,CD,\
94,41,06,00,C9,11,21,00,\
E5,19,7E,E1,FE,B9,18,06,\
3A,32,40,FE,32,D0,36,00,\
AF,3A,34,40,CB,57,28,18,\
3A,97,40,B8,38,07,19,04,\
7E,FE,00,28,0B,AF,ED,52,\
05,7E,FE,00,28,02,19,04,\
36,13,C9,2E,2E,2E,2E,2E ]
# REM JU____C_WM__?8_Y M__Y-__(__3 <__
# ._K<<_ C_X/_UO__UM____=_JY XS__
10 REM [HEX:\
AF,3A,84,40,FE,05,28,07,\
3C,32,84,40,C3,A4,45,3E,\
00,32,84,40,3E,16,ED,5B,\
90,40,01,1F,00,13,62,6B,\
1B,ED,B0,13,13,FE,00,28,\
03,3D,18,EE,3A,34,40,67,\
3A,32,40,6F,ED,4B,94,40,\
AF,3E,80,BD,38,01,04,AF,\
3E,80,BD,30,01,05,AF,3E,\
CE,BC,38,01,04,AF,3E,32,\
BC,30,01,05,AF,3E,06,B8,\
38,02,06,06,AF,3E,17,B8,\
30,02,06,17,ED,43,94,40,\
2A,0C,40,11,41,00,0E,01,\
19,11,21,00,AF,79,FE,17,\
28,0D,B8,30,04,36,00,18,\
02,36,80,0C,19,18,ED,2A,\
32,40,54,5D,29,29,19,29,\
29,29,19,23,22,32,40,C3,\
1E,45,2F,2F,2F,2F,2F,2F ]
# REM __=__JUM__/K_/M__K_Y____/B__K,YT
# ___EE_Y W4-_Y<___£__E_/___K_Y:_
11 REM [HEX:\
ED,4B,94,40,05,AF,3A,32,\
40,FE,98,30,02,18,32,FE,\
C1,30,07,3E,09,CD,4E,41,\
18,27,FE,CA,30,1A,3E,B9,\
CD,4E,41,2A,AA,40,3E,00,\
BC,20,16,05,3E,13,CD,4E,\
41,0C,ED,43,AA,40,18,09,\
FE,F3,30,07,3E,8E,CD,4E,\
41,18,2A,FE,FC,30,21,3E,\
82,CD,4E,41,2A,B0,40,3E,\
00,BC,20,07,0C,ED,43,B0,\
40,18,12,2A,B2,40,BC,20,\
0C,0C,ED,43,B2,40,18,05,\
3E,34,CD,4E,41,C3,A4,45,\
30,30,30,30,30,30,30,30,\
30,30,30,30,30,30,30,30 ]
# REM __-____U____C*_?M__2=7__-4_Q __
# C_1/______ _Q F_$_ 4_U9___C__X4
12 REM [HEX:\
ED,4B,96,40,CD,64,41,3A,\
85,40,CB,4F,28,17,CB,8F,\
32,85,40,1E,14,23,7E,FE,\
16,20,02,36,00,7B,FE,00,\
28,03,1D,18,F0,CD,64,41,\
7E,FE,80,C8,36,00,2B,79,\
0D,FE,00,20,F3,3A,25,40,\
FE,FD,28,04,FE,BD,20,09,\
05,78,FE,00,20,12,04,18,\
0F,FE,FE,28,04,FE,BE,20,\
07,04,78,FE,18,20,01,05,\
0E,02,ED,43,96,40,CD,64,\
41,FE,00,28,07,FE,1B,28,\
03,FE,87,C0,36,83,2B,7E,\
FE,00,28,07,FE,1B,28,03,\
FE,87,C0,36,8A,2B,7E,FE,\
00,28,07,FE,1B,28,03,FE,\
87,C0,36,84,23,23,C3,4A,\
46,32,32,32,32,32,32,32,\
32,32,32,32,32,32,32,32 ]
# REM U9__ZC£_XC__ZC__Y4PU___2_Y_UCE=1
# V4__M__U____M__2=7__ C__,__ 4_Q
13 REM [HEX:\
3A,25,40,FE,BF,28,0C,FE,\
BD,28,08,FE,3F,28,04,FE,\
BE,20,35,3A,83,40,57,1E,\
6A,3E,64,BA,28,2A,14,1D,\
BB,20,F8,7A,32,83,40,3A,\
85,40,CB,CF,32,85,40,1E,\
14,23,7E,FE,00,28,07,CD,\
1A,42,FE,00,20,0A,36,16,\
7B,FE,00,28,03,1D,18,E9,\
3A,25,40,FE,7F,28,04,FE,\
7F,20,08,3A,85,40,CB,C7,\
32,85,40,ED,4B,98,40,3A,\
B4,40,5F,2A,96,40,CD,80,\
42,ED,43,98,40,7B,32,B4,\
40,ED,4B,9A,40,3A,B5,40,\
5F,2A,96,40,CD,80,42,ED,\
43,9A,40,7B,32,B5,40,ED,\
4B,9C,40,3A,B6,40,5F,2A,\
96,40,CD,80,42,ED,43,9C,\
40,7B,32,B6,40,3A,83,40,\
FE,00,28,04,3D,32,83,40,\
3A,85,40,CB,87,32,85,40,\
C3,10,47,33,33,33,33,33,\
33,33,33,33,33,33,33,33 ]
# REM __4_E2_ __4___2_2______2_____6
# ______6___A_E8_ __A___8_2____
14 REM [HEX:\
ED,4B,A0,40,2A,9E,40,00,\
00,00,ED,43,A0,40,ED,4B,\
9E,40,1E,05,CD,F2,43,ED,\
43,9E,40,60,69,ED,4B,A2,\
40,CD,6C,43,ED,43,A2,40,\
ED,4B,A6,40,2A,A4,40,00,\
00,00,ED,43,A6,40,ED,4B,\
A4,40,1E,08,CD,F2,43,ED,\
43,A4,40,60,69,ED,4B,A8,\
40,CD,6C,43,ED,43,A8,40,\
ED,4B,AC,40,2A,AA,40,00,\
00,00,ED,43,AC,40,ED,4B,\
AA,40,CD,0C,44,ED,43,AA,\
40,60,69,ED,4B,AE,40,CD,\
6C,43,ED,43,AE,40,ED,4B,\
B0,40,CD,E6,42,ED,43,B0,\
40,ED,4B,B2,40,CD,E6,42,\
ED,43,B2,40,C3,FC,47,34,\
34,34,34,34,34,34,34,34,\
34,34,34,34,34,34,34,34 ]
# REM _ ___JE£___ 4_Y0W_A4_Q0F/___X_7/
# _ __: /_£/K_JY0__A"Y+_PPPPP
15 REM [HEX:\
FE,00,C8,E5,F5,AF,2A,8C,\
40,7E,FE,80,20,02,3E,9C,\
3C,FE,A6,20,05,36,9C,2B,\
18,EF,77,F1,3D,E1,23,18,\
DF,00,00,00,00,00,06,0A,\
0E,00,18,01,0C,98,30,FC,\
AF,3E,9C,81,FE,A6,C0,3E,\
95,C9,35,35,35,35,35,35 ]
# REM JE£_)_ ;__ 4_Y0W_A4_Q0F/__E__76_
# _JU___Y0_E£_), ;_JU___>=_E£_)4 ;
16 REM [HEX:\
AF,2A,0C,40,11,07,00,19,\
7E,FE,80,20,02,3E,9C,3C,\
FE,A6,20,05,36,9C,2B,18,\
EF,77,2A,86,40,23,22,86,\
40,AF,3A,82,40,67,3E,9C,\
84,2A,0C,40,11,1A,00,19,\
77,AF,3A,83,40,CD,DC,47,\
2A,0C,40,11,20,00,19,77,\
AF,3A,85,40,CB,7F,28,07,\
CB,BF,32,85,40,18,09,06,\
05,0E,FF,0D,20,FD,10,F9,\
3A,82,40,FE,00,C8,3A,84,\
40,FE,64,C8,AF,3A,84,40,\
FE,05,20,0E,ED,4B,96,40,\
CD,64,41,3E,00,77,2B,77,\
2B,77,C3,78,44,78,44,36 ]
17 DIM H(5)
18 DIM M(5)
20 LET T=0
21 LET S=0
22 RAND
23 LET SHIP=1
25 GOTO 5000
30 POKE 16518,0
35 POKE 16519,0
40 CLS
50 PRINT AT 0,0;"t‰—————««hits‰—————««sld‰«las‰—"
55 LET A=USR 16584
60 LET A=USR 17528
65 IF PEEK 16516=100 THEN GOTO 500
67 PRINT AT 10,2;"SHIP ";SHIP;" HAS BEEN DESTROYED"
68 FOR N=1 TO 100
69 NEXT N
70 LET T=T+(PEEK 16518+256*PEEK 16519)
75 LET S=S+(PEEK 16520+256*PEEK 16521)
80 IF SHIP=5 THEN GOTO 100
85 LET SHIP=SHIP+1
90 GOTO 30
100 CLS
101 LET R=(INT (100*(S/T)))/100
102 PRINT AT 0,6;"AT LEVEL ";U$
103 LET U=VAL U$
105 PRINT AT 2,0;"YOUR TOTAL SCORE IS ";S;AT 3,2;"WITH A HIT/TIME RATIO OF ";R
109 IF S>H(U) THEN LET H(U)=S
110 IF R>M(U) THEN LET M(U)=R
118 IF S<=5000 THEN PRINT AT 5,0;"YOU HAVE NOT INFLICTED ENOUGH DAMAGE TO SECURE THE PLANET."
120 IF S>5000 THEN PRINT AT 5,0;" YOU HAVE BADLY DAMAGED THE ALIEN PLANET. "
125 IF S>5000 AND 1.5*S>T THEN PRINT AT 7,0;"THE PLANET IS YOURS."
130 PRINT AT 10,0;"LEVEL HIGH SCORE HIGH RATIO"
131 PRINT
135 FOR N=1 TO 5
140 PRINT TAB 2;N;TAB 16-LEN (STR$ H(N));H(N);TAB 25;M(N)
145 NEXT N
190 PRINT AT 21,0;"PRESS ÀPÀ TO PLAY"
195 IF NOT INKEY$="P" THEN GOTO 195
200 GOTO 20
500 PRINT AT 7,15;"½½"
505 FOR N=1 TO 10
506 NEXT N
510 PRINT AT 7,15;" "
511 FOR N=1 TO 10
512 NEXT N
515 PRINT AT 7,7;"½½½½½½½½½½½½½½½½½½"
516 PRINT AT 6,7;"½½½½½½½½½½½½½½½½½½"
517 PRINT AT 8,7;"¿½½½½½½½½½½½½½½½½¿"
518 PRINT AT 5,7;"¾½½½½½½½½½½½½½½½½¾"
519 PRINT AT 9,10;"½½½½½½½½½½½½"
520 PRINT AT 4,8;"¾½½½½½½½½½½½½½½¾"
521 PRINT AT 10,11;"¿½½½½½½½½¿"
522 PRINT AT 3,9;"¾½½½½½½½½½½½½¾"
523 PRINT AT 11,14;"½½½½"
524 PRINT AT 2,11;"¾½½½½½½½½¾"
525 PRINT AT 12,14;"½½½½"
526 PRINT AT 13,11;"¾¾½½½½½½¾¾"
527 PRINT AT 14,11;"¿¿½½½½½½¿¿"
528 PRINT AT 15,14;"½½½½";AT 16,14;"½½½½"
529 PRINT AT 17,12;"¾½½½½½½¾";AT 18,12;"¿½½½½½½¿"
530 PRINT AT 19,14;"½½½½";AT 20,14;"½½½½";AT 21,14;"½½½½"
535 FOR N=1 TO 75
536 NEXT N
540 GOTO 67
5000 CLS
5001 PRINT " A V E N G E R"
5002 PRINT AT 2,22;"BY K FLYNN"
5003 PRINT AT 3,8;"(C) ABACUS PROGRAMS 1982"
5005 PRINT ,," YOU COMMAND THE ZARQON SPACE- SHIP ÀAVENGERÀ."
5010 PRINT " YOUR CONTROLS ARE :-"
5011 PRINT " UP - ÀAÀ DOWN - ÀZÀ LASER - ÀLÀ BOMBS - ÀMÀ"
5012 PRINT " KEY COMBINATIONS ARE :- A/L , Z/L AND M/L ."
5016 PRINT ,," USING THE LASER AND BOMBS YOU MUST ATTACK THE ENEMY PLANET WHILE PROTECTING YOURSELF."
5020 PRINT " THE ALIENS WILL FIGHT BACK WITHMISSILE FIRING INTERCEPTORS AND GUIDED MISSILES."
5021 PRINT AT 21,0;"PRESS ÀPÀ"
5026 IF NOT INKEY$="P" THEN GOTO 5026
5027 CLS
5030 PRINT "POINTS ARE SCORED AS FOLLOWS :-"
5031 PRINT "(ÀLÀ INDICATES THAT THE TARGET WILL BE DESTROYED BY LASER , ÀBÀ FOR BOMBS.)"
5036 PRINT ,,"À<À INTERCEPTOR 10 POINTS (L)"
5037 PRINT ,,"À²À GUIDED MIS. 10 POINTS (B)"
5038 PRINT ,,"À¾À BUILDINGS 10 POINTS (L/B)"
5039 PRINT ,,"À‰À FACTORY 30 POINTS (L/B)"
5040 PRINT ,,"ÀªÀ MISSILE PAD 40 POINTS (L/B)"
5041 PRINT ,,"ÀtÀ INTERCEP.PAD 50 POINTS (L/B)"
5042 PRINT ,,"ÀOÀ ATOMIC POWER STATION .... D O N O T H I T."
5045 PRINT AT 21,0;"PRESS ÀPÀ"
5046 IF NOT INKEY$="P" THEN GOTO 5046
5047 CLS
5050 PRINT " THE TOP LINE OF THE DISPLAY GIVES THE TIME , POINTS , SHIELDS AND THE TEMPERATURE OF THE LASER."
5055 PRINT " THE SHIP HAS 5 SHIELDS , 1 IS LOST FOR EACH HIT FROM AN INTER-CEPTOR , 2 FOR EACH GUIDED MIS."
5060 PRINT " THE TEMP. OF THE LASER RISES AS IT IS FIRED AND FIRING STOPS WHEN IT EXCEEDS 9."
5065 PRINT ,," YOU HAVE 5 SHIPS AND MUST SCOREOVER 5000 POINTS TO WIN."
5066 PRINT AT 18,0;"ENTER LEVEL OF PLAY (1 TO 5) (5 BEING HARDEST)"
5067 LET U$=INKEY$
5069 IF U$<"1" OR U$>"5" THEN GOTO 5067
5070 LET E=26-(2*(VAL U$))
5071 POKE 17848,E
5072 POKE 18042,E
5074 POKE 18018,(103+(VAL U$))
5075 POKE 18508,(6-(INT ((VAL U$)/2)))
5076 POKE 16871,(20-(VAL U$))
5090 CLS
5095 PRINT AT 10,0;"G O O D L U C K . . ."
5098 FOR N=1 TO 50
5099 NEXT N
5100 GOTO 30
9000 INPUT I$
9005 SAVE "AVENGEr"
9010 RUN
David Bonn 
