1 REM ******************************
2 REM * __________STROKE__________ *
3 REM * Avsett f|r ABC80(83-11-30) *
4 REM * KAJ TIM@N      >4512<      *
5 REM * Box 29                     *
6 REM * 540 16  TIMMERSDALA        *
7 REM * Telefon 0511/81011         *
8 REM ******************************
10 ; CHR$(12)
20 A$="    STROKE     "
30 GOTO 130
40 FOR T%=1% TO LEN(A$)
50 ; CUR(10%,12%);LEFT$(A$,T%)
60 FOR R%=1% TO 300% : NEXT R%
70 IF INP(56)=141 GOTO 210
80 NEXT T%
90 FOR T%=1% TO 500%
100 IF INP(56)=141 GOTO 210
110 NEXT T%
120 RETURN 
130 GOSUB 40
180 A$="Tryck p} RETURN"
190 GOSUB 40
200 GOTO 20
210 REM ** START **
220 OUT 6,0
230 ; CHR$(12)
240 A%=2% : B%=17%
250 A$="STROKE"
260 GOTO 320
270 FOR T%=1% TO LEN(A$)
280 ; CUR(A%,B%);LEFT$(A$,T%)
290 FOR \%=1% TO 300% : NEXT \%
300 NEXT T%
310 RETURN 
320 GOSUB 270
330 A$="######"
340 FOR T%=1% TO LEN(A$)
350 ; CUR(3%,16%);CHR$(151);LEFT$(A$,T%)
360 FOR \%=1% TO 500% : NEXT \%
370 NEXT T%
380 A%=4% : B%=2%
390 A$="STROKE {r ett spel d{r du skall und-"
400 GOSUB 270
410 A%=5% : B%=0%
420 A$="vika att krocka med ditt eller din mot-"
430 GOSUB 270
440 A%=6%
450 A$="spelares streck. Ni har tre olika "
460 GOSUB 270
470 A%=7%
480 A$="hastigheter att v{lja mellan. Ni kan"
490 GOSUB 270
500 A%=8%
510 A$="ocks} v{lja olika spel s{tt, NORMAL"
520 GOSUB 270
530 A%=9%
540 A$="eller SPECIAL. Hur l}ngt varje heat ska"
550 GOSUB 270
560 A%=10%
570 A$="vara best{mmer ni sj{lva. Eventuella "
580 GOSUB 270
590 A%=11%
600 A$="oklarheter l|ser sig nog n{r ni spelat"
610 GOSUB 270
620 A%=12
630 A$="n}gra g}nger. Anv{nd STORA bokst{ver!"
640 GOSUB 270
650 A%=14%
660 A$="NI STYR MED:"
670 GOSUB 270
680 ; CUR(15%,13%);"W            ]"
690 ; CUR(16%,12%);"A S          \ ["
700 ; CUR(17%,13%);"Z            -"
710 A$="Tryck p} MELLANSLAG "
720 A%=20% : B%=10%
730 GOSUB 270
740 ; CUR(20%,30%); : GET A$
750 IF A$=CHR$(32) GOTO 770
760 GOTO 740
770 ; CHR$(12)
780 ; CUR(2%,17%);"STROKE"
790 ; CUR(3%,16%);CHR$(151%);"######"
800 A%=5% : B%=3%
810 A$="1. PROFFS"
820 GOSUB 270
830 A%=7% : B%=3%
840 A$="2. AMAT\R"
850 GOSUB 270
860 A%=9% : B%=3%
870 A$="3. NYB\RJARE"
880 E%=0% : F%=0%
890 GOSUB 270
900 A%=11% : B%=3%
910 A$="V[LJ HASTIGHET "
920 GOSUB 270
930 A%=5% : B%=26%
940 A$="A. NORMAL"
950 GOSUB 270
960 A%=7% : B%=26%
970 A$="B. SPECIAL"
980 GOSUB 270
990 A%=11% : B%=26%
1000 A$="V[LJ SPEL "
1010 GOSUB 270
1020 A%=14% : B%=3%
1030 A$="HUR L]NGT SKA HEATET VARA ?"
1040 GOSUB 270
1050 ; CUR(11%,18%); : GET H$
1060 A%=19% : B%=12%
1070 A$="STORA BOKST[VER !"
1080 IF H$>CHR$(96) GOSUB 270
1090 ; CUR(11%,18%);H$
1100 IF H$="1" OR H$="2" OR H$="3" GOTO 1120
1110 GOTO 1050
1120 IF H$="1" THEN H%=1%
1130 ; CUR(19%,12%);"                       "
1140 IF H$="2" THEN H%=2%
1150 IF H$="3" THEN H%=6%
1160 ; CUR(11%,36%); : GET S$
1170 GOTO 1220
1180 A%=19% : B%=12%
1190 A$="STORA BOKST[VER !"
1200 IF S$>CHR$(96) GOSUB 270
1210 RETURN 
1220 GOSUB 1180
1230 ; CUR(11%,36%);S$
1240 IF S$="A" OR S$="B" GOTO 1260
1250 GOTO 1160
1260 IF S$="A" THEN S%=1%
1270 ; CUR(19%,12%);"                 "
1280 IF S$="B" THEN S%=2%
1290 ; CUR(14%,31%); : GET H$(2)
1300 IF H$(2)>CHR$(48) AND H$(2)<CHR$(58) GOTO 1320
1310 GOTO 1290
1320 ; CUR(14%,31%);H$(2)
1330 H%(2)=VAL(H$(2))
1340 A%=19% : B%=17%
1350 REM 
1360 REM %%%%%%%%%%%%%%%%%%%%%%%%
1370 REM %%% RITAR SPELPLANEN %%%
1380 REM %%%%%%%%%%%%%%%%%%%%%%%%
1390 ; CHR$(12)
1400 ; CUR(1%,17%);H$" "S$H%(2)
1410 A$=CHR$(151%)
1420 ; CUR(2%,0%);A$;"|||||||||||||||||||||||||||||||||||||||"
1430 ; CUR(22%,0%);A$;""
1440 FOR A%=2% TO 20%
1450 ; CUR(A%,0%);A$;""
1460 ; CUR(A%,38%);A$;""
1470 NEXT A%
1480 FOR B%=6% TO 62%
1490 SETDOT B%,4%
1500 SETDOT B%,77%
1510 NEXT B%
1520 A$="H" : B$="V"
1530 A%=10% : B%=10% : C%=60% : D%=70%
1540 GOTO 1590
1550 ; CUR(0%,3%);"PO[NG";E%
1560 V%=6%
1570 ; CUR(0%,30%);"PO[NG";F%
1580 RETURN 
1590 GOSUB 1550
1600 REM %% NED R[KNING %%
1610 FOR R%=1% TO 7000% : NEXT R%
1620 V%=V%-1%
1630 ; CUR(11%,17%);CHR$(135);V%;CHR$(151)
1640 IF V%>0% GOTO 1600
1650 ; CUR(11%,17%);"    "
1660 REM %% STYR %%
1670 FOR \%=1% TO 1%*H%
1680 IF INP(56)=215 GOSUB 1920
1690 IF INP(56)=218 GOSUB 1940
1700 IF INP(56)=193 GOSUB 1960
1710 IF INP(56)=211 GOSUB 1980
1720 IF INP(56)=220 GOSUB 2000
1730 IF INP(56)=219 GOSUB 2020
1740 IF INP(56)=221 GOSUB 2040
1750 IF INP(56)=173 GOSUB 2060
1760 NEXT \%
1770 IF A$="U" THEN A%=A%-S%
1780 IF A$="N" THEN A%=A%+S%
1790 IF A$="H" THEN B%=B%+1%
1800 IF A$="V" THEN B%=B%-1%
1810 IF B$="U" THEN C%=C%-1%
1820 IF B$="N" THEN C%=C%+1%
1830 IF B$="H" THEN D%=D%+S%
1840 IF B$="V" THEN D%=D%-S%
1850 IF DOT(A%,B%)=-1% THEN R%=1
1860 IF DOT(C%,D%)=-1 AND R%=1 GOTO 2200
1870 IF DOT(C%,D%)=-1% 2080
1880 IF DOT(A%,B%)=-1% GOTO 2140
1890 SETDOT A%,B%
1900 SETDOT C%,D%
1910 GOTO 1660
1920 IF A$="N" THEN RETURN 
1930 A$="U" : RETURN 
1940 IF A$="U" RETURN 
1950 A$="N" : RETURN 
1960 IF A$="H" RETURN 
1970 A$="V" : RETURN 
1980 IF A$="V" RETURN 
1990 A$="H" : RETURN 
2000 IF B$="H" RETURN 
2010 B$="V" : RETURN 
2020 IF B$="V" RETURN 
2030 B$="H" : RETURN 
2040 IF B$="N" RETURN 
2050 B$="U" : RETURN 
2060 IF B$="U" RETURN 
2070 B$="N" : RETURN 
2080 OUT 6,137
2090 E%=E%+1%
2100 FOR \%=1% TO 5000% : NEXT \%
2110 OUT 6,0
2120 IF E%=H%(2) GOTO 2370
2130 GOTO 1390
2140 OUT 6,137
2150 F%=F%+1%
2160 FOR \%=1% TO 5000% : NEXT \%
2170 OUT 6,0
2180 IF F%=H%(2) GOTO 2330
2190 GOTO 1390
2200 R%=0%
2210 OUT 6,137
2220 F%=F%+1%
2230 E%=E%+1%
2240 FOR \%=1% TO 5000% : NEXT \%
2250 OUT 6,0
2260 IF E%=H%(2) AND F%=H%(2) GOTO 2280
2270 GOTO 1390
2280 REM 
2290 A%=10% : B%=18%
2300 A$="LIKA"
2310 GOSUB 270
2320 GOTO 2400
2330 A%=10% : B%=10%
2340 A$=" H\GER SPELARE VANN"
2350 GOSUB 270
2360 GOTO 2400
2370 A%=10% : B%=10%
2380 A$="V[NSTER SPELARE VANN"
2390 GOSUB 270
2400 A$="TRYCK P] RETURN "
2410 A%=12% : B%=13%
2420 GOSUB 1550
2430 GOSUB 270
2440 GOTO 2450
2450 GET \$
2460 IF \$=CHR$(13) GOTO 770
2470 GOTO 2450