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

TELETRON.BAS

FILE INFORMATION

FILENAME(S): TELETRON.BAS

FILE TYPE(S): PRG

FILE SIZE: 2.6K

FIRST SEEN: 2025-11-30 21:24:07

APPEARS ON: 1 disk(s)

FILE HASH

fdbfdb6bbdbd4f7a826816eaefde116ad7735f37efed5d48b1f46803ed025499

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TELETRON1200 3 1 TELETRON.BAS PRG DuncanTwain 16 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 37 08 64 00 42 B2  31 32 AC 34 30 39 36 3A  |..7.d.B.12.4096:|
00000010: 8B 28 C2 28 42 29 B2 31  32 30 29 AF 28 C2 28 42  |.(.(B).120).(.(B|
00000020: AA 31 29 B2 32 34 29 AF  28 C2 28 42 AA 32 29 B2  |.1).24).(.(B.2).|
00000030: 33 32 29 A7 31 32 30 00  4F 08 6E 00 93 22 54 45  |32).120.O.n.."TE|
00000040: 4C 45 54 52 4F 4E 20 24  43 30 22 2C 38 2C 31 00  |LETRON $C0",8,1.|
00000050: 5F 08 78 00 9F 32 2C 32  2C 30 2C C7 28 38 29 00  |_.x..2,2,0,.(8).|
00000060: 75 08 82 00 97 35 33 32  38 30 2C 39 3A 97 35 33  |u....53280,9:.53|
00000070: 32 38 31 2C 39 00 80 08  8C 00 99 C7 28 31 34 29  |281,9.......(14)|
00000080: 00 A0 08 96 00 42 B2 31  32 AC 34 30 39 36 3A 52  |.....B.12.4096:R|
00000090: 42 B2 42 AA 32 35 36 3A  54 42 B2 42 AA 35 31 32  |B.B.256:TB.B.512|
000000A0: 00 CE 08 A0 00 42 52 B2  20 34 3A 54 4C B2 20 20  |.....BR. 4:TL.  |
000000B0: 32 3A 54 48 B2 31 32 3A  43 52 B2 36 3A 52 4C B2  |2:TH.12:CR.6:RL.|
000000C0: 32 31 32 3A 52 48 B2 31  32 3A 43 4F B2 31 00 DC  |212:RH.12:CO.1..|
000000D0: 08 AA 00 97 35 36 35 39  30 2C 36 34 00 E9 08 B4  |....56590,64....|
000000E0: 00 97 35 36 35 38 31 2C  35 00 F7 08 BE 00 97 35  |..56581,5......5|
000000F0: 36 35 39 30 2C 36 35 00  05 09 C8 00 97 35 36 35  |6590,65......565|
00000100: 38 38 2C 42 52 00 38 09  D2 00 99 22 9E 93 AF AF  |88,BR.8...."....|
00000110: AF AF AF AF AF AF AF AF  AF AF AF AF AF AF AF AF  |................|
00000120: AF AF AF AF AF AF AF AF  AF AF AF AF AF AF AF AF  |................|
00000130: AF AF AF AF AF AF 22 3B  00 4C 09 DC 00 99 22 12  |......";.L....".|
00000140: 20 C2 41 55 44 20 20 3A  92 A1 22 3B 00 6D 09 E6  | .AUD  :..";.m..|
00000150: 00 8B 42 52 B2 20 34 A7  99 22 33 30 30 20 CF D2  |..BR. 4.."300 ..|
00000160: C9 C7 20 20 20 20 20 20  20 20 20 22 3B 00 8E 09  |..         ";...|
00000170: F0 00 8B 42 52 B2 20 35  A7 99 22 33 30 30 20 C1  |...BR. 5.."300 .|
00000180: CE D3 D7 20 20 20 20 20  20 20 20 20 22 3B 00 AF  |...         ";..|
00000190: 09 FA 00 8B 42 52 B2 31  34 A7 99 22 31 32 30 30  |....BR.14.."1200|
000001A0: 20 CF D2 C9 C7 3D 31 32  30 30 2F 37 35 22 3B 00  | ....=1200/75";.|
000001B0: D0 09 04 01 8B 42 52 B2  20 36 A7 99 22 31 32 30  |.....BR. 6.."120|
000001C0: 30 20 C1 CE D3 D7 3D 37  35 2F 31 32 30 30 22 3B  |0 ....=75/1200";|
000001D0: 00 E4 09 0E 01 99 22 20  12 20 C3 4F 4E 56 2E 3A  |......" . .ONV.:|
000001E0: 92 A1 22 3B 00 FA 09 18  01 8B 43 4F B2 30 A7 99  |..";......CO.0..|
000001F0: 22 CF C6 C6 12 A1 20 92  22 3B 00 10 0A 22 01 8B  |"..... .";..."..|
00000200: 43 4F B2 31 A7 99 22 CF  CE 20 12 A1 20 92 22 3B  |CO.1..".. .. .";|
00000210: 00 26 0A 2C 01 99 22 12  20 CE 55 4D 42 45 52 3A  |.&.,..". .UMBER:|
00000220: 92 A1 22 4E 31 24 00 42  0A 2E 01 99 22 91 22 3B  |.."N1$.B....".";|
00000230: A6 32 36 29 22 20 12 20  CC 49 4E 45 20 3A 92 A1  |.26)" . .INE :..|
00000240: 22 3B 00 62 0A 30 01 8B  28 C2 28 35 36 35 37 37  |";.b.0..(.(56577|
00000250: 29 AF 34 29 B2 30 A7 99  22 CF CE 20 12 A1 20 92  |).4).0..".. .. .|
00000260: 22 3B 00 80 0A 32 01 8B  28 C2 28 35 36 35 37 37  |";...2..(.(56577|
00000270: 29 AF 34 29 A7 99 22 CF  C6 C6 12 A1 20 92 22 3B  |).4).."..... .";|
00000280: 00 B1 0A 36 01 99 22 B7  B7 B7 B7 B7 B7 B7 B7 B7  |...6..".........|
00000290: B7 B7 B7 B7 B7 B7 B7 B7  B7 B7 B7 B7 B7 B7 B7 B7  |................|
000002A0: B7 B7 B7 B7 B7 B7 B7 B7  B7 B7 B7 B7 B7 B7 B7 22  |..............."|
000002B0: 3B 00 C8 0A 40 01 99 22  20 31 2D 20 D3 45 54 20  |;...@.." 1- .ET |
000002C0: 42 41 55 44 52 41 54 45  00 DE 0A 4A 01 99 22 20  |BAUDRATE...J.." |
000002D0: 32 2D 20 C4 49 41 4C 20  4E 55 4D 42 45 52 00 F1  |2- .IAL NUMBER..|
000002E0: 0A 54 01 99 22 20 33 2D  20 D4 45 52 4D 49 4E 41  |.T.." 3- .ERMINA|
000002F0: 4C 00 0E 0B 5E 01 99 22  20 34 2D 20 D2 45 4C 45  |L...^.." 4- .ELE|
00000300: 41 53 45 20 50 48 4F 4E  45 20 4C 49 4E 45 00 21  |ASE PHONE LINE.!|
00000310: 0B 68 01 A1 50 24 3A 8B  50 24 B2 22 22 A7 33 36  |.h..P$:.P$."".36|
00000320: 30 00 37 0B 72 01 8B 50  24 B2 22 31 22 A7 8D 34  |0.7.r..P$."1"..4|
00000330: 32 30 3A 89 32 31 30 00  4D 0B 7C 01 8B 50 24 B2  |20:.210.M.|..P$.|
00000340: 22 32 22 A7 8D 37 31 30  3A 89 32 31 30 00 64 0B  |"2"..710:.210.d.|
00000350: 86 01 8B 50 24 B2 22 33  22 A7 8D 31 30 39 30 3A  |...P$."3"..1090:|
00000360: 89 32 31 30 00 A4 0B 90  01 8B 50 24 B2 22 34 22  |.210......P$."4"|
00000370: A7 99 22 13 11 11 11 11  11 11 11 12 20 34 2D 20  |.."......... 4- |
00000380: D2 45 4C 45 41 53 45 20  50 48 4F 4E 45 20 4C 49  |.ELEASE PHONE LI|
00000390: 4E 45 20 22 3A 97 35 36  35 37 37 2C 32 35 35 3A  |NE ":.56577,255:|
000003A0: 89 32 31 30 00 AD 0B 9A  01 89 33 36 30 00 B3 0B  |.210......360...|
000003B0: A4 01 8F 00 CE 0B AE 01  8F 20 2A 2A 2A 20 53 45  |......... *** SE|
000003C0: 54 20 42 41 55 44 52 41  54 45 20 2A 2A 2A 00 D4  |T BAUDRATE ***..|
000003D0: 0B B8 01 8F 00 FE 0B C2  01 99 22 13 11 11 11 11  |..........".....|
000003E0: 12 20 31 2D 20 D3 45 54  20 42 41 55 44 52 41 54  |. 1- .ET BAUDRAT|
000003F0: 45 20 20 20 20 20 20 20  11 11 11 11 11 11 00 17  |E       ........|
00000400: 0C CC 01 99 22 20 31 2D  20 33 30 30 20 20 C2 41  |...." 1- 300  .A|
00000410: 55 44 20 CF D2 C9 C7 00  30 0C D6 01 99 22 20 32  |UD .....0...." 2|
00000420: 2D 20 33 30 30 20 20 C2  41 55 44 20 C1 CE D3 D7  |- 300  .AUD ....|
00000430: 00 53 0C E0 01 99 22 20  33 2D 20 31 32 30 30 20  |.S...." 3- 1200 |
00000440: C2 41 55 44 20 CF D2 C9  C7 20 28 31 32 30 30 2F  |.AUD .... (1200/|
00000450: 37 35 29 00 76 0C EA 01  99 22 20 34 2D 20 31 32  |75).v...." 4- 12|
00000460: 30 30 20 C2 41 55 44 20  C1 CE D3 D7 20 28 37 35  |00 .AUD .... (75|
00000470: 2F 31 32 30 30 29 00 92  0C F4 01 99 22 11 11 20  |/1200)......".. |
00000480: D2 C5 D4 D5 D2 CE 20 3A  20 CD 41 49 4E 20 4D 45  |...... : .AIN ME|
00000490: 4E 55 00 A5 0C FE 01 A1  50 24 3A 8B 50 24 B2 22  |NU......P$:.P$."|
000004A0: 22 A7 35 31 30 00 BE 0C  08 02 8B 50 24 B2 C7 28  |".510......P$..(|
000004B0: 31 33 29 B0 50 24 B2 22  85 22 A7 37 30 30 00 C9  |13).P$.".".700..|
000004C0: 0C 12 02 42 52 B2 32 35  35 00 FA 0C 1C 02 8B 50  |...BR.255......P|
000004D0: 24 B2 22 31 22 A7 42 52  B2 20 34 3A 54 4C B2 20  |$."1".BR. 4:TL. |
000004E0: 20 32 3A 54 48 B2 31 32  3A 43 52 B2 36 3A 52 4C  | 2:TH.12:CR.6:RL|
000004F0: B2 32 31 32 3A 52 48 B2  31 32 00 2B 0D 26 02 8B  |.212:RH.12.+.&..|
00000500: 50 24 B2 22 32 22 A7 42  52 B2 20 35 3A 54 4C B2  |P$."2".BR. 5:TL.|
00000510: 20 20 32 3A 54 48 B2 31  32 3A 43 52 B2 36 3A 52  |  2:TH.12:CR.6:R|
00000520: 4C B2 32 31 32 3A 52 48  B2 31 32 00 5C 0D 30 02  |L.212:RH.12.\.0.|
00000530: 8B 50 24 B2 22 33 22 A7  42 52 B2 31 34 3A 54 4C  |.P$."3".BR.14:TL|
00000540: B2 31 30 30 3A 54 48 B2  34 38 3A 43 52 B2 38 3A  |.100:TH.48:CR.8:|
00000550: 52 4C B2 20 32 35 3A 52  48 B2 20 33 00 8D 0D 3A  |RL. 25:RH. 3...:|
00000560: 02 8B 50 24 B2 22 34 22  A7 42 52 B2 20 36 3A 54  |..P$."4".BR. 6:T|
00000570: 4C B2 32 32 30 3A 54 48  B2 20 32 3A 43 52 B2 32  |L.220:TH. 2:CR.2|
00000580: 3A 52 4C B2 20 38 30 3A  52 48 B2 35 31 00 9D 0D  |:RL. 80:RH.51...|
00000590: 44 02 8B 42 52 B2 32 35  35 A7 35 31 30 00 AB 0D  |D..BR.255.510...|
000005A0: 4E 02 97 35 36 35 39 30  2C 36 34 00 B8 0D 58 02  |N..56590,64...X.|
000005B0: 97 35 36 35 38 31 2C 35  00 C6 0D 62 02 97 35 36  |.56581,5...b..56|
000005C0: 35 39 30 2C 36 35 00 D4  0D 6C 02 97 35 36 35 38  |590,65...l..5658|
000005D0: 38 2C 42 52 00 ED 0D 76  02 99 22 11 20 30 2D 20  |8,BR...v..". 0- |
000005E0: CE 4F 20 43 4F 4E 56 45  52 53 49 4F 4E 00 07 0E  |.O CONVERSION...|
000005F0: 80 02 99 22 20 31 2D 20  D7 49 54 48 20 43 4F 4E  |..." 1- .ITH CON|
00000600: 56 45 52 53 49 4F 4E 00  1A 0E 8A 02 A1 50 24 3A  |VERSION......P$:|
00000610: 8B 50 24 B2 22 22 A7 36  35 30 00 2C 0E 94 02 8B  |.P$."".650.,....|
00000620: 50 24 B2 C7 28 31 33 29  A7 37 30 30 00 42 0E 9E  |P$..(13).700.B..|
00000630: 02 8B 50 24 B2 22 30 22  A7 43 4F B2 30 3A 89 37  |..P$."0".CO.0:.7|
00000640: 30 30 00 58 0E A8 02 8B  50 24 B2 22 31 22 A7 43  |00.X....P$."1".C|
00000650: 4F B2 31 3A 89 37 30 30  00 61 0E B2 02 89 36 35  |O.1:.700.a....65|
00000660: 30 00 71 0E BC 02 8E 3A  8F 20 54 4F 20 4D 41 49  |0.q....:. TO MAI|
00000670: 4E 00 77 0E C6 02 8F 00  91 0E D0 02 8F 20 2A 2A  |N.w.......... **|
00000680: 2A 20 44 49 41 4C 20 4E  55 4D 42 45 52 20 2A 2A  |* DIAL NUMBER **|
00000690: 2A 00 97 0E DA 02 8F 00  A6 0E E4 02 97 35 36 35  |*............565|
000006A0: 37 37 2C 32 35 35 00 D1  0E EE 02 99 22 13 11 11  |77,255......"...|
000006B0: 11 11 11 12 20 32 2D 20  C4 49 41 4C 20 4E 55 4D  |.... 2- .IAL NUM|
000006C0: 42 45 52 20 20 20 20 20  20 20 20 11 11 11 11 11  |BER        .....|
000006D0: 11 00 F0 0E F8 02 99 22  11 11 11 11 11 20 D2 C5  |......."..... ..|
000006E0: D4 D5 D2 CE 20 3A 20 CD  41 49 4E 20 4D 45 4E 55  |.... : .AIN MENU|
000006F0: 00 0D 0F 02 03 99 22 11  20 20 20 2A 20 20 20 20  |......".   *    |
00000700: 3A 20 CC 41 53 54 20 4E  55 4D 42 45 52 00 35 0F  |: .AST NUMBER.5.|
00000710: 0C 03 4E 24 B2 22 22 3A  85 22 91 91 91 91 91 91  |..N$."":."......|
00000720: 91 91 20 20 20 D7 48 49  43 48 20 4E 55 4D 42 45  |..   .HICH NUMBE|
00000730: 52 22 3B 4E 24 00 48 0F  16 03 8B 4E 24 B2 22 2A  |R";N$.H....N$."*|
00000740: 22 A7 4E 24 B2 4E 31 24  00 57 0F 20 03 8B 4E 24  |".N$.N1$.W. ..N$|
00000750: B2 22 22 A7 39 31 30 00  6F 0F 2A 03 97 35 36 35  |."".910.o.*..565|
00000760: 37 37 2C 32 3A 81 58 B2  31 A4 39 39 39 3A 82 00  |77,2:.X.1.999:..|
00000770: 7A 0F 34 03 4E 31 24 B2  4E 24 00 96 0F 3E 03 81  |z.4.N1$.N$...>..|
00000780: 54 B2 31 A4 C3 28 4E 24  29 3A 41 24 B2 CA 28 4E  |T.1..(N$):A$..(N|
00000790: 24 2C 54 2C 31 29 00 B8  0F 48 03 A1 50 24 3A 8B  |$,T,1)...H..P$:.|
000007A0: 50 24 B2 C7 28 31 33 29  A7 97 35 36 35 37 37 2C  |P$..(13)..56577,|
000007B0: 32 35 35 3A 89 39 31 30  00 C8 0F 52 03 8B 41 24  |255:.910...R..A$|
000007C0: B2 22 2D 22 A7 38 38 30  00 DE 0F 5C 03 41 B2 C5  |."-".880...\.A..|
000007D0: 28 41 24 29 3A 8B 41 B2  30 A7 41 B2 31 30 00 F0  |(A$):.A.0.A.10..|
000007E0: 0F 66 03 81 4E B2 31 A4  41 3A 8D 39 32 30 3A 82  |.f..N.1.A:.920:.|
000007F0: 00 FF 0F 70 03 81 58 B2  31 A4 35 30 30 3A 82 00  |...p..X.1.500:..|
00000800: 05 10 7A 03 82 00 18 10  84 03 97 36 33 31 2C 35  |..z........631,5|
00000810: 31 3A 97 31 39 38 2C 31  00 29 10 8E 03 8E 20 3A  |1:.198,1.).... :|
00000820: 8F 20 54 4F 20 4D 41 49  4E 00 38 10 98 03 97 35  |. TO MAIN.8....5|
00000830: 36 35 37 37 2C 32 35 35  00 41 10 A2 03 8D 39 37  |6577,255.A....97|
00000840: 30 00 4E 10 AC 03 97 35  36 35 37 37 2C 32 00 57  |0.N....56577,2.W|
00000850: 10 B6 03 8D 39 37 30 00  5D 10 C0 03 8E 00 6D 10  |....970.].....m.|
00000860: CA 03 81 58 B2 30 A4 32  30 3A 82 3A 8E 00 73 10  |...X.0.20:.:..s.|
00000870: D4 03 8F 00 8A 10 DE 03  8F 20 2A 2A 2A 20 54 45  |......... *** TE|
00000880: 52 4D 49 4E 41 4C 20 2A  2A 2A 00 90 10 E8 03 8F  |RMINAL ***......|
00000890: 00 A7 10 F2 03 A1 23 32  2C 50 24 3A 8B 50 24 B2  |......#2,P$:.P$.|
000008A0: 22 22 A7 31 30 34 30 00  BC 10 FC 03 8B 43 4F B2  |"".1040......CO.|
000008B0: 30 A7 99 50 24 3B 3A 89  31 30 34 30 00 D1 10 06  |0..P$;:.1040....|
000008C0: 04 99 C7 28 C2 28 52 42  AA C6 28 50 24 29 29 29  |...(.(RB..(P$)))|
000008D0: 3B 00 E5 10 10 04 A1 50  24 3A 8B 50 24 B2 22 22  |;......P$:.P$.""|
000008E0: A7 31 30 31 30 00 FE 10  1A 04 8B 50 24 B2 22 85  |.1010......P$.".|
000008F0: 22 A7 8E 20 3A 8F 20 54  4F 20 4D 41 49 4E 00 16  |".. :. TO MAIN..|
00000900: 11 24 04 8B 43 4F B2 30  A7 50 B2 C6 28 50 24 29  |.$..CO.0.P..(P$)|
00000910: 3A 89 31 30 38 30 00 28  11 2E 04 50 B2 C2 28 54  |:.1080.(...P..(T|
00000920: 42 AA C6 28 50 24 29 29  00 38 11 38 04 8D 31 31  |B..(P$)).8.8..11|
00000930: 38 30 3A 89 31 30 31 30  00 3E 11 42 04 8F 00 59  |80:.1010.>.B...Y|
00000940: 11 4C 04 8F 20 2A 2A 2A  20 53 45 54 20 54 45 52  |.L.. *** SET TER|
00000950: 4D 49 4E 41 4C 20 2A 2A  2A 00 5F 11 56 04 8F 00  |MINAL ***._.V...|
00000960: 73 11 5B 04 99 22 13 11  11 22 A6 33 35 29 22 CF  |s.[.."...".35)".|
00000970: CE 20 22 00 9D 11 60 04  99 22 13 11 11 11 11 11  |. "...`.."......|
00000980: 11 12 20 33 2D 20 D4 45  52 4D 49 4E 41 4C 20 20  |.. 3- .ERMINAL  |
00000990: 20 20 20 20 20 20 20 20  20 11 11 11 11 00 B3 11  |         .......|
000009A0: 6A 04 99 22 20 C6 31 20  3A 20 CD 41 49 4E 20 4D  |j.." .1 : .AIN M|
000009B0: 45 4E 55 00 CF 11 74 04  97 36 35 39 2C 43 52 3A  |ENU...t..659,CR:|
000009C0: 97 36 36 35 2C 52 4C 3A  97 36 36 36 2C 52 48 00  |.665,RL:.666,RH.|
000009D0: DC 11 7E 04 97 35 36 35  37 37 2C 32 00 E4 11 88  |..~..56577,2....|
000009E0: 04 99 22 11 00 ED 11 92  04 89 39 38 30 00 F3 11  |..".......980...|
000009F0: 9C 04 8F 00 0F 12 A6 04  8F 20 2A 2A 2A 20 50 55  |......... *** PU|
00000A00: 54 20 43 48 41 52 41 43  54 45 52 20 2A 2A 2A 00  |T CHARACTER ***.|
00000A10: 15 12 B0 04 8F 00 37 12  BA 04 97 32 35 33 2C 54  |......7....253,T|
00000A20: 4C 3A 97 32 35 34 2C 54  48 AA 31 32 38 3A 97 32  |L:.254,TH.128:.2|
00000A30: 35 35 2C 50 3A 9E 42 00  3D 12 C4 04 8E 00 00 00  |55,P:.B.=.......|
..7.D.B.12.4096:.(B(B).120).(B(B.1).24).
(B(B.2).32).120.O.N.."TELETRON $C0",8,1.
_.X..2,2,0,G(8).U....53280,9:.53281,9...
...G(14). ...B.12.4096:RB.B.256:TB.B.512
.N. .BR. 4:TL.  2:TH.12:CR.6:RL.212:RH.1
2:CO.1......56590,64......56581,5......5
6590,65...H..56588,BR.8.R.."............
..............................";.L....".
 BAUD  :..";.M....BR. 4.."300 ORIG      
   ";......BR. 5.."300 ANSW         ";..
....BR.14.."1200 ORIG=1200/75";.P....BR.
 6.."1200 ANSW=75/1200";......" . CONV.:
..";......CO.0.."OFF.. .";..."..CO.1.."O
N .. .";.&.,..". NUMBER:.."N1$.B....".";
.26)" . LINE :..";.B.0..(B(56577).4).0..
"ON .. .";...2..(B(56577).4).."OFF.. .";
...6..".................................
.......";.H.@.." 1- SET BAUDRATE...J.." 
2- DIAL NUMBER...T.." 3- TERMINAL...^.."
 4- RELEASE PHONE LINE.!.H..P$:.P$."".36
