1 REM "INTERAKTIVE KALKULATOR BY HOLOVANISIN MARTIN"
2 GCLEAR: CLEAR: SCALE 0,100,0,100
3 MOVE 25,90: LABEL 1,2; "Kalkulacka interaktivna"
4 MOVE 15,85: LABEL 1,1; "Scitanie - S"
5 MOVE 15,80: LABEL 1,1; "Odcitanie - O"
6 MOVE 15,75: LABEL 1,1; "Nasobenie - N"
7 MOVE 15,70: LABEL 1,1; "Delenie - D"
8 MOVE  5,65: LABEL 1,1; "Koniec - K alebo 999"
9 MOVE  5,60: LABEL 1,1; "Zmena operacie - znovu ak problemy - 888"
10 INPUT K$
11 IF K$ = "S" THEN 20
12 IF K$ = "O" THEN 50
13 IF K$ = "N" THEN 80
14 IF K$ = "D" THEN 110
15 IF K$ = "K" THEN CLEAR: GCLEAR: END
18 IF K$ <> "S" THEN RUN
20 REM "SCITANIE"
21 S1 = RND(100): S1 = S1*100: S1 = INT (S1)
22 S2 = RND(100): S2 = S2*100: S2 = INT (S2)
23 MOVE 5,50: LABEL 1,1; S1
24 MOVE 15,50: LABEL 1,1; "+"
25 MOVE 17,50: LABEL 1,1; S2
26 MOVE 27,50: LABEL 1,1; "="
27 INPUT S
28 LET S3 = S1 + S2: LET P = P + 1
29 MOVE 30,50: LABEL 1,1; S
31 IF S = S3 THEN MOVE 41,50: LABEL 1,1; "-OK": PAUSE 25
32 IF S = S3 THEN MOVE 41,50: LABEL 1,1; "-OK"
33 IF S = S3 THEN MOVE 30,50: LABEL 1,1; S
34 IF S = S3 THEN MOVE 5,50: LABEL 1,1; S1
35 IF S = S3 THEN MOVE 15,50: LABEL 1,1; "+"
36 IF S = S3 THEN MOVE 17,50: LABEL 1,1; S2
37 IF S = S3 THEN MOVE 27,50: LABEL 1,1; "="
38 IF P = 24 THEN RUN: IF S = 888 THEN RUN
41 IF S = 999 THEN GCLEAR: CLEAR: END
42 IF S <> S3 THEN MOVE 41,50: LABEL 1,1; "Zle - znovu": PAUSE 40
43 IF S <> S3 THEN MOVE 41,50: LABEL 1,1; "Zle - znovu"
44 IF S <> S3 THEN MOVE 30,50: LABEL 1,1; S
45 IF P = 24 THEN RUN
46 IF S = S3 THEN 20
47 IF S$ = "J" THEN RUN
48 IF S <> S3 THEN 27
50 REM "ODCITANIE"
51 O1 = RND(100): O1 = O1*100: O1 = INT (O1)
52 O2 = RND(100): O2 = O2*100: O2 = INT (O2)
53 MOVE 5,50: LABEL 1,1; O1
54 MOVE 15,50: LABEL 1,1; "-"
55 MOVE 17,50: LABEL 1,1; O2
56 MOVE 27,50: LABEL 1,1; "="
57 INPUT O
58 LET O3 = O1 - O2: LET P = P + 1
59 MOVE 30,50: LABEL 1,1; O
60 IF O = O3 THEN MOVE 41,50: LABEL 1,1; "-OK": PAUSE 25
61 IF O = O3 THEN MOVE 41,50: LABEL 1,1; "-OK"
63 IF O = O3 THEN MOVE 30,50: LABEL 1,1; O
64 IF O = O3 THEN MOVE 5,50: LABEL 1,1; O1
65 IF O = O3 THEN MOVE 15,50: LABEL 1,1; "-"
66 IF O = O3 THEN MOVE 17,50: LABEL 1,1; O2
67 IF O = O3 THEN MOVE 27,50: LABEL 1,1; "="
68 IF O = 888 THEN RUN
69 IF O = 999 THEN GCLEAR: CLEAR: END
70 IF O <> O3 THEN MOVE 41,50: LABEL 1,1; "Zle - znovu": PAUSE 40
71 IF O <> O3 THEN MOVE 41,50: LABEL 1,1; "Zle - znovu"
72 IF O <> O3 THEN MOVE 30,50: LABEL 1,1; O
73 IF P = 24 THEN RUN: IF O <> O3 THEN 57
74 IF O = O3 THEN 50
80 REM "NASOBENIE"
81 N1 = RND(20): N1 = N1*20: N1 = INT (N1)
82 N2 = RND(20): N2 = N2*20: N2 = INT (N2)
83 MOVE 5,50: LABEL 1,1; N1
84 MOVE 15,50: LABEL 1,1; "x"
85 MOVE 17,50: LABEL 1,1; N2
86 MOVE 27,50: LABEL 1,1; "="
87 INPUT N
88 LET N3 = N1 * N2: LET P = P + 1
89 MOVE 30,50: LABEL 1,1; N
90 IF N = N3 THEN MOVE 41,50: LABEL 1,1; "-OK": PAUSE 25
92 IF N = N3 THEN MOVE 41,50: LABEL 1,1; "-OK"
93 IF N = N3 THEN MOVE 30,50: LABEL 1,1; N
94 IF N = N3 THEN MOVE 5,50: LABEL 1,1; N1
95 IF N = N3 THEN MOVE 15,50: LABEL 1,1; "x"
96 IF N = N3 THEN MOVE 17,50: LABEL 1,1; N2
97 IF N = N3 THEN MOVE 27,50: LABEL 1,1; "="
98 IF N = 888 THEN RUN
99 IF N = 999 THEN GCLEAR: CLEAR: END
101 IF N <> N3 THEN MOVE 41,50: LABEL 1,1; "Zle - znovu": PAUSE 25
102 IF N <> N3 THEN MOVE 41,50: LABEL 1,1; "Zle - znovu"
103 IF N <> N3 THEN MOVE 30,50: LABEL 1,1; N
107 IF N <> N3 THEN 87
108 IF P = 24 THEN RUN
109 IF N = N3 THEN 80
110 REM "DELENIE"
111 D1 = RND(20): D1 = D1*20: D1 = INT (D1)
112 D2 = RND(10): D2 = D2*10: D2 = INT (D2)
113 MOVE 5,50: LABEL 1,1; D1 : MOVE 15,50: LABEL 1,1; ":"
114 MOVE 17,50: LABEL 1,1; D2 : MOVE 27,50: LABEL 1,1; "="
117 INPUT D
118 LET D3 = D1/D2 : LET P = P + 1
119 MOVE 30,50: LABEL 1,1; D
120 IF D = D3 THEN MOVE 50,50: LABEL 1,1; "-OK!": PAUSE 25
121 IF D = D3 THEN MOVE 50,50: LABEL 1,1; "-OK!"
122 IF D = D3 THEN MOVE 30,50: LABEL 1,1; D
123 IF D = D3 THEN MOVE 5,50: LABEL 1,1; D1
124 IF D = D3 THEN MOVE 15,50: LABEL 1,1; ":"
125 IF D = D3 THEN MOVE 17,50: LABEL 1,1; D2
126 IF D = D3 THEN MOVE 27,50: LABEL 1,1; "="
127 IF D = 888 THEN RUN
128 IF D = 999 THEN GCLEAR: CLEAR: END
129 IF D <> D3 THEN MOVE 50,50: LABEL 1,1; "Zle - znovu" :PAUSE 25
130 IF D <> D3 THEN MOVE 50,50: LABEL 1,1; "Zle - znovu"
131 IF D <> D3 THEN MOVE 30,50: LABEL 1,1; D
132 IF P = 24 THEN RUN
133 IF D <> D3 THEN 117
134 IF D = D3 THEN 111
135 END