   10REM SAVE"$.Arabic.Util.TypeTab"
   20x=0:v=&40:c=&80
   30DIM TypeTab 255
   40FOR I=0 TO 255:TypeTab?I=x:NEXT
   50PROCArabISO
   60PROCDefine(TypeTab)
   70OSCLI("Save $.Arabic.Object.TypeTab "+STR$~(TypeTab)+" +100")
   80END
   90DEFPROCArabISO
  100NoBrkSpace = 160
  110Currency   = 164
  120ArabComma  = 172
  130SoftHyphen = 173
  140ArabSemi   = 187
  150ArabQuery  = 191
  160Hamza      = 193
  170MaddaOnAlef = 194
  180HamzaOnAlef = 195
  190HamzaOnWaw  = 196
  200HamzaUnderAlef = 197
  210HamzaOnYeh     = 198
  220Alef        = 199
  230Beh         = 200
  240TehMarbutta = 201
  250Teh         = 202
  260Theh        = 203
  270Jeem        = 204
  280Hah         = 205
  290Khah        = 206
  300Dal         = 207
  310Thal        = 208
  320Ra          = 209
  330Zain        = 210
  340Seen        = 211
  350Sheen       = 212
  360Sad         = 213
  370Dad         = 214
  380Tah         = 215
  390Zah         = 216
  400Ain         = 217
  410Ghain       = 218
  420Tatweel     = 224
  430Feh         = 225
  440Qaf         = 226
  450Kaf         = 227
  460Lam         = 228
  470Meem        = 229
  480Noon        = 230
  490Heh         = 231
  500Waw         = 232
  510AlefMaksura = 233
  520Yeh         = 234
  530Fathatan    = 235
  540Dammatan    = 236
  550Kasratan    = 237
  560Fatha       = 238
  570Damma       = 239
  580Kasra       = 240
  590Shadda      = 241
  600Sukun       = 242
  610ENDPROC
  620END:REM B.GenTab
  630DEFPROCDefine(Tab)
  640Tab?NoBrkSpace  = x
  650Tab?Currency    = x
  660Tab?ArabComma   = x
  670Tab?SoftHyphen  = x
  680Tab?ArabSemi    = x
  690Tab?ArabQuery   = x
  700Tab?Hamza       = v
  710Tab?MaddaOnAlef = v
  720Tab?HamzaOnAlef = v
  730Tab?HamzaOnWaw  = v
  740Tab?HamzaUnderAlef = v
  750Tab?HamzaOnYeh  = v
  760Tab?Alef        = v
  770Tab?Beh         = c
  780Tab?TehMarbutta = c
  790Tab?Teh         = c
  800Tab?Theh        = c
  810Tab?Jeem        = c
  820Tab?Hah         = c
  830Tab?Khah        = c
  840Tab?Dal         = c
  850Tab?Thal        = c
  860Tab?Ra          = c
  870Tab?Zain        = c
  880Tab?Seen        = c
  890Tab?Sheen       = c
  900Tab?Sad         = c
  910Tab?Dad         = c
  920Tab?Tah         = c
  930Tab?Zah         = c
  940Tab?Ain         = c
  950Tab?Ghain       = c
  960Tab?Tatweel     = c
  970Tab?Feh         = c
  980Tab?Qaf         = c
  990Tab?Kaf         = c
 1000Tab?Lam         = c
 1010Tab?Meem        = c
 1020Tab?Noon        = c
 1030Tab?Heh         = c
 1040Tab?Waw         = v
 1050Tab?AlefMaksura = v
 1060Tab?Yeh         = c
 1070Tab?Fathatan    = c
 1080Tab?Dammatan    = c
 1090Tab?Kasratan    = c
 1100Tab?Fatha       = c
 1110Tab?Damma       = c
 1120Tab?Kasra       = c
 1130Tab?Shadda      = c
 1140Tab?Sukun       = c
 1150ENDPROC
