                                                   
            *20
0020  0000  TEMP1,0
0021  0000  TEMP2,0
0022  0000  TEMP3,0
0023  0000  TEMP4,0
0024  0000  MONTH,0
0025  0000  DAY,0
0026  0000  YEAR,0
0027  0000  CENT,0
0030  7520  M260,-260
0031  0012  P12,12
0032  1750  P1750,1750
0033  0144  P144,144
0034  7776  M2,-2
0035  7777  M1,-1
0036  7634  M144,-144
0037  3777  MISK,3777
0040  7774  MASK,7774
0041  0044  PNTR,MON-1
0042  0106  P106,106
0043  7771  M7,-7
0044  0007  P7,7
0045  0001  
0046  0004  
0047  0003  
0050  0006  
0051  0001  
0052  0004  
0053  0006  
0054  0002  
0055  0005  
0056  0000  
0057  0003  
0060  0005  MON,1;4;3;6;1;4;6;2;5;0;3;5
0061  0436  READP,READ
0062  0444  PRINTP,PRINT
0063  0240  SPAC,240
0064  0215  CR,215
0065  0212  LF,212
0066  0542  DPRINP,DPRINT
0067  0450  
0070  0461  
0071  0470  
0072  0477  
0073  0507  
0074  0521  
0075  0532  BASE,450;461;470;477;507;521;532
0076  0067  BASEP,BASE
0077  0600  GOOFP,600
0100  5044  M1500,-2734
0101  7764  M14,-14
0102  7741  M37,-37
0103  7740  M40,-40
0104  0001  MESK,1
0105  7743  M35,-35
0106  7742  M36,-36
0107  7160  M400,-620
0110  1000  INST,1000
0111  0202  INIT,202
0112  7777  CNTR,-1
0113  7772  M6,-6
0114  0766  LEAD,GOOF+2
0115  1006  LEADER,DIREC-1
0116  0000  BIG,0
0117  1026  TAD YEAR
0120  1125  TAD M3720
0121  3026  DCA YEAR
0122  1126  TAD P24
0123  3021  DCA TEMP2
0124  5516  JMP I BIG
0125  4060  M3720,-3720
0126  0024  P24,24
0127  0400  NEWPAG,400
0130  0562  DAYPNT,DAYTST
            *200
