10REM SAVE"$.Arabic.Util.Base012"
   20DIM Table 32*2
   30P%=Table
   40[OPT 2
   50.Mode0
   60.Mode1
   70.Mode2
   80\ Line 0:EQUW &3000
   90\ Line 1:EQUW &3280
  100\ Line 2:EQUW &3500
  110\ Line 3:EQUW &3780
  120\ Line 4:EQUW &3A00
  130\ Line 5:EQUW &3C80
  140\ Line 6:EQUW &3F00
  150\ Line 7:EQUW &4180
  160\ Line 8:EQUW &4400
  170\ Line 9:EQUW &4680
  180\ Line 10:EQUW &4900
  190\ Line 11:EQUW &4B80
  200\ Line 12:EQUW &4E00
  210\ Line 13:EQUW &5080
  220\ Line 14:EQUW &5300
  230\ Line 15:EQUW &5580
  240\ Line 16:EQUW &5800
  250\ Line 17:EQUW &5A80
  260\ Line 18:EQUW &5D00
  270\ Line 19:EQUW &5F80
  280\ Line 20:EQUW &6200
  290\ Line 21:EQUW &6480
  300\ Line 22:EQUW &6700
  310\ Line 23:EQUW &6980
  320\ Line 24:EQUW &6C00
  330\ Line 25:EQUW &6E80
  340\ Line 26:EQUW &7100
  350\ Line 27:EQUW &7380
  360\ Line 28:EQUW &7600
  370\ Line 29:EQUW &7880
  380\ Line 30:EQUW &7B00
  390\ Line 31:EQUW &7D80
  400.EndMode0
  410.EndMode1
  420.EndMode2
  430]
  440OSCLI("SAVE $.Arabic.Object.Mode012 "+STR$~(Table)+" "+STR$~(P%))