2 ON ERROR GOTO 330
4 SCREEN 7: COLOR 3: REM 10/12/95
5 SHELL "pcxview.exe rekl.pcx /g /k /q"
6 W$ = INKEY$: IF W$ = "" THEN 6
7 REM SHELL "my.exe"
20 DIM F(1000)
60 SCREEN 7: COLOR 3: SHELL "pcxview.exe pole.pcx /g /k /q"
80 GET (160, 105)-(180, 120), F: X5 = 160: Y5 = 105: REM  PUT (160,105),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 < 175 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 < 290 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 <= 77 AND Y5 <= 96 THEN GOSUB 200: RUN "11111"
165 IF X5 >= 77 AND X5 <= 155 AND Y5 <= 96 THEN GOSUB 200: RUN "22222"
166 IF X5 >= 155 AND X5 <= 232 AND Y5 <= 96 THEN GOSUB 200: RUN "33333"
170 IF X5 >= 232 AND Y5 >= 96 THEN GOSUB 200: SCREEN 1: SHELL "a.exe spasibo.fli": GOTO 330
180 IF X5 >= 155 AND X5 <= 232 AND Y5 >= 96 THEN GOSUB 200: RUN "77777"
181 IF X5 <= 77 AND Y5 >= 96 THEN GOSUB 200: RUN "55555"
182 IF X5 >= 77 AND X5 <= 155 AND Y5 >= 96 THEN GOSUB 200: RUN "66666"
185 IF X5 >= 232 AND Y5 <= 96 THEN GOSUB 200: RUN "44444"
199 GOTO 160
200 RETURN
320 i$ = INKEY$: IF i$ = "" THEN 320
330 RUN "setk"
SYSTEM

