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