0200  6046  TLS
0201  5510  JMP I Z INST
0202  4461  START,JMS I Z READP
0203  4462  JMS I Z PRINTP
0204  1030  TAD Z M260
0205  3020  DCA Z TEMP1
0206  4461  JMS I Z READP
0207  4462  JMS I Z PRINTP
0210  1030  TAD Z M260
0211  3021  DCA Z TEMP2
0212  1020  TAD Z TEMP1
0213  7450  SNA
0214  5222  JMP ZERO
0215  7041  CIA
0216  3020  DCA Z TEMP1
0217  1031  SIX,TAD Z P12
0220  2020  ISZ Z TEMP1
0221  5217  JMP SIX
0222  1021  ZERO,TAD TEMP2
0223  3024  DCA Z MONTH
0224  1063  TAD Z SPAC
0225  4462  JMS I Z PRINTP
0226  4462  JMS I Z PRINTP
0227  7200  CLA
0230  4461  JMS I Z READP
0231  4462  JMS I Z PRINTP
0232  1030  TAD Z M260
0233  3020  DCA Z TEMP1
0234  4461  JMS I Z READP
0235  4462  JMS I Z PRINTP
0236  1030  TAD Z M260
0237  3021  DCA Z TEMP2
0240  1020  TAD Z TEMP1
0241  7450  SNA
0242  5250  JMP FIRST
0243  7041  CIA
0244  3020  DCA Z TEMP1
0245  1031  SEC,TAD Z P12
0246  2020  ISZ Z TEMP1
0247  5245  JMP SEC
0250  1021  FIRST,TAD Z TEMP2
0251  3025  DCA Z DAY
0252  1063  TAD Z SPAC
0253  4462  JMS I Z PRINTP
0254  4462  JMS I Z PRINTP
0255  7200  CLA
0256  4461  JMS I Z READP
0257  4462  JMS I Z PRINTP
0260  1030  TAD Z M260
0261  3020  DCA Z TEMP1
0262  4461  JMS I Z READP
0263  4462  JMS I Z PRINTP
0264  1030  TAD Z M260
0265  3021  DCA Z TEMP2
0266  4461  JMS I Z READP
0267  4462  JMS I Z PRINTP
0270  1030  TAD Z M260
0271  3022  DCA Z TEMP3
0272  4461  JMS I Z READP
0273  4462  JMS I Z PRINTP
0274  1030  TAD Z M260
0275  3023  DCA Z TEMP4
0276  1020  TAD Z TEMP1
0277  7041  CIA
0300  3020  DCA Z TEMP1
0301  1032  THIRD,TAD Z P1750
0302  2020  ISZ Z TEMP1
0303  5301  JMP THIRD
0304  3020  DCA Z TEMP1
0305  1021  TAD Z TEMP2
0306  7041  CIA
0307  3021  DCA Z TEMP2
0310  1033  FOUR,TAD Z P144
0311  2021  ISZ Z TEMP2
0312  5310  JMP FOUR
0313  3021  DCA Z TEMP2
0314  1022  TAD Z TEMP3
0315  7041  CIA
0316  3022  DCA Z TEMP3
0317  1031  FIVE,TAD Z P12
0320  2022  ISZ Z TEMP3
0321  5317  JMP FIVE
0322  1020  TAD Z TEMP1
0323  1021  TAD Z TEMP2
0324  1023  TAD Z TEMP4
0325  3026  DCA Z YEAR
0326  1063  TAD Z SPAC
0327  4462  JMS I Z PRINTP
0330  4462  JMS I Z PRINTP
0331  7200  CLA
0332  5477  JMP I Z GOOFP
0333  1024  TAD Z MONTH
0334  1034  TAD Z M2
0335  7550  SPA SNA
0336  5340  JMP NOTOK
0337  5344  JMP OK
0340  7200  NOTOK,CLA
0341  1026  TAD Z YEAR
0342  1035  TAD Z M1
0343  3026  DCA Z YEAR
0344  7200  OK,CLA
0345  3021  DCA Z TEMP2
0346  1026  TAD Z YEAR
0347  7510  SPA
0350  4116  JMS Z BIG
0351  1036  LOOP1,TAD Z M144
0352  2021  ISZ Z TEMP2
0353  7500  SMA
0354  5351  JMP LOOP1
0355  1033  TAD Z P144
0356  3026  DCA Z YEAR
0357  1021  TAD Z TEMP2
0360  1035  TAD Z M1
0361  3027  DCA Z CENT
0362  1026  TAD Z YEAR
0363  7112  RTR CLL
0364  0037  AND Z MISK
0365  1026  TAD Z YEAR
0366  3020  DCA Z TEMP1
0367  1027  TAD Z CENT
0370  0040  AND Z MASK
0371  7041  CIA
0372  1027  TAD Z CENT
0373  7104  CLL RAL
0374  7041  CIA
0375  1020  TAD Z TEMP1
0376  3020  DCA Z TEMP1
0377  5527  JMP I NEWPAG
0400  1041  TAD Z PNTR
0401  1024  TAD Z MONTH
0402  3041  DCA Z PNTR
0403  1441  TAD I Z PNTR
0404  1020  TAD Z TEMP1
0405  1025  TAD Z DAY
0406  1042  TAD Z P106
0407  3020  DCA Z TEMP1
0410  1024  TAD Z MONTH
0411  7041  CIA
0412  1041  TAD Z PNTR
0413  3041  DCA Z PNTR
0414  1020  TAD Z TEMP1
0415  1043  LOOP2,TAD Z M7
0416  7500  SMA
0417  5215  JMP LOOP2
0420  1044  TAD Z P7
0421  3020  DCA Z TEMP1
0422  1076  TAD Z BASEP
0423  1020  TAD Z TEMP1
0424  3076  DCA Z BASEP
0425  4466  JMS I Z DPRINP
0426  1064  TAD Z CR
0427  4462  JMS I Z PRINTP
0430  7200  CLA
0431  1065  TAD Z LF
0432  4462  JMS I Z PRINTP
0433  7200  CLA
0434  5635  JMP I RETURN
0435  0201  RETURN,START-1
0436  0000  READ,0
0437  6032  KCC
0440  6031  RWAIT,KSF
0441  5240  JMP RWAIT
0442  6036  KRB
0443  5636  JMP I READ
0444  0000  PRINT,0
0445  6041  PWAIT,TSF
0446  5245  JMP PWAIT
0447  6046  TLS
0450  5644  JMP I PRINT
0451  0323  
0452  0301  
0453  0324  
0454  0325  
0455  0322  
0456  0304  
0457  0301  
0460  0331  
0461  0000  S;A;T;U;R;D;A;Y;0
0462  0323  
0463  0325  
0464  0316  
0465  0304  
0466  0301  
0467  0331  
0470  0000  S;U;N;D;A;Y;0
0471  0315  
0472  0317  
0473  0316  
0474  0304  
0475  0301  
0476  0331  
0477  0000  M;O;N;D;A;Y;0
0500  0324  
0501  0325  
0502  0305  
0503  0323  
0504  0304  
0505  0301  
0506  0331  
0507  0000  T;U;E;S;D;A;Y;0
0510  0327  
0511  0305  
0512  0304  
0513  0316  
0514  0305  
0515  0323  
0516  0304  
0517  0301  
0520  0331  
0521  0000  W;E;D;N;E;S;D;A;Y;0
0522  0324  
0523  0310  
0524  0325  
0525  0322  
0526  0323  
0527  0304  
0530  0301  
0531  0331  
0532  0000  T;H;U;R;S;D;A;Y;0
0533  0306  
0534  0322  
0535  0311  
0536  0304  
0537  0301  
0540  0331  
0541  0000  F;R;II;D;A;Y;0
0542  0000  DPRINT,0
0543  1476  TAD I Z BASEP
0544  3010  DCA Z 10
0545  1410  LOOP3,TAD I Z 10
0546  7450  SNA
0547  5355  JMP END
0550  6041  DWAIT,TSF
0551  5350  JMP DWAIT
0552  6046  TLS
0553  7200  CLA
0554  5345  JMP LOOP3
0555  1020  END,TAD Z TEMP1
0556  7041  CIA
0557  1076  TAD Z BASEP
0560  3076  DCA Z BASEP
0561  5742  JMP I DPRINT
0562  7200  DAYTST,CLA
0563  1025  TAD Z DAY
0564  7650  SNA CLA
0565  5772  JMP I BAD
0566  1024  TAD Z MONTH
0567  7650  SNA CLA
0570  5772  JMP I BAD
0571  5773  JMP I GOOD
0572  0764  BAD,GOOF
0573  0614  GOOD,SEVEN-5
            *600
