/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C128Software / DAILY-DIARY

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 1c 1d 1c 01 00 99 22 | 93 22 3a 97 35 33 32 38 |......."|.":.5328|
|00000010| 30 2c 31 31 3a 97 35 33 | 32 38 31 2c 30 00 af 1c |0,11:.53|281,0...|
|00000020| 02 00 99 22 11 11 11 11 | 11 11 11 11 11 81 20 20 |..."....|......  |
|00000030| 2a 20 54 48 45 20 4d 4f | 4e 54 48 4c 59 20 43 41 |* THE MO|NTHLY CA|
|00000040| 4c 45 4e 44 41 52 20 44 | 41 54 45 20 4b 45 45 50 |LENDAR D|ATE KEEP|
|00000050| 45 52 20 2a 22 3a 99 22 | 20 20 20 20 20 20 20 20 |ER *":."|        |
|00000060| 20 50 52 4f 47 52 41 4d | 20 42 59 20 45 44 20 50 | PROGRAM| BY ED P|
|00000070| 41 52 56 49 4e 22 3a 99 | 22 20 20 20 20 20 20 20 |ARVIN":.|"       |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 31 39 38 38 22 3a |        |  1988":|
|00000090| 99 22 11 20 20 20 20 20 | 20 20 20 20 20 20 31 32 |.".     |      12|
|000000a0| 38 2d 34 30 20 4f 52 20 | 38 30 20 43 4f 4c 2e 00 |8-40 OR |80 COL..|
|000000b0| d9 1c 03 00 99 22 05 11 | 11 20 44 4f 20 59 4f 55 |....."..|. DO YOU|
|000000c0| 20 4e 45 45 44 20 49 4e | 53 54 52 55 43 54 49 4f | NEED IN|STRUCTIO|
|000000d0| 4e 53 20 59 2f 4e 20 3f | 22 00 ea 1c 04 00 a1 51 |NS Y/N ?|"......Q|
|000000e0| 24 3a 8b 51 24 b2 22 22 | a7 34 00 fa 1c 05 00 8b |$:.Q$.""|.4......|
|000000f0| 51 24 b2 22 59 22 a7 38 | 30 30 00 0a 1d 06 00 8b |Q$."Y".8|00......|
|00000100| 51 24 b3 b1 22 4e 22 a7 | 20 33 00 20 1d 09 00 86 |Q$.."N".| 3. ....|
|00000110| 41 24 28 31 30 30 29 3a | 86 42 24 28 31 30 30 29 |A$(100):|.B$(100)|
|00000120| 00 29 1d 0a 00 99 22 93 | 22 00 5a 1d 0f 00 99 22 |.)....".|".Z...."|
|00000130| 05 44 4f 20 59 4f 55 20 | 57 41 4e 54 20 54 4f 20 |.DO YOU |WANT TO |
|00000140| 53 45 45 20 41 20 43 41 | 4c 45 4e 44 41 52 20 28 |SEE A CA|LENDAR (|
|00000150| 59 29 45 53 2d 28 4e 29 | 4f 22 00 6c 1d 14 00 a1 |Y)ES-(N)|O".l....|
|00000160| 51 24 3a 8b 51 24 b2 22 | 22 a7 32 30 00 7f 1d 1e |Q$:.Q$."|".20....|
|00000170| 00 8b 20 51 24 20 b2 22 | 59 22 a7 31 30 30 30 00 |.. Q$ ."|Y".1000.|
|00000180| 95 1d 28 00 99 22 44 4f | 20 59 4f 55 20 57 41 4e |..(.."DO| YOU WAN|
|00000190| 54 20 54 4f 22 00 bb 1d | 2d 00 99 22 9f 28 52 29 |T TO"...|-..".(R)|
|000001a0| 45 41 44 20 4f 52 96 28 | 57 29 52 49 54 45 20 4f |EAD OR.(|W)RITE O|
|000001b0| 52 9e 28 41 29 50 50 45 | 4e 44 22 00 e5 1d 2f 00 |R.(A)PPE|ND".../.|
|000001c0| 99 22 9b 59 4f 55 52 20 | 4d 4f 4e 54 48 4c 59 20 |.".YOUR |MONTHLY |
|000001d0| 43 41 4c 45 4e 44 41 52 | 20 44 41 54 45 20 4b 45 |CALENDAR| DATE KE|
|000001e0| 45 50 45 52 22 00 ed 1d | 32 00 85 5a 24 00 fd 1d |EPER"...|2..Z$...|
|000001f0| 37 00 8b 5a 24 b2 22 52 | 22 a7 31 30 30 00 0d 1e |7..Z$."R|".100...|
|00000200| 3c 00 8b 5a 24 b2 22 57 | 22 a7 32 30 30 00 1d 1e |<..Z$."W|".200...|
|00000210| 41 00 8b 5a 24 b2 22 41 | 22 a7 34 30 30 00 56 1e |A..Z$."A|".400.V.|
|00000220| 46 00 8b 5a 24 b3 b1 22 | 52 22 b0 5a 24 b3 b1 22 |F..Z$.."|R".Z$.."|
|00000230| 57 22 b0 5a 24 b3 b1 22 | 41 22 a7 99 22 96 57 52 |W".Z$.."|A"..".WR|
|00000240| 4f 4e 47 20 4b 45 59 20 | 54 52 59 20 41 47 41 49 |ONG KEY |TRY AGAI|
|00000250| 4e 22 3a 89 35 30 00 72 | 1e 64 00 8f 20 52 45 41 |N":.50.r|.d.. REA|
|00000260| 44 20 41 20 46 49 4c 45 | 20 4c 31 30 30 2d 4c 31 |D A FILE| L100-L1|
|00000270| 39 39 00 cd 1e 65 00 99 | 22 9f 57 48 49 43 48 20 |99...e..|".WHICH |
|00000280| 46 49 4c 45 20 44 4f 20 | 59 4f 55 20 57 41 4e 54 |FILE DO |YOU WANT|
|00000290| 20 54 4f 20 52 45 41 44 | 22 3a 99 22 9a 4a 41 4e | TO READ|":.".JAN|
|000002a0| 2d 46 45 42 2d 4d 41 52 | 2d 41 50 52 2d 4d 41 59 |-FEB-MAR|-APR-MAY|
|000002b0| 2d 4a 55 4e 2d 4a 55 4c | 2d 41 55 47 2d 53 45 50 |-JUN-JUL|-AUG-SEP|
|000002c0| 2d 4f 43 54 2d 4e 4f 56 | 2d 44 45 43 22 00 dd 1e |-OCT-NOV|-DEC"...|
|000002d0| 69 00 85 22 4d 4f 4e 54 | 48 22 3b 59 24 00 f4 1e |i.."MONT|H";Y$...|
|000002e0| 6e 00 fe 0d 23 31 32 2c | 22 4d 4f 4e 54 48 22 aa |n...#12,|"MONTH".|
|000002f0| 59 24 2c 52 00 12 1f 6f | 00 99 22 96 22 3b 44 53 |Y$,R...o|..".";DS|
|00000300| 24 3b 3a 99 22 20 46 49 | 4c 45 20 53 54 41 54 55 |$;:." FI|LE STATU|
|00000310| 53 22 00 4d 1f 70 00 8b | 44 53 24 b2 22 36 32 2c |S".M.p..|DS$."62,|
|00000320| 20 46 49 4c 45 20 4e 4f | 54 20 46 4f 55 4e 44 2c | FILE NO|T FOUND,|
|00000330| 30 30 2c 30 30 22 a7 99 | 22 05 54 52 59 20 41 47 |00,00"..|".TRY AG|
|00000340| 41 49 4e 20 59 2f 4e 22 | 3a 89 31 31 34 00 56 1f |AIN Y/N"|:.114.V.|
|00000350| 71 00 89 31 32 30 00 69 | 1f 72 00 a1 51 24 3a 8b |q..120.i|.r..Q$:.|
|00000360| 51 24 b2 22 22 a7 31 31 | 34 00 86 1f 73 00 8b 51 |Q$."".11|4...s..Q|
|00000370| 24 b2 22 59 22 a7 20 99 | 22 93 22 3a fe 0f 23 31 |$."Y". .|".":..#1|
|00000380| 32 3a 89 31 30 30 00 8f | 1f 75 00 89 31 39 30 00 |2:.100..|.u..190.|
|00000390| 97 1f 78 00 58 b2 30 00 | dd 1f 79 00 99 22 9b 49 |..x.X.0.|..y..".I|
|000003a0| 4e 53 54 45 41 44 20 4f | 46 20 41 20 46 49 4c 45 |NSTEAD O|F A FILE|
|000003b0| 20 53 45 41 52 43 48 20 | 57 4f 55 4c 44 20 59 4f | SEARCH |WOULD YO|
|000003c0| 55 20 4c 49 4b 45 22 3a | 85 22 41 20 46 49 4c 45 |U LIKE":|."A FILE|
|000003d0| 20 44 55 4d 50 20 59 2f | 4e 22 3b 57 24 00 f1 1f | DUMP Y/|N";W$...|
|000003e0| 7d 00 84 31 32 2c 41 24 | 28 58 29 2c 42 24 28 58 |}..12,A$|(X),B$(X|
|000003f0| 29 00 0b 20 7f 00 8b 57 | 24 b2 22 59 22 a7 20 99 |).. ...W|$."Y". .|
|00000400| 41 24 28 58 29 3b 42 24 | 28 58 29 00 27 20 81 00 |A$(X);B$|(X).' ..|
|00000410| 8b ca 28 41 24 28 58 29 | 2c 31 2c 33 29 b2 22 45 |..(A$(X)|,1,3)."E|
|00000420| 4e 44 22 a7 31 34 39 00 | 31 20 82 00 58 b2 58 aa |ND".149.|1 ..X.X.|
|00000430| 31 00 3a 20 8c 00 89 31 | 32 35 00 4a 20 95 00 8b |1.: ...1|25.J ...|
|00000440| 57 24 b2 22 59 22 a7 31 | 39 30 00 5c 20 96 00 99 |W$."Y".1|90.\ ...|
|00000450| 22 9a 4d 4f 4e 54 48 20 | 22 3b 59 24 00 7d 20 97 |".MONTH |";Y$.} .|
|00000460| 00 85 22 05 44 41 54 45 | 20 54 4f 20 53 45 41 52 |..".DATE| TO SEAR|
|00000470| 43 48 20 41 53 20 58 2f | 58 22 3b 41 24 00 89 20 |CH AS X/|X";A$.. |
|00000480| 98 00 4c b2 c3 28 41 24 | 29 00 91 20 9b 00 58 b2 |..L..(A$|).. ..X.|
|00000490| 30 00 bd 20 9d 00 8b ca | 28 41 24 28 58 29 2c 31 |0.. ....|(A$(X),1|
|000004a0| 2c 4c aa 31 29 b2 41 24 | aa 22 20 22 a7 99 41 24 |,L.1).A$|." "..A$|
|000004b0| 28 58 29 3b 22 20 22 3b | 42 24 28 58 29 00 fc 20 |(X);" ";|B$(X).. |
|000004c0| 9e 00 8f 31 35 37 2a 49 | 46 20 31 2f 31 3d 4c 45 |...157*I|F 1/1=LE|
|000004d0| 4e 33 20 31 2f 31 30 20 | 4d 41 54 43 48 20 33 20 |N3 1/10 |MATCH 3 |
|000004e0| 41 4c 53 4f 20 53 4f 20 | 4d 55 53 54 20 55 53 45 |ALSO SO |MUST USE|
|000004f0| 20 53 50 41 43 45 20 43 | 48 45 43 4b 00 06 21 a5 | SPACE C|HECK..!.|
|00000500| 00 58 b2 58 aa 31 00 22 | 21 aa 00 8b ca 28 41 24 |.X.X.1."|!....(A$|
|00000510| 28 58 29 2c 31 2c 33 29 | b2 22 45 4e 44 22 a7 31 |(X),1,3)|."END".1|
|00000520| 38 30 00 2b 21 af 00 89 | 31 35 37 00 45 21 b4 00 |80.+!...|157.E!..|
|00000530| 99 22 9e 41 4c 4c 20 4d | 41 54 43 48 45 53 20 46 |.".ALL M|ATCHES F|
|00000540| 4f 55 4e 44 22 00 60 21 | b9 00 99 22 41 4e 4f 54 |OUND".`!|..."ANOT|
|00000550| 48 45 52 20 4d 41 54 43 | 48 20 59 2f 4e 20 3f 22 |HER MATC|H Y/N ?"|
|00000560| 00 73 21 bb 00 a1 51 24 | 3a 8b 51 24 b2 22 22 a7 |.s!...Q$|:.Q$."".|
|00000570| 31 38 37 00 83 21 bc 00 | 8b 51 24 b2 22 59 22 a7 |187..!..|.Q$."Y".|
|00000580| 31 35 30 00 8d 21 be 00 | fe 0f 23 31 32 00 bc 21 |150..!..|..#12..!|
|00000590| c0 00 99 22 05 44 4f 20 | 59 4f 55 20 57 41 4e 54 |...".DO |YOU WANT|
|000005a0| 20 54 4f 20 44 4f 20 53 | 4f 4d 45 54 48 49 4e 47 | TO DO S|OMETHING|
|000005b0| 20 45 4c 53 45 20 59 2f | 4e 20 3f 22 00 cf 21 c2 | ELSE Y/|N ?"..!.|
|000005c0| 00 a1 51 24 3a 8b 51 24 | b2 22 22 a7 31 39 34 00 |..Q$:.Q$|."".194.|
|000005d0| de 21 c4 00 8b 51 24 b2 | 22 59 22 a7 31 30 00 f2 |.!...Q$.|"Y".10..|
|000005e0| 21 c7 00 80 3a 20 8f 20 | 50 52 47 20 4d 41 52 4b |!...: . |PRG MARK|
|000005f0| 45 52 00 0f 22 c8 00 8f | 20 57 52 49 54 45 20 41 |ER.."...| WRITE A|
|00000600| 20 46 49 4c 45 20 4c 32 | 30 30 2d 4c 33 34 30 00 | FILE L2|00-L340.|
|00000610| 51 22 d2 00 99 22 96 43 | 41 55 54 49 4f 4e 3a 20 |Q"...".C|AUTION: |
|00000620| 57 49 54 48 4f 55 54 20 | 41 20 46 52 45 53 48 20 |WITHOUT |A FRESH |
|00000630| 44 49 53 4b 20 54 48 49 | 53 20 57 49 4c 4c 20 44 |DISK THI|S WILL D|
|00000640| 45 53 54 52 4f 59 20 4f | 4c 44 20 46 49 4c 45 53 |ESTROY O|LD FILES|
|00000650| 22 00 80 22 d7 00 99 22 | 49 46 20 59 4f 55 20 57 |".."..."|IF YOU W|
|00000660| 41 4e 54 20 54 4f 20 41 | 44 44 20 54 4f 20 41 20 |ANT TO A|DD TO A |
|00000670| 46 49 4c 45 20 55 53 45 | 20 41 50 50 45 4e 44 22 |FILE USE| APPEND"|
|00000680| 00 a2 22 dc 00 99 22 05 | 44 4f 20 59 4f 55 20 57 |.."...".|DO YOU W|
|00000690| 49 53 48 20 54 4f 20 47 | 4f 20 4f 4e 20 59 2f 4e |ISH TO G|O ON Y/N|
|000006a0| 3f 22 00 b5 22 e1 00 a1 | 51 24 3a 8b 51 24 b2 22 |?".."...|Q$:.Q$."|
|000006b0| 22 a7 32 32 35 00 c5 22 | e6 00 8b 51 24 b2 22 59 |".225.."|...Q$."Y|
|000006c0| 22 a7 32 33 35 00 cd 22 | e8 00 89 31 30 00 38 23 |".235.."|...10.8#|
|000006d0| eb 00 99 22 96 49 4e 50 | 55 54 20 41 20 46 49 4c |...".INP|UT A FIL|
|000006e0| 45 20 54 4f 20 57 52 49 | 54 45 22 3a 99 22 9a 55 |E TO WRI|TE":.".U|
|000006f0| 53 49 4e 47 3a 2d 4a 41 | 4e 2d 46 45 42 2d 4d 41 |SING:-JA|N-FEB-MA|
|00000700| 52 2d 41 50 52 2d 4d 41 | 59 2d 4a 55 4e 2d 4a 55 |R-APR-MA|Y-JUN-JU|
|00000710| 4c 2d 41 55 47 2d 20 20 | 20 53 45 50 2d 4f 43 54 |L-AUG-  | SEP-OCT|
|00000720| 2d 4e 4f 56 2d 44 45 43 | 2d 3a 46 4f 52 20 46 49 |-NOV-DEC|-:FOR FI|
|00000730| 4c 45 20 4e 41 4d 45 22 | 00 69 23 ec 00 99 22 05 |LE NAME"|.i#...".|
|00000740| 55 53 45 96 45 4e 44 2c | 45 4e 44 2c 05 57 48 45 |USE.END,|END,.WHE|
|00000750| 4e 20 46 49 4e 49 53 48 | 45 44 20 45 4e 54 45 52 |N FINISH|ED ENTER|
|00000760| 49 4e 47 20 44 41 54 41 | 22 00 99 23 ed 00 99 22 |ING DATA|"..#..."|
|00000770| 9e 59 4f 55 20 43 41 4e | 20 48 41 56 45 20 41 20 |.YOU CAN| HAVE A |
|00000780| 48 55 4e 44 52 45 44 20 | 45 4e 54 52 49 45 53 20 |HUNDRED |ENTRIES |
|00000790| 50 45 52 20 46 49 4c 45 | 22 00 aa 23 f0 00 85 22 |PER FILE|"..#..."|
|000007a0| 9a 4d 4f 4e 54 48 22 3b | 5a 24 00 e5 23 f1 00 8b |.MONTH";|Z$..#...|
|000007b0| 20 c3 28 5a 24 29 b3 b1 | 33 a7 20 99 22 96 50 4c | .(Z$)..|3. .".PL|
|000007c0| 45 41 53 45 20 55 53 45 | 20 33 20 4c 45 54 54 45 |EASE USE| 3 LETTE|
|000007d0| 52 20 4d 4f 4e 54 48 2d | 2d 4e 4f 20 28 2e 29 22 |R MONTH-|-NO (.)"|
|000007e0| 3a 89 32 34 30 00 1c 24 | f2 00 99 22 05 50 55 54 |:.240..$|...".PUT|
|000007f0| 20 41 20 46 49 4c 45 20 | 44 49 53 4b 20 49 4e 20 | A FILE |DISK IN |
|00000800| 44 52 49 56 45 20 41 4e | 44 20 50 52 45 53 53 22 |DRIVE AN|D PRESS"|
|00000810| 3a 85 22 52 45 54 55 52 | 4e 22 3b 5a 00 34 24 f5 |:."RETUR|N";Z.4$.|
|00000820| 00 fe 0d 23 31 32 2c 22 | 40 4d 4f 4e 54 48 22 aa |...#12,"|@MONTH".|
|00000830| 5a 24 2c 57 00 5d 24 fa | 00 99 22 9b 49 4e 50 55 |Z$,W.]$.|..".INPU|
|00000840| 54 20 44 41 54 45 20 41 | 53 20 58 2f 58 2c 20 4e |T DATE A|S X/X, N|
|00000850| 4f 20 59 45 41 52 2c 20 | 54 48 45 4e 22 00 8b 24 |O YEAR, |THEN"..$|
|00000860| ff 00 99 22 49 4e 46 4f | 52 4d 41 54 49 4f 4e 20 |..."INFO|RMATION |
|00000870| 41 42 4f 55 54 20 44 41 | 54 45 20 28 4c 49 4d 49 |ABOUT DA|TE (LIMI|
|00000880| 54 20 33 20 4c 49 4e 45 | 53 29 22 00 b1 24 04 01 |T 3 LINE|S)"..$..|
|00000890| 99 22 45 58 41 4d 50 4c | 45 3a 05 31 2f 31 96 2c |."EXAMPL|E:.1/1.,|
|000008a0| 05 4e 45 57 20 59 45 41 | 52 53 20 50 41 52 54 59 |.NEW YEA|RS PARTY|
|000008b0| 22 00 d3 24 06 01 99 22 | 9b 55 53 45 96 45 4e 44 |"..$..."|.USE.END|
|000008c0| 2c 45 4e 44 9b 57 48 45 | 4e 20 46 49 4e 49 53 48 |,END.WHE|N FINISH|
|000008d0| 45 44 22 00 ed 24 09 01 | 58 b2 30 3a 43 52 24 b2 |ED"..$..|X.0:CR$.|
|000008e0| c7 28 31 33 29 3a 8f 20 | 53 50 41 43 45 00 f9 24 |.(13):. |SPACE..$|
|000008f0| 0b 01 99 22 9a 22 3b 5a | 24 00 11 25 0e 01 85 22 |...".";Z|$..%..."|
|00000900| 05 44 41 54 45 2c 49 4e | 46 4f 22 3b 41 24 2c 42 |.DATE,IN|FO";A$,B|
|00000910| 24 00 3d 25 13 01 8b 41 | 24 b2 22 45 4e 44 22 af |$.=%...A|$."END".|
|00000920| 20 42 24 b2 22 45 4e 44 | 22 a7 20 98 31 32 2c 41 | B$."END|". .12,A|
|00000930| 24 2c 43 52 24 2c 42 24 | 3a 89 33 32 30 00 74 25 |$,CR$,B$|:.320.t%|
|00000940| 15 01 8b c3 28 41 24 29 | b3 33 20 b0 20 c3 28 41 |....(A$)|.3 . .(A|
|00000950| 24 29 b1 35 20 a7 20 99 | 22 96 44 41 54 45 20 45 |$).5 . .|".DATE E|
|00000960| 4e 54 45 52 45 44 20 57 | 52 4f 4e 47 22 3a cb 20 |NTERED W|RONG":. |
|00000970| a4 32 37 30 00 91 25 18 | 01 99 22 9e 49 53 20 54 |.270..%.|..".IS T|
|00000980| 48 49 53 20 43 4f 52 52 | 45 43 54 3f 2d 59 2f 4e |HIS CORR|ECT?-Y/N|
|00000990| 22 00 a4 25 1d 01 a1 51 | 24 3a 8b 51 24 b2 22 22 |"..%...Q|$:.Q$.""|
|000009a0| a7 32 38 35 00 b5 25 22 | 01 8b 20 51 24 b2 22 4e |.285..%"|.. Q$."N|
|000009b0| 22 a7 32 37 30 00 c7 25 | 27 01 98 31 32 2c 41 24 |".270..%|'..12,A$|
|000009c0| 2c 43 52 24 2c 42 24 00 | d1 25 2c 01 58 b2 58 aa |,CR$,B$.|.%,.X.X.|
|000009d0| 31 00 ec 25 31 01 99 22 | 9b 45 4e 54 52 59 22 3b |1..%1.."|.ENTRY";|
|000009e0| 58 22 20 43 4f 4d 50 4c | 45 54 45 22 00 1e 26 36 |X" COMPL|ETE"..&6|
|000009f0| 01 8b 58 b2 31 30 30 a7 | 20 99 22 96 2a 46 49 4c |..X.100.| .".*FIL|
|00000a00| 45 20 49 53 20 46 55 4c | 4c 2a 20 49 4e 50 55 54 |E IS FUL|L* INPUT|
|00000a10| 20 45 4e 44 2c 45 4e 44 | 22 3a 89 32 37 30 00 27 | END,END|":.270.'|
|00000a20| 26 3b 01 89 32 36 37 00 | 31 26 40 01 fe 0f 23 31 |&;..267.|1&@...#1|
|00000a30| 32 00 60 26 45 01 99 22 | 05 44 4f 20 59 4f 55 20 |2.`&E.."|.DO YOU |
|00000a40| 57 41 4e 54 20 54 4f 20 | 44 4f 20 53 4f 4d 45 54 |WANT TO |DO SOMET|
|00000a50| 48 49 4e 47 20 45 4c 53 | 45 20 59 2f 4e 20 3f 22 |HING ELS|E Y/N ?"|
|00000a60| 00 73 26 4a 01 a1 51 24 | 3a 8b 51 24 b2 22 22 a7 |.s&J..Q$|:.Q$."".|
|00000a70| 33 33 30 00 82 26 4f 01 | 8b 51 24 b2 22 59 22 a7 |330..&O.|.Q$."Y".|
|00000a80| 31 30 00 96 26 54 01 80 | 3a 20 8f 20 50 52 47 20 |10..&T..|: . PRG |
|00000a90| 4d 41 52 4b 45 52 00 b4 | 26 90 01 8f 20 41 50 50 |MARKER..|&... APP|
|00000aa0| 45 4e 44 20 41 20 46 49 | 4c 45 20 4c 34 30 30 2d |END A FI|LE L400-|
|00000ab0| 4c 36 32 30 00 ca 26 91 | 01 99 22 9e 41 50 50 45 |L620..&.|..".APPE|
|00000ac0| 4e 44 20 41 20 46 49 4c | 45 22 00 02 27 95 01 99 |ND A FIL|E"..'...|
|00000ad0| 22 9e 54 48 49 53 20 57 | 49 4c 4c 20 52 45 54 41 |".THIS W|ILL RETA|
|00000ae0| 49 4e 20 59 4f 55 52 20 | 4f 4c 44 20 46 49 4c 45 |IN YOUR |OLD FILE|
|00000af0| 53 20 41 4e 44 20 41 44 | 44 20 54 4f 20 54 48 45 |S AND AD|D TO THE|
|00000b00| 4d 22 00 23 27 9a 01 99 | 22 05 44 4f 20 59 4f 55 |M".#'...|".DO YOU|
|00000b10| 20 57 49 53 48 20 54 4f | 20 47 4f 20 4f 4e 20 59 | WISH TO| GO ON Y|
|00000b20| 2f 4e 22 00 36 27 9f 01 | a1 51 24 3a 8b 51 24 b2 |/N".6'..|.Q$:.Q$.|
|00000b30| 22 22 a7 34 31 35 00 46 | 27 a4 01 8b 51 24 b2 22 |"".415.F|'...Q$."|
|00000b40| 59 22 a7 34 33 30 00 4f | 27 a9 01 89 36 30 30 00 |Y".430.O|'...600.|
|00000b50| ba 27 ae 01 99 22 9a 49 | 4e 50 55 54 20 41 20 46 |.'...".I|NPUT A F|
|00000b60| 49 4c 45 20 54 4f 20 41 | 50 50 45 4e 44 22 3a 99 |ILE TO A|PPEND":.|
|00000b70| 22 55 53 49 4e 47 3a 2d | 4a 41 4e 2d 46 45 42 2d |"USING:-|JAN-FEB-|
|00000b80| 4d 41 52 2d 41 50 52 2d | 4d 41 59 2d 4a 55 4e 2d |MAR-APR-|MAY-JUN-|
|00000b90| 4a 55 4c 2d 41 55 47 2d | 20 20 20 53 45 50 2d 4f |JUL-AUG-|   SEP-O|
|00000ba0| 43 54 2d 4e 4f 56 2d 44 | 45 43 2d 3a 46 4f 52 20 |CT-NOV-D|EC-:FOR |
|00000bb0| 46 49 4c 45 20 4e 41 4d | 45 22 00 ea 27 b3 01 99 |FILE NAM|E"..'...|
|00000bc0| 22 9b 59 4f 55 20 43 41 | 4e 20 48 41 56 45 20 41 |".YOU CA|N HAVE A|
|00000bd0| 20 48 55 4e 44 52 45 44 | 20 45 4e 54 52 49 45 53 | HUNDRED| ENTRIES|
|00000be0| 20 50 45 52 20 46 49 4c | 45 22 00 fb 27 b8 01 85 | PER FIL|E"..'...|
|00000bf0| 22 9a 4d 4f 4e 54 48 22 | 3b 57 24 00 36 28 ba 01 |".MONTH"|;W$.6(..|
|00000c00| 8b c3 28 57 24 29 b3 b1 | 33 20 a7 20 99 22 96 50 |..(W$)..|3 . .".P|
|00000c10| 4c 45 41 53 45 20 55 53 | 45 20 33 20 4c 45 54 54 |LEASE US|E 3 LETT|
|00000c20| 45 52 20 4d 4f 4e 54 48 | 53 2d 2d 4e 4f 28 2e 29 |ER MONTH|S--NO(.)|
|00000c30| 22 3a 89 34 34 30 00 6f | 28 bd 01 99 22 05 50 55 |":.440.o|(...".PU|
|00000c40| 54 20 54 48 45 20 46 49 | 4c 45 20 44 49 53 4b 20 |T THE FI|LE DISK |
|00000c50| 49 4e 20 44 52 49 56 45 | 20 41 4e 44 20 50 52 45 |IN DRIVE| AND PRE|
|00000c60| 53 53 22 3a 85 22 52 45 | 54 55 52 4e 22 3b 5a 00 |SS":."RE|TURN";Z.|
|00000c70| 87 28 c2 01 fe 0d 23 31 | 32 2c 22 40 4d 4f 4e 54 |.(....#1|2,"@MONT|
|00000c80| 48 22 aa 57 24 2c 52 00 | a5 28 c7 01 99 22 9b 22 |H".W$,R.|.(..."."|
|00000c90| 3b 44 53 24 3b 3a 99 22 | 20 46 49 4c 45 20 53 54 |;DS$;:."| FILE ST|
|00000ca0| 41 54 55 53 22 00 e0 28 | cc 01 8b 44 53 24 b2 22 |ATUS"..(|...DS$."|
|00000cb0| 36 32 2c 20 46 49 4c 45 | 20 4e 4f 54 20 46 4f 55 |62, FILE| NOT FOU|
|00000cc0| 4e 44 2c 30 30 2c 30 30 | 22 a7 99 22 05 54 52 59 |ND,00,00|"..".TRY|
|00000cd0| 20 41 47 41 49 4e 20 59 | 2f 4e 22 3a 89 34 37 30 | AGAIN Y|/N":.470|
|00000ce0| 00 e9 28 d1 01 89 34 38 | 32 00 16 29 d6 01 99 22 |..(...48|2..)..."|
|00000cf0| 54 48 49 53 20 50 52 4f | 47 52 41 4d 20 57 49 4c |THIS PRO|GRAM WIL|
|00000d00| 4c 20 43 41 54 43 48 20 | 4d 4f 53 54 20 4d 41 53 |L CATCH |MOST MAS|
|00000d10| 54 41 4b 45 53 22 00 26 | 29 db 01 8b 51 24 b2 22 |TAKES".&|)...Q$."|
|00000d20| 59 22 a7 34 33 30 00 2f | 29 e0 01 89 36 30 30 00 |Y".430./|)...600.|
|00000d30| 41 29 e2 01 58 b2 30 3a | 43 52 24 b2 c7 28 31 33 |A)..X.0:|CR$..(13|
|00000d40| 29 00 7d 29 e5 01 99 22 | 9b 57 4f 55 4c 44 20 59 |).})..."|.WOULD Y|
|00000d50| 4f 55 20 4c 49 4b 45 20 | 54 4f 20 53 45 45 20 57 |OU LIKE |TO SEE W|
|00000d60| 48 41 54 53 20 49 4e 20 | 54 48 49 53 20 46 49 4c |HATS IN |THIS FIL|
|00000d70| 45 22 3a 85 22 05 59 2f | 4e 22 3b 51 24 00 91 29 |E":.".Y/|N";Q$..)|
|00000d80| ea 01 84 31 32 2c 41 24 | 28 58 29 2c 42 24 28 58 |...12,A$|(X),B$(X|
|00000d90| 29 00 b6 29 ef 01 8b 51 | 24 b2 22 59 22 a7 20 99 |)..)...Q|$."Y". .|
|00000da0| 41 24 28 58 29 3b 42 24 | 28 58 29 3b 22 20 46 49 |A$(X);B$|(X);" FI|
|00000db0| 4c 45 23 22 3b 58 00 d2 | 29 f4 01 8b ca 28 41 24 |LE#";X..|)....(A$|
|00000dc0| 28 58 29 2c 31 2c 33 29 | b2 22 45 4e 44 22 a7 35 |(X),1,3)|."END".5|
|00000dd0| 32 30 00 dc 29 f9 01 58 | b2 58 aa 31 00 e5 29 fe |20..)..X|.X.1..).|
|00000de0| 01 89 34 39 30 00 13 2a | 08 02 99 3a 99 22 9b 54 |..490..*|...:.".T|
|00000df0| 48 45 52 45 20 41 52 45 | 9e 22 3b 31 30 30 ab 58 |HERE ARE|.";100.X|
|00000e00| 3b 22 9b 46 49 4c 45 53 | 20 52 45 4d 41 49 4e 49 |;".FILES| REMAINI|
|00000e10| 4e 47 22 00 37 2a 0d 02 | 8b 58 b2 31 30 30 a7 20 |NG".7*..|.X.100. |
|00000e20| 99 22 96 2a 46 49 4c 45 | 20 49 53 20 46 55 4c 4c |.".*FILE| IS FULL|
|00000e30| 2a 22 3a 89 36 30 30 00 | 41 2a 0f 02 fe 0f 23 31 |*":.600.|A*....#1|
|00000e40| 32 00 6b 2a 12 02 99 22 | 9b 45 4e 54 45 52 20 45 |2.k*..."|.ENTER E|
|00000e50| 4e 54 52 59 20 41 53 20 | 44 41 54 45 20 58 2f 58 |NTRY AS |DATE X/X|
|00000e60| 20 2d 20 4e 4f 20 59 45 | 41 52 22 00 a9 2a 17 02 | - NO YE|AR"..*..|
|00000e70| 99 22 9b 54 48 45 4e 20 | 45 4e 54 45 52 28 2c 29 |.".THEN |ENTER(,)|
|00000e80| 26 20 49 4e 46 4f 52 4d | 41 54 49 4f 4e 20 41 42 |& INFORM|ATION AB|
|00000e90| 4f 55 54 20 44 41 54 45 | 20 55 50 20 54 4f 20 28 |OUT DATE| UP TO (|
|00000ea0| 33 29 20 4c 49 4e 45 53 | 22 00 d8 2a 19 02 99 22 |3) LINES|"..*..."|
|00000eb0| 55 53 45 05 45 4e 44 2c | 45 4e 44 9b 57 48 45 4e |USE.END,|END.WHEN|
|00000ec0| 20 46 49 4e 49 53 48 45 | 44 20 45 4e 54 45 52 49 | FINISHE|D ENTERI|
|00000ed0| 4e 47 20 44 41 54 41 22 | 00 ea 2a 1c 02 99 22 9a |NG DATA"|..*...".|
|00000ee0| 4d 4f 4e 54 48 20 22 3b | 57 24 00 0c 2b 21 02 85 |MONTH ";|W$..+!..|
|00000ef0| 22 05 44 41 54 45 2d 58 | 2f 58 2c 49 4e 46 4f 22 |".DATE-X|/X,INFO"|
|00000f00| 3b 41 24 28 58 29 2c 42 | 24 28 58 29 00 47 2b 23 |;A$(X),B|$(X).G+#|
|00000f10| 02 8b c3 28 41 24 28 58 | 29 29 b3 33 20 b0 20 c3 |...(A$(X|)).3 . .|
|00000f20| 28 41 24 28 58 29 29 b1 | 35 20 a7 20 99 22 96 44 |(A$(X)).|5 . .".D|
|00000f30| 41 54 45 20 45 4e 54 45 | 52 45 44 20 57 52 4f 4e |ATE ENTE|RED WRON|
|00000f40| 47 22 3a 89 35 34 35 00 | 64 2b 26 02 99 22 05 49 |G":.545.|d+&..".I|
|00000f50| 53 20 54 48 49 53 20 43 | 4f 52 52 45 43 54 3f 2d |S THIS C|ORRECT?-|
|00000f60| 59 2f 4e 22 00 77 2b 2b | 02 a1 51 24 3a 8b 51 24 |Y/N".w++|..Q$:.Q$|
|00000f70| b2 22 22 a7 35 35 35 00 | 88 2b 30 02 8b 20 51 24 |."".555.|.+0.. Q$|
|00000f80| b2 22 4e 22 a7 35 34 35 | 00 ab 2b 3a 02 8b 41 24 |."N".545|..+:..A$|
|00000f90| 28 58 29 b2 22 45 4e 44 | 22 af 20 42 24 28 58 29 |(X)."END|". B$(X)|
|00000fa0| b2 22 45 4e 44 22 a7 20 | 35 38 37 00 b5 2b 3f 02 |."END". |587..+?.|
|00000fb0| 58 b2 58 aa 31 00 d0 2b | 44 02 99 22 9b 45 4e 54 |X.X.1..+|D..".ENT|
|00000fc0| 52 59 22 3b 58 22 20 43 | 4f 4d 50 4c 45 54 45 22 |RY";X" C|OMPLETE"|
|00000fd0| 00 04 2c 46 02 8b 58 b2 | 31 30 30 a7 99 22 96 2a |..,F..X.|100..".*|
|00000fe0| 46 49 4c 45 20 49 53 20 | 46 55 4c 4c 2a 20 50 4c |FILE IS |FULL* PL|
|00000ff0| 45 41 53 45 20 45 4e 54 | 45 52 20 45 4e 44 2c 45 |EASE ENT|ER END,E|
|00001000| 4e 44 05 22 00 0d 2c 49 | 02 89 35 34 30 00 25 2c |ND."..,I|..540.%,|
|00001010| 4b 02 fe 0d 23 31 32 2c | 22 40 4d 4f 4e 54 48 22 |K...#12,|"@MONTH"|
|00001020| aa 57 24 2c 57 00 33 2c | 4c 02 43 52 24 b2 c7 28 |.W$,W.3,|L.CR$..(|
|00001030| 31 33 29 00 3e 2c 4e 02 | 81 4a b2 30 a4 58 00 84 |13).>,N.|.J.0.X..|
|00001040| 2c 4f 02 8b c3 28 41 24 | 28 4a 29 29 b1 35 a7 20 |,O...(A$|(J)).5. |
|00001050| 41 24 28 4a 29 b2 c8 28 | 41 24 28 4a 29 2c 35 29 |A$(J)..(|A$(J),5)|
|00001060| 3a 8f 50 52 49 4e 54 41 | 24 28 4a 29 3a 52 45 4d |:.PRINTA|$(J):REM|
|00001070| 20 52 45 4d 4f 56 45 20 | 58 27 54 52 41 20 53 50 | REMOVE |X'TRA SP|
|00001080| 41 43 45 53 00 9c 2c 50 | 02 98 31 32 2c 41 24 28 |ACES..,P|..12,A$(|
|00001090| 4a 29 2c 43 52 24 2c 42 | 24 28 4a 29 00 c5 2c 51 |J),CR$,B|$(J)..,Q|
|000010a0| 02 99 41 24 28 4a 29 3b | 43 52 24 3b 42 24 28 4a |..A$(J);|CR$;B$(J|
|000010b0| 29 3b 22 20 46 49 4c 45 | 20 22 3b 4a 3b 22 20 53 |);" FILE| ";J;" S|
|000010c0| 41 56 45 44 22 00 cc 2c | 53 02 82 4a 00 d6 2c 58 |AVED"..,|S..J..,X|
|000010d0| 02 fe 0f 23 31 32 00 05 | 2d 5d 02 99 22 05 44 4f |...#12..|-]..".DO|
|000010e0| 20 59 4f 55 20 57 41 4e | 54 20 54 4f 20 44 4f 20 | YOU WAN|T TO DO |
|000010f0| 53 4f 4d 45 54 48 49 4e | 47 20 45 4c 53 45 20 59 |SOMETHIN|G ELSE Y|
|00001100| 2f 4e 20 3f 22 00 18 2d | 62 02 a1 51 24 3a 8b 51 |/N ?"..-|b..Q$:.Q|
|00001110| 24 b2 22 22 a7 36 31 30 | 00 27 2d 67 02 8b 51 24 |$."".610|.'-g..Q$|
|00001120| b2 22 59 22 a7 31 30 00 | 3b 2d 6c 02 80 3a 20 8f |."Y".10.|;-l..: .|
|00001130| 20 50 52 47 20 4d 41 52 | 4b 45 52 00 a5 2d 20 03 | PRG MAR|KER..- .|
|00001140| 99 22 9f 54 48 45 20 50 | 52 4f 47 52 41 4d 20 46 |.".THE P|ROGRAM F|
|00001150| 49 52 53 54 20 41 53 4b | 53 20 49 46 20 59 4f 55 |IRST ASK|S IF YOU|
|00001160| 20 57 4f 55 4c 44 20 4c | 49 4b 45 20 54 4f 20 53 | WOULD L|IKE TO S|
|00001170| 45 45 20 41 20 43 41 4c | 45 4e 44 41 52 22 3a 99 |EE A CAL|ENDAR":.|
|00001180| 22 52 45 53 50 4f 4e 44 | 20 59 45 53 20 4f 52 20 |"RESPOND| YES OR |
|00001190| 4e 4f 20 57 49 54 48 20 | 41 20 27 59 27 20 4f 52 |NO WITH |A 'Y' OR|
|000011a0| 20 27 4e 27 22 00 05 2e | 25 03 99 22 49 46 20 59 | 'N'"...|%.."IF Y|
|000011b0| 45 53 20 49 4e 50 55 54 | 20 4d 4f 4e 54 48 20 49 |ES INPUT| MONTH I|
|000011c0| 4e 20 4e 55 4d 42 45 52 | 53 20 31 2d 31 32 20 41 |N NUMBER|S 1-12 A|
|000011d0| 4e 44 20 20 41 20 43 4f | 4d 4d 41 20 41 4e 44 20 |ND  A CO|MMA AND |
|000011e0| 54 48 45 4e 20 54 48 45 | 20 4c 41 53 54 20 54 57 |THEN THE| LAST TW|
|000011f0| 4f 20 44 49 47 49 54 53 | 20 4f 46 20 54 48 45 20 |O DIGITS| OF THE |
|00001200| 59 45 41 52 22 00 33 2e | 2a 03 99 22 45 58 41 4d |YEAR".3.|*.."EXAM|
|00001210| 50 4c 45 3a 31 32 2c 38 | 38 20 4d 45 41 4e 49 4e |PLE:12,8|8 MEANIN|
|00001220| 47 20 44 45 43 45 4d 42 | 45 52 20 4f 46 20 31 39 |G DECEMB|ER OF 19|
|00001230| 38 38 22 00 7b 2e 2f 03 | 99 3a 99 22 4e 4f 57 20 |88".{./.|.:."NOW |
|00001240| 59 4f 55 20 41 52 45 20 | 41 53 4b 45 44 20 49 46 |YOU ARE |ASKED IF|
|00001250| 20 59 4f 55 20 57 41 4e | 54 20 54 4f 20 52 45 41 | YOU WAN|T TO REA|
|00001260| 44 2c 20 20 57 52 49 54 | 45 20 4f 52 20 41 50 50 |D,  WRIT|E OR APP|
|00001270| 45 4e 44 20 41 20 46 49 | 4c 45 22 00 b9 2e 34 03 |END A FI|LE"...4.|
|00001280| 99 22 59 4f 55 20 4d 55 | 53 54 20 46 49 52 53 54 |."YOU MU|ST FIRST|
|00001290| 20 57 52 49 54 45 20 41 | 20 46 49 4c 45 20 42 45 | WRITE A| FILE BE|
|000012a0| 46 4f 52 45 20 44 4f 49 | 4e 47 20 41 4e 59 54 48 |FORE DOI|NG ANYTH|
|000012b0| 49 4e 47 20 45 4c 53 45 | 22 00 f0 2e 39 03 99 22 |ING ELSE|"...9.."|
|000012c0| 59 4f 55 20 57 4f 55 4c | 44 20 49 4e 50 55 54 20 |YOU WOUL|D INPUT |
|000012d0| 41 54 20 54 48 45 20 3f | 20 41 20 27 57 27 20 46 |AT THE ?| A 'W' F|
|000012e0| 4f 52 20 57 52 49 54 45 | 20 41 20 46 49 4c 45 22 |OR WRITE| A FILE"|
|000012f0| 00 2a 2f 3e 03 99 22 54 | 48 49 53 20 50 52 4f 47 |.*/>.."T|HIS PROG|
|00001300| 52 41 4d 20 50 52 4f 4d | 50 54 53 20 57 49 54 48 |RAM PROM|PTS WITH|
|00001310| 20 49 4e 53 54 52 55 43 | 54 49 4f 4e 53 20 20 54 | INSTRUC|TIONS  T|
|00001320| 48 52 4f 55 47 48 4f 55 | 54 22 00 4c 2f 40 03 85 |HROUGHOU|T".L/@..|
|00001330| 22 50 52 45 53 53 20 52 | 45 54 55 52 4e 20 54 4f |"PRESS R|ETURN TO|
|00001340| 20 43 4f 4e 54 49 4e 55 | 45 22 3b 43 00 c0 2f 43 | CONTINU|E";C../C|
|00001350| 03 99 22 54 48 45 20 46 | 49 4c 45 20 59 4f 55 20 |.."THE F|ILE YOU |
|00001360| 57 49 4c 4c 20 57 52 49 | 54 45 20 57 49 4c 4c 20 |WILL WRI|TE WILL |
|00001370| 43 4f 4e 54 41 49 4e 20 | 41 20 20 44 41 54 45 20 |CONTAIN |A  DATE |
|00001380| 50 45 52 54 41 49 4e 49 | 4e 47 20 54 4f 20 41 20 |PERTAINI|NG TO A |
|00001390| 4d 4f 4e 54 48 20 41 4e | 44 20 20 20 20 20 20 20 |MONTH AN|D       |
|000013a0| 20 20 20 20 49 4e 46 4f | 52 4d 41 54 49 4f 4e 20 |    INFO|RMATION |
|000013b0| 41 42 4f 55 54 20 54 48 | 41 54 20 44 41 54 45 22 |ABOUT TH|AT DATE"|
|000013c0| 00 f6 2f 48 03 99 22 53 | 4f 4d 45 20 4f 46 20 54 |../H.."S|OME OF T|
|000013d0| 48 45 20 41 50 50 4c 49 | 43 41 54 49 4f 4e 53 20 |HE APPLI|CATIONS |
|000013e0| 46 4f 52 20 59 4f 55 20 | 43 4f 55 4c 44 20 20 42 |FOR YOU |COULD  B|
|000013f0| 45 20 54 4f 3a 22 00 3d | 30 4d 03 99 22 4b 45 45 |E TO:".=|0M.."KEE|
|00001400| 50 20 41 20 46 49 4c 45 | 20 4f 46 20 44 41 49 4c |P A FILE| OF DAIL|
|00001410| 59 20 20 45 56 45 4e 54 | 53 20 46 4f 52 20 53 50 |Y  EVENT|S FOR SP|
|00001420| 4f 52 54 53 2c 42 49 52 | 54 48 44 41 59 53 2c 53 |ORTS,BIR|THDAYS,S|
|00001430| 43 48 4f 4f 4c 20 26 20 | 57 4f 52 4b 22 00 85 30 |CHOOL & |WORK"..0|
|00001440| 52 03 99 22 55 53 45 20 | 49 54 20 46 4f 52 20 41 |R.."USE |IT FOR A|
|00001450| 50 50 4f 49 4e 54 4d 45 | 4e 54 53 2c 53 43 48 45 |PPOINTME|NTS,SCHE|
|00001460| 44 55 4c 49 4e 47 2c 41 | 4e 44 20 20 45 56 45 4e |DULING,A|ND  EVEN|
|00001470| 20 41 4e 20 45 4c 45 43 | 54 52 4f 4e 49 43 20 44 | AN ELEC|TRONIC D|
|00001480| 49 41 52 59 22 00 bd 30 | 57 03 99 22 59 4f 55 20 |IARY"..0|W.."YOU |
|00001490| 43 41 4e 20 52 45 46 45 | 52 45 4e 43 45 20 59 4f |CAN REFE|RENCE YO|
|000014a0| 55 52 20 46 49 4c 45 53 | 20 42 59 20 4d 4f 4e 54 |UR FILES| BY MONT|
|000014b0| 48 20 20 20 41 4e 44 20 | 44 41 54 45 22 00 57 31 |H   AND |DATE".W1|
|000014c0| 5c 03 99 22 52 45 4d 45 | 4d 42 45 52 20 54 48 41 |\.."REME|MBER THA|
|000014d0| 54 20 46 49 4c 45 53 20 | 41 44 44 20 42 4c 4f 43 |T FILES |ADD BLOC|
|000014e0| 4b 53 20 41 4e 44 20 54 | 41 4b 45 20 55 50 20 44 |KS AND T|AKE UP D|
|000014f0| 49 53 4b 20 53 50 41 43 | 45 3a 20 49 46 20 59 4f |ISK SPAC|E: IF YO|
|00001500| 55 20 50 4c 41 4e 20 54 | 4f 20 57 52 49 54 45 20 |U PLAN T|O WRITE |
|00001510| 41 57 41 59 20 54 48 45 | 20 50 41 52 41 4d 45 54 |AWAY THE| PARAMET|
|00001520| 45 52 53 20 4f 46 20 54 | 48 49 53 20 50 52 4f 47 |ERS OF T|HIS PROG|
|00001530| 52 41 4d 20 59 4f 55 27 | 4c 4c 20 20 4e 45 45 44 |RAM YOU'|LL  NEED|
|00001540| 20 4f 56 45 52 2a 20 35 | 30 30 20 46 52 45 45 20 | OVER* 5|00 FREE |
|00001550| 42 4c 4f 43 4b 53 22 00 | b5 31 61 03 99 22 41 46 |BLOCKS".|.1a.."AF|
|00001560| 54 45 52 20 59 4f 55 20 | 45 4e 54 45 52 20 46 49 |TER YOU |ENTER FI|
|00001570| 4c 45 20 44 41 54 45 2c | 59 4f 55 20 43 41 4e 20 |LE DATE,|YOU CAN |
|00001580| 57 52 49 54 45 20 54 48 | 45 20 52 45 53 54 20 4f |WRITE TH|E REST O|
|00001590| 46 20 34 20 53 43 52 45 | 45 4e 20 4c 49 4e 45 53 |F 4 SCRE|EN LINES|
|000015a0| 20 49 4e 20 34 30 20 43 | 4f 4c 55 4d 4e 20 53 43 | IN 40 C|OLUMN SC|
|000015b0| 52 45 45 4e 22 00 ea 31 | 66 03 99 22 54 48 49 53 |REEN"..1|f.."THIS|
|000015c0| 20 50 52 4f 47 52 41 4d | 20 53 48 4f 55 4c 44 20 | PROGRAM| SHOULD |
|000015d0| 43 41 54 43 48 20 4d 4f | 53 54 20 55 53 45 52 20 |CATCH MO|ST USER |
|000015e0| 4d 49 53 2d 54 41 4b 45 | 53 22 00 11 32 70 03 85 |MIS-TAKE|S"..2p..|
|000015f0| 22 50 52 45 53 53 20 52 | 45 54 55 52 4e 20 54 4f |"PRESS R|ETURN TO|
|00001600| 20 47 4f 20 54 4f 20 50 | 52 4f 47 52 41 4d 22 3b | GO TO P|ROGRAM";|
|00001610| 43 00 18 32 75 03 89 39 | 00 3a 32 84 03 80 3a 20 |C..2u..9|.:2...: |
|00001620| 8f 20 45 4e 44 20 4f 46 | 20 41 4c 4c 20 46 49 4c |. END OF| ALL FIL|
|00001630| 45 20 52 4f 55 54 49 4e | 45 53 00 44 32 e8 03 99 |E ROUTIN|ES.D2...|
|00001640| 22 93 22 3b 00 6b 32 f2 | 03 99 22 4d 4f 4e 54 48 |".";.k2.|.."MONTH|
|00001650| 20 49 4e 20 4e 55 4d 42 | 45 52 53 9a 31 2d 31 32 | IN NUMB|ERS.1-12|
|00001660| 3a 05 59 45 41 52 2d 9a | 58 58 22 00 88 32 fc 03 |:.YEAR-.|XX"..2..|
|00001670| 8d 31 30 35 30 3a 8f 20 | 20 47 45 54 20 4d 4f 4e |.1050:. | GET MON|
|00001680| 54 48 2c 20 59 45 41 52 | 00 a4 32 06 04 8d 31 31 |TH, YEAR|..2...11|
|00001690| 31 30 3a 8f 20 20 50 52 | 49 4e 54 20 43 41 4c 45 |10:.  PR|INT CALE|
|000016a0| 4e 44 41 52 00 bb 32 07 | 04 99 22 05 44 4f 20 59 |NDAR..2.|..".DO Y|
|000016b0| 4f 55 20 57 41 4e 54 20 | 54 4f 22 00 e8 32 08 04 |OU WANT |TO"..2..|
|000016c0| 99 22 9f 28 52 29 45 41 | 44 20 4f 52 96 28 57 29 |.".(R)EA|D OR.(W)|
|000016d0| 52 49 54 45 20 4f 52 9e | 28 41 29 50 50 45 4e 44 |RITE OR.|(A)PPEND|
|000016e0| 20 41 20 46 49 4c 45 22 | 00 15 33 09 04 99 22 9b | A FILE"|..3...".|
|000016f0| 54 4f 20 59 4f 55 52 20 | 4d 4f 4e 54 48 4c 59 20 |TO YOUR |MONTHLY |
|00001700| 43 41 4c 45 4e 44 41 52 | 20 44 41 54 45 20 4b 45 |CALENDAR| DATE KE|
|00001710| 45 50 45 52 22 00 1d 33 | 0b 04 89 35 30 00 23 33 |EPER"..3|...50.#3|
|00001720| 10 04 80 00 3b 33 1a 04 | 8f 20 20 20 47 45 54 20 |....;3..|.   GET |
|00001730| 4d 4f 4e 54 48 2c 20 59 | 45 41 52 00 55 33 24 04 |MONTH, Y|EAR.U3$.|
|00001740| 85 22 05 4d 4f 4e 54 48 | 2c 20 59 45 41 52 3a 20 |.".MONTH|, YEAR: |
|00001750| 22 3b 4d 2c 59 00 67 33 | 2e 04 4d b2 b5 28 4d 29 |";M,Y.g3|..M..(M)|
|00001760| 3a 59 b2 b5 28 59 29 00 | 7a 33 38 04 8b 4d b3 31 |:Y..(Y).|z38..M.1|
|00001770| b0 4d b1 31 32 a7 31 30 | 36 30 00 8d 33 42 04 8b |.M.12.10|60..3B..|
|00001780| 59 b3 30 b0 59 b1 39 39 | a7 31 30 36 30 00 93 33 |Y.0.Y.99|.1060..3|
|00001790| 4c 04 8e 00 aa 33 56 04 | 8f 20 20 20 50 52 49 4e |L....3V.|.   PRIN|
|000017a0| 54 20 43 41 4c 45 4e 44 | 41 52 00 c1 33 60 04 8d |T CALEND|AR..3`..|
|000017b0| 31 31 36 30 3a 8f 20 20 | 43 41 4c 43 55 4c 41 54 |1160:.  |CALCULAT|
|000017c0| 45 00 da 33 6a 04 8d 31 | 34 31 30 3a 8f 20 20 50 |E..3j..1|410:.  P|
|000017d0| 52 49 4e 54 20 54 49 54 | 4c 45 00 f2 33 74 04 8d |RINT TIT|LE..3t..|
|000017e0| 31 33 33 30 3a 8f 20 20 | 50 52 49 4e 54 20 44 41 |1330:.  |PRINT DA|
|000017f0| 59 53 00 f8 33 7e 04 8e | 00 09 34 88 04 8f 20 20 |YS..3~..|..4...  |
|00001800| 43 41 4c 43 55 4c 41 54 | 45 00 2b 34 92 04 8f 20 |CALCULAT|E.+4... |
|00001810| 20 20 44 20 2d 20 57 45 | 45 4b 44 41 59 2c 20 31 |  D - WE|EKDAY, 1|
|00001820| 53 54 20 4f 46 20 4d 4f | 4e 54 48 00 4c 34 9c 04 |ST OF MO|NTH.L4..|
|00001830| 8f 20 20 20 4e 20 2d 20 | 4e 4f 2e 20 4f 46 20 44 |.   N - |NO. OF D|
|00001840| 41 59 53 20 49 4e 20 4d | 4f 4e 54 48 00 5e 34 a6 |AYS IN M|ONTH.^4.|
|00001850| 04 58 b2 59 3a 42 b2 34 | 3a 8d 31 33 30 30 00 70 |.X.Y:B.4|:.1300.p|
|00001860| 34 b0 04 4c b2 31 3a 8b | 20 52 20 a7 20 4c b2 30 |4..L.1:.| R . L.0|
|00001870| 00 87 34 ba 04 44 b2 59 | aa b5 28 28 59 aa 33 29 |..4..D.Y|..((Y.3)|
|00001880| ad 34 29 3a 4e b2 30 00 | 92 34 c4 04 81 49 b2 31 |.4):N.0.|.4...I.1|
|00001890| a4 4d 00 a6 34 ce 04 58 | b2 44 aa 4e 3a 42 b2 37 |.M..4..X|.D.N:B.7|
|000018a0| 3a 8d 31 33 30 30 00 ae | 34 d8 04 44 b2 52 00 c6 |:.1300..|4..D.R..|
|000018b0| 34 e2 04 58 b2 49 aa 28 | 49 b1 37 29 3a 42 b2 32 |4..X.I.(|I.7):B.2|
|000018c0| 3a 8d 31 33 30 30 00 d1 | 34 ec 04 4e b2 33 30 aa |:.1300..|4..N.30.|
|000018d0| 52 00 e1 34 f6 04 8b 49 | b2 32 a7 4e b2 32 38 aa |R..4...I|.2.N.28.|
|000018e0| 4c 00 e8 34 00 05 82 49 | 00 ee 34 0a 05 8e 00 10 |L..4...I|..4.....|
|000018f0| 35 14 05 8f 20 20 20 53 | 45 54 20 52 20 54 4f 20 |5...   S|ET R TO |
|00001900| 52 45 4d 41 49 4e 44 45 | 52 20 4f 46 20 58 2f 42 |REMAINDE|R OF X/B|
|00001910| 00 21 35 1e 05 52 b2 58 | ab b5 28 58 ad 42 29 ac |.!5..R.X|..(X.B).|
|00001920| 42 00 27 35 28 05 8e 00 | 43 35 32 05 8f 20 20 20 |B.'5(...|C52..   |
|00001930| 50 52 49 4e 54 20 43 41 | 4c 45 4e 44 41 52 20 44 |PRINT CA|LENDAR D|
|00001940| 41 59 53 00 4b 35 3c 05 | 4b b2 44 00 56 35 46 05 |AYS.K5<.|K.D.V5F.|
|00001950| 81 49 b2 31 a4 4e 00 6d | 35 50 05 53 50 b2 30 3a |.I.1.N.m|5P.SP.0:|
|00001960| 8b 20 49 b3 31 30 20 a7 | 20 53 50 b2 31 00 84 35 |. I.10 .| SP.1..5|
|00001970| 5a 05 99 22 05 22 3b a3 | 4b ac 34 aa 32 aa 53 50 |Z..".";.|K.4.2.SP|
|00001980| 29 3b 49 3b 00 99 35 64 | 05 4b b2 4b aa 31 3a 8b |);I;..5d|.K.K.1:.|
|00001990| 4b b1 36 a7 4b b2 30 3a | 99 00 a0 35 6e 05 82 49 |K.6.K.0:|...5n..I|
|000019a0| 00 aa 35 78 05 99 3a 99 | 3a 8e 00 c7 35 82 05 8f |..5x..:.|:...5...|
|000019b0| 20 20 20 50 52 49 4e 54 | 20 43 41 4c 45 4e 44 41 |   PRINT| CALENDA|
|000019c0| 52 20 54 49 54 4c 45 00 | f5 35 8c 05 4d 24 b2 22 |R TITLE.|.5..M$."|
|000019d0| 4a 41 4e 46 45 42 4d 41 | 52 41 50 52 4d 41 59 4a |JANFEBMA|RAPRMAYJ|
|000019e0| 55 4e 4a 55 4c 41 55 47 | 53 45 50 4f 43 54 4e 4f |UNJULAUG|SEPOCTNO|
|000019f0| 56 44 45 43 22 00 00 36 | 96 05 99 20 a3 38 29 3b |VDEC"..6|... .8);|
|00001a00| 00 1a 36 a0 05 99 ca 28 | 4d 24 2c 4d ac 33 ab 32 |..6....(|M$,M.3.2|
|00001a10| 2c 33 29 2c 31 39 30 30 | aa 59 00 44 36 aa 05 99 |,3),1900|.Y.D6...|
|00001a20| 3a 99 22 9f 20 53 55 4e | 20 4d 4f 4e 20 54 55 45 |:.". SUN| MON TUE|
|00001a30| 20 57 45 44 20 54 48 55 | 20 46 52 49 20 53 41 54 | WED THU| FRI SAT|
|00001a40| 05 22 3a 99 00 4a 36 b4 | 05 8e 00 00 00 1a 1a 1a |.":..J6.|........|
|00001a50| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001a60| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001a70| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
+--------+-------------------------+-------------------------+--------+--------+