56 Battleships
470 SC2=SC2+1:IF SC2=6 THEN 510
480 GOTO 110
490 LOCATE 1,19:PRINT CHR$(20);:LOCATE 1
,19:PEN 2:PRINT"WELL DONE ! YOU DESTROYE D ALL	THE COMPUTER'S FLEET !!":PEN 1
500 GOTO 520
510 LOCATE 1,19:PRINT CHR$(20);:LOCATE 1
,19:PEN 3:PRINT"BAD LUCK ! THE COMPUTER SUNK	ALL YOUR SHIPS !!":PEN 1
520 PRINT:PRINT"PRESS ANY KEY TO PLAY AG AIN..."
530 IF INKEY$<>"" THEN 530
540 IF INKEY$="" THEN 540 ELSE RUN 550 STOP
560 REM * INITIALISE
570 A$="BATTLESHIPS "
580 LOCATE 1,3:FOR F=1 TO 5:FOR G=1 TO 1 3:PRINT MID$(A$,G,1);:SOUND 2,(G*3+F*5), 4:NEXT G, F
590 PRINT CHR$(24)"	El	PAUL STA
N L E Y	":PRINT CHR$(24)
600 PRINT:PRINT
610 PEN 3:PRINT"Play the computer at bat tleships":PEN 1
620 PEN 2:PRINT:PRINT"The winner is t he first to destroy all six enemy s hips.":PEN 1
630 PRINT:PRINT:PRINT CHR$(24)" Instruct ions are given as you proceed.
":PRINT CHR$(24)
640 PEN 3:PRINT:PRINT"PRESS ANY KEY TO S TART....	":PEN 1
650 IF INKEY$=""THEN 650 ELSE CLS
660 RETURN
670 LOCATE 1,24:PEN 2: INPUT"ENTER SKILL LEVEL	[1-EASY OR 2-HARD]
";SC:PEN 1:LOCATE 1,24:PRINT SPACE$(64
680 IF SC<>2 AND SC<>1 THEN 670