RTTY-C64 PROG
FILE INFORMATION
FILENAME(S): RTTY-C64 PROG
FILE TYPE(S): PRG
FILE SIZE: 8K
FIRST SEEN: 2025-10-20 14:30:51
APPEARS ON: 1 disk(s)
FILE HASH
d6102cae94d3e609b48082e7c790cde5cad0db48d787fcd14dadcf14e6390350
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0047ED | RTTY-C64 PROG | PRG | Treasure Chest - Klaus Der Suhler | 5 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 09 08 01 00 89 31 30 00 33 08 02 00 9F 31 |.......10.3....1|
00000010: 2C 38 2C 31 35 3A 98 31 2C 22 53 30 3A 50 41 2E |,8,15:.1,"S0:PA.|
00000020: 38 22 3A A0 31 3A 94 22 30 3A 50 41 2E 38 22 2C |8":.1:."0:PA.8",|
00000030: 38 3A 80 00 4B 08 03 00 9F 34 2C 34 3A 98 34 2C |8:..K....4,4:.4,|
00000040: 22 50 41 2E 38 22 3A 9D 34 3A 9B 00 55 08 04 00 |"PA.8":.4:..U...|
00000050: 98 34 3A A0 34 00 76 08 0A 00 8F 20 52 54 54 59 |.4:.4.v.... RTTY|
00000060: 20 50 52 4F 47 52 41 4D 20 32 2D 32 31 2D 38 34 | PROGRAM 2-21-84|
00000070: 20 20 56 33 2E 32 00 9D 08 0C 00 8F 20 4D 4F 44 | V3.2...... MOD|
00000080: 49 46 49 45 44 20 42 59 20 57 44 38 4E 48 49 20 |IFIED BY WD8NHI |
00000090: 34 2D 32 31 2D 38 34 20 56 33 2E 32 35 00 BD 08 |4-21-84 V3.25...|
000000A0: 14 00 8F 20 53 55 50 50 4F 52 54 53 20 50 52 49 |... SUPPORTS PRI|
000000B0: 4E 54 45 52 20 44 45 56 49 43 45 23 34 00 E2 08 |NTER DEVICE#4...|
000000C0: 1E 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ***********|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 00 07 09 28 00 8F 20 20 2A 20 54 2E 42 2E |**...(.. * T.B.|
000000F0: 20 5A 45 4C 54 57 41 4E 47 45 52 20 4B 47 33 56 | ZELTWANGER KG3V|
00000100: 20 20 20 20 20 20 2A 00 2C 09 32 00 8F 20 20 2A | *.,.2.. *|
00000110: 20 50 4F 20 42 4F 58 20 36 32 20 20 20 20 20 20 | PO BOX 62 |
00000120: 20 20 20 20 20 20 20 20 20 20 20 2A 00 51 09 3C | *.Q.<|
00000130: 00 8F 20 20 2A 20 53 54 41 54 45 20 43 4F 4C 4C |.. * STATE COLL|
00000140: 45 47 45 2C 20 50 41 2E 20 31 36 38 30 34 20 20 |EGE, PA. 16804 |
00000150: 2A 00 76 09 46 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A |*.v.F.. *******|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 00 C1 09 50 00 8F 20 20 50 4F |******...P.. PO|
00000180: 4B 45 35 33 32 38 30 2C 30 3A 50 4F 4B 45 35 33 |KE53280,0:POKE53|
00000190: 32 38 31 2C 30 3A 50 52 49 4E 54 22 05 22 3A 52 |281,0:PRINT".":R|
000001A0: 45 4D 20 53 45 54 53 20 55 50 20 46 4F 52 20 4D |EM SETS UP FOR M|
000001B0: 4F 4E 4F 43 48 52 4F 4D 45 20 4D 4F 4E 49 54 4F |ONOCHROME MONITO|
000001C0: 52 00 F6 09 5A 00 99 20 C7 28 31 34 37 29 AA C7 |R...Z.. .(147)..|
000001D0: 28 31 35 38 29 3A 97 35 33 32 38 30 2C 31 34 3A |(158):.53280,14:|
000001E0: 97 35 33 32 38 31 2C 31 31 3A 54 49 24 B2 22 30 |.53281,11:TI$."0|
000001F0: 30 30 30 30 30 22 00 1A 0A 64 00 99 22 93 11 20 |00000"...d..".. |
00000200: 20 20 20 20 20 20 20 20 20 20 20 52 54 54 59 20 | RTTY |
00000210: 46 4F 52 20 43 2D 36 34 20 22 00 49 0A 69 00 99 |FOR C-64 ".I.i..|
00000220: 22 11 20 57 52 49 54 54 45 4E 20 42 59 20 4B 47 |". WRITTEN BY KG|
00000230: 33 56 20 20 2F 20 20 4D 4F 44 49 46 49 45 44 20 |3V / MODIFIED |
00000240: 42 59 20 4B 38 47 4A 4C 22 00 6C 0A 6E 00 99 22 |BY K8GJL".l.n.."|
00000250: 11 20 41 4C 53 4F 20 4D 4F 44 49 46 49 45 44 20 |. ALSO MODIFIED |
00000260: 42 59 20 57 44 38 4E 48 49 11 11 22 00 95 0A 73 |BY WD8NHI.."...s|
00000270: 00 99 22 20 20 20 20 20 30 2D 2D 2D 34 35 20 42 |.." 0---45 B|
00000280: 41 55 44 20 42 41 55 44 4F 54 20 28 36 30 20 57 |AUD BAUDOT (60 W|
00000290: 50 4D 29 11 22 00 BF 0A 78 00 99 22 20 20 20 20 |PM)."...x.." |
000002A0: 20 31 2D 2D 2D 37 32 20 42 41 55 44 20 42 41 55 | 1---72 BAUD BAU|
000002B0: 44 4F 54 20 28 31 30 30 20 57 50 4D 29 11 22 00 |DOT (100 WPM).".|
000002C0: DF 0A 7D 00 99 22 20 20 20 20 20 32 2D 2D 2D 31 |..}.." 2---1|
000002D0: 31 30 20 42 41 55 44 20 41 53 43 49 49 11 22 00 |10 BAUD ASCII.".|
000002E0: FF 0A 82 00 99 22 20 20 20 20 20 33 2D 2D 2D 33 |....." 3---3|
000002F0: 30 30 20 42 41 55 44 20 41 53 43 49 49 11 22 00 |00 BAUD ASCII.".|
00000300: 2A 0B 8C 00 99 3A 99 22 20 20 20 43 4F 4E 54 52 |*....:." CONTR|
00000310: 4F 4C 20 45 20 2D 20 52 45 54 55 52 4E 53 20 54 |OL E - RETURNS T|
00000320: 4F 20 52 45 43 49 45 56 45 22 00 54 0B 91 00 99 |O RECIEVE".T....|
00000330: 22 11 20 20 20 43 4F 4E 54 52 4F 4C 20 5F 20 2D |". CONTROL _ -|
00000340: 20 53 54 4F 50 53 20 54 52 41 4E 53 4D 49 54 54 | STOPS TRANSMITT|
00000350: 49 4E 47 22 00 75 0B 96 00 99 22 11 11 11 20 20 |ING".u...."... |
00000360: 20 20 20 4F 50 45 52 41 54 49 4E 47 20 4D 4F 44 | OPERATING MOD|
00000370: 45 3F 20 22 3B 00 89 0B A0 00 A1 4D 24 3A 8B 4D |E? ";......M$:.M|
00000380: 24 B2 22 22 A7 89 31 36 30 00 95 0B AA 00 4D B2 |$.""..160.....M.|
00000390: C5 28 4D 24 29 00 A6 0B AF 00 8B 4D B3 30 B0 4D |.(M$)......M.0.M|
000003A0: B1 33 A7 31 36 30 00 AE 0B B1 00 99 4D 3B 00 D2 |.3.160......M;..|
000003B0: 0B B4 00 8F 2A 2A 2A 20 52 45 53 54 4F 52 45 20 |....*** RESTORE |
000003C0: 4D 20 41 46 54 45 52 20 22 4F 50 45 4E 22 20 2A |M AFTER "OPEN" *|
000003D0: 2A 2A 00 E8 0B BE 00 91 20 4D 20 89 20 32 31 30 |**...... M . 210|
000003E0: 2C 32 32 30 2C 32 33 30 00 FB 0B C8 00 9F 20 32 |,220,230...... 2|
000003F0: 2C 32 2C 30 2C C7 28 32 32 35 29 00 10 0C CD 00 |,2,0,.(225).....|
00000400: 97 36 36 36 2C 38 37 3A 97 36 36 35 2C 32 33 36 |.666,87:.665,236|
00000410: 00 1D 0C D0 00 4D B2 30 3A 89 32 34 30 00 4A 0C |.....M.0:.240.J.|
00000420: D2 00 9F 20 32 2C 32 2C 30 2C C7 28 39 36 29 AA |... 2,2,0,.(96).|
00000430: C7 28 30 29 AA C7 28 31 33 36 29 AA C7 28 32 36 |.(0)..(136)..(26|
00000440: 29 3A 4D B2 31 3A 89 32 34 30 00 69 0C DC 00 9F |):M.1:.240.i....|
00000450: 20 32 2C 32 2C 30 2C C7 28 33 29 AA C7 28 30 29 | 2,2,0,.(3)..(0)|
00000460: 3A 4D B2 32 3A 89 32 34 30 00 88 0C E6 00 9F 20 |:M.2:.240...... |
00000470: 32 2C 32 2C 30 2C C7 28 36 29 AA C7 28 30 29 3A |2,2,0,.(6)..(0):|
00000480: 4D B2 33 3A 89 32 34 30 00 96 0C F0 00 58 58 B2 |M.3:.240.....XX.|
00000490: 31 3A 8D 34 30 30 00 B7 0C FA 00 8D 34 30 30 30 |1:.400......4000|
000004A0: 30 3A 8F 20 53 45 54 55 50 20 42 41 55 44 4F 54 |0:. SETUP BAUDOT|
000004B0: 20 54 41 42 4C 45 53 00 D7 0C 04 01 A1 23 32 2C | TABLES......#2,|
000004C0: 52 58 24 3A 8F 20 53 54 41 52 54 20 55 50 20 52 |RX$:. START UP R|
000004D0: 45 43 45 49 56 45 52 00 EE 0C 0E 01 43 B2 30 3A |ECEIVER.....C.0:|
000004E0: 8F 20 4C 45 54 54 45 52 53 20 43 41 53 45 00 14 |. LETTERS CASE..|
000004F0: 0D 18 01 4C 4C B2 36 30 3A 8F 20 23 20 4F 46 20 |...LL.60:. # OF |
00000500: 43 48 41 52 53 20 54 49 4C 4C 20 46 4F 52 43 45 |CHARS TILL FORCE|
00000510: 44 20 43 52 00 31 0D 22 01 50 52 B2 30 3A 8F 20 |D CR.1.".PR.0:. |
00000520: 4E 4F 20 50 52 49 4E 54 45 52 20 4F 55 54 50 55 |NO PRINTER OUTPU|
00000530: 54 00 3A 0D 2C 01 99 22 93 22 00 58 0D 36 01 8B |T.:.,..".".X.6..|
00000540: 4D B1 31 A7 20 89 20 32 30 30 30 3A 8F 20 41 53 |M.1. . 2000:. AS|
00000550: 43 49 49 20 4A 55 4D 50 00 61 0D 40 01 89 37 30 |CII JUMP.a.@..70|
00000560: 30 00 82 0D 4A 01 8F 20 20 20 20 2A 2A 2A 2A 2A |0...J.. *****|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000580: 2A 2A 00 A3 0D 90 01 8F 20 20 20 20 2A 2A 2A 2A |**...... ****|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005A0: 2A 2A 2A 00 DC 0D 93 01 8F 2A 2A 20 49 46 20 59 |***......** IF Y|
000005B0: 4F 55 52 20 54 52 41 4E 53 4D 49 54 54 45 52 20 |OUR TRANSMITTER |
000005C0: 52 45 51 55 49 52 45 53 20 41 20 48 49 47 48 20 |REQUIRES A HIGH |
000005D0: 54 4F 20 54 52 41 4E 53 4D 49 54 54 00 02 0E 94 |TO TRANSMITT....|
000005E0: 01 8F 2A 2A 20 43 48 41 4E 47 45 20 58 58 20 49 |..** CHANGE XX I|
000005F0: 4E 20 4C 49 4E 45 20 34 31 30 20 54 4F 20 58 58 |N LINE 410 TO XX|
00000600: 3D 31 00 1D 0E 95 01 8F 20 58 58 3D 31 2F 48 49 |=1...... XX=1/HI|
00000610: 47 48 20 54 4F 20 52 45 43 49 45 56 45 00 39 0E |GH TO RECIEVE.9.|
00000620: 96 01 8F 20 58 58 3D 30 2F 4C 4F 57 20 54 4F 20 |... XX=0/LOW TO |
00000630: 54 52 41 4E 53 4D 49 54 54 00 57 0E 97 01 8F 20 |TRANSMITT.W.... |
00000640: 53 45 54 20 50 42 31 20 4C 4F 57 20 46 4F 52 20 |SET PB1 LOW FOR |
00000650: 54 58 20 4D 4F 44 45 00 68 0E 9A 01 8B 58 58 B2 |TX MODE.h....XX.|
00000660: 30 89 34 33 30 3A 54 58 00 8F 0E A4 01 97 35 36 |0.430:TX......56|
00000670: 35 37 37 2C C2 28 35 36 35 37 37 29 B0 32 3A 8E |577,.(56577).2:.|
00000680: 3A 8F 20 20 20 20 20 20 52 58 20 4D 4F 44 45 00 |:. RX MODE.|
00000690: BA 0E AE 01 97 35 36 35 37 37 2C C2 28 35 36 35 |.....56577,.(565|
000006A0: 37 37 29 AF 32 35 33 3A 8F 20 20 20 20 20 20 20 |77).253:. |
000006B0: 20 20 20 54 58 20 4D 4F 44 45 00 C0 0E B8 01 8E | TX MODE......|
000006C0: 00 E1 0E F4 01 8F 20 20 20 20 2A 2A 2A 2A 2A 2A |...... ******|
000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006E0: 2A 00 00 0F F9 01 8F 3A 2A 20 4B 45 59 42 4F 41 |*......:* KEYBOA|
000006F0: 52 44 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 |RD INPUT ROUTINE|
00000700: 00 17 0F FE 01 A1 41 41 24 3A 8B 41 41 24 B2 22 |......AA$:.AA$."|
00000710: 22 A7 56 B2 30 3A 8E 00 24 0F 03 02 56 B2 C6 28 |".V.0:..$...V..(|
00000720: 41 41 24 29 00 3E 0F 08 02 8B 56 B3 B1 36 A7 20 |AA$).>....V..6. |
00000730: 8E 3A 43 48 45 43 4B 53 20 81 20 9A 20 5F 00 4E |.:CHECKS . . _.N|
00000740: 0F 0A 02 58 58 B2 31 3A 54 41 B2 30 3A 8E 00 54 |...XX.1:TA.0:..T|
00000750: 0F 0D 02 8E 00 75 0F 0E 02 8F 20 20 20 20 2A 2A |.....u.... **|
00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000770: 2A 2A 2A 2A 2A 00 7B 0F 57 02 8E 00 9C 0F BC 02 |*****.{.W.......|
00000780: 8F 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. ***********|
00000790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BD 0F C1 |************....|
000007A0: 02 8F 20 20 20 20 2A 20 42 41 55 44 4F 54 20 52 |.. * BAUDOT R|
000007B0: 58 20 52 4F 55 54 49 4E 45 20 20 20 2A 00 DE 0F |X ROUTINE *...|
000007C0: C6 02 8F 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |... *********|
000007D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FA |**************..|
000007E0: 0F CB 02 8B 54 41 B2 31 A7 99 3A 99 22 54 52 41 |....TA.1..:."TRA|
000007F0: 4E 53 4D 49 54 54 49 4E 47 22 00 2E 10 D0 02 8B |NSMITTING"......|
00000800: 56 B2 36 A7 97 36 36 39 2C C2 28 36 37 30 29 3A |V.6..669,.(670):|
00000810: 58 58 B2 31 3A 54 41 B2 30 3A 89 37 35 30 3A 43 |XX.1:TA.0:.750:C|
00000820: 48 45 43 4B 53 20 81 20 9A 52 4F 4C 20 5F 00 4B |HECKS . .ROL _.K|
00000830: 10 D5 02 8B 28 C2 28 36 37 33 29 AF 31 29 B3 B1 |....(.(673).1)..|
00000840: 30 A7 8D 35 30 30 3A 89 37 32 30 00 5A 10 DA 02 |0..500:.720.Z...|
00000850: 8B 54 41 B2 31 A7 54 41 B2 30 00 81 10 EE 02 99 |.TA.1.TA.0......|
00000860: 3A 99 22 52 58 3E 22 3B 3A 8B 50 52 B2 31 A7 98 |:."RX>";:.PR.1..|
00000870: 34 2C C7 28 31 33 29 3A 98 34 2C 22 52 58 3E 22 |4,.(13):.4,"RX>"|
00000880: 3B 00 99 10 F3 02 58 58 B2 31 3A 8D 34 30 30 3A |;.....XX.1:.400:|
00000890: 8F 20 52 58 20 4D 4F 44 45 00 AB 10 F8 02 A1 23 |. RX MODE......#|
000008A0: 32 2C 52 58 24 3A 53 42 B2 53 54 00 C7 10 FD 02 |2,RX$:SB.ST.....|
000008B0: 8B 52 58 24 B3 B1 22 22 AF A8 28 53 42 AF 32 29 |.RX$..""..(SB.2)|
000008C0: A7 8D 31 30 30 30 30 00 DE 10 02 03 A1 20 4D 4F |..10000...... MO|
000008D0: 24 3A 8B 4D 4F 24 B2 22 22 A7 89 37 39 30 00 F8 |$:.MO$.""..790..|
000008E0: 10 07 03 56 B2 C6 28 4D 4F 24 29 3A 8B 56 B2 31 |...V..(MO$):.V.1|
000008F0: 33 33 A7 89 31 31 30 30 00 31 11 0C 03 8B 56 B1 |33..1100.1....V.|
00000900: 31 33 33 AF 56 B3 31 34 31 A7 8D 32 32 30 30 30 |133.V.141..22000|
00000910: 3A 89 37 30 30 3A 8F 20 53 50 45 43 49 41 4C 20 |:.700:. SPECIAL |
00000920: 46 55 4E 43 54 49 4F 4E 20 53 45 4C 45 43 54 45 |FUNCTION SELECTE|
00000930: 44 00 44 11 16 03 8B 52 58 24 B2 22 22 A7 20 89 |D.D....RX$."". .|
00000940: 20 37 36 30 00 5E 11 20 03 8F 20 50 52 49 4E 54 | 760.^. .. PRINT|
00000950: 20 54 48 45 20 43 48 41 52 41 43 54 45 52 00 88 | THE CHARACTER..|
00000960: 11 2A 03 8B 43 B2 30 20 A7 20 41 44 B2 35 30 32 |.*..C.0 . AD.502|
00000970: 30 30 AA C6 28 52 58 24 AA C7 28 30 29 29 3A 8F |00..(RX$..(0)):.|
00000980: 20 4C 45 54 54 45 52 53 00 B2 11 34 03 8B 43 B2 | LETTERS...4..C.|
00000990: 31 20 A7 20 41 44 B2 35 30 32 33 32 AA C6 28 52 |1 . AD.50232..(R|
000009A0: 58 24 AA C7 28 30 29 29 3A 8F 20 46 49 47 55 52 |X$..(0)):. FIGUR|
000009B0: 45 53 00 D7 11 3E 03 54 4D 24 B2 C7 28 C2 28 41 |ES...>.TM$..(.(A|
000009C0: 44 29 29 3A 99 54 4D 24 3B 3A 8B 50 52 B2 31 A7 |D)):.TM$;:.PR.1.|
000009D0: 98 34 2C 54 4D 24 3B 00 E1 11 48 03 89 20 37 36 |.4,TM$;...H.. 76|
000009E0: 30 00 02 12 E8 03 8F 20 20 20 20 2A 2A 2A 2A 2A |0...... *****|
000009F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A00: 2A 2A 00 23 12 E9 03 8F 20 20 20 20 2A 20 42 41 |**.#.... * BA|
00000A10: 55 44 4F 54 20 54 58 20 52 4F 55 54 49 4E 45 20 |UDOT TX ROUTINE |
00000A20: 20 20 2A 00 44 12 EA 03 8F 20 20 20 20 2A 2A 2A | *.D.... ***|
00000A30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A40: 2A 2A 2A 2A 00 78 12 F2 03 8B 56 B2 36 B0 56 B2 |****.x....V.6.V.|
00000A50: 35 A7 20 37 30 30 3A 43 48 45 43 4B 53 20 81 20 |5. 700:CHECKS . |
00000A60: 20 20 20 20 20 20 20 20 20 9A 52 4F 4C 20 5F 20 | .ROL _ |
00000A70: B0 20 9A 52 4F 4C 20 45 00 A2 12 4C 04 99 3A 99 |. .ROL E...L..:.|
00000A80: 22 54 58 3E 22 3B 3A 58 58 B2 30 3A 43 B2 30 3A |"TX>";:XX.0:C.0:|
00000A90: 43 4E 54 B2 30 3A 8F 20 49 4E 49 54 49 41 4C 49 |CNT.0:. INITIALI|
00000AA0: 5A 45 00 B5 12 B0 04 8D 35 30 30 3A 8B 58 58 B2 |ZE......500:.XX.|
00000AB0: 31 A7 37 30 30 00 C3 12 BA 04 8B 56 B2 30 A7 31 |1.700......V.0.1|
00000AC0: 32 30 30 00 CF 12 14 05 54 58 24 B2 41 41 24 00 |200.....TX$.AA$.|
00000AD0: 08 13 46 05 8B 56 B2 35 A7 58 58 B2 31 3A 54 41 |..F..V.5.XX.1:TA|
00000AE0: B2 31 3A 89 37 30 30 3A 8F 20 20 20 20 20 20 20 |.1:.700:. |
00000AF0: 20 20 20 20 43 48 45 43 4B 53 20 46 4F 52 20 43 | CHECKS FOR C|
00000B00: 4F 4E 54 52 4F 4C 20 45 00 27 13 78 05 8B 56 B2 |ONTROL E.'.x..V.|
00000B10: 31 33 33 A7 58 58 B2 31 3A 89 37 30 30 3A 8F 20 |133.XX.1:.700:. |
00000B20: 52 58 20 4D 4F 44 45 00 58 13 DC 05 8B 56 B1 31 |RX MODE.X....V.1|
00000B30: 33 33 A7 8D 32 32 30 30 30 3A 89 31 30 30 30 3A |33..22000:.1000:|
00000B40: 53 50 45 43 49 41 4C 20 46 55 4E 43 54 49 91 20 |SPECIAL FUNCTI. |
00000B50: 53 45 4C 45 43 54 45 44 00 75 13 40 06 58 58 B2 |SELECTED.u.@.XX.|
00000B60: 30 3A 54 41 B2 31 3A 8D 34 30 30 3A 8F 20 54 58 |0:TA.1:.400:. TX|
00000B70: 20 4D 4F 44 45 00 91 13 72 06 8D 32 30 30 30 30 | MODE...r..20000|
00000B80: 3A 89 31 32 30 30 3A 99 20 43 48 41 52 20 AF 20 |:.1200:. CHAR . |
00000B90: 8E 00 AE 13 D0 07 8F 20 20 20 2A 2A 2A 2A 2A 2A |....... ******|
00000BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CB |**************..|
00000BB0: 13 D1 07 8F 20 20 20 2A 20 41 53 43 49 49 20 52 |.... * ASCII R|
00000BC0: 58 20 52 4F 55 54 49 4E 45 20 2A 00 E8 13 D2 07 |X ROUTINE *.....|
00000BD0: 8F 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. ************|
00000BE0: 2A 2A 2A 2A 2A 2A 2A 2A 00 04 14 DA 07 8B 54 41 |********......TA|
00000BF0: B2 31 A7 99 3A 99 22 54 52 41 4E 53 4D 49 54 54 |.1..:."TRANSMITT|
00000C00: 49 4E 47 22 00 39 14 E4 07 8B 56 B2 36 A7 97 36 |ING".9....V.6..6|
00000C10: 36 39 2C C2 28 36 37 30 29 3A 58 58 B2 31 3A 54 |69,.(670):XX.1:T|
00000C20: 41 B2 30 3A 89 32 30 35 30 3A 43 48 45 43 4B 53 |A.0:.2050:CHECKS|
00000C30: 20 81 20 9A 52 4F 4C 20 5F 00 57 14 EE 07 8B 28 | . .ROL _.W....(|
00000C40: C2 28 36 37 33 29 AF 31 29 B3 B1 30 A7 8D 35 30 |.(673).1)..0..50|
00000C50: 30 3A 89 32 30 32 30 00 66 14 F8 07 8B 54 41 B2 |0:.2020.f....TA.|
00000C60: 31 A7 54 41 B2 30 00 8C 14 02 08 99 3A 99 22 52 |1.TA.0......:."R|
00000C70: 58 3E 22 3B 3A 8B 50 52 B2 31 A7 98 34 2C C7 28 |X>";:.PR.1..4,.(|
00000C80: 31 33 29 3A 98 34 2C 22 52 58 3E 22 00 A4 14 0C |13):.4,"RX>"....|
00000C90: 08 58 58 B2 31 3A 8D 34 30 30 3A 8F 20 52 58 20 |.XX.1:.400:. RX |
00000CA0: 4D 4F 44 45 00 B6 14 34 08 A1 23 32 2C 52 58 24 |MODE...4..#2,RX$|
00000CB0: 3A 53 42 B2 53 54 00 D1 14 66 08 8B 52 58 24 B3 |:SB.ST...f..RX$.|
00000CC0: B1 22 22 AF A8 28 53 42 AF 32 29 A7 8D 32 35 30 |.""..(SB.2)..250|
00000CD0: 30 00 E8 14 98 08 A1 4D 4F 24 3A 8B 4D 4F 24 B2 |0......MO$:.MO$.|
00000CE0: 22 22 A7 89 32 31 30 30 00 02 15 FC 08 56 B2 C6 |""..2100.....V..|
00000CF0: 28 4D 4F 24 29 3A 8B 56 B2 31 33 33 A7 89 33 30 |(MO$):.V.133..30|
00000D00: 30 30 00 12 15 2E 09 8B 56 B3 31 33 33 A7 32 31 |00......V.133.21|
00000D10: 30 30 00 3F 15 60 09 8D 32 32 30 30 30 3A 89 32 |00.?.`..22000:.2|
00000D20: 30 30 30 3A 8F 20 53 50 45 43 49 41 4C 20 46 55 |000:. SPECIAL FU|
00000D30: 4E 43 54 49 4F 4E 20 53 45 4C 45 43 54 45 44 00 |NCTION SELECTED.|
00000D40: 5F 15 C4 09 56 B2 C6 28 52 58 24 AA C7 28 30 29 |_...V..(RX$..(0)|
00000D50: 29 3A 8B 56 B3 33 32 AF 56 B3 B1 31 33 A7 8E 00 |):.V.32.V..13...|
00000D60: 6C 15 28 0A 8B 56 B1 31 32 37 A7 8E 00 95 15 8C |l.(..V.127......|
00000D70: 0A 8B 56 B1 39 35 A7 56 B2 56 AB 33 32 3A 8F 20 |..V.95.V.V.32:. |
00000D80: 55 50 50 45 52 20 43 41 53 45 20 43 4F 4E 56 45 |UPPER CASE CONVE|
00000D90: 52 53 49 4F 4E 00 AF 15 F0 0A 99 C7 28 56 29 3B |RSION.......(V);|
00000DA0: 3A 8B 50 52 B2 31 A7 98 34 2C C7 28 56 29 3B 00 |:.PR.1..4,.(V);.|
00000DB0: B5 15 54 0B 8E 00 D6 15 B8 0B 8F 20 20 20 20 2A |..T........ *|
00000DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DD0: 2A 2A 2A 2A 2A 2A 00 F7 15 B9 0B 8F 20 20 20 20 |******...... |
00000DE0: 2A 20 41 53 43 49 49 20 54 58 20 52 4F 55 54 49 |* ASCII TX ROUTI|
00000DF0: 4E 45 20 20 20 20 2A 00 18 16 BA 0B 8F 20 20 20 |NE *...... |
00000E00: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000E10: 2A 2A 2A 2A 2A 2A 2A 2A 00 4C 16 C2 0B 8B 56 B2 |********.L....V.|
00000E20: 36 B0 56 B2 35 A7 32 30 30 30 3A 43 48 45 43 4B |6.V.5.2000:CHECK|
00000E30: 53 20 81 20 20 20 20 20 20 20 20 20 20 9A 52 4F |S . .RO|
00000E40: 4C 20 5F 20 B0 20 9A 52 4F 4C 20 45 00 76 16 1C |L _ . .ROL E.v..|
00000E50: 0C 99 3A 99 22 54 58 3E 22 3B 3A 58 58 B2 30 3A |..:."TX>";:XX.0:|
00000E60: 43 B2 30 3A 43 4E 54 B2 30 3A 8F 20 49 4E 49 54 |C.0:CNT.0:. INIT|
00000E70: 49 41 4C 49 5A 45 00 8B 16 80 0C 8D 35 30 30 3A |IALIZE......500:|
00000E80: 8B 58 58 B2 31 A7 20 32 30 30 30 00 99 16 8A 0C |.XX.1. 2000.....|
00000E90: 8B 56 B2 30 A7 33 32 30 30 00 A5 16 E4 0C 54 58 |.V.0.3200.....TX|
00000EA0: 24 B2 41 41 24 00 DE 16 EE 0C 8B 56 B2 35 A7 58 |$.AA$......V.5.X|
00000EB0: 58 B2 31 3A 54 41 B2 31 3A 89 32 30 30 30 3A 8F |X.1:TA.1:.2000:.|
00000EC0: 20 20 20 20 20 20 20 20 20 20 43 48 45 43 4B 53 | CHECKS|
00000ED0: 20 46 4F 52 20 43 4F 4E 54 52 4F 4C 20 45 00 FE | FOR CONTROL E..|
00000EE0: 16 16 0D 8B 56 B2 31 33 33 A7 58 58 B2 31 3A 89 |....V.133.XX.1:.|
00000EF0: 32 30 30 30 3A AC 20 52 58 20 4D 4F 44 45 00 29 |2000:. RX MODE.)|
00000F00: 17 48 0D 8B 56 B1 31 33 32 A7 8D 32 32 30 30 30 |.H..V.132..22000|
00000F10: 3A 89 33 30 30 30 3A 8F 20 53 50 45 43 49 41 4C |:.3000:. SPECIAL|
00000F20: 20 46 55 4E 43 54 49 4F 4E 00 46 17 52 0D 58 58 | FUNCTION.F.R.XX|
00000F30: B2 30 3A 54 41 B2 31 3A 8D 34 30 30 3A 8F 20 54 |.0:TA.1:.400:. T|
00000F40: 58 20 4D 4F 44 45 00 56 17 61 0D 8D 33 34 35 30 |X MODE.V.a..3450|
00000F50: 3A 89 33 32 30 30 00 72 17 7A 0D 98 32 2C 54 58 |:.3200.r.z..2,TX|
00000F60: 24 3B 3A 99 54 58 24 3B 3A 43 4E 54 B2 43 4E 54 |$;:.TX$;:CNT.CNT|
00000F70: AA 31 00 92 17 AC 0D 8B 43 4E 54 B1 36 30 A7 43 |.1......CNT.60.C|
00000F80: 4E 54 B2 30 3A 98 32 2C C7 28 31 33 29 3A 99 22 |NT.0:.2,.(13):."|
00000F90: 5F 22 00 A7 17 10 0E 8B 56 B2 31 33 B0 56 B2 33 |_"......V.13.V.3|
00000FA0: 32 A7 43 4E 54 B2 30 00 AD 17 74 0E 8E 00 CA 17 |2.CNT.0...t.....|
00000FB0: 0F 27 8F 2A 2A 2A 2A 2A 52 58 20 43 48 41 52 20 |.'.*****RX CHAR |
00000FC0: 43 48 45 43 4B 2A 2A 2A 2A 2A 00 ED 17 10 27 56 |CHECK*****....'V|
00000FD0: B2 C6 28 52 58 24 AA C7 28 30 29 29 3A 8F 20 56 |..(RX$..(0)):. V|
00000FE0: 3D 42 49 4E 41 52 59 20 56 41 4C 55 45 00 29 18 |=BINARY VALUE.).|
00000FF0: 74 27 8B 56 B2 34 20 B0 56 B2 33 31 20 A7 20 43 |t'.V.4 .V.31 . C|
00001000: B2 30 3A 8F 20 53 45 54 20 4C 45 54 54 45 52 53 |.0:. SET LETTERS|
00001010: 20 43 41 53 45 20 4F 4E 20 53 50 41 43 45 20 4F | CASE ON SPACE O|
00001020: 52 20 4C 45 54 54 45 52 53 00 4A 18 D8 27 8B 20 |R LETTERS.J..'. |
00001030: 56 B2 32 37 20 A7 20 43 B2 31 3A 8F 20 46 49 47 |V.27 . C.1:. FIG|
00001040: 55 52 45 53 20 53 48 49 46 54 00 64 18 0A 28 8B |URES SHIFT.d..(.|
00001050: 56 B2 30 B0 56 B2 32 37 B0 56 B2 33 31 A7 52 58 |V.0.V.27.V.31.RX|
00001060: 24 B2 22 22 00 7A 18 3C 28 8B 52 24 B3 B1 22 22 |$."".z.<(.R$..""|
00001070: A7 43 4E 54 B2 43 4E 54 AA 31 00 92 18 6E 28 8B |.CNT.CNT.1...n(.|
00001080: 50 52 B2 31 20 AF 56 B2 38 A7 98 34 2C C7 28 31 |PR.1 .V.8..4,.(1|
00001090: 33 29 00 C6 18 A0 28 8B 43 4E 54 B1 33 35 20 AF |3)....(.CNT.35 .|
000010A0: 20 56 B2 34 A7 99 C7 28 31 33 29 3A 52 58 24 B2 | V.4...(13):RX$.|
000010B0: 22 22 3A 43 4E 54 B2 30 3A 8F 20 43 52 20 4F 4E |"":CNT.0:. CR ON|
000010C0: 20 53 50 41 43 45 00 D5 18 04 29 8B 56 B2 38 A7 | SPACE....).V.8.|
000010D0: 43 4E 54 B2 30 00 DB 18 68 29 8E 00 FE 18 20 4E |CNT.0...h).... N|
000010E0: 8F 2A 2A 2A 2A 2A 54 58 20 43 48 41 52 20 43 48 |.*****TX CHAR CH|
000010F0: 45 43 4B 2A 2A 2A 2A 2A 20 56 3D 41 53 43 00 14 |ECK***** V=ASC..|
00001100: 19 E8 4E 8B 56 B1 33 32 AF 56 B3 36 35 A7 89 32 |..N.V.32.V.65..2|
00001110: 30 36 30 30 00 24 19 4C 4F 8B 43 B2 30 A7 89 32 |0600.$.LO.C.0..2|
00001120: 31 30 30 30 00 54 19 B0 4F 43 B2 30 3A 42 55 46 |1000.T..OC.0:BUF|
00001130: 24 B2 42 55 46 24 AA C7 28 33 31 29 3A 8F 20 54 |$.BUF$..(31):. T|
00001140: 52 41 4E 53 49 54 49 4F 4E 20 54 4F 20 4C 45 54 |RANSITION TO LET|
00001150: 54 45 52 53 00 6A 19 14 50 89 32 31 30 30 30 3A |TERS.j..P.21000:|
00001160: 8F 20 50 52 49 4E 54 20 49 54 00 7A 19 78 50 8B |. PRINT IT.z.xP.|
00001170: 43 B2 31 A7 89 32 31 30 30 30 00 A7 19 DC 50 43 |C.1..21000....PC|
00001180: B2 31 3A 42 55 46 24 B2 42 55 46 24 AA C7 28 32 |.1:BUF$.BUF$..(2|
00001190: 37 29 3A 8F 20 54 52 41 4E 53 49 54 49 4F 4E 20 |7):. TRANSITION |
000011A0: 54 4F 20 46 49 47 53 00 DC 19 08 52 8B 56 B2 31 |TO FIGS....R.V.1|
000011B0: 33 A7 43 4E 54 B2 30 3A 99 22 22 3A 42 55 46 24 |3.CNT.0:."":BUF$|
000011C0: B2 42 55 46 24 AA C7 28 38 29 AA C7 28 32 29 AA |.BUF$..(8)..(2).|
000011D0: C7 28 33 31 29 3A 89 32 31 31 31 30 00 07 1A 12 |.(31):.21110....|
000011E0: 52 8B 56 B2 32 30 A7 42 55 46 24 B2 C8 28 42 55 |R.V.20.BUF$..(BU|
000011F0: 46 24 2C C3 28 42 55 46 24 29 AB 31 29 3A 99 C7 |F$,.(BUF$).1):..|
00001200: 28 32 30 29 3B 3A 8E 00 35 1A 1C 52 42 55 46 24 |(20);:..5..RBUF$|
00001210: B2 42 55 46 24 AA C7 28 C2 28 35 30 30 30 30 AA |.BUF$..(.(50000.|
00001220: 56 29 29 3A 8F 20 41 50 50 45 4E 44 20 54 48 45 |V)):. APPEND THE|
00001230: 20 43 48 41 52 00 49 1A 26 52 99 54 58 24 3B 3A | CHAR.I.&R.TX$;:|
00001240: 43 4E 54 B2 43 4E 54 AA 31 00 76 1A 2B 52 8B 43 |CNT.CNT.1.v.+R.C|
00001250: 4E 54 B1 4C 4C A7 99 22 5F 22 3B 3A 56 B2 31 33 |NT.LL.."_";:V.13|
00001260: 3A 89 32 31 30 30 30 3A 8F 20 46 4F 52 43 45 44 |:.21000:. FORCED|
00001270: 20 43 52 2F 4C 46 00 9D 1A 30 52 8B 56 B3 B1 33 | CR/LF...0R.V..3|
00001280: 32 A7 32 31 39 39 39 3A 8F 20 52 45 54 55 52 4E |2.21999:. RETURN|
00001290: 20 55 4E 4C 45 53 53 20 53 50 41 43 45 00 A7 1A | UNLESS SPACE...|
000012A0: 35 52 43 4E 54 B2 30 00 C1 1A 6C 52 8F 2D 2D 2D |5RCNT.0...lR.---|
000012B0: 2D 2D 53 50 41 43 45 20 53 45 4E 54 2D 2D 2D 2D |--SPACE SENT----|
000012C0: 2D 00 D6 1A 76 52 98 32 2C 42 55 46 24 3B 3A 42 |-...vR.2,BUF$;:B|
000012D0: 55 46 24 B2 22 22 00 DC 1A EF 55 8E 00 FD 1A F0 |UF$.""....U.....|
000012E0: 55 8F 2A 2A 2A 2A 2A 46 55 4E 43 54 49 4F 4E 20 |U.*****FUNCTION |
000012F0: 53 45 4C 45 43 54 45 44 2A 2A 2A 2A 2A 00 32 1B |SELECTED*****.2.|
00001300: FA 55 91 56 AB 31 33 33 89 32 32 31 30 30 2C 32 |.U.V.133.22100,2|
00001310: 32 32 30 30 2C 32 32 33 30 30 2C 32 32 34 30 30 |2200,22300,22400|
00001320: 2C 32 32 35 30 30 2C 32 32 36 30 30 2C 32 32 37 |,22500,22600,227|
00001330: 30 30 00 51 1B 53 56 AC AC AC AC AC AC AC AC AC |00.Q.SV.........|
00001340: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001350: AC 00 79 1B 54 56 8F 20 46 33 3A 4C 49 53 54 20 |..y.TV. F3:LIST |
00001360: 26 20 50 52 49 4E 54 20 53 50 45 43 49 41 4C 20 |& PRINT SPECIAL |
00001370: 46 55 4E 43 54 49 4F 4E 53 00 B9 1B 59 56 85 22 |FUNCTIONS...YV."|
00001380: 44 4F 20 59 4F 55 20 48 41 56 45 20 41 20 44 45 |DO YOU HAVE A DE|
00001390: 56 49 43 45 20 23 34 20 50 52 49 4E 54 45 52 22 |VICE #4 PRINTER"|
000013A0: 3B 50 24 3A 50 B2 31 3A 8B C8 28 50 24 2C 31 29 |;P$:P.1:..(P$,1)|
000013B0: B3 B1 22 59 22 A7 50 B2 30 00 CA 1B 5E 56 8B 50 |.."Y".P.0...^V.P|
000013C0: B2 31 A7 9F 34 2C 34 3A 9D 34 00 F7 1B 63 56 99 |.1..4,4:.4...cV.|
000013D0: 22 93 11 11 20 20 53 50 45 43 49 41 4C 20 46 55 |"... SPECIAL FU|
000013E0: 4E 43 54 49 4F 4E 53 20 41 56 41 49 4C 41 42 4C |NCTIONS AVAILABL|
000013F0: 45 20 41 52 45 3A 22 00 22 1C 68 56 99 22 2D 2D |E ARE:".".hV."--|
00001400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00001420: 3A 99 00 5B 1C 6D 56 99 22 20 20 20 20 20 46 31 |:..[.mV." F1|
00001430: 2D 2D 43 48 41 4E 47 45 20 43 55 52 52 45 4E 54 |--CHANGE CURRENT|
00001440: 20 4D 4F 44 45 20 28 54 52 41 4E 53 4D 49 54 20 | MODE (TRANSMIT |
00001450: 2F 20 52 45 43 45 49 56 45 29 22 00 7F 1C 72 56 |/ RECEIVE)"...rV|
00001460: 99 22 20 20 20 20 20 46 32 2D 2D 52 45 53 54 41 |." F2--RESTA|
00001470: 52 54 20 54 48 45 20 50 52 4F 47 52 41 4D 22 00 |RT THE PROGRAM".|
00001480: AE 1C 75 56 99 22 20 20 20 20 20 46 33 2D 2D 4C |..uV." F3--L|
00001490: 49 53 54 20 26 20 50 52 49 4E 54 20 53 50 45 43 |IST & PRINT SPEC|
000014A0: 49 41 4C 20 46 55 4E 43 54 49 4F 4E 53 22 00 D9 |IAL FUNCTIONS"..|
000014B0: 1C 77 56 99 22 20 20 20 20 20 46 34 2D 2D 54 55 |.wV." F4--TU|
000014C0: 52 4E 20 50 52 49 4E 54 45 52 20 4F 55 54 50 55 |RN PRINTER OUTPU|
000014D0: 54 20 4F 4E 2F 4F 46 46 22 00 12 1D 7C 56 99 22 |T ON/OFF"...|V."|
000014E0: 20 20 20 20 20 46 35 2D 2D 53 45 4E 44 20 4F 4E | F5--SEND ON|
000014F0: 45 20 4F 46 20 54 48 45 20 31 30 20 50 52 4F 47 |E OF THE 10 PROG|
00001500: 52 41 4D 4D 41 42 4C 45 20 4D 45 53 53 41 47 45 |RAMMABLE MESSAGE|
00001510: 53 22 00 50 1D 81 56 99 22 20 20 20 20 20 46 36 |S".P..V." F6|
00001520: 2D 2D 4C 4F 41 44 20 41 20 4D 45 53 53 41 47 45 |--LOAD A MESSAGE|
00001530: 20 28 30 2D 39 29 20 57 49 54 48 20 54 45 58 54 | (0-9) WITH TEXT|
00001540: 20 48 49 54 20 46 31 20 54 4F 20 53 54 4F 50 22 | HIT F1 TO STOP"|
00001550: 00 8A 1D 86 56 99 22 20 20 20 20 20 46 37 2D 2D |....V." F7--|
00001560: 53 45 4E 44 20 41 20 50 52 45 2D 52 45 43 4F 52 |SEND A PRE-RECOR|
00001570: 44 45 44 20 53 45 51 55 45 4E 54 49 41 4C 20 20 |DED SEQUENTIAL |
00001580: 44 49 53 4B 20 46 49 4C 45 22 00 B6 1D 88 56 99 |DISK FILE"....V.|
00001590: 22 20 20 20 20 20 46 38 2D 2D 43 4C 45 41 52 20 |" F8--CLEAR |
000015A0: 53 43 52 45 45 4E 20 44 55 52 49 4E 47 20 52 45 |SCREEN DURING RE|
000015B0: 43 49 45 56 45 22 00 E1 1D 8B 56 99 22 2D 2D 2D |CIEVE"....V."---|
000015C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000015D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A |--------------":|
000015E0: 99 00 F1 1D 90 56 8B 20 50 B2 31 A7 98 34 3A A0 |.....V. P.1..4:.|
000015F0: 34 00 F7 1D 95 56 8E 00 16 1E B7 56 AC AC AC AC |4....V.....V....|
00001600: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001610: AC AC AC AC AC AC 00 35 1E B8 56 8F 20 46 35 3D |.......5..V. F5=|
00001620: 53 45 4E 44 20 41 20 53 54 52 49 4E 47 20 28 56 |SEND A STRING (V|
00001630: 3D 31 33 35 29 00 46 1E C2 56 99 3A 99 22 53 45 |=135).F..V.:."SE|
00001640: 4E 44 20 23 22 3B 00 5E 1E CC 56 A1 4E 4E 24 3A |ND #";.^..V.NN$:|
00001650: 8B 4E 4E 24 B2 22 22 A7 89 32 32 32 32 30 00 7B |.NN$.""..22220.{|
00001660: 1E D6 56 4E 4E B2 C5 28 4E 4E 24 29 3A 99 4E 4E |..VNN..(NN$):.NN|
00001670: 3B 22 3E 22 3B 3A 43 4E 54 B2 30 00 8C 1E DB 56 |;">";:CNT.0....V|
00001680: 8B 41 24 28 4E 4E 29 B2 22 22 A7 8E 00 A0 1E DD |.A$(NN).""......|
00001690: 56 54 41 B2 30 3A 8B 58 58 B2 31 A7 54 41 B2 31 |VTA.0:.XX.1.TA.1|
000016A0: 00 B8 1E E0 56 58 58 B2 30 3A 8D 34 30 30 3A 8F |....VXX.0:.400:.|
000016B0: 20 54 58 20 4D 4F 44 45 00 EB 1E EA 56 81 49 B2 | TX MODE....V.I.|
000016C0: 31 A4 C3 28 41 24 28 4E 4E 29 29 3A 54 58 24 B2 |1..(A$(NN)):TX$.|
000016D0: CA 28 41 24 28 4E 4E 29 2C 49 2C 31 29 3A 56 B2 |.(A$(NN),I,1):V.|
000016E0: C6 28 54 58 24 AA C7 28 30 29 29 00 22 1F EC 56 |.(TX$..(0))."..V|
000016F0: 8B 56 B2 35 A7 58 58 B2 31 3A 54 41 B2 31 3A 8E |.V.5.XX.1:TA.1:.|
00001700: 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 43 48 |:. CH|
00001710: 45 43 4B 53 20 46 4F 52 20 43 4F 4E 54 52 4F 4C |ECKS FOR CONTROL|
00001720: 20 45 00 3A 1F EF 56 A1 41 41 24 3A 8B 41 41 24 | E.:..V.AA$:.AA$|
00001730: B2 22 22 A7 89 32 32 32 36 30 00 54 1F F1 56 5A |.""..22260.T..VZ|
00001740: 5A B2 C6 28 41 41 24 29 3A 8B 5A 5A B2 36 A7 56 |Z..(AA$):.ZZ.6.V|
00001750: B2 36 3A 8E 00 67 1F F4 56 8B 4D B3 32 A7 8D 32 |.6:..g..V.M.2..2|
00001760: 30 30 30 30 3A 82 49 00 79 1F FE 56 8B 4D B1 31 |0000:.I.y..V.M.1|
00001770: A7 8D 33 34 35 30 3A 82 49 00 7F 1F 1A 57 8E 00 |..3450:.I....W..|
00001780: 9E 1F 1B 57 AC AC AC AC AC AC AC AC AC AC AC AC |...W............|
00001790: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 C0 |................|
000017A0: 1F 1C 57 8F 20 46 37 3D 53 45 4E 44 20 41 20 44 |..W. F7=SEND A D|
000017B0: 49 53 4B 20 46 49 4C 45 20 28 56 3D 31 33 36 29 |ISK FILE (V=136)|
000017C0: 00 DB 1F 26 57 99 3A 46 24 B2 22 22 3A 85 22 46 |...&W.:F$."":."F|
000017D0: 49 4C 45 4E 41 4D 45 22 3B 46 24 00 E8 1F 2B 57 |ILENAME";F$...+W|
000017E0: 8B 46 24 B2 22 22 A7 8E 00 02 20 30 57 9F 31 2C |.F$."".... 0W.1,|
000017F0: 38 2C 35 2C 22 30 3A 22 AA 46 24 AA 22 2C 53 2C |8,5,"0:".F$.",S,|
00001800: 52 22 00 1C 20 32 57 9F 31 35 2C 38 2C 31 35 3A |R".. 2W.15,8,15:|
00001810: 84 31 35 2C 41 2C 42 24 2C 43 2C 44 00 45 20 34 |.15,A,B$,C,D.E 4|
00001820: 57 8B 41 B3 B1 30 A7 99 22 11 11 22 3B 42 24 3A |W.A..0.."..";B$:|
00001830: 81 49 B2 31 A4 31 30 30 30 3A 82 49 3A A0 31 35 |.I.1.1000:.I:.15|
00001840: 3A A0 31 3A 8E 00 59 20 36 57 54 41 B2 30 3A 8B |:.1:..Y 6WTA.0:.|
00001850: 58 58 B2 31 A7 54 41 B2 31 00 71 20 38 57 58 58 |XX.1.TA.1.q 8WXX|
00001860: B2 30 3A 8D 34 30 30 3A 8F 20 54 58 20 4D 4F 44 |.0:.400:. TX MOD|
00001870: 45 00 97 20 3A 57 A1 23 31 2C 54 58 24 3A 8B 54 |E.. :W.#1,TX$:.T|
00001880: 58 24 B3 B1 22 C7 22 A7 56 B2 C6 28 54 58 24 29 |X$..".".V..(TX$)|
00001890: 3A 8D 32 30 30 30 30 00 AA 20 3F 57 8B 54 58 24 |:.20000.. ?W.TX$|
000018A0: B2 22 C7 22 A7 32 32 33 37 30 00 C2 20 44 57 A1 |.".".22370.. DW.|
000018B0: 41 41 24 3A 8B 41 41 24 B2 22 22 A7 89 32 32 33 |AA$:.AA$.""..223|
000018C0: 33 30 00 E6 20 4E 57 5A 5A B2 C6 28 41 41 24 29 |30.. NWZZ..(AA$)|
000018D0: 3A 8B 5A 5A B2 36 A7 54 41 B2 31 3A 56 B2 36 3A |:.ZZ.6.TA.1:V.6:|
000018E0: 89 32 32 33 37 30 00 F1 20 58 57 89 32 32 33 33 |.22370.. XW.2233|
000018F0: 30 00 FF 20 62 57 A0 31 35 3A A0 20 31 3A 8E 00 |0.. bW.15:. 1:..|
00001900: 1E 21 7F 57 AC AC AC AC AC AC AC AC AC AC AC AC |.!.W............|
00001910: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 3F |...............?|
00001920: 21 80 57 8F 20 46 32 3D 52 45 53 54 41 52 54 20 |!.W. F2=RESTART |
00001930: 50 52 4F 47 52 41 4D 20 28 56 3D 31 33 37 29 00 |PROGRAM (V=137).|
00001940: 4B 21 8A 57 A0 32 3A 89 31 30 30 00 6A 21 E3 57 |K!.W.2:.100.j!.W|
00001950: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001960: AC AC AC AC AC AC AC AC AC AC 00 96 21 E4 57 8F |............!.W.|
00001970: 20 46 34 3D 54 55 52 4E 20 50 52 49 4E 54 45 52 | F4=TURN PRINTER|
00001980: 20 4F 4E 28 50 52 3D 31 29 20 4F 52 20 4F 46 46 | ON(PR=1) OR OFF|
00001990: 28 50 52 3D 30 29 00 AE 21 EE 57 8B 50 52 B2 30 |(PR=0)..!.W.PR.0|
000019A0: A7 9F 34 2C 34 2C 30 3A 50 52 B2 31 3A 8E 00 DA |..4,4,0:PR.1:...|
000019B0: 21 F3 57 43 52 24 B2 C7 28 31 33 29 AA C7 28 31 |!.WCR$..(13)..(1|
000019C0: 33 29 AA C7 28 31 33 29 AA C7 28 31 33 29 AA C7 |3)..(13)..(13)..|
000019D0: 28 31 33 29 AA C7 28 31 33 29 00 F0 21 F8 57 98 |(13)..(13)..!.W.|
000019E0: 34 2C 43 52 24 3A 98 34 3A A0 34 3A 50 52 B2 30 |4,CR$:.4:.4:PR.0|
000019F0: 00 F6 21 46 58 8E 00 15 22 47 58 AC AC AC AC AC |..!FX..."GX.....|
00001A00: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001A10: AC AC AC AC AC 00 36 22 48 58 8F 20 46 36 3D 52 |......6"HX. F6=R|
00001A20: 45 43 4F 52 44 20 41 20 53 54 52 49 4E 47 20 28 |ECORD A STRING (|
00001A30: 56 3D 31 33 39 29 00 4C 22 52 58 99 3A 99 22 4C |V=139).L"RX.:."L|
00001A40: 4F 41 44 20 23 22 3B 3A 4C 4E B2 30 00 64 22 5C |OAD #";:LN.0.d"\|
00001A50: 58 A1 4E 4E 24 3A 8B 4E 4E 24 B2 22 22 A7 89 32 |X.NN$:.NN$.""..2|
00001A60: 32 36 32 30 00 85 22 5F 58 4E 4E B2 C5 28 4E 4E |2620.."_XNN..(NN|
00001A70: 24 29 3A 99 4E 4E 3B 22 3E 22 3B 3A 41 24 28 4E |$):.NN;">";:A$(N|
00001A80: 4E 29 B2 22 22 00 9F 22 61 58 A1 4C 54 52 24 3A |N)."".."aX.LTR$:|
00001A90: 8B 4C 54 52 24 B2 22 22 A7 89 32 32 36 32 35 00 |.LTR$.""..22625.|
00001AA0: D3 22 66 58 8B 4C 54 52 24 B2 C7 28 32 30 29 A7 |."fX.LTR$..(20).|
00001AB0: 41 24 28 4E 4E 29 B2 C8 28 41 24 28 4E 4E 29 2C |A$(NN)..(A$(NN),|
00001AC0: 4C 4E AB 31 29 3A 99 4C 54 52 24 3B 3A 89 32 32 |LN.1):.LTR$;:.22|
00001AD0: 36 32 35 00 E6 22 6B 58 8B 4C 54 52 24 B2 C7 28 |625.."kX.LTR$..(|
00001AE0: 31 33 33 29 A7 8E 00 0C 23 70 58 41 24 28 4E 4E |133)....#pXA$(NN|
00001AF0: 29 B2 41 24 28 4E 4E 29 AA 4C 54 52 24 3A 99 4C |).A$(NN).LTR$:.L|
00001B00: 54 52 24 3B 3A 4C 4E B2 4C 4E AA 31 00 17 23 75 |TR$;:LN.LN.1..#u|
00001B10: 58 89 32 32 36 32 35 00 1D 23 AA 58 8E 00 3C 23 |X.22625..#.X..<#|
00001B20: AB 58 AC AC AC AC AC AC AC AC AC AC AC AC AC AC |.X..............|
00001B30: AC AC AC AC AC AC AC AC AC AC AC AC 00 6F 23 AC |.............o#.|
00001B40: 58 8F 20 46 38 3A 43 4C 45 41 52 20 53 43 52 45 |X. F8:CLEAR SCRE|
00001B50: 45 4E 20 44 55 52 49 4E 47 20 52 45 43 49 45 56 |EN DURING RECIEV|
00001B60: 45 20 20 20 20 20 20 20 28 56 3D 31 34 30 29 00 |E (V=140).|
00001B70: 7B 23 B6 58 8B 54 58 B3 B1 30 8E 00 86 23 C0 58 |{#.X.TX..0...#.X|
00001B80: 99 22 93 22 3A 8E 00 A5 23 0F 59 AC AC AC AC AC |.".":...#.Y.....|
00001B90: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001BA0: AC AC AC AC AC 00 C7 23 40 9C 8F 20 2A 2A 2A 2A |.......#@.. ****|
00001BB0: 2A 43 4F 4E 56 45 52 53 49 4F 4E 20 54 41 42 4C |*CONVERSION TABL|
00001BC0: 45 53 2A 2A 2A 2A 2A 00 F0 23 A4 9C 8F 20 53 54 |ES*****..#... ST|
00001BD0: 41 52 54 20 49 4E 20 52 58 20 4D 4F 44 45 2E 20 |ART IN RX MODE. |
00001BE0: 46 31 20 43 48 41 4E 47 45 53 20 4D 4F 44 45 53 |F1 CHANGES MODES|
00001BF0: 00 15 24 08 9D 8F 20 53 45 54 20 55 50 20 43 48 |..$... SET UP CH|
00001C00: 52 24 20 54 4F 20 42 41 55 44 4F 54 20 54 41 42 |R$ TO BAUDOT TAB|
00001C10: 4C 45 20 41 54 00 27 24 6C 9D 8F 20 35 30 30 30 |LE AT.'$l.. 5000|
00001C20: 30 2D 35 30 31 39 31 00 46 24 D0 9D 97 35 30 30 |0-50191.F$...500|
00001C30: 31 33 2C 38 3A 8F 20 43 41 52 52 49 41 47 45 20 |13,8:. CARRIAGE |
00001C40: 52 45 54 55 52 4E 00 66 24 34 9E 81 20 49 B2 33 |RETURN.f$4.. I.3|
00001C50: 32 A4 39 30 3A 87 44 44 3A 97 35 30 30 30 30 AA |2.90:.DD:.50000.|
00001C60: 49 2C 44 44 3A 82 00 96 24 98 9E 83 20 34 2C 31 |I,DD:...$... 4,1|
00001C70: 33 2C 31 37 2C 32 30 2C 39 2C 30 2C 32 36 2C 31 |3,17,20,9,0,26,1|
00001C80: 31 2C 31 35 2C 31 38 2C 30 2C 30 2C 31 32 2C 33 |1,15,18,0,0,12,3|
00001C90: 2C 32 38 2C 32 39 00 C6 24 FC 9E 83 20 32 32 2C |,28,29..$... 22,|
00001CA0: 32 33 2C 31 39 2C 31 2C 31 30 2C 31 36 2C 32 31 |23,19,1,10,16,21|
00001CB0: 2C 37 2C 36 2C 32 34 2C 31 34 2C 33 30 2C 30 2C |,7,6,24,14,30,0,|
00001CC0: 30 2C 30 2C 32 35 00 F1 24 60 9F 83 20 30 2C 33 |0,0,25..$`.. 0,3|
00001CD0: 2C 32 35 2C 31 34 2C 39 2C 31 2C 31 33 2C 32 36 |,25,14,9,1,13,26|
00001CE0: 2C 32 30 2C 36 2C 31 31 2C 31 35 2C 31 38 2C 32 |,20,6,11,15,18,2|
00001CF0: 38 00 1C 25 C4 9F 83 20 31 32 2C 32 34 2C 32 32 |8..%... 12,24,22|
00001D00: 2C 32 33 2C 31 30 2C 35 2C 31 36 2C 37 2C 33 30 |,23,10,5,16,7,30|
00001D10: 2C 31 39 2C 32 39 2C 32 31 2C 31 37 00 41 25 28 |,19,29,21,17.A%(|
00001D20: A0 8F 20 53 45 54 20 55 50 20 42 41 55 44 4F 54 |.. SET UP BAUDOT|
00001D30: 20 54 4F 20 43 48 52 24 20 54 41 42 4C 45 20 41 | TO CHR$ TABLE A|
00001D40: 54 00 53 25 8C A0 8F 20 35 30 32 30 30 2D 35 30 |T.S%... 50200-50|
00001D50: 33 39 31 00 72 25 F0 A0 81 20 49 B2 30 A4 36 33 |391.r%... I.0.63|
00001D60: 3A 87 44 44 3A 97 35 30 32 30 30 AA 49 2C 44 44 |:.DD:.50200.I,DD|
00001D70: 3A 82 00 A0 25 54 A1 83 20 30 2C 36 39 2C 30 2C |:...%T.. 0,69,0,|
00001D80: 36 35 2C 33 32 2C 38 33 2C 37 33 2C 38 35 2C 31 |65,32,83,73,85,1|
00001D90: 33 2C 36 38 2C 38 32 2C 37 34 2C 37 38 2C 37 30 |3,68,82,74,78,70|
00001DA0: 00 CF 25 B8 A1 83 20 36 37 2C 37 35 2C 38 34 2C |..%... 67,75,84,|
00001DB0: 39 30 2C 37 36 2C 38 37 2C 37 32 2C 38 39 2C 38 |90,76,87,72,89,8|
00001DC0: 30 2C 38 31 2C 37 39 2C 36 36 2C 37 31 2C 30 00 |0,81,79,66,71,0.|
00001DD0: FB 25 1C A2 83 20 37 37 2C 38 38 2C 38 36 2C 30 |.%... 77,88,86,0|
00001DE0: 2C 30 2C 35 31 2C 30 2C 34 35 2C 33 32 2C 30 2C |,0,51,0,45,32,0,|
00001DF0: 35 36 2C 35 35 2C 31 33 2C 33 36 00 25 26 80 A2 |56,55,13,36.%&..|
00001E00: 83 20 35 32 2C 33 39 2C 34 34 2C 33 33 2C 35 38 |. 52,39,44,33,58|
00001E10: 2C 34 30 2C 35 33 2C 33 34 2C 34 31 2C 35 30 2C |,40,53,34,41,50,|
00001E20: 33 35 2C 35 34 00 47 26 E4 A2 83 20 34 38 2C 34 |35,54.G&... 48,4|
00001E30: 39 2C 35 37 2C 36 33 2C 33 38 2C 30 2C 34 36 2C |9,57,63,38,0,46,|
00001E40: 34 37 2C 35 39 2C 30 00 66 26 10 A4 8F 2A 2A 2A |47,59,0.f&...***|
00001E50: 2A 2A 53 45 54 20 55 50 20 4D 45 4D 4F 52 49 45 |**SET UP MEMORIE|
00001E60: 53 2A 2A 2A 2A 2A 00 94 26 11 A4 8B 4E 57 B3 B1 |S*****..&...NW..|
00001E70: 30 A7 8E 3A 86 41 24 28 39 29 3A 4E 57 B2 31 3A |0..:.A$(9):NW.1:|
00001E80: 8F 20 53 45 54 55 50 20 54 48 45 20 4D 45 4D 4F |. SETUP THE MEMO|
00001E90: 52 49 45 53 00 DC 26 1A A4 41 24 28 31 29 B2 22 |RIES..&..A$(1)."|
00001EA0: 43 51 20 43 51 20 43 51 20 43 51 20 43 51 20 43 |CQ CQ CQ CQ CQ C|
00001EB0: 51 20 43 51 20 43 51 20 43 51 20 43 51 20 44 45 |Q CQ CQ CQ CQ DE|
00001EC0: 20 4B 47 33 56 20 4B 47 33 56 20 4B 47 33 56 20 | KG3V KG3V KG3V |
00001ED0: 4B 47 33 56 20 22 AA C7 28 31 33 29 00 0B 27 24 |KG3V "..(13)..'$|
00001EE0: A4 41 24 28 31 29 B2 41 24 28 31 29 AA 41 24 28 |.A$(1).A$(1).A$(|
00001EF0: 31 29 AA 41 24 28 31 29 AA 22 43 57 20 49 44 20 |1).A$(1)."CW ID |
00001F00: 46 4F 4C 4C 4F 57 53 2E 2E 2E 22 00 33 27 2E A4 |FOLLOWS...".3'..|
00001F10: 41 24 28 32 29 B2 22 52 59 52 59 52 59 52 59 52 |A$(2)."RYRYRYRYR|
00001F20: 59 52 59 52 59 52 59 52 59 52 59 52 59 52 59 52 |YRYRYRYRYRYRYRYR|
00001F30: 59 20 22 00 4F 27 33 A4 41 24 28 32 29 B2 41 24 |Y ".O'3.A$(2).A$|
00001F40: 28 32 29 AA 41 24 28 32 29 AA 41 24 28 32 29 00 |(2).A$(2).A$(2).|
00001F50: 8A 27 38 A4 41 24 28 33 29 B2 22 52 59 20 52 59 |.'8.A$(3)."RY RY|
00001F60: 20 52 59 20 52 59 20 52 59 20 52 59 20 52 59 20 | RY RY RY RY RY |
00001F70: 52 59 20 52 59 20 52 59 20 52 59 20 52 59 20 52 |RY RY RY RY RY R|
00001F80: 59 20 57 44 38 4E 48 49 20 22 00 A6 27 3D A4 41 |Y WD8NHI "..'=.A|
00001F90: 24 28 33 29 B2 41 24 28 33 29 AA 41 24 28 33 29 |$(3).A$(3).A$(3)|
00001FA0: AA 41 24 28 33 29 00 CD 27 42 A4 41 24 28 34 29 |.A$(3)..'B.A$(4)|
00001FB0: B2 22 52 59 52 59 52 59 52 59 52 59 52 59 52 59 |."RYRYRYRYRYRYRY|
00001FC0: 52 59 52 59 52 59 52 59 52 59 52 59 22 00 E9 27 |RYRYRYRYRYRY"..'|
00001FD0: 47 A4 41 24 28 34 29 B2 41 24 28 34 29 AA 41 24 |G.A$(4).A$(4).A$|
00001FE0: 28 34 29 AA 41 24 28 34 29 00 05 28 48 A4 41 24 |(4).A$(4)..(H.A$|
00001FF0: 28 34 29 B2 41 24 28 34 29 AA 41 24 28 34 29 AA |(4).A$(4).A$(4).|
00002000: 41 24 28 34 29 00 0B 28 F7 A7 8E 00 00 00 |A$(4)..(...... |
.......10.3....1,8,15:.1,"S0:PA.8": 1:."
0:PA.8",8:..K....4,4:.4,"PA.8":.4:..U...
.4: 4.V.... RTTY PROGRAM 2-21-84 V3.2..
.... MODIFIED BY WD8NHI 4-21-84 V3.25...
... SUPPORTS PRINTER DEVICE#4...... ***
**************************...(.. * T.B.
ZELTWANGER KG3V *.,.2.. * PO BOX
62 *.Q.<.. * STATE COLL
EGE, PA. 16804 *.V.F.. ***************
**************.A.P.. POKE53280,0:POKE53
281,0:PRINT".":REM SETS UP FOR MONOCHROM
E MONITOR...Z.. G(147).G(158):.53280,14:
.53281,11:TI$."000000"...D.."..
RTTY FOR C-64 ".I.I..". WRITTEN BY KG
3V / MODIFIED BY K8GJL".L.N..". ALSO M
ODIFIED BY WD8NHI.."...S.." 0---45 B
AUD BAUDOT (60 WPM)."...X.." 1---72
BAUD BAUDOT (100 WPM)."...}.." 2---1
10 BAUD ASCII."......" 3---300 BAUD
ASCII.".*....:." CONTROL E - RETURNS T
O RECIEVE".T....". CONTROL _ - STOPS T
RANSMITTING".U...."... OPERATING MOD
E? ";... ..M$:.M$.""..160.....M.E(M$)...
...M.0.M.3.160......M;.R....*** RESTORE
M AFTER "OPEN" ***...... M . 210,220,230
...H.. 2,2,0,G(225)...M..666,87:.665,236
...P.M.0:.240.J.R.. 2,2,0,G(96).G(0).G(1
36).G(26):M.1:.240.I.... 2,2,0,G(3).G(0)
:M.2:.240...... 2,2,0,G(6).G(0):M.3:.240
.....XX.1:.400......40000:. SETUP BAUDOT
TABLES.W....#2,RX$:. START UP RECEIVER.
....C.0:. LETTERS CASE.....LL.60:. # OF
CHARS TILL FORCED CR.1.".PR.0:. NO PRINT
ER OUTPUT.:.,..".".X.6..M.1. . 2000:. AS
CII JUMP.A.@..700...J.. *************
**********...... ********************
***......** IF YOUR TRANSMITTER REQUIRES
A HIGH TO TRANSMITT......** CHANGE XX I
N LINE 410 TO XX=1...... XX=1/HIGH TO RE
CIEVE.9.... XX=0/LOW TO TRANSMITT.W....
SET PB1 LOW FOR TX MODE.H....XX.0.430:TX
......56577,B(56577).2:.:. RX MODE.
.....56577,B(56577).253:. TX MO
DE............ **********************
*......:* KEYBOARD INPUT ROUTINE......AA
$:.AA$."".V.0:..$...V.F(AA$).>....V..6.
.:CHECKS . . _.N...XX.1:TA.0:..T.....U..
.. ***********************.{.W.......
. ***********************...A.. *
BAUDOT RX ROUTINE *...F.. *********
**************...K..TA.1..:."TRANSMITTIN
G"...P..V.6..669,B(670):XX.1:TA.0:.750:C
HECKS . .ROL _.K.U..(B(673).1)..0..500:.
720.Z.Z..TA.1.TA.0......:."RX>";:.PR.1..
4,G(13):.4,"RX>";.....XX.1:.400:. RX MOD
E......#2,RX$:SB.ST.G....RX$..""..(SB.2)
..10000...... MO$:.MO$.""..790.....V.F(M
O$):.V.133..1100.1....V.133.V.141..22000
:.700:. SPECIAL FUNCTION SELECTED.D....R
X$."". . 760.^. .. PRINT THE CHARACTER..
.*..C.0 . AD.50200.F(RX$.G(0)):. LETTERS
...4..C.1 . AD.50232.F(RX$.G(0)):. FIGUR
ES.W.>.TM$.G(B(AD)):.TM$;:.PR.1..4,TM$;.
..H.. 760...... *********************
**.#.... * BAUDOT TX ROUTINE *.D...
. ***********************.X....V.6.V.
5. 700:CHECKS . .ROL _ . .ROL E
...L..:."TX>";:XX.0:C.0:CNT.0:. INITIALI
ZE......500:.XX.1.700.C....V.0.1200.O...
TX$.AA$...F..V.5.XX.1:TA.1:.700:.
CHECKS FOR CONTROL E.'.X..V.133.XX.1
:.700:. RX MODE.X....V.133..22000:.1000:
SPECIAL FUNCTI. SELECTED.U.@.XX.0:TA.1:.
400:. TX MODE...R..20000:.1200:. CHAR .
....P.. ********************.K.Q.. *
ASCII RX ROUTINE *...R.. ************
********...Z..TA.1..:."TRANSMITTING".9..
..V.6..669,B(670):XX.1:TA.0:.2050:CHECKS
. .ROL _.W....(B(673).1)..0..500:.2020.
F....TA.1.TA.0......:."RX>";:.PR.1..4,G(
13):.4,"RX>".....XX.1:.400:. RX MODE...4
..#2,RX$:SB.ST.Q.F..RX$..""..(SB.2)..250
0......MO$:.MO$.""..2100.....V.F(MO$):.V
.133..3000......V.133.2100.?.`..22000:.2
000:. SPECIAL FUNCTION SELECTED._.D.V.F(
RX$.G(0)):.V.32.V..13...L.(..V.127......
..V.95.V.V.32:. UPPER CASE CONVERSION...
...G(V);:.PR.1..4,G(V);...T...V.... *
**********************...... * ASCII
TX ROUTINE *...... ***************
********.L.B..V.6.V.5.2000:CHECKS .
.ROL _ . .ROL E.V....:."TX>";:XX.0:
C.0:CNT.0:. INITIALIZE......500:.XX.1. 2
000......V.0.3200.....TX$.AA$......V.5.X
X.1:TA.1:.2000:. CHECKS FOR CON
TROL E......V.133.XX.1:.2000:. RX MODE.)
.H..V.132..22000:.3000:. SPECIAL FUNCTIO
N.F.R.XX.0:TA.1:.400:. TX MODE.V.A..3450
:.3200.R.Z..2,TX$;:.TX$;:CNT.CNT.1......
CNT.60.CNT.0:.2,G(13):."_"......V.13.V.3
2.CNT.0...T...J..'.*****RX CHAR CHECK***
**....'V.F(RX$.G(0)):. V=BINARY VALUE.).
T'.V.4 .V.31 . C.0:. SET LETTERS CASE ON
SPACE OR LETTERS.J.X'. V.27 . C.1:. FIG
URES SHIFT.D..(.V.0.V.27.V.31.RX$."".Z.<
(.R$.."".CNT.CNT.1...N(.PR.1 .V.8..4,G(1
3).F. (.CNT.35 . V.4..G(13):RX$."":CNT.0
:. CR ON SPACE.U..).V.8.CNT.0...H).... N
.*****TX CHAR CHECK***** V=ASC....N.V.32
.V.65..20600.$.LO.C.0..21000.T..OC.0:BUF
$.BUF$.G(31):. TRANSITION TO LETTERS.J..
P.21000:. PRINT IT.Z.XP.C.1..21000....PC
.1:BUF$.BUF$.G(27):. TRANSITION TO FIGS.
...R.V.13.CNT.0:."":BUF$.BUF$.G(8).G(2).
G(31):.21110....R.V.20.BUF$.H(BUF$,C(BUF
$).1):.G(20);:..5..RBUF$.BUF$.G(B(50000.
V)):. APPEND THE CHAR.I.&R.TX$;:CNT.CNT.
1.V.+R.CNT.LL.."_";:V.13:.21000:. FORCED
CR/LF...0R.V..32.21999:. RETURN UNLESS
SPACE...5RCNT.0.A.LR.-----SPACE SENT----
-.V.VR.2,BUF$;:BUF$.""....U.....U.*****F
UNCTION SELECTED*****.2..U.V.133.22100,2
2200,22300,22400,22500,22600,22700.Q.SV.
..........................Y.TV. F3:LIST
& PRINT SPECIAL FUNCTIONS...YV."DO YOU H
AVE A DEVICE #4 PRINTER";P$:P.1:.H(P$,1)
.."Y".P.0.J.^V.P.1..4,4:.4...CV."... SP
ECIAL FUNCTIONS AVAILABLE ARE:".".HV."--
-------------------------------":..[.MV.
" F1--CHANGE CURRENT MODE (TRANSMIT
/ RECEIVE)"..RV." F2--RESTART THE P
ROGRAM"...UV." F3--LIST & PRINT SPEC
IAL FUNCTIONS".Y.WV." F4--TURN PRINT
ER OUTPUT ON/OFF"...|V." F5--SEND ON
E OF THE 10 PROGRAMMABLE MESSAGES".P..V.
" F6--LOAD A MESSAGE (0-9) WITH TEXT
HIT F1 TO STOP"....V." F7--SEND A P
RE-RECORDED SEQUENTIAL DISK FILE"....V.
" F8--CLEAR SCREEN DURING RECIEVE"..
..V."---------------------------------":
.....V. P.1..4: 4....V.....V............
...............5..V. F5=SEND A STRING (V
=135).F.BV.:."SEND #";.^.LV.NN$:.NN$."".
.22220.{.VVNN.E(NN$):.NN;">";:CNT.0....V
.A$(NN).""... ..VTA.0:.XX.1.TA.1....VXX.
0:.400:. TX MODE....V.I.1.C(A$(NN)):TX$.
J(A$(NN),I,1):V.F(TX$.G(0))."..V.V.5.XX.
1:TA.1:.:. CHECKS FOR CONTROL
E.:..V.AA$:.AA$.""..22260.T..VZZ.F(AA$)
:.ZZ.6.V.6:..G..V.M.2..20000:.I.Y..V.M.1
..3450:.I...W.....W....................
..........W. F7=SEND A DISK FILE (V=136)
...&W.:F$."":."FILENAME";F$...+W.F$.""..
.. 0W.1,8,5,"0:".F$.",S,R".. 2W.15,8,15:
.15,A,B$,C,D.E 4W.A..0.."..";B$:.I.1.100
0:.I: 15: 1:..Y 6WTA.0:.XX.1.TA.1.Q 8WXX
.0:.400:. TX MODE.. :W.#1,TX$:.TX$.."G".
V.F(TX$):.20000.. ?W.TX$."G".22370.B DW.
AA$:.AA$.""..22330.. NWZZ.F(AA$):.ZZ.6.T
A.1:V.6:.22370.. XW.22330.. BW 15: 1:..
.!W...........................?!.W. F2=
RESTART PROGRAM (V=137).K!.W 2:.100.J!.W
............................!.W. F4=TURN
PRINTER ON(PR=1) OR OFF(PR=0)..!.W.PR.0
..4,4,0:PR.1:..Z!.WCR$.G(13).G(13).G(13)
.G(13).G(13).G(13)..!.W.4,CR$:.4: 4:PR.0
..!FX..."GX...........................6"
HX. F6=RECORD A STRING (V=139).L"RX.:."L
OAD #";:LN.0.D"\X.NN$:.NN$.""..22620.."_
XNN.E(NN$):.NN;">";:A$(NN)."".."AX.LTR$:
.LTR$.""..22625.S"FX.LTR$.G(20).A$(NN).H
(A$(NN),LN.1):.LTR$;:.22625.."KX.LTR$.G(
133)....#PXA$(NN).A$(NN).LTR$:.LTR$;:LN.
LN.1..#UX.22625..#.X..<#.X..............
.............O#.X. F8:CLEAR SCREEN DURIN
G RECIEVE (V=140).{#.X.TX..0...#.X
.".":...#.Y...........................G#
@.. *****CONVERSION TABLES*****..#... ST
ART IN RX MODE. F1 CHANGES MODES..$... S
ET UP CHR$ TO BAUDOT TABLE AT.'$L.. 5000
0-50191.F$P..50013,8:. CARRIAGE RETURN.F
$4.. I.32.90:.DD:.50000.I,DD:...$... 4,1
3,17,20,9,0,26,11,15,18,0,0,12,3,28,29.F
$... 22,23,19,1,10,16,21,7,6,24,14,30,0,
0,0,25..$`.. 0,3,25,14,9,1,13,26,20,6,11
,15,18,28..%D.. 12,24,22,23,10,5,16,7,30
,19,29,21,17.A%( . SET UP BAUDOT TO CHR$
TABLE AT.S%. . 50200-50391.R%. . I.0.63
:.DD:.50200.I,DD:.. %T.. 0,69,0,65,32,83
,73,85,13,68,82,74,78,70.O%... 67,75,84,
90,76,87,72,89,80,81,79,66,71,0..%... 77
,88,86,0,0,51,0,45,32,0,56,55,13,36.%&..
. 52,39,44,33,58,40,53,34,41,50,35,54.G&
... 48,49,57,63,38,0,46,47,59,0.F&...***
**SET UP MEMORIES*****..&...NW..0..:.A$(
9):NW.1:. SETUP THE MEMORIES..&..A$(1)."
CQ CQ CQ CQ CQ CQ CQ CQ CQ CQ DE KG3V KG
3V KG3V KG3V ".G(13)..'$.A$(1).A$(1).A$(
1).A$(1)."CW ID FOLLOWS...".3'..A$(2)."R
YRYRYRYRYRYRYRYRYRYRYRYRY ".O'3.A$(2).A$
(2).A$(2).A$(2)..'8.A$(3)."RY RY RY RY R
Y RY RY RY RY RY RY RY RY WD8NHI "..'=.A
$(3).A$(3).A$(3).A$(3).M'B.A$(4)."RYRYRY
RYRYRYRYRYRYRYRYRYRY"..'G.A$(4).A$(4).A$
(4).A$(4)..(H.A$(4).A$(4).A$(4).A$(4)..(
......
> CLICK IMAGE PREVIEW FOR FULL MODAL