0600  1026  TAD Z YEAR
0601  7510  SPA
0602  5206  JMP NGOOF
0603  1100  TAD Z M1500
0604  7550  SPA SNA
0605  5364  JMP GOOF
0606  7200  NGOOF,CLA
0607  1024  TAD Z MONTH
0610  1101  TAD Z M14
0611  7540  SMA SZA
0612  5364  JMP GOOF
0613  5530  JMP I Z DAYPNT
0614  1024  TAD Z MONTH
0615  1043  TAD Z M7
0616  7550  SPA SNA
0617  5221  JMP SEVEN
0620  5242  JMP EIGHT
0621  7200  SEVEN,CLA
0622  1024  TAD Z MONTH
0623  0104  AND Z MESK
0624  7440  SZA
0625  5227  JMP NINE
0626  5235  JMP TEN
0627  7200  NINE,CLA
0630  1025  TAD Z DAY
0631  1103  TAD Z M40
0632  7500  SMA
0633  5364  JMP GOOF
0634  5333  JMP FIN2
0635  1025  TEN,TAD Z DAY
0636  1102  TAD Z M37
0637  7700  SMA CLA
0640  5364  JMP GOOF
0641  5263  JMP FIN1
0642  7200  EIGHT,CLA
0643  1024  TAD Z MONTH
0644  0104  AND Z MESK
0645  7440  SZA
0646  5250  JMP ELEV
0647  5256  JMP TWEL
0650  7200  ELEV,CLA
0651  1025  TAD Z DAY
0652  1102  TAD Z M37
0653  7500  SMA
0654  5364  JMP GOOF
0655  5333  JMP FIN2
0656  1025  TWEL,TAD Z DAY
0657  1103  TAD Z M40
0660  7500  SMA
0661  5364  JMP GOOF
0662  5333  JMP FIN2
0663  1024  FIN1,TAD Z MONTH
0664  1034  TAD Z M2
0665  7440  SZA
0666  5333  JMP FIN2
0667  1026  TAD Z YEAR
0670  0040  AND Z MASK
0671  7041  CIA
0672  1026  TAD Z YEAR
0673  7440  SZA
0674  5276  JMP NLEAP
0675  5304  JMP LEAP
0676  7200  NLEAP,CLA
0677  1025  TAD Z DAY
0700  1105  TAD Z M35
0701  7500  SMA
0702  5364  JMP GOOF
0703  5333  JMP FIN2
0704  1026  LEAP,TAD Z YEAR
0705  7510  SPA
0706  1125  TAD Z M3720
0707  1036  TAD Z M144
0710  7540  SMA SZA
0711  5307  JMP LEAP+3
0712  7650  SNA CLA
0713  5321  JMP CLEAP
0714  1025  DLEAP,TAD Z DAY
0715  1106  TAD Z M36
0716  7500  SMA
0717  5364  JMP GOOF
0720  5333  JMP FIN2
0721  7200  CLEAP,CLA
0722  1026  TAD Z YEAR
0723  7510  SPA
0724  1125  TAD Z M3720
0725  1107  TAD Z M400
0726  7540  SMA SZA
0727  5325  JMP CLEAP+4
0730  7440  SZA
0731  5276  JMP NLEAP
0732  5314  JMP DLEAP
0733  7200  FIN2,CLA
0734  5735  JMP I ERR
0735  0333  ERR,333
0736  0736  MESS,COMMNT-1
0737  0331  
0740  0317  
0741  0325  
0742  0240  
0743  0307  
0744  0317  
0745  0317  
0746  0306  
0747  0305  
0750  0304  
0751  0240  
0752  0324  
0753  0322  
0754  0331  
0755  0240  
0756  0301  
0757  0307  
0760  0301  
0761  0311  
0762  0316  
0763  0000  COMMNT,Y;O;U;SPACE;G;O;O;F;E;D;SPACE;T;R;Y;SPACE;A;G;A;II;N;0
0764  7200  GOOF,CLA
0765  1336  TAD MESS
0766  3010  DCA Z 10
0767  1410  LOOP4,TAD I Z 10
0770  7450  SNA
0771  5777  JMP I ARROW
0772  6041  GWAIT,TSF
0773  5372  JMP GWAIT
0774  6046  TLS
0775  7200  CLA
0776  5367  JMP LOOP4
0777  0426  ARROW,426
            A=301
            B=302
            C=303
            D=304
            E=305
            F=306
            G=307
            H=310
            II=311
            J=312
            K=313
            L=314
            M=315
            N=316
            O=317
            P=320
            Q=321
            R=322
            S=323
            T=324
            U=325
            V=326
            W=327
            Y=331
            CRR=215
            LFF=212
            SPACE=240
            PERIOD=256
            COMMA=254
            *1000
