BLASTAR1.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 LRUNFILE()+1