; LATTO437
;
; Program for Proteus
;
; (C) 1998-2004 Simone Zanella Productions
;
; This program transforms input into output by mapping characters from
; Iso Latin 1 to Codepage 437.

FUNCTION ONSTART()

  IF STREQ(ARGV(3), "..")
    CONSOLELN "Syntax: " ARGV(1) " " ARGV(2) " source destination"
    CONSOLELN ""
    CONSOLELN "Purpose: maps from Latin 1 into CodePage 437"
    ABORT 0
  FI

  ; Map Iso Latin 1 -> Pc-437
  _WD = MAPNEW("\xC7\xFC\xE9\xE2\xE4\xE0\xE5\xE7\xEA\xEB\xE8\xEF\xEE" \
               "\xEC\xC4\xC5\xC9\xE6\xC6\xF4\xF6\xF2\xFB\xF9\xFF\xD6" \
               "\xDC\xA2\xA3\xA5\x83\xE1\xED\xF3\xFA\xF1\xD1\xAA\xBA" \
               "\xBF\xAC\xBD\xBC\xA1\xAB\xBB\x7F\xA6\xB5\x9C\xF8\xB1" \
               "\xF7\xB0\xB7\xB7\xB2\x95\xA0", \
               "\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8A\x8B\x8C" \
               "\x8D\x8E\x8F\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99" \
               "\x9A\x9B\x9C\x9D\x9F\xA0\xA1\xA2\xA3\xA4\xA5\xA6\xA7" \
               "\xA8\xAA\xAB\xAC\xAD\xAE\xAF\xB1\xB3\xE6\xEC\xED\xF1" \
               "\xF6\xF8\xF9\xFA\xFD\xFE\xFF")
RETURN

PRINTLN MAP(WD, L)