Random game
Random game
Random game
  • Entry name:
     Gramatika 6-8 tr. 
  • Category:
    Education
  • Publisher/Developer:
    Flop 2
  • Year:
    1987
  • Code:
    M. Kuchar
  • Maximum players:
    1
  • Programming language:
    Atari BASIC
Gramatika 6-8 tr. Gramatika 6-8 tr. Gramatika 6-8 tr. Gramatika 6-8 tr. Gramatika 6-8 tr. Gramatika 6-8 tr. Gramatika 6-8 tr. Gramatika 6-8 tr.
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;" cvien gramatiky"
5 ? #6;"zadm dvacet vraz"
6 ? #6;"s pokynem,​kad z"
7 ? #6;"nich muste napsat"
8 ? #6;"cel sprvn esky,​"
9 ? #6;"hky a rky pite"
10 ? #6;"tak,​e stisknete"
11 ? #6;"'control' a psmeno"
12 ? #6;"souasn,​"
13 ? #6;"dle  - ctrl+w"
14 ? #6;"  - ctrl+j"
16 ? #6;" stisknte 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 ? "poet zadanch vraz",​I
47 ? "celkov poet 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;"opt chyba,​sprvn-"
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;"dlka samohlsek":​? #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 tlesa,​1
10001 DATA kolobh vody,​1
10002 DATA objednvka knih,​1
10003 DATA stlice a obnice,​1
10004 DATA zajmav objevy,​1
10005 DATA maratnt bci,​1
10006 DATA sestrojte rovnobnk,​1
10007 DATA objevn cesty,​1
10008 DATA rybsk podbrk,​1
10009 DATA auto v zbhu,​1
10010 DATA v hromadnm hrob,​1
10011 DATA zajmav obnk,​1
10012 DATA beck drha,​1
10013 DATA on blmo,​1
10014 DATA stavebn objekty,​1
10015 DATA ernoi a bloi,​1
10016 DATA obn zbo,​1
10017 DATA drobn obivo,​1
10018 DATA blit prdlo,​1
10019 DATA obtav lovk,​1
10020 DATA nabhl kotnk,​1
10021 DATA v otcov objet,​1
10022 DATA dobhni nakoupit,​1
10023 DATA objemn balk,​1
10024 DATA soubn pmky,​1
10025 DATA sbraka polvky,​1
10026 DATA chlapec odbhl,​1
10027 DATA zbn kontrola,​1
10028 DATA objednac lstek,​1
10029 DATA obti vlky,​1
10030 DATA staten pchota,​1
10031 DATA oprn sloup,​1
10032 DATA napchovan chlebnk,​1
10033 DATA ulpt pohledem,​1
10034 DATA pveck sbor,​1
10035 DATA vysok napt,​1
10036 DATA spn vlak,​1
10037 DATA zptn tlak,​1
10038 DATA p tra,​1
10039 DATA pispchat na pomoc,​1
10040 DATA vjezd do statku,​1
10041 DATA prospl dobe,​1
10042 DATA vyvan zvs,​1
10043 DATA nepm mra,​1
10044 DATA nejznmj mal,​1
10045 DATA nezmrn bolest,​1
10046 DATA neestn zmry,​1
10047 DATA tm posledn,​1
10048 DATA mkouk ltka,​1
10049 DATA prudk sjezd,​1
10050 DATA nabhl na m,​1
10051 DATA zbyten bitva,​2
10052 DATA horsk bystina,​2
10053 DATA jabloneck biuterie,​2
10054 DATA nepltvej chlebem,​2
10055 DATA hol ltko,​2
10056 DATA lyask bota,​2
10057 DATA mlnsk kolo,​2
10058 DATA blzk eka,​2
10059 DATA blsk se na asy,​2
10060 DATA velk plynrna,​2
10061 DATA koka se ls,​2
10062 DATA lys hlava,​2
10063 DATA sud a lich,​2
10064 DATA mrn podneb,​2
10065 DATA nebu domliv,​2
10066 DATA sklenn miska,​2
10067 DATA mchaka na beton,​2
10068 DATA dokonal pirueta,​2
10069 DATA opylovat kvty,​2
10070 DATA zve ptakopysk,​2
10071 DATA hok pilulka,​2
10072 DATA kousek syrovho masa,​2
10073 DATA vroba silonu,​2
10074 DATA vskot chlapc,​2
10075 DATA rodn vinohrady,​2
10076 DATA pijdu brziko,​2
10077 DATA zimomiv se zachvl,​2
10078 DATA zskal jsem ptele,​2
10079 DATA nesprvn principy,​2
10080 DATA sprvn diagnza,​2
10081 DATA odeel s nepozenou,​3
10082 DATA pohled z ve,​3
10083 DATA nvrat z dovolen,​3
10084 DATA rampouchy vis z okapu,​3
10085 DATA mvat z balknu,​3
10086 DATA sfrala non smna,​3
10087 DATA vzthl ruku po sklenici,​3
10088 DATA vztyit sttn vlajku,​3
10089 DATA svzt obil,​3
10090 DATA nezveden dcera,​3
10091 DATA zvednout inku,​3
10092 DATA seskoit z kola,​3
10093 DATA smoit cp runku,​3
10094 DATA velk pozdvien,​3
10095 DATA voda stekla do kanlu,​3
10096 DATA sloili dva vagny,​3
10097 DATA spustil se po provaze,​3
10098 DATA zven plat a mezd,​3
10099 DATA zpsobn chovn,​3
10100 DATA zven poadavky,​3
10101 DATA zlomenina srostla,​3
10102 DATA sedt ki,​3
10103 DATA hlasit zvolal,​3
10104 DATA spravit vypna,​3
10105 DATA zvolit poslance,​3
10106 DATA sladit kvu,​3
10107 DATA sret z platu,​3
10108 DATA stvrdit pjem,​3
10109 DATA ztvrdit kov,​3
10110 DATA svt list,​3
10111 DATA sbratel znmek,​3
10112 DATA tk svrk,​3
10113 DATA srocen lidu,​3
10114 DATA pveck sbor,​3
10115 DATA sdln domovnk,​3
10116 DATA spnac pendlk,​3
10117 DATA elektrick spna,​3
10118 DATA znt spojivek,​3
10119 DATA dobroinn sbrka,​3
10120 DATA nalezit zkamenlin,​3
10121 DATA linkovan seit,​3
10122 DATA starodvn zkazka,​3
10123 DATA sjezd jazykovdc,​3
10124 DATA slvrensk dina,​3
10125 DATA devo ji zetlelo,​3
10126 DATA shnil brambor,​3
10127 DATA zpocen elo,​3
10128 DATA zprostit vech funkc,​3
10129 DATA zhasnajc ohe,​3
10130 DATA byl zpopelnn,​3
10131 DATA vrn spojenec,​3
10132 DATA vyrostl a zethlel,​3
10133 DATA ptelsk shoda,​3
10134 DATA sve s ernmi brlemi,​3
10135 DATA spoutan zloinec,​3
10136 DATA zvadl re,​3
10137 DATA splen rovka,​3
10138 DATA smontovat stroj,​3
10139 DATA ztka dchal,​3
10140 DATA ZVL SPN,​3
10141 DATA pohled zpedu,​3
10142 DATA zpravidla pijde pozd,​3
10143 DATA mluvil zhurta,​3
10144 DATA zbrusu nov,​3
10145 DATA boj zblzka,​3
10146 DATA piel zvenku,​3
10147 DATA zekl se prva,​3
10148 DATA ztenen pjmy,​3
10149 DATA dti zpozornly,​3
10150 DATA smovat zbo,​3
10151 DATA dt stlo,​4
10152 DATA jmenn seznam,​4
10153 DATA tdn kniha,​4
10154 DATA pjdu dl,​4
10155 DATA devn tska,​4
10156 DATA z ostravskch dol,​4
10157 DATA nae kultura,​4
10158 DATA zbavn poad,​4
10159 DATA mlo pn,​4
10160 DATA stinn msto,​4
10161 DATA jdi pod dol,​4
10162 DATA dobr vle,​4
10163 DATA dtsk sta,​4
10164 DATA bl kmen,​4
10165 DATA tzac zjmeno,​4
10166 DATA otevt brnu,​4
10167 DATA zatmn sprva,​4
10168 DATA blzk cl,​4
10169 DATA vesel smch,​4
10170 DATA plno kiku,​4
10171 DATA potej na poitadle,​4
10172 DATA siln vliv,​4
10173 DATA mil pn,​4
10174 DATA losk z,​4
10175 DATA velk spch,​4
10176 DATA chrnme ptky,​4
10177 DATA paprov pytel,​4
10178 DATA dv pse,​4
10179 DATA prmrn vkon,​4
10180 DATA ztej zpas,​4
10181 DATA hudebn nadn,​4
10182 DATA patn chovn,​4
10183 DATA mal hnzdo,​4
10184 DATA s km se stk,​4
10185 DATA zbv mal zbytek,​4
10186 DATA usilovn prce,​4
10187 DATA na t na ulici,​4
10188 DATA pro nai mylenku,​4
10189 DATA pta kdlo,​4
10190 DATA krsn sk,​4
10191 DATA dleit vjimka,​4
10192 DATA vlivn pn,​4
10193 DATA zrodnn hor,​4
10194 DATA bublajc potek,​4
10195 DATA komol kuel,​4
10196 DATA nehledn psmo,​4
10197 DATA udlal to nemysln,​4
10198 DATA stl psobit,​4
10199 DATA estn kol,​4
10200 DATA nenosn nklady,​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$="hji`"
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	

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!