6000 "J"CLEAR :GOSUB 6160:CURSOR 72:PRINT "please wait 2.45 min
6005 GOSUB 6180:GOTO 6040
6010 "L"GOSUB 6160:WAIT 80:GPRINT 
6040 X=0:CLS :WAIT 0:LINE (0,0)-(67,31),BF
6045 LINE (67,22)-(149,22):CURSOR 88:PRINT "* t="
6050 FOR I=0 TO 2000:CURSOR 92:PRINT STR$ I
6060 Q=(X+1)*2:W=Y*2:LINE (Q,W)-(Q+1,W+1),R,BF
6070 IF INKEY$ ="2" LET Y=Y+1:GOSUB 6100
6072 IF INKEY$ ="4" LET X=X-1:GOSUB 6110
6074 IF INKEY$ ="6" LET X=X+1:GOSUB 6120
6076 IF INKEY$ ="8" LET Y=Y-1:GOSUB 6130
6080 Q=(X+1)*2:W=Y*2:LINE (Q,W)-(Q+1,W+1),S,BF
6090 NEXT I:PRINT "KRAJ !":END 
6100 IF Y<16 IF L$(X,Y)="0"RETURN 
6105 Y=Y-1:GOTO 6140
6110 IF X>-1 IF L$(X,Y)="0"RETURN 
6115 X=X+1:GOTO 6140
6120 IF X>31 IF Y=ECURSOR 83:PRINT "IZLAZ":END 
6125 IF X<32 IF L$(X,Y)="0"RETURN 
6127 X=X-1:GOTO 6140
6130 IF Y>-1 IF L$(X,Y)="0"RETURN 
6135 Y=Y+1
6140 CURSOR 83:PRINT "Z I D":FOR I=1 TO 5:BEEP 1:NEXT I
6150 CURSOR 83:PRINT "     ":RETURN 
6160 CLS :WAIT 0:Y=RND 3-1:Y=Y*3
6165 E=RND 16-1:IF E=1 OR E=3 OR E=6 OR E=8 OR E=13 GOTO 6165
6168 LINE -(33,17),B:PRESET (X,Y+1)
6170 RESTORE6200:FOR I=1 TO 2:GCURSOR (1,8*I):FOR J=0 TO 31:READ N:GPRINT N;
6175 NEXT J:NEXT I:PRESET (33,E+1):RETURN 
6180 DIM L$(31,15)*1:RESTORE 6200
6185 FOR K=0 TO 8 STEP 8:FOR X=0 TO 31:READ N
6190 FOR I=7 TO 0 STEP -1:J=2^I:M=N:N=INT (N/J):L$(X,I+K)=STR$ N:N=M-N*J:NEXT I
6195 NEXT X:LINE (0,0)-(33,17),BF:NEXT K:RETURN 
6200 DATA 36,78,80,86,82,91,208,134,188,225,13,227,136,254,8,239
6202 DATA 32,125,4,238,34,187,128,222,130,251,8,234,138,58,98,74
6204 DATA 1,125,69,21,117,84,86,18,250,2,110,136,186,43,136,175
6206 DATA 160,253,5,119,16,86,92,66,234,14,104,58,143,161,189,33