MUM'S ADDRESSES

00000000: 01 08 34 08 0A 00 4C B2  32 30 30 3A 9E 36 35 35  |..4...L.200:.655|
00000010: 31 37 3A 41 B2 C2 28 37  38 31 29 3A 51 24 B2 C7  |17:A..(781):Q$..|
00000020: 28 31 33 29 3A 8B 41 B2  34 30 A7 97 35 33 32 38  |(13):.A.40..5328|
00000030: 31 2C 31 35 00 57 08 14  00 86 4D 24 28 4C 2C 37  |1,15.W....M$(L,7|
00000040: 29 2C 4E 24 28 37 29 3A  81 49 B2 31 A4 37 3A 87  |),N$(7):.I.1.7:.|
00000050: 4E 24 28 49 29 3A 82 00  A0 08 1E 00 83 4C 41 53  |N$(I):.......LAS|
00000060: 54 20 4E 41 4D 45 2C 46  49 52 53 54 20 4E 41 4D  |T NAME,FIRST NAM|
00000070: 45 2C 41 44 44 52 45 53  53 2C 43 49 54 59 2F 53  |E,ADDRESS,CITY/S|
00000080: 54 41 54 45 2C 50 4F 53  54 43 4F 44 45 2C 54 45  |TATE,POSTCODE,TE|
00000090: 4C 45 50 48 4F 4E 45 2C  42 49 52 54 48 44 41 59  |LEPHONE,BIRTHDAY|
000000A0: 00 EA 08 28 00 99 22 93  11 11 1D 1D 1D 12 1C 41  |...(.."........A|
000000B0: 44 44 52 45 53 53 20 46  49 4C 45 22 51 24 22 11  |DDRESS FILE"Q$".|
000000C0: 11 1D 31 2E 2E 52 45 54  52 49 45 56 45 20 46 49  |..1..RETRIEVE FI|
000000D0: 4C 45 22 51 24 22 11 1D  32 2E 2E 41 44 44 2F 53  |LE"Q$"..2..ADD/S|
000000E0: 54 41 52 54 20 46 49 4C  45 22 00 2A 09 32 00 99  |TART FILE".*.2..|
000000F0: 22 11 1D 33 2E 2E 45 44  49 54 20 46 49 4C 45 22  |"..3..EDIT FILE"|
00000100: 51 24 22 11 1D 34 2E 2E  44 49 53 50 4C 41 59 20  |Q$"..4..DISPLAY |
00000110: 46 49 4C 45 22 51 24 22  11 1D 35 2E 2E 53 41 56  |FILE"Q$"..5..SAV|
00000120: 45 20 41 4E 44 20 45 4E  44 22 00 5B 09 3C 00 85  |E AND END".[.<..|
00000130: 22 11 11 59 4F 55 52 20  43 48 4F 49 43 45 22 3B  |"..YOUR CHOICE";|
00000140: 42 3A 91 42 89 34 36 30  2C 37 30 2C 31 33 30 2C  |B:.B.460,70,130,|
00000150: 32 34 30 2C 34 36 30 3A  89 34 30 00 97 09 46 00  |240,460:.40...F.|
00000160: 4E B2 4E AA 31 3A 99 22  93 52 45 43 4F 52 44 20  |N.N.1:.".RECORD |
00000170: 23 22 4E 3A 81 4A B2 31  A4 37 3A 99 51 24 22 1D  |#"N:.J.1.7:.Q$".|
00000180: 12 1C 22 3B 4E 24 28 4A  29 3B 22 92 1F 22 3A 85  |..";N$(J);"..":.|
00000190: 4D 24 28 4E 2C 4A 29 00  B9 09 50 00 82 4A 3A 99  |M$(N,J)...P..J:.|
000001A0: 22 11 20 12 4E 92 45 58  54 20 12 44 92 45 4C 45  |". .N.EXT .D.ELE|
000001B0: 54 45 20 12 45 92 4E 44  22 00 E5 09 5A 00 A1 41  |TE .E.ND"...Z..A|
000001C0: 24 3A 8B 41 24 B2 22 22  B0 28 41 24 B3 B1 22 44  |$:.A$."".(A$.."D|
000001D0: 22 AF 41 24 B3 B1 22 4E  22 AF 41 24 B3 B1 22 45  |".A$.."N".A$.."E|
000001E0: 22 29 A7 39 30 00 F4 09  64 00 8B 41 24 B2 22 4E  |").90...d..A$."N|
000001F0: 22 A7 37 30 00 03 0A 6E  00 8B 41 24 B2 22 45 22  |".70...n..A$."E"|
00000200: A7 34 30 00 11 0A 78 00  4E B2 4E AB 31 3A 89 37  |.40...x.N.N.1:.7|
00000210: 30 00 3C 0A 82 00 8D 37  33 30 3A 81 49 B2 31 A4  |0.<....730:.I.1.|
00000220: 4E 3A 8B 42 24 B2 4D 24  28 49 2C 31 29 AF 43 24  |N:.B$.M$(I,1).C$|
00000230: B2 4D 24 28 49 2C 32 29  A7 31 35 30 00 66 0A 8C  |.M$(I,2).150.f..|
00000240: 00 82 49 3A 99 22 93 11  22 42 24 22 11 49 53 20  |..I:.".."B$".IS |
00000250: 4E 4F 54 20 49 4E 20 46  49 4C 45 2E 22 3A 8D 36  |NOT IN FILE.":.6|
00000260: 33 30 3A 89 34 30 00 6F  0A 96 00 8D 37 32 30 00  |30:.40.o....720.|
00000270: A0 0A A0 00 99 22 1D 1D  20 20 20 20 44 45 4C 45  |....."..    DELE|
00000280: 54 45 20 45 4E 54 52 59  11 22 3A 85 22 59 45 53  |TE ENTRY.":."YES|
00000290: 20 4F 52 20 4E 4F 20 28  59 2F 4E 29 22 3B 4A 24  | OR NO (Y/N)";J$|
000002A0: 00 B0 0A AA 00 8B 4A 24  B2 22 59 22 A7 32 31 30  |......J$."Y".210|
000002B0: 00 BE 0A C8 00 8D 36 33  30 3A 89 32 32 30 00 EF  |......630:.220..|
000002C0: 0A D2 00 81 41 B2 49 A4  4E AB 31 3A 81 4A B2 31  |....A.I.N.1:.J.1|
000002D0: A4 37 3A 4D 24 28 41 2C  4A 29 B2 4D 24 28 41 AA  |.7:M$(A,J).M$(A.|
000002E0: 31 2C 4A 29 3A 82 4A 2C  41 3A 4E B2 4E AB 31 00  |1,J):.J,A:N.N.1.|
000002F0: 3B 0B DC 00 99 22 93 11  1D 44 4F 20 59 4F 55 20  |;...."...DO YOU |
00000300: 57 49 53 48 20 54 4F 3A  22 51 24 22 11 1D 31 2E  |WISH TO:"Q$"..1.|
00000310: 2E 43 4F 4E 54 49 4E 55  45 20 45 44 49 54 49 4E  |.CONTINUE EDITIN|
00000320: 47 22 51 24 22 11 1D 32  2E 2E 52 45 54 55 52 4E  |G"Q$"..2..RETURN|
00000330: 20 54 4F 20 4D 45 4E 55  11 11 22 00 60 0B E6 00  | TO MENU..".`...|
00000340: 85 22 1D 59 4F 55 52 20  43 48 4F 49 43 45 22 3B  |.".YOUR CHOICE";|
00000350: 42 3A 91 42 89 31 33 30  2C 34 30 3A 89 32 33 30  |B:.B.130,40:.230|
00000360: 00 A4 0B F0 00 99 22 93  1C 11 57 48 49 43 48 20  |......"...WHICH |
00000370: 44 4F 20 59 4F 55 20 57  41 4E 54 22 51 24 22 11  |DO YOU WANT"Q$".|
00000380: 1D 31 2E 2E 41 4C 50 48  41 42 45 54 49 43 41 4C  |.1..ALPHABETICAL|
00000390: 22 51 24 22 11 1D 32 2E  2E 49 4E 44 49 56 49 44  |"Q$"..2..INDIVID|
000003A0: 55 41 4C 22 00 CC 0B FA  00 99 22 11 1D 33 2E 2E  |UAL"......"..3..|
000003B0: 54 45 4C 45 50 48 4F 4E  45 22 51 24 22 11 1D 34  |TELEPHONE"Q$"..4|
000003C0: 2E 2E 42 49 52 54 48 2F  4D 54 48 22 00 0B 0C 04  |..BIRTH/MTH"....|
000003D0: 01 99 22 11 1D 35 2E 2E  4D 45 4E 55 11 11 22 3A  |.."..5..MENU..":|
000003E0: 85 22 59 4F 55 52 20 43  48 4F 49 43 45 22 3B 42  |."YOUR CHOICE";B|
000003F0: 3A 91 42 89 32 37 30 2C  34 32 30 2C 36 36 30 2C  |:.B.270,420,660,|
00000400: 36 39 30 2C 34 30 3A 89  32 36 30 00 40 0C 0E 01  |690,40:.260.@...|
00000410: 47 B2 4E 3A 8B 4E B2 30  A7 99 22 11 4E 4F 20 52  |G.N:.N.0..".NO R|
00000420: 45 43 4F 52 44 53 20 49  4E 20 46 49 4C 45 2E 22  |ECORDS IN FILE."|
00000430: 3A 81 49 B2 31 A4 32 30  30 30 3A 82 3A 89 34 30  |:.I.1.2000:.:.40|
00000440: 00 4D 0C 18 01 47 B2 B5  28 47 AD 32 29 00 5A 0C  |.M...G..(G.2).Z.|
00000450: 22 01 8B 47 B2 30 A7 33  39 30 00 67 0C 2C 01 81  |"..G.0.390.g.,..|
00000460: 41 B2 31 A4 4E AB 47 00  83 0C 36 01 8B 4D 24 28  |A.1.N.G...6..M$(|
00000470: 41 2C 31 29 B3 B2 4D 24  28 41 AA 47 2C 31 29 A7  |A,1)..M$(A.G,1).|
00000480: 33 36 30 00 D4 0C 40 01  52 24 B2 4D 24 28 41 2C  |360...@.R$.M$(A,|
00000490: 31 29 3A 53 24 B2 4D 24  28 41 2C 32 29 3A 54 24  |1):S$.M$(A,2):T$|
000004A0: B2 4D 24 28 41 2C 33 29  3A 55 24 B2 4D 24 28 41  |.M$(A,3):U$.M$(A|
000004B0: 2C 34 29 3A 56 24 B2 4D  24 28 41 2C 35 29 3A 57  |,4):V$.M$(A,5):W|
000004C0: 24 B2 4D 24 28 41 2C 36  29 3A 58 24 B2 4D 24 28  |$.M$(A,6):X$.M$(|
000004D0: 41 2C 37 29 00 F3 0C 4A  01 81 4A B2 31 A4 37 3A  |A,7)...J..J.1.7:|
000004E0: 4D 24 28 41 2C 4A 29 B2  4D 24 28 41 AA 47 2C 4A  |M$(A,J).M$(A.G,J|
000004F0: 29 3A 82 00 38 0D 54 01  4D 24 28 41 AA 47 2C 31  |):..8.T.M$(A.G,1|
00000500: 29 B2 52 24 3A 4D 24 28  41 AA 47 2C 32 29 B2 53  |).R$:M$(A.G,2).S|
00000510: 24 3A 4D 24 28 41 AA 47  2C 33 29 B2 54 24 3A 4D  |$:M$(A.G,3).T$:M|
00000520: 24 28 41 AA 47 2C 34 29  B2 55 24 3A 4D 24 28 41  |$(A.G,4).U$:M$(A|
00000530: AA 47 2C 35 29 B2 56 24  00 5A 0D 5E 01 4D 24 28  |.G,5).V$.Z.^.M$(|
00000540: 41 AA 47 2C 36 29 B2 57  24 3A 4D 24 28 41 AA 47  |A.G,6).W$:M$(A.G|
00000550: 2C 37 29 B2 58 24 3A 45  B2 41 00 61 0D 68 01 82  |,7).X$:E.A.a.h..|
00000560: 41 00 6E 0D 72 01 8B 45  B2 30 A7 32 38 30 00 7B  |A.n.r..E.0.280.{|
00000570: 0D 7C 01 45 B2 30 3A 89  32 39 30 00 B4 0D 86 01  |.|.E.0:.290.....|
00000580: 99 22 93 22 3A 4C B2 30  3A 81 49 B2 31 A4 4E 3A  |.".":L.0:.I.1.N:|
00000590: 4C B2 4C AA 31 3A 99 4D  24 28 49 2C 31 29 22 2C  |L.L.1:.M$(I,1)",|
000005A0: 20 22 4D 24 28 49 2C 32  29 3A 8B 4C B3 B1 31 30  | "M$(I,2):.L..10|
000005B0: A7 34 31 30 00 C6 0D 90  01 4C B2 30 3A 8D 36 33  |.410.....L.0:.63|
000005C0: 30 3A 99 22 93 22 00 D7  0D 9A 01 82 49 3A 8D 36  |0:."."......I:.6|
000005D0: 33 30 3A 89 32 34 30 00  02 0E A4 01 8D 37 33 30  |30:.240......730|
000005E0: 3A 81 49 B2 31 A4 4E 3A  8B 42 24 B2 4D 24 28 49  |:.I.1.N:.B$.M$(I|
000005F0: 2C 31 29 AF 43 24 B2 4D  24 28 49 2C 32 29 A7 34  |,1).C$.M$(I,2).4|
00000600: 35 30 00 09 0E AE 01 82  49 00 34 0E B8 01 99 22  |50......I.4...."|
00000610: 93 11 11 22 3B 42 24 3A  99 22 11 49 53 20 4E 4F  |...";B$:.".IS NO|
00000620: 54 20 49 4E 20 46 49 4C  45 22 3A 8D 36 33 30 3A  |T IN FILE":.630:|
00000630: 89 32 34 30 00 47 0E C2  01 8D 37 32 30 3A 8D 36  |.240.G....720:.6|
00000640: 33 30 3A 89 32 34 30 00  65 0E CC 01 99 22 93 44  |30:.240.e....".D|
00000650: 49 53 4B 20 4F 52 20 43  41 53 53 45 54 54 45 28  |ISK OR CASSETTE(|
00000660: 44 2F 43 29 22 00 8A 0E  D6 01 A1 45 24 3A 8B 28  |D/C)"......E$:.(|
00000670: 45 24 B3 B1 22 44 22 AF  45 24 B3 B1 22 43 22 29  |E$.."D".E$.."C")|
00000680: B0 45 24 B2 22 22 A7 34  37 30 00 B1 0E E0 01 8B  |.E$."".470......|
00000690: 45 24 B2 22 44 22 A7 46  24 B2 22 40 30 3A 41 44  |E$."D".F$."@0:AD|
000006A0: 44 52 45 53 53 45 53 22  3A 46 B2 31 3A 89 35 30  |DRESSES":F.1:.50|
000006B0: 30 00 CE 0E EA 01 46 24  B2 22 41 44 44 52 45 53  |0.....F$."ADDRES|
000006C0: 53 45 53 22 3A 46 B2 30  3A 47 24 B2 22 22 00 DB  |SES":F.0:G$.""..|
000006D0: 0E F4 01 8B 42 B2 35 A7  35 35 30 00 EE 0E FE 01  |....B.5.550.....|
000006E0: 8B 46 B2 31 A7 47 24 B2  22 2C 53 2C 52 22 00 0A  |.F.1.G$.",S,R"..|
000006F0: 0F 08 02 9F 31 2C 31 AA  37 AC 46 2C 38 AC 46 2C  |....1,1.7.F,8.F,|
00000700: 46 24 AA 47 24 3A 8D 35  39 30 00 21 0F 12 02 84  |F$.G$:.590.!....|
00000710: 31 2C 4E 3A 81 49 B2 31  A4 4E 3A 81 4A B2 31 A4  |1,N:.I.1.N:.J.1.|
00000720: 37 00 45 0F 1C 02 84 31  2C 4D 24 28 49 2C 4A 29  |7.E....1,M$(I,J)|
00000730: 3A 82 3A 82 3A 8D 35 39  30 3A A0 31 3A 8D 35 39  |:.:.:.590:.1:.59|
00000740: 30 3A 89 34 30 00 58 0F  26 02 8B 46 B2 31 A7 47  |0:.40.X.&..F.1.G|
00000750: 24 B2 22 2C 53 2C 57 22  00 76 0F 30 02 9F 31 2C  |$.",S,W".v.0..1,|
00000760: 31 AA 37 AC 46 2C 31 AA  37 AC 46 2C 46 24 AA 47  |1.7.F,1.7.F,F$.G|
00000770: 24 3A 8D 35 39 30 00 8D  0F 3A 02 98 31 2C 4E 3A  |$:.590...:..1,N:|
00000780: 81 49 B2 31 A4 4E 3A 81  4A B2 31 A4 37 00 AF 0F  |.I.1.N:.J.1.7...|
00000790: 44 02 98 31 2C 4D 24 28  49 2C 4A 29 3A 82 3A 82  |D..1,M$(I,J):.:.|
000007A0: 3A 8D 35 39 30 3A A0 31  3A 8D 35 39 30 3A 80 00  |:.590:.1:.590:..|
000007B0: BA 0F 4E 02 8B 46 B2 30  A7 8E 00 D0 0F 58 02 8B  |..N..F.0.....X..|
000007C0: 4F B2 30 A7 9F 31 35 2C  38 2C 31 35 3A 4F B2 31  |O.0..15,8,15:O.1|
000007D0: 00 F0 0F 62 02 84 31 35  2C 41 2C 42 24 2C 43 2C  |...b..15,A,B$,C,|
000007E0: 44 3A 8B 41 A7 99 41 2C  42 24 2C 43 2C 44 3A 90  |D:.A..A,B$,C,D:.|
000007F0: 00 F6 0F 6C 02 8E 00 12  10 76 02 99 22 11 11 12  |...l.....v.."...|
00000800: 1C 41 4E 59 20 4B 45 59  20 54 4F 20 43 4F 4E 54  |.ANY KEY TO CONT|
00000810: 27 22 00 25 10 80 02 A1  41 24 3A 8B 41 24 B2 22  |'".%....A$:.A$."|
00000820: 22 A7 36 34 30 00 2B 10  8A 02 8E 00 4B 10 94 02  |".640.+.....K...|
00000830: 8D 37 35 30 3A 81 49 B2  31 A4 4E 3A 8B 44 24 B2  |.750:.I.1.N:.D$.|
00000840: 4D 24 28 49 2C 36 29 A7  34 35 30 00 52 10 9E 02  |M$(I,6).450.R...|
00000850: 82 49 00 7D 10 A8 02 99  22 93 11 11 22 3B 44 24  |.I.}...."...";D$|
00000860: 3A 99 22 11 49 53 20 4E  4F 54 20 49 4E 20 46 49  |:.".IS NOT IN FI|
00000870: 4C 45 22 3A 8D 36 33 30  3A 89 32 34 30 00 A9 10  |LE":.630:.240...|
00000880: B2 02 8D 37 36 30 3A 46  B2 2E 3A 81 49 B2 31 A4  |...760:F..:.I.1.|
00000890: 4E 3A 8B 45 24 B2 CA 28  4D 24 28 49 2C 37 29 2C  |N:.E$..(M$(I,7),|
000008A0: 34 2C 32 29 A7 8D 37 37  30 00 BF 10 BC 02 82 49  |4,2)..770......I|
000008B0: 3A 8B 46 B1 30 A7 8D 36  33 30 3A 89 32 34 30 00  |:.F.0..630:.240.|
000008C0: EC 10 C6 02 99 22 11 11  4E 4F 20 42 49 52 54 48  |....."..NO BIRTH|
000008D0: 44 41 59 53 20 49 4E 20  4D 4F 4E 54 48 20 22 3B  |DAYS IN MONTH ";|
000008E0: 45 24 3A 8D 36 33 30 3A  89 32 34 30 00 38 11 D0  |E$:.630:.240.8..|
000008F0: 02 99 22 93 11 22 4D 24  28 49 2C 31 29 22 2C 20  |..".."M$(I,1)", |
00000900: 22 4D 24 28 49 2C 32 29  51 24 4D 24 28 49 2C 33  |"M$(I,2)Q$M$(I,3|
00000910: 29 51 24 4D 24 28 49 2C  34 29 22 20 22 4D 24 28  |)Q$M$(I,4)" "M$(|
00000920: 49 2C 35 29 51 24 4D 24  28 49 2C 36 29 51 24 4D  |I,5)Q$M$(I,6)Q$M|
00000930: 24 28 49 2C 37 29 3A 8E  00 76 11 DA 02 99 22 93  |$(I,7):..v....".|
00000940: 11 1D 1D 1D 57 48 41 54  20 4E 41 4D 45 20 44 4F  |....WHAT NAME DO|
00000950: 20 59 4F 55 22 51 24 22  1D 1D 1D 57 41 4E 54 20  | YOU"Q$"...WANT |
00000960: 28 4C 41 53 54 20 4E 41  4D 45 29 3F 22 3A 85 22  |(LAST NAME)?":."|
00000970: 11 11 22 3B 42 24 00 9D  11 E4 02 99 22 11 1D 1D  |..";B$......"...|
00000980: 1D 57 48 41 54 20 46 49  52 53 54 20 4E 41 4D 45  |.WHAT FIRST NAME|
00000990: 3F 22 3A 85 22 11 11 22  3B 43 24 3A 8E 00 D6 11  |?":."..";C$:....|
000009A0: EE 02 99 22 93 11 1D 1D  1D 57 48 41 54 20 50 48  |...".....WHAT PH|
000009B0: 4F 4E 45 20 4E 4F 2E 20  44 4F 22 51 24 22 1D 1D  |ONE NO. DO"Q$"..|
000009C0: 1D 59 4F 55 20 57 41 4E  54 3F 22 3A 85 22 11 11  |.YOU WANT?":."..|
000009D0: 22 3B 44 24 3A 8E 00 12  12 F8 02 99 22 93 11 1D  |";D$:......."...|
000009E0: 1D 1D 57 48 41 54 20 4D  4F 4E 54 48 20 44 4F 22  |..WHAT MONTH DO"|
000009F0: 51 24 22 1D 1D 1D 59 4F  55 20 57 41 4E 54 20 54  |Q$"...YOU WANT T|
00000A00: 4F 20 53 45 45 3F 22 3A  85 22 11 11 22 3B 45 24  |O SEE?":."..";E$|
00000A10: 3A 8E 00 3B 12 02 03 46  B2 46 AA 31 3A 99 4D 24  |:..;...F.F.1:.M$|
00000A20: 28 49 2C 31 29 22 2C 20  22 4D 24 28 49 2C 32 29  |(I,1)", "M$(I,2)|
00000A30: 51 24 4D 24 28 49 2C 37  29 3A 8E 00 00 00        |Q$M$(I,7):....  |

