10REM SAVE"$.Arabic.Util.Px2"
   20DIM Data 255
   30P%=Data
   40[OPT 2
   50.Px2
   60EQUB &0
   70EQUB &2
   80EQUB &1
   90EQUB &3
  100EQUB &8
  110EQUB &A
  120EQUB &9
  130EQUB &B
  140EQUB &4
  150EQUB &6
  160EQUB &5
  170EQUB &7
  180EQUB &C
  190EQUB &E
  200EQUB &D
  210EQUB &F
  220EQUB &20
  230EQUB &22
  240EQUB &21
  250EQUB &23
  260EQUB &28
  270EQUB &2A
  280EQUB &29
  290EQUB &2B
  300EQUB &24
  310EQUB &26
  320EQUB &25
  330EQUB &27
  340EQUB &2C
  350EQUB &2E
  360EQUB &2D
  370EQUB &2F
  380EQUB &10
  390EQUB &12
  400EQUB &11
  410EQUB &13
  420EQUB &18
  430EQUB &1A
  440EQUB &19
  450EQUB &1B
  460EQUB &14
  470EQUB &16
  480EQUB &15
  490EQUB &17
  500EQUB &1C
  510EQUB &1E
  520EQUB &1D
  530EQUB &1F
  540EQUB &30
  550EQUB &32
  560EQUB &31
  570EQUB &33
  580EQUB &38
  590EQUB &3A
  600EQUB &39
  610EQUB &3B
  620EQUB &34
  630EQUB &36
  640EQUB &35
  650EQUB &37
  660EQUB &3C
  670EQUB &3E
  680EQUB &3D
  690EQUB &3F
  700EQUB &80
  710EQUB &82
  720EQUB &81
  730EQUB &83
  740EQUB &88
  750EQUB &8A
  760EQUB &89
  770EQUB &8B
  780EQUB &84
  790EQUB &86
  800EQUB &85
  810EQUB &87
  820EQUB &8C
  830EQUB &8E
  840EQUB &8D
  850EQUB &8F
  860EQUB &A0
  870EQUB &A2
  880EQUB &A1
  890EQUB &A3
  900EQUB &A8
  910EQUB &AA
  920EQUB &A9
  930EQUB &AB
  940EQUB &A4
  950EQUB &A6
  960EQUB &A5
  970EQUB &A7
  980EQUB &AC
  990EQUB &AE
 1000EQUB &AD
 1010EQUB &AF
 1020EQUB &90
 1030EQUB &92
 1040EQUB &91
 1050EQUB &93
 1060EQUB &98
 1070EQUB &9A
 1080EQUB &99
 1090EQUB &9B
 1100EQUB &94
 1110EQUB &96
 1120EQUB &95
 1130EQUB &97
 1140EQUB &9C
 1150EQUB &9E
 1160EQUB &9D
 1170EQUB &9F
 1180EQUB &B0
 1190EQUB &B2
 1200EQUB &B1
 1210EQUB &B3
 1220EQUB &B8
 1230EQUB &BA
 1240EQUB &B9
 1250EQUB &BB
 1260EQUB &B4
 1270EQUB &B6
 1280EQUB &B5
 1290EQUB &B7
 1300EQUB &BC
 1310EQUB &BE
 1320EQUB &BD
 1330EQUB &BF
 1340EQUB &40
 1350EQUB &42
 1360EQUB &41
 1370EQUB &43
 1380EQUB &48
 1390EQUB &4A
 1400EQUB &49
 1410EQUB &4B
 1420EQUB &44
 1430EQUB &46
 1440EQUB &45
 1450EQUB &47
 1460EQUB &4C
 1470EQUB &4E
 1480EQUB &4D
 1490EQUB &4F
 1500EQUB &60
 1510EQUB &62
 1520EQUB &61
 1530EQUB &63
 1540EQUB &68
 1550EQUB &6A
 1560EQUB &69
 1570EQUB &6B
 1580EQUB &64
 1590EQUB &66
 1600EQUB &65
 1610EQUB &67
 1620EQUB &6C
 1630EQUB &6E
 1640EQUB &6D
 1650EQUB &6F
 1660EQUB &50
 1670EQUB &52
 1680EQUB &51
 1690EQUB &53
 1700EQUB &58
 1710EQUB &5A
 1720EQUB &59
 1730EQUB &5B
 1740EQUB &54
 1750EQUB &56
 1760EQUB &55
 1770EQUB &57
 1780EQUB &5C
 1790EQUB &5E
 1800EQUB &5D
 1810EQUB &5F
 1820EQUB &70
 1830EQUB &72
 1840EQUB &71
 1850EQUB &73
 1860EQUB &78
 1870EQUB &7A
 1880EQUB &79
 1890EQUB &7B
 1900EQUB &74
 1910EQUB &76
 1920EQUB &75
 1930EQUB &77
 1940EQUB &7C
 1950EQUB &7E
 1960EQUB &7D
 1970EQUB &7F
 1980EQUB &C0
 1990EQUB &C2
 2000EQUB &C1
 2010EQUB &C3
 2020EQUB &C8
 2030EQUB &CA
 2040EQUB &C9
 2050EQUB &CB
 2060EQUB &C4
 2070EQUB &C6
 2080EQUB &C5
 2090EQUB &C7
 2100EQUB &CC
 2110EQUB &CE
 2120EQUB &CD
 2130EQUB &CF
 2140EQUB &E0
 2150EQUB &E2
 2160EQUB &E1
 2170EQUB &E3
 2180EQUB &E8
 2190EQUB &EA
 2200EQUB &E9
 2210EQUB &EB
 2220EQUB &E4
 2230EQUB &E6
 2240EQUB &E5
 2250EQUB &E7
 2260EQUB &EC
 2270EQUB &EE
 2280EQUB &ED
 2290EQUB &EF
 2300EQUB &D0
 2310EQUB &D2
 2320EQUB &D1
 2330EQUB &D3
 2340EQUB &D8
 2350EQUB &DA
 2360EQUB &D9
 2370EQUB &DB
 2380EQUB &D4
 2390EQUB &D6
 2400EQUB &D5
 2410EQUB &D7
 2420EQUB &DC
 2430EQUB &DE
 2440EQUB &DD
 2450EQUB &DF
 2460EQUB &F0
 2470EQUB &F2
 2480EQUB &F1
 2490EQUB &F3
 2500EQUB &F8
 2510EQUB &FA
 2520EQUB &F9
 2530EQUB &FB
 2540EQUB &F4
 2550EQUB &F6
 2560EQUB &F5
 2570EQUB &F7
 2580EQUB &FC
 2590EQUB &FE
 2600EQUB &FD
 2610EQUB &FF
 2620.EndPlM2
 2630]
 2640OSCLI("SAVE $.Arabic.Object.Px2 "+STR$~(Data)+" +100 0 0")