100 REM ** HLAVNI MENU **
110 CLS:ERASE:CLEAR100
120 A$="         ,  ,"
130 B$="EXPONENCIALNI FUNKCE"
230 CLS
240 PRINT&3,5A$
250 PRINT&4,5B$
260 PRINT&12,2"T - TEORIE"
270 PRINT&15,2"G - GRAF"
280 PRINT&18,2"Z - ZKOUSENI"
290 PRINT&21,2"E - KONEC"
300 I$=INKEY$
310 IFI$="T"THEN CALLHEX(F973):GOTO1000
320 IFI$="G"THEN CALLHEX(F973):GOTO 2000
330 IFI$="E"THEN CALLHEX(F973):GOTO 5000
335 IFI$="Z"THEN CALLHEX(F973):GOTO 3000
340 GOTO300
1000 REM ** TEORIE **
1010 CLS:ERASE
1020 PRINT&3,27"x"
1025 PRINT&3,09",  ,"
1030 PRINT&4,0"Exponencialni funkce  y = a  je"
1035 PRINT&5,7",":PRINT&5,26"v ,"
1040 PRINT&6,0"definovana pro a>0. Definicnim"
1045 PRINT&7,11"v  ,":PRINT&7,24"v"
1047 PRINT&8,0"oborem promenne x jsou vsechna"
1050 PRINT&10,0"realna cisla,oborem hodnot jsou"
1055 PRINT&9,2",  , v,"
1057 PRINT&11,5",   ,  , v,":PRINT&11,22"v"
1060 PRINT&12,0"kladna realna cisla. Vsechny"
1063 PRINT&13,1"v":PRINT&13,14","
1065 PRINT&14,0"krivky obsahuji body [0;1] a"
1067 PRINT&15,12",":PRINT&15,23"v"
1070 PRINT&16,0"[1;a]. Pro zaklad a=1 krivka"
1075 PRINT&17,1"v":PRINT&17,10"v,"
1080 PRINT&18,0"prejde v primku o rovnici y=1."
1085 PRINT&19,15"v":PRINT&19,28","
1090 PRINT&20,0"Je-li a>1, je krivka rostouci,"
1095 PRINT&21,14"v":PRINT&21,26", ,"
1100 PRINT&22,0"pro 0<a<1 je krivka klesajici."
1105 PRINT&25,8"v   ,"
1110 PRINT&26,4"Stlac klavesu    !"
1115 B=18
1120 PRINT&26,19CHR$(B)"P"
1130 IF B=18THEN B=19:GOTO1150 
1140 B=18
1150 I$=INKEY$
1160 IFI$="P"THENCALLHEX(F973):GOTO1190
1170 WAIT(5)
1180 GOTO1120
1190 CLS:GOSUB6000
1200 A=2:GOSUB9000
1210 DRAW2.5,7:LABEL"x"
1220 DRAW2,6.7:LABEL"y = 2"
1230 A=1:GOSUB9000
1240 DRAW3,1.7:LABEL"x"
1250 DRAW2.5,1.4:LABEL"y = 1"
1260 A=0.7:GOSUB9000
1270 DRAW-2.3,4:LABEL"x"   
1280 DRAW-3,3.7:LABEL"y = 0,7"
1285 PRINT&26,13"o  ,    ,"
1290 PRINT&27,3"Funkce s ruznymi zaklady."
1295 PRINT&28,09"v   ,"
1300 PRINT&29,5"Stlac klavesu    !"
1310 B=18
1320 PRINT&28,20CHR$(B)"M"
1330 IFB=18THENB=19:GOTO1350
1340 B=18
1350 I$=INKEY$
1360 IF I$="M"THENCALLHEX(F973):ERASE: GOTO230
1370 WAIT(5)
1380 GOTO1320
2000 REM ** GRAF **
2010 CLS:ERASE
2020 GOSUB6000
2030 PRINT&24,0"G - GRAF"
2040 PRINT&26,0"S - SMAZANI"
2050 PRINT&28,0"M - MENU"
2070 I$=INKEY$
2080 IFI$="G"THEN CALLHEX(F973):GOTO 2130
2090 IFI$="S"THENCALLHEX(F973):ERASE: GOSUB6000
2100 IFI$="M"THENCALLHEX(F973):ERASE:GOTO230
2120 GOTO2070
2130 CLS
2140 PRINT&24,0"ZADEJ a :"
2150 PRINT&26,14"a = "
2160 GOSUB7000
2165 PRINT&27,4" ":PRINT&28,3"               "
2170 A=IX
2180 IFA<=0THENCLS:PRINT&28,3"Zaklad je nula !":PRINT&27,4",":GOTO2140
2182 PRINT&15,(26+CO) "x"
2184 PRINT&16,22"y=";:PRINTA
2190 GOSUB9000
2200 CLS:GOTO2030
3000 REM ** ZKOUSENI **
3010 CLS:K=0
3015 PRINT&1,0"          ,          vv   v"
3020 PRINT&2,0"TEST - spravnou odpoved urci"
3025 PRINT&3,0"  ,"
3030 PRINT&4,0"klavesou A,B nebo C !"
3035 PRINT&6,3"         ,  ,"
3040 PRINT&7,3"Exponencialni funkce je"
3045 PRINT&8,3"       ,    ,"
3050 PRINT&9,3"rostouci - zaklad a je"
3055 PRINT&11,5"     v v,   v"
3060 PRINT&12,5"A...vetsi nez 1"
3065 PRINT&14,5"B...mensi nez 1"
3070 PRINT&13,5"       v,   v"
3074 PRINT&16,5"C...roven 1"
3080 B=18
3090 PRINT&7,0CHR$(B)"1)"
3100 IFB=18THENB=19:GOTO3120
3110 B=18
3120 I$=INKEY$
3130 IFI$="A"THENK=K+1
3140 IF(I$="A"ORI$="B"ORI$="C")THENCALLHEX(F973):GOTO3200
3150 WAIT(5)
3160 GOTO3090
3200 PRINT&19,3"Exponencialni funkce pro-"
3205 PRINT&18,3"         ,  ,"
3210 PRINT&21,3"chazi bodem [2;9].Zaklad a="
3215 PRINT&20,3"  , ,              ,"
3220 PRINT&23,5"A...2"
3230 PRINT&25,5"B...3"
3240 PRINT&27,5"C...9"
3250 B=18
3260 PRINT&19,0CHR$(B)"2)"
3270 IFB=18THENB=19:GOTO3290
3280 B=18
3290 I$=INKEY$
3300 IFI$="B"THENK=K+1
3310 IF(I$="A"ORI$="B"ORI$="C")THENCALLHEX(F973):GOTO3400
3320 WAIT(5)
3330 GOTO3260
3400 CLS
3405 PRINT&4,3"         ,  ,           ,"
3410 PRINT&5,3"Exponencialni funkce o za-"
3415 PRINT&6,3"             ,         v"
3420 PRINT&7,3"kladu a=0,5 ma v nekonecnu"
3430 PRINT&9,3"hodnotu"
3440 PRINT&12,5"A...0"
3450 PRINT&14,5"B...1"
3455 PRINT&15,5"          v"  
3460 PRINT&16,5"C...nekonecno"
3470 B=18
3480 PRINT&5,0CHR$(B)"3)"
3490 IFB=18THENB=19:GOTO3510
3500 B=18
3510 I$=INKEY$
3520 IFI$="A"THENK=K+1
3530 IF(I$="A"ORI$="B"ORI$="C")THENCALLHEX(F973):GOTO3600
3540 WAIT(5)
3550 GOTO3480
3600 PRINT&19,3"Exponencialni funkce vzdy"
3605 PRINT&18,3"         ,  ,         v"
3610 PRINT&21,3"prochazi bodem"
3615 PRINT&20,3"     , ,"
3620 PRINT&23,5"A...[a;0]"
3630 PRINT&25,5"B...[0;1]"
3640 PRINT&27,5"C...[1;0]"
3650 B=18
3660 PRINT&19,0CHR$(B)"4)"
3670 IFB=18THENB=19:GOTO3690
3680 B=18
3690 I$=INKEY$
3700 IFI$="B"THENK=K+1
3710 IF(I$="A"ORI$="B"ORI$="C")THENCALLHEX(F973):GOTO3800
3720 WAIT(5)
3730 GOTO3660
3800 CLS
3805 PRINT&4,5"          ,"
3810 PRINT&5,5"VYHODNOCENI TESTU"
3820 PRINT&10,2"Odpovedel jste ";:PRINTK;:PRINT"-krat dobre."
3830 PRINT&9,2"     v v             ,     v"
3840 PRINT&12,3"Je to ";
3850 IFK=4THENPRINT"vyborny vysledek.":PRINT&11,9" ,    ,  ,"
3860 IFK=3THENPRINT"chvalitebny vysledek.":PRINT&11,19",  ,"
3870 IFK=2THENPRINT"dobry vysledek.":PRINT&11,13",  ,"
3880 IFK=1THENPRINT"dostatecny vysledek.":PRINT&11,16"v ,  ,"
3890 IFK=0THENPRINT"nedostatecny vysledek.":PRINT&11,18"v ,  ,"
3910 PRINT&18,7"v   ,"
3920 PRINT&19,3"Stlac klavesu   !"
3930 B=18
3940 PRINT&19,17CHR$(B)"M"
3950 IFB=18THENB=19:GOTO3970
3960 B=18
3970 I$=INKEY$
3980 IFI$="M"THEN CALLHEX(F973):GOTO  230
3990 WAIT(5):GOTO3940
5000 REM ** KONEC **
5010 CLS:ERASE:END
6000 REM ** OSY **
6010 ERASE:LIMIT0,511,86,255
6020 SCALE-4,4,-0.6,8
6025 LTYPE2,2
6030 DRAW-4,0:DRAW4,0,-1:DRAW0,8:DRAW0,-0.5,-1
6040 DRAW-0.07,7.8:DRAW0,8,-1:DRAW0.07,7.8,-1
6050 DRAW0.3,7.4:LABEL"Y"
6060 DRAW3.9,0.07:DRAW4,0,-1:DRAW3.9,-0.07,-1
6070 DRAW3.6,-0.5:LABEL"X"
6080 DRAW-0.1,2:DRAW0.1,2,-1
6090 DRAW-0.1,4:DRAW0.1,4,-1
6100 DRAW-0.1,6:DRAW0.1,6,-1
6110 DRAW-3,0.1:DRAW-3,-0.1,-1
6120 DRAW-2,0.1:DRAW-2,-0.1,-1
6130 DRAW-1,0.1:DRAW-1,-0.1,-1
6140 DRAW 3,0.1:DRAW 3,-0.1,-1
6150 DRAW 2,0.1:DRAW 2,-0.1,-1
6160 DRAW 1,0.1:DRAW 1,-0.1,-1
6170 DRAW-2.9,-0.5:LABEL"-3"
6174 DRAW-1.9,-0.5:LABEL"-2"
6176 DRAW-0.9,-0.5:LABEL"-1"
6180 DRAW0.1,-0.5:LABEL"0"
6184 DRAW1.1,-0.5:LABEL"1"
6186 DRAW2.1,-0.5:LABEL"2"
6190 DRAW3.1,-0.5:LABEL"3"
6194 DRAW0.3,2.1:LABEL"2"
6196 DRAW0.3,6.1:LABEL"6"
6200 DRAW0.3,4.1:LABEL"4"
6210 RETURN
7000 REM ** VSTUP **
7010 IX$="":CO=0:PX=26:PY=18
7020 WAIT(3):  PRINT&PX,PY"?";:I$=INKEY$
7030 IFI$=""THENI$=" "
7040 IFASC(I$)=13 OR CO>4THENIX=VAL(IX$):PRINT&PX,PY" ";:CALLHEX(F973):RETURN
7050 IFASC(I$)<46 OR ASC(I$)>57 OR ASC(I$)=47 THEN7020     
7060 PRINT&PX,PY;I$;:CALLHEX(F973)
7070 IX$=IX$+I$:PY=PY+1:CO=CO+1:GOTO7020
9000 REM ** KRESLENI **
9010 XO=-4:YO=A^XO
9020 DRAWXO,YO
9030 FORXO=-4TO4STEP0.05
9040 YO=A^XO:DRAWXO,YO,-1
9050 NEXTXO
9060 RETURN