_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

MODEM MACHINE

FILE INFORMATION

FILENAME(S): MODEM MACHINE

FILE TYPE(S): PRG

FILE SIZE: 2.7K

FIRST SEEN: 2025-11-30 18:12:15

APPEARS ON: 1 disk(s)

FILE HASH

6cadd6a3c0dc3d11baab26ceb753b10a4b696300dede8de974b695a7c52af9a0

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOADSTAR 30 S 1 MODEM MACHINE PRG Sailor, Ganheden 30 4 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0C 08 64 00 97 32  35 31 2C 2E 00 33 08 6E  |....d..251,..3.n|
00000010: 00 97 35 33 32 38 31 2C  31 36 3A 97 35 33 32 38  |..53281,16:.5328|
00000020: 30 2C 31 36 3A 99 C7 28  31 34 29 3A 4D 4E 24 B2  |0,16:..(14):MN$.|
00000030: 22 31 22 00 5D 08 78 00  99 22 93 9B 20 20 20 20  |"1".].x.."..    |
00000040: 20 20 20 CD 4F 44 45 4D  20 C1 4E 53 57 45 52 20  |   .ODEM .NSWER |
00000050: CD 41 43 48 49 4E 45 20  31 39 38 35 22 00 86 08  |.ACHINE 1985"...|
00000060: 82 00 99 22 20 20 20 20  20 20 20 96 A3 A3 A3 A3  |..."       .....|
00000070: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
00000080: A3 A3 A3 A3 A3 22 00 C4  08 8C 00 99 22 20 20 20  |....."......"   |
00000090: 20 20 20 20 9A 20 C2 59  3A 20 C4 4F 4E 20 26 20  |    . .Y: .ON & |
000000A0: C4 41 52 52 59 4E 20 C7  52 41 48 41 4D 22 3A 99  |.ARRYN .RAHAM":.|
000000B0: 22 11 11 9B 20 CD 41 49  4C 20 2D 3E 22 3B C2 28  |"... .AIL ->";.(|
000000C0: 32 35 31 29 00 0B 09 96  00 99 22 11 11 1E 20 D0  |251)......"... .|
000000D0: 4C 41 43 45 20 59 4F 55  52 20 27 D4 2D C4 27 20  |LACE YOUR '.-.' |
000000E0: 53 57 49 54 43 48 20 54  4F 20 27 C4 27 20 41 4E  |SWITCH TO '.' AN|
000000F0: 44 20 48 49 54 20 20 5B  D2 45 54 55 52 4E 5D 20  |D HIT  [.ETURN] |
00000100: 54 4F 20 45 4E 54 45 52  20 22 3B 00 3A 09 A0 00  |TO ENTER ";.:...|
00000110: 99 22 C1 4E 53 57 45 52  20 4D 4F 44 45 2D 20 22  |.".NSWER MODE- "|
00000120: 3A 99 22 20 5B C6 31 5D  20 54 4F 20 57 52 49 54  |:." [.1] TO WRIT|
00000130: 45 20 4D 45 53 53 41 47  45 22 00 58 09 A5 00 99  |E MESSAGE".X....|
00000140: 22 20 5B C6 33 5D 20 54  4F 20 D2 45 41 44 20 CD  |" [.3] TO .EAD .|
00000150: 45 53 53 41 47 45 53 22  00 77 09 AA 00 99 22 20  |ESSAGES".w...." |
00000160: 5B C6 35 5D 20 54 4F 20  50 52 49 4E 54 20 4D 45  |[.5] TO PRINT ME|
00000170: 53 53 41 47 45 53 22 00  8D 09 AF 00 99 22 11 20  |SSAGES"......". |
00000180: 20 5B D1 5D 20 54 4F 20  51 55 49 54 22 00 A2 09  | [.] TO QUIT"...|
00000190: B4 00 A1 5A 58 24 3A 8B  5A 58 24 B2 22 22 A7 31  |...ZX$:.ZX$."".1|
000001A0: 38 30 00 B5 09 B9 00 8B  5A 58 24 B2 C7 28 31 33  |80......ZX$..(13|
000001B0: 29 A7 32 33 30 00 C6 09  BE 00 8B 5A 58 24 B2 22  |).230......ZX$."|
000001C0: 85 22 A7 37 30 30 00 01  0A C3 00 8B 5A 58 24 B2  |.".700......ZX$.|
000001D0: 22 86 22 AF C2 28 32 35  31 29 B2 2E A7 99 22 93  |"."..(251)....".|
000001E0: CE 4F 20 CD 45 53 53 41  47 45 53 20 4F 4E 20 46  |.O .ESSAGES ON F|
000001F0: 49 4C 45 2E 22 3A 81 41  B2 31 A4 31 35 30 30 3A  |ILE.":.A.1.1500:|
00000200: 82 00 1B 0A C4 00 8B 5A  58 24 B2 22 86 22 AF C2  |.......ZX$."."..|
00000210: 28 32 35 31 29 B2 2E A7  31 32 30 00 33 0A C8 00  |(251)...120.3...|
00000220: 8B 5A 58 24 B2 22 86 22  AF C2 28 32 35 31 29 A7  |.ZX$."."..(251).|
00000230: 36 34 30 00 44 0A D2 00  8B 5A 58 24 B2 22 87 22  |640.D....ZX$."."|
00000240: A7 37 35 30 00 5F 0A DC  00 8B 5A 58 24 B3 B1 22  |.750._....ZX$.."|
00000250: 51 22 AF 5A 58 24 B3 B1  22 D1 22 A7 31 38 30 00  |Q".ZX$..".".180.|
00000260: 98 0A DE 00 9F 31 35 2C  38 2C 31 35 2C 22 52 30  |.....15,8,15,"R0|
00000270: 3A 48 45 4C 4C 4F 20 43  4F 4E 4E 45 43 54 3D 48  |:HELLO CONNECT=H|
00000280: 45 4C 4C 4F 20 43 4F 4E  4E 45 43 54 22 3A 84 31  |ELLO CONNECT":.1|
00000290: 35 2C 45 52 3A A0 31 35  00 AC 0A E0 00 99 22 93  |5,ER:.15......".|
000002A0: 22 3B 3A 8B 45 52 B3 B1  36 33 A7 80 00 C3 0A E2  |";:.ER..63......|
000002B0: 00 93 22 48 45 4C 4C 4F  20 43 4F 4E 4E 45 43 54  |.."HELLO CONNECT|
000002C0: 22 2C 38 00 D3 0A E6 00  9F 35 2C 32 2C 32 2C C7  |",8......5,2,2,.|
000002D0: 28 36 29 00 FD 0A F0 00  99 22 93 9B 20 20 20 20  |(6)......"..    |
000002E0: 20 20 20 CD 4F 44 45 4D  20 C1 4E 53 57 45 52 20  |   .ODEM .NSWER |
000002F0: CD 41 43 48 49 4E 45 20  31 39 38 35 22 00 26 0B  |.ACHINE 1985".&.|
00000300: FA 00 99 22 20 20 20 20  20 20 20 96 A3 A3 A3 A3  |..."       .....|
00000310: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
00000320: A3 A3 A3 A3 A3 22 00 64  0B 04 01 99 22 20 20 20  |.....".d...."   |
00000330: 20 20 20 20 9A 20 C2 59  3A 20 C4 4F 4E 20 26 20  |    . .Y: .ON & |
00000340: C4 41 52 52 59 4E 20 C7  52 41 48 41 4D 22 3A 99  |.ARRYN .RAHAM":.|
00000350: 22 11 11 9A CD 41 49 4C  20 2D 2D 3E 22 3B C2 28  |"....AIL -->";.(|
00000360: 32 35 31 29 00 91 0B 0E  01 99 22 11 11 96 20 20  |251)......"...  |
00000370: 20 20 D3 59 53 54 45 4D  20 D7 41 49 54 49 4E 47  |  .YSTEM .AITING|
00000380: 20 46 4F 52 20 41 20 C3  41 4C 4C 45 52 2E 2E 2E  | FOR A .ALLER...|
00000390: 22 00 9F 0B 18 01 97 35  36 35 37 39 2C 33 38 00  |"......56579,38.|
000003A0: AF 0B 22 01 92 20 35 36  35 37 37 2C 38 2C 38 00  |..".. 56577,8,8.|
000003B0: C6 0B 2C 01 97 35 36 35  37 37 2C C2 28 35 36 35  |..,..56577,.(565|
000003C0: 37 37 29 B0 33 32 00 F0  0B 36 01 99 22 1E 20 20  |77).32...6..".  |
000003D0: 20 20 11 C3 41 4C 4C 45  52 20 C1 54 54 45 4D 50  |  ..ALLER .TTEMP|
000003E0: 54 49 4E 47 20 54 4F 20  C3 4F 4E 4E 45 43 54 22  |TING TO .ONNECT"|
000003F0: 00 02 0C 40 01 92 20 35  36 35 37 37 2C 31 36 2C  |...@.. 56577,16,|
00000400: 32 34 00 31 0C 4A 01 99  22 93 11 11 11 9B C3 41  |24.1.J.."......A|
00000410: 52 52 49 45 52 20 CF 4E  4C 49 4E 45 2E 2E 2E 20  |RRIER .NLINE... |
00000420: 57 41 49 54 49 4E 47 20  46 4F 52 20 5B C3 D2 5D  |WAITING FOR [..]|
00000430: 22 00 6E 0C 54 01 81 49  B2 31 A4 32 30 30 30 3A  |".n.T..I.1.2000:|
00000440: 82 3A 4D 24 B2 22 20 C3  48 4F 4F 53 45 20 C8 41  |.:M$." .HOOSE .A|
00000450: 4C 46 20 C4 55 50 4C 45  58 2D 2D 20 C8 49 54 20  |LF .UPLEX-- .IT |
00000460: 5B D2 45 54 55 52 4E 5D  22 3A 8D 37 34 30 00 7A  |[.ETURN]":.740.z|
00000470: 0C 5E 01 43 54 B2 43 54  AA 31 00 9D 0C 68 01 A1  |.^.CT.CT.1...h..|
00000480: 23 35 2C 41 24 3A 8B 41  24 B3 B1 C7 28 31 33 29  |#5,A$:.A$...(13)|
00000490: A7 8B 43 54 B3 32 30 30  30 A7 33 35 30 00 D1 0C  |..CT.2000.350...|
000004A0: 72 01 8B 41 24 B2 C7 28  31 33 29 A7 4D 24 B2 22  |r..A$..(13).M$."|
000004B0: 11 CD 4F 44 45 4D 20 C1  4E 53 57 45 52 20 CD 41  |..ODEM .NSWER .A|
000004C0: 43 48 49 4E 45 2E 22 3A  8D 37 34 30 3A 89 34 30  |CHINE.":.740:.40|
000004D0: 30 00 F4 0C 7C 01 99 22  54 49 4D 45 20 49 53 20  |0...|.."TIME IS |
000004E0: 55 50 2C 20 4E 4F 42 4F  44 59 20 57 41 53 20 54  |UP, NOBODY WAS T|
000004F0: 48 45 52 45 00 12 0D 86  01 97 35 36 35 37 37 2C  |HERE......56577,|
00000500: 30 3A 81 49 B2 31 A4 35  30 30 30 3A 82 3A 89 32  |0:.I.1.5000:.:.2|
00000510: 34 30 00 54 0D 90 01 4D  24 B2 22 2D 2D 2D 2D 2D  |40.T...M$."-----|
00000520: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000530: 2D 2D 2D 2D 2D 2D 2D 22  3A 8D 37 34 30 3A 4E 24  |-------":.740:N$|
00000540: B2 22 D9 4F 55 52 20 CE  41 4D 45 20 2D 3E 22 3A  |.".OUR .AME ->":|
00000550: 8D 38 34 30 00 5F 0D 9A  01 84 35 2C 4E 41 24 00  |.840._....5,NA$.|
00000560: 8A 0D A4 01 4D 24 B2 22  D9 4F 55 20 41 52 45 20  |....M$.".OU ARE |
00000570: 22 AA 4E 41 24 AA 22 20  D2 49 47 48 54 3F 20 28  |".NA$." .IGHT? (|
00000580: 59 2F 4E 29 22 3A 8D 37  34 30 00 A5 0D AE 01 A1  |Y/N)":.740......|
00000590: 23 35 2C 5A 58 24 3A 8B  5A 58 24 B2 C7 28 38 39  |#5,ZX$:.ZX$..(89|
000005A0: 29 A7 34 36 30 00 C1 0D  B8 01 8B 5A 58 24 B2 C7  |).460......ZX$..|
000005B0: 28 37 38 29 A7 20 4E 41  24 B2 22 22 3A 89 34 30  |(78). NA$."":.40|
000005C0: 30 00 CA 0D C2 01 89 34  33 30 00 F4 0D CC 01 99  |0......430......|
000005D0: 22 CF 4E 4C 49 4E 45 20  2D 3E 22 3B 4E 41 24 3A  |".NLINE ->";NA$:|
000005E0: 4D 24 B2 C7 28 31 33 29  AA C7 28 31 33 29 AA C7  |M$..(13)..(13)..|
000005F0: 28 31 33 29 00 24 0E D6  01 4D 24 B2 22 2D 2D 20  |(13).$...M$."-- |
00000600: D3 54 41 4E 44 42 59 20  46 4F 52 20 D3 59 53 4F  |.TANDBY FOR .YSO|
00000610: 50 27 53 20 CD 45 53 53  41 47 45 20 2D 2D 22 3A  |P'S .ESSAGE --":|
00000620: 8D 37 34 30 00 41 0E E0  01 9F 38 2C 38 2C 38 2C  |.740.A....8,8,8,|
00000630: 22 30 3A 53 59 53 4F 50  20 4D 53 47 2C 53 2C 52  |"0:SYSOP MSG,S,R|
00000640: 22 00 65 0E EA 01 A1 23  38 2C 41 24 3A 8B 53 54  |".e....#8,A$:.ST|
00000650: B3 B1 36 34 A7 98 35 2C  41 24 3B 3A 99 41 24 3B  |..64..5,A$;:.A$;|
00000660: 3A 89 34 39 30 00 91 0E  F4 01 4D 24 B2 C7 28 31  |:.490.....M$..(1|
00000670: 33 29 AA 22 2D 2D 20 C5  4E 44 20 4F 46 20 CD 45  |3)."-- .ND OF .E|
00000680: 53 53 41 47 45 20 2D 2D  22 3A 8D 37 34 30 3A A0  |SSAGE --":.740:.|
00000690: 38 00 AF 0E FE 01 4D 24  B2 C7 28 31 33 29 AA C7  |8.....M$..(13)..|
000006A0: 28 31 33 29 AA C7 28 31  33 29 3A 8D 37 34 30 00  |(13)..(13):.740.|
000006B0: B8 0E 08 02 89 35 35 30  00 E8 0E 12 02 4D 24 B2  |.....550.....M$.|
000006C0: C7 28 31 33 29 AA C7 28  31 33 29 AA 22 D4 48 41  |.(13)..(13).".HA|
000006D0: 4E 4B 53 20 46 4F 52 20  43 41 4C 4C 49 4E 47 2E  |NKS FOR CALLING.|
000006E0: 2E 2E 22 3A 8D 37 34 30  00 06 0F 1C 02 97 35 36  |..":.740......56|
000006F0: 35 37 37 2C 30 3A 81 49  B2 31 A4 35 30 30 30 3A  |577,0:.I.1.5000:|
00000700: 82 3A 89 32 34 30 00 3C  0F 26 02 4D 24 B2 22 3C  |.:.240.<.&.M$."<|
00000710: 2D 2D 20 CD 45 53 53 41  47 45 20 46 4F 52 20 D3  |-- .ESSAGE FOR .|
00000720: 59 53 4F 50 20 2D 2D 3E  22 3A 4D 4E 24 B2 C4 28  |YSOP -->":MN$..(|
00000730: C2 28 32 35 31 29 29 3A  8D 37 34 30 00 5E 0F 30  |.(251)):.740.^.0|
00000740: 02 4D 24 B2 22 20 D4 59  50 45 20 27 5E 27 20 54  |.M$." .YPE '^' T|
00000750: 4F 20 45 4E 44 2E 2E 2E  22 3A 8D 37 34 30 00 7E  |O END...":.740.~|
00000760: 0F 3A 02 9F 38 2C 38 2C  38 2C 22 30 3A 4D 41 49  |.:..8,8,8,"0:MAI|
00000770: 4C 20 22 AA 4D 4E 24 AA  22 2C 53 2C 57 22 00 8F  |L ".MN$.",S,W"..|
00000780: 0F 44 02 98 38 2C 4E 41  24 AA C7 28 31 33 29 00  |.D..8,NA$..(13).|
00000790: A5 0F 4E 02 A1 23 35 2C  41 24 3A 8B 41 24 B2 22  |..N..#5,A$:.A$."|
000007A0: 22 A7 35 39 30 00 C3 0F  58 02 8B 41 24 B3 B1 22  |".590...X..A$.."|
000007B0: 5E 22 A7 99 41 24 3B 3A  98 38 2C 41 24 3B 3A 89  |^"..A$;:.8,A$;:.|
000007C0: 35 39 30 00 CA 0F 62 02  98 38 00 FC 0F 6C 02 98  |590...b..8...l..|
000007D0: 35 2C 22 D3 41 56 49 4E  47 22 3A A0 38 3A 4D 24  |5,".AVING":.8:M$|
000007E0: B2 22 D4 48 41 4E 4B 53  20 46 4F 52 20 59 4F 55  |.".HANKS FOR YOU|
000007F0: 52 20 43 4F 4D 4D 45 4E  54 53 2E 22 00 0E 10 71  |R COMMENTS."...q|
00000800: 02 97 32 35 31 2C C2 28  32 35 31 29 AA 31 00 1C  |..251,.(251).1..|
00000810: 10 76 02 8D 37 34 30 3A  89 35 33 30 00 4B 10 80  |.v..740:.530.K..|
00000820: 02 99 22 93 CD 41 49 4C  20 4E 55 4D 42 45 52 20  |.."..AIL NUMBER |
00000830: 54 4F 20 52 45 41 44 2E  2E 2E 3E 22 3B 3A 85 43  |TO READ...>";:.C|
00000840: 4E 3A 4D 4E 24 B2 C4 28  43 4E 29 00 6B 10 8A 02  |N:MN$..(CN).k...|
00000850: 9F 38 2C 38 2C 38 2C 22  30 3A 4D 41 49 4C 20 22  |.8,8,8,"0:MAIL "|
00000860: AA 4D 4E 24 AA 22 2C 53  2C 52 22 00 88 10 94 02  |.MN$.",S,R".....|
00000870: A1 23 38 2C 41 24 3A 8B  53 54 B3 B1 36 34 A7 99  |.#8,A$:.ST..64..|
00000880: 41 24 3B 3A 89 36 36 30  00 A0 10 9E 02 A0 38 3A  |A$;:.660......8:|
00000890: 99 22 11 11 20 C8 49 54  20 D3 50 41 43 45 2E 22  |.".. .IT .PACE."|
000008A0: 00 B7 10 A8 02 A1 5A 58  24 3A 8B 5A 58 24 B3 B1  |......ZX$:.ZX$..|
000008B0: 22 20 22 A7 36 38 30 00  C0 10 B2 02 89 31 32 30  |" ".680......120|
000008C0: 00 EA 10 BC 02 99 22 93  20 C2 45 47 49 4E 20 CE  |......". .EGIN .|
000008D0: 4F 57 2E 22 3A 99 22 20  C8 49 54 20 27 5E 27 20  |OW.":." .IT '^' |
000008E0: 54 4F 20 45 4E 44 2E 2E  2E 22 00 07 11 C6 02 9F  |TO END..."......|
000008F0: 38 2C 38 2C 38 2C 22 30  3A 53 59 53 4F 50 20 4D  |8,8,8,"0:SYSOP M|
00000900: 53 47 2C 53 2C 57 22 00  29 11 D0 02 A1 41 24 3A  |SG,S,W".)....A$:|
00000910: 8B 41 24 B3 B1 22 5E 22  A7 99 41 24 3B 3A 98 38  |.A$.."^"..A$;:.8|
00000920: 2C 41 24 3B 3A 89 37 32  30 00 38 11 DA 02 98 38  |,A$;:.720.8....8|
00000930: 3A A0 38 3A 89 31 32 30  00 48 11 E4 02 98 35 2C  |:.8:.120.H....5,|
00000940: 4D 24 3A 99 4D 24 3A 8E  00 63 11 EE 02 9F 31 35  |M$:.M$:..c....15|
00000950: 2C 34 2C 31 35 3A A0 31  35 3A 8B 53 54 B2 2E A7  |,4,15:.15:.ST...|
00000960: 37 36 30 00 87 11 F0 02  99 22 93 96 C5 52 52 4F  |760......"...RRO|
00000970: 52 3A 20 D0 52 49 4E 54  45 52 20 CE 4F 54 20 CF  |R: .RINTER .OT .|
00000980: 4E 4C 49 4E 45 2E 22 00  9C 11 F3 02 81 41 B2 31  |NLINE."......A.1|
00000990: A4 31 35 30 30 3A 82 3A  89 31 32 30 00 BF 11 F8  |.1500:.:.120....|
000009A0: 02 99 22 93 11 11 96 20  D0 52 49 4E 54 20 CD 41  |..".... .RINT .A|
000009B0: 49 4C 20 54 4F 20 D0 52  49 4E 54 45 52 2E 22 00  |IL TO .RINTER.".|
000009C0: EE 11 02 03 99 22 11 9A  20 C5 4E 54 45 52 20 CD  |.....".. .NTER .|
000009D0: 41 49 4C 23 20 54 4F 20  50 52 49 4E 54 20 2D 3E  |AIL# TO PRINT ->|
000009E0: 22 3B 3A 85 45 3A 45 53  24 B2 C4 28 45 29 00 00  |";:.E:ES$..(E)..|
000009F0: 12 0C 03 8B 45 B1 C2 28  32 35 31 29 A7 37 36 30  |....E..(251).760|
00000A00: 00 30 12 16 03 9F 34 2C  34 2C 37 3A 9F 38 2C 38  |.0....4,4,7:.8,8|
00000A10: 2C 38 2C 22 30 3A 4D 41  49 4C 20 22 AA 45 53 24  |,8,"0:MAIL ".ES$|
00000A20: AA 22 2C 53 2C 52 22 3A  98 34 2C C7 28 31 37 29  |.",S,R":.4,.(17)|
00000A30: 00 4F 12 20 03 A1 23 38  2C 41 24 3A 8B 53 54 B3  |.O. ..#8,A$:.ST.|
00000A40: B1 36 34 A7 98 34 2C 41  24 3B 3A 89 38 30 30 00  |.64..4,A$;:.800.|
00000A50: 6D 12 2A 03 A0 38 3A 98  34 3A A0 34 3A 99 22 11  |m.*..8:.4:.4:.".|
00000A60: 11 20 C8 49 54 20 D3 50  41 43 45 2E 22 00 84 12  |. .IT .PACE."...|
00000A70: 34 03 A1 5A 58 24 3A 8B  5A 58 24 B3 B1 22 20 22  |4..ZX$:.ZX$.." "|
00000A80: A7 38 32 30 00 8D 12 3E  03 89 31 32 30 00 9F 12  |.820...>..120...|
00000A90: 48 03 98 35 2C 4E 24 3B  3A 99 4E 24 3B 3A 8E 00  |H..5,N$;:.N$;:..|
00000AA0: 00 00                                             |..              |
....D..251,..3.N..53281,16:.53280,16:.G(
14):MN$."1".].X.."..       MODEM ANSWER 
MACHINE 1985"......"       .............
.............".D...."       . BY: DON & 
DARRYN GRAHAM":."... MAIL ->";B(251)....
.."... PLACE YOUR 'T-D' SWITCH TO 'D' AN
D HIT  [RETURN] TO ENTER ";.:. .."ANSWER
 MODE- ":." [F1] TO WRITE MESSAGE".X....
