10REM SAVE"$.Arabic.Util.Base3"
   20DIM Table 128*2
   30P%=Table
   40[OPT 2
   50.Mode3
   60\ Line 0:EQUW &4000
   70\ Line 1:EQUW &4280
   80\ Line 2:EQUW &4500
   90\ Line 3:EQUW &4780
  100\ Line 4:EQUW &4A00
  110\ Line 5:EQUW &4C80
  120\ Line 6:EQUW &4F00
  130\ Line 7:EQUW &5180
  140\ Line 8:EQUW &5400
  150\ Line 9:EQUW &5680
  160\ Line 10:EQUW &5900
  170\ Line 11:EQUW &5B80
  180\ Line 12:EQUW &5E00
  190\ Line 13:EQUW &6080
  200\ Line 14:EQUW &6300
  210\ Line 15:EQUW &6580
  220\ Line 16:EQUW &6800
  230\ Line 17:EQUW &6A80
  240\ Line 18:EQUW &6D00
  250\ Line 19:EQUW &6F80
  260\ Line 20:EQUW &7200
  270\ Line 21:EQUW &7480
  280\ Line 22:EQUW &7700
  290\ Line 23:EQUW &7980
  300\ Line 24:EQUW &7C00
  310\ Line 25:EQUW &7E80
  320\ Line 26:EQUW &4100
  330\ Line 27:EQUW &4380
  340\ Line 28:EQUW &4600
  350\ Line 29:EQUW &4880
  360\ Line 30:EQUW &4B00
  370\ Line 31:EQUW &4D80
  380\ Line 32:EQUW &5000
  390\ Line 33:EQUW &5280
  400\ Line 34:EQUW &5500
  410\ Line 35:EQUW &5780
  420\ Line 36:EQUW &5A00
  430\ Line 37:EQUW &5C80
  440\ Line 38:EQUW &5F00
  450\ Line 39:EQUW &6180
  460\ Line 40:EQUW &6400
  470\ Line 41:EQUW &6680
  480\ Line 42:EQUW &6900
  490\ Line 43:EQUW &6B80
  500\ Line 44:EQUW &6E00
  510\ Line 45:EQUW &7080
  520\ Line 46:EQUW &7300
  530\ Line 47:EQUW &7580
  540\ Line 48:EQUW &7800
  550\ Line 49:EQUW &7A80
  560\ Line 50:EQUW &7D00
  570\ Line 51:EQUW &7F80
  580\ Line 52:EQUW &4200
  590\ Line 53:EQUW &4480
  600\ Line 54:EQUW &4700
  610\ Line 55:EQUW &4980
  620\ Line 56:EQUW &4C00
  630\ Line 57:EQUW &4E80
  640\ Line 58:EQUW &5100
  650\ Line 59:EQUW &5380
  660\ Line 60:EQUW &5600
  670\ Line 61:EQUW &5880
  680\ Line 62:EQUW &5B00
  690\ Line 63:EQUW &5D80
  700\ Line 64:EQUW &6000
  710\ Line 65:EQUW &6280
  720\ Line 66:EQUW &6500
  730\ Line 67:EQUW &6780
  740\ Line 68:EQUW &6A00
  750\ Line 69:EQUW &6C80
  760\ Line 70:EQUW &6F00
  770\ Line 71:EQUW &7180
  780\ Line 72:EQUW &7400
  790\ Line 73:EQUW &7680
  800\ Line 74:EQUW &7900
  810\ Line 75:EQUW &7B80
  820\ Line 76:EQUW &7E00
  830\ Line 77:EQUW &4080
  840\ Line 78:EQUW &4300
  850\ Line 79:EQUW &4580
  860\ Line 80:EQUW &4800
  870\ Line 81:EQUW &4A80
  880\ Line 82:EQUW &4D00
  890\ Line 83:EQUW &4F80
  900\ Line 84:EQUW &5200
  910\ Line 85:EQUW &5480
  920\ Line 86:EQUW &5700
  930\ Line 87:EQUW &5980
  940\ Line 88:EQUW &5C00
  950\ Line 89:EQUW &5E80
  960\ Line 90:EQUW &6100
  970\ Line 91:EQUW &6380
  980\ Line 92:EQUW &6600
  990\ Line 93:EQUW &6880
 1000\ Line 94:EQUW &6B00
 1010\ Line 95:EQUW &6D80
 1020\ Line 96:EQUW &7000
 1030\ Line 97:EQUW &7280
 1040\ Line 98:EQUW &7500
 1050\ Line 99:EQUW &7780
 1060\ Line 100:EQUW &7A00
 1070\ Line 101:EQUW &7C80
 1080\ Line 102:EQUW &7F00
 1090\ Line 103:EQUW &4180
 1100\ Line 104:EQUW &4400
 1110\ Line 105:EQUW &4680
 1120\ Line 106:EQUW &4900
 1130\ Line 107:EQUW &4B80
 1140\ Line 108:EQUW &4E00
 1150\ Line 109:EQUW &5080
 1160\ Line 110:EQUW &5300
 1170\ Line 111:EQUW &5580
 1180\ Line 112:EQUW &5800
 1190\ Line 113:EQUW &5A80
 1200\ Line 114:EQUW &5D00
 1210\ Line 115:EQUW &5F80
 1220\ Line 116:EQUW &6200
 1230\ Line 117:EQUW &6480
 1240\ Line 118:EQUW &6700
 1250\ Line 119:EQUW &6980
 1260\ Line 120:EQUW &6C00
 1270\ Line 121:EQUW &6E80
 1280\ Line 122:EQUW &7100
 1290\ Line 123:EQUW &7380
 1300\ Line 124:EQUW &7600
 1310\ Line 125:EQUW &7880
 1320\ Line 126:EQUW &7B00
 1330\ Line 127:EQUW &7D80
 1340.EndMode3
 1350]
 1360OSCLI("SAVE $.Arabic.Object.Mode3 "+STR$~(Table)+" "+STR$~(P%))