BLASTAR-ICHIGOCAKE.BAS

100 'BLASTAR
110 CLS
120 LC6,6
130 ?CHR$(#8B,#83,#84,#85,0,0,#86,#83,#84,#86,#83,#84,#83,#87,#81,#86,#83,#84,#87,#83,#84)
140 LC6,7
150 ?CHR$(#8A,#8C,#81,#85,0,0,#85,0,#85,#89,#8C,0,0,#85,0,#85,0,#85,#85,0,#85)
160 LC6,8
170 ?CHR$(#8A,0,#85,#85,0,0,#87,#83,#85,#84,0,#85,0,#85,0,#87,#83,#85,#87,#8B)
180 LC6,9
190 ?CHR$(#83,#83,0,#83,#83,#81,#81,0,#81,#82,#83,0,0,#81,0,#81,0,#81,#81,0,#81)
200 FORI=1TO2
210 PLAY"T200L16O3CECECDBABADACECEBDACDBDCEGG
220 IFSOUND()CONT
230 PLAY"T200L16O4CECECDBABADACECEBDACDBDCEGG
240 IFSOUND()CONT
250 NEXT
260 CLS
270 ?"BY E.R.MUSK
280 WAIT60
290 CLS
300 LC12,3
310 ?"BLASTAR
320 LC4,7
330 ?"DO YOU NEED INSTRUCTIONS
340 LC13,9
350 ?"(Y/N)
360 CLK
370 I=INKEY()
380 IF!IGOTO370
390 IFI<>89ANDI<>121GOTO570
400 CLS
410 LC8,3
420 ?"<USE ARROW KEY>
430 LC8,5
440 ?"FOR CONTROL AND
450 LC10,7
460 ?"FIRE BUTTON
470 LC11,9
480 ?"TO SHOOT
490 LC0,15
500 ?"MISSION:DESTROY ALIEN FREIGHTER
510 ?
520 ?"CARRYING DEADLY HYDROGEN BOMBS
530 ?
540 ?"AND STATUS BEAM MACHINES
550 CLK
560 IF!INKEY()CONT
570 POKE240*8,#99,#99,#99,#E7,#C3,#C3,#C3,#C3
580 POKE241*8,0,0,#42,#A5,#42,0,0,0
590 POKE242*8,#18,#42,#E7,#BD,#5A,#24,#3C,#66
600 POKE243*8,0,#10,#38,#7C,#7C,#38,#10,0
610 X=0:Y=5:P=16:C=22:W=0
620 H=0:G=RND(20)+1:CLS
630 LC3,0:?"SCORE ";X
640 LC22,0:?"SHIPS ";Y
650 D=PEEK(#1E02):CLT
660 IFTICK()<5CONT
670 O=P-(P>0)*(D&1)+(P<30)*((D&2)/2)
680 B=C-(C>1)*((D&4)/4)+(C<22)*((D&8)/8)
690 IFO=PANDB=CGOTO710
700 LCP,C:?" "
710 LCO,B:?CHR$(240):P=O:C=B
720 IF!(D&16)GOTO760
730 PLAY"L16O3DO4F"
740 IFW>0LCU,W:?" "
750 U=P:W=C
760 IFW=0GOTO850
770 LCU,W:?" ":W=W-1
780 IFW=0GOTO850
790 LCU,W:?CHR$(241)
800 IFW<>GOR(U<>HANDU<>H+1)GOTO850
810 LCU,W:?" "
820 LCH,G:?CHR$(244):WAIT60
830 LCH,G:?" ":H=0:G=RND(20)+1
840 X=X+80:GOTO620
850 LCH,G:?" ":H=(H+1)%32
860 LCH,G:?CHR$(242)
870 IFH<>PORG>CGOTO650
880 IFRND(3)GOTO650
890 FORZ=G+1TOC
900 PLAY"O2L15G"
910 LCH,Z:?CHR$(243):WAIT5
920 LCH,Z:?" ":NEXT
930 LCP,C:?CHR$(244):WAIT60
940 Y=Y-1:IFY>=0GOTO620
950 LC12,3:?"BLASTAR
960 LC8,5:?"FLEET DESTROYED
970 CLK