" [F3] TO READ MESSAGES".W...." [F5] TO 
PRINT MESSAGES"......".  [Q] TO QUIT"...
...ZX$:.ZX$."".180......ZX$.G(13).230.F.
...ZX$.".".700...C..ZX$.".".B(251)....".
NO MESSAGES ON FILE.":.A.1.1500:....D..Z
X$.".".B(251)...120.3.H..ZX$.".".B(251).
640.D.R..ZX$.".".750._....ZX$.."Q".ZX$..
"Q".180......15,8,15,"R0:HELLO CONNECT=H
ELLO CONNECT":.15,ER: 15......".";:.ER..
63...C...."HELLO CONNECT",8.S....5,2,2,G
(6)......"..       MODEM ANSWER MACHINE 
1985".&...."       .....................
.....".D...."       . BY: DON & DARRYN G
RAHAM":."...MAIL -->";B(251)......"...  
  SYSTEM WAITING FOR A CALLER..."......5
6579,38...".. 56577,8,8.F.,..56577,B(565
77).32...6..".    .CALLER ATTEMPTING TO 
CONNECT"...@.. 56577,16,24.1.J..".....CA
RRIER ONLINE... WAITING FOR [CR]".N.T..I
.1.2000:.:M$." CHOOSE HALF DUPLEX-- HIT 
[RETURN]":.740.Z.^.CT.CT.1...H..#5,A$:.A
$..G(13)..CT.2000.350.Q.R..A$.G(13).M$."
.MODEM ANSWER MACHINE.":.740:.400...|.."
TIME IS UP, NOBODY WAS THERE......56577,
0:.I.1.5000:.:.240.T...M$."-------------
---------------":.740:N$."YOUR NAME ->":
.840._....5,NA$.....M$."YOU ARE ".NA$." 
RIGHT? (Y/N)":.740......#5,ZX$:.ZX$.G(89
).460.A....ZX$.G(78). NA$."":.400.J.B..4
30...L.."ONLINE ->";NA$:M$.G(13).G(13).G
(13).$.V.M$."-- STANDBY FOR SYSOP'S MESS
AGE --":.740.A....8,8,8,"0:SYSOP MSG,S,R
".E....#8,A$:.ST..64..5,A$;:.A$;:.490...
..M$.G(13)."-- END OF MESSAGE --":.740: 
8.....M$.G(13).G(13).G(13):.740......550
.....M$.G(13).G(13)."THANKS FOR CALLING.
..":.740......56577,0:.I.1.5000:.:.240.<
.&.M$."<-- MESSAGE FOR SYSOP -->":MN$.D(
B(251)):.740.^.0.M$." TYPE '^' TO END...
":.740.~.:..8,8,8,"0:MAIL ".MN$.",S,W"..
.D..8,NA$.G(13)...N..#5,A$:.A$."".590.C.
X..A$.."^"..A$;:.8,A$;:.590.J.B..8...L..
5,"SAVING": 8:M$."THANKS FOR YOUR COMMEN
TS."...Q..251,B(251).1...V..740:.530.K..
..".MAIL NUMBER TO READ...>";:.CN:MN$.D(
CN).K....8,8,8,"0:MAIL ".MN$.",S,R".....
.#8,A$:.ST..64..A$;:.660. ... 8:.".. HIT
 SPACE."......ZX$:.ZX$.." ".680......120
......". BEGIN NOW.":." HIT '^' TO END..
."...F..8,8,8,"0:SYSOP MSG,S,W".).P..A$:
.A$.."^"..A$;:.8,A$;:.720.8.Z..8: 8:.120
.H....5,M$:.M$:..C....15,4,15: 15:.ST...
760......"..ERROR: PRINTER NOT ONLINE.".
.....A.1.1500:.:.120......".... PRINT MA
IL TO PRINTER."......".. ENTER MAIL# TO 
PRINT ->";:.E:ES$.D(E)......E.B(251).760
.0....4,4,7:.8,8,8,"0:MAIL ".ES$.",S,R":
.4,G(17).O. ..#8,A$:.ST..64..4,A$;:.800.
M.*. 8:.4: 4:.".. HIT SPACE."...4..ZX$:.
ZX$.." ".820...>..120...H..5,N$;:.N$;:..
..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL