Corrected the FOREX-specific quine

Author: leobru

examples/quine/forex.dub

@@ -1,10 +1,6 @@
 *name форекс
 *forex
-      РRОGRАМQ
-      RЕАLХ(14)
-      DАТА  Х /84Н(6Х8НРRОGRАМQ/6Х9НRЕАLХ(14)/6Х12НDАТА  Х /84Н9А6/5Х1НС
-     С5А6,1Н//6Х9НРRINТ Х,Х/6Х3HЕND)/
-      РRINТ Х,Х
-      ЕND
+       REALQ,X(13)◇DATAQ/-2E-14/,X/′(7X28HREALQ,X(13)◇DATAQ/-2E-14/,X/A1
+     C,6A6/5X1HC7A6A1,19H/◇PRINT X,Q,X,Q◇END)   ′/◇PRINT X,Q,X,Q◇END
 *execute
 *end file