10 ? "}"¢20 ? "****************************"¢30 ? "* . . , . *"¢40 ? "* Reseni hlavolamu z c. 31 *"¢50 ? "* *"¢60 ? "****************************"¢70 ? ¢80 POKE 752,1:? :? :? " press צקIJפק"¢90 ------------------------------¢100 REM ¢110 REM init + nacteni dat¢120 REM ¢130 # START:IF PEEK(53279)<>6 THEN GO# START¢140 CLS :? "Nacitam data":DIM A$(23),A(23,23),B(23,23),B$(9),T$(1):UU=0:POKE 752,1¢150 OPEN #1,4,0,"D:HLAV31.DAT"¢160 FOR I=1 TO 23¢170 INPUT #1,A$¢180 FOR J=1 TO 23¢190 IF A$(J,J)="X"¢200 A(J,I)=-1:B(J,I)=0¢210 ELSE ¢220 A(J,I)=VAL(A$(J,J)):B(J,I)=0¢230 ENDIF ¢240 NEXT J¢250 NEXT I:CLOSE #1¢260 ------------------------------¢270 REM ¢280 REM init obrazovky¢290 REM ¢300 CLS ¢310 FOR G=1 TO 23:FOR H=1 TO 23¢320 IF A(H,G)=-1 THEN T$=" "¢330 IF A(H,G)=0 THEN T$="á"¢340 IF A(H,G)>0 THEN T$="."¢350 POSITION H,G-1:? T$¢360 NEXT H:NEXT G¢370 POSITION 12,11:? "0"¢380 ------------------------------¢390 REM ¢400 REM vypocet¢410 REM ¢420 TIME$= "000000"¢430 ZZ=0¢440 FOR I=1 TO 23¢450 FOR J=1 TO 23¢460 IF I=12 AND J=12 AND ZZ=0 THEN EXEC HVEZDA¢470 IF B(J,I)>0 THEN EXEC HVEZDA:ZZ=ZZ+1¢480 NEXT J¢490 NEXT I¢500 REM ¢510 REM konec?¢520 REM ¢530 IF ZZ<>0 THEN 430¢540 POSITION 29,2:? "Potrebny":POSITION 28,3:? "cas:";TIME$¢550 GOTO 550¢560 ------------------------------¢570 REM ¢580 REM podprogramy¢590 REM ¢600 PROC HVEZDA¢610 FOR Q=1 TO 8¢620 WW=A(J,I):CESTA=B(J,I):X=J:Y=I¢630 FOR QQ=1 TO WW¢640 EXEC SMER¢650 AA=A(X,Y)¢660 IF AA=0 AND QQ<>WW THEN POP :GO# NQ¢670 NEXT QQ¢680 IF AA=0 THEN USPECH=1¢690 IF X=12 AND Y=12 THEN GO# NQ¢700 CES=B(X,Y):IF CES=0 THEN CES=CESTA*10+Q:GOTO 740¢710 ZN=0:IF CES<0 THEN CES=ABS(CES):ZN=1¢720 IF LEN(STR$(CES))>LEN(STR$(CESTA))+1 THEN CES=CESTA*10+Q:ZME=1¢730 IF ZME=0 AND ZN=1 THEN ZN=0:CES=-CES¢740 ZME=0:B(X,Y)=CES:POSITION X,Y-1:? LEN(STR$(ABS(CES)))¢750 IF USPECH=1 THEN USPECH=0:EXEC USPECH:B(X,Y)=-B(X,Y)¢760 # NQ:NEXT Q¢770 B(J,I)=-B(J,I)¢780 ENDPROC ¢790 ------------------------------¢800 REM ¢810 PROC SMER¢820 IF Q=8 OR Q=1 OR Q=2 THEN Y=Y-1¢830 IF Q=2 OR Q=3 OR Q=4 THEN X=X+1¢840 IF Q=4 OR Q=5 OR Q=6 THEN Y=Y+1¢850 IF Q=6 OR Q=7 OR Q=8 THEN X=X-1¢860 ENDPROC ¢870 ------------------------------¢880 REM ¢890 PROC USPECH¢900 POSITION 26,10+UU:? "!";CES;¢910 UU=UU+1¢920 ENDPROC ¢
