10 SCREEN 7: COLOR 3
20 SHELL "pcxview.exe rekl.pcx /k /q /g"
30 IF INKEY$ = "" THEN 30
40 DIM F(1000)
50 SCREEN 7: COLOR 3
60 SHELL "pcxview.exe 68A.pcx /g /k /q"
70 IF INKEY$ = "" THEN 70
80 SHELL "pcxview.exe 68.pcx /g /k /q"
90 IF INKEY$ = "" THEN 90
100 GET (115, 110)-(132, 126), F: X5 = 115: Y5 = 110: REM  PUT (115,110),F,XOR
110 D$ = INKEY$: IF D$ = "" THEN 110
120 XX = 0: YY = 0
130 IF D$ = "8" OR D$ = CHR$(0) + CHR$(72) THEN IF Y5 > 6 THEN XX = 0: YY = -5 ELSE XX = 0: YY = 0
140 IF D$ = CHR$(0) + CHR$(80) OR D$ = "2" THEN IF Y5 < 175 THEN XX = 0: YY = 5 ELSE XX = 0: YY = 0
150 IF D$ = CHR$(0) + CHR$(75) OR D$ = "4" THEN IF X5 > 6 THEN XX = -5: YY = 0 ELSE XX = 0: YY = 0
160 IF D$ = CHR$(0) + CHR$(77) OR D$ = "6" THEN IF X5 < 290 THEN XX = 5: YY = 0 ELSE XX = 0: YY = 0
170 IF D$ = CHR$(13) THEN SCREEN 0: WIDTH 40: GOTO 190
180 PUT (X5, Y5), F, XOR: X5 = X5 + XX: Y5 = Y5 + YY: PUT (X5, Y5), F, XOR: GOTO 110
190 IF X5 < 107 AND Y5 < 96 THEN GOSUB 250: RUN "681"
200 IF X5 > 107 AND X5 < 208 AND Y5 < 96 THEN GOSUB 250: RUN "682"
210 IF X5 > 208 AND Y5 > 96 THEN GOSUB 250: SCREEN 7: COLOR 3: SHELL "a.exe spasibo.fli ": GOTO 300
220 IF X5 > 208 AND Y5 < 96 THEN GOSUB 250: RUN "683"
230 IF X5 < 107 AND Y5 > 96 THEN GOSUB 250: RUN "685"
240 IF X5 > 107 AND X5 < 208 AND Y5 > 96 THEN GOSUB 250: RUN "684"
250 RETURN
300 RUN "LIN"

