100 PRINT CHR$(12)
110 PRINT TAB(25)"PHILIPS P3000  -  COMPUTER GAME""
120 PRINT:PRINT
130 PRINT TAB(10)"************************************************************"
140 PRINT TAB(10)"*** M E T E O R S  from the universe, striking the earth ***"
150 PRINT TAB(10)"************************************************************"
160 PRINT:PRINT
170 INPUT "         Do you know the rules of the game? (y/n): ",REGELN$
180 IF REGELN$="n" OR REGELN$="N" THEN GOSUB 810
190 CC=0:GG=0:PRINT
200 PRINT "         Press The ANY KEY and the game starts   : ";
210 R$=INPUT$(1)
220 PRINT CHR$(12)
230 CLEAR
240 DIM A(40)
250 DEF FNPRI$(X,Y)=CHR$(&H1B)+CHR$(&H3D)+CHR$(X+32)+CHR$(Y+32)
260 PRINT CHR$(&H1B);CHR$(&H2A)
270 PRINT CHR$(&H1B);CHR$(&H24)
280 P=39
290 A=INT(RND*79)+1
300 PRINT FNPRI$(24,A);"BC"
310 B=B+1
320 B=B MOD 24
330 A(B)=A
340 P$=INKEY$
350 IF P$="" THEN 400
360 IF P$="4" THEN IF P>2 THEN P=P-1
370 IF P$="6" THEN IF P<78 THEN P=P+1
380 IF P$=" " THEN 610
390 IF P$="5" THEN 610
400 PRINT FNPRI$(0,P);"AID"
410  IF A(B+3)=P THEN 450
420  IF A(B+3)=(P+1) THEN 450
430 CC=CC+1
440 GOTO 290
450 PRINT CHR$(&H1B);CHR$(&H25)
460 PRINT FNPRI$(3,P-3);"CRASH"
470 PRINT CHR$(12)
480 PRINT FNPRI$(5,20);"ANOTHER GAME? (Y/N) "
490 PRINT FNPRI$(6,20);"You have destroyed ";GG;" METEORS, but"
500 PRINT FNPRI$(7,19);(CC-22);"METEORS have damaged the earth!!!":GOTO 570
510 IF (CC-22) >100 THEN PRINT CHR$(12);"To many METEORS have damaged the earth, you are the only survivor":PRINT"Walk to the MOON you ... you you,.......   I got no words for you":GOTO 540
520 PRINT FNPRI$(22,15);"*** T H E   E A R T H   I S   L O S T   N O W ***"
530 PRINT
540 FOR I=1 TO 18:PRINT CHR$(7);:FOR J=1 TO 10:PRINT "********";:NEXT J:NEXT I
550 PRINT:PRINT"Not"
560 END
570 AN$=INKEY$:IF AN$="" THEN 570
580 IF AN$="Y" OR AN$="y" THEN 190
590 IF AN$="N" OR AN$="n" THEN 510
600 GOTO 570
610 FOR D= 1 TO 6
620 SA=(B+3+D)
630 SA=SA-2
640 IF SA>23 THEN SA=SA-24
650 AS1=A(SA)
660 IF AS1=(P)  THEN 720
670 IF AS1=(P+1) THEN 720
680 PRINT FNPRI$(D,(P+1));"I";
690 IF D>1 THEN PRINT FNPRI$((D-1),(P+1));" "
700 NEXT D
710 GOTO 400
720  D=D-1 :PRINT FNPRI$(D,(P+1));"9";
730 GG=GG+1
740 PRINT FNPRI$(D,P);")=&";
750 PRINT FNPRI$(D,P);"D H";
760 PRINT FNPRI$(D,P);"   ";
770 A(SA)=0
780 GOTO 290
790 PRINT CHR$(&H1B);CHR$(&H25)
800 END
810 PRINT CHR$(12)
820 PRINT"******** Here are the RULES of the GAME ********":PRINT
830 PRINT"Ziel dieses Spiels ist es, m|glichst viele Angreifer aus"
840 PRINT"dem All abzuschiessen!!"
850 PRINT"Ihr Raumschiff bewegen Sie im All mit der Zifferntastatur!"
860 PRINT "With KEY 4 your Spaceship is going to the LEFT"
865 PRINT "With KEY 5 your Spaceship STOPS"
870 PRINT "With KEY 6 your Spaceship is going to the RIGHT
880 PRINT "You can destroy the big METEORS by pressing the SPACE BAR"
900 PRINT:PRINT
910 PRINT"Am Ende erfahren Sie Ihre Trefferzahl. Wenn Sie zuviel"
920 PRINT"Angreifer passieren lassen, wird der Planet Erde zerst|rt
930 PRINT"und das bedeutet, R}ckkehr zum Programm-Men}!"
940 PRINT"wenn Sie alles gelesen haben, k|nnen Sie starten!!!"
950 RETURN
NT"und das bedeutet, R}ckkehr zum P