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
0 REM GRAMATIKA 6-8 TR. **M.KUCHAR 1987** 1 GOSUB 32000:CONT 2 GRAPHICS 2+16 3 POKE 756,START/256+2 4 ? #6;" cvien gramatiky" 5 ? #6;"zadm dvacet vraz" 6 ? #6;"s pokynem,kad z" 7 ? #6;"nich muste napsat" 8 ? #6;"cel sprvn esky," 9 ? #6;"hky a rky pite" 10 ? #6;"tak,e stisknete" 11 ? #6;"'control' a psmeno" 12 ? #6;"souasn," 13 ? #6;"dle - ctrl+w" 14 ? #6;" - ctrl+j" 16 ? #6;" stisknte start" 17 IF PEEK(53279)<>6 THEN GOTO 17 19 OPEN #1,4,0,"K:" 20 DIM B$(25):DIM A$(25) 30 DIM C$(2):CHP=0:CHD=0 40 FOR I=1 TO 20 45 GRAPHICS 2:POKE 756,START/256+2 46 ? "poet zadanch vraz",I 47 ? "celkov poet chyb ",CHD+CHP 50 A=INT(RND(0)*201+10000) 60 RESTORE A 70 READ A$ 80 READ P 90 ON P GOSUB 500,600,700,800 100 POSITION 0,4:GOSUB 1000 110 IF A$<>B$ THEN GOSUB 300:GOTO 120 115 GOSUB 2000 120 NEXT I 130 GRAPHICS 2+16 140 POSITION 2,0 150 IF CHP/2+CHD<1.5 THEN ? #6;"GRATULUJI":GOTO 170 160 IF CHP/2+CHD>2 THEN ? #6;"STUDUJ!!" 170 POSITION 7,2 180 ? #6;"," 190 POSITION 5,3:? #6;"ZNAMKA" 200 POSITION 7,5 210 IF CHP/2+CHD>4 THEN Z=5:GOTO 230 220 Z=CHP/2+CHD+1 230 ? #6;INT(Z); 240 IF INT(Z)<>Z THEN ? #6;"-"; 250 ? #6:? #6 255 ? #6;"*******************":? #6 260 ? #6;"ZNOVU=START" 270 ? #6;"KONEC=SELECT" 280 IF PEEK(53279)=6 THEN CHP=0:CHD=0:GOTO 40 290 IF PEEK(53279)=5 THEN END 295 GOTO 280 300 POSITION 0,6:? #6;"CHYBA,ZKUS ZNOVU" 305 GOSUB 3000 310 CHP=CHP+1 320 POSITION 0,8:GOSUB 1000 330 IF A$=B$ THEN GOSUB 2000:RETURN 340 CHD=CHD+1 345 GOSUB 3000 350 POSITION 0,0:? #6;"opt chyba,sprvn-" 360 POSITION 0,2:? #6;A$ 370 POSITION 0,6:? #6;" " 380 POSITION 8,9:? #6;"ano--start" 390 IF PEEK(53279)<>6 THEN GOTO 390 400 RETURN 500 POSITION 0,0:? #6;"dopl -je":? #6 510 FOR J=1 TO LEN(A$) 520 C$=A$(J,J) 530 IF C$="" THEN ? #6;"-";:GOTO 570 535 IF J=LEN(A$) THEN GOTO 560 540 C$(1+1)=A$(J+1,J+1) 550 IF C$="je" THEN ? #6;"-";:J=J+1:GOTO 570 560 ? #6;A$(J,J); 570 NEXT J 580 RETURN 600 POSITION 0,0:? #6;"dopl i--y-":? #6 610 FOR J=1 TO LEN(A$) 620 C$=A$(J,J) 630 IF C$="i" OR C$="" OR C$="y" OR C$="" THEN ? #6;"-";:GOTO 650 640 ? #6;C$; 650 NEXT J 660 RETURN 700 POSITION 0,0:? #6;"dopl s-z":? #6 710 FOR J=1 TO LEN(A$) 720 C$=A$(J,J) 730 IF C$="z" OR C$="s" THEN ? #6;"-";:GOTO 750 740 ? #6;C$; 750 NEXT J 760 RETURN 800 POSITION 0,0:? #6;"dlka samohlsek":? #6 810 FOR J=1 TO LEN(A$) 820 C$=A$(J,J) 830 IF C$="" THEN ? #6;"a";:GOTO 900 840 IF C$="" THEN ? #6;"e";:GOTO 900 850 IF C$="" THEN ? #6;"i";:GOTO 900 860 IF C$="" THEN ? #6;"o";:GOTO 900 870 IF C$="" OR C$="" THEN ? #6;"u";:GOTO 900 880 IF C$="" THEN ? #6;"y";:GOTO 900 890 ? #6;C$; 900 NEXT J 910 RETURN 1000 REM INPUT B$ V GRAFICE 2 1010 B$="" 1020 GET #1,Z 1025 IF Z>32 AND Z<64 THEN Z=Z-32 1027 IF Z>63 AND Z<96 THEN Z=Z+32 1030 IF Z=155 THEN RETURN 1040 IF Z<>126 THEN B$(LEN(B$)+1)=CHR$(Z):? #6;CHR$(Z);:GOTO 1020 1050 S=PEEK(85) 1060 IF S=1 THEN B$="":GOTO 1090 1070 IF S=0 THEN GOTO 1020 1080 B$=B$(1,LEN(B$)-1) 1090 R=PEEK(84) 1100 PLOT S-1,R 1110 POSITION S-1,R 1120 GOTO 1020 2000 SOUND 0,126,10,10 2010 FOR K=1 TO 50:NEXT K 2020 SOUND 1,96,10,10 2030 FOR K=1 TO 50:NEXT K 2040 SOUND 2,81,10,10 2050 FOR K=1 TO 50:NEXT K 2060 SOUND 0,0,0,0 2070 SOUND 1,0,0,0 2080 SOUND 2,0,0,0 2090 RETURN 3000 FOR K=1 TO 60 3010 SOUND 0,K,10,10 3020 NEXT K 3030 SOUND 0,0,0,0 3040 RETURN 10000 DATA objem tlesa,1 10001 DATA kolobh vody,1 10002 DATA objednvka knih,1 10003 DATA stlice a obnice,1 10004 DATA zajmav objevy,1 10005 DATA maratnt bci,1 10006 DATA sestrojte rovnobnk,1 10007 DATA objevn cesty,1 10008 DATA rybsk podbrk,1 10009 DATA auto v zbhu,1 10010 DATA v hromadnm hrob,1 10011 DATA zajmav obnk,1 10012 DATA beck drha,1 10013 DATA on blmo,1 10014 DATA stavebn objekty,1 10015 DATA ernoi a bloi,1 10016 DATA obn zbo,1 10017 DATA drobn obivo,1 10018 DATA blit prdlo,1 10019 DATA obtav lovk,1 10020 DATA nabhl kotnk,1 10021 DATA v otcov objet,1 10022 DATA dobhni nakoupit,1 10023 DATA objemn balk,1 10024 DATA soubn pmky,1 10025 DATA sbraka polvky,1 10026 DATA chlapec odbhl,1 10027 DATA zbn kontrola,1 10028 DATA objednac lstek,1 10029 DATA obti vlky,1 10030 DATA staten pchota,1 10031 DATA oprn sloup,1 10032 DATA napchovan chlebnk,1 10033 DATA ulpt pohledem,1 10034 DATA pveck sbor,1 10035 DATA vysok napt,1 10036 DATA spn vlak,1 10037 DATA zptn tlak,1 10038 DATA p tra,1 10039 DATA pispchat na pomoc,1 10040 DATA vjezd do statku,1 10041 DATA prospl dobe,1 10042 DATA vyvan zvs,1 10043 DATA nepm mra,1 10044 DATA nejznmj mal,1 10045 DATA nezmrn bolest,1 10046 DATA neestn zmry,1 10047 DATA tm posledn,1 10048 DATA mkouk ltka,1 10049 DATA prudk sjezd,1 10050 DATA nabhl na m,1 10051 DATA zbyten bitva,2 10052 DATA horsk bystina,2 10053 DATA jabloneck biuterie,2 10054 DATA nepltvej chlebem,2 10055 DATA hol ltko,2 10056 DATA lyask bota,2 10057 DATA mlnsk kolo,2 10058 DATA blzk eka,2 10059 DATA blsk se na asy,2 10060 DATA velk plynrna,2 10061 DATA koka se ls,2 10062 DATA lys hlava,2 10063 DATA sud a lich,2 10064 DATA mrn podneb,2 10065 DATA nebu domliv,2 10066 DATA sklenn miska,2 10067 DATA mchaka na beton,2 10068 DATA dokonal pirueta,2 10069 DATA opylovat kvty,2 10070 DATA zve ptakopysk,2 10071 DATA hok pilulka,2 10072 DATA kousek syrovho masa,2 10073 DATA vroba silonu,2 10074 DATA vskot chlapc,2 10075 DATA rodn vinohrady,2 10076 DATA pijdu brziko,2 10077 DATA zimomiv se zachvl,2 10078 DATA zskal jsem ptele,2 10079 DATA nesprvn principy,2 10080 DATA sprvn diagnza,2 10081 DATA odeel s nepozenou,3 10082 DATA pohled z ve,3 10083 DATA nvrat z dovolen,3 10084 DATA rampouchy vis z okapu,3 10085 DATA mvat z balknu,3 10086 DATA sfrala non smna,3 10087 DATA vzthl ruku po sklenici,3 10088 DATA vztyit sttn vlajku,3 10089 DATA svzt obil,3 10090 DATA nezveden dcera,3 10091 DATA zvednout inku,3 10092 DATA seskoit z kola,3 10093 DATA smoit cp runku,3 10094 DATA velk pozdvien,3 10095 DATA voda stekla do kanlu,3 10096 DATA sloili dva vagny,3 10097 DATA spustil se po provaze,3 10098 DATA zven plat a mezd,3 10099 DATA zpsobn chovn,3 10100 DATA zven poadavky,3 10101 DATA zlomenina srostla,3 10102 DATA sedt ki,3 10103 DATA hlasit zvolal,3 10104 DATA spravit vypna,3 10105 DATA zvolit poslance,3 10106 DATA sladit kvu,3 10107 DATA sret z platu,3 10108 DATA stvrdit pjem,3 10109 DATA ztvrdit kov,3 10110 DATA svt list,3 10111 DATA sbratel znmek,3 10112 DATA tk svrk,3 10113 DATA srocen lidu,3 10114 DATA pveck sbor,3 10115 DATA sdln domovnk,3 10116 DATA spnac pendlk,3 10117 DATA elektrick spna,3 10118 DATA znt spojivek,3 10119 DATA dobroinn sbrka,3 10120 DATA nalezit zkamenlin,3 10121 DATA linkovan seit,3 10122 DATA starodvn zkazka,3 10123 DATA sjezd jazykovdc,3 10124 DATA slvrensk dina,3 10125 DATA devo ji zetlelo,3 10126 DATA shnil brambor,3 10127 DATA zpocen elo,3 10128 DATA zprostit vech funkc,3 10129 DATA zhasnajc ohe,3 10130 DATA byl zpopelnn,3 10131 DATA vrn spojenec,3 10132 DATA vyrostl a zethlel,3 10133 DATA ptelsk shoda,3 10134 DATA sve s ernmi brlemi,3 10135 DATA spoutan zloinec,3 10136 DATA zvadl re,3 10137 DATA splen rovka,3 10138 DATA smontovat stroj,3 10139 DATA ztka dchal,3 10140 DATA ZVL SPN,3 10141 DATA pohled zpedu,3 10142 DATA zpravidla pijde pozd,3 10143 DATA mluvil zhurta,3 10144 DATA zbrusu nov,3 10145 DATA boj zblzka,3 10146 DATA piel zvenku,3 10147 DATA zekl se prva,3 10148 DATA ztenen pjmy,3 10149 DATA dti zpozornly,3 10150 DATA smovat zbo,3 10151 DATA dt stlo,4 10152 DATA jmenn seznam,4 10153 DATA tdn kniha,4 10154 DATA pjdu dl,4 10155 DATA devn tska,4 10156 DATA z ostravskch dol,4 10157 DATA nae kultura,4 10158 DATA zbavn poad,4 10159 DATA mlo pn,4 10160 DATA stinn msto,4 10161 DATA jdi pod dol,4 10162 DATA dobr vle,4 10163 DATA dtsk sta,4 10164 DATA bl kmen,4 10165 DATA tzac zjmeno,4 10166 DATA otevt brnu,4 10167 DATA zatmn sprva,4 10168 DATA blzk cl,4 10169 DATA vesel smch,4 10170 DATA plno kiku,4 10171 DATA potej na poitadle,4 10172 DATA siln vliv,4 10173 DATA mil pn,4 10174 DATA losk z,4 10175 DATA velk spch,4 10176 DATA chrnme ptky,4 10177 DATA paprov pytel,4 10178 DATA dv pse,4 10179 DATA prmrn vkon,4 10180 DATA ztej zpas,4 10181 DATA hudebn nadn,4 10182 DATA patn chovn,4 10183 DATA mal hnzdo,4 10184 DATA s km se stk,4 10185 DATA zbv mal zbytek,4 10186 DATA usilovn prce,4 10187 DATA na t na ulici,4 10188 DATA pro nai mylenku,4 10189 DATA pta kdlo,4 10190 DATA krsn sk,4 10191 DATA dleit vjimka,4 10192 DATA vlivn pn,4 10193 DATA zrodnn hor,4 10194 DATA bublajc potek,4 10195 DATA komol kuel,4 10196 DATA nehledn psmo,4 10197 DATA udlal to nemysln,4 10198 DATA stl psobit,4 10199 DATA estn kol,4 10200 DATA nenosn nklady,4 32000 POKE 106,PEEK(106)-5:GRAPHICS 0:START=(PEEK(106)+1)*256:POKE 756,START/256:POKE 752,1 32005 POSITION 13,10:? "INICIALIZACE" 32010 DIM XFR$(38):XFR$="hji`" 32020 Z=USR(ADR(XFR$)):RESTORE 32100 32030 READ X:IF X=-1 THEN RESTORE:RETURN 32040 FOR Y=0 TO 7:READ Z:POKE X+Y+START,Z:NEXT Y:GOTO 32030 32100 DATA 512,0,0,0,0,0,0,0,0 32101 DATA 520,4,8,60,6,62,102,62,0 32102 DATA 528,0,102,102,102,0,0,0,0 32103 DATA 536,28,8,60,96,96,96,60,0 32104 DATA 544,16,22,6,62,102,102,62,0 32105 DATA 552,4,8,60,102,126,96,60,0 32106 DATA 560,28,54,28,56,111,102,59,0 32107 DATA 568,0,24,24,24,0,0,0,0 32108 DATA 576,0,14,28,24,24,28,14,0 32109 DATA 584,8,16,0,56,24,24,60,0 32110 DATA 592,24,24,102,102,102,102,62,0 32111 DATA 600,0,24,24,126,24,24,0,0 32112 DATA 608,0,0,0,0,0,24,24,48 32113 DATA 616,0,0,0,126,0,0,0,0 32114 DATA 624,28,8,124,102,102,102,102,0 32115 DATA 632,4,8,60,102,102,102,60,0 32116 DATA 640,0,60,102,110,118,102,60,0 32117 DATA 648,0,24,56,24,24,24,126,0 32118 DATA 656,28,8,124,102,96,96,96,0 32119 DATA 664,28,8,62,96,60,6,124,0 32120 DATA 672,6,24,126,24,24,24,14,0 32121 DATA 680,4,8,102,102,102,102,62,0 32122 DATA 688,0,60,96,124,102,102,60,0 32123 DATA 696,28,8,60,102,126,96,60,0 32124 DATA 704,0,60,102,60,102,102,60,0 32125 DATA 712,4,8,102,102,102,62,12,120 32126 DATA 720,28,8,126,12,24,48,126,0 32127 DATA -1
References
Listing downloads
Copyright holder