1 REM Ins{nd av Lennart Einarsson <6554>    1986-06-01 14.18.23
1410 GET K$ : RETURN 
10 REM CHRISTER ANDREASSON -79
20 DIM A%(12%,12%),B%(12%,12%)
30 IF PEEK(590%)<>40% ; INP(3%)
40 LET E%=1% : ; CHR$(12)
50 ; "**************************************" : ; "**************************************"
60 ; "************** SJ\SLAG ***************" : ; "**************************************"
70 ; "**************************************"
80 FOR I=1 TO 999 : OUT 6%,5% : NEXT I
90 OUT 6,0
100 ; CUR(15%,4%);"Vill Du ha instruktioner?(J/N)";
110 GET G$
120 IF G$="J" OR G$="j" OR ASC(G$)=13 THEN 780
130 RANDOMIZE 
140 ; CHR$(12)
150 ; CUR(0%,5%);"*** S [ N K A  S K E P P ***" : ; CUR(3%,4%);"DINA SKEPP      ABC 80:S SKEPP"
160 FOR I%=4% TO 33% : ; CUR(4,I%);"" : NEXT I%
170 FOR I%=5% TO 16% : ; CUR(I%,1);I%-4% : NEXT I%
180 FOR I%=5% TO 16% : ; CUR(I%,4%);"" : NEXT I%
190 FOR I%=5% TO 16% : ; CUR(I%,17%);I%-4% : NEXT I%
200 FOR I%=5% TO 16% : ; CUR(I%,17%);"" : NEXT I%
210 FOR I%=5% TO 16% : ; CUR(I%,20%);"" : NEXT I%
220 FOR I%=5% TO 16% : ; CUR(I%,33%);"" : NEXT I%
230 FOR I%=4% TO 33% : ; CUR(17%,I%);"" : NEXT I%
240 ; CUR(18%,5%);"123456789012    123456789012"
250 FOR I%=1% TO 10%
260 ; CUR(21%,30%)SPACE$(25)
270 ; CUR(21%,1%);"VAR VILL DU PLACERA DINA SKEPP ";
280 ONERRORGOTO 260
290 INPUT R%,K% : IF R%<1% OR R%>12% OR K%<1% OR K%>12% THEN 260
300 ; CUR(R%+4%,K%+4%);"*" : A%(R%,K%)=2% : NEXT I%
310 GOSUB 740
320 IF R%>8% THEN 310
330 FOR I%=1% TO 4% : B%(R%+I%,K%)=2% : NEXT I%
340 GOSUB 740
350 IF R%>9% THEN 340
360 FOR I%=1% TO 3% : B%(R%+I%,K%)=2% : NEXT I%
370 GOSUB 740
380 IF R%>10% THEN 370
390 FOR I%=1% TO 2% : B%(R%+I%,K%)=2% : NEXT I%
400 GOSUB 740 : B%(R%,K%)=2%
410 ; CUR(21%,1%)SPACE$(50) : ; CUR(21%,1%);"VILKEN RUTA SKJUTER DU P] ";
420 ONERRORGOTO 750
430 INPUT R%,K% : IF R%>12% OR K%>12% OR R%<1% OR K%<1% THEN 750 : IF B%(R%,K%)=2% THEN 710
440 IF B%(R%,K%)=1% THEN 760
450 B%(R%,K%)=1% : ; CUR(R%+4%,K%+20%);"X" : FOR [%=1 TO 5000 : NEXT [%
460 ON E% GOTO 470,550,560,570,580,590
470 H%=0% : F%=0% : GOSUB 740
480 IF A%(R%,K%)=1% THEN 470
490 IF A%(R%,K%)=0% THEN 620
500 A%(R%,K%)=1% : ; CUR(R%+4%,K%+4%);"" : D%=D%+1%
510 ; CUR(21%,1%)SPACE$(50) : ; CUR(21%,1%);"    PO[NG DU:"C%"   PO[NG ABC 80:"D% : E%=2%
520 FOR I=1 TO 3000 : OUT 6,137 : NEXT I : OUT 6,0 : IF D%=10% THEN 670 ELSE IF H%=1% THEN 540
530 M%=R% : S%=R% : N%=K% : T%=K% : H%=1% : GOTO 410
540 M%=R% : N%=K% : GOTO 410
550 R%=M%-1% : K%=N% : E%=3% : GOTO 630
560 K%=N%+1% : R%=M% : E%=4% : GOTO 630
570 R%=M%+1% : K%=N% : E%=5% : GOTO 630
580 K%=N%-1% : R%=M% : E%=6% : GOTO 630
590 IF F%=1% THEN 600 ELSE 610
600 E%=1% : GOTO 470
610 F%=1% : E%=2% : M%=S% : N%=T% : GOTO 460
620 A%(R%,K%)=1% : ; CUR(R%+4%,K%+4%);"X" : GOTO 410
630 IF R%>12% OR R%<1% OR K%<1% OR K%>12% THEN 460
640 IF A%(R%,K%)=2% THEN 500
650 IF A%(R%,K%)=0% THEN 620 ELSE 460
660 ; CHR$(12) : ; "GRATULERAR, DU HAR VUNNIT" : GOTO 680
670 ; CHR$(12) : ; : ; : ; : ; : ; "HA-HA, DU F\RLORADE!" : FOR I=1 TO 5000 : OUT 6,7 : NEXT I : OUT 6,0
680 ; : ; "EN OMG]NG TILL J/N ? "; : GET X$
690 IF X$="J" OR X$="j" GOTO 10 ELSE END 
700 REM *******************************
710 ; CUR(R%+4%,K%+20%);"" : B%(R%,K%)=1% : C%=C%+1%
720 ; CUR(21%,1%)SPACE$(50) : ; CUR(21%,1%);"    PO[NG DU:"C%"   PO[NG ABC 80:"D%
730 FOR I=1 TO 3000 : OUT 6,137 : NEXT I : OUT 6,0 : IF C%=10% THEN 660 : GOTO 460
740 R%=INT(RND*12%+1%) : K%=INT(RND*12%+1%) : RETURN 
750 ; CUR(21%,1%)SPACE$(50); : ; CUR(21%,1%);"UTANF\R M\NSTRET" : GOTO 770
760 ; CUR(21%,1%)SPACE$(50);CUR(21%,5%);"DEN HAR DU REDAN TAGIT" : GOTO 770
770 FOR I=1 TO 1000 : OUT 6%,7% : NEXT I : OUT 6%,O% : GOTO 410
780 ; CHR$(12)
790 ; "****** INSTRUKTIONER TILL SJ\SLAG ******"
800 ; 
810 ; "SJ\SLAG {r en variant av S[NKA SKEPP d{rDu spelar mot ABC-80."
820 ; "B|rja med att placera ut Dina skepp. "
830 ; "Du har en 'etta',en 'tv}a',en 'trea' ochen 'fyra' till Ditt f|rfogande,";
840 ; " (t ex * ** *** ****)."
850 ; "Dessa placerar Du var Du vill genom att ange deras koordinater."
860 ; "Du f}r placera Dina skepp horisontellt, vertikalt";
870 ; ", diagonalt och i vinkel."
880 ; "Detsamma g{ller f|r ABC 80."
890 ; "Skott mot ABC 80:s skepp anges likas}   genom att ange (de t{nkta) koordinaterna."
900 ; "En 'bom' markeras med X. Tr{ff markeras med vit ruta (cursor)."
910 ; 
920 ; "LYCKA TILL - M] B[STE MAN VINNA!"
930 ; : ; "Tryck p} return n{r du l{st klart";
940 GET G$ : GOTO 130