Atari 8-bit Source code

5 REM  9/1988
10 DIM A$(72),​B$(20),​D$(20)
15 DIM A(13):​POKE 201,​11
20 K_D=3076:​Z_D=2999:​EXEC ABC
25 # MENU:​GRAPHICS 2:​TRAP #MENU
30 POSITION 3,​1:​? #6;"KVETINY V BYTE"
35 ? #6:​? #6;" ****************"
40 EXEC TON1:​POKE 731,​1
45 POSITION 4,​5:​? #6;"PREHLED "
50 POSITION 4,​6:​? #6;"PODMINKY "
55 POSITION 4,​8:​? #6;"KONEC "
60 ?:​? " ";
65 REPEAT:​GET K:​UNTIL K>47 AND K<52
70 K=K-47:​EXEC TON3
75 GRAPHICS 0:​POKE 710,​2:​POKE 752,​1
80 DL=DPEEK(560):​POKE DL+6,​12:​POKE DL+7,​7:​POKE 756,​Q-4
85 ON KGO# KON,​PRE,​P3
90 # KON:​POSITION 26,​1:​? "KONEC":​EXEC TON1:​PAUSE 15:​POKE 752,​0:​GRAPHICS 0:​POKE 731,​0:​END
95 ------------------------------
100 # PRE:​DR=Z_D:​TRAP #PRE
105 REPEAT
110 REPEAT:​CLS:​EXEC PREHLED
115 POSITION 0,​21:​? "?DRUH  * DAL.LIST  * MENU "
120 REPEAT:​GET K:​UNTIL K=27 OR K=32 OR K=155:​EXEC TON5
125 UNTIL K<>32:​IF K=155:​EXIT:​ENDIF
127 REPEAT:​EXEC V_DRUHY
130 UNTIL DR<=K_D:​DR=DR-1
132 REPEAT:​DR=DR+1:​EXEC T_DRUHY
134 IF DR=K_D:​DR=Z_D:​ENDIF
135 POSITION 0,​21:​? "?DALSI  * PREHLED  * MENU ";
140 REPEAT:​GET K:​UNTIL K=32 OR K=155 OR K=27:​EXEC TON5
145 UNTIL K<>32
147 UNTIL K<>27
150 GO# MENU
155 ------------------------------
160 # P3
165 REPEAT:​EXEC Z_PODMINKY:​DR=Z_D
170 REPEAT:​DR=DR+1:​EXEC V_PODMINKY
175 IF DR<K_D:​EXEC T_DRUHY:​POSITION 0,​22
180 ? "DALSI? * NOV.PODM. * MENU";
185 ELSE:​IF DR=K_D:​EXEC T_DRUHY
190 ELSE:​POSITION 1,​20:​? "*PODMINKY NEVYHOVUJI-DATA NENALEZENY*"
192 POSITION 8,​2:​? "??"
195 ENDIF:​POSITION 2,​22:​? " * NOV.PODM. * MENU  *";
200 ENDIF
205 REPEAT:​GET K
210 UNTIL K=155 OR K=27 OR (K=32 AND DR<K_D):​EXEC TON5
215 UNTIL K<>32
220 FOR I=1 TO 13:​A(I)=0:​NEXT I
225 UNTIL K<>27
230 GO# MENU
235 STOP
300 ------------------------------
305 PROC PREHLED:​I=0:​POSITION 23,​1
310 ? "PREHLED DRUHU":​?
315 REPEAT:​I=I+1:​DR=DR+1
320 IF DR>K_D:​DR=Z_D+1:​?:​ENDIF
325 ? DR-Z_D;
330 IF DR-Z_D<10:​? "...";
335 ELSE:​? "..";:​ENDIF
340 RESTORE DR:​READ A$:​? A$
345 UNTIL I=15
350 EXEC TON6
355 ENDPROC
360 ------------------------------
365 PROC V_DRUHY
370 I=0:​PR=0:​DR=0:​POSITION 21,​1
375 ? "JEDNOTLIVE DRUHY":​?
380 POSITION 4,​20:​D$=""
385 ? "ZADEJ POR.CISLO NEBO NAZEV":​? "":​? "";
390 DO
395 REPEAT:​GET K:​UNTIL (K>47 AND K<58) OR (K>64 AND K<91) OR K=32
400 IF K=32:​EXEC TON5:​EXIT:​ENDIF
405 EXEC TON2
410 IF K>47 AND K<58 AND PR=0
415 DR=DR*10*(DR>0)+VAL(CHR$(K))
420 ELSE:​I=I+1:​PR=1
425 D$(I,​I)=CHR$(K)
430 ENDIF:​? "";CHR$(K);
435 LOOP
440 IF PR=0:​DR=Z_D+DR
445 ELSE:​DR=Z_D+1
450 REPEAT:​RESTORE DR:​READ A$
455 IF UINSTR(A$,​D$)>0:​EXIT
460 ELSE:​DR=DR+1:​ENDIF
465 UNTIL DR>K_D
470 ENDIF
475 ENDPROC
479 ------------------------------
480 PROC T_DRUHY:​CLS:​CLS #6
485 POSITION 22,​1
490 RESTORE DR:​READ A$,​B$:​? A$
495 ? "(";DR-Z_D;")";
498 ? "*";B$;"*":​?:​?
500 FOR I=1 TO 13:​RESTORE DR
505 POKE 182,​I+1:​READ D
510 IF D>0
515 RESTORE 1000:​POKE 182,​I-1
520 READ A$:​? A$,​:​E=0
525 WHILE D<>0:​E=E+1:​POKE 82,​14
530 P=FRAC(D/10)*10
535 D=TRUNC(D/10)
540 RESTORE 1999+I:​POKE 182,​P
545 READ A$
547 IF E=3:​E=0:​?:​ELSE:​? "-";:​ENDIF
550 IF A(I)=P:​FOR J=1 TO LEN(A$)
555 ? CHR$(ASC(A$(J,​J))+128);:​NEXT J
560 ELSE:​? A$;:​ENDIF
565 WEND:​POKE 82,​2:​?
570 ENDIF
575 NEXT I:​EXEC TON4
580 ENDPROC
585 ------------------------------
590 PROC Z_PODMINKY
595 REPEAT
600 DO:​CLS:​POSITION 22,​1
605 ? "PODMINKY":​?:​?
610 FOR I=1 TO 35:​? "=";:​NEXT I
615 ?:​?
620 FOR I=1 TO 13:​RESTORE 1000:​POKE 182,​I-1:​READ A$
625 IF A(I)=0:​? CHR$(I+64);"-";A$
630 ELSE:​? CHR$(I+192);"-";A$;"";:​RESTORE 1999+I:​POKE 182,​A(I):​READ A$:​? A$
635 ENDIF
640 NEXT I:​EXEC TON6
645 POSITION 1,​22:​? " VYBER PODMINKU(A-L)  * HLEDEJ ";
650 REPEAT:​GET K
655 UNTIL (K>64 AND K<78) OR K=32
660 IF K=32:​EXEC TON5:​EXIT
665 ELSE:​EXEC TON2:​K=K-64:​ENDIF
668 FOR I=6 TO 18:​POSITION 15,​I:​? " ":​NEXT I
670 POSITION 18,​4:​POKE 82,​18
675 RESTORE 1000:​POKE 182,​K-1
680 READ A$:​?:​?:​? " ";A$
685 ? " =========":​?
690 RESTORE 1999+K:​READ D
695 FOR I=1 TO D:​READ A$
700 IF A(K)=I:​? CHR$(176+I);
705 ELSE:​? CHR$(48+I);
710 ENDIF:​? "-";A$
715 NEXT I:​POKE 82,​2:​EXEC TON6
720 POSITION 6,​22:​? "   ZADEJ PODMINKU (1-";D;")  NE 0";
725 REPEAT:​GET J
730 UNTIL J>47 AND J<(49+D)
735 EXEC TON2:​A(K)=(J-48)
740 LOOP
745 PR=0:​KO=0
750 FOR I=1 TO 13
755 IF A(I)<>0 AND PR=0 THEN ZA=I:​PR=1
760 IF A(I)<>0 THEN KO=I
765 NEXT I
770 UNTIL KO>0
775 ENDPROC
780 ------------------------------
785 PROC V_PODMINKY
790 REPEAT:​RESTORE DR:​P=ZA:​PR=-1
793 POSITION 7,​2:​? "(";DR-Z_D;")"
795 WHILE PR<>0 AND PR<>KO
800 WHILE A(P)>0 AND PR<>P AND PR<>0 AND PR<>KO
805 POKE 182,​P+1:​READ D
810 IF D=0:​PR=0
815 ELSE:​WHILE D<>0
820 I=FRAC(D/10)*10
825 D=TRUNC(D/10)
830 IF I=A(P):​PR=P:​EXIT
835 ELSE:​PR=0:​ENDIF
840 WEND
845 ENDIF
850 WEND
855 P=P+1
860 WEND
865 IF PR<>KO:​DR=DR+1:​ENDIF
870 UNTIL DR>K_D OR PR=KO
875 ENDPROC
900 ------------------------------
905 PROC TON1:​FOR S=15 TO 0 STEP -2
910 FOR O=130 TO 100 STEP -1
915 SOUND 0,​O,​10,​S
920 NEXT O:​NEXT S:​PAUSE 10
925 SOUND 0,​25,​10,​8:​PAUSE 5:​SOUND:​ENDPROC
930 PROC TON2:​FOR S=15 TO 0 STEP -0.5
935 SOUND 0,​50,​10,​S
940 NEXT S:​SOUND:​ENDPROC
945 PROC TON3:​FOR S=160 TO 0 STEP -20
950 FOR O=S+100 TO S STEP -5
955 SOUND 0,​O,​10,​S/10
960 NEXT O:​NEXT S:​ENDPROC
965 PROC TON4:​SOUND 0,​200,​10,​10
970 PAUSE 5:​SOUND 0,​100,​10,​8:​PAUSE 5:​PAUSE 5:​SOUND 0,​50,​10,​6:​PAUSE 10
975 SOUND:​ENDPROC
980 PROC TON5:​FOR S=15 TO 0 STEP -0.2
985 SOUND 0,​200,​10,​S:​NEXT S
990 SOUND:​ENDPROC
995 PROC TON6:​SOUND 0,​12,​10,​10:​PAUSE 5:​SOUND:​ENDPROC
1000 DATA DRUH,​VELIKOST,​KVETE,​SVTLO,​TEP.vZIM,​ZLIVKA,​HNOJEN,​PESAZOV.,​MNOEN,​ZEM,​KOD,​HYDROPON.,​SUBSTRT
2000 DATA 8,​Popnav,​Kekovit,​Tunolist,​Kaktusovit,​Hlzovit,​Bylina,​Epifitn,​Trvalka
2001 DATA 4,​Nzk 20cm,​Stedn 50cm,​Polovys.70cm,​Vysok 100cm
2002 DATA 7,​Velk kv.,​Pestr kv.,​Drobn kv.,​Nenpadn kv.,​Drobn kvtenstv,​Kvete vzcn,​Nekvete
2003 DATA 5,​ero-stn,​Stn,​Polostn,​Svtlo,​Pm slunce
2004 DATA 8,​2-6'C,​5-8'C,​8-12'C,​12-16'C,​14-18'C,​16-20'C,​18-22'C,​22-26'C
2005 DATA 6,​Velmi mal,​Vlhy co nejmn,​Mrn vlhkost,​Prav. zlivka,​Vlhk ovzdu,​Dostatek vlhy
2006 DATA 5,​Pihnojovn,​Tdn,​2x msn,​1x msn,​Mlo
2007 DATA 6,​Jaro,​Lto,​Podzim,​Bhem roku,​Kad rok,​Kad 2.rok
2008 DATA 8,​Semenem,​Dlenm,​zky listu,​zky stonku,​Cibulkou,​Bonmi oddlky,​Hlzami,​Dlenm trsu
2009 DATA 8,​Raelina,​Listnatka,​Jehlinatka,​Pisit,​Paenitn,​Kompostov,​Hnojovka,​Drnovka
2010 DATA 9,​kdci,​Choroby,​P.slunce,​Ml.svtla,​Chlad,​Vel.vlhkost,​Neprav.zlivka,​Mlo vlhkosti,​Nic!
2011 DATA 5,​Vhodn,​0.05%-0.1% roztok,​0.1%-0.2% roztok,​0.2%-0.5% roztok,​Nevhodn
2012 DATA 6,​Raelina,​Kremiit trk,​trkov dr,​Keramzit,​Perlit,​Polystyrn
3000 DATA AFRICKA FIALKA,​Saintpavla,​6,​1,​2,​3,​6,​6,​3,​4,​31,​412,​3,​5,​0
3001 DATA AFRICKA KOPRIVA,​Coleus,​6,​2,​4,​4,​4,​4,​3,​1,​41,​251,​1,​5,​0
3002 DATA AFRICKA LIPKA,​Sparmannia,​2,​4,​1,​3,​3,​6,​3,​1,​4,​54,​3,​21,​21
3003 DATA AGAVE,​Agave,​3,​4,​6,​4,​2,​2,​5,​1,​6,​54,​6,​21,​2
3004 DATA AKACIE,​Acacia,​2,​4,​5,​4,​3,​6,​1,​61,​4,​84,​9,​5,​0
3005 DATA ALOE,​Aloe,​3,​43,​2,​4,​2,​5,​5,​1,​6,​54,​6,​21,​2
3006 DATA ARALKA,​Fatsia,​2,​4,​6,​31,​3,​6,​3,​51,​41,​8465,​1,​41,​3
3007 DATA ARAUKARIE,​Araucaria,​2,​4,​7,​3,​3,​4,​5,​6,​4,​412,​6,​21,​2
3008 DATA AREKA,​Areca,​2,​4,​7,​3,​8,​6,​3,​2,​1,​482,​1,​21,​1
3009 DATA ASPARAGUS,​*,​26,​1,​6,​5,​4,​6,​2,​31,​8,​485,​1,​41,​3
3010 DATA AZALKA,​Azalea,​2,​1,​1,​3,​3,​4,​4,​1,​4,​41,​27,​5,​0
3011 DATA BEGONIE,​*,​26,​2,​2,​43,​7,​6,​3,​1,​41,​532,​21,​21,​31
3012 DATA BILBERGIE,​*,​37,​1,​1,​5,​7,​4,​1,​52,​61,​452,​5,​21,​31
3013 DATA BLAHOKER,​Clerodendrum,​2,​2,​2,​4,​4,​6,​3,​1,​4,​412,​1,​5,​0
3014 DATA BLAHOVICNIK,​Eucalptus,​2,​42,​7,​4,​2,​6,​3,​51,​1,​482,​1,​5,​0
3015 DATA BLAZEN,​Tradescantia,​1,​2,​4,​3,​2,​6,​5,​1,​4,​481,​9,​41,​3
3016 DATA BOUVARDIE,​*,​2,​2,​2,​43,​4,​6,​2,​15,​4,​542,​1,​5,​0
3017 DATA BRAMBORIK,​Cyclamen,​6,​1,​2,​4,​4,​6,​2,​25,​7,​452,​2,​5,​0
3018 DATA BRCAL,​Vinca,​6,​4,​6,​4,​2,​6,​3,​51,​4,​865,​1,​41,​3
3019 DATA BRSLEN,​Euonymus,​2,​2,​4,​3,​1,​6,​3,​2,​4,​485,​4,​5,​0
3020 DATA BRECTAN,​Hedera,​1,​4,​4,​4,​1,​6,​3,​51,​4,​865,​1,​41,​3
3021 DATA CITRONIK,​Citrus,​2,​3,​3,​4,​2,​6,​3,​1,​31,​418,​1,​5,​0
3022 DATA CYKAS,​*,​2,​4,​4,​5,​3,​6,​4,​2,​1,​418,​1,​21,​1
3023 DATA CILIMNIK,​Citisus,​2,​2,​2,​5,​3,​3,​5,​21,​4,​52,​1,​5,​0
3024 DATA CLUNATEC,​Cimbidium,​7,​1,​1,​3,​2,​4,​3,​6,​1,​21,​1,​5,​0
3025 DATA DATLOVNIK,​Phoenix,​2,​4,​7,​3,​8,​6,​3,​2,​1,​842,​1,​21,​1
3026 DATA DIEFENBACHIE,​*,​6,​2,​6,​3,​5,​6,​1,​2,​4,​482,​9,​41,​32
3027 DATA DIPLANDENIE,​*,​2,​2,​1,​4,​7,​65,​1,​2,​4,​51,​9,​31,​32
3028 DATA DOMACI STESTI,​Aspidistra,​1,​3,​4,​32,​3,​4,​3,​1,​8,​418,​13,​31,​2
3029 DATA DRACENA,​Dracaena,​6,​3,​7,​3,​7,​6,​3,​2,​4,​472,​1,​31,​2
3030 DATA DRACINKA,​Cordyline,​2,​2,​3,​4,​5,​6,​3,​2,​41,​412,​1,​31,​2
3031 DATA DURMAN,​Datura,​26,​1,​1,​4,​2,​6,​3,​1,​4,​786,​1,​5,​0
3032 DATA DUVALIE,​*,​3,​2,​4,​34,​3,​3,​1,​2,​4,​482,​2,​21,​3
3033 DATA DVOJACKA,​Ruellia,​26,​2,​5,​4,​6,​6,​1,​1,​4,​852,​3,​21,​3
3034 DATA ERIKA,​*,​2,​2,​2,​5,​3,​6,​5,​1,​4,​43,​2,​21,​1
3035 DATA FIKUS,​*,​2,​43,​7,​5,​7,​6,​1,​2,​4,​485,​1,​41,​3
3036 DATA FILODENDRON,​Monstera,​21,​3,​7,​3,​5,​4,​1,​2,​3,​645,​9,​41,​3
3037 DATA FUCHSIE,​*,​2,​2,​2,​3,​3,​4,​2,​1,​4,​461,​164,​5,​0
3038 DATA GARDENIE,​*,​2,​2,​1,​54,​7,​6,​4,​4,​4,​418,​1,​5,​0
3039 DATA GLOXINIE,​Sinningia,​6,​2,​2,​3,​5,​3,​1,​1,​41,​482,​9,​31,​1
3040 DATA GUZMANIE,​*,​7,​1,​1,​32,​8,​3,​1,​2,​6,​463,​9,​31,​321
3041 DATA HLAZENEC,​Cuphea,​6,​1,​3,​4,​3,​4,​4,​5,​4,​462,​9,​5,​0
3042 DATA HNIZDIVKA,​Nidularium,​7,​1,​2,​3,​7,​4,​1,​2,​6,​431,​83,​21,​21
3043 DATA HONZIK,​Achimenes,​6,​1,​2,​3,​5,​6,​5,​1,​41,​482,​9,​21,​2
3044 DATA HORTENZIE,​Hydrangea,​2,​2,​1,​42,​5,​6,​3,​3,​4,​46,​21,​5,​0
3045 DATA HOREPNIK,​Exacum,​6,​1,​5,​3,​3,​6,​5,​6,​41,​482,​9,​5,​0
3046 DATA HVEZDNIK,​Hippeastrum,​8,​2,​1,​5,​6,​6,​2,​5,​5,​482,​1,​21,​3
3047 DATA CHMELNICEK,​Beloperone,​2,​5,​4,​4,​7,​6,​2,​5,​4,​412,​45,​31,​32
3048 DATA CHRYZANTEMA,​*,​6,​31,​1,​4,​5,​6,​2,​1,​4,​456,​61,​5,​0
3049 DATA IBISEK,​Hibiscus,​62,​2,​1,​4,​6,​4,​3,​1,​4,​428,​1,​31,​3
3050 DATA JUKA,​Yucca,​8,​2,​1,​3,​4,​6,​3,​2,​41,​412,​1,​31,​3
3051 DATA KATLEJA,​Cattleya,​7,​1,​1,​3,​8,​6,​2,​1,​4,​1,​12,​5,​0
3052 DATA KALA,​Zantedeschia,​8,​2,​4,​3,​6,​6,​3,​5,​6,​418,​2,​41,​21
3053 DATA KALINA,​Viburnum,​2,​2,​5,​4,​1,​6,​3,​51,​4,​485,​4,​5,​0
3054 DATA KALOKVET,​Agapanthus,​68,​2,​2,​5,​2,​6,​1,​5,​6,​46,​9,​5,​0
3055 DATA KAMELIE,​Camellia,​2,​2,​1,​4,​1,​6,​1,​6,​4,​146,​72,​5,​0
3056 DATA KAVOVNIK,​Coffea,​2,​2,​1,​4,​6,​6,​1,​1,​1,​412,​1,​5,​0
3057 DATA KLADIVNIK,​Cestrum,​2,​2,​2,​5,​1,​6,​2,​1,​41,​6,​1,​5,​0
3058 DATA KLIMAN,​Ardisia,​2,​3,​3,​4,​4,​4,​1,​1,​41,​421,​6,​5,​0
3059 DATA KLIVIE,​**,​3,​2,​1,​3,​5,​4,​3,​5,​8,​541,​6,​21,​2
3060 DATA KROTON,​Codiaeum,​2,​2,​2,​3,​8,​4,​2,​2,​4,​541,​1,​31,​32
3061 DATA KRIN,​Crinum,​5,​4,​1,​5,​6,​6,​1,​5,​51,​845,​9,​5,​0
3062 DATA LACKOVKA,​Nepenthes,​21,​2,​1,​3,​5,​3,​1,​3,​4,​41,​9,​5,​0
3063 DATA LEDVINIK,​Nephrolepis,​7,​3,​7,​3,​3,​4,​3,​1,​8,​421,​5,​5,​0
3064 DATA LELIE,​Laelia,​7,​1,​1,​3,​8,​6,​2,​1,​4,​1,​21,​5,​0
3065 DATA LIBENKA,​Eucharas,​5,​2,​1,​3,​5,​6,​3,​2,​5,​842,​1,​5,​0
3066 DATA MOLICE,​Plectranthus,​62,​2,​3,​4,​4,​4,​3,​1,​41,​521,​1,​5,​0
3067 DATA MRACNAK,​Abutilon,​2,​3,​2,​5,​2,​4,​3,​1,​4,​54,​1,​31,​1
3068 DATA MUCENKA,​Passiflora,​6,​2,​1,​5,​3,​4,​3,​51,​4,​412,​1,​21,​1
3069 DATA MUSKAT,​Pelargonium,​2,​2,​2,​5,​3,​4,​1,​1,​4,​452,​2,​5,​0
3070 DATA MUZICEK,​Sedum,​2,​2,​2,​5,​3,​3,​5,​15,​4,​864,​1,​21,​3
3071 DATA MYRTA,​**,​2,​3,​4,​4,​2,​6,​1,​2,​4,​541,​2,​5,​0
3072 DATA NADUT,​Bryophyllum,​62,​3,​3,​5,​3,​3,​5,​15,​4,​842,​1,​21,​3
3073 DATA NETIK,​Adianthum,​62,​3,​7,​3,​3,​4,​3,​1,​8,​421,​1,​21,​1
3074 DATA NETYKAVKA,​Impatiens,​6,​3,​2,​4,​4,​6,​3,​51,​4,​46,​2,​21,​32
3075 DATA OLEANDR,​Nerium,​2,​3,​1,​4,​2,​6,​3,​1,​4,​854,​1,​5,​0
3076 DATA OPUNCIE,​**,​2,​2,​2,​5,​2,​2,​5,​1,​4,​84,​1,​21,​32
10000 PROC ABC
10001 Q=PEEK(106):​Z=(Q-4)*256:​POKE 106,​Q-8:​GRAPHICS 0:​POKE 756,​Q-4
10002 POKE 559,​0:​MOVE 57344,​Z,​1024
10003 RESTORE 10007:​Z=Z+511
10004 FOR J=1 TO 3:​READ A$
10005 FOR I=1 TO 72:​Z=Z+1:​POKE Z,​ASC(A$(I,​I)):​NEXT I
10006 NEXT J:​POKE 559,​34:​ENDPROC
10007 DATA $<fff<<>f>0`<```<8>ff><f`<<f``f<<`<<Zffff
10008 DATA 8<Bfff>Zf<=ffff<8|ffff<fff<`|``<fff
10009 DATA |f```>`<|bfff>|ff|lf<f`<`|``bff>x0	

• Download link 1
• Download link 2