@ECHO OFF
REM ====================================================================
REM Ray tracing for different source-receiver configurations (MS-DOS)
REM (for all 389 sources remove command GOTO :END below)
REM ====================================================================
REM Deleting old recording of the screen output:
IF EXIST elf1ascr.out DEL elf1ascr.out
REM  Measuring time elapsed:
ECHO.|TIME >elf1atim.out
REM --------------------------------------------------------------------
CALL srpcrt elf1a 001
     GOTO :END
CALL srpcrt elf1a 002
CALL srpcrt elf1a 003
CALL srpcrt elf1a 004
CALL srpcrt elf1a 005
CALL srpcrt elf1a 006
CALL srpcrt elf1a 007
CALL srpcrt elf1a 008
CALL srpcrt elf1a 009
CALL srpcrt elf1a 010
CALL srpcrt elf1a 011
CALL srpcrt elf1a 012
CALL srpcrt elf1a 013
CALL srpcrt elf1a 014
CALL srpcrt elf1a 015
CALL srpcrt elf1a 016
CALL srpcrt elf1a 017
CALL srpcrt elf1a 018
CALL srpcrt elf1a 019
CALL srpcrt elf1a 020
CALL srpcrt elf1a 021
CALL srpcrt elf1a 022
CALL srpcrt elf1a 023
CALL srpcrt elf1a 024
CALL srpcrt elf1a 025
CALL srpcrt elf1a 026
CALL srpcrt elf1a 027
CALL srpcrt elf1a 028
CALL srpcrt elf1a 029
CALL srpcrt elf1a 030
CALL srpcrt elf1a 031
CALL srpcrt elf1a 032
CALL srpcrt elf1a 033
CALL srpcrt elf1a 034
CALL srpcrt elf1a 035
CALL srpcrt elf1a 036
CALL srpcrt elf1a 037
CALL srpcrt elf1a 038
CALL srpcrt elf1a 039
CALL srpcrt elf1a 040
CALL srpcrt elf1a 041
CALL srpcrt elf1a 042
CALL srpcrt elf1a 043
CALL srpcrt elf1a 044
CALL srpcrt elf1a 045
CALL srpcrt elf1a 046
CALL srpcrt elf1a 047
CALL srpcrt elf1a 048
CALL srpcrt elf1a 049
CALL srpcrt elf1a 050
CALL srpcrt elf1a 051
CALL srpcrt elf1a 052
CALL srpcrt elf1a 053
CALL srpcrt elf1a 054
CALL srpcrt elf1a 055
CALL srpcrt elf1a 056
CALL srpcrt elf1a 057
CALL srpcrt elf1a 058
CALL srpcrt elf1a 059
CALL srpcrt elf1a 060
CALL srpcrt elf1a 061
CALL srpcrt elf1a 062
CALL srpcrt elf1a 063
CALL srpcrt elf1a 064
CALL srpcrt elf1a 065
CALL srpcrt elf1a 066
CALL srpcrt elf1a 067
CALL srpcrt elf1a 068
CALL srpcrt elf1a 069
CALL srpcrt elf1a 070
CALL srpcrt elf1a 071
CALL srpcrt elf1a 072
CALL srpcrt elf1a 073
CALL srpcrt elf1a 074
CALL srpcrt elf1a 075
CALL srpcrt elf1a 076
CALL srpcrt elf1a 077
CALL srpcrt elf1a 078
CALL srpcrt elf1a 079
CALL srpcrt elf1a 080
CALL srpcrt elf1a 081
CALL srpcrt elf1a 082
CALL srpcrt elf1a 083
CALL srpcrt elf1a 084
CALL srpcrt elf1a 085
CALL srpcrt elf1a 086
CALL srpcrt elf1a 087
CALL srpcrt elf1a 088
CALL srpcrt elf1a 089
CALL srpcrt elf1a 090
CALL srpcrt elf1a 091
CALL srpcrt elf1a 092
CALL srpcrt elf1a 093
CALL srpcrt elf1a 094
CALL srpcrt elf1a 095
CALL srpcrt elf1a 096
CALL srpcrt elf1a 097
CALL srpcrt elf1a 098
CALL srpcrt elf1a 099
CALL srpcrt elf1a 100
CALL srpcrt elf1a 101
CALL srpcrt elf1a 102
CALL srpcrt elf1a 103
CALL srpcrt elf1a 104
CALL srpcrt elf1a 105
CALL srpcrt elf1a 106
CALL srpcrt elf1a 107
CALL srpcrt elf1a 108
CALL srpcrt elf1a 109
CALL srpcrt elf1a 110
CALL srpcrt elf1a 111
CALL srpcrt elf1a 112
CALL srpcrt elf1a 113
CALL srpcrt elf1a 114
CALL srpcrt elf1a 115
CALL srpcrt elf1a 116
CALL srpcrt elf1a 117
CALL srpcrt elf1a 118
CALL srpcrt elf1a 119
CALL srpcrt elf1a 120
CALL srpcrt elf1a 121
CALL srpcrt elf1a 122
CALL srpcrt elf1a 123
CALL srpcrt elf1a 124
CALL srpcrt elf1a 125
CALL srpcrt elf1a 126
CALL srpcrt elf1a 127
CALL srpcrt elf1a 128
CALL srpcrt elf1a 129
CALL srpcrt elf1a 130
CALL srpcrt elf1a 131
CALL srpcrt elf1a 132
CALL srpcrt elf1a 133
CALL srpcrt elf1a 134
CALL srpcrt elf1a 135
CALL srpcrt elf1a 136
CALL srpcrt elf1a 137
CALL srpcrt elf1a 138
CALL srpcrt elf1a 139
CALL srpcrt elf1a 140
CALL srpcrt elf1a 141
CALL srpcrt elf1a 142
CALL srpcrt elf1a 143
CALL srpcrt elf1a 144
CALL srpcrt elf1a 145
CALL srpcrt elf1a 146
CALL srpcrt elf1a 147
CALL srpcrt elf1a 148
CALL srpcrt elf1a 149
CALL srpcrt elf1a 150
CALL srpcrt elf1a 151
CALL srpcrt elf1a 152
CALL srpcrt elf1a 153
CALL srpcrt elf1a 154
CALL srpcrt elf1a 155
CALL srpcrt elf1a 156
CALL srpcrt elf1a 157
CALL srpcrt elf1a 158
CALL srpcrt elf1a 159
CALL srpcrt elf1a 160
CALL srpcrt elf1a 161
CALL srpcrt elf1a 162
CALL srpcrt elf1a 163
CALL srpcrt elf1a 164
CALL srpcrt elf1a 165
CALL srpcrt elf1a 166
CALL srpcrt elf1a 167
CALL srpcrt elf1a 168
CALL srpcrt elf1a 169
CALL srpcrt elf1a 170
CALL srpcrt elf1a 171
CALL srpcrt elf1a 172
CALL srpcrt elf1a 173
CALL srpcrt elf1a 174
CALL srpcrt elf1a 175
CALL srpcrt elf1a 176
CALL srpcrt elf1a 177
CALL srpcrt elf1a 178
CALL srpcrt elf1a 179
CALL srpcrt elf1a 180
CALL srpcrt elf1a 181
CALL srpcrt elf1a 182
CALL srpcrt elf1a 183
CALL srpcrt elf1a 184
CALL srpcrt elf1a 185
CALL srpcrt elf1a 186
CALL srpcrt elf1a 187
CALL srpcrt elf1a 188
CALL srpcrt elf1a 189
CALL srpcrt elf1a 190
CALL srpcrt elf1a 191
CALL srpcrt elf1a 192
CALL srpcrt elf1a 193
CALL srpcrt elf1a 194
CALL srpcrt elf1a 195
CALL srpcrt elf1a 196
CALL srpcrt elf1a 197
CALL srpcrt elf1a 198
CALL srpcrt elf1a 199
CALL srpcrt elf1a 200
CALL srpcrt elf1a 201
CALL srpcrt elf1a 202
CALL srpcrt elf1a 203
CALL srpcrt elf1a 204
CALL srpcrt elf1a 205
CALL srpcrt elf1a 206
CALL srpcrt elf1a 207
CALL srpcrt elf1a 208
CALL srpcrt elf1a 209
CALL srpcrt elf1a 210
CALL srpcrt elf1a 211
CALL srpcrt elf1a 212
CALL srpcrt elf1a 213
CALL srpcrt elf1a 214
CALL srpcrt elf1a 215
CALL srpcrt elf1a 216
CALL srpcrt elf1a 217
CALL srpcrt elf1a 218
CALL srpcrt elf1a 219
CALL srpcrt elf1a 220
CALL srpcrt elf1a 221
CALL srpcrt elf1a 222
CALL srpcrt elf1a 223
CALL srpcrt elf1a 224
CALL srpcrt elf1a 225
CALL srpcrt elf1a 226
CALL srpcrt elf1a 227
CALL srpcrt elf1a 228
CALL srpcrt elf1a 229
CALL srpcrt elf1a 230
CALL srpcrt elf1a 231
CALL srpcrt elf1a 232
CALL srpcrt elf1a 233
CALL srpcrt elf1a 234
CALL srpcrt elf1a 235
CALL srpcrt elf1a 236
CALL srpcrt elf1a 237
CALL srpcrt elf1a 238
CALL srpcrt elf1a 239
CALL srpcrt elf1a 240
CALL srpcrt elf1a 241
CALL srpcrt elf1a 242
CALL srpcrt elf1a 243
CALL srpcrt elf1a 244
CALL srpcrt elf1a 245
CALL srpcrt elf1a 246
CALL srpcrt elf1a 247
CALL srpcrt elf1a 248
CALL srpcrt elf1a 249
CALL srpcrt elf1a 250
CALL srpcrt elf1a 251
CALL srpcrt elf1a 252
CALL srpcrt elf1a 253
CALL srpcrt elf1a 254
CALL srpcrt elf1a 255
CALL srpcrt elf1a 256
CALL srpcrt elf1a 257
CALL srpcrt elf1a 258
CALL srpcrt elf1a 259
CALL srpcrt elf1a 260
CALL srpcrt elf1a 261
CALL srpcrt elf1a 262
CALL srpcrt elf1a 263
CALL srpcrt elf1a 264
CALL srpcrt elf1a 265
CALL srpcrt elf1a 266
CALL srpcrt elf1a 267
CALL srpcrt elf1a 268
CALL srpcrt elf1a 269
CALL srpcrt elf1a 270
CALL srpcrt elf1a 271
CALL srpcrt elf1a 272
CALL srpcrt elf1a 273
CALL srpcrt elf1a 274
CALL srpcrt elf1a 275
CALL srpcrt elf1a 276
CALL srpcrt elf1a 277
CALL srpcrt elf1a 278
CALL srpcrt elf1a 279
CALL srpcrt elf1a 280
CALL srpcrt elf1a 281
CALL srpcrt elf1a 282
CALL srpcrt elf1a 283
CALL srpcrt elf1a 284
CALL srpcrt elf1a 285
CALL srpcrt elf1a 286
CALL srpcrt elf1a 287
CALL srpcrt elf1a 288
CALL srpcrt elf1a 289
CALL srpcrt elf1a 290
CALL srpcrt elf1a 291
CALL srpcrt elf1a 292
CALL srpcrt elf1a 293
CALL srpcrt elf1a 294
CALL srpcrt elf1a 295
CALL srpcrt elf1a 296
CALL srpcrt elf1a 297
CALL srpcrt elf1a 298
CALL srpcrt elf1a 299
CALL srpcrt elf1a 300
CALL srpcrt elf1a 301
CALL srpcrt elf1a 302
CALL srpcrt elf1a 303
CALL srpcrt elf1a 304
CALL srpcrt elf1a 305
CALL srpcrt elf1a 306
CALL srpcrt elf1a 307
CALL srpcrt elf1a 308
CALL srpcrt elf1a 309
CALL srpcrt elf1a 310
CALL srpcrt elf1a 311
CALL srpcrt elf1a 312
CALL srpcrt elf1a 313
CALL srpcrt elf1a 314
CALL srpcrt elf1a 315
CALL srpcrt elf1a 316
CALL srpcrt elf1a 317
CALL srpcrt elf1a 318
CALL srpcrt elf1a 319
CALL srpcrt elf1a 320
CALL srpcrt elf1a 321
CALL srpcrt elf1a 322
CALL srpcrt elf1a 323
CALL srpcrt elf1a 324
CALL srpcrt elf1a 325
CALL srpcrt elf1a 326
CALL srpcrt elf1a 327
CALL srpcrt elf1a 328
CALL srpcrt elf1a 329
CALL srpcrt elf1a 330
CALL srpcrt elf1a 331
CALL srpcrt elf1a 332
CALL srpcrt elf1a 333
CALL srpcrt elf1a 334
CALL srpcrt elf1a 335
CALL srpcrt elf1a 336
CALL srpcrt elf1a 337
CALL srpcrt elf1a 338
CALL srpcrt elf1a 339
CALL srpcrt elf1a 340
CALL srpcrt elf1a 341
CALL srpcrt elf1a 342
CALL srpcrt elf1a 343
CALL srpcrt elf1a 344
CALL srpcrt elf1a 345
CALL srpcrt elf1a 346
CALL srpcrt elf1a 347
CALL srpcrt elf1a 348
CALL srpcrt elf1a 349
CALL srpcrt elf1a 350
CALL srpcrt elf1a 351
CALL srpcrt elf1a 352
CALL srpcrt elf1a 353
CALL srpcrt elf1a 354
CALL srpcrt elf1a 355
CALL srpcrt elf1a 356
CALL srpcrt elf1a 357
CALL srpcrt elf1a 358
CALL srpcrt elf1a 359
CALL srpcrt elf1a 360
CALL srpcrt elf1a 361
CALL srpcrt elf1a 362
CALL srpcrt elf1a 363
CALL srpcrt elf1a 364
CALL srpcrt elf1a 365
CALL srpcrt elf1a 366
CALL srpcrt elf1a 367
CALL srpcrt elf1a 368
CALL srpcrt elf1a 369
CALL srpcrt elf1a 370
CALL srpcrt elf1a 371
CALL srpcrt elf1a 372
CALL srpcrt elf1a 373
CALL srpcrt elf1a 374
CALL srpcrt elf1a 375
CALL srpcrt elf1a 376
CALL srpcrt elf1a 377
CALL srpcrt elf1a 378
CALL srpcrt elf1a 379
CALL srpcrt elf1a 380
CALL srpcrt elf1a 381
CALL srpcrt elf1a 382
CALL srpcrt elf1a 383
CALL srpcrt elf1a 384
CALL srpcrt elf1a 385
CALL srpcrt elf1a 386
CALL srpcrt elf1a 387
CALL srpcrt elf1a 388
CALL srpcrt elf1a 389
REM --------------------------------------------------------------------
:END
ECHO.|TIME>>elf1atim.out
ECHO elf1atim.out
REM --------------------------------------------------------------------
REM The results from RAM disk may be copied ,e.g., to drive C:
rem COPY    elf1a0??.out C:
rem COPY    elf1a1??.out C:
rem COPY    elf1a2??.out C:
rem COPY    elf1a3??.out C:
rem COPY    elf1atim.out C:
REM --------------------------------------------------------------------