1 TOK%=0:XYH%=0:M%=0:MX%=0:MY%=0:MHP%=0
2 X$="":Y$="":HP$="":abc$="http://helltar.ru/?act=vzlom&tact=hacksmile"
3 CLOSE #0:OPEN #0,abc$,"output"
4 GET #0,TOK%
5 IF TOK%=ASC(",") THEN XYH%=XYH%+1
6 IF TOK%=ASC("]") THEN GOTO 22
7 IF TOK%=ASC("-") THEN M%=1
8 IF TOK%>=ASC("0") AND TOK%<=ASC("9") THEN TMP$=CHR$(TOK%)
18 IF XYH%=0 THEN X$=X$+TMP$:IF M%=1 THEN MX%=1:M%=0
19 IF XYH%=1 THEN Y$=Y$+TMP$:IF M%=1 THEN MY%=1:M%=0
20 IF XYH%=2 THEN HP$=HP$+TMP$:IF M%=1 THEN MHP%=1:M%=0
21 GOTO 4
22 TRAP 1:X%=VAL(X$):TRAP 1:Y%=VAL(Y$):TRAP 1:HP%=VAL(HP$):TRAP 1
23 IF MX%=1 THEN X%=X%*-1:MX%=0
24 IF MY%=1 THEN Y%=Y%*-1:MY%=0
25 IF MHP%=1 THEN HP%=HP%*-1:MHP%=0
26 PRINT X%:PRINT Y%:PRINT HP%
27 REPAINT
28 SLEEP 10000
29 CLOSE #0
30 END