кхярхмц опнцпюллш
1 MEMORY 34000
14 GOSUB 182
15 FOR X=1 TO 2
16 GOSUB 180
17 GOSUB 181
18 GOSUB 181
19 GOSUB 181
20 NEXT X
21 OUT &F8F9,&A
155 CLS
156 FOR X=0 TO 2000:NEXT X:GOSUB 182
157 FOR X=1 TO 2
158 GOSUB 180
159 GOSUB 181
160 GOSUB 180
161 GOSUB 181
162 NEXT X:A=35020
163 FOR X=0 TO 8
164 OUT &F8F9,&9:OUT &F8F9,&1:D=INP(&F8F8):OUT &F8F9,&B
165 IF D=255 GOTO 166 ELSE 167
166 POKE (A+X),1:GOTO 168
167 POKE (A+X),0
168 NEXT X:OUT &F8F9,&A
169 Z=0:C=PEEK(35020):Z=C
170 C=PEEK(35021):IF C=1 THEN Z=(Z)+2
171 C=PEEK(35022):IF C=1 THEN Z=(Z)+4
172 C=PEEK(35023):IF C=1 THEN Z=(Z)+8
173 C=PEEK(35024):IF C=1 THEN Z=(Z)+16
174 C=PEEK(35025):IF C=1 THEN Z=(Z)+32
175 C=PEEK(35026):IF C=1 THEN Z=(Z)+64
176 C=PEEK(35027):IF C=1 THEN Z=(Z)+128
177 Z=Z/2:LOCATE 1,1:PRINT "TEMPERATURA";: LOCATE 12,1:PRINT Z:
LOCATE 18,1:PRINT "grC":GOTO 156
180 OUT &F8F9,&9:OUT &F8F9,&B:RETURN
181 OUT &F8F9,&9: OUT &F8F9,&D: OUT &F8F9,&F:RETURN
182 OUT &F8F9,&A:OUT &F8F9,&B:RETURN
222 GOSUB 182
223 FOR X=1 TO 2
224 GOSUB 180
225 GOSUB 181
226 GOSUB 180
227 GOSUB 180
228 NEXT X
229 OUT &F8F9,&A
330 END
