CALENDAR MAKER

00000000: 01 08 48 08 02 00 8F 20  43 4F 50 59 52 49 47 48  |..H.... COPYRIGH|
00000010: 54 20 31 39 38 37 20 43  4F 4D 50 55 54 45 21 20  |T 1987 COMPUTE! |
00000020: 50 55 42 4C 49 43 41 54  49 4F 4E 53 2C 20 49 4E  |PUBLICATIONS, IN|
00000030: 43 2E 20 2D 20 41 4C 4C  20 52 49 47 48 54 53 20  |C. - ALL RIGHTS |
00000040: 52 45 53 45 52 56 45 44  00 80 08 04 00 8F 20 44  |RESERVED...... D|
00000050: 52 49 56 45 23 20 20 50  52 49 4E 54 45 52 23 20  |RIVE#  PRINTER# |
00000060: 20 52 45 56 45 52 53 45  20 4F 4E 20 20 52 45 56  | REVERSE ON  REV|
00000070: 45 52 53 45 20 4F 46 46  20 20 53 50 41 43 45 52  |ERSE OFF  SPACER|
00000080: 00 AB 08 06 00 44 52 B2  38 3A 50 52 B2 34 3A 52  |.....DR.8:PR.4:R|
00000090: 56 24 B2 C7 28 31 38 29  3A 52 4F 24 B2 C7 28 31  |V$..(18):RO$..(1|
000000A0: 34 36 29 3A 53 50 24 B2  22 2A 22 00 E3 08 08 00  |46):SP$."*".....|
000000B0: 53 31 24 B2 22 20 22 3A  81 49 B2 31 A4 32 31 3A  |S1$." ":.I.1.21:|
000000C0: 53 58 24 B2 53 58 24 AA  53 31 24 3A 82 3A 53 36  |SX$.SX$.S1$:.:S6|
000000D0: 24 B2 C8 28 53 58 24 2C  36 29 3A 4E 41 24 B2 C7  |$..(SX$,6):NA$..|
000000E0: 28 30 29 00 19 09 0A 00  99 C7 28 31 34 32 29 C7  |(0).......(142).|
000000F0: 28 38 29 3A 86 4D 28 31  32 29 2C 59 24 28 34 29  |(8):.M(12),Y$(4)|
00000100: 2C 51 24 28 36 29 2C 48  24 28 32 35 29 2C 43 24  |,Q$(6),H$(25),C$|
00000110: 28 36 29 2C 4D 24 28 34  29 00 45 09 0C 00 81 49  |(6),M$(4).E....I|
00000120: B2 31 A4 31 32 3A 87 4D  28 49 29 3A 82 3A 87 44  |.1.12:.M(I):.:.D|
00000130: 24 3A 44 24 B2 44 24 AA  22 20 22 AA 44 24 AA 22  |$:D$.D$." ".D$."|
00000140: 20 22 AA 44 24 00 83 09  0E 00 81 49 B2 31 A4 34  | ".D$......I.1.4|
00000150: 3A 87 41 24 2C 42 24 2C  43 24 3A 4D 24 28 49 29  |:.A$,B$,C$:M$(I)|
00000160: B2 53 36 24 AA 41 24 AA  C8 28 53 58 24 2C 31 35  |.S6$.A$..(SX$,15|
00000170: 29 AA 42 24 AA C8 28 53  58 24 2C 31 35 29 AA 43  |).B$..(SX$,15).C|
00000180: 24 3A 82 00 A9 09 10 00  81 49 B2 31 A4 33 31 3A  |$:.......I.1.31:|
00000190: 51 24 B2 51 24 AA C9 28  C4 28 49 29 2C 32 29 AA  |Q$.Q$..(.(I),2).|
000001A0: 22 20 22 3A 82 3A 87 46  24 00 B7 09 12 00 46 4D  |" ":.:.F$.....FM|
000001B0: 24 B2 C7 28 31 37 29 00  D0 09 14 00 8F 20 2D 2D  |$..(17)...... --|
000001C0: 2D 20 50 41 52 53 45 20  59 45 41 52 20 2D 2D 2D  |- PARSE YEAR ---|
000001D0: 00 04 0A 16 00 99 C7 28  31 34 37 29 22 1C 20 20  |.......(147)".  |
000001E0: 20 43 4F 50 59 52 49 47  48 54 20 31 39 38 37 20  | COPYRIGHT 1987 |
000001F0: 43 4F 4D 50 55 54 45 21  20 50 55 42 2E 2C 20 49  |COMPUTE! PUB., I|
00000200: 4E 43 2E 22 00 23 0A 18  00 99 A3 31 30 29 22 41  |NC.".#.....10)"A|
00000210: 4C 4C 20 52 49 47 48 54  53 20 52 45 53 45 52 56  |LL RIGHTS RESERV|
00000220: 45 44 22 00 59 0A 1A 00  99 46 4D 24 A3 31 33 29  |ED".Y....FM$.13)|
00000230: 22 43 41 4C 45 4E 44 41  52 20 4D 41 4B 45 52 22  |"CALENDAR MAKER"|
00000240: 3A 99 A3 31 33 29 22 2D  2D 2D 2D 2D 2D 2D 2D 2D  |:..13)"---------|
00000250: 2D 2D 2D 2D 2D 22 46 4D  24 00 90 0A 1C 00 85 22  |-----"FM$......"|
00000260: 57 48 41 54 20 59 45 41  52 20 57 4F 55 4C 44 20  |WHAT YEAR WOULD |
00000270: 59 4F 55 20 4C 49 4B 45  22 3B 59 24 3A 8B C3 28  |YOU LIKE";Y$:..(|
00000280: 59 24 29 B2 32 A7 59 24  B2 22 31 39 22 AA 59 24  |Y$).2.Y$."19".Y$|
00000290: 00 AE 0A 1E 00 59 B2 C5  28 59 24 29 3A 8B 59 B3  |.....Y..(Y$):.Y.|
000002A0: 31 39 30 30 B0 59 B1 32  30 35 30 89 32 36 00 E8  |1900.Y.2050.26..|
000002B0: 0A 20 00 81 4A B2 31 A4  34 3A 81 49 B2 2E A4 34  |. ..J.1.4:.I...4|
000002C0: 3A 59 24 28 4A 29 B2 59  24 28 4A 29 AA CA 28 46  |:Y$(J).Y$(J)..(F|
000002D0: 24 2C 49 AC 31 30 AA C5  28 CA 28 59 24 2C 4A 2C  |$,I.10..(.(Y$,J,|
000002E0: 31 29 29 AA 31 2C 31 29  00 F0 0A 22 00 82 3A 82  |1)).1,1)..."..:.|
000002F0: 00 07 0B 24 00 8F 20 2D  2D 2D 20 47 45 54 20 54  |...$.. --- GET T|
00000300: 45 58 54 20 2D 2D 2D 00  38 0B 26 00 99 46 4D 24  |EXT ---.8.&..FM$|
00000310: 22 45 4E 54 45 52 20 54  45 58 54 20 28 32 35 34  |"ENTER TEXT (254|
00000320: 20 43 48 41 52 2E 20 4D  41 58 29 2E 22 3A 99 46  | CHAR. MAX).":.F|
00000330: 4D 24 22 3E 3E 20 22 3B  00 4A 0B 28 00 A1 41 24  |M$">> ";.J.(..A$|
00000340: 3A 8B 41 24 B2 22 22 A7  34 30 00 5B 0B 2A 00 8B  |:.A$."".40.[.*..|
00000350: 41 24 B2 C7 28 31 33 29  89 35 32 00 84 0B 2C 00  |A$..(13).52...,.|
00000360: 8B 41 24 B2 C7 28 32 30  29 AF 4E 24 B1 22 22 A7  |.A$..(20).N$."".|
00000370: 4E 24 B2 C8 28 4E 24 2C  C3 28 4E 24 29 AB 31 29  |N$..(N$,.(N$).1)|
00000380: 3A 89 34 38 00 BF 0B 2E  00 91 AB 28 41 24 B3 22  |:.48.......(A$."|
00000390: 20 22 B0 28 41 24 B1 C7  28 31 32 37 29 AF 41 24  | ".(A$..(127).A$|
000003A0: B3 C7 28 31 36 30 29 29  B0 C3 28 4E 24 29 B2 32  |..(160))..(N$).2|
000003B0: 35 34 29 89 34 30 3A 4E  24 B2 4E 24 AA 41 24 00  |54).40:N$.N$.A$.|
000003C0: CC 0B 30 00 99 41 24 3B  3A 89 34 30 00 E3 0B 32  |..0..A$;:.40...2|
000003D0: 00 8F 20 2D 2D 2D 20 52  45 56 45 52 53 45 3F 20  |.. --- REVERSE? |
000003E0: 2D 2D 2D 00 11 0C 34 00  99 3A 99 46 4D 24 22 52  |---...4..:.FM$"R|
000003F0: 45 56 45 52 53 45 20 59  45 41 52 20 48 45 41 44  |EVERSE YEAR HEAD|
00000400: 49 4E 47 3F 20 28 59 2F  4E 29 20 22 3A 8D 31 32  |ING? (Y/N) ":.12|
00000410: 30 00 35 0C 36 00 91 AB  28 41 24 B2 22 59 22 29  |0.5.6...(A$."Y")|
00000420: AB 28 41 24 B2 22 4E 22  29 AC 32 89 36 30 2C 35  |.(A$."N").2.60,5|
00000430: 36 3A 89 35 32 00 51 0C  38 00 52 56 24 B2 4E 41  |6:.52.Q.8.RV$.NA|
00000440: 24 3A 52 4F 24 B2 4E 41  24 3A 53 31 24 B2 53 50  |$:RO$.NA$:S1$.SP|
00000450: 24 00 66 0C 3A 00 8F 20  2D 2D 2D 20 57 48 45 52  |$.f.:.. --- WHER|
00000460: 45 3F 20 2D 2D 2D 00 95  0C 3C 00 99 46 4D 24 22  |E? ---...<..FM$"|
00000470: 28 53 29 43 52 45 45 4E  2C 20 28 50 29 52 49 4E  |(S)CREEN, (P)RIN|
00000480: 54 45 52 2C 20 4F 52 20  28 44 29 49 53 4B 3F 22  |TER, OR (D)ISK?"|
00000490: 3A 8D 31 32 30 00 C7 0C  3E 00 91 AB 28 41 24 B2  |:.120...>...(A$.|
000004A0: 22 53 22 29 AB 28 41 24  B2 22 50 22 29 AC 32 AB  |"S").(A$."P").2.|
000004B0: 28 41 24 B2 22 44 22 29  AC 33 89 37 36 2C 36 34  |(A$."D").3.76,64|
000004C0: 2C 37 30 3A 89 35 32 00  F3 0C 40 00 99 46 4D 24  |,70:.52...@..FM$|
000004D0: 22 53 45 54 20 55 50 20  50 52 49 4E 54 45 52 20  |"SET UP PRINTER |
000004E0: 41 4E 44 20 48 49 54 20  41 4E 59 20 4B 45 59 2E  |AND HIT ANY KEY.|
000004F0: 2E 2E 22 00 05 0D 42 00  A1 42 24 3A 8B 42 24 B2  |.."...B..B$:.B$.|
00000500: 22 22 A7 36 36 00 0D 0D  44 00 89 37 36 00 41 0D  |"".66...D..76.A.|
00000510: 46 00 9F 31 35 2C 44 52  2C 31 35 2C 22 49 30 3A  |F..15,DR,15,"I0:|
00000520: 22 3A 9F 33 2C 44 52 2C  33 2C 22 30 3A 22 AA 59  |":.3,DR,3,"0:".Y|
00000530: 24 AA 22 20 43 41 4C 45  4E 44 41 52 2C 53 2C 57  |$." CALENDAR,S,W|
00000540: 22 00 5B 0D 48 00 84 31  35 2C 42 24 2C 43 24 3A  |".[.H..15,B$,C$:|
00000550: 8B 42 24 B3 22 31 39 22  89 38 30 00 92 0D 4A 00  |.B$."19".80...J.|
00000560: A0 33 3A A0 31 35 3A 99  46 4D 24 22 44 49 53 4B  |.3:.15:.FM$"DISK|
00000570: 20 45 52 52 4F 52 20 2D  2D 20 22 42 24 22 20 22  | ERROR -- "B$" "|
00000580: 43 24 3A 81 49 B2 31 A4  32 30 30 30 3A 82 3A 89  |C$:.I.1.2000:.:.|
00000590: 36 30 00 AD 0D 4C 00 9F  33 2C 33 AB 28 28 41 24  |60...L..3,3.((A$|
000005A0: B2 22 50 22 29 AA 28 50  52 B2 35 29 29 00 C9 0D  |."P").(PR.5))...|
000005B0: 4E 00 8F 20 2D 2D 2D 20  50 52 49 4E 54 20 48 45  |N.. --- PRINT HE|
000005C0: 41 44 49 4E 47 20 2D 2D  2D 00 05 0E 50 00 99 46  |ADING ---...P..F|
000005D0: 4D 24 22 57 4F 52 4B 49  4E 47 2E 2E 2E 22 3A 81  |M$"WORKING...":.|
000005E0: 49 B2 31 A4 B5 28 32 35  35 AD 28 C3 28 4E 24 29  |I.1..(255.(.(N$)|
000005F0: AA 31 29 29 3A 41 41 24  B2 41 41 24 AA 4E 24 AA  |.1)):AA$.AA$.N$.|
00000600: 53 31 24 3A 82 00 3E 0E  52 00 81 49 B2 31 A4 31  |S1$:..>.R..I.1.1|
00000610: 37 A9 34 3A 50 B2 2E 3A  81 4B B2 31 A4 34 3A 42  |7.4:P..:.K.1.4:B|
00000620: B2 C5 28 CA 28 59 24 28  4B 29 2C 49 AD 34 AA 31  |..(.(Y$(K),I.4.1|
00000630: 2C 31 29 29 3A 81 4C B2  32 A4 2E A9 AB 31 00 78  |,1)):.L.2....1.x|
00000640: 0E 54 00 8B 28 42 AF 32  AE 4C 29 B2 2E A7 81 4A  |.T..(B.2.L)....J|
00000650: B2 49 A4 49 AA 33 3A 48  24 28 4A 29 B2 48 24 28  |.I.I.3:H$(J).H$(|
00000660: 4A 29 AA 4E 41 24 AA 22  20 20 20 20 20 22 AA 4E  |J).NA$."     ".N|
00000670: 41 24 3A 82 3A 89 38 38  00 AA 0E 56 00 81 4A B2  |A$:.:.88...V..J.|
00000680: 49 A4 49 AA 33 3A 48 24  28 4A 29 B2 48 24 28 4A  |I.I.3:H$(J).H$(J|
00000690: 29 AA 52 56 24 AA CA 28  41 41 24 2C 4A AA 50 AC  |).RV$..(AA$,J.P.|
000006A0: 35 2C 35 29 AA 52 4F 24  3A 82 00 CF 0E 58 00 50  |5,5).RO$:....X.P|
000006B0: B2 50 AA 31 3A 82 3A 82  3A 82 3A 41 24 B2 22 20  |.P.1:.:.:.:A$." |
000006C0: 20 22 3A 4C B2 32 31 3A  81 49 B2 31 A4 32 30 00  | ":L.21:.I.1.20.|
000006D0: 11 0F 5A 00 4E 24 B2 C8  28 48 24 28 49 29 2C 4C  |..Z.N$..(H$(I),L|
000006E0: 29 AA 41 24 AA CA 28 48  24 28 49 29 2C 32 32 2C  |).A$..(H$(I),22,|
000006F0: 4C 29 AA 41 24 AA CA 28  48 24 28 49 29 2C 34 33  |L).A$..(H$(I),43|
00000700: 2C 4C 29 AA 41 24 AA C9  28 48 24 28 49 29 2C 4C  |,L).A$..(H$(I),L|
00000710: 29 00 32 0F 5C 00 98 33  2C 53 36 24 AA 22 20 22  |).2.\..3,S6$." "|
00000720: AA 4E 24 3A 82 3A 98 33  3A 98 33 3A 98 33 3A 4D  |.N$:.:.3:.3:.3:M|
00000730: B2 31 00 4F 0F 5E 00 8F  20 2D 2D 2D 20 50 52 49  |.1.O.^.. --- PRI|
00000740: 4E 54 20 43 41 4C 45 4E  44 41 52 20 2D 2D 2D 00  |NT CALENDAR ---.|
00000750: 76 0F 60 00 5A B2 B5 28  33 36 35 2E 32 35 AC 28  |v.`.Z..(365.25.(|
00000760: 59 AB 31 29 29 AA B5 28  33 30 2E 36 AC 28 4D AA  |Y.1))..(30.6.(M.|
00000770: 31 33 29 29 AB 31 00 A7  0F 62 00 81 49 B2 31 A4  |13)).1...b..I.1.|
00000780: 31 30 A9 33 3A 81 4A B2  49 A4 49 AA 32 3A 44 B2  |10.3:.J.I.I.2:D.|
00000790: 4D 28 4D 29 AA 28 59 AD  34 B2 B5 28 59 AD 34 29  |M(M).(Y.4..(Y.4)|
000007A0: 29 AC 28 4D B2 32 29 00  E1 0F 64 00 8B C9 28 59  |).(M.2)...d...(Y|
000007B0: 24 2C 32 29 B2 22 30 30  22 A7 59 43 B2 C5 28 C8  |$,2)."00".YC..(.|
000007C0: 28 59 24 2C 32 29 29 3A  44 B2 44 AB 28 59 43 AD  |(Y$,2)):D.D.(YC.|
000007D0: 34 B3 B1 B5 28 59 43 AD  34 29 29 AC 28 4D B2 32  |4...(YC.4)).(M.2|
000007E0: 29 00 1A 10 66 00 5A B2  5A AB B5 28 5A AD 37 29  |)...f.Z.Z..(Z.7)|
000007F0: AC 37 3A 51 24 28 31 29  B2 C8 28 C8 28 53 58 24  |.7:Q$(1)..(.(SX$|
00000800: 2C 33 AC 5A 29 AA 51 24  2C 32 31 29 3A 4C B2 37  |,3.Z).Q$,21):L.7|
00000810: AB 5A 3A 4B B2 31 3A 41  B2 2E 00 43 10 68 00 4B  |.Z:K.1:A...C.h.K|
00000820: B2 4B AA 31 3A 42 B2 41  3A 41 B2 28 4C AA 37 AA  |.K.1:B.A:A.(L.7.|
00000830: 44 AB B6 28 4C AA 37 AB  44 29 29 AD 32 3A 5A B2  |D..(L.7.D)).2:Z.|
00000840: 41 AB 42 00 67 10 6A 00  51 24 28 4B 29 B2 C8 28  |A.B.g.j.Q$(K)..(|
00000850: CA 28 51 24 2C 33 AC 4C  AA 31 2C 33 AC 5A 29 AA  |.(Q$,3.L.1,3.Z).|
00000860: 53 58 24 2C 32 31 29 00  8C 10 6C 00 4C B2 4C AA  |SX$,21)...l.L.L.|
00000870: 37 3A 91 AB 28 41 B3 44  29 89 31 30 34 3A 8B 4B  |7:..(A.D).104:.K|
00000880: B2 35 A7 51 24 28 36 29  B2 53 58 24 00 C2 10 6E  |.5.Q$(6).SX$...n|
00000890: 00 81 4B B2 31 A4 36 3A  43 24 28 4B 29 B2 43 24  |..K.1.6:C$(K).C$|
000008A0: 28 4B 29 AA 22 20 20 22  AA 51 24 28 4B 29 3A 51  |(K)."  ".Q$(K):Q|
000008B0: 24 28 4B 29 B2 53 58 24  3A 82 3A 4D B2 4D AA 31  |$(K).SX$:.:M.M.1|
000008C0: 3A 82 00 E9 10 70 00 98  33 2C 53 36 24 AA 4D 24  |:....p..3,S6$.M$|
000008D0: 28 4A AD 33 29 3A 98 33  3A 98 33 2C 53 36 24 AA  |(J.3):.3:.3,S6$.|
000008E0: 44 24 3A 81 4B B2 31 A4  36 00 1A 11 72 00 98 33  |D$:.K.1.6...r..3|
000008F0: 2C 22 20 20 20 20 20 22  AA 43 24 28 4B 29 3A 43  |,"     ".C$(K):C|
00000900: 24 28 4B 29 B2 22 22 3A  82 3A 98 33 3A 82 3A 81  |$(K)."":.:.3:.:.|
00000910: 49 B2 31 A4 33 3A 98 33  3A 82 00 51 11 74 00 A0  |I.1.3:.3:..Q.t..|
00000920: 33 3A A0 31 35 3A 99 46  4D 24 22 44 4F 4E 45 2E  |3:.15:.FM$"DONE.|
00000930: 2E 2E 48 49 54 20 41 4E  59 20 4B 45 59 20 54 4F  |..HIT ANY KEY TO|
00000940: 20 43 4F 4E 54 49 4E 55  45 22 3A 8D 31 32 30 3A  | CONTINUE":.120:|
00000950: 99 00 86 11 76 00 99 46  4D 24 22 4D 41 4B 45 20  |....v..FM$"MAKE |
00000960: 41 4E 4F 54 48 45 52 3F  20 28 59 2F 4E 29 22 3A  |ANOTHER? (Y/N)":|
00000970: 8D 31 32 30 3A 91 AB 28  41 24 B3 B1 22 59 22 29  |.120:..(A$.."Y")|
00000980: 89 31 32 36 3A 8A 00 99  11 78 00 A1 41 24 3A 8B  |.126:....x..A$:.|
00000990: 41 24 B2 22 22 A7 31 32  30 00 9F 11 7A 00 8E 00  |A$."".120...z...|
000009A0: B2 11 7C 00 8F 20 2D 2D  2D 20 44 41 54 41 20 2D  |..|.. --- DATA -|
000009B0: 2D 2D 00 DB 11 7E 00 83  33 31 2C 32 38 2C 33 31  |--...~..31,28,31|
000009C0: 2C 33 30 2C 33 31 2C 33  30 2C 33 31 2C 33 31 2C  |,30,31,30,31,31,|
000009D0: 33 30 2C 33 31 2C 33 30  2C 33 31 00 F9 11 80 00  |30,31,30,31.....|
000009E0: 83 22 20 53 55 20 4D 4F  20 54 55 20 57 45 20 54  |." SU MO TU WE T|
000009F0: 48 20 46 52 20 53 41 20  22 00 3E 12 82 00 83 22  |H FR SA ".>...."|
00000A00: 20 4A 41 4E 55 41 52 59  22 2C 22 46 45 42 52 55  | JANUARY","FEBRU|
00000A10: 41 52 59 22 2C 22 20 20  4D 41 52 43 48 22 2C 22  |ARY","  MARCH","|
00000A20: 20 20 41 50 52 49 4C 20  22 2C 22 20 20 4D 41 59  |  APRIL ","  MAY|
00000A30: 20 20 20 22 2C 22 20 20  20 4A 55 4E 45 22 00 86  |   ","   JUNE"..|
00000A40: 12 84 00 83 22 20 20 4A  55 4C 59 20 20 22 2C 22  |...."  JULY  ","|
00000A50: 20 41 55 47 55 53 54 20  22 2C 22 53 45 50 54 45  | AUGUST ","SEPTE|
00000A60: 4D 42 45 52 22 2C 22 20  4F 43 54 4F 42 45 52 22  |MBER"," OCTOBER"|
00000A70: 2C 22 4E 4F 56 45 4D 42  45 52 22 2C 22 44 45 43  |,"NOVEMBER","DEC|
00000A80: 45 4D 42 45 52 22 00 C0  12 86 00 83 22 37 32 37  |EMBER"......"727|
00000A90: 37 35 37 37 37 37 37 35  36 31 31 35 34 34 31 35  |7577777561154415|
00000AA0: 35 35 32 37 33 37 37 37  31 37 37 35 32 34 31 31  |5527377717752411|
00000AB0: 31 35 31 35 31 37 37 37  37 31 37 37 31 37 37 22  |151517777177177"|
00000AC0: 00 00 00                                          |...             |

..H.... COPYRIGHT 1987 COMPUTE! PUBLICAT
IONS, INC. - ALL RIGHTS RESERVED...... D
RIVE#  PRINTER#  REVERSE ON  REVERSE OFF
  SPACER.....DR.8:PR.4:RV$.G(18):RO$.G(1
46):SP$."*".....S1$." ":.I.1.21:SX$.SX$.
S1$:.:S6$.H(SX$,6):NA$.G(0)......G(142)G
(8):.M(12),Y$(4),Q$(6),H$(25),C$(6),M$(4
).E....I.1.12:.M(I):.:.D$:D$.D$." ".D$."
 ".D$......I.1.4:.A$,B$,C$:M$(I).S6$.A$.
H(SX$,15).B$.H(SX$,15).C$:.......I.1.31:
Q$.Q$.I(D(I),2)." ":.:.F$.....FM$.G(17).
P.... --- PARSE YEAR ---......G(147)".  
 COPYRIGHT 1987 COMPUTE! PUB., INC.".#..
...10)"ALL RIGHTS RESERVED".Y....FM$.13)
"CALENDAR MAKER":..13)"--------------"FM
$......"WHAT YEAR WOULD YOU LIKE";Y$:.C(
Y$).2.Y$."19".Y$.....Y.E(Y$):.Y.1900.Y.2
050.26... ..J.1.4:.I...4:Y$(J).Y$(J).J(F
$,I.10.E(J(Y$,J,1)).1,1)..."..:....$.. -
-- GET TEXT ---.8.&..FM$"ENTER TEXT (254
 CHAR. MAX).":.FM$">> ";.J.(..A$:.A$."".
40.[.*..A$.G(13).52...,..A$.G(20).N$."".
N$.H(N$,C(N$).1):.48.......(A$." ".(A$.G
(127).A$.G(160)).C(N$).254).40:N$.N$.A$.
L.0..A$;:.40...2.. --- REVERSE? ---...4.
.:.FM$"REVERSE YEAR HEADING? (Y/N) ":.12
0.5.6...(A$."Y").(A$."N").2.60,56:.52.Q.
8.RV$.NA$:RO$.NA$:S1$.SP$.F.:.. --- WHER
E? ---...<..FM$"(S)CREEN, (P)RINTER, OR 
(D)ISK?":.120.G.>...(A$."S").(A$."P").2.
(A$."D").3.76,64,70:.52...@..FM$"SET UP 
PRINTER AND HIT ANY KEY..."...B..B$:.B$.
"".66...D..76.A.F..15,DR,15,"I0:":.3,DR,
3,"0:".Y$." CALENDAR,S,W".[.H..15,B$,C$:
.B$."19".80...J. 3: 15:.FM$"DISK ERROR -
- "B$" "C$:.I.1.2000:.:.60...L..3,3.((A$
."P").(PR.5)).I.N.. --- PRINT HEADING --
-...P..FM$"WORKING...":.I.1..(255.(C(N$)
.1)):AA$.AA$.N$.S1$:..>.R..I.1.17.4:P..:
.K.1.4:B.E(J(Y$(K),I.4.1,1)):.L.2....1.X
.T..(B.2.L)....J.I.I.3:H$(J).H$(J).NA$."
     ".NA$:.:.88...V..J.I.I.3:H$(J).H$(J
).RV$.J(AA$,J.P.5,5).RO$:..O.X.P.P.1:.:.
:.:A$."  ":L.21:.I.1.20...Z.N$.H(H$(I),L
).A$.J(H$(I),22,L).A$.J(H$(I),43,L).A$.I
(H$(I),L).2.\..3,S6$." ".N$:.:.3:.3:.3:M
.1.O.^.. --- PRINT CALENDAR ---.V.`.Z..(
365.25.(Y.1))..(30.6.(M.13)).1...B..I.1.
10.3:.J.I.I.2:D.M(M).(Y.4..(Y.4)).(M.2).
..D..I(Y$,2)."00".YC.E(H(Y$,2)):D.D.(YC.
4...(YC.4)).(M.2)...F.Z.Z..(Z.7).7:Q$(1)
.H(H(SX$,3.Z).Q$,21):L.7.Z:K.1:A...C.H.K
.K.1:B.A:A.(L.7.D..(L.7.D)).2:Z.A.B.G.J.
Q$(K).H(J(Q$,3.L.1,3.Z).SX$,21)...L.L.L.
7:..(A.D).104:.K.5.Q$(6).SX$.B.N..K.1.6:
C$(K).C$(K)."  ".Q$(K):Q$(K).SX$:.:M.M.1
:....P..3,S6$.M$(J.3):.3:.3,S6$.D$:.K.1.
6...R..3,"     ".C$(K):C$(K)."":.:.3:.:.
I.1.3:.3:..Q.T. 3: 15:.FM$"DONE...HIT AN
Y KEY TO CONTINUE":.120:....V..FM$"MAKE 
ANOTHER? (Y/N)":.120:..(A$.."Y").126:...
.X..A$:.A$."".120...Z.....|.. --- DATA -
--...~..31,28,31,30,31,30,31,31,30,31,30
,31......" SU MO TU WE TH FR SA ".>...."
 JANUARY","FEBRUARY","  MARCH","  APRIL 
","  MAY   ","   JUNE"......"  JULY  ","
 AUGUST ","SEPTEMBER"," OCTOBER","NOVEMB
ER","DECEMBER"......"7277577777561154415
5527377717752411151517777177177"...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL