210 "F"CLS :WAIT 0:CLEAR :RANDOM 
220 Z=RND 22+7:P=-1:L=5:R=1:IF RND 2=1 LET R=-1
230 A=R:CURSOR 16,3:PRINT "0   000
240 GCURSOR (91,21):GPRINT "7E404040003048483000F828281000043E4424007A"
250 GCURSOR (119,21):GPRINT "7E4A4A340030484830003048487E0030484830001820402018003048483840"
260 FOR X=26 TO 84 STEP 4:FOR Y=3 TO 24 STEP 7:LINE (X,Y)-(X,Y+4):NEXT Y:NEXT X
270 X=0:LINE (1,0)-(89,1),B:LINE (1,30)-(89,31),B:LINE (88,2)-(89,29),B
280 GCURSOR (0,Z):GPRINT "70"
290 IF L=0 OR D=480 WAIT :CURSOR 23,3:PRINT " Kraj":END 
300 T=1:Y=Z-2:L=L-1:CURSOR 16,3:PRINT STR$ L
310 IF INKEY$ LET Z=(INKEY$ =",")-(INKEY$ =")")+Z:GCURSOR (0,Z):GPRINT "70"
320 IF X<0 LET X=1:GOTO 290
330 X=X+T:Y=Y+R:IF POINT (X,Y) GOSUB 360
340 PSET (X,Y):PRESET (P,Q):P=X:Q=Y
350 GOTO 310
360 R=A:IF Y>29 OR Y<2 LET R=-R:A=R:GOTO 390
370 T=-T:IF X=0 GOSUB 420
380 IF X>24 AND X<86 GOSUB 400
390 X=P:Y=Q:P=-1:RETURN 
400 B=INT ((Y-3)/7)*7+3:LINE (X,B)-(X,B+4),R
410 C=INT ((X-26)/4)+1:D=D+C:CURSOR 19,3:PRINT USING "####";D:RETURN 
420 A=R:R=0:IF INKEY$ ="," LET R=1
430 IF INKEY$ =")" LET R=-1
440 RETURN