*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