10REM SAVE"$.Arabic.Util.VDUTabs" 20DIM Start 5*128 30P%=Start 40[OPT 2 50.SATab 60 EQUB 128 \ First 32 entries are because Soft characters remain untouched 70 EQUB 129 80 EQUB 130 90 EQUB 131 100 EQUB 132 110 EQUB 133 120 EQUB 134 130 EQUB 135 140 EQUB 136 150 EQUB 137 160 EQUB 138 170 EQUB 139 180 EQUB 140 190 EQUB 141 200 EQUB 142 210 EQUB 143 220 EQUB 144 230 EQUB 145 240 EQUB 146 250 EQUB 147 260 EQUB 148 270 EQUB 149 280 EQUB 150 290 EQUB 151 300 EQUB 152 310 EQUB 153 320 EQUB 154 330 EQUB 155 340 EQUB 156 350 EQUB 157 360 EQUB 158 370 EQUB 159 380 EQUB 32 \ SATab?160 390 EQUB 255 \ SATab?161 400 EQUB 255 \ SATab?162 410 EQUB 255 \ SATab?163 420 EQUB 254 \ SATab?164 430 EQUB 255 \ SATab?165 440 EQUB 255 \ SATab?166 450 EQUB 255 \ SATab?167 460 EQUB 255 \ SATab?168 470 EQUB 255 \ SATab?169 480 EQUB 255 \ SATab?170 490 EQUB 255 \ SATab?171 500 EQUB 253 \ SATab?172 510 EQUB 252 \ SATab?173 520 EQUB 255 \ SATab?174 530 EQUB 255 \ SATab?175 540 EQUB 255 \ SATab?176 550 EQUB 255 \ SATab?177 560 EQUB 255 \ SATab?178 570 EQUB 255 \ SATab?179 580 EQUB 255 \ SATab?180 590 EQUB 255 \ SATab?181 600 EQUB 255 \ SATab?182 610 EQUB 255 \ SATab?183 620 EQUB 255 \ SATab?184 630 EQUB 255 \ SATab?185 640 EQUB 255 \ SATab?186 650 EQUB 251 \ SATab?187 660 EQUB 255 \ SATab?188 670 EQUB 255 \ SATab?189 680 EQUB 255 \ SATab?190 690 EQUB 250 \ SATab?191 700 EQUB 255 \ SATab?192 710 EQUB 249 \ SATab?193 720 EQUB 248 \ SATab?194 730 EQUB 247 \ SATab?195 740 EQUB 246 \ SATab?196 750 EQUB 245 \ SATab?197 760 EQUB 244 \ SATab?198 770 EQUB 243 \ SATab?199 780 EQUB 242 \ SATab?200 790 EQUB 241 \ SATab?201 800 EQUB 240 \ SATab?202 810 EQUB 239 \ SATab?203 820 EQUB 238 \ SATab?204 830 EQUB 237 \ SATab?205 840 EQUB 236 \ SATab?206 850 EQUB 235 \ SATab?207 860 EQUB 234 \ SATab?208 870 EQUB 233 \ SATab?209 880 EQUB 232 \ SATab?210 890 EQUB 231 \ SATab?211 900 EQUB 230 \ SATab?212 910 EQUB 229 \ SATab?213 920 EQUB 228 \ SATab?214 930 EQUB 227 \ SATab?215 940 EQUB 226 \ SATab?216 950 EQUB 225 \ SATab?217 960 EQUB 224 \ SATab?218 970 EQUB 255 \ SATab?219 980 EQUB 255 \ SATab?220 990 EQUB 255 \ SATab?221 1000 EQUB 255 \ SATab?222 1010 EQUB 255 \ SATab?223 1020 EQUB 223 \ SATab?224 1030 EQUB 222 \ SATab?225 1040 EQUB 221 \ SATab?226 1050 EQUB 220 \ SATab?227 1060 EQUB 219 \ SATab?228 1070 EQUB 218 \ SATab?229 1080 EQUB 217 \ SATab?230 1090 EQUB 216 \ SATab?231 1100 EQUB 215 \ SATab?232 1110 EQUB 214 \ SATab?233 1120 EQUB 213 \ SATab?234 1130 EQUB 212 \ SATab?235 1140 EQUB 211 \ SATab?236 1150 EQUB 210 \ SATab?237 1160 EQUB 209 \ SATab?238 1170 EQUB 208 \ SATab?239 1180 EQUB 207 \ SATab?240 1190 EQUB 206 \ SATab?241 1200 EQUB 205 \ SATab?242 1210 EQUB 255 \ SATab?243 1220 EQUB 255 \ SATab?244 1230 EQUB 255 \ SATab?245 1240 EQUB 255 \ SATab?246 1250 EQUB 255 \ SATab?247 1260 EQUB 255 \ SATab?248 1270 EQUB 255 \ SATab?249 1280 EQUB 255 \ SATab?250 1290 EQUB 255 \ SATab?251 1300 EQUB 255 \ SATab?252 1310 EQUB 255 \ SATab?253 1320 EQUB 255 \ SATab?254 1330 EQUB 255 \ SATab?255 1340.BegTab 1350 EQUB 128 1360 EQUB 129 1370 EQUB 130 1380 EQUB 131 1390 EQUB 132 1400 EQUB 133 1410 EQUB 134 1420 EQUB 135 1430 EQUB 136 1440 EQUB 137 1450 EQUB 138 1460 EQUB 139 1470 EQUB 140 1480 EQUB 141 1490 EQUB 142 1500 EQUB 143 1510 EQUB 144 1520 EQUB 145 1530 EQUB 146 1540 EQUB 147 1550 EQUB 148 1560 EQUB 149 1570 EQUB 150 1580 EQUB 151 1590 EQUB 152 1600 EQUB 153 1610 EQUB 154 1620 EQUB 155 1630 EQUB 156 1640 EQUB 157 1650 EQUB 158 1660 EQUB 159 1670 EQUB 32 \ BegTab?160 1680 EQUB 255 \ BegTab?161 1690 EQUB 255 \ BegTab?162 1700 EQUB 255 \ BegTab?163 1710 EQUB 254 \ BegTab?164 1720 EQUB 255 \ BegTab?165 1730 EQUB 255 \ BegTab?166 1740 EQUB 255 \ BegTab?167 1750 EQUB 255 \ BegTab?168 1760 EQUB 255 \ BegTab?169 1770 EQUB 255 \ BegTab?170 1780 EQUB 255 \ BegTab?171 1790 EQUB 253 \ BegTab?172 1800 EQUB 252 \ BegTab?173 1810 EQUB 255 \ BegTab?174 1820 EQUB 255 \ BegTab?175 1830 EQUB 255 \ BegTab?176 1840 EQUB 255 \ BegTab?177 1850 EQUB 255 \ BegTab?178 1860 EQUB 255 \ BegTab?179 1870 EQUB 255 \ BegTab?180 1880 EQUB 255 \ BegTab?181 1890 EQUB 255 \ BegTab?182 1900 EQUB 255 \ BegTab?183 1910 EQUB 255 \ BegTab?184 1920 EQUB 255 \ BegTab?185 1930 EQUB 255 \ BegTab?186 1940 EQUB 251 \ BegTab?187 1950 EQUB 255 \ BegTab?188 1960 EQUB 255 \ BegTab?189 1970 EQUB 255 \ BegTab?190 1980 EQUB 250 \ BegTab?191 1990 EQUB 255 \ BegTab?192 2000 EQUB 249 \ BegTab?193 2010 EQUB 248 \ BegTab?194 2020 EQUB 247 \ BegTab?195 2030 EQUB 246 \ BegTab?196 2040 EQUB 245 \ BegTab?197 2050 EQUB 244 \ BegTab?198 2060 EQUB 243 \ BegTab?199 2070 EQUB 204 \ BegTab?200 2080 EQUB 241 \ BegTab?201 2090 EQUB 203 \ BegTab?202 2100 EQUB 202 \ BegTab?203 2110 EQUB 201 \ BegTab?204 2120 EQUB 200 \ BegTab?205 2130 EQUB 199 \ BegTab?206 2140 EQUB 235 \ BegTab?207 2150 EQUB 234 \ BegTab?208 2160 EQUB 233 \ BegTab?209 2170 EQUB 232 \ BegTab?210 2180 EQUB 198 \ BegTab?211 2190 EQUB 197 \ BegTab?212 2200 EQUB 196 \ BegTab?213 2210 EQUB 195 \ BegTab?214 2220 EQUB 227 \ BegTab?215 2230 EQUB 226 \ BegTab?216 2240 EQUB 194 \ BegTab?217 2250 EQUB 193 \ BegTab?218 2260 EQUB 255 \ BegTab?219 2270 EQUB 255 \ BegTab?220 2280 EQUB 255 \ BegTab?221 2290 EQUB 255 \ BegTab?222 2300 EQUB 255 \ BegTab?223 2310 EQUB 223 \ BegTab?224 2320 EQUB 192 \ BegTAb?225 2330 EQUB 191 \ BegTab?226 2340 EQUB 190 \ BegTab?227 2350 EQUB 189 \ BegTab?228 2360 EQUB 188 \ BegTab?229 2370 EQUB 187 \ BegTab?230 2380 EQUB 216 \ BegTab?231 2390 EQUB 215 \ BegTab?232 2400 EQUB 214 \ BegTab?233 2410 EQUB 186 \ BegTab?234 2420 EQUB 212 \ BegTab?235 2430 EQUB 211 \ BegTab?236 2440 EQUB 210 \ BegTab?237 2450 EQUB 209 \ BegTab?238 2460 EQUB 208 \ BegTab?239 2470 EQUB 207 \ BegTab?240 2480 EQUB 206 \ BegTab?241 2490 EQUB 205 \ BegTab?242 2500 EQUB 255 \ BegTab?243 2510 EQUB 255 \ BegTab?244 2520 EQUB 255 \ BegTab?245 2530 EQUB 255 \ BegTab?246 2540 EQUB 255 \ BegTab?247 2550 EQUB 255 \ BegTab?248 2560 EQUB 255 \ BegTab?249 2570 EQUB 255 \ BegTab?250 2580 EQUB 255 \ BegTab?251 2590 EQUB 255 \ BegTab?252 2600 EQUB 255 \ BegTab?253 2610 EQUB 255 \ BegTab?254 2620 EQUB 255 \ BegTab?255 2630.MidTab 2640 EQUB 128 2650 EQUB 129 2660 EQUB 130 2670 EQUB 131 2680 EQUB 132 2690 EQUB 133 2700 EQUB 134 2710 EQUB 135 2720 EQUB 136 2730 EQUB 137 2740 EQUB 138 2750 EQUB 139 2760 EQUB 140 2770 EQUB 141 2780 EQUB 142 2790 EQUB 143 2800 EQUB 144 2810 EQUB 145 2820 EQUB 146 2830 EQUB 147 2840 EQUB 148 2850 EQUB 149 2860 EQUB 150 2870 EQUB 151 2880 EQUB 152 2890 EQUB 153 2900 EQUB 154 2910 EQUB 155 2920 EQUB 156 2930 EQUB 157 2940 EQUB 158 2950 EQUB 159 2960 EQUB 32 \ MidTab?160 2970 EQUB 255 \ MidTab?161 2980 EQUB 255 \ MidTab?162 2990 EQUB 255 \ MidTab?163 3000 EQUB 254 \ MidTab?164 3010 EQUB 255 \ MidTab?165 3020 EQUB 255 \ MidTab?166 3030 EQUB 255 \ MidTab?167 3040 EQUB 255 \ MidTab?168 3050 EQUB 255 \ MidTab?169 3060 EQUB 255 \ MidTab?170 3070 EQUB 255 \ MidTab?171 3080 EQUB 253 \ MidTab?172 3090 EQUB 252 \ MidTab?173 3100 EQUB 255 \ MidTab?174 3110 EQUB 255 \ MidTab?175 3120 EQUB 255 \ MidTab?176 3130 EQUB 255 \ MidTab?177 3140 EQUB 255 \ MidTab?178 3150 EQUB 255 \ MidTab?179 3160 EQUB 255 \ MidTab?180 3170 EQUB 255 \ MidTab?181 3180 EQUB 255 \ MidTab?182 3190 EQUB 255 \ MidTab?183 3200 EQUB 255 \ MidTab?184 3210 EQUB 255 \ MidTab?185 3220 EQUB 255 \ MidTab?186 3230 EQUB 251 \ MidTab?187 3240 EQUB 255 \ MidTab?188 3250 EQUB 255 \ MidTab?189 3260 EQUB 255 \ MidTab?190 3270 EQUB 250 \ MidTab?191 3280 EQUB 255 \ MidTab?192 3290 EQUB 249 \ MidTab?193 3300 EQUB 185 \ MidTab?194 3310 EQUB 184 \ MidTab?195 3320 EQUB 183 \ MidTab?196 3330 EQUB 182 \ MidTab?197 3340 EQUB 244 \ MidTab?198 3350 EQUB 181 \ MidTab?199 3360 EQUB 204 \ MidTab?200 3370 EQUB 241 \ MidTab?201 3380 EQUB 203 \ MidTab?202 3390 EQUB 202 \ MidTab?203 3400 EQUB 201 \ MidTab?204 3410 EQUB 200 \ MidTab?205 3420 EQUB 199 \ MidTab?206 3430 EQUB 235 \ MidTab?207 3440 EQUB 234 \ MidTab?208 3450 EQUB 233 \ MidTab?209 3460 EQUB 232 \ MidTab?210 3470 EQUB 198 \ MidTab?211 3480 EQUB 197 \ MidTab?212 3490 EQUB 196 \ MidTab?213 3500 EQUB 195 \ MidTab?214 3510 EQUB 227 \ MidTab?215 3520 EQUB 226 \ MidTab?216 3530 EQUB 180 \ MidTab?217 3540 EQUB 179 \ MidTab?218 3550 EQUB 255 \ MidTab?219 3560 EQUB 255 \ MidTab?220 3570 EQUB 255 \ MidTab?221 3580 EQUB 255 \ MidTab?222 3590 EQUB 255 \ MidTab?223 3600 EQUB 223 \ MidTab?224 3610 EQUB 192 \ MidTab?225 3620 EQUB 191 \ MidTab?226 3630 EQUB 190 \ MidTab?227 3640 EQUB 189 \ MidTab?228 3650 EQUB 188 \ MidTab?229 3660 EQUB 187 \ MidTab?230 3670 EQUB 216 \ MidTab?231 3680 EQUB 215 \ MidTab?232 3690 EQUB 214 \ MidTab?233 3700 EQUB 186 \ MidTab?234 3710 EQUB 212 \ MidTab?235 3720 EQUB 211 \ MidTab?236 3730 EQUB 210 \ MidTab?237 3740 EQUB 209 \ MidTab?238 3750 EQUB 208 \ MidTab?239 3760 EQUB 207 \ MidTab?240 3770 EQUB 206 \ MidTab?241 3780 EQUB 205 \ MidTab?242 3790 EQUB 255 \ MidTab?243 3800 EQUB 255 \ MidTab?244 3810 EQUB 255 \ MidTab?245 3820 EQUB 255 \ MidTab?246 3830 EQUB 255 \ MidTab?247 3840 EQUB 255 \ MidTab?248 3850 EQUB 255 \ MidTab?249 3860 EQUB 255 \ MidTab?250 3870 EQUB 255 \ MidTab?251 3880 EQUB 255 \ MidTab?252 3890 EQUB 255 \ MidTab?253 3900 EQUB 255 \ MidTab?254 3910 EQUB 255 \ MidTab?255 3920.EndTab 3930 EQUB 128 3940 EQUB 129 3950 EQUB 130 3960 EQUB 131 3970 EQUB 132 3980 EQUB 133 3990 EQUB 134 4000 EQUB 135 4010 EQUB 136 4020 EQUB 137 4030 EQUB 138 4040 EQUB 139 4050 EQUB 140 4060 EQUB 141 4070 EQUB 142 4080 EQUB 143 4090 EQUB 144 4100 EQUB 145 4110 EQUB 146 4120 EQUB 147 4130 EQUB 148 4140 EQUB 149 4150 EQUB 150 4160 EQUB 151 4170 EQUB 152 4180 EQUB 153 4190 EQUB 154 4200 EQUB 155 4210 EQUB 156 4220 EQUB 157 4230 EQUB 158 4240 EQUB 159 4250 EQUB 32 \ EndTab?160 4260 EQUB 255 \ EndTab?161 4270 EQUB 255 \ EndTab?162 4280 EQUB 255 \ EndTab?163 4290 EQUB 254 \ EndTab?164 4300 EQUB 255 \ EndTab?165 4310 EQUB 255 \ EndTab?166 4320 EQUB 255 \ EndTab?167 4330 EQUB 255 \ EndTab?168 4340 EQUB 255 \ EndTab?169 4350 EQUB 255 \ EndTab?170 4360 EQUB 255 \ EndTab?171 4370 EQUB 253 \ EndTab?172 4380 EQUB 252 \ EndTab?173 4390 EQUB 255 \ EndTab?174 4400 EQUB 255 \ EndTab?175 4410 EQUB 255 \ EndTab?176 4420 EQUB 255 \ EndTab?177 4430 EQUB 255 \ EndTab?178 4440 EQUB 255 \ EndTab?179 4450 EQUB 255 \ EndTab?180 4460 EQUB 255 \ EndTab?181 4470 EQUB 255 \ EndTab?182 4480 EQUB 255 \ EndTab?183 4490 EQUB 255 \ EndTab?184 4500 EQUB 255 \ EndTab?185 4510 EQUB 255 \ EndTab?186 4520 EQUB 251 \ EndTab?187 4530 EQUB 255 \ EndTab?188 4540 EQUB 255 \ EndTab?189 4550 EQUB 255 \ EndTab?190 4560 EQUB 250 \ EndTab?191 4570 EQUB 255 \ EndTab?192 4580 EQUB 249 \ EndTab?193 4590 EQUB 185 \ EndTab?194 4600 EQUB 184 \ EndTab?195 4610 EQUB 183 \ EndTab?196 4620 EQUB 182 \ EndTab?197 4630 EQUB 244 \ EndTab?198 4640 EQUB 181 \ EndTab?199 4650 EQUB 242 \ EndTab?200 4660 EQUB 241 \ EndTab?201 4670 EQUB 240 \ EndTab?202 4680 EQUB 239 \ EndTab?203 4690 EQUB 238 \ EndTab?204 4700 EQUB 237 \ EndTab?205 4710 EQUB 236 \ EndTab?206 4720 EQUB 235 \ EndTab?207 4730 EQUB 234 \ EndTab?208 4740 EQUB 233 \ EndTab?209 4750 EQUB 232 \ EndTab?210 4760 EQUB 231 \ EndTab?211 4770 EQUB 230 \ EndTab?212 4780 EQUB 229 \ EndTab?213 4790 EQUB 228 \ EndTab?214 4800 EQUB 227 \ EndTab?215 4810 EQUB 226 \ EndTab?216 4820 EQUB 178 \ EndTab?217 4830 EQUB 177 \ EndTab?218 4840 EQUB 255 \ EndTab?219 4850 EQUB 255 \ EndTab?220 4860 EQUB 255 \ EndTab?221 4870 EQUB 255 \ EndTab?222 4880 EQUB 255 \ EndTab?223 4890 EQUB 223 \ EndTab?224 4900 EQUB 222 \ EndTab?225 4910 EQUB 221 \ EndTab?226 4920 EQUB 220 \ EndTab?227 4930 EQUB 219 \ EndTab?228 4940 EQUB 218 \ EndTab?229 4950 EQUB 217 \ EndTab?230 4960 EQUB 176 \ EndTab?231 4970 EQUB 215 \ EndTab?232 4980 EQUB 214 \ EndTab?233 4990 EQUB 213 \ EndTab?234 5000 EQUB 212 \ EndTab?235 5010 EQUB 211 \ EndTab?236 5020 EQUB 210 \ EndTab?237 5030 EQUB 209 \ EndTab?238 5040 EQUB 208 \ EndTab?239 5050 EQUB 207 \ EndTab?240 5060 EQUB 206 \ EndTab?241 5070 EQUB 205 \ EndTab?242 5080 EQUB 255 \ EndTab?243 5090 EQUB 255 \ EndTab?244 5100 EQUB 255 \ EndTab?245 5110 EQUB 255 \ EndTab?246 5120 EQUB 255 \ EndTab?247 5130 EQUB 255 \ EndTab?248 5140 EQUB 255 \ EndTab?249 5150 EQUB 255 \ EndTab?250 5160 EQUB 255 \ EndTab?251 5170 EQUB 255 \ EndTab?252 5180 EQUB 255 \ EndTab?253 5190 EQUB 255 \ EndTab?254 5200 EQUB 255 \ EndTab?255 5210.Reverse 5220 EQUB 128 5230 EQUB 129 5240 EQUB 130 5250 EQUB 131 5260 EQUB 132 5270 EQUB 133 5280 EQUB 134 5290 EQUB 135 5300 EQUB 136 5310 EQUB 137 5320 EQUB 138 5330 EQUB 139 5340 EQUB 140 5350 EQUB 141 5360 EQUB 142 5370 EQUB 143 5380 EQUB 144 5390 EQUB 145 5400 EQUB 146 5410 EQUB 147 5420 EQUB 148 5430 EQUB 149 5440 EQUB 150 5450 EQUB 151 5460 EQUB 152 5470 EQUB 153 5480 EQUB 154 5490 EQUB 155 5500 EQUB 156 5510 EQUB 157 5520 EQUB 158 5530 EQUB 159 5540 EQUB 255 \ Reverse?160 5550 EQUB 255 \ Reverse?161 5560 EQUB 255 \ Reverse?162 5570 EQUB 255 \ Reverse?163 5580 EQUB 255 \ Reverse?164 5590 EQUB 255 \ Reverse?165 5600 EQUB 255 \ Reverse?166 5610 EQUB 255 \ Reverse?167 5620 EQUB 255 \ Reverse?168 5630 EQUB 255 \ Reverse?169 5640 EQUB 255 \ Reverse?170 5650 EQUB 255 \ Reverse?171 5660 EQUB 255 \ Reverse?172 5670 EQUB 255 \ Reverse?173 5680 EQUB 255 \ Reverse?174 5690 EQUB 255 \ Reverse?175 5700 EQUB 231 \ Reverse?176 5710 EQUB 218 \ Reverse?177 5720 EQUB 217 \ Reverse?178 5730 EQUB 218 \ Reverse?179 5740 EQUB 217 \ Reverse?180 5750 EQUB 199 \ Reverse?181 5760 EQUB 197 \ Reverse?182 5770 EQUB 196 \ Reverse?183 5780 EQUB 195 \ Reverse?184 5790 EQUB 194 \ Reverse?185 5800 EQUB 234 \ Reverse?186 5810 EQUB 230 \ Reverse?187 5820 EQUB 229 \ Reverse?188 5830 EQUB 228 \ Reverse?189 5840 EQUB 227 \ Reverse?190 5850 EQUB 226 \ Reverse?191 5860 EQUB 225 \ Reverse?192 5870 EQUB 218 \ Reverse?193 5880 EQUB 217 \ Reverse?194 5890 EQUB 214 \ Reverse?195 5900 EQUB 213 \ Reverse?196 5910 EQUB 212 \ Reverse?197 5920 EQUB 211 \ Reverse?198 5930 EQUB 206 \ Reverse?199 5940 EQUB 205 \ Reverse?200 5950 EQUB 204 \ Reverse?201 5960 EQUB 203 \ Reverse?202 5970 EQUB 202 \ Reverse?203 5980 EQUB 200 \ Reverse?204 5990 EQUB 242 \ Reverse?205 6000 EQUB 241 \ Reverse?206 6010 EQUB 240 \ Reverse?207 6020 EQUB 239 \ Reverse?208 6030 EQUB 238 \ Reverse?209 6040 EQUB 237 \ Reverse?210 6050 EQUB 236 \ Reverse?211 6060 EQUB 235 \ Reverse?212 6070 EQUB 234 \ Reverse?213 6080 EQUB 233 \ Reverse?214 6090 EQUB 232 \ Reverse?215 6100 EQUB 231 \ Reverse?216 6110 EQUB 230 \ Reverse?217 6120 EQUB 229 \ Reverse?218 6130 EQUB 228 \ Reverse?219 6140 EQUB 227 \ Reverse?220 6150 EQUB 226 \ Reverse?221 6160 EQUB 225 \ Reverse?222 6170 EQUB 224 \ Reverse?223 6180 EQUB 218 \ Reverse?224 6190 EQUB 217 \ Reverse?225 6200 EQUB 216 \ Reverse?226 6210 EQUB 215 \ Reverse?227 6220 EQUB 214 \ Reverse?228 6230 EQUB 213 \ Reverse?229 6240 EQUB 212 \ Reverse?230 6250 EQUB 211 \ Reverse?231 6260 EQUB 210 \ Reverse?232 6270 EQUB 209 \ Reverse?233 6280 EQUB 208 \ Reverse?234 6290 EQUB 207 \ Reverse?235 6300 EQUB 206 \ Reverse?236 6310 EQUB 205 \ Reverse?237 6320 EQUB 204 \ Reverse?238 6330 EQUB 203 \ Reverse?239 6340 EQUB 202 \ Reverse?240 6350 EQUB 201 \ Reverse?241 6360 EQUB 200 \ Reverse?242 6370 EQUB 199 \ Reverse?243 6380 EQUB 198 \ Reverse?244 6390 EQUB 197 \ Reverse?245 6400 EQUB 196 \ Reverse?246 6410 EQUB 195 \ Reverse?247 6420 EQUB 194 \ Reverse?248 6430 EQUB 193 \ Reverse?249 6440 EQUB 191 \ Reverse?250 6450 EQUB 187 \ Reverse?251 6460 EQUB 173 \ Reverse?252 6470 EQUB 172 \ Reverse?253 6480 EQUB 164 \ Reverse?254 6490 EQUB 161 \ Reverse?255 6500] 6510PROCSave("SATab") 6520PROCSave("BegTab") 6530PROCSave("MidTab") 6540PROCSave("EndTab") 6550PROCSave("Reverse") 6560END 6570DEFPROCSave(TabName$) 6580OSCLI("SAVE $.Arabic.Object."+TabName$+" "+STR$~(EVAL(TabName$))+" +80") 6590ENDPROC