1 REM Ins{nd av Berndt Birgersson <237>    1985-01-26 21.46.51
10 REM *****************************
20 REM * B]TRESAN.GAM / Minne 16K  *
30 REM * (c) Alf Wirdling / <4230> *
40 REM * Mod. f|r ABC800 av J.Stagg*
50 REM *****************************
60 INTEGER : NO EXTEND : OPTION BASE 0
70 ; CHR$(12);TAB(1+15);"B]TRESAN"
80 ; TAB(1+15);"========"
90 ; : ; "Du skall ta dig |ver med b}t fr}n en"
100 ; "strand till en annan."
110 ; : ; "Med dig har du en  varg"
120 ; "               ett lamm"
130 ; "               ett k}lhuvud."
140 ; : ; "Du kan bara ta med dig en 'sak'"
150 ; "i taget."
160 ; : ; "Hur skall du g|ra f|r att ro problemet"
170 ; "i land ???"
180 ; CUR(23,0);"TRYCK RETURN N[R DU L[ST F[RDIGT ";
190 GET R$
200 REM  DEFINIERA F\REM]LEN 
210 REM 
220 REM  B]TEN 
230 B1$="        "
240 B2$="        "
250 B3$="+'"
260 REM  MANNEN 
270 M1$=" j= "
280 M2$="  "
290 REM  INGENTING 
300 I1$="    "
310 I2$="    "
320 REM  VARGEN 
330 V1$=" hp "
340 V2$="7k  "
350 REM  LAMMET 
360 L1$=" `  "
370 L2$="hn! "
380 REM  K]LHUVUDET 
390 K1$="    "
400 K2$=" |  "
410 REM  DEFINIERA STRANDEN 
420 ; CHR$(12)
430 FOR I=0 TO 18
440   ; CUR(I,0);CHR$(151);
450 NEXT I 
460 FOR I=2 TO 79
470   SET DOT 6,I : SET DOT 50,I
480 NEXT I 
490 REM  PLACERA UT MANNEN 
500 REM  OCH SJ\S[TT B]TEN 
510 B1$=M1$+I1$ : B2$=M2$+I2$
520 ; CUR(14,15);B1$;
530 ; CUR(15,15);B2$;
540 ; CUR(16,15);B3$;
550 REM  PLACERA UT F\REM]LEN 
560 ; CUR(17,13);V1$;
570 ; CUR(18,13);V2$;
580 ; CUR(17,17);K1$;
590 ; CUR(18,17);K2$;
600 ; CUR(17,21);L1$;
610 ; CUR(18,21);L2$;
620 REM  INITIERA STRAND-F\REM]LEN 
630 S1$(1)="V" : S1$(2)="K" : S1$(3)="L"
640 S2$(1)=" " : S2$(2)=" " : S2$(3)=" "
650 S=1 : REM  AKT. STRAND 
660 REM  MAIN LOOP 
670 FOR H=1 TO 10 : ; CHR$(7);
680   ON S GOTO 690,700
690   T$(1)=S1$(1) : T$(2)=S1$(2) : T$(3)=S1$(3) : GOTO 710
700   T$(1)=S2$(1) : T$(2)=S2$(2) : T$(3)=S2$(3)
710   GOSUB 2110 : REM  SPACE  
720   ; CUR(20,9);"--- B]TRESA NR:";H;" ---";
730   ; CUR(21,5);"VAD VILL DU TA MED DIG ?????";
740   ; CUR(22,1);"V=VARG K=K]LHUVUD L=LAMM I=INGENTING ";
750   GET R$ : ; R$
760   IF R$="V" OR R$="v" GOTO 810
770   IF R$="K" OR R$="k" GOTO 910
780   IF R$="L" OR R$="l" GOTO 1010
790   IF R$="I" OR R$="i" GOTO 1110
800   GOTO 740 : REM  FEL VAL 
810   REM  VARG 
820   IF T$(1)<>"V" THEN 740
830   B1$=M1$+V1$ : B2$=M2$+V2$
840   ON S GOTO 850,880
850   ; CUR(17,13);I1$;
860   ; CUR(18,13);I2$;
870   S1$(1)=" " : GOTO 1130
880   ; CUR(0,13);I1$;
890   ; CUR(1,13);I2$;
900   S2$(1)=" " : GOTO 1130
910   REM  K]LHUVUD 
920   IF T$(2)<>"K" THEN 740
930   B1$=M1$+K1$ : B2$=M2$+K2$
940   ON S GOTO 950,980
950   ; CUR(17,17);I1$;
960   ; CUR(18,17);I2$;
970   S1$(2)=" " : GOTO 1130
980   ; CUR(0,17);I1$;
990   ; CUR(1,17);I2$;
1000   S2$(2)=" " : GOTO 1130
1010   REM  LAMM 
1020   IF T$(3)<>"L" THEN 740
1030   B1$=M1$+L1$ : B2$=M2$+L2$
1040   ON S GOTO 1050,1080
1050   ; CUR(17,21);I1$;
1060   ; CUR(18,21);I2$;
1070   S1$(3)=" " : GOTO 1130
1080   ; CUR(0,21);I1$;
1090   ; CUR(1,21);I2$;
1100   S2$(3)=" " : GOTO 1130
1110   REM  INGENTING 
1120   B1$=M1$+I1$ : B2$=M2$+I2$
1130   REM  NY B]TBILD 
1140   ON S GOTO 1150,1180
1150   ; CUR(14,15);B1$;
1160   ; CUR(15,15);B2$;
1170   GOTO 1200
1180   ; CUR(2,15);B1$;
1190   ; CUR(3,15);B2$;
1200   REM  B]TRESAN 
1210   ON S GOTO 1220,1470
1220   REM  TILL NORRA STRANDEN 
1230   FOR I=13 TO 2 STEP -1
1240     ; CUR(I+0,15);B1$;
1250     ; CUR(I+1,15);B2$;
1260     ; CUR(I+2,15);B3$;
1270     ; CUR(I+3,15);SPACE$(8);
1280     IF I=8 THEN GOSUB 1810
1290   GOSUB 2160 : NEXT I : S=2
1300   ; CUR(16,15);"pppppppp";
1310   IF R$<>"V" AND R$<>"v" THEN 1350
1320   ; CUR(0,13);V1$;
1330   ; CUR(1,13);V2$;
1340   S2$(1)="V" : GOTO 1430
1350   IF R$<>"K" AND R$<>"k" THEN 1390
1360   ; CUR(0,17);K1$;
1370   ; CUR(1,17);K2$;
1380   S2$(2)="K" : GOTO 1430
1390   IF R$<>"L" AND R$<>"l" THEN 1710
1400   ; CUR(0,21);L1$;
1410   ; CUR(1,21);L2$;
1420   S2$(3)="L" : GOTO 1430
1430   REM  B]TEN [R TOM 
1440   ; CUR(2,19);I1$;
1450   ; CUR(3,19);I2$;
1460   GOTO 1710
1470   REM  TILL S\DRA STRANDEN 
1480   FOR I=5 TO 16
1490     ; CUR(I-0,15);B3$;
1500     ; CUR(I-1,15);B2$;
1510     ; CUR(I-2,15);B1$;
1520     ; CUR(I-3,15);SPACE$(8);
1530     IF I=10 THEN GOSUB 1810
1540   GOSUB 2160 : NEXT I : S=1
1550   ; CUR(2,15);"########";
1560   IF R$<>"V" AND R$<>"v" THEN 1600
1570   ; CUR(17,13);V1$;
1580   ; CUR(18,13);V2$;
1590   S1$(1)="V" : GOTO 1680
1600   IF R$<>"K" AND R$<>"k" THEN 1640
1610   ; CUR(17,17);K1$;
1620   ; CUR(18,17);K2$;
1630   S1$(2)="K" : GOTO 1680
1640   IF R$<>"L" AND R$<>"l" THEN 1710
1650   ; CUR(17,21);L1$;
1660   ; CUR(18,21);L2$;
1670   S1$(3)="L"
1680   REM  B]TEN [R TOM 
1690   ; CUR(14,19);I1$;
1700   ; CUR(15,19);I2$;
1710   REM  [R PROBLEMET ROTT ILAND ? 
1720   IF NOT (S2$(1)="V" AND S2$(2)="K" AND S2$(3)="L") THEN 1760
1730   GOSUB 2110 : REM  SPACE 
1740   ; CUR(20,1);"DU LYCKADES - BRA ROTT !!!!!!!!!!!!!!!"
1750   GOSUB 2190 : GOTO 2220
1760 NEXT H 
1770 REM  10 B]TRESOR GJORDA !!! 
1780 GOSUB 2110 : REM  SPACE 
1790 ; CUR(20,1);"EFTER 10 B]TRESOR HAR DU INTE LYCKATS!"
1800 GOSUB 2190 : GOTO 2220
1810 REM  [R DET ETT TOKIGT VAL ??? 
1820 ON S GOTO 1830,1950
1830 IF NOT (S1$(1)="V" AND S1$(3)="L") THEN 1890
1840 ; CUR(17,13);I1$;
1850 ; CUR(18,13);I2$;
1860 ; CUR(17,21);V1$;
1870 ; CUR(18,21);V2$;
1880 GOTO 2060
1890 IF NOT (S1$(2)="K" AND S1$(3)="L") THEN RETURN 
1900 ; CUR(17,21);I1$;
1910 ; CUR(18,21);I2$;
1920 ; CUR(17,17);L1$;
1930 ; CUR(18,17);L2$;
1940 GOTO 2060
1950 IF NOT (S2$(1)="V" AND S2$(3)="L") THEN 2010
1960 ; CUR(0,13);I1$;
1970 ; CUR(1,13);I2$;
1980 ; CUR(0,21);V1$;
1990 ; CUR(1,21);V2$;
2000 GOTO 2060
2010 IF NOT (S2$(2)="K" AND S2$(3)="L") THEN RETURN 
2020 ; CUR(0,21);I1$;
2030 ; CUR(1,21);I2$;
2040 ; CUR(0,17);L1$;
2050 ; CUR(1,17);L2$;
2060 REM  ETT MYCKET TOKIGT VAL !!! 
2070 GOSUB 2110 : REM  SPACE 
2080 ; CUR(20,1);"DET VAR V[L INTE S] KLYFTIGT VA !!!"
2090 GOSUB 2190 : GOTO 2220
2100 RETURN 
2110 REM  UTBLANKA FR]G-RADER  
2120 ; CUR(20,1);SPACE$(38);
2130 ; CUR(21,1);SPACE$(38);
2140 ; CUR(22,1);SPACE$(38);
2150 RETURN 
2160 REM  F\RDR\JNING 
2170 FOR F=1 TO 200 : NEXT F 
2180 RETURN 
2190 REM  F\RDR\JNING 2 
2200 FOR F=1 TO 4000 : NEXT F 
2210 RETURN 
2220 ; : ; "Tryck S f|r att sluta eller annan tangent f|r nytt spel" : GET T$ : IF NOT (T$='s' OR T$='S') THEN GOTO 70
2230 END