; ASC2EBCD
;
; Programma per Proteus
;
; (C) 1998-2003 Simone Zanella Productions
;
; Questo programma trasforma il file in ingresso nel file in uscita mappando
; i caratteri dalla codifica ASCII alla codifica EBCDC.

#!proteus -z

; Stampa le istruzioni del programma, se lanciato senza parametri
IF LT(ARGC, 6)
  CONSOLELN "Sintassi: proteus " ARGV(2) " <input.asc> <output.ebc>"
  CONSOLELN ""
  CONSOLELN "Scopo: trasforma il file \"input.asc\" nel file \"output.ebc\","
  CONSOLELN "mappando dalla codifica ASCII alla codifica EBCDC."
  ABORT 0
FI

; Apre il file sorgente e segnala eventuali anomalie
H = FOPEN(ARGV(5), 4)
IF EQ(H, -1)
  CONSOLELN "File \"" ARGV(5) "\" non trovato!"
  ABORT 1
FI

; Apre il file destinazione e segnala eventuali anomalie
D = FOPEN(ARGV(6), 26)
IF EQ(D, -1)
  CONSOLELN "Impossibile creare/scrivere su \"" ARGV(6) "\"!"
  ABORT 2
FI

AB = MAPNEW("\x00\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0A\x0B\x0C\x0D\x0E" \
            "\x0F\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1A\x1B\x1C\x1D" \
            "\x1E\x1F\x20\x21\x22\x23\x24\x25\x26\x27\x28\x29\x2A\x2B\x2C" \
            "\x2D\x2E\x2F\x30\x31\x32\x33\x34\x35\x36\x37\x38\x39\x3A\x3B" \
            "\x3C\x3D\x3E\x3F\x40\x41\x42\x43\x44\x45\x46\x47\x48\x49\x4A" \
            "\x4B\x4C\x4D\x4E\x4F\x50\x51\x52\x53\x54\x55\x56\x57\x58\x59" \
            "\x5A\x5B\x5C\x5D\x5E\x5F\x60\x61\x62\x63\x64\x65\x66\x67\x68" \
            "\x69\x6A\x6B\x6C\x6D\x6E\x6F\x70\x71\x72\x73\x74\x75\x76\x77" \
            "\x78\x79\x7A\x7B\x7C\x7D\x7E\x7F\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\x9E\x9F\xA0\xA1\xA2\xA3\xA4" \
            "\xA5\xA6\xA7\xA8\xA9\xAA\xAB\xAC\xAD\xAE\xAF\xB0\xB1\xB2\xB3" \
            "\xB4\xB5\xB6\xB7\xB8\xB9\xBA\xBB\xBC\xBD\xBE\xBF\xC0\xC1\xC2" \
            "\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD1" \
            "\xD2\xD3\xD4\xD5\xD6\xD7\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF\xE0" \
            "\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF" \
            "\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA\xFB\xFC\xFD\xFE" \
            "\xFF", \
            "\x00\x01\x02\x03\x37\x2D\x2E\x2F\x16\x05\x25\x0B\x0C\x0D\x0E" \
            "\x0F\x10\x11\x12\x13\x3C\x3D\x32\x26\x18\x19\x3F\x27\x1C\x1D" \
            "\x1E\x1F\x40\x4F\x7F\x7B\x5B\x6C\x50\x7D\x4D\x5D\x5C\x4E\x6B" \
            "\x60\x4B\x61\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\x7A\x5E" \
            "\x4C\x7E\x6E\x6F\x7C\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xD1" \
            "\xD2\xD3\xD4\xD5\xD6\xD7\xD8\xD9\xE2\xE3\xE4\xE5\xE6\xE7\xE8" \
            "\xE9\x4A\xE0\x5A\x5F\x6D\x79\x81\x82\x83\x84\x85\x86\x87\x88" \
            "\x89\x91\x92\x93\x94\x95\x96\x97\x98\x99\xA2\xA3\xA4\xA5\xA6" \
            "\xA7\xA8\xA9\xC0\x6A\xD0\xA1\x07\x20\x21\x22\x23\x24\x15\x06" \
            "\x17\x28\x29\x2A\x2B\x2C\x09\x0A\x1B\x30\x31\x1A\x33\x34\x35" \
            "\x36\x08\x38\x39\x3A\x3B\x04\x14\x3E\xE1\x41\x42\x43\x44\x45" \
            "\x46\x47\x48\x49\x51\x52\x53\x54\x55\x56\x57\x58\x59\x62\x63" \
            "\x64\x65\x66\x67\x68\x69\x70\x71\x72\x73\x74\x75\x76\x77\x78" \
            "\x80\x8A\x8B\x8C\x8D\x8E\x8F\x90\x9A\x9B\x9C\x9D\x9E\x9F\xA0" \
            "\xAA\xAB\xAC\xAD\xAE\xAF\xB0\xB1\xB2\xB3\xB4\xB5\xB6\xB7\xB8" \
            "\xB9\xBA\xBB\xBC\xBD\xBE\xBF\xCA\xCB\xCC\xCD\xCE\xCF\xDA\xDB" \
            "\xDC\xDD\xDE\xDF\xEA\xEB\xEC\xED\xEE\xEF\xFA\xFB\xFC\xFD\xFE" \
            "\xFF")

REPEAT
  B = FREAD(H, 1024)
  Y = STRLEN(B)  
  FWRITE(D, MAP(AB, B))
UNTIL FEOF(H)
FCLOSE(H)
FCLOSE(D)

ABORT 0