RTTY CBM

00000000: 01 08 0C 08 AA 00 8F 20  52 54 54 59 00 2B 08 B4  |....... RTTY.+..|
00000010: 00 99 22 93 11 11 11 11  20 20 20 20 20 52 54 54  |..".....     RTT|
00000020: 59 20 50 52 4F 47 52 41  4D 4D 41 00 3F 08 BE 00  |Y PROGRAMMA.?...|
00000030: 8F 20 2A 2A 2A 20 43 4F  4E 53 54 41 4E 54 53 00  |. *** CONSTANTS.|
00000040: 56 08 C8 00 81 49 B2 30  A4 39 3A 4D 24 28 49 29  |V....I.0.9:M$(I)|
00000050: B2 22 20 22 3A 82 00 8D  08 D2 00 4F B2 31 3A 54  |." ":......O.1:T|
00000060: 57 B2 32 30 3A 54 B2 32  3A 45 49 B2 38 3A 53 49  |W.20:T.2:EI.8:SI|
00000070: B2 31 36 3A 54 48 B2 33  3A 46 49 B2 35 3A 54 52  |.16:TH.3:FI.5:TR|
00000080: B2 31 33 3A 45 B2 33 31  3A 46 B2 33 32 00 93 08  |.13:E.31:F.32...|
00000090: DC 00 3A 00 A7 08 E6 00  8F 20 2A 2A 2A 20 41 44  |..:...... *** AD|
000000A0: 44 52 45 53 53 45 53 00  B5 08 F0 00 9E 34 33 38  |DRESSES......438|
000000B0: 38 3A 2C 42 47 00 D7 08  FA 00 8F 20 2A 2A 2A 20  |8:,BG...... *** |
000000C0: 43 4F 4D 4D 55 4E 49 43  41 54 49 4F 4E 20 41 44  |COMMUNICATION AD|
000000D0: 44 52 45 53 53 45 53 00  05 09 04 01 50 B2 42 47  |DRESSES.....P.BG|
000000E0: 3A 51 B2 42 47 AA 31 3A  54 31 B2 38 32 37 3A 54  |:Q.BG.1:T1.827:T|
000000F0: 32 B2 38 32 39 3A 41 31  B2 42 47 AA 34 3A 41 32  |2.829:A1.BG.4:A2|
00000100: B2 42 47 AA 35 00 0B 09  0E 01 3A 00 24 09 18 01  |.BG.5.....:.$...|
00000110: 8F 20 2A 2A 2A 20 49 4E  49 54 20 43 4F 4D 4D 20  |. *** INIT COMM |
00000120: 41 52 45 41 00 3B 09 22  01 97 54 31 2C 31 31 38  |AREA.;."..T1,118|
00000130: 3A 97 54 32 2C 38 3A 97  51 2C 30 00 41 09 2C 01  |:.T2,8:.Q,0.A.,.|
00000140: 3A 00 68 09 36 01 8F 20  2A 2A 2A 20 44 41 54 41  |:.h.6.. *** DATA|
00000150: 20 41 52 52 41 59 20 41  24 20 49 4E 49 54 49 41  | ARRAY A$ INITIA|
00000160: 4C 49 53 41 54 49 4F 4E  00 86 09 40 01 86 41 24  |LISATION...@..A$|
00000170: 28 36 34 29 3A 81 49 B2  33 33 A4 36 32 3A 87 41  |(64):.I.33.62:.A|
00000180: 24 28 49 29 3A 82 00 AF  09 4A 01 41 24 28 33 34  |$(I):....J.A$(34|
00000190: 29 B2 C7 28 31 33 29 3A  41 24 28 33 36 29 B2 22  |)..(13):A$(36)."|
000001A0: 20 22 3A 41 24 28 34 30  29 B2 C7 28 31 37 29 00  | ":A$(40)..(17).|
000001B0: F3 09 54 01 83 20 54 2C  5F 2C 4F 2C 22 20 22 2C  |..T.. T,_,O," ",|
000001C0: 48 2C 4E 2C 4D 2C 5E 2C  4C 2C 52 2C 47 2C 49 2C  |H,N,M,^,L,R,G,I,|
000001D0: 50 2C 43 2C 56 2C 45 2C  5A 2C 44 2C 42 2C 53 2C  |P,C,V,E,Z,D,B,S,|
000001E0: 59 2C 46 2C 58 2C 41 2C  57 2C 4A 2C 23 2C 55 2C  |Y,F,X,A,W,J,#,U,|
000001F0: 51 2C 4B 00 08 0A 5E 01  81 49 B2 32 A4 33 31 3A  |Q,K...^..I.2.31:|
00000200: 87 41 24 28 49 29 3A 82  00 3B 0A 68 01 41 24 28  |.A$(I):..;.h.A$(|
00000210: 33 29 B2 C7 28 31 33 29  3A 41 24 28 35 29 B2 22  |3)..(13):A$(5)."|
00000220: 20 22 3A 41 24 28 39 29  B2 C7 28 31 37 29 3A 41  | ":A$(9)..(17):A|
00000230: 24 28 31 38 29 B2 C7 28  33 32 29 00 83 0A 72 01  |$(18)..(32)...r.|
00000240: 83 20 35 2C 22 5F 22 2C  39 2C 22 20 22 2C 2A 2C  |. 5,"_",9," ",*,|
00000250: 22 2C 22 2C 2E 2C 5E 2C  29 2C 34 2C 2B 2C 38 2C  |",",.,^,),4,+,8,|
00000260: 30 2C 22 3A 22 2C 22 3B  22 2C 33 2C 27 2C 24 2C  |0,":",";",3,',$,|
00000270: 3F 2C 22 12 20 92 22 2C  36 2C 21 2C 2F 2C 2D 2C  |?,". .",6,!,/,-,|
00000280: 32 2C 27 00 94 0A 7C 01  83 20 22 22 2C 37 2C 31  |2,'...|.. "",7,1|
00000290: 2C 22 28 22 00 9A 0A 86  01 3A 00 C1 0A 90 01 8F  |,"(".....:......|
000002A0: 20 2A 2A 2A 20 44 41 54  41 20 41 52 52 41 59 20  | *** DATA ARRAY |
000002B0: 43 25 20 49 4E 49 54 49  41 4C 49 53 41 54 49 4F  |C% INITIALISATIO|
000002C0: 4E 00 DE 0A 9A 01 86 43  25 28 36 30 29 3A 81 49  |N......C%(60):.I|
000002D0: B2 31 A4 35 38 3A 87 43  25 28 49 29 3A 82 00 FE  |.1.58:.C%(I):...|
000002E0: 0A A4 01 83 35 34 2C 34  39 2C 33 37 2C 35 30 2C  |....54,49,37,50,|
000002F0: 35 36 2C 34 33 2C 35 38  2C 36 32 2C 34 31 00 15  |56,43,58,62,41..|
00000300: 0B AE 01 83 33 37 2C 34  33 2C 33 38 2C 35 36 2C  |....37,43,38,56,|
00000310: 33 39 2C 35 35 00 38 0B  B8 01 83 34 35 2C 36 31  |39,55.8....45,61|
00000320: 2C 35 37 2C 34 38 2C 34  32 2C 33 33 2C 35 33 2C  |,57,48,42,33,53,|
00000330: 36 30 2C 34 34 2C 33 35  00 52 0B C2 01 83 34 36  |60,44,35.R....46|
00000340: 2C 34 37 2C 36 33 2C 34  36 2C 35 39 2C 35 31 2C  |,47,63,46,59,51,|
00000350: 35 36 00 75 0B CC 01 83  35 36 2C 35 31 2C 34 36  |56.u....56,51,46|
00000360: 2C 35 30 2C 34 38 2C 35  34 2C 34 33 2C 33 37 2C  |,50,48,54,43,37,|
00000370: 34 34 2C 35 38 00 98 0B  D6 01 83 36 32 2C 34 31  |44,58......62,41|
00000380: 2C 33 39 2C 33 38 2C 33  35 2C 34 35 2C 36 31 2C  |,39,38,35,45,61,|
00000390: 34 32 2C 35 32 2C 33 33  00 AF 0B E0 01 83 36 30  |42,52,33......60|
000003A0: 2C 34 37 2C 35 37 2C 35  35 2C 35 33 2C 34 39 00  |,47,57,55,53,49.|
000003B0: B5 0B EA 01 3A 00 BB 0B  F4 01 3A 00 C1 0B FE 01  |....:.....:.....|
000003C0: 3A 00 EE 0B 08 02 85 22  11 11 11 11 11 20 20 45  |:......".....  E|
000003D0: 4E 54 45 52 20 54 49 4D  45 20 20 30 30 30 30 30  |NTER TIME  00000|
000003E0: 30 9D 9D 9D 9D 9D 9D 9D  9D 22 3B 54 49 24 00 01  |0........";TI$..|
000003F0: 0C 12 02 4D B2 53 3A 99  22 93 12 52 45 41 44 59  |...M.S:."..READY|
00000400: 22 00 20 0C 1C 02 99 3A  99 22 12 53 45 4E 44 20  |". ....:.".SEND |
00000410: 4D 4F 44 45 92 22 3A 4C  B2 31 3A 97 50 2C 36 33  |MODE.":L.1:.P,63|
00000420: 00 2B 0C 26 02 9E 34 36  30 31 3A 00 3E 0C 30 02  |.+.&..4601:.>.0.|
00000430: A1 42 24 3A 8B 42 24 B2  22 22 A7 35 36 30 00 51  |.B$:.B$."".560.Q|
00000440: 0C 3A 02 8B 42 24 B2 C7  28 31 33 33 29 A7 38 35  |.:..B$..(133).85|
00000450: 30 00 5F 0C 44 02 8D 36  30 30 3A 89 35 36 30 00  |0._.D..600:.560.|
00000460: 65 0C 4E 02 3A 00 85 0C  58 02 8B A8 28 42 24 B3  |e.N.:...X...(B$.|
00000470: 22 41 22 AF 42 24 B3 B1  22 20 22 AF 4C B2 31 29  |"A".B$.." ".L.1)|
00000480: A7 89 36 33 30 00 93 0C  62 02 4C B2 30 3A 97 50  |..630...b.L.0:.P|
00000490: 2C 35 39 00 9E 0C 6C 02  9E 34 36 30 31 3A 00 BF  |,59...l..4601:..|
000004A0: 0C 76 02 8B A8 28 28 42  24 B1 22 40 22 B0 42 24  |.v...((B$."@".B$|
000004B0: B2 22 20 22 29 AF 4C B2  30 29 A7 89 36 36 30 00  |." ").L.0)..660.|
000004C0: CD 0C 80 02 4C B2 31 3A  97 50 2C 36 33 00 D8 0C  |....L.1:.P,63...|
000004D0: 8A 02 9E 34 36 30 31 3A  00 F1 0C 94 02 99 42 24  |...4601:......B$|
000004E0: 3B 3A 8B 42 24 B2 C7 28  31 33 36 29 A7 31 31 37  |;:.B$..(136).117|
000004F0: 30 00 07 0D 9E 02 8B A8  28 42 24 B2 C7 28 31 33  |0.......(B$..(13|
00000500: 29 29 A7 89 37 31 30 00  11 0D A8 02 97 50 2C 33  |))..710......P,3|
00000510: 34 00 22 0D B2 02 9E 34  36 30 31 3A 3A 97 50 2C  |4."....4601::.P,|
00000520: 34 30 00 2F 0D BC 02 9E  34 36 30 31 3A 3A 8E 00  |40./....4601::..|
00000530: 43 0D C6 02 8B A8 28 42  24 B2 22 20 22 29 A7 89  |C.....(B$." ")..|
00000540: 37 34 30 00 4D 0D D0 02  97 50 2C 33 36 00 5A 0D  |740.M....P,36.Z.|
00000550: DA 02 9E 34 36 30 31 3A  3A 8E 00 74 0D E4 02 8B  |...4601::..t....|
00000560: 28 C6 28 42 24 29 B3 46  29 B0 C6 28 42 24 29 B1  |(.(B$).F)..(B$).|
00000570: 39 32 A7 8E 00 87 0D EE  02 97 50 2C 43 25 28 C6  |92........P,C%(.|
00000580: 28 42 24 29 AB 46 29 00  94 0D F8 02 9E 34 36 30  |(B$).F)......460|
00000590: 31 3A 3A 8E 00 9A 0D 02  03 3A 00 A0 0D 0C 03 3A  |1::......:.....:|
000005A0: 00 AF 0D 16 03 8F 20 2A  2A 2A 20 4D 45 4E 55 00  |...... *** MENU.|
000005B0: CE 0D 20 03 8F 20 2A 2A  2A 20 46 33 20 20 20 20  |.. .. *** F3    |
000005C0: 3D 20 54 49 4D 45 20 44  49 53 50 4C 41 59 00 F1  |= TIME DISPLAY..|
000005D0: 0D 2A 03 8F 20 2A 2A 2A  20 46 35 20 20 20 20 3D  |.*.. *** F5    =|
000005E0: 20 43 48 41 4E 47 45 20  42 41 55 44 20 52 41 54  | CHANGE BAUD RAT|
000005F0: 45 00 10 0E 34 03 8F 20  2A 2A 2A 20 46 37 20 20  |E...4.. *** F7  |
00000600: 20 20 3D 20 52 45 43 45  49 56 45 20 4D 4F 44 45  |  = RECEIVE MODE|
00000610: 00 2C 0E 3E 03 8F 20 2A  2A 2A 20 4F 54 48 45 52  |.,.>.. *** OTHER|
00000620: 20 3D 20 53 45 4E 44 20  4D 4F 44 45 00 32 0E 48  | = SEND MODE.2.H|
00000630: 03 3A 00 45 0E 52 03 A1  42 24 3A 8B 42 24 B2 22  |.:.E.R..B$:.B$."|
00000640: 22 A7 38 35 30 00 60 0E  5C 03 8B 42 24 B2 C7 28  |".850.`.\..B$..(|
00000650: 31 33 36 29 A7 31 31 37  30 20 3A 20 8F 20 46 37  |136).1170 : . F7|
00000660: 00 7B 0E 66 03 8B 42 24  B2 C7 28 31 33 34 29 A7  |.{.f..B$..(134).|
00000670: 31 30 36 30 20 3A 20 8F  20 46 33 00 95 0E 70 03  |1060 : . F3...p.|
00000680: 8B 42 24 B2 C7 28 31 33  35 29 A7 39 34 30 20 3A  |.B$..(135).940 :|
00000690: 20 8F 20 46 35 00 9E 0E  7A 03 89 35 34 30 00 A4  | . F5...z..540..|
000006A0: 0E 84 03 3A 00 AA 0E 8E  03 3A 00 B0 0E 98 03 3A  |...:.....:.....:|
000006B0: 00 CB 0E A2 03 8F 20 2A  2A 2A 20 43 48 41 4E 47  |...... *** CHANG|
000006C0: 45 20 42 41 55 44 20 52  41 54 45 00 FA 0E AC 03  |E BAUD RATE.....|
000006D0: 99 3A 99 22 45 4E 54 45  52 20 42 41 55 44 20 52  |.:."ENTER BAUD R|
000006E0: 41 54 45 22 3A 85 22 28  36 30 2C 36 36 2C 37 35  |ATE":."(60,66,75|
000006F0: 2C 31 30 30 29 22 3B 57  50 4D 00 1A 0F B6 03 8B  |,100)";WPM......|
00000700: 57 50 4D B2 36 30 A7 97  41 31 2C 34 31 3A 97 41  |WPM.60..A1,41:.A|
00000710: 32 2C 35 32 3A 89 31 30  30 30 00 3A 0F C0 03 8B  |2,52:.1000.:....|
00000720: 57 50 4D B2 36 36 A7 97  41 31 2C 33 38 3A 97 41  |WPM.66..A1,38:.A|
00000730: 32 2C 34 38 3A 89 31 30  30 30 00 5A 0F CA 03 8B  |2,48:.1000.Z....|
00000740: 57 50 4D B2 37 35 A7 97  41 31 2C 33 33 3A 97 41  |WPM.75..A1,33:.A|
00000750: 32 2C 34 33 3A 89 31 30  30 30 00 7B 0F D4 03 8B  |2,43:.1000.{....|
00000760: 57 50 4D B2 31 30 30 A7  97 41 31 2C 32 35 3A 97  |WPM.100..A1,25:.|
00000770: 41 32 2C 33 35 3A 89 31  30 30 30 00 84 0F DE 03  |A2,35:.1000.....|
00000780: 89 39 34 30 00 9E 0F E8  03 99 22 53 50 45 45 44  |.940......"SPEED|
00000790: 20 4E 4F 57 20 22 57 50  4D 3A 89 35 34 30 00 A4  | NOW "WPM:.540..|
000007A0: 0F F2 03 3A 00 AA 0F FC  03 3A 00 B0 0F 06 04 3A  |...:.....:.....:|
000007B0: 00 C7 0F 10 04 8F 20 2A  2A 2A 20 44 49 53 50 4C  |...... *** DISPL|
000007C0: 41 59 20 54 49 4D 45 00  CD 0F 1A 04 3A 00 EF 0F  |AY TIME.....:...|
000007D0: 24 04 41 24 B2 22 20 20  20 20 54 48 45 20 54 49  |$.A$."    THE TI|
000007E0: 4D 45 20 49 53 20 22 3A  81 5A B2 4F A4 53 49 00  |ME IS ":.Z.O.SI.|
000007F0: 07 10 2E 04 42 24 B2 CA  28 41 24 2C 5A 2C 4F 29  |....B$..(A$,Z,O)|
00000800: 3A 8D 36 30 30 3A 82 00  42 10 38 04 41 24 B2 C8  |:.600:..B.8.A$..|
00000810: 28 54 49 24 2C 54 29 AA  22 3A 22 AA CA 28 54 49  |(TI$,T).":"..(TI|
00000820: 24 2C 54 48 2C 32 29 3A  81 5A B2 31 A4 35 3A 42  |$,TH,2):.Z.1.5:B|
00000830: 24 B2 CA 28 41 24 2C 5A  2C 4F 29 3A 8D 36 30 30  |$..(A$,Z,O):.600|
00000840: 3A 82 00 71 10 42 04 41  24 B2 22 20 55 54 43 20  |:..q.B.A$." UTC |
00000850: 22 3A 81 5A B2 31 A4 35  3A 42 24 B2 CA 28 41 24  |":.Z.1.5:B$..(A$|
00000860: 2C 5A 2C 4F 29 3A 8D 36  30 30 3A 82 3A 89 35 34  |,Z,O):.600:.:.54|
00000870: 30 00 85 10 4C 04 A1 41  24 3A 8B 41 24 B2 22 22  |0...L..A$:.A$.""|
00000880: A7 31 31 30 30 00 99 10  56 04 99 41 24 2C C6 28  |.1100...V..A$,.(|
00000890: 41 24 29 3A 89 31 31 30  30 00 9F 10 60 04 3A 00  |A$):.1100...`.:.|
000008A0: A5 10 6A 04 3A 00 AB 10  74 04 3A 00 C2 10 7E 04  |..j.:...t.:...~.|
000008B0: 8F 20 2A 2A 2A 20 52 45  43 45 49 56 45 20 4D 4F  |. *** RECEIVE MO|
000008C0: 44 45 00 C8 10 88 04 3A  00 DB 10 92 04 99 3A 99  |DE.....:......:.|
000008D0: 22 12 52 45 43 45 49 56  45 92 22 00 F8 10 9C 04  |".RECEIVE.".....|
000008E0: 9E 34 34 31 32 3A 3A 99  41 24 28 C2 28 50 29 AB  |.4412::.A$(.(P).|
000008F0: 45 AC C2 28 51 29 29 3B  00 0C 11 A6 04 A1 42 24  |E..(Q));......B$|
00000900: 3A 8B 42 24 B2 22 22 A7  31 31 38 30 00 15 11 B0  |:.B$."".1180....|
00000910: 04 89 35 34 30 00 1B 11  BA 04 80 00 00 00 EA 00  |..540...........|
00000920: 00 00 00 00 00 20 73 00  20 FD AE 20 8B B0 A0 1E  |..... s. .. ....|
00000930: A9 11 20 91 B3 A6 47 A4  48 20 D7 BB 60 A9 01 8D  |.. ...G.H ..`...|
00000940: 03 DD A9 01 8D 1E 11 AD  01 DD C9 FE F0 03 38 B0  |..............8.|
00000950: F6 20 B2 11 20 B2 11 A0  05 18 AD 1E 11 6D 1E 11  |. .. ........m..|
00000960: 8D 1E 11 20 C3 11 AD 21  11 38 E9 FE F0 03 EE 1E  |... ...!.8......|
00000970: 11 88 F0 06 20 A1 11 38  B0 DF AD 1E 11 18 C9 3B  |.... ..8.......;|
00000980: D0 06 A9 01 8D 1F 11 60  AD 1E 11 C9 3F D0 06 A9  |.......`....?...|
00000990: 00 8D 1F 11 60 AD 1E 11  C9 24 D0 05 A9 00 8D 1F  |....`....$......|
000009A0: 11 60 AD 22 11 8D 07 DD  A9 19 8D 0F DD AD 07 DD  |.`."............|
000009B0: D0 FB 60 AD 23 11 8D 07  DD A9 19 8D 0F DD AD 07  |..`.#...........|
000009C0: DD D0 FB 60 A2 04 A9 00  8D 20 11 AD 01 DD C9 FE  |...`..... ......|
000009D0: D0 03 EE 20 11 A9 04 8D  07 DD A9 19 8D 0F DD AD  |... ............|
000009E0: 07 DD D0 FB CA 10 E4 AD  20 11 C9 02 10 06 A9 EE  |........ .......|
000009F0: 8D 21 11 60 A9 FE 8D 21  11 60 A9 01 8D 03 DD 0E  |.!.`...!.`......|
00000A00: 1E 11 0E 1E 11 0E 1E 11  A9 FF 8D 01 DD 20 B2 11  |............. ..|
00000A10: 20 B2 11 A0 04 AD 1E 11  0A 8D 1E 11 B0 08 A9 FF  | ...............|
00000A20: 8D 01 DD 38 B0 05 A9 00  8D 01 DD 20 B2 11 20 B2  |...8....... .. .|
00000A30: 11 88 10 E1 A9 00 8D 01  DD 20 B2 11 20 B2 11 20  |......... .. .. |
00000A40: B2 11 60                                          |..`             |

....... RTTY.+....".....     RTTY PROGRA
MMA.?.... *** CONSTANTS.V.H..I.0.9:M$(I)
." ":....R.O.1:TW.20:T.2:EI.8:SI.16:TH.3
:FI.5:TR.13:E.31:F.32.....:...... *** AD
DRESSES......4388:,BG.W.... *** COMMUNIC
ATION ADDRESSES.....P.BG:Q.BG.1:T1.827:T
2.829:A1.BG.4:A2.BG.5.....:.$.... *** IN
IT COMM AREA.;."..T1,118:.T2,8:.Q,0.A.,.
:.H.6.. *** DATA ARRAY A$ INITIALISATION
...@..A$(64):.I.33.62:.A$(I):....J.A$(34
).G(13):A$(36)." ":A$(40).G(17)...T.. T,
_,O," ",H,N,M,^,L,R,G,I,P,C,V,E,Z,D,B,S,
Y,F,X,A,W,J,#,U,Q,K...^..I.2.31:.A$(I):.
.;.H.A$(3).G(13):A$(5)." ":A$(9).G(17):A
$(18).G(32)...R.. 5,"_",9," ",*,",",.,^,
),4,+,8,0,":",";",3,',$,?,". .",6,!,/,-,
2,'...|.. "",7,1,"(".....:.A.... *** DAT
A ARRAY C% INITIALISATION......C%(60):.I
.1.58:.C%(I):.......54,49,37,50,56,43,58
,62,41......37,43,38,56,39,55.8....45,61
,57,48,42,33,53,60,44,35.R.B..46,47,63,4
6,59,51,56.U.L..56,51,46,50,48,54,43,37,
44,58...V..62,41,39,38,35,45,61,42,52,33
......60,47,57,55,53,49.....:.....:.A...
:......".....  ENTER TIME  000000.......
.";TI$.....M.S:."..READY". ....:.".SEND 
MODE.":L.1:.P,63.+.&..4601:.>.0..B$:.B$.
"".560.Q.:..B$.G(133).850._.D..600:.560.
E.N.:...X...(B$."A".B$.." ".L.1)..630...
B.L.0:.P,59...L..4601:...V...((B$."@".B$
." ").L.0)..660.M...L.1:.P,63.X....4601:
......B$;:.B$.G(136).1170.......(B$.G(13
))..710......P,34."....4601::.P,40./....
4601::..C.F...(B$." ")..740.M.P..P,36.Z.
Z..4601::..T....(F(B$).F).F(B$).92......
..P,C%(F(B$).F)......4601::......:. ...:
...... *** MENU.N. .. *** F3    = TIME D
ISPLAY...*.. *** F5    = CHANGE BAUD RAT
E...4.. *** F7    = RECEIVE MODE.,.>.. *
** OTHER = SEND MODE.2.H.:.E.R..B$:.B$."
".850.`.\..B$.G(136).1170 : . F7.{.F..B$
.G(134).1060 : . F3...P..B$.G(135).940 :
 . F5...Z..540.....:.....:.....:.K.... *
