10REM SAVE"$.Arabic.Util.Base45"
   20DIM Table 32*2
   30P%=Table
   40[OPT 2
 1690.Mode4
 1700.Mode5
 1710\ Line 0:EQUW &5800
 1720\ Line 1:EQUW &5940
 1730\ Line 2:EQUW &5A80
 1740\ Line 3:EQUW &5BC0
 1750\ Line 4:EQUW &5D00
 1760\ Line 5:EQUW &5E40
 1770\ Line 6:EQUW &5F80
 1780\ Line 7:EQUW &60C0
 1790\ Line 8:EQUW &6200
 1800\ Line 9:EQUW &6340
 1810\ Line 10:EQUW &6480
 1820\ Line 11:EQUW &65C0
 1830\ Line 12:EQUW &6700
 1840\ Line 13:EQUW &6840
 1850\ Line 14:EQUW &6980
 1860\ Line 15:EQUW &6AC0
 1870\ Line 16:EQUW &6C00
 1880\ Line 17:EQUW &6D40
 1890\ Line 18:EQUW &6E80
 1900\ Line 19:EQUW &6FC0
 1910\ Line 20:EQUW &7100
 1920\ Line 21:EQUW &7240
 1930\ Line 22:EQUW &7380
 1940\ Line 23:EQUW &74C0
 1950\ Line 24:EQUW &7600
 1960\ Line 25:EQUW &7740
 1970\ Line 26:EQUW &7880
 1980\ Line 27:EQUW &79C0
 1990\ Line 28:EQUW &7B00
 2000\ Line 29:EQUW &7C40
 2010\ Line 30:EQUW &7D80
 2020\ Line 31:EQUW &7EC0
 2030.EndMode4
 2040.EndMode5
 3000]
 3010OSCLI("SAVE $.Arabic.Object.Mode45 "+STR$~(Table)+" "+STR$~(P%))