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