1000  2112  ISZ Z CNTR
1001  5511  JMP I Z INIT
1002  7200  CLA
1003  1113  TAD Z M6
1004  3112  DCA Z CNTR
1005  1115  TAD Z LEADER
1006  5514  JMP I Z LEAD
1007  0215  
1010  0212  
1011  0212  
1012  0324  
1013  0310  
1014  0311  
1015  0323  
1016  0240  
1017  0320  
1020  0322  
1021  0317  
1022  0307  
1023  0322  
1024  0301  
1025  0315  
1026  0240  
1027  0311  
1030  0323  
1031  0240  DIREC,CRR;LFF;LFF;T;H;II;S;SPACE;P;R;O;G;R;A;M;SPACE;II;S;SPACE
1032  0304  
1033  0305  
1034  0323  
1035  0311  
1036  0307  
1037  0316  
1040  0305  
1041  0304  
1042  0240  
1043  0324  
1044  0317  
1045  0240  
1046  0307  
1047  0311  
1050  0326  
1051  0305  
1052  0240  D;E;S;II;G;N;E;D;SPACE;T;O;SPACE;G;II;V;E;SPACE
1053  0324  
1054  0310  
1055  0305  
1056  0240  
1057  0304  
1060  0301  
1061  0331  
1062  0240  
1063  0317  
1064  0306  
1065  0240  
1066  0324  
1067  0310  
1070  0305  
1071  0240  
1072  0327  
1073  0305  
1074  0305  
1075  0313  T;H;E;SPACE;D;A;Y;SPACE;O;F;SPACE;T;H;E;SPACE;W;E;E;K
1076  0215  
1077  0212  
1100  0327  
1101  0310  
1102  0305  
1103  0316  
1104  0240  
1105  0311  
1106  0324  
1107  0240  
1110  0311  
1111  0323  
1112  0240  
1113  0307  
1114  0311  
1115  0326  
1116  0305  
1117  0316  
1120  0240  CRR;LFF;W;H;E;N;SPACE;II;T;SPACE;II;S;SPACE;G;II;V;E;N;SPACE
1121  0301  
1122  0240  
1123  0304  
1124  0301  
1125  0324  
1126  0305  
1127  0256  
1130  0215  
1131  0212  A;SPACE;D;A;T;E;PERIOD;CRR;LFF
1132  0324  
1133  0331  
1134  0320  
1135  0305  
1136  0240  
1137  0324  
1140  0327  
1141  0317  
1142  0240  
1143  0304  
1144  0311  
1145  0307  
1146  0311  
1147  0324  
1150  0323  
1151  0240  
1152  0306  
1153  0317  
1154  0322  T;Y;P;E;SPACE;T;W;O;SPACE;D;II;G;II;T;S;SPACE;F;O;R
1155  0240  
1156  0324  
1157  0310  
1160  0305  
1161  0240  
1162  0315  
1163  0317  
1164  0316  
1165  0324  
1166  0310  
1167  0254  
1170  0240  
1171  0324  
1172  0310  
1173  0305  
1174  0316  
1175  0240  
1176  0324  
1177  0327  
1200  0317  SPACE;T;H;E;SPACE;M;O;N;T;H;COMMA;SPACE;T;H;E;N;SPACE;T;W;O
1201  0240  
1202  0304  
1203  0311  
1204  0307  
1205  0311  
1206  0324  
1207  0323  
1210  0240  
1211  0306  
1212  0317  
1213  0322  
1214  0240  
1215  0324  
1216  0310  
1217  0305  
1220  0240  
1221  0304  
1222  0301  
1223  0331  
1224  0254  
1225  0215  
1226  0212  SPACE;D;II;G;II;T;S;SPACE;F;O;R;SPACE;T;H;E;SPACE;D;A;Y;COMMA;CRR;LFF
1227  0324  
1230  0310  
1231  0305  
1232  0316  
1233  0240  
1234  0306  
1235  0317  
1236  0325  
1237  0322  
1240  0240  
1241  0304  
1242  0311  
1243  0307  
1244  0311  
1245  0324  
1246  0323  
1247  0240  
1250  0306  
1251  0317  
1252  0322  T;H;E;N;SPACE;F;O;U;R;SPACE;D;II;G;II;T;S;SPACE;F;O;R
1253  0240  
1254  0324  
1255  0310  
1256  0305  
1257  0240  
1260  0331  
1261  0305  
1262  0301  
1263  0322  
1264  0256  
1265  0215  
1266  0212  
1267  0324  
1270  0310  
1271  0305  
1272  0240  SPACE;T;H;E;SPACE;Y;E;A;R;PERIOD;CRR;LFF;T;H;E;SPACE
1273  0331  
1274  0305  
1275  0301  
1276  0322  
1277  0240  
1300  0323  
1301  0310  
1302  0317  
1303  0325  
1304  0314  
1305  0304  
1306  0240  
1307  0302  
1310  0305  
1311  0240  
1312  0314  
1313  0305  
1314  0323  
1315  0323  
1316  0240  Y;E;A;R;SPACE;S;H;O;U;L;D;SPACE;B;E;SPACE;L;E;S;S;SPACE
1317  0324  
1320  0310  
1321  0301  
1322  0316  
1323  0240  
1324  0264  
1325  0260  
1326  0260  
1327  0260  
1330  0256  
1331  0215  
1332  0212  
1333  0000  T;H;A;N;SPACE;264;260;260;260;PERIOD;CRR;LFF;0
                                                                