0.7.R..P$."1"..420:.210.M.|..P$."2"..710
:.210.D....P$."3"..1090:.210......P$."4"
.."......... 4- RELEASE PHONE LINE ":.56
577,255:.210......360.......N.... *** SE
T BAUDRATE ***.T.......B.."...... 1- SET
 BAUDRATE       .........L.." 1- 300  BA
UD ORIG.0.V.." 2- 300  BAUD ANSW.S...." 
3- 1200 BAUD ORIG (1200/75).V...." 4- 12
00 BAUD ANSW (75/1200)......".. RETURN :
 MAIN MENU......P$:.P$."".510......P$.G(
13).P$.".".700.I...BR.255......P$."1".BR
. 4:TL.  2:TH.12:CR.6:RL.212:RH.12.+.&..
P$."2".BR. 5:TL.  2:TH.12:CR.6:RL.212:RH
.12.\.0..P$."3".BR.14:TL.100:TH.48:CR.8:
RL. 25:RH. 3...:..P$."4".BR. 6:TL.220:TH
. 2:CR.2:RL. 80:RH.51...D..BR.255.510...
N..56590,64...X..56581,5.F.B..56590,65.T
.L..56588,BR...V..". 0- NO CONVERSION...
..." 1- WITH CONVERSION......P$:.P$."".6
50.,....P$.G(13).700.B....P$."0".CO.0:.7
00.X....P$."1".CO.1:.700.A....650.Q....:
. TO MAIN.W.F.....P.. *** DIAL NUMBER **
*...Z........56577,255.Q...."....... 2- 
DIAL NUMBER        ............"..... RE
TURN : MAIN MENU......".   *    : LAST N
UMBER.5...N$."":."........   WHICH NUMBE
R";N$.H....N$."*".N$.N1$.W. ..N$."".910.
O.*..56577,2:.X.1.999:..Z.4.N1$.N$...>..
T.1.C(N$):A$.J(N$,T,1)...H..P$:.P$.G(13)
..56577,255:.910.H.R..A$."-".880...\.A.E
(A$):.A.0.A.10...F..N.1.A:.920:....P..X.
1.500:....Z........631,51:.198,1.).... :
. TO MAIN.8....56577,255.A....970.N....5
6577,2.W....970.].....M.J..X.0.20:.:..S.
T........ *** TERMINAL ***............#2
,P$:.P$."".1040......CO.0..P$;:.1040.Q..
..G(B(RB.F(P$)));......P$:.P$."".1010...
...P$.".".. :. TO MAIN...$..CO.0.P.F(P$)
:.1080.(...P.B(TB.F(P$)).8.8..1180:.1010
.>.B...Y.L.. *** SET TERMINAL ***._.V...
S.[.."...".35)"ON "...`.."........ 3- TE
RMINAL           .......J.." F1 : MAIN M
ENU.O.T..659,CR:.665,RL:.666,RH...~..565
77,2......".......980............ *** PU
T CHARACTER ***.......7....253,TL:.254,T
H.128:.255,P:.B.=.D.....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL