home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 August / PCWorld_2000-08_cd.bin / Software / TemaCD / xbasic / xbpro.exe / xb / amakemap.x < prev    next >
Text File  |  1996-01-19  |  3KB  |  145 lines
  1. '
  2. ' ####################
  3. ' #####  PROLOG  #####
  4. ' ####################
  5. '
  6. PROGRAM    "amakemap"
  7. VERSION    "0.0000"
  8. '
  9. IMPORT    "xst"
  10. '
  11. ' This file creates a character map array that maps the
  12. ' "8514oem" font to the normal character order to the
  13. ' degree possible.  To change the character mapping of
  14. ' a grid, dimension an XLONG map[] array with an upper
  15. ' bound of 255, READ the file this program creates into
  16. ' the array, call XgrSetCharacterMapArray (grid, @map[])
  17. ' to install the array.
  18. '
  19. DECLARE FUNCTION  Entry ()
  20. '
  21. '
  22. ' ######################
  23. ' #####  Entry ()  #####
  24. ' ######################
  25. '
  26. FUNCTION  Entry ()
  27. '
  28. ' create and save a character map array for 8514eom font
  29. '
  30.     DIM char[255]
  31.     FOR i = 0 TO 255
  32.         char[i] = i
  33.     NEXT i
  34. '
  35.     char[0xA0] = 0xA0        ' no map
  36.     char[0xA1] = 0xAD
  37.     char[0xA2] = 0x9B
  38.     char[0xA3] = 0x9C
  39.     char[0xA4] = 0xA4        ' no map
  40.     char[0xA5] = 0x9D
  41.     char[0xA6] = 0xA6        ' no map
  42.     char[0xA7] = 0xA7        ' no map
  43.     char[0xA8] = 0xA8        ' no map
  44.     char[0xA9] = 0xA9        ' no map
  45.     char[0xAA] = 0xA6
  46.     char[0xAB] = 0xAE
  47.     char[0xAC] = 0xAA
  48.     char[0xAD] = 0xAD        ' no map
  49.     char[0xAE] = 0xAE        ' no map
  50.     char[0xAF] = 0xAF        ' no map
  51. '
  52.     char[0xB0] = 0xF8
  53.     char[0xB1] = 0xB1        ' no map
  54.     char[0xB2] = 0xFD
  55.     char[0xB3] = 0xB3        ' no map
  56.     char[0xB4] = 0xB4        ' no map
  57.     char[0xB5] = 0xE6
  58.     char[0xB6] = 0xB6        ' no map
  59.     char[0xB7] = 0xF9
  60.     char[0xB8] = 0xB8        ' no map
  61.     char[0xB9] = 0xB9        ' no map
  62.     char[0xBA] = 0xA7
  63.     char[0xBB] = 0xAF
  64.     char[0xBC] = 0xAC
  65.     char[0xBD] = 0xAB
  66.     char[0xBE] = 0xBE        ' no map
  67.     char[0xBF] = 0xA8
  68. '
  69.     char[0xC0] = 0xC0        ' no map
  70.     char[0xC1] = 0xC1        ' no map
  71.     char[0xC2] = 0xC2        ' no map
  72.     char[0xC3] = 0xC3        ' no map
  73.     char[0xC4] = 0x8E
  74.     char[0xC5] = 0x8F
  75.     char[0xC6] = 0x92
  76.     char[0xC7] = 0x80
  77.     char[0xC8] = 0xC8        ' no map
  78.     char[0xC9] = 0x90
  79.     char[0xCA] = 0xCA        ' no map
  80.     char[0xCB] = 0xCB        ' no map
  81.     char[0xCC] = 0xCC        ' no map
  82.     char[0xCD] = 0xCD        ' no map
  83.     char[0xCE] = 0xCE        ' no map
  84.     char[0xCF] = 0xCF        ' no map
  85. '
  86.     char[0xD0] = 0xD0        ' no map
  87.     char[0xD1] = 0xA5
  88.     char[0xD2] = 0xD2        ' no map
  89.     char[0xD3] = 0xD3        ' no map
  90.     char[0xD4] = 0xD4        ' no map
  91.     char[0xD5] = 0xD5        ' no map
  92.     char[0xD6] = 0x99
  93.     char[0xD7] = 0xD7        ' no map
  94.     char[0xD8] = 0xD8        ' no map
  95.     char[0xD9] = 0xD9        ' no map
  96.     char[0xDA] = 0xDA        ' no map
  97.     char[0xDB] = 0xDB        ' no map
  98.     char[0xDC] = 0x9A
  99.     char[0xDD] = 0xDD        ' no map
  100.     char[0xDE] = 0xDE        ' no map
  101.     char[0xDF] = 0xE1
  102. '
  103.     char[0xE0] = 0x85
  104.     char[0xE1] = 0xA0
  105.     char[0xE2] = 0x83
  106.     char[0xE3] = 0xE3        ' no map
  107.     char[0xE4] = 0x84
  108.     char[0xE5] = 0x86
  109.     char[0xE6] = 0x91
  110.     char[0xE7] = 0x87
  111.     char[0xE8] = 0x8A
  112.     char[0xE9] = 0x82
  113.     char[0xEA] = 0x88
  114.     char[0xEB] = 0x89
  115.     char[0xEC] = 0x8D
  116.     char[0xED] = 0xA1
  117.     char[0xEE] = 0x8C
  118.     char[0xEF] = 0x8B
  119. '
  120.     char[0xF0] = 0xF0        ' no map
  121.     char[0xF1] = 0xA4
  122.     char[0xF2] = 0x95
  123.     char[0xF3] = 0xA2
  124.     char[0xF4] = 0x93
  125.     char[0xF5] = 0xF5        ' no map
  126.     char[0xF6] = 0x94
  127.     char[0xF7] = 0xF7        ' no map
  128.     char[0xF8] = 0xF8        ' no map
  129.     char[0xF9] = 0x97
  130.     char[0xFA] = 0xA3
  131.     char[0xFB] = 0x96
  132.     char[0xFC] = 0x81
  133.     char[0xFD] = 0xFD        ' no map
  134.     char[0xFE] = 0xFE        ' no map
  135.     char[0xFF] = 0xFF        ' no map
  136. '
  137.     file$ = "$XBDIR" + $$PathSlash$ + "xxx" + $$PathSlash$ + "f8514oem.map"
  138.     ofile = OPEN (file$, $$WRNEW)
  139.     IF (ofile > 2) THEN
  140.         WRITE [ofile], char[]
  141.         CLOSE (ofile)
  142.     END IF
  143. END FUNCTION
  144. END PROGRAM
  145.