10 REM ________________
11 REM  Program .   STYRKULA.BAS     !
12 REM ! Vers 3.2    830505  850821   
13 REM  Av (c) Lars Eriksson 5936    !
14 REM ! Minne 16 Kbyte               
15 REM  Ins{nt av 5936               !
16 REM !_______________
17 REM  Labyrintspel d{r du styr en 
18 REM  kula fr}n start till m}l.
19 REM  Forsera banan s} snabbt som
20 REM  m|jligt utan st|ta imot 
21 REM  v{ggarna.
22 REM  {ndra L% till l{gre tal f|r
23 REM  sv}rare spel
24 REM 
30 L%=200%
31 REM 
32 L1%=L%
33 FOR B=0 TO 3000 : NEXT B
34 ; CHR$(12)
35 RESTORE 
36 READ Y,X
37 IF Y=-2 THEN 36
38 IF Y=-1 THEN 41
39 ; CUR(Y,X)CHR$(127);
40 GOTO 36
41 ; CUR(1,10)'S';
42 ; CUR(20,26)CHR$(77);
43 ; CUR(18,31)'A=UPP'CUR(19,31)'Z=NER';
44 ; CUR(21,31)'.=H\GER'CUR(22,31)',=V[NSTER';
45 ; CUR(1,32)'MINUSP.'CUR(6,32)'ST\TAR';
46 FOR T=0 TO 5000 : NEXT T
47 Y1=1 : X1=10
48 ; CUR(Y1,X1)CHR$(42);
49 J=J+1
50 ; CUR(3,32)W%;
51 ; CUR(8,32);V%;
52 IF Y1=20 THEN 54
53 GOTO 57
54 IF X1=26 THEN 125
55 IF J>100 THEN L%=L1%/2%
56 IF J>160 THEN L%=L1%/4%
57 FOR A%=0% TO L%
58 IF A%=L% THEN W%=W%+1%
59 IF A%=L%/2% THEN W%=W%+1%
60 IF INP(56)=193 THEN 69
61 IF INP(56)=218 THEN 79
62 IF INP(56)=172 THEN 89
63 IF INP(56)=174 THEN 99
64 NEXT A%
65 IF Z=0 THEN 89
66 IF Z=1 THEN 99
67 IF Z=2 THEN 79
68 IF Z=3 THEN 69
69 REM UPP
70 Y1=Y1-1 : Z=3
71 ; CUR(Y1+1,X1)' 'CUR(Y1,X1)CHR$(42);
72 ; CUR(Y,X);CHR$(127);
73 GOSUB 109
74 IF Y=-2 THEN 48
75 IF Y=-1 THEN 48
76 FOR T=0 TO 500 : OUT 6,9 : NEXT T : OUT 6,0
77 W%=W%+2% : V%=V%+1%
78 GOTO 79
79 REM NER
80 Y1=Y1+1 : Z=2
81 ; CUR(Y1-1,X1)' 'CUR(Y1,X1)CHR$(42);
82 ; CUR(Y,X);CHR$(127);
83 GOSUB 109
84 IF Y=-2 THEN 48
85 IF Y=-1 THEN 48
86 FOR T=0 TO 500 : OUT 6,9 : NEXT T : OUT 6,0
87 W%=W%+2% : V%=V%+1%
88 GOTO 69
89 REM V[NSTER
90 X1=X1-1 : Z=0
91 ; CUR(Y1,X1+1)' 'CUR(Y1,X1)CHR$(42);
92 ; CUR(Y,X);CHR$(127);
93 GOSUB 109
94 IF Y=-2 THEN 48
95 IF Y=-1 THEN 48
96 FOR T=0 TO 500 : OUT 6,9 : NEXT T : OUT 6,0
97 W%=W%+2% : V%=V%+1%
98 GOTO 99
99 REM H\GER
100 X1=X1+1 : Z=1
101 ; CUR(Y1,X1-1)' 'CUR(Y1,X1)CHR$(42);
102 ; CUR(Y,X);CHR$(127);
103 GOSUB 109
104 IF Y=-2 THEN 48
105 IF Y=-1 THEN 48
106 FOR T=0 TO 500 : OUT 6,9 : NEXT T : OUT 6,0
107 W%=W%+2% : V%=V%+1%
108 GOTO 89
109 REM KOLLA ST\T
110 X2=X1+1
111 IF X2>10 THEN 114
112 ON X2 RESTORE 143,145,146,147,148,149,150,151,152,153
113 GOTO 120
114 IF X2>20 THEN 118
115 X2=X2-10
116 ON X2 RESTORE 154,155,156,157,158,159,160,161,162,163
117 GOTO 120
118 X2=X2-20
119 ON X2 RESTORE 164,165,166,167,168,169,170,171,172,173
120 READ Y,X
121 IF Y=-2 THEN RETURN 
122 IF Y=-1 THEN RETURN 
123 IF Y=Y1 THEN RETURN 
124 GOTO 120
125 REM M]L
126 CLOSE 3
127 IF W%>120% THEN B$='INTE BRA'
128 IF W%<101% THEN B$='BRA'
129 IF W%<10% THEN B$='MYCKE BRA'
130 ; CUR(0,32);B$;
131 IF V%>15% THEN B$='M]NGA'
132 IF V%<11% THEN B$='BARA F]'
133 IF V%=0% THEN B$='! INGA'
134 ; CUR(5,32);B$;
135 FOR T=0 TO 5
136 FOR T1=0 TO 300 : OUT 6,251 : NEXT T1
137 FOR T1=0 TO 300 : OUT 6,3 : NEXT T1
138 FOR T1=0 TO 300 : OUT 6,249 : NEXT T1
139 NEXT T : OUT 6,0
140 ; CUR(23,32);
141 GET D$ : GET D$
142 IF D$="@" THEN END ELSE GOTO 31
143 DATA 0,0,1,0,2,0,3,0,4,0,5,0,6,0,7,0,8,0,9,0,10,0,11,0,12,0,13,0,14,0,15,0
144 DATA 16,0,17,0,18,0,19,0,20,0,21,0,22,0,23,0
145 DATA 5,1,10,1,11,1,18,1,23,1,0,1,-2,-2
146 DATA 3,2,7,2,10,2,14,2,15,2,16,2,20,2,23,2,0,2,-2,-2
147 DATA 3,3,7,3,10,3,12,3,18,3,23,3,0,3,-2,-2,
148 DATA 0,4,1,4,3,4,4,4,5,4,6,4,7,4,10,4,12,4,18,4,20,4,23,4,-2,-2
149 DATA 0,5,3,5,7,5,8,5,12,5,13,5,14,5,15,5,16,5,17,5,18,5,19,5,20,5,21,5,23,5,-2,-2
150 DATA 0,6,3,6,9,6,10,6,11,6,20,6,23,6,-2,-2
151 DATA 0,7,2,7,3,7,5,7,10,7,20,7,23,7,-2,-2
152 DATA 0,8,2,8,5,8,6,8,7,8,10,8,13,8,14,8,15,8,16,8,17,8,20,8,23,8,-2,-2
153 DATA 0,9,2,9,7,9,13,9,20,9,23,9,-2,-2
154 DATA 2,10,8,10,0,10,13,10,20,10,23,10,-2,-2
155 DATA 0,11,1,11,2,11,3,11,4,11,5,11,8,11,9,11,10,11,11,11,12,11,13,11,15,11,18,11,19,11,20,11,21,11,23,11,-2,-2
156 DATA 0,12,5,12,8,12,11,12,17,12,18,12,23,12,-2,-2
157 DATA 0,13,3,13,5,13,8,13,11,13,14,13,15,13,16,13,17,13,23,13,-2,-2
158 DATA 0,14,1,14,5,14,11,14,17,14,20,14,21,14,22,14,23,14,-2,-2
159 DATA 0,15,3,15,5,15,7,15,11,15,17,15,23,15,-2,-2
160 DATA 0,16,3,16,5,16,11,16,12,16,13,16,14,16,17,16,18,16,23,16,-2,-2
161 DATA 0,17,2,17,3,17,5,17,7,17,14,17,19,17,20,17,23,17,-2,-2
162 DATA 0,18,3,18,5,18,7,18,14,18,17,18,23,18,-2,-2
163 DATA 0,19,3,19,5,19,9,19,11,19,14,19,21,19,23,19,-2,-2
164 DATA 0,20,1,20,3,20,5,20,9,20,14,20,15,20,16,20,17,20,18,20,23,20,-2,-2
165 DATA 0,21,3,21,5,21,6,21,7,21,8,21,9,21,12,21,13,21,14,21,18,21,19,21,20,21,21,21,22,21,23,21,-2,-2
166 DATA 0,22,3,22,12,22,23,22,-2,-2
167 DATA 0,23,2,23,3,23,12,23,23,23,-2,-2
168 DATA 0,24,3,24,4,24,5,24,6,24,7,24,8,24,9,24,10,24,11,24,12,24,16,24,23,24,-2,-2
169 DATA 0,25,3,25,7,25,9,25,16,25,19,25,20,25,21,25,23,25,-2,-2
170 DATA 0,26,9,26,13,26,16,26,19,26,23,26,-2,-2
171 DATA 0,27,2,27,5,27,7,27,11,27,16,27,19,27,20,27,23,27,-2,-2
172 DATA 0,28,4,28,5,28,9,28,11,28,16,28,23,28,-2,-2
173 DATA 0,29,1,29,2,29,3,29,4,29,5,29,6,29,7,29,8,29,9,29,10,29,11,29,12,29,13,29,14,29,15,29,16,29
174 DATA 17,29,18,29,19,29,20,29,21,29,22,29,23,29,-2,-2,-1,-1