1 REM   *EARTH ATTACK*
2 REM       *PCT-82*
3 CALL CLEAR
4 INPUT "GRADE<1-2>? ":GRADE
5 IF GRADE=1 THEN 10
6 LET SCORE=5000
10 RANDOMIZE
20 CALL CLEAR
30 CALL SCREEN(2)
40 CALL CHAR(33,"8181423C6AFF7E24")
50 CALL CHAR(40,"00021E36FE361E02")
60 CALL CHAR(34,"8344218002212449")
70 CALL CHAR(64,"000000FFFF")
80 CALL CHAR(72,"FF80808080808080")
90 CALL CHAR(73,"80808080808080FF")
100 REM   PRINT SCORE
110 CALL HCHAR(1,25,48,4)
120 CALL COLOR(3,16,2)
130 CALL COLOR(4,16,2)
140 REM  PRINT SCENERY
150 FOR F=2 TO 20 STEP 3
160 CALL HCHAR(F,1,72,20)
170 CALL HCHAR(F+2,1,73,20)
180 CALL SOUND(100,200,1)
190 NEXT F
200 CALL COLOR(6,4,1)
210 CALL SOUND(100,-3,1)
220 REM  PRINT BACKLINE
230 CALL CHAR(74,"8080808080808080")
240 CALL VCHAR(2,30,74,21)
250 CALL SOUND(100,500,1)
260 REM  START GAME
270 X=INT(6*RND)*3+3
280 Y=1
290 H=12
300 CALL HCHAR(H,22,40)
310 CALL HCHAR(X,Y,33)
320 CALL COLOR(1,9,1)
330 CALL COLOR(2,13,1)
340 CALL KEY(0,K,S)
350 IF S=0 THEN 390
360 IF K=65 THEN 470
370 IF K=90 THEN 520
380 IF K=46 THEN 570
390 CALL GCHAR(X,Y+1,C)
400 IF C=40 THEN 850
410 CALL HCHAR(X,Y+1,33)
420 CALL HCHAR(X,Y,32)
430 Y=Y+1
440 IF Y=30 THEN 850
441 IF SCORE=5000 THEN 442 ELSE 450
442 IF RND<.3 THEN 1010
450 IF RND>.9 THEN 1010
460 GOTO 340
470 IF H=3 THEN 390
480 CALL HCHAR(H-3,22,40)
490 CALL HCHAR(H,22,32)
500 H=H-3
510 GOTO 390
520 IF H=21 THEN 390
530 CALL HCHAR(H+3,22,40)
540 CALL HCHAR(H,22,32)
550 H=H+3
560 GOTO 390
570 IF H<>X THEN 700
580 CALL HCHAR(H,Y+1,64,21-Y)
590 CALL SOUND(10,900,1)
600 CALL COLOR(5,16,1)
610 CALL COLOR(5,1,1)
620 CALL HCHAR(X,Y,34)
630 CALL HCHAR(X,Y,32)
640 CALL SOUND(-500,-5,1)
650 GOSUB 760
660 CALL HCHAR(X,1,32,21)
670 X=INT(6*RND)*3+3
680 Y=1
690 GOTO 300
700 CALL HCHAR(H,1,64,21)
710 CALL SOUND(10,900,1)
720 CALL COLOR(5,16,1)
730 CALL COLOR(5,1,1)
740 CALL HCHAR(H,1,32,21)
750 GOTO 390
760 CALL GCHAR(1,26,C)
770 IF C=57 THEN 800
780 CALL HCHAR(1,26,C+1)
790 RETURN
800 CALL HCHAR(1,26,48)
810 CALL GCHAR(1,25,C)
811 IF C>=54 THEN 812 ELSE 820
812 SCORE=5000
820 IF C=57 THEN 1150
830 CALL HCHAR(1,25,C+1)
840 RETURN
850 CALL SCREEN(11)
860 CALL SOUND(10,-2,1)
870 CALL SOUND(500,-4,1)
880 CALL HCHAR(H,22,34)
890 CALL VCHAR(5,5,33,5)
900 CALL HCHAR(5,5,33,4)
910 CALL HCHAR(7,5,33,3)
920 CALL HCHAR(9,5,33,4)
930 CALL VCHAR(5,10,33,5)
940 CALL VCHAR(5,13,33,5)
950 CALL HCHAR(5,10,33,3)
960 CALL VCHAR(5,15,33,5)
970 CALL VCHAR(6,18,33,3)
980 CALL HCHAR(5,15,33,3)
990 CALL HCHAR(9,15,33,3)
1000 FOR D=1 TO 1000
1001 NEXT D
1002 GOTO 10
1010 IF H<>X THEN 1090
1020 CALL HCHAR(X,Y-1,64,21-Y)
1030 CALL SOUND(10,-3,1)
1040 CALL COLOR(5,9,1)
1050 CALL COLOR(5,1,1)
1060 CALL HCHAR(X,Y+1,32,21-Y)
1070 CALL SOUND(1000,-7,1)
1080 GOTO 850
1090 CALL HCHAR(X,Y+1,64,30-Y)
1100 CALL SOUND(10,-3,1)
1110 CALL COLOR(5,9,1)
1120 CALL COLOR(5,1,1)
1130 CALL HCHAR(X,Y+1,32,30-Y)
1140 GOTO 340
1150 CALL CLEAR
1160 CALL SCREEN(7)
1170 PRINT "BRA! DU HAR RADDAT JORDEN!"::
1180 PRINT "TRYCK J FOR NYTT SPEL OCH"::
1185 PRINT "N FOR ATT SLUTA."
1190 CALL KEY(0,K,S)
1200 IF S=0 THEN 1190
1210 IF K=74 THEN 1
1215 IF K=78 THEN 1220 ELSE 1190
1220 CALL CLEAR
1230 END