01010          JOB  NUMBERS TO WORDS  (TOLUR I ORD)
01020          CTL  6611
01030          ENT  SPS
06010  *
06020  *           T I O
06030  *          -------
06040  *     NUMBERS TO WORDS  (TOLUR I ORD)
06050  *
06060  *    CARDS 07-010 TO 08-130 ARE A
06070  *    PROGRAM TO TEST AND SHOW TIO,
06080  *    AND MUST BE TAKEN AWAY IF TIO
06090  *    IS INCORPORATED INTO ANOTHER
06100  *    PROGRAM
06110  *
06120  *    THE FIRST ORDER IN TIO IS LABELED T01 AND
06130  *    IT IS IN CARD 14-030. YOU NEED TO CHECK
06140  *    CARD 09-160 WITH LABEL ,UT, FOR A PLACE
06150  *    THAT IT SHOULD GO OUT OF TIO.  IT MUST HAVE
06160  *    ADDRESS OF THE WORD ADDRESS STORED IN A
06170  *    PLACE THAT HAS THE ADDRESS  ORD  PLUS 71. 
06180  *    THIS NEEDS TO COORDINATE WITH THE MAIN
06185  *    PROGRAM.
06190  *
06200  *
07010  *        LITTLE ROUTINE WITH READING AND WRITING
07020  *        TO TEST T I O.
07030  *
07040  *
07050  INN   R                         LESA PRUFUSPJ
07055        ZA UPPH  &  1
07060        A  0081       UPPH  &  1
07070        B  T01
07080  UT    CS 0332                   SKRIFA
07090        CS
07106        MCWORD   & 71 0299
07110        MCWUPPH       0215
07130        W
07140        MCWAUD        ORD   & 71
07150        MCWORD   & 71
07160        B  ENDA                  A
07170        B  INN
0721016ET    DCW*      PETTA VAR  T I O
0722025TO    DCW*      - T O L U R   I   O R D -
0723032PRO   DCW*      PROGRAM, SEM BREYTIR TOLUM I ORD
0724032SAM   DCW*      SAMID HEFUR JOHANN GUNNARSSON,
0725032      DCW*      SEM GEFUR FUSLEGA ALLAR FREKARI
0726011SEM   DC *      UPPLUSINGAR
08003  ENDA  CS 0299
08004        CC                       1
08005        MCWET         0246
08010        W
08020        CC                       K
08030        MCWTO         0255
08040        W
08050        CC                       K
08060        MCWPRO        0262
08070        W
08080        MCWSAM        0262
08090        W
08100        MCWSEM        0273
08110        W
08120        CC                       1
08130        H  INN
08140  *
08150  *        KONSTANTAR   T I O
09000  *
0900802C00   DCW*      00
0900901      DC *      0
0901002C01   DCW*      01
0902002C02   DCW*      02
0903002C03   DCW*      03
0904002C04   DCW*      04
0905002C05   DCW*      05
0906002C06   DCW*      06
0907002C07   DCW*      07
0908002C08   DCW*      08
09160  AUT   DSA*          UT          B FLD ADDR. PARF
09170  *                     AD AKVEDA EFTIR ADALPROGR.
09180  AT0137DSA*          T0137
0919007      DCW*         /100
09200  ACOX  DSA*          *     -  3
0921001AUD   DCW*
1001001PROF  DCW*
1002001PROF2 DCW*
1003001PROF3 DCW*
1004001POSTELDCW*
1005008UPPH  DCW*
1005501      DC
10060  AUPP  DSA*          UPPH  -  7
10070  AT13  DSA*          T13
1008002ORDLNGDCW*
10081  B472  DSA*          AT472
10084  B482  DSA*          AT482
10085  B492  DSA*          AT492
10086  B502  DSA*          AT502
10087  B512  DSA*          AT512
10088  B522  DSA*          AT522
1009001ORD   DCW*
1010032      DC *
1011032      DC *
1012007      DC *
1013002      DCW*      0G
10140  ADOG  DSA*          *     -  3
10150  AT472 DSA*          T472
10160  AT482 DSA*          T482
10170  AT492 DSA*          T492
10180  AT502 DSA*          T502
10190  AT512 DSA*          T512
10200  AT522 DSA*          T522
10210  AT532 DSA*          T532
10220  AT542 DSA*          T542
10230  AT552 DSA*          T552
1101004      DCW*      EITT
11020  ATA1  DSA*          *     -  3
1103003      DCW*      EIN
11040  ATA111DSA*          *     -  3
1105003      DCW*      TVO
11060  ATA11 DSA*          *     -  3
1107004      DCW*      TVAR
11080  ATA112DSA*          *     -  3
1109004      DCW*      PRJU
11100  ATA12 DSA*          *     -  3
1111005      DCW*      PRJAR
11120  ATA113DSA*          *     -  3
1113006      DCW*      FJOGUR
11140  ATA13 DSA*          *     -  3
1115006      DCW*      FJORAR
11160  ATA114DSA*          *     -  3
1117004      DCW*      FIMM
11180  ATA14 DSA*          *     -  3
1119003      DCW*      SEX
11200  ATA15 DSA*          *     -  3
1121003      DCW*      SJO
11220  ATA16 DSA*          *     -  3
1123004      DCW*      ATTA
11240  ATA17 DSA*          *     -  3
1201003      DCW*      NIU
12020  ATA18 DSA*          *     -  3
1203003      DCW*      TIU
12040  ATA2  DSA*          *     -  3
1205006      DCW*      ELLEFU
12060  ATA21 DSA*          *     -  3
1207004      DCW*      TOLF
12080  ATA22 DSA*          *     -  3
1209007      DCW*      PRETTAN
12100  ATA23 DSA*          *     -  3
1211007      DCW*      FJORTAN
12120  ATA24 DSA*          *     -  3
1213007      DCW*      FIMMTAN
12140  ATA25 DSA*          *     -  3
1215006      DCW*      SEXTAN
12160  ATA26 DSA*          *     -  3
1217007      DCW*      SAUTJAN
12180  ATA27 DSA*          *     -  3
1219005      DCW*      ATJAN
12200  ATA28 DSA*          *     -  3
1221006      DCW*      NITJAN
12220  ATA29 DSA*          *     -  3
1223007      DCW*      TUTTUGU
12240  ATA3  DSA*          *     -  3
1301007      DCW*      PRJATIU
13020  ATA33 DSA*          *     -  3
1303008      DCW*      FJORUTIU
13040  ATA34 DSA*          *     -  3
1305007      DCW*      FIMMTIU
13060  ATA35 DSA*          *     -  3
1307006      DCW*      SEXTIU
13080  ATA36 DSA*          *     -  3
1309006      DCW*      SJOTIU
13100  ATA37 DSA*          *     -  3
1311007      DCW*      ATTATIU
13120  ATA38 DSA*          *     -  3
1313006      DCW*      NIUTIU
13140  ATA39 DSA*          *     -  3
1315007      DCW*      HUNDRAD
13160  ATA4  DSA*          *     -  3
1317007      DCW*      HUNDRUD
13180  ATA41 DSA*          *     -  3
1319006      DCW*      PUSUND
13200  ATA5  DSA*          *     -  3
1321001TA7   DCW*
13220  AORD  DSA*          ORD
13230  B532  DSA*          AT532
13240  B542  DSA*          AT542
13250  B552  DSA*          AT552
13260  B13   DSA*          AT13
13270  B0137 DSA*          AT0137
13300  *
14010  *      UPPHAF   T I O
14020  *
14030  T01   MCWTA7        POSTEL      TAMA POSTEL OG
14040        MCWTA7                    PROF 203
14050        MCWTA7
14051        MCWAORD       T52   &  6
14060        MCWAUPP       T12   &  3  ADDR A FRENSTA
14070  T11   A  C01        POSTEL      STAF I UPPHAD
14080  T12   MCWUPPH       PROF
14090        SW T12   &  1
14100        A  C01        T12   &  3  FARA PROFUN TIL
14110        CW T12   &  1             HAGRI
14115        B  P27        POSTEL     5
14120        B  T0140      POSTEL     1
14130        B  T0137      POSTEL     7
14140        B  T0136      POSTEL     4
14150  T13   B  T02        PROF       0
14160        B  T03        PROF       1
14161        B  T044       POSTEL     2
14162        B  T044       POSTEL     5
14170  T14   B  T06        PROF       2
14180        B  T08        PROF       3
14190        B  T010       PROF       4
14200        B  T012       PROF       5
14210        B  T014       PROF       6
14220        B  T016       PROF       7
14230        B  T018       PROF       8
14240        B  T020                     PROF -9
15010  T02   B  T024       POSTEL     6 PROF -0
15020        B  T024       POSTEL     3
15021        MCWPROF       PROF2
15022        B  T11
15030  T03   B  T022       POSTEL     2 PROF -1
15040        B  T026       POSTEL     3
15050        B  T221       POSTEL     5
15060        B  T026       POSTEL     6
15090        MCWATA1       T52   &  3   FLYT EITT
15100        MCWC04        ORDLNG       FARA UM 4 T.H.
15110        MCW*     &  7 T53   &  3
15120        B  T05
15130        DSA*          *     &  1
15140        MCWATA4       T52   &  3   FLYT HUNDRAD
15150  T42   MCWC07        ORDLNG
15160  T43   MCW*     &  7 T53   &  3
15170        B  T05
15180        DSA*          T11
15190  T05   SW T52   &  4              RADA UPP ORDINU
15200        A  ORDLNG     T52   &  6
15210        CW T52   &  4
15220  T52   MCWATA1  -  3 ORD
15230  T53   B  0000
16030  T06   B  T028       POSTEL     3 PROF-2
16035        B  P1         POSTEL     2
16040        B  T028       POSTEL     6
16050        B  P1A        POSTEL     5
16060        MCWATA11      T52   &  3   TVO HUNDRUD
16070  T73   MCWC03        ORDLNG
16080  T71   MCW*     &  7 T53   &  3
16090        B  T05
16100        DSA*          *     &  1
16110        MCWATA41      T52   &  3   FLYT HUNDRUD
16120        B  T42
16150  T08   B  T030       POSTEL     3 PROF -3
16155        B  P3         POSTEL     2
16160        B  T030       POSTEL     6
16170        B  P3A        POSTEL     5
16180        MCWATA12      T52   &  3   PRJU HUNDRUD
16190  T91   MCWC04        ORDLNG
16200        B  T71
16210  T010  B  T032       POSTEL     3 PROF -4
16215        B  P5         POSTEL     2
16220        B  T032       POSTEL     6
16225        B  P5A        POSTEL     5
16230        MCWATA13      T52   &  3   400
16240        MCWC06        ORDLNG
16250        B  T71
17010  T012  B  T034       POSTEL     3 PROF -5
17015        B  P7         POSTEL     2
17020        B  T034       POSTEL     6
17025        B  P7A        POSTEL     5
17030        MCWATA14      T52   &  3   FIMM HUNDRUD
17040        B  T91
17050  T014  B  T036       POSTEL     3 PROF -6
17055        B  P9         POSTEL     2
17060        B  T036       POSTEL     6
17065        B  P9A        POSTEL     5
17070        MCWATA15      T52   &  3   SEX HUNDRUD
17080        B  T73
17090  T016  B  T038       POSTEL     3 PROF -7
17095        B  P11        POSTEL     2
17100        B  T038       POSTEL     6
17105        B  P11A       POSTEL     5
17110        MCWATA16      T52   &  3   SJO HUNDRUD
17120        B  T73
17130  T018  B  T040       POSTEL     3 PROF -8
17135        B  P13        POSTEL     2
17140        B  T040       POSTEL     6
17145        B  P13A       POSTEL     5
17150        MCWATA17      T52   &  3   ATTA HUNDRUD
17160        B  T91
17170  T020  B  T042       POSTEL     3 PROF -9
17175        B  P15        POSTEL     2
17180        B  T042       POSTEL     6
17185        B  P15A       POSTEL     5
17190        MCWATA18      T52   &  3   NIU HUNDRUD
17200        B  T73
17210  T022  B  P26        PROF3      0
17220  T221  MCWADOG       T52   &  3   OG EFTIR HUNDRAD
17230        MCWC02        ORDLNG
17240        MCWPROF       PROF2
17250        B  T43
18010  T024  B  T025       PROF2      1
18090        B  T0126      PROF2      0
18095        B  T253
18100  T025  MCWATA2       T52   &  3
18110  T251  MCWC03        ORDLNG
18120  T252  MCW*     &  7 T53   &  3
18130        B  T05
18140        DSA*          *     &  1
18150  T253  B  T0137      POSTEL     6
18160        MCWATA5       T52   &  3
18170        MCWC06        ORDLNG
18180        B  T43
18190  T026  B  T027       PROF2      1
19010        B  T0127      PROF2      0
19015        B  P17
19020  T027  MCWATA21      T52   &  3
19040        B  T371
19050  T028  B  T029       PROF2      1
19130        B  T0128      PROF2      0
19135        B  P18
19140  T029  MCWATA22      T52   &  3
19150  T291  MCWC04        ORDLNG
19160        B  T252
19170  T030  B  T031       PROF2      1
19250        B  T0129      PROF2      0
19260        B  P19
20010  T031  MCWATA23      T52   &  3
20020  T311  MCWC07        ORDLNG
20030        B  T252
20040  T032  B  T033       PROF2      1
20120        B  T0130      PROF2      0
20125        B  P20
20130  T033  MCWATA24      T52   &  3
20140        B  T311
20150  T034  B  T035       PROF2      1
20230        B  T0131      PROF2      0
20235        B  P21
20240  T035  MCWATA25      T52   &  3
20250        B  T311
21010  T036  B  T037       PROF2      1
21090        B  T0132      PROF2      0
21095        B  P22
21100  T037  MCWATA26      T52   &  3
21110  T371  MCWC06        ORDLNG
21120        B  T252
21130  T038  B  T039       PROF2      1
21210        B  T0133      PROF2      0
21215        B  P23
21220  T039  MCWATA27      T52   &  3
21230        B  T311
21240  T040  B  T041       PROF2      1
22060        B  T0134      PROF2      0
22065        B  P24
22070  T041  MCWATA28      T52   &  3
22080        MCWC05        ORDLNG
22090        B  T252
22100  T042  B  T043       PROF2      1
22180        B  T0135      PROF2      0
22185        B  P25
22190  T043  MCWATA29      T52   &  3
22200        B  T371
22210  T044  MCWPROF       PROF2        POSTEL -2 EDA5
22220        B  T14
23010  T461  MCWADOG       T52   &  3   OG
23020        MCWC02        ORDLNG
23030  T465  MCWAT462      T53   &  3
23040        B  T05
23060  T462  MCWATA3       T52   &  3   TUTTUGU
23070        B  T311
23080  AT462 DSA*          T462
23090  AT461 DSA*          T461
23130  T475  MCWAT461      T53   &  3
23140        MCWAT472      T465  &  3
23150        B  T05
23160  T472  B  T0144      POSTEL     6
23170        MCWATA1       T52   &  3   EITT
23190        B  T291
23220  T482  B  T0141      POSTEL     6
23230        MCWATA11      T52   &  3   TVO
23240        B  T251
24010  T492  B  T0142      POSTEL     6
24020        MCWATA12      T52   &  3   PRJU
24030        B  T291
24060  T502  B  T0143      POSTEL     6
24070        MCWATA13      T52   &  3   FJOGUR
24080        B  T371
24120  T512  MCWATA14      T52   &  3   FIMM
24130        B  T291
24170  T522  MCWATA15      T52   &  3   SEX
24180        B  T251
24220  T532  MCWATA16      T52   &  3   SJO
24230        B  T251
25010  T542  MCWATA17      T52   &  3   ATTA
25020        B  T291
25060  T552  MCWATA18      T52   &  3   NIU
25070        B  T251
26010  P1    B  P2         UPPH  -  5 0
26020        B  P1B
26030  P1A   B  P2A        UPPH  -  2 0
26040  P1B   MCWATA3       T52   &  3
26050  P1C   MCWC07        ORDLNG
26060        B  T43
26070  P2    B  P1B        UPPH  -  7 0
26080  P2A   MCWBP1B       T465  &  3
26090        B  T461
26100  P3    B  P4         UPPH  -  5 0
26110        B  P3B
26120  P3A   B  P4A        UPPH  -  2 0
26130  P3B   MCWATA33      T52   &  3
26140        B  P1C
26150  P4    B  P3B        UPPH  -  7 0
26160  P4A   MCWBP3B       T465  &  3
26170        B  T461
26180  P5    B  P6         UPPH  -  5 0
26190        B  P5B
26200  P5A   B  P6A        UPPH  -  2 0
26210  P5B   MCWATA34      T52   &  3
26220        MCWC08        ORDLNG
26230        B  T43
26240  P6    B  P5B        UPPH  -  7 0
26250  P6A   MCWBP5B       T465  &  3
26260        B  T461
27010  P7    B  P8         UPPH  -  5 0
27020        B  P7B
27030  P7A   B  P8A        UPPH  -  2 0
27040  P7B   MCWATA35      T52   &  3
27050        B  P1C
27060  P8    B  P7B        UPPH  -  7 0
27070  P8A   MCWBP7B       T465  &  3
27080        B  T461
27090  P9    B  P10        UPPH  -  5 0
27100        B  P9B
27110  P9A   B  P10A       UPPH  -  2 0
27120  P9B   MCWATA36      T52   &  3
27130  P9C   MCWC06        ORDLNG
27140        B  T43
27150  P10   B  P9B        UPPH  -  7 0
27160  P10A  MCWBP9B       T465  &  3
27170        B  T461
27180  P11   B  P12        UPPH  -  5 0
27190        B  P11B
27200  P11A  B  P12A       UPPH  -  2 0
27210  P11B  MCWATA37      T52   &  3
27220        B  P9C
27230  P12   B  P11B       UPPH  -  7 0
27240  P12A  MCWBP11B      T465  &  3
27250        B  T461
28010  P13   B  P14        UPPH  -  5 0
28020        B  P13B
28030  P13A  B  P14A       UPPH  -  2 0
28040  P13B  MCWATA38      T52   &  3
28050        B  P1C
28060  P14   B  P13B       UPPH  -  7 0
28070  P14A  MCWBP13B      T465  &  3
28080        B  T461
28090  P15   B  P16        UPPH  -  5 0
28100        B  P15B
28110  P15A  B  P16A       UPPH  -  2 0
28120  P15B  MCWATA39      T52   &  3
28130        B  P9C
28140  P16   B  P15B       UPPH  -  7 0
28150  P16A  MCWBP15B      T465  &  3
28160        B  T461
28170  P17   MCWB472       T465  &  3
28180        B  T461
28190  P18   MCWB482       T465  &  3
28200        B  T461
28210  P19   MCWB492       T465  &  3
28220        B  T461
28230  P20   MCWB502       T465  &  3
28240        B  T461
29010  P21   MCWB512       T465  &  3
29020        B  T461
29030  P22   MCWB522       T465  &  3
29040        B  T461
29050  P23   MCWB532       T465  &  3
29060        B  T461
29070  P24   MCWB542       T465  &  3
29080        B  T461
29090  P25   MCWB552       T465  &  3
29100        B  T461
29110  P26   MCWPROF       PROF2
29120        B  T11
29130        C  UPPH  -  3 C00
29140        B  T13                   /
29150        B  T1361
29160  P27   SRF
29170        B  T13
30010        DSA*          P1B
30020  BP1B  DSA*          *     -  3
30030        DSA*          P3B
30040  BP3B  DSA*          *     -  3
30050        DSA*          P5B
30060  BP5B  DSA*          *     -  3
30070        DSA*          P7B
30080  BP7B  DSA*          *     -  3
30090        DSA*          P9B
30100  BP9B  DSA*          *     -  3
30110        DSA*          P11B
30120  BP11B DSA*          *     -  3
30130        DSA*          P13B
30140  BP13B DSA*          *     -  3
30150        DSA*          P15B
30160  BP15B DSA*          *     -  3
32090  T0126 B  T11        PROF3      0 X00 EDA 000
32100        B  T253
32110  T0127 B  T472       PROF3      0 X01 EDA 001
32120        MCWB472       T465  &  3
32130        B  T461
32140  T0128 B  T482       PROF3      0 X02 EDA 002
32150        MCWB482       T465  &  3
32160        B  T461
32170  T0129 B  T492       PROF3      0 X03 EDA 003
32180        MCWB492       T465  &  3
32190        B  T461
32200  T0130 B  T502       PROF3      0 X04 EDA 004
32210        MCWB502       T465  &  3
32220        B  T461
32230  T0131 B  T512       PROF3      0 X05 EDA 005
32240        MCWB512       T465  &  3
32250        B  T461
33010  T0132 B  T522       PROF3      0 X06 EDA 006
33020        MCWB522       T465  &  3
33030        B  T461
33040  T0133 B  T532       PROF3      0 X07 EDA 007
33050        MCWB532       T465  &  3
33060        B  T461
33070  T0134 B  T542       PROF3      0 X08 EDA 008
33080        MCWB542       T465  &  3
33090        B  T461
33100  T0135 B  T552       PROF3      0 X09 EDA 009
33110        MCWB552       T465  &  3
33120        B  T461
33130  T0136 MCWPROF       PROF3        POSTEL -4
33132        NOP
33140        C  UPPH  -  2 C00
33150        B  P26   & 11            /
33160        B  T0137      PROF       0 HEIL PUSUND
33163  T1361 C  C00   &  1 UPPH  -  5
33164        B  T13                   S
33170        MCWB13        T465  &  3
33180        B  T461
33230  T0137 MCWUPPH       ACOX  -  7
33240        MCWC07        ORDLNG
33241        MCWAUD        ACOX  -  9
33250        MCWACOX       T52   &  3
34010        MCWAUT        T53   &  3   UNDIRB. LEID UT
34020        B  T05
34060  T0140 MCWPROF       PROF3        POSTEL -1
34070        B  T13
34080  T0141 MCWATA112     T52   &  3   SKR TVAR
34090        B  T291
34100  T0142 MCWATA113     T52   &  3   SKR PRJAR
34110        MCWC05        ORDLNG
34120        B  T252
34130  T0143 MCWATA114     T52   &  3   SKR FJORAR
34140        B  T371
34150  T0144 MCWATA111     T52   &  3   SKR EIN
34160        MCWB0137      T475  &  3
34170        MCWC03        ORDLNG
34180        B  T475
34300        ENDINN