A       0301
ARROW   0777
B       0302
BAD     0572
BASE    0067
BASEP   0076
BIG     0116
C       0303
CENT    0027
CLEAP   0721
CNTR    0112
COMMA   0254
COMMNT  0737
CR      0064
CRR     0215
D       0304
DAY     0025
DAYPNT  0130
DAYTST  0562
DIREC   1007
DLEAP   0714
DPRINP  0066
DPRINT  0542
DWAIT   0550
E       0305
EIGHT   0642
ELEV    0650
END     0555
ERR     0735
F       0306
FIN1    0663
FIN2    0733
FIRST   0250
FIVE    0317
FOUR    0310
G       0307
GOOD    0573
GOOF    0764
GOOFP   0077
GWAIT   0772
H       0310
II      0311
INIT    0111
INST    0110
J       0312
K       0313
L       0314
LEAD    0114
LEADER  0115
LEAP    0704
LF      0065
LFF     0212
LOOP1   0351
LOOP2   0415
LOOP3   0545
LOOP4   0767
M       0315
MASK    0040
MESK    0104
MESS    0736
MISK    0037
MON     0045
MONTH   0024
M1      0035
M14     0101
M144    0036
M1500   0100
M2      0034
M260    0030
M35     0105
M36     0106
M37     0102
M3720   0125
M40     0103
M400    0107
M6      0113
M7      0043
N       0316
NEWPAG  0127
NGOOF   0606
NINE    0627
NLEAP   0676
NOTOK   0340
O       0317
OK      0344
P       0320
PERIOD  0256
PNTR    0041
PRINT   0444
PRINTP  0062
PWAIT   0445
P106    0042
P12     0031
P144    0033
P1750   0032
P24     0126
P7      0044
Q       0321
R       0322
READ    0436
READP   0061
RETURN  0435
RWAIT   0440
S       0323
SEC     0245
SEVEN   0621
SIX     0217
SPAC    0063
SPACE   0240
START   0202
T       0324
TEMP1   0020
TEMP2   0021
TEMP3   0022
TEMP4   0023
TEN     0635
THIRD   0301
TWEL    0656
U       0325
V       0326
W       0327
Y       0331
YEAR    0026
ZERO    0222

                                                                J