** CHANGE BAUD RATE......:."ENTER BAUD R
ATE":."(60,66,75,100)";WPM......WPM.60..
A1,41:.A2,52:.1000.:....WPM.66..A1,38:.A
2,48:.1000.Z.J..WPM.75..A1,33:.A2,43:.10
00.{.T..WPM.100..A1,25:.A2,35:.1000.....
.940......"SPEED NOW "WPM:.540.....:....
.:.....:.G.... *** DISPLAY TIME.M...:...
$.A$."    THE TIME IS ":.Z.O.SI.....B$.J
(A$,Z,O):.600:..B.8.A$.H(TI$,T).":".J(TI
$,TH,2):.Z.1.5:B$.J(A$,Z,O):.600:..Q.B.A
$." UTC ":.Z.1.5:B$.J(A$,Z,O):.600:.:.54
0...L..A$:.A$."".1100...V..A$,F(A$):.110
0...`.:...J.:...T.:.B.~.. *** RECEIVE MO
DE.H...:......:.".RECEIVE."......4412::.
A$(B(P).E.B(Q));......B$:.B$."".1180....
..540................ S. .. .. ... ...G.
H W.`.............I...8.. .. .. .....M..
... C..!.8.......... ..8......I;P......`
...I?P......`...I$P......`."............
P.`.#............P.`..... ....I.P.. ....
..........P.J... .I......!.`...!.`......
............. .. .. ...............8....
... .. .......... .. .. ..`

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL