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