100 REM   ALIEN ATTACK 
110 REM  
120 REM  COPYRIGHT 1983 
130 REM  APEX TRADING LTD. 
140 REM  
150 CALL CLEAR
160 GOSUB 430
170 GOSUB 1070
180 CALL CLEAR
190 GOTO 560
200 CALL GCHAR(LV,S,X)
210 IF(X=130)+(X=140)THEN 720
220 CALL HCHAR(LV,S,152)
230 FOR J=1 TO 8
240 IF HIT=1 THEN 400
250 CALL GCHAR(LV+J,S,X)
260 IF X<>130 THEN 340
270 SC=SC+10
280 NG=NG-1
290 HIT=1
300 CALL SOUND(300,-5,3)
310 CALL HCHAR(LV+J,S,141)
320 CALL HCHAR(LV+J,S,32)
330 GOTO 370
340 IF X<>140 THEN 370
350 SC=SC+25
360 GOTO 280
370 CALL VCHAR(LV+J,S,139)
380 CALL SOUND(50,-6,4)
390 CALL VCHAR(LV+J,S,32)
400 NEXT J
410 HIT=0
420 RETURN
430 CALL SCREEN(2)
440 RANDOMIZE
450 CALL CHAR(130,"38D64438EE9292")
460 CALL CHAR(139,"0010101010101000")
470 CALL CHAR(140,"C3FFDBFFC3BD1866")
480 CALL CHAR(152,"FFFFFFFF7E7E3C3C")
490 FOR CO=1 TO 12
500 CALL COLOR(CO,16,1)
510 NEXT CO
520 CALL COLOR(13,3,1)
530 CALL COLOR(14,7,1)
540 CALL COLOR(16,6,1)
550 RETURN
560 S=16
570 LV=6
580 CALL CLEAR
590 IF RND>.5 THEN 660
600 NG=NG+1
610 IF NG>110 THEN 910
620 IF RND>.90 THEN 630 ELSE 650
630 CALL HCHAR(24,INT(RND*31)+1,140)
640 GOTO 660
650 CALL HCHAR(24,INT(RND*31)+1,130)
660 PRINT: :
670 CALL HCHAR(LV-2,S,32)
680 CALL KEY(0,K,ST)
690 IF ST=0 THEN 790
700 IF K<>32 THEN 720
710 GOSUB 200
720 IF K<>68 THEN 760
730 S=S+1
740 IF S>31 THEN 770
750 GOTO 790
760 IF K<>83 THEN 790
770 S=S-1
780 IF S<3 THEN 730
790 CALL GCHAR(LV,S,X)
800 IF(X=130)+(X=140)THEN 830
810 CALL HCHAR(LV,S,152)
820 GOTO 590
830 CALL SCREEN(7)
840 CALL SOUND(500,-5,2)
850 CALL HCHAR(LV,S,141)
860 CALL COLOR(16,7,1)
870 FOR DEL=1 TO 30
880 NEXT DEL
890 CALL HCHAR(LV,S,152)
900 CALL SCREEN(2)
910 FOR J=660 TO 120 STEP-20
920 CALL COLOR(16,6,1)
930 CALL SOUND(100,J,2)
940 CALL COLOR(16,7,1)
950 NEXT J
960 IF SC<HSC THEN 980
970 HSC=SC
980 PRINT "SCORE =";SC: :
990 PRINT "HIGH SCORE =";HSC: : : :
1000 INPUT "PLAY AGAIN? ":Q$
1010 IF SEG$(Q$,1,1)="N" THEN 1060
1020 SC=0
1030 NG=0
1040 CALL COLOR(16,6,1)
1050 GOTO 190
1060 END
1070 CALL CLEAR
1080 PRINT "ALIEN ATTACK": :
1090 PRINT "guide your space craft usingkeys S and D.": :
1100 PRINT "fire with the space-bar.": :
1110 PRINT "score:"
1120 PRINT "       ";CHR$(130);"  10 points": :
1130 PRINT "       ";CHR$(140);"  25 points": : : :
1140 PRINT "the game ends when you      collide with an alien or    after 100 aliens escape.": :
1150 PRINT "make sure that the alpha    lock button on your computeris in the down position.": :
1160 INPUT "press enter to start":NUL$
1170 RETURN
