XMODEM64
FILE INFORMATION
FILENAME(S): XMODEM64
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-10-19 22:48:42
APPEARS ON: 1 disk(s)
FILE HASH
a2c952162954d155f5afe25d7002b79413991e0c0362d3be2c956a9538976cee
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMPUTE NOV JAN | XMODEM64 | PRG | Radd Maxx | 25 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 64 00 8F 20 2B 2B 20 58 4D 4F 44 45 |..".d.. ++ XMODE|
00000010: 4D 20 46 49 4C 45 20 54 52 41 4E 53 46 45 52 20 |M FILE TRANSFER |
00000020: 2B 2B 00 3C 08 69 00 97 20 35 33 32 38 30 2C 31 |++.<.i.. 53280,1|
00000030: 31 3A 97 20 35 33 32 38 31 2C 31 31 00 58 08 6E |1:. 53281,11.X.n|
00000040: 00 9F 20 32 2C 32 2C 30 2C C7 28 36 29 AA C7 28 |.. 2,2,0,.(6)..(|
00000050: 30 29 3A 4D B2 32 35 35 00 6F 08 73 00 47 24 B2 |0):M.255.o.s.G$.|
00000060: C7 28 32 30 29 3A 55 24 B2 C7 28 31 37 35 29 00 |.(20):U$..(175).|
00000070: 85 08 78 00 5A 24 B2 C7 28 30 29 3A 9F 20 31 35 |..x.Z$..(0):. 15|
00000080: 2C 38 2C 31 35 00 A0 08 7D 00 99 20 C7 28 31 34 |,8,15...}.. .(14|
00000090: 34 29 3B C7 28 31 34 37 29 3B C7 28 31 34 29 3B |4);.(147);.(14);|
000000A0: 00 B1 08 82 00 99 20 C7 28 38 29 3B A6 31 30 29 |...... .(8);.10)|
000000B0: 3B 00 D0 08 87 00 99 20 22 D8 4D 4F 44 45 4D 20 |;...... ".MODEM |
000000C0: C6 49 4C 45 20 D4 52 41 4E 53 46 45 52 22 3A 99 |.ILE .RANSFER":.|
000000D0: 00 EA 08 8C 00 8D 20 32 37 35 3A 86 20 52 28 32 |...... 275:. R(2|
000000E0: 35 35 29 2C 53 28 32 35 35 29 00 0A 09 91 00 81 |55),S(255)......|
000000F0: 20 42 B2 30 20 A4 20 33 31 3A 53 28 42 29 B2 42 | B.0 . 31:S(B).B|
00000100: 3A 82 3A 52 28 38 29 B2 32 30 00 2B 09 96 00 52 |:.:R(8).20.+...R|
00000110: 28 31 33 29 B2 31 33 3A 53 28 32 30 29 B2 38 3A |(13).13:S(20).8:|
00000120: 81 20 42 B2 33 32 20 A4 20 36 34 00 49 09 9B 00 |. B.32 . 64.I...|
00000130: 52 28 42 29 B2 42 3A 53 28 42 29 B2 42 3A 82 3A |R(B).B:S(B).B:.:|
00000140: 53 28 31 36 30 29 B2 33 32 00 68 09 A0 00 81 20 |S(160).32.h.... |
00000150: 42 B2 36 35 20 A4 20 39 30 3A 49 B2 42 AA 31 32 |B.65 . 90:I.B.12|
00000160: 38 3A 52 28 42 29 B2 49 00 88 09 A5 00 53 28 49 |8:R(B).I.....S(I|
00000170: 29 B2 42 3A 82 3A 81 20 42 B2 39 31 20 A4 20 39 |).B:.:. B.91 . 9|
00000180: 36 3A 52 28 42 29 B2 42 00 A9 09 AA 00 53 28 42 |6:R(B).B.....S(B|
00000190: 29 B2 42 3A 82 3A 81 20 42 B2 39 37 20 A4 20 31 |).B:.:. B.97 . 1|
000001A0: 32 32 3A 49 B2 42 AB 33 32 00 CB 09 AF 00 52 28 |22:I.B.32.....R(|
000001B0: 42 29 B2 49 3A 53 28 49 29 B2 42 3A 82 3A 81 20 |B).I:S(I).B:.:. |
000001C0: 42 B2 31 32 33 20 A4 20 31 32 37 00 E6 09 B4 00 |B.123 . 127.....|
000001D0: 49 B2 42 AA 39 36 3A 52 28 42 29 B2 49 3A 53 28 |I.B.96:R(B).I:S(|
000001E0: 49 29 B2 42 3A 82 00 F7 09 B9 00 99 20 C7 28 31 |I).B:....... .(1|
000001F0: 35 32 29 3B 55 24 3B 00 10 0A BE 00 A1 23 32 2C |52);U$;......#2,|
00000200: 42 24 3A 8B 20 42 24 B2 22 22 20 A7 20 32 30 30 |B$:. B$."" . 200|
00000210: 00 28 0A C3 00 42 B2 C6 28 42 24 29 3A 8D 20 32 |.(...B..(B$):. 2|
00000220: 34 35 3A 89 20 31 39 30 00 3F 0A C8 00 A1 20 42 |45:. 190.?.... B|
00000230: 24 3A 8B 20 42 24 B2 22 22 20 A7 20 31 39 30 00 |$:. B$."" . 190.|
00000240: 4B 0A CD 00 42 B2 C6 28 42 24 29 00 65 0A D2 00 |K...B..(B$).e...|
00000250: 8B 20 42 B1 31 33 32 20 AF 20 42 B3 31 33 37 20 |. B.132 . B.137 |
00000260: A7 20 32 33 30 00 79 0A D7 00 42 B2 53 28 42 29 |. 230.y...B.S(B)|
00000270: 3A 98 32 2C C7 28 42 29 3B 00 89 0A DC 00 8B 20 |:.2,.(B);...... |
00000280: 48 20 A7 20 8D 20 32 35 30 00 93 0A E1 00 89 20 |H . . 250...... |
00000290: 31 39 30 00 A6 0A E6 00 99 20 47 24 3A 99 20 C7 |190...... G$:. .|
000002A0: 28 31 34 34 29 3B 00 C4 0A EB 00 91 20 42 AB 31 |(144);...... B.1|
000002B0: 33 32 20 8D 20 32 36 30 2C 34 31 35 2C 32 39 30 |32 . 260,415,290|
000002C0: 2C 32 37 35 00 CE 0A F0 00 89 20 31 38 35 00 E5 |,275...... 185..|
000002D0: 0A F5 00 8F 20 2B 2B 20 50 52 49 4E 54 20 42 59 |.... ++ PRINT BY|
000002E0: 54 45 20 2B 2B 00 FC 0A FA 00 99 20 47 24 3B C7 |TE ++...... G$;.|
000002F0: 28 52 28 42 29 29 3B 55 24 3B 3A 8E 00 11 0B FF |(R(B));U$;:.....|
00000300: 00 8F 20 2B 2B 20 46 31 2C 20 45 43 48 4F 20 2B |.. ++ F1, ECHO +|
00000310: 2B 00 32 0B 04 01 99 20 22 C5 43 48 4F 3A 20 22 |+.2.... ".CHO: "|
00000320: 3B CA 28 22 CF 4E 20 CF 46 46 22 2C 48 AA 31 2C |;.(".N .FF",H.1,|
00000330: 33 29 00 3E 0B 09 01 48 B2 33 AB 48 3A 8E 00 53 |3).>...H.3.H:..S|
00000340: 0B 0E 01 8F 20 2B 2B 20 46 37 2C 20 48 45 4C 50 |.... ++ F7, HELP|
00000350: 20 2B 2B 00 8A 0B 13 01 99 20 22 12 C6 31 92 3D | ++...... "..1.=|
00000360: C5 43 48 4F 20 12 C6 33 92 3D D2 45 43 45 49 56 |.CHO ..3.=.ECEIV|
00000370: 45 20 12 C6 35 92 3D D4 52 41 4E 53 4D 49 54 20 |E ..5.=.RANSMIT |
00000380: 12 C6 37 92 3D C8 45 4C 50 22 00 90 0B 18 01 8E |..7.=.ELP"......|
00000390: 00 AE 0B 1D 01 8F 20 2B 2B 20 46 35 2C 20 54 52 |...... ++ F5, TR|
000003A0: 41 4E 53 4D 49 54 20 46 49 4C 45 20 2B 2B 00 D5 |ANSMIT FILE ++..|
000003B0: 0B 22 01 99 20 22 CE 41 4D 45 20 4F 46 20 46 49 |.".. ".AME OF FI|
000003C0: 4C 45 20 54 4F 20 55 50 4C 4F 41 44 3A 22 3A 42 |LE TO UPLOAD:":B|
000003D0: 24 B2 22 52 22 00 E7 0B 27 01 8D 20 36 37 35 3A |$."R"...'.. 675:|
000003E0: 8B 20 46 20 A7 20 8E 00 05 0C 2C 01 43 24 B2 C7 |. F . ....,.C$..|
000003F0: 28 32 31 29 3A 8D 20 33 39 35 3A 43 24 B2 43 24 |(21):. 395:C$.C$|
00000400: AA C7 28 36 29 00 1D 0C 31 01 81 20 4B B2 31 20 |..(6)...1.. K.1 |
00000410: A4 20 4D AA 31 3A 4B B2 4B 20 AF 20 4D 00 2B 0C |. M.1:K.K . M.+.|
00000420: 36 01 8B 20 46 20 A7 20 33 37 30 00 4C 0C 3B 01 |6.. F . 370.L.;.|
00000430: 53 B2 30 3A 44 24 B2 22 22 3A 81 20 49 B2 31 20 |S.0:D$."":. I.1 |
00000440: A4 20 31 32 38 3A A1 23 38 2C 42 24 00 6C 0C 40 |. 128:.#8,B$.l.@|
00000450: 01 42 B2 C6 28 42 24 AA 5A 24 29 3A 44 24 B2 44 |.B..(B$.Z$):D$.D|
00000460: 24 AA C7 28 42 29 3A 53 B2 53 AA 42 00 85 0C 45 |$..(B):S.S.B...E|
00000470: 01 8B 20 53 54 20 A7 20 41 B2 34 3A 46 B2 31 3A |.. ST . A.4:F.1:|
00000480: 89 20 33 33 35 00 8B 0C 4A 01 82 00 A1 0C 4F 01 |. 335...J.....O.|
00000490: 8B 20 C3 28 44 24 29 B2 31 32 38 20 A7 20 33 34 |. .(D$).128 . 34|
000004A0: 35 00 B4 0C 54 01 44 24 B2 44 24 AA 5A 24 3A 89 |5...T.D$.D$.Z$:.|
000004B0: 20 33 33 35 00 BE 0C 59 01 8D 20 34 39 35 00 E3 | 335...Y.. 495..|
000004C0: 0C 5E 01 98 32 2C C7 28 31 29 3B C7 28 4B 29 3B |.^..2,.(1);.(K);|
000004D0: C7 28 4D AB 4B 29 3B 44 24 3B C7 28 53 20 AF 20 |.(M.K);D$;.(S . |
000004E0: 4D 29 3B 00 FC 0C 63 01 8D 20 33 39 35 3A 99 20 |M);...c.. 395:. |
000004F0: CA 28 22 4F 2B 22 2C 43 2C 31 29 3B 00 0C 0D 68 |.("O+",C,1);...h|
00000500: 01 8B 20 43 B2 31 20 A7 20 33 34 35 00 14 0D 6D |.. C.1 . 345...m|
00000510: 01 82 20 4B 00 24 0D 72 01 99 3A A0 20 38 3A 8D |.. K.$.r..:. 8:.|
00000520: 20 37 30 30 00 3A 0D 77 01 8D 20 34 38 35 3A 8B | 700.:.w.. 485:.|
00000530: 20 46 B1 31 20 A7 20 37 31 35 00 50 0D 7C 01 8D | F.1 . 715.P.|..|
00000540: 20 33 39 35 3A 8B 20 43 B2 32 20 A7 20 37 31 35 | 395:. C.2 . 715|
00000550: 00 5A 0D 81 01 89 20 33 37 35 00 7F 0D 86 01 8F |.Z.... 375......|
00000560: 20 2B 2B 20 47 45 54 20 43 4F 4E 54 52 4F 4C 20 | ++ GET CONTROL |
00000570: 42 59 54 45 20 31 30 30 20 53 45 43 20 2B 2B 00 |BYTE 100 SEC ++.|
00000580: 94 0D 8B 01 81 20 4A B2 31 20 A4 20 31 30 3A 8D |..... J.1 . 10:.|
00000590: 20 35 31 30 00 A9 0D 90 01 8B 20 45 20 A7 20 82 | 510...... E . .|
000005A0: 3A 41 B2 32 34 3A 46 B2 32 00 AF 0D 95 01 8E 00 |:A.24:F.2.......|
000005B0: CC 0D 9A 01 8F 20 2B 2B 20 46 33 2C 20 52 45 43 |..... ++ F3, REC|
000005C0: 45 49 56 45 20 46 49 4C 45 20 2B 2B 00 FE 0D 9F |EIVE FILE ++....|
000005D0: 01 99 20 22 C6 49 4C 45 4E 41 4D 45 20 46 4F 52 |.. ".ILENAME FOR|
000005E0: 20 44 4F 57 4E 4C 4F 41 44 45 44 20 44 41 54 41 | DOWNLOADED DATA|
000005F0: 3A 22 3A 42 24 B2 22 57 22 3A 41 B2 32 31 00 10 |:":B$."W":A.21..|
00000600: 0E A4 01 8D 20 36 37 35 3A 8B 20 46 20 A7 20 8E |.... 675:. F . .|
00000610: 00 21 0E A9 01 43 24 B2 C7 28 31 29 AA C7 28 34 |.!...C$..(1)..(4|
00000620: 29 00 39 0E AE 01 81 20 4B B2 31 20 A4 20 4D AA |).9.... K.1 . M.|
00000630: 31 3A 4B B2 4B 20 AF 20 4D 00 47 0E B3 01 8B 20 |1:K.K . M.G.... |
00000640: 46 20 A7 20 34 37 30 00 61 0E B8 01 81 20 4A B2 |F . 470.a.... J.|
00000650: 31 20 A4 20 31 30 3A 8D 20 34 38 35 3A 41 B2 32 |1 . 10:. 485:A.2|
00000660: 31 00 6B 0E BD 01 8D 20 35 31 30 00 8E 0E C2 01 |1.k.... 510.....|
00000670: 8B 20 43 B2 31 20 A7 20 8D 20 35 35 30 3A 99 20 |. C.1 . . 550:. |
00000680: CA 28 22 2B 4F 22 2C 45 AA 31 2C 31 29 3B 00 A2 |.("+O",E.1,1);..|
00000690: 0E C7 01 8B 20 43 B2 32 20 A7 20 41 B2 36 3A 46 |.... C.2 . A.6:F|
000006A0: B2 31 00 BD 0E CC 01 8B 20 45 20 AF 20 46 B2 30 |.1...... E . F.0|
000006B0: 20 A7 20 82 3A 41 B2 32 34 3A 46 B2 32 00 C5 0E | . .:A.24:F.2...|
000006C0: D1 01 82 20 4B 00 D5 0E D6 01 99 3A A0 20 38 3A |... K......:. 8:|
000006D0: 8D 20 37 30 30 00 E5 0E DB 01 8D 20 34 38 35 3A |. 700...... 485:|
000006E0: 89 20 37 31 35 00 02 0F E0 01 8F 20 2B 2B 20 53 |. 715...... ++ S|
000006F0: 45 4E 44 20 41 4E 53 57 45 52 20 42 59 54 45 20 |END ANSWER BYTE |
00000700: 2B 2B 00 17 0F E5 01 8D 20 34 39 35 3A 98 32 2C |++...... 495:.2,|
00000710: C7 28 41 29 3B 3A 8E 00 36 0F EA 01 8F 20 2B 2B |.(A);:..6.... ++|
00000720: 20 43 4C 45 41 52 20 49 4E 50 55 54 20 42 55 46 | CLEAR INPUT BUF|
00000730: 46 45 52 20 2B 2B 00 54 0F EF 01 A1 23 32 2C 42 |FER ++.T....#2,B|
00000740: 24 3A 8B 20 28 53 54 20 AF 20 38 29 B2 30 20 A7 |$:. (ST . 8).0 .|
00000750: 20 34 39 35 00 5A 0F F4 01 8E 00 7E 0F F9 01 8F | 495.Z.....~....|
00000760: 20 2B 2B 20 47 45 54 20 43 4F 4E 54 52 4F 4C 20 | ++ GET CONTROL |
00000770: 42 59 54 45 20 31 30 20 53 45 43 20 2B 2B 00 91 |BYTE 10 SEC ++..|
00000780: 0F FE 01 45 B2 30 3A 50 B2 36 30 30 3A 54 B2 54 |...E.0:P.600:T.T|
00000790: 49 00 9F 0F 03 02 43 B2 33 3A 8D 20 36 32 30 00 |I.....C.3:. 620.|
000007A0: B2 0F 08 02 8B 20 45 20 A7 20 99 20 22 2E 22 3B |..... E . . ".";|
000007B0: 3A 8E 00 CE 0F 0D 02 8B 20 42 24 B2 C7 28 32 34 |:....... B$..(24|
000007C0: 29 20 A7 20 41 B2 32 34 3A 46 B2 34 3A 8E 00 E0 |) . A.24:F.4:...|
000007D0: 0F 12 02 81 20 43 B2 31 20 A4 20 C3 28 43 24 29 |.... C.1 . .(C$)|
000007E0: 00 F7 0F 17 02 8B 20 42 24 B2 CA 28 43 24 2C 43 |...... B$..(C$,C|
000007F0: 2C 31 29 20 A7 20 8E 00 09 10 1C 02 82 3A 8D 20 |,1) . .......:. |
00000800: 36 35 30 3A 89 20 35 31 35 00 1E 10 21 02 8F 20 |650:. 515...!.. |
00000810: 2B 2B 20 47 45 54 20 44 41 54 41 20 2B 2B 00 3A |++ GET DATA ++.:|
00000820: 10 26 02 50 B2 36 30 3A 54 B2 54 49 3A 8D 20 36 |.&.P.60:T.TI:. 6|
00000830: 32 30 3A 8B 20 45 20 A7 20 8E 00 55 10 2B 02 4E |20:. E . ..U.+.N|
00000840: B2 42 3A 54 B2 54 49 3A 8D 20 36 32 30 3A 8B 20 |.B:T.TI:. 620:. |
00000850: 45 20 A7 20 8E 00 6E 10 30 02 8B 20 4E AA 42 B3 |E . ..n.0.. N.B.|
00000860: B1 4D 20 A7 20 45 B2 31 3A 89 20 36 35 30 00 88 |.M . E.1:. 650..|
00000870: 10 35 02 53 B2 30 3A 44 24 B2 22 22 3A 81 20 49 |.5.S.0:D$."":. I|
00000880: B2 31 20 A4 20 31 32 38 00 9F 10 3A 02 54 B2 54 |.1 . 128...:.T.T|
00000890: 49 3A 8D 20 36 32 30 3A 8B 20 45 20 A7 20 8E 00 |I:. 620:. E . ..|
000008A0: B6 10 3F 02 44 24 B2 44 24 AA C7 28 42 29 3A 53 |..?.D$.D$..(B):S|
000008B0: B2 53 AA 42 3A 82 00 CD 10 44 02 54 B2 54 49 3A |.S.B:....D.T.TI:|
000008C0: 8D 20 36 32 30 3A 8B 20 45 20 A7 20 8E 00 EA 10 |. 620:. E . ....|
000008D0: 49 02 8B 20 42 B3 B1 28 53 20 AF 20 4D 29 20 A7 |I.. B..(S . M) .|
000008E0: 20 45 B2 31 3A 89 20 36 35 30 00 FC 10 4E 02 41 | E.1:. 650...N.A|
000008F0: B2 36 3A 44 B2 4B AB 4E 20 AF 20 4D 00 11 11 53 |.6:D.K.N . M...S|
00000900: 02 8B 20 44 B1 31 20 A7 20 41 B2 32 34 3A 46 B2 |.. D.1 . A.24:F.|
00000910: 33 00 21 11 58 02 8B 20 44 20 A7 20 45 B2 31 3A |3.!.X.. D . E.1:|
00000920: 8E 00 3C 11 5D 02 98 38 2C 44 24 3B 3A 8B 20 53 |..<.]..8,D$;:. S|
00000930: 54 20 A7 20 41 B2 32 34 3A 46 B2 35 00 42 11 62 |T . A.24:F.5.B.b|
00000940: 02 8E 00 57 11 67 02 8F 20 2B 2B 20 47 45 54 20 |...W.g.. ++ GET |
00000950: 42 59 54 45 20 2B 2B 00 71 11 6C 02 A1 23 32 2C |BYTE ++.q.l..#2,|
00000960: 42 24 3A 57 B2 53 54 3A 8B 20 57 20 A7 20 36 33 |B$:W.ST:. W . 63|
00000970: 30 00 82 11 71 02 42 B2 C6 28 42 24 AA 5A 24 29 |0...q.B..(B$.Z$)|
00000980: 3A 8E 00 98 11 76 02 8B 20 57 20 AF 20 32 34 37 |:....v.. W . 247|
00000990: 20 A7 20 8D 20 36 35 30 00 AD 11 7B 02 8B 20 54 | . . 650...{.. T|
000009A0: 49 B1 54 AA 50 20 A7 20 45 B2 31 3A 8E 00 B7 11 |I.T.P . E.1:....|
000009B0: 80 02 89 20 36 32 30 00 D6 11 85 02 8F 20 2B 2B |... 620...... ++|
000009C0: 20 53 4B 49 50 20 55 4E 54 49 4C 20 53 49 4C 45 | SKIP UNTIL SILE|
000009D0: 4E 43 45 20 2B 2B 00 DF 11 8A 02 55 B2 54 49 00 |NCE ++.....U.TI.|
000009E0: F8 11 8F 02 A1 23 32 2C 42 24 3A 8B 20 53 54 B3 |.....#2,B$:. ST.|
000009F0: B1 38 20 A7 20 36 35 30 00 0A 12 94 02 8B 20 54 |.8 . 650...... T|
00000A00: 49 B1 55 AA 36 30 20 A7 20 8E 00 14 12 99 02 89 |I.U.60 . .......|
00000A10: 20 36 35 35 00 2F 12 9E 02 8F 20 2B 2B 20 54 52 | 655./.... ++ TR|
00000A20: 41 4E 53 46 45 52 20 42 45 47 49 4E 20 2B 2B 00 |ANSFER BEGIN ++.|
00000A30: 45 12 A3 02 46 B2 30 3A 4E 24 B2 22 2A 22 3A 54 |E...F.0:N$."*":T|
00000A40: 24 B2 22 50 22 00 6E 12 A8 02 4E 24 B2 22 22 3A |$."P".n...N$."":|
00000A50: 54 24 B2 22 22 3A 85 20 22 5B 20 4E 41 4D 45 2C |T$."":. "[ NAME,|
00000A60: 20 54 59 50 45 20 5D 22 3B 4E 24 2C 54 24 00 A0 | TYPE ]";N$,T$..|
00000A70: 12 AD 02 8B 20 4E 24 B2 22 22 20 B0 20 28 54 24 |.... N$."" . (T$|
00000A80: B3 B1 22 50 22 20 AF 20 54 24 B3 B1 22 53 22 20 |.."P" . T$.."S" |
00000A90: AF 20 54 24 B3 B1 22 55 22 29 20 A7 20 36 38 30 |. T$.."U") . 680|
00000AA0: 00 C2 12 B2 02 9F 20 38 2C 38 2C 38 2C 22 30 3A |...... 8,8,8,"0:|
00000AB0: 22 AA 4E 24 AA 22 2C 22 AA 54 24 AA 22 2C 22 AA |".N$.",".T$.",".|
00000AC0: 42 24 00 E1 12 B7 02 8F 20 2B 2B 20 52 45 41 44 |B$...... ++ READ|
00000AD0: 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 20 2B | ERROR CHANNEL +|
00000AE0: 2B 00 F8 12 BC 02 84 31 35 2C 49 2C 4D 24 3A 8B |+......15,I,M$:.|
00000AF0: 20 49 B2 30 20 A7 20 8E 00 13 13 C1 02 99 22 12 | I.0 . .......".|
00000B00: 22 3B 4D 24 3A 41 B2 32 34 3A 46 B2 35 3A A0 20 |";M$:A.24:F.5:. |
00000B10: 38 3A 8E 00 2C 13 C6 02 8F 20 2B 2B 20 54 52 41 |8:..,.... ++ TRA|
00000B20: 4E 53 46 45 52 20 45 4E 44 20 2B 2B 00 54 13 CB |NSFER END ++.T..|
00000B30: 02 4D 24 B2 22 C3 4F 4D 50 4C 45 54 45 D4 49 4D |.M$.".OMPLETE.IM|
00000B40: 45 4F 55 54 20 C4 49 53 4F 52 44 45 52 C3 41 4E |EOUT .ISORDER.AN|
00000B50: 43 45 4C 22 00 6A 13 D0 02 99 20 CA 28 4D 24 2C |CEL".j.... .(M$,|
00000B60: 46 AC 38 AB 37 2C 38 29 3A 8E 00 00 00 |F.8.7,8):.... |
..".D.. ++ XMODEM FILE TRANSFER ++.<.I..
53280,11:. 53281,11.X.N.. 2,2,0,G(6).G(
0):M.255.O.S.G$.G(20):U$.G(175)...X.Z$.G
(0):. 15,8,15. .}.. G(144);G(147);G(14);
...... G(8);.10);.P.... "XMODEM FILE TRA
NSFER":....... 275:. R(255),S(255)......
B.0 . 31:S(B).B:.:R(8).20.+...R(13).13:
S(20).8:. B.32 . 64.I...R(B).B:S(B).B:.:
S(160).32.H. .. B.65 . 90:I.B.128:R(B).I
.....S(I).B:.:. B.91 . 96:R(B).B.....S(B
).B:.:. B.97 . 122:I.B.32.K...R(B).I:S(I
).B:.:. B.123 . 127.....I.B.96:R(B).I:S(
I).B:....... G(152);U$;......#2,B$:. B$.
"" . 200.(.C.B.F(B$):. 245:. 190.?.H.. B
$:. B$."" . 190.K.M.B.F(B$).E.R.. B.132
. B.137 . 230.Y.W.B.S(B):.2,G(B);......
H . . 250...... 190...... G$:. G(144);.D
.... B.132 . 260,415,290,275.N.... 185..
.... ++ PRINT BYTE ++...... G$;G(R(B));U
$;:....... ++ F1, ECHO ++.2.... "ECHO: "
;J("ON OFF",H.1,3).>...H.3.H:..S.... ++
F7, HELP ++...... ".F1.=ECHO .F3.=RECEIV
E .F5.=TRANSMIT .F7.=HELP"............ +
+ F5, TRANSMIT FILE ++.U.".. "NAME OF FI
LE TO UPLOAD:":B$."R"...'.. 675:. F . ..
..,.C$.G(21):. 395:C$.C$.G(6)...1.. K.1
. M.1:K.K . M.+.6.. F . 370.L.;.S.0:D$."
":. I.1 . 128:.#8,B$.L.@.B.F(B$.Z$):D$.D
$.G(B):S.S.B...E.. ST . A.4:F.1:. 335...
J.....O.. C(D$).128 . 345...T.D$.D$.Z$:.
335...Y.. 495...^..2,G(1);G(K);G(M.K);D
$;G(S . M);...C.. 395:. J("O+",C,1);...H
.. C.1 . 345...M.. K.$.R..: 8:. 700.:.W
.. 485:. F.1 . 715.P.|.. 395:. C.2 . 715
.Z.... 375..... ++ GET CONTROL BYTE 100
SEC ++...... J.1 . 10:. 510...... E . .
:A.24:F.2.......L.... ++ F3, RECEIVE FIL
E ++...... "FILENAME FOR DOWNLOADED DATA
:":B$."W":A.21...... 675:. F . ..!...C$.
G(1).G(4).9.... K.1 . M.1:K.K . M.G....
F . 470.A.... J.1 . 10:. 485:A.21.K....
510...B.. C.1 . . 550:. J("+O",E.1,1);..
.G.. C.2 . A.6:F.1...L.. E . F.0 . .:A.2
4:F.2.E.Q.. K.U.V..: 8:. 700...... 485:
. 715...... ++ SEND ANSWER BYTE ++......
495:.2,G(A);:..6.... ++ CLEAR INPUT BUF
FER ++.T....#2,B$:. (ST . 8).0 . 495.Z..
...~.... ++ GET CONTROL BYTE 10 SEC ++..
...E.0:P.600:T.TI.....C.3:. 620...... E
. . ".";:..N.... B$.G(24) . A.24:F.4:...
.... C.1 . C(C$)...... B$.J(C$,C,1) . ..
.....:. 650:. 515...!.. ++ GET DATA ++.:
.&.P.60:T.TI:. 620:. E . ..U.+.N.B:T.TI:
. 620:. E . ..N.0.. N.B..M . E.1:. 650..
.5.S.0:D$."":. I.1 . 128...:.T.TI:. 620:
. E . ....?.D$.D$.G(B):S.S.B:..M.D.T.TI:
. 620:. E . ....I.. B..(S . M) . E.1:. 6
50...N.A.6:D.K.N . M...S.. D.1 . A.24:F.
3.!.X.. D . E.1:..<.]..8,D$;:. ST . A.24
:F.5.B.B...W.G.. ++ GET BYTE ++.Q.L..#2,
B$:W.ST:. W . 630...Q.B.F(B$.Z$):....V..
W . 247 . . 650...{.. TI.T.P . E.1:....
... 620.V.... ++ SKIP UNTIL SILENCE ++..
...U.TI......#2,B$:. ST..8 . 650...... T
I.U.60 . ....... 655./.... ++ TRANSFER B
EGIN ++.E...F.0:N$."*":T$."P".N...N$."":
T$."":. "[ NAME, TYPE ]";N$,T$. .... N$.
"" . (T$.."P" . T$.."S" . T$.."U") . 680
.B.... 8,8,8,"0:".N$.",".T$.",".B$......
++ READ ERROR CHANNEL ++......15,I,M$:.
I.0 . ....A..".";M$:A.24:F.5: 8:..,.F.
. ++ TRANSFER END ++.T.K.M$."COMPLETETIM
EOUT DISORDERCANCEL".J.P.. J(M$,F.8.7,8)
:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL