1 SCREEN 7: COLOR 3: KEY OFF: ON ERROR GOTO 1050: REM 29.5.1995
2 SHELL "pcxview.exe rekll.pcx /q /k /g"
4 SHELL "c"
5 IF INKEY$ = "" THEN 5
20 DIM F(1000)
30 SCREEN 7: COLOR 3
60 SHELL "pcxview.exe LINZA.PCX /g /k /q"
65 REM shell"my.exe"
70 IF INKEY$ = "" THEN 70
80 GET (130, 120)-(155, 132), F: X5 = 130: Y5 = 120: REM  PUT (115,110),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 > 116 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 < 280 THEN XX = 5: YY = 0 ELSE XX = 0: YY = 0
140 IF D$ = CHR$(13) THEN SCREEN 0: WIDTH 40: GOTO 170
150 PUT (X5, Y5), F, XOR: X5 = X5 + XX: Y5 = Y5 + YY: PUT (X5, Y5), F, XOR: GOTO 90
170 IF X5 > 208 AND Y5 > 96 THEN GOSUB 1000: SHELL "a.exe spasibo.fli": GOTO 1050
185 IF X5 < 107 THEN GOSUB 1000: RUN "linzateo"
190 IF X5 > 107 AND X5 < 208 THEN GOSUB 1000: RUN "pap68"
1000 RETURN
1050 RUN "setk"

