This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!









Listing 1
94 DIM A$(44):DIM B$(44):RE=9999 98 POKE 752,1 100 REM ****UVOD**** 110 GRAPHICS 2+16:POSITION 3,1:? #6;"************":POSITION 3,2:? #6;"*MESTA V CSSR*" 115 POSITION 3,3:? #6;"**************" 140 FOR I=0 TO 4000:NEXT I 150 REM ****VYBER**** 160 GRAPHICS 2+16:POSITION 2,2:? #6;"VYBERTE SI:" 170 POSITION 4,4:? #6;"1) UCENI" 180 POSITION 4,5:? #6;"2) URCOVANI MEST" 190 POSITION 4,6:? #6;"3) HLEDANI MEST" 192 POSITION 4,7:? #6;"4) VYKRESLENI ":POSITION 6,8:? #6;"OKRESNICH MEST" 200 IF PEEK(764)=31 THEN GOTO 400 210 IF PEEK(764)=30 THEN GOTO 1000 220 IF PEEK(764)=26 THEN GOTO 2000 224 IF PEEK(764)=24 THEN GOTO 3000 230 GOTO 200 400 REM ****1) UCENI**** 410 GRAPHICS 2+16:POSITION 1,2:? #6;"POTREBUJETE NAVOD ?":POSITION 6,4:? #6;"(ANO-NE)" 420 IF PEEK(764)=63 THEN GOTO 450 430 IF PEEK(764)=35 THEN GOTO 600 440 GOTO 420 450 REM ****NAVOD K UCENI**** 455 POKE 752,1 460 ? ")":POKE 710,2:Q=PEEK(560)+PEEK(561)*256:POKE Q+9,12:POKE Q+10,7:POSITION 25,4:? "UCENI" 470 ?:? " NA MAPE SE OBJEVI BOD" 480 ? " ZNAZORNUJICI POLOHU" 490 ? " NEJAKEHO MESTA" 500 ? " -JEHO JMENO SE OBJEVI" 510 ? " DOLE NA OBRAZOVCE" 520 ? " PO STISKNUTI " 530 ? " NEBO TLACITKA JOYSTICKU" 540 ? " SE OBJEVI JINE MESTO" 550 ? "----------------------" 560 ? " PROGRAM PRERUSI " 570 ?:?:?:? " **STLACTE **" 580 IF PEEK(53279)=6 THEN GOTO 600 584 IF PEEK(53279)=3 THEN GOTO 150 590 GOTO 580 600 GOSUB 3800 605 POKE 752,1 610 FOR I=0 TO 1e+88 620 A=INT(RND(0)*106) 630 RESTORE A*10+8000 640 READ A$,X,Y 650 PLOT X,Y:PLOT X+1,Y:PLOT X,Y-1:PLOT X+1,Y-1 660 ?:?:?:? " ";A$ 664 FOR U=0 TO 100:NEXT U 670 IF PEEK(53279)=5 THEN GOTO 700 680 IF PEEK(53279)=3 THEN GOTO 150 684 IF STRIG(0)=O THEN GOTO 700 690 GOTO 670 700 COLOR 0:PLOT X,Y:PLOT X+1,Y:PLOT X,Y-1:PLOT X+1,Y-1:COLOR 1 710 NEXT I 720 GOTO 610 998 REM ****2)URCOVANI MEST**** 1000 GRAPHICS 2+16:POSITION 1,2:? #6;"POTREBUJTE NAVOD ?":POSITION 6,4:? #6;"(ANO-NE)" 1010 IF PEEK(764)=63 THEN GOTO 1040 1020 IF PEEK(764)=35 THEN GOTO 1200 1030 GOTO 1010 1038 REM ****NAVOD K URCOVANI MEST**** 1040 ? ")":POKE 710,2:Q=PEEK(560)+PEEK(561)*256:POKE Q+9,12:POKE Q+10,7 1050 POSITION 25,4:? "URCOVANI MEST" 1060 ?:? " NA MAPE SE OBJEVI" 1070 ? " BOD ZNAZORNUJICI POLOHU" 1080 ? " NEJAKEHO MESTA" 1090 ? " -VASIM UKOLEM JE" 1100 ? " NAPSAT JMENO TOHOTO MESTA." 1102 ? " DALSI MESTO SE OBJEVI" 1104 ? " PO STLACENI " 1108 ? " NEBO TLACITKA JOYSTICKU" 1110 ? " MEST MATE URCIT CELKEM 10" 1120 ? " ---------------------------" 1124 ? " PROGRAM PRERUSI " 1130 ?:?:?:? " ****STLACTE ****" 1140 IF PEEK(53279)=6 THEN GOTO 1200 1144 IF PEEK(53279)=3 THEN GOTO 150 1150 GOTO 1140 1160 ? " PROGRAM PRERUSI " 1200 GOSUB 3800 1204 POKE 764,255 1210 FOR I=0 TO 9 1220 A=INT(RND(0)*106) 1230 RESTORE A*10+8000 1240 READ A$,X,Y 1250 PLOT X,Y:PLOT X+1,Y:PLOT X,Y-1:PLOT X+1,Y-1 1260 ?:? " URCENO:SPRAVNE ";W:? " SPATNE ";I-W 1270 INPUT B$ 1280 IF A$=B$ THEN ?:?:?:? " VYBORNE,JE TO MESTO ";A$:W=W+1 1290 IF A$<>B$ THEN ?:?:?:? " SPATNE,JE TO MESTO ";A$ 1300 IF PEEK(53279)=5 THEN GOTO 1410 1390 IF PEEK(53279)=3 THEN W=0:GOTO 150 1394 IF STRIG(0)=0 THEN GOTO 1410 1400 GOTO 1300 1410 COLOR 0:PLOT X,Y:PLOT X+1,Y:PLOT X,Y-1:PLOT X+1,Y-1:COLOR 1 1420 NEXT I 1430 ?:?:?:? "SPRAVNE JSTE URCIL ";W;" MEST"; 1440 IF W=10 OR W=9 THEN ? "":? "**COZ JE VYBORNY VYKON** GRATULUJI" 1450 IF W=8 OR W=7 THEN ? "":? "**COZ JE DOBRY VYKON**" 1460 IF W=6 OR W=5 THEN ? "":? "TO ALE NENI DOBRY VYKON !!" 1470 IF W=4 OR W=3 THEN ? "A":? "**TO NENI NA DOBRE UROVNI !!**" 1480 IF W=2 THEN ? "A":? "**MUSITE SE VICE UCIT ZEMEPIS !!**" 1484 IF W=0 THEN ? "":? "**MUSITE SE VICE UCIT ZEMEPIS !!**" 1488 IF W=1 THEN ? "O":? "**MUSITE SE VICE UCIT ZEMEPIS !!**" 1489 GOSUB 3100 1500 IF OP=1 THEN OP=0:GOTO 1204 1510 GOTO 150 1980 REM ****3)HLEDANI MEST**** 2000 GRAPHICS 2+16:POSITION 1,2:? #6;"POTREBUJETE NAVOD ?":POSITION 6,4:? #6;"(ANO-NE)" 2010 IF PEEK(764)=63 THEN GOTO 2040 2020 IF PEEK(764)=35 THEN GOTO 2200 2030 GOTO 2010 2034 REM ****3)NAVOD K HLEDANI MEST**** 2040 ? ")":POKE 710,2:Q=PEEK(560)+PEEK(561)*256:POKE Q+9,12:POKE Q+10,7:POSITION 25,4:? " HLEDANI MEST" 2050 ?:? " DOLE NA OBRAZOVCE" 2060 ? " SE OBJEVI JMENO" 2070 ? " NEJAKEHO MESTA" 2080 ? " -POLOHU TOHOTO MESTA" 2090 ? " NA MAPE MATE URCIT" 2100 ? " BODEM,KTERY OVLADATE JOYSTICKEM" 2110 ? " -PO UMISTENI BODU" 2130 ? " STISKNETE TLACITKO JOYSTICKU" 2140 ? " -DALSI MESTO SE OBJEVI" 2150 ? " PO STISKNUTI " 2154 ? " MEST BUDE CELKEM 10" 2155 ? " REKORD JE NEJMENSI SOUCET" 2156 ? " 10 ODCHYLEK OD SKUTECNE POLOHY MEST" 2157 ? " -------------------------" 2158 ? " HRU PRERUSI " 2170 ?:? " **STLACTE **" 2190 IF PEEK(53279)=6 THEN GOTO 2200 2194 IF PEEK(53279)=3 THEN GOTO 150 2198 GOTO 2190 2200 GOSUB 3800 2202 KM=0 2204 POKE 752,1 2210 FOR I=1 TO 10 2220 A=INT(RND(0)*106) 2230 RESTORE A*10+8000 2240 READ A$,X,Y 2250 ?:?:?:? "REKORD ";RE;" km";" VASE SKORE ";KM;" km":?:? I;") NAJDETE MESTO ";A$ 2258 X1=44:Y1=44:X2=44:Y2=44 2259 REM ****POHYB BODU**** 2260 FOR U=0 TO 1e+88 2270 ST=STICK(0) 2280 IF ST=7 THEN X1=X1+1:LOCATE X1+1,Y1,D:LOCATE X1+1,Y1-1,D1 2300 IF ST=14 THEN Y1=Y1-1:LOCATE X1,Y1-1,D:LOCATE X1+1,Y1-1,D1 2320 IF ST=11 THEN X1=X1-1:LOCATE X1,Y1,D:LOCATE X1,Y1-1,D1 2340 IF ST=13 THEN Y1=Y1+1:LOCATE X1,Y1,D:LOCATE X1+1,Y1,D1 2342 IF STRIG(0)=0 THEN POP:GOTO 2440 2343 IF PEEK(53279)=3 THEN GOTO 150 2344 IF ST=15 THEN GOTO 2270 2370 IF D=1 OR D1=1 THEN X1=X2:Y1=Y2:GOTO 2270 2380 COLOR 0:PLOT X2,Y2:PLOT X2+1,Y2:PLOT X2,Y2-1:PLOT X2+1,Y2-1:COLOR 1 2400 PLOT X1,Y1:PLOT X1+1,Y1:PLOT X1,Y1-1:PLOT X1+1,Y1-1 2401 X2=X1:Y2=Y1 2410 IF STRIG(0)=0 THEN POP:GOTO 2440 2414 IF PEEK(53279)=3 THEN GOTO 150 2420 NEXT U 2440 CM=SQR((X-X1)^2+(Y-Y1)^2) 2450 KMM=INT(CM)*5 2460 KM=KM+KMM 2470 IF KMM=0 THEN ?:?:?:? "VYBORNE,URCIL JSTE PRESNE POLOHU MESTA ";A$ 2471 IF KMM=0 AND PEEK(53279)=5 THEN I=I+1:GOTO 2520 2472 IF KMM=0 THEN GOTO 2471 2480 ?:?:?:? " MESTO ";A$;" LEZI ZDE ":?:? "-ZMYLIL JSTE SE O ";KMM;" km" 2490 PLOT X,Y:PLOT X+1,Y:PLOT X,Y-1:PLOT X+1,Y-1 2500 FOR O=0 TO 44:IF PEEK(53279)=5 THEN P=1:GOTO 2510 2504 NEXT O 2510 COLOR 0:PLOT X,Y:PLOT X+1,Y:PLOT X,Y-1:PLOT X+1,Y-1:COLOR 1 2520 FOR O=0 TO 44:IF PEEK(53279)=5 OR P=1 THEN P=0:GOTO 2600 2522 IF PEEK(53279)=3 THEN GOTO 150 2524 NEXT O 2530 GOTO 2490 2582 IF PEEK(53279)=3 THEN GOTO 150 2600 COLOR 0:PLOT X,Y:PLOT X+1,Y:PLOT X,Y-1:PLOT X+1,Y-1:COLOR 1 2610 NEXT I 2620 IF RE>KM THEN RE=KM:?:?:?:? "VYTVORIL JSTE NOVY REKORD,KTERY MA HODNOTU ";KM;" km GRATULUJI!" 2630 IF RE<KM THEN ? "VASE SKORE JE ";KM;" ,ALE DNES JE REKORD ";RE 2640 GOSUB 3100 2650 IF OP=1 THEN OP=0:GOTO 2202 2660 GOTO 150 2980 REM ****VYKRESLENI VSECH**** 2990 REM **** OKRESNICH MEST **** 3000 GOSUB 3800 3010 FOR I=1 TO 107 3020 READ A$,X,Y 3024 IF PEEK(53279)=3 THEN GOTO 150 3030 PLOT X,Y 3040 NEXT I 3050 ? "STLACTE " 3054 POKE 764,255 3060 IF PEEK(53279)=6 THEN GOTO 150 3070 IF PEEK(53279)=3 THEN GOTO 150 3080 GOTO 3060 3098 REM ****UKONCENI HLEDANI 3099 REM A URCOVANI MEST **** 3100 FOR NN=1 TO 5000:NEXT NN 3105 ?:?:?:? " JESTE JEDNOU ?" 3110 ? " ANO = " 3120 ? " NE = " 3130 IF PEEK(53279)=6 THEN OP=1:RETURN 3140 IF PEEK(53279)=5 THEN RETURN 3150 GOTO 3130 3780 REM ****VYKRESLENI MAPY**** 3800 GRAPHICS 7:RESTORE 4000 3810 SETCOLOR 2,0,0:COLOR 1 3820 FOR I=1 TO 395 3824 IF PEEK(53279)=3 THEN GOTO 150 3830 READ X,Y 3840 PLOT X,Y 3850 NEXT I 3860 RETURN 3880 GOTO 3060 3980 REM ****DATA MAPY**** 4000 DATA 4,19,5,19,6,20,7,21,8,20,8,19,9,18,10,18,11,17,12,17,13,17,14,16,15,16,16,16,17,16,18,15,19,15 4010 DATA 20,15,21,14,22,13,23,12,24,13,25,12,25,11,26,10,27,10,28,10,29,10,30,10,31,10,32,9,33,8,34,8 4020 DATA 35,7,36,7,37,7,38,6,37,5,36,4,37,4,38,4,39,4,40,5,40,6,41,7,41,8,42,9,43,9,44,8,44,7,45,7,46,7 4030 DATA 47,6,47,5,47,4,48,5,49,5,50,6,50,7,50,8,51,9,52,10,53,10,54,10,55,11,56,11,57,11,58,11,59,12 4040 DATA 60,12,61,13,62,13,64,13,65,13,66,14,66,15,65,16,64,16,64,17,64,18,65,19,66,20,67,21,68,22,68,23 4050 DATA 69,24,70,24,71,24,72,23,73,22,74,22,74,21,74,20,74,19,74,18,73,17,74,17,75,17,76,19,77,19,78,20 4060 DATA 79,20,80,20,81,20,82,20,82,21,82,22,81,23,82,24,83,25,84,26,85,27,86,27,87,26,88,26,89,26,90,26 4070 DATA 91,27,92,28,93,28,94,28,94,29,95,30,95,31,96,32,96,33,97,34,98,34,98,35,98,36,99,37,100,37 4080 DATA 100,38,100,39,100,40,101,40,102,40,103,40,104,39,104,38,104,37,104,36,105,36,106,36,107,35 4090 DATA 108,36,109,37,110,38,111,39,112,40,113,41,113,42,113,43,114,44,115,44,116,44,117,43,117,42 4100 DATA 118,41,119,40,120,39,121,39,122,39,123,39,124,39,125,39,126,38,127,39,128,40,129,40,130,40 4110 DATA 131,39,131,38,132,37,133,38,134,37,135,37,136,37,137,37,138,37,139,37,140,37,141,38,142,38 4120 DATA 143,39,144,40,145,41,146,42,147,42,148,42,149,43,150,43,151,44,152,44,153,44,153,45,152,46 4130 DATA 152,47,152,48,151,49,151,50,151,51,151,52,150,53,150,54,149,55,148,56,148,57,149,58,148,59 4140 DATA 148,60,147,61,146,61,145,61,144,61,143,61,142,61,141,60,140,59,139,58,138,57,137,56,136,57 4150 DATA 135,57,134,58,133,58,132,58,131,58,130,58,129,57,128,57,127,57,126,57,125,57,124,58,123,59 4160 DATA 123,60,123,61,122,62,121,63,120,64,119,64,118,65,118,66,117,67,116,67,115,67,114,66,113,66 4170 DATA 112,65,111,65,110,66,109,67,109,68,108,69,107,69,106,69,105,69,104,69,103,69,102,69,101,69 4180 DATA 100,69,100,70,99,71,99,72,99,73,100,74,99,75,98,75,97,75,96,76,95,76,94,76,93,76,92,76,91,76 4190 DATA 90,76,89,76,88,76,87,76,86,76,85,76,84,76,83,76,82,75,81,74,80,73,79,72,78,71,77,71,76,70,76,69 4200 DATA 76,68,75,67,74,66,74,65,73,64,72,63,73,62,73,61,73,60,74,59,74,58,73,57,73,56,72,56,71,55 4210 DATA 70,54,69,54,68,53,67,53,66,54,65,54,64,54,63,54,62,54,61,54,60,54,59,53,58,52,57,52,56,52 4220 DATA 55,52,54,51,53,51,52,50,51,49,50,49,49,49,48,50,47,49,47,48,46,48,45,48,45,49,45,50,45,51,44,52 4230 DATA 44,53,43,53,42,54,41,55,41,56,40,56,39,57,38,57,37,57,36,57,35,57,34,57,33,57,32,57,31,57 4240 DATA 31,56,30,55,30,54,29,54,28,53,28,52,27,51,26,50,25,49,24,49,23,49,22,48,22,47,21,46,20,45 4250 DATA 19,45,18,44,17,43,16,42,16,41,15,40,14,40,13,39,12,38,12,37,11,36,10,35,10,34,10,33,9,32,8,31 4260 DATA 9,30,10,29,10,28,10,27,9,26,8,25,7,24,6,23,5,22,4,20 7980 REM ****DATA MEST**** 8000 DATA CHEB,9,24 8010 DATA SOKOLOV,12,22 8020 DATA KARLOVY VARY,16,21 8030 DATA CHOMUTOV,24,17 8040 DATA MOST,27,15 8050 DATA TEPLICE,29,13 8060 DATA USTI NAD LABEM,32,12 8070 DATA DECIN,35,10 8080 DATA CESKA LIPA,40,11 8090 DATA LITOMERICE,34,15 8100 DATA LOUNY,29,19 8110 DATA RAKOVNIK,26,24 8120 DATA TACHOV,13,32 8130 DATA DOMAZLICE,17,39 8140 DATA KLATOVY,24,40 8150 DATA STRAKONICE,29,43 8160 DATA PLZEN,24,32 8170 DATA ROKYCANY,28,32 8180 DATA MELNIK,39,19 8190 DATA MLADA BOLESLAV,43,18 8200 DATA KLADNO,33,24 8210 DATA PRAHA,38,24 8220 DATA BEROUN,33,27 8230 DATA BENESOV,41,31 8240 DATA PRIBRAM,32,33 8250 DATA PISEK,33,40 8260 DATA TABOR,42,39 8270 DATA PRACHATICE,32,48 8280 DATA CESKE BUDEJOVICE,39,49 8290 DATA CESKY KRUMLOV,36,52 8300 DATA LIBEREC,47,10 8310 DATA JABLONEC NAD NISOU,49,10 8320 DATA SEMILY,50,13 8330 DATA TRUTNOV,59,14 8340 DATA JICIN,48,17 8350 DATA NYMBURK,47,22 8360 DATA HRADEC KRALOVE,57,22 8370 DATA KOLIN,49,25 8380 DATA PARDUBICE,57,25 8390 DATA KUTNA HORA,50,28 8400 DATA CHRUDIM,57,28 8410 DATA HAVLICKUV BROD,54,35 8420 DATA ZDAR NAD SAZAVOU,59,36 8430 DATA PELHRIMOV,48,39 8440 DATA JIHLAVA,55,40 8450 DATA JINDRICHUV HRADEC,47,45 8460 DATA TREBIC,59,44 8470 DATA NACHOD,62,18 8480 DATA RYCHNOV NAD KNEZNOU,63,21 8490 DATA USTI NAD ORLICI,65,27 8500 DATA SUMPERK,73,27 8510 DATA SVITAVY,66,35 8520 DATA BLANSKO,65,40 8530 DATA BRNO,67,44 8540 DATA ZNOJMO,61,52 8550 DATA BRECLAV,71,53 8560 DATA BRUNTAL,80,27 8570 DATA OPAVA,87,28 8580 DATA OLOMOUC,77,35 8590 DATA PROSTEJOV,78,38 8600 DATA PREROV,81,39 8610 DATA VYSKOV,74,42 8620 DATA KROMERIZ,78,41 8630 DATA ZLIN,82,44 8640 DATA UHERSKE HRADISTE,80,47 8650 DATA HODONIN,75,52 8660 DATA SENICA,79,56 8670 DATA TRNAVA,82,62 8680 DATA BRATISLAVA,76,66 8690 DATA GALANTA,85,67 8700 DATA DUNAJSKA STREDA,83,71 8710 DATA KARVINA,93,30 8720 DATA OSTRAVA,91,30 8730 DATA FRYDEK MISTEK,94,33 8740 DATA CADCA,98,39 8750 DATA NOVY JICIN,88,35 8760 DATA VSETIN,88,40 8770 DATA ZILINA,98,45 8780 DATA POVAZSKA BYSTRICA,94,45 8790 DATA MARTIN,101,47 8800 DATA TRENCIN,89,50 8810 DATA PRIEVIDZA,97,54 8820 DATA ZIAR NAD HRONOM,100,57 8830 DATA TOPOLCANY,90,58 8840 DATA NITRA,89,64 8850 DATA LEVICE,96,66 8860 DATA NOVE ZAMKY,90,70 8870 DATA KOMARNO,90,75 8880 DATA DOLNI KUBIN,104,44 8890 DATA LIPTOVSKY MIKULAS,108,47 8900 DATA BANSKA BYSTRICA,104,54 8910 DATA ZVOLEN,102,58 8920 DATA LUCENEC,110,63 8930 DATA VELKY KRTIS,105,65 8940 DATA STARA LUBOVNA,124,44 8950 DATA POPRAD,119,47 8960 DATA SPISSKA NOVA VES,122,50 8970 DATA ROZNAVA,122,56 8980 DATA RIMAVSKA SOBOTA,117,62 8990 DATA BARDEJOV,132,42 9000 DATA SVIDNIK,137,42 9010 DATA PRESOV,132,49 9020 DATA HUMENNE,141,50 9030 DATA VRANOV NAD TOPLOU,138,51 9040 DATA KOSICE,132,55 9050 DATA TREBISOV,139,57 9060 DATA MICHALOVCE,144,54
References
Listing downloads
Copyright holder