50 DIM f(1000)
60 SCREEN 9
70 SHELL "pcxview.exe catalog.pcx /G /K /q"
'71 LINE (190, 120)-(230, 145), , B
'79 IF INKEY$ = "" THEN 79
'STOP
71 ON ERROR GOTO 330
74 SHELL "sila.exe > nul"
80 GET (190, 120)-(232, 145), f: X5 = 190: y5 = 120: REM  PUT (164,83),F,XOR
90 d$ = INKEY$: IF d$ = "" THEN 90
91 XX = 0: YY = 0
100 IF d$ = "8" OR d$ = CHR$(0) + CHR$(72) THEN IF y5 > 6 THEN XX = 0: YY = -5 ELSE XX = 0: YY = 0
110 IF d$ = CHR$(0) + CHR$(80) OR d$ = "2" THEN IF y5 < 320 THEN XX = 0: YY = 5 ELSE XX = 0: YY = 0
120 IF d$ = CHR$(0) + CHR$(75) OR d$ = "4" THEN IF X5 > 6 THEN XX = -5: YY = 0 ELSE XX = 0: YY = 0
130 IF d$ = CHR$(0) + CHR$(77) OR d$ = "6" THEN IF X5 < 570 THEN XX = 5: YY = 0 ELSE XX = 0: YY = 0
140 IF d$ = CHR$(13) THEN SCREEN 0: WIDTH 40: GOTO 160
150 PUT (X5, y5), f, XOR: X5 = X5 + XX: y5 = y5 + YY: PUT (X5, y5), f, XOR: GOTO 90
160 IF X5 <= 130 AND y5 <= 70 THEN GOSUB 200: RUN "we"
165 IF X5 >= 140 AND X5 <= 270 AND y5 <= 70 THEN GOSUB 200: RUN "cinmenu"
166 IF X5 >= 280 AND X5 <= 410 AND y5 <= 70 THEN GOSUB 200: RUN "dinamika"
170 IF X5 >= 420 AND y5 <= 70 THEN GOSUB 200: RUN "molekula"
180 IF X5 >= 280 AND X5 <= 410 AND y5 >= 100 AND y5 <= 250 THEN GOSUB 200: RUN "koleb06"
181 IF X5 <= 130 AND y5 >= 100 AND y5 <= 250 THEN GOSUB 200: RUN "elpole"
182 IF X5 >= 140 AND X5 <= 270 AND y5 >= 100 AND y5 <= 250 THEN GOSUB 200: RUN "eltok"
183 IF X5 >= 420 AND y5 <= 250 AND y5 >= 100 THEN GOSUB 200: RUN "kontur04"

184 IF X5 <= 130 AND y5 >= 280 THEN GOSUB 200: RUN "optika"
185 IF X5 >= 140 AND X5 <= 270 AND y5 >= 280 THEN GOSUB 200: RUN "lin"
186 IF X5 >= 280 AND X5 <= 410 AND y5 >= 280 THEN GOSUB 200: RUN "volnopt"
187 IF X5 >= 400 AND y5 <= 410 AND y5 >= 280 THEN GOSUB 200: SHELL "a.exe spasibo.fli": SYSTEM

199 GOTO 160
200 RETURN
320 i$ = INKEY$: IF i$ = "" THEN 320
330 SYSTEM