..4...L.200:.65517:A.B(781):Q$.G(13):.A.
40..53281,15.W....M$(L,7),N$(7):.I.1.7:.
N$(I):.. ....LAST NAME,FIRST NAME,ADDRES
S,CITY/STATE,POSTCODE,TELEPHONE,BIRTHDAY
...(.."........ADDRESS FILE"Q$"...1..RET
RIEVE FILE"Q$"..2..ADD/START FILE".*.2..
"..3..EDIT FILE"Q$"..4..DISPLAY FILE"Q$"
..5..SAVE AND END".[.<.."..YOUR CHOICE";
B:.B.460,70,130,240,460:.40...F.N.N.1:."
.RECORD #"N:.J.1.7:.Q$"...";N$(J);"..":.
M$(N,J)...P..J:.". .N.EXT .D.ELETE .E.ND
"...Z..A$:.A$."".(A$.."D".A$.."N".A$.."E
").90...D..A$."N".70...N..A$."E".40...X.
N.N.1:.70.<....730:.I.1.N:.B$.M$(I,1).C$
.M$(I,2).150.F....I:.".."B$".IS NOT IN F
ILE.":.630:.40.O....720. . .."..    DELE
TE ENTRY.":."YES OR NO (Y/N)";J$......J$
."Y".210...H..630:.220...R..A.I.N.1:.J.1
.7:M$(A,J).M$(A.1,J):.J,A:N.N.1.;...."..
.DO YOU WISH TO:"Q$"..1..CONTINUE EDITIN
G"Q$"..2..RETURN TO MENU..".`....".YOUR 
CHOICE";B:.B.130,40:.230......"...WHICH 
DO YOU WANT"Q$"..1..ALPHABETICAL"Q$"..2.
.INDIVIDUAL".L...."..3..TELEPHONE"Q$"..4
..BIRTH/MTH"......"..5..MENU..":."YOUR C
HOICE";B:.B.270,420,660,690,40:.260.@...
G.N:.N.0..".NO RECORDS IN FILE.":.I.1.20
00:.:.40.M...G..(G.2).Z."..G.0.390.G.,..
A.1.N.G...6..M$(A,1)..M$(A.G,1).360.T.@.
R$.M$(A,1):S$.M$(A,2):T$.M$(A,3):U$.M$(A
,4):V$.M$(A,5):W$.M$(A,6):X$.M$(A,7)...J
..J.1.7:M$(A,J).M$(A.G,J):..8.T.M$(A.G,1
).R$:M$(A.G,2).S$:M$(A.G,3).T$:M$(A.G,4)
.U$:M$(A.G,5).V$.Z.^.M$(A.G,6).W$:M$(A.G
,7).X$:E.A.A.H..A.N.R..E.0.280.{.|.E.0:.
290......".":L.0:.I.1.N:L.L.1:.M$(I,1)",
 "M$(I,2):.L..10.410.F...L.0:.630:.".".W
....I:.630:.240......730:.I.1.N:.B$.M$(I
,1).C$.M$(I,2).450......I.4...."...";B$:
.".IS NOT IN FILE":.630:.240.G.B..720:.6
30:.240.E.L..".DISK OR CASSETTE(D/C)"...
V..E$:.(E$.."D".E$.."C").E$."".470......
E$."D".F$."@0:ADDRESSES":F.1:.500.N...F$
."ADDRESSES":F.0:G$.""......B.5.550.....
.F.1.G$.",S,R"......1,1.7.F,8.F,F$.G$:.5
90.!....1,N:.I.1.N:.J.1.7.E....1,M$(I,J)
:.:.:.590: 1:.590:.40.X.&..F.1.G$.",S,W"
.V.0..1,1.7.F,1.7.F,F$.G$:.590...:..1,N:
.I.1.N:.J.1.7...D..1,M$(I,J):.:.:.590: 1
:.590:....N..F.0...P.X..O.0..15,8,15:O.1
...B..15,A,B$,C,D:.A..A,B$,C,D:....L....
.V.."....ANY KEY TO CONT'".%....A$:.A$."
".640.+.....K....750:.I.1.N:.D$.M$(I,6).
450.R....I.}...."...";D$:.".IS NOT IN FI
LE":.630:.240......760:F..:.I.1.N:.E$.J(
M$(I,7),4,2)..770......I:.F.0..630:.240.
..F.."..NO BIRTHDAYS IN MONTH ";E$:.630:
.240.8.P..".."M$(I,1)", "M$(I,2)Q$M$(I,3
)Q$M$(I,4)" "M$(I,5)Q$M$(I,6)Q$M$(I,7):.
.V.Z..".....WHAT NAME DO YOU"Q$"...WANT 
(LAST NAME)?":."..";B$......"....WHAT FI
RST NAME?":."..";C$:..V....".....WHAT PH
ONE NO. DO"Q$"...YOU WANT?":."..";D$:...
....".....WHAT MONTH DO"Q$"...YOU WANT T
O SEE?":."..";E$:..;...F.F.1:.M$(I,1)", 
"M$(I,2)Q$M$(I,7):....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL