Multiple names: XMODEM, XMODEM.VIP TERM.
FILE INFORMATION
FILENAME(S):
• XMODEM<br>• XMODEM.VIP TERM.
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-10-19 22:48:37
APPEARS ON: 5 disk(s)
FILE HASH
102214a3e3c792f66cf406845f0e5e961206482e6af8a604374e84a655e6f4f6
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VIP TERMINAL 7 1 | XMODEM | PRG | Radd Maxx | 3 | 0 | DOWNLOAD FILE |
| A34B | XMODEM | PRG | Bugjam - Argentina | 6 | 6 | DOWNLOAD FILE |
| VIP TERMINAL 7 1 | XMODEM | PRG | DuncanTwain | 3 | 0 | DOWNLOAD FILE |
| MODEM A | XMODEM.VIP TERM. | PRG | DuncanTwain | 21 | 0 | DOWNLOAD FILE |
| MODEM A | XMODEM.VIP TERM. | PRG | DuncanTwain | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 31 08 0F 00 8F 20 |*********.1.... | 00000020: 2A 20 20 58 4D 4F 44 45 4D 20 20 33 2E 37 20 20 |* XMODEM 3.7 | 00000030: 2A 00 49 08 10 00 8F 20 2A 20 20 20 31 30 2F 30 |*.I.... * 10/0| 00000040: 31 2F 38 34 20 20 20 20 2A 00 61 08 14 00 8F 20 |1/84 *.a.... | 00000050: 2A 20 53 4F 46 54 4C 41 57 20 43 4F 52 50 2E 20 |* SOFTLAW CORP. | 00000060: 2A 00 79 08 19 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.y.... ********| 00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AC 08 1E 00 97 35 |*********......5| 00000080: 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 3A |3281,0:.53280,0:| 00000090: 99 C7 28 33 30 29 C7 28 31 34 29 3A 9F 35 2C 32 |..(30).(14):.5,2| 000000A0: 2C 33 2C C7 28 36 29 AA C7 28 2E 29 00 D7 08 23 |,3,.(6)..(.)...#| 000000B0: 00 9F 31 35 2C 38 2C 31 35 3A 55 B2 32 31 32 3A |..15,8,15:U.212:| 000000C0: 44 B2 32 35 36 3A 57 B2 31 3A 45 24 B2 C7 28 31 |D.256:W.1:E$..(1| 000000D0: 34 37 29 3A 4F B2 38 00 11 09 28 00 42 4C 24 B2 |47):O.8...(.BL$.| 000000E0: 22 13 11 11 11 11 11 22 3A 45 52 24 B2 22 13 11 |"......":ER$."..| 000000F0: 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 |....... | 00000100: 20 20 20 20 20 20 20 20 20 91 22 AA C7 28 31 33 | ."..(13| 00000110: 29 00 60 09 2D 00 41 43 4B B2 36 3A 4E 41 4B B2 |).`.-.ACK.6:NAK.| 00000120: 32 31 3A 45 4F 54 B2 34 3A 43 41 4E B2 32 34 3A |21:EOT.4:CAN.24:| 00000130: 5A B2 31 33 31 3A 56 B2 31 33 32 3A 46 B2 32 35 |Z.131:V.132:F.25| 00000140: 35 3A 4D B2 32 38 38 3A 50 B2 31 32 3A 54 24 B2 |5:M.288:P.12:T$.| 00000150: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |" "| 00000160: 00 92 09 32 00 43 24 B2 C7 28 2E 29 3A 4A 24 B2 |...2.C$..(.):J$.| 00000170: C7 28 31 33 29 3A 4F 24 B2 C7 28 31 38 29 AA C7 |.(13):O$..(18)..| 00000180: 28 33 32 29 AA C7 28 31 35 37 29 AA C7 28 31 34 |(32)..(157)..(14| 00000190: 36 29 00 A9 09 37 00 99 45 24 4A 24 22 D8 CD CF |6)...7..E$J$"...| 000001A0: C4 C5 CD 20 36 34 20 22 3B 00 D6 09 3C 00 99 22 |... 64 ";...<.."| 000001B0: C4 4F 57 4E 4C 4F 41 44 20 26 20 D5 50 4C 4F 41 |.OWNLOAD & .PLOA| 000001C0: 44 22 3B 3A 47 24 B2 C7 28 31 33 33 29 3A 51 24 |D";:G$..(133):Q$| 000001D0: B2 C7 28 33 34 29 00 EB 09 41 00 99 22 20 D4 C5 |..(34)...A.." ..| 000001E0: D2 CD C9 CE C1 CC 20 D0 C7 CD 22 00 09 0A 46 00 |...... ..."...F.| 000001F0: 44 43 24 B2 22 C4 4F 57 4E 4C 4F 41 44 20 C3 41 |DC$.".OWNLOAD .A| 00000200: 4E 43 45 4C 4C 45 44 21 22 00 20 0A 4B 00 53 4F |NCELLED!". .K.SO| 00000210: 24 B2 22 C8 45 41 44 45 52 20 45 52 52 4F 52 22 |$.".EADER ERROR"| 00000220: 00 64 0A 50 00 99 22 20 D5 53 45 53 20 D8 CD CF |.d.P.." .SES ...| 00000230: C4 C5 CD 20 50 52 4F 54 4F 43 4F 4C 20 46 4F 52 |... PROTOCOL FOR| 00000240: 20 41 4C 4C 20 54 52 41 4E 53 46 45 52 53 2E 22 | ALL TRANSFERS."| 00000250: 4A 24 4A 24 3A 4C 24 B2 C7 28 33 32 29 AA C7 28 |J$J$:L$..(32)..(| 00000260: 31 35 37 29 00 6B 0A 55 00 8F 3A 00 72 0A 5A 00 |157).k.U..:.r.Z.| 00000270: 8F 3A 00 79 0A 5F 00 8F 3A 00 80 0A 64 00 8F 3A |.:.y._..:...d..:| 00000280: 00 99 0A 69 00 86 46 25 28 46 29 2C 54 25 28 46 |...i..F%(F),T%(F| 00000290: 29 2C 55 25 28 50 2C 56 29 00 A0 0A 6E 00 8F 3A |),U%(P,V)...n..:| 000002A0: 00 BF 0A 6F 00 97 32 35 31 2C 31 32 30 3A 97 32 |...o..251,120:.2| 000002B0: 35 32 2C 39 36 3A 8F 20 53 45 49 20 52 54 53 00 |52,96:. SEI RTS.| 000002C0: DE 0A 70 00 97 32 35 33 2C 30 38 38 3A 97 32 35 |..p..253,088:.25| 000002D0: 34 2C 39 36 3A 8F 20 43 4C 49 20 52 54 53 00 FC |4,96:. CLI RTS..| 000002E0: 0A 71 00 9E 32 35 31 3A 8F 20 44 49 53 41 42 4C |.q..251:. DISABL| 000002F0: 45 20 49 4E 54 45 52 52 55 50 54 53 00 3C 0B 73 |E INTERRUPTS.<.s| 00000300: 00 81 4A B2 30 30 A4 36 34 3A 54 25 28 4A 29 B2 |..J.00.64:T%(J).| 00000310: 4A 3A 82 3A 54 25 28 31 33 29 B2 31 33 3A 54 25 |J:.:T%(13).13:T%| 00000320: 28 32 30 29 B2 38 3A 81 4A B2 36 35 A4 39 30 3A |(20).8:.J.65.90:| 00000330: 54 25 28 4A 29 B2 4A AA 33 32 3A 82 00 76 0B 78 |T%(J).J.32:..v.x| 00000340: 00 81 4A B2 39 31 A4 39 35 3A 54 25 28 4A 29 B2 |..J.91.95:T%(J).| 00000350: 4A 3A 82 3A 81 4A B2 31 39 33 A4 32 31 38 3A 54 |J:.:.J.193.218:T| 00000360: 25 28 4A 29 B2 4A AB 31 32 38 3A 82 3A 54 25 28 |%(J).J.128:.:T%(| 00000370: 31 34 36 29 B2 50 00 BE 0B 7D 00 54 25 28 31 33 |146).P...}.T%(13| 00000380: 33 29 B2 50 3A 54 25 28 31 34 37 29 B2 31 39 3A |3).P:T%(147).19:| 00000390: 54 25 28 31 33 37 29 B2 33 3A 54 25 28 31 33 34 |T%(137).3:T%(134| 000003A0: 29 B2 31 37 3A 54 25 28 31 33 38 29 B2 31 39 3A |).17:T%(138).19:| 000003B0: 81 4A B2 2E A4 46 3A 4B B2 54 25 28 4A 29 00 DC |.J...F:K.T%(J)..| 000003C0: 0B 82 00 8B 4B B3 B1 2E A7 46 25 28 4B 29 B2 4A |....K....F%(K).J| 000003D0: 3A 46 25 28 4B AA 31 32 38 29 B2 4A 00 EC 0B 87 |:F%(K.128).J....| 000003E0: 00 82 3A 9E 32 35 33 3A 89 33 32 30 00 12 0C 8C |..:.253:.320....| 000003F0: 00 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 54 45 |..------------TE| 00000400: 52 4D 49 4E 41 4C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |RMINAL----------| 00000410: 2D 2D 00 1D 0C 91 00 99 C7 28 31 34 29 00 39 0C |--.......(14).9.| 00000420: 96 00 99 45 24 22 11 D0 52 45 53 53 20 46 31 20 |...E$"..RESS F1 | 00000430: 46 4F 52 20 CD 45 4E 55 22 00 74 0C 99 00 99 22 |FOR .ENU".t...."| 00000440: 13 D4 45 52 4D 49 4E 41 4C 20 D2 45 41 44 59 22 |..ERMINAL .EADY"| 00000450: 4A 24 3A 8B 41 24 B2 C7 28 43 41 4E 29 A7 99 22 |J$:.A$..(CAN).."| 00000460: D4 52 41 4E 53 46 45 52 20 C3 C1 CE 43 45 4C 4C |.RANSFER ...CELL| 00000470: 45 44 21 22 00 BB 0C 9B 00 8B 46 41 B2 57 A7 99 |ED!"......FA.W..| 00000480: 22 D7 48 45 4E 20 48 4F 53 54 20 49 53 20 52 45 |".HEN HOST IS RE| 00000490: 41 44 59 20 54 4F 20 52 45 43 49 45 56 45 2C 20 |ADY TO RECIEVE, | 000004A0: 50 52 45 53 53 20 46 31 22 4A 24 22 46 4F 52 20 |PRESS F1"J$"FOR | 000004B0: 4D 41 49 4E 20 4D 45 4E 55 22 3B 00 E6 0C A0 00 |MAIN MENU";.....| 000004C0: 8B 46 41 B2 57 A7 46 41 B2 2E 3A 99 22 20 41 4E |.FA.W.FA..:." AN| 000004D0: 44 20 53 54 41 52 54 20 54 48 45 20 55 50 4C 4F |D START THE UPLO| 000004E0: 41 44 2E 22 4A 24 00 FC 0C A5 00 A1 23 35 2C 41 |AD."J$......#5,A| 000004F0: 24 3A 8B 41 24 B2 22 22 A7 31 38 30 00 1D 0D AA |$:.A$."".180....| 00000500: 00 99 4C 24 C7 28 46 25 28 C6 28 41 24 29 29 29 |..L$.(F%(.(A$)))| 00000510: 3B 3A 8B 41 24 B2 51 24 A7 97 55 2C 2E 00 26 0D |;:.A$.Q$..U,..&.| 00000520: AF 00 89 31 36 35 00 3E 0D B4 00 99 4F 24 3B 3A |...165.>....O$;:| 00000530: A1 41 24 3A 8B 41 24 B2 22 22 A7 31 36 35 00 76 |.A$:.A$."".165.v| 00000540: 0D B9 00 8B 42 B2 57 A7 3A 58 B2 C6 28 41 24 29 |....B.W.:X..(A$)| 00000550: 3A 8B 58 B2 31 33 B0 58 B2 31 34 35 B0 58 B2 31 |:.X.13.X.145.X.1| 00000560: 35 37 B0 58 B2 32 39 B0 58 B2 31 37 B0 58 B2 31 |57.X.29.X.17.X.1| 00000570: 39 A7 99 4C 24 3B 00 90 0D BE 00 8B 42 B2 57 A7 |9..L$;......B.W.| 00000580: 99 41 24 3B 3A 8B 41 24 B2 51 24 A7 97 55 2C 2E |.A$;:.A$.Q$..U,.| 00000590: 00 A6 0D C3 00 8B 41 24 B2 47 24 A7 99 4C 24 4A |......A$.G$..L$J| 000005A0: 24 3A 89 33 32 30 00 C0 0D C8 00 98 35 2C C7 28 |$:.320......5,.(| 000005B0: 54 25 28 C6 28 41 24 29 29 29 3B 3A 89 31 36 35 |T%(.(A$)));:.165| 000005C0: 00 E6 0D CD 00 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |......----------| 000005D0: 2D 44 4F 57 4E 4C 4F 41 44 2D 2D 2D 2D 2D 2D 2D |-DOWNLOAD-------| 000005E0: 2D 2D 2D 2D 2D 2D 00 26 0E D2 00 99 45 24 22 C9 |------.&....E$".| 000005F0: 53 20 48 4F 53 54 20 43 4F 4D 50 55 54 45 52 20 |S HOST COMPUTER | 00000600: 57 41 49 54 49 4E 47 20 54 4F 20 53 45 4E 44 3F |WAITING TO SEND?| 00000610: 20 59 2F 4E 22 3A 8D 35 30 35 3A 8B 41 24 B2 22 | Y/N":.505:.A$."| 00000620: 4E 22 A7 31 34 35 00 3B 0E D7 00 99 4A 24 3A 8B |N".145.;....J$:.| 00000630: 41 24 B3 B1 22 59 22 A7 32 31 30 00 76 0E D8 00 |A$.."Y".210.v...| 00000640: 43 49 B2 2E 3A 99 45 24 22 20 C9 53 20 54 48 49 |CI..:.E$" .S THI| 00000650: 53 20 41 4E 20 49 4D 41 47 45 20 46 49 4C 45 20 |S AN IMAGE FILE | 00000660: 46 52 4F 4D 20 C3 4F 4D 50 55 D3 45 52 56 45 3F |FROM .OMPU.ERVE?| 00000670: 22 3A 8D 35 30 35 00 8E 0E D9 00 8B 41 24 B2 22 |":.505......A$."| 00000680: 59 22 B0 41 24 B2 22 D9 22 A7 43 49 B2 57 00 A9 |Y".A$.".".CI.W..| 00000690: 0E DC 00 47 B2 33 3A 4B 24 B2 22 57 22 3A 8D 33 |...G.3:K$."W":.3| 000006A0: 34 35 3A 8B 41 A7 31 34 35 00 D2 0E DD 00 99 45 |45:.A.145......E| 000006B0: 24 22 11 11 11 D0 52 45 53 53 20 C1 20 54 4F 20 |$"....RESS . TO | 000006C0: C1 42 4F 52 54 21 22 3A 99 3A 42 4C B2 2E 3A 4C |.BORT!":.:BL..:L| 000006D0: B2 2E 00 ED 0E E1 00 99 4A 24 22 44 4F 57 4E 4C |........J$"DOWNL| 000006E0: 4F 41 44 49 4E 47 20 20 22 46 24 4A 24 00 10 0F |OADING "F$J$...| 000006F0: E6 00 8D 32 30 30 30 3A 8D 35 32 35 3A 8F 20 53 |...2000:.525:. S| 00000700: 45 4E 44 20 4E 41 4B 20 54 4F 20 53 54 41 52 54 |END NAK TO START| 00000710: 00 1B 0F E7 00 81 48 B2 57 A4 50 00 2B 0F EB 00 |......H.W.P.+...| 00000720: 43 48 B2 2E 3A 81 58 B2 57 A4 56 00 4D 0F EC 00 |CH..:.X.W.V.M...| 00000730: A1 23 35 2C 41 24 3A 45 B2 53 54 3A 8B 41 24 B2 |.#5,A$:E.ST:.A$.| 00000740: 22 22 A7 8B 45 B2 4F A7 4C B2 4C AA 57 00 85 0F |""..E.O.L.L.W...| 00000750: ED 00 A1 41 42 24 3A 8B 41 42 24 B2 22 41 22 A7 |...AB$:.AB$."A".| 00000760: 98 35 2C C7 28 43 41 4E 29 3A 99 45 52 24 44 43 |.5,.(CAN):.ER$DC| 00000770: 24 3A 89 33 31 30 3A 8F 20 4C 4F 43 41 4C 20 41 |$:.310:. LOCAL A| 00000780: 42 4F 52 54 21 00 A3 0F F0 00 8B 45 B2 2E A7 4C |BORT!......E...L| 00000790: B2 2E 3A 89 32 35 35 3A 8F 20 47 4F 4F 44 20 44 |..:.255:. GOOD D| 000007A0: 41 54 41 00 E1 0F F5 00 8B 4C B2 4D A7 4C B2 2E |ATA......L.M.L..| 000007B0: 3A 8D 35 32 35 3A 99 42 4C 24 22 57 41 49 54 49 |:.525:.BL$"WAITI| 000007C0: 4E 47 2E 2E 2E 22 3A 89 32 33 35 3A 8F 20 52 45 |NG...":.235:. RE| 000007D0: 52 45 41 44 20 53 41 4D 45 20 50 41 43 4B 45 54 |READ SAME PACKET| 000007E0: 21 00 FF 0F FA 00 89 32 33 36 3A 8F 20 4C 4F 4F |!......236:. LOO| 000007F0: 50 20 46 4F 52 20 4D 4F 52 45 20 44 41 54 41 00 |P FOR MORE DATA.| 00000800: 38 10 FF 00 8B 58 B2 57 A7 8B 41 24 B2 C7 28 45 |8....X.W..A$..(E| 00000810: 4F 54 29 A7 99 45 52 24 22 C5 4E 44 20 CF 46 20 |OT)..ER$".ND .F | 00000820: D4 52 41 4E 53 4D 49 53 53 49 4F 4E 21 22 3A 8D |.RANSMISSION!":.| 00000830: 35 32 30 3A 89 33 31 30 00 6C 10 04 01 55 25 28 |520:.310.l...U%(| 00000840: 48 2C 58 29 B2 C6 28 41 24 AA 43 24 29 3A 43 48 |H,X)..(A$.C$):CH| 00000850: B2 43 48 AA 55 25 28 48 2C 58 29 3A 82 58 3A 43 |.CH.U%(H,X):.X:C| 00000860: 48 B2 43 48 AB 55 25 28 48 2C 56 29 00 A3 10 09 |H.CH.U%(H,V)....| 00000870: 01 8B 28 55 25 28 48 2C 57 29 AA 55 25 28 48 2C |..(U%(H,W).U%(H,| 00000880: 32 29 AA 55 25 28 48 2C 33 29 AF 20 46 29 B3 B1 |2).U%(H,3). F)..| 00000890: 2E A7 8D 35 32 35 3A 99 45 52 24 53 4F 24 3A 89 |...525:.ER$SO$:.| 000008A0: 32 33 35 00 D7 10 0E 01 8B 55 25 28 48 2C 56 29 |235......U%(H,V)| 000008B0: B3 B1 28 43 48 AF 46 29 A7 8D 35 32 35 3A 99 45 |..(CH.F)..525:.E| 000008C0: 52 24 22 C3 48 45 43 4B 53 55 4D 20 45 52 52 4F |R$".HECKSUM ERRO| 000008D0: 52 22 3A 89 32 33 35 00 F5 10 13 01 42 4C B2 42 |R":.235.....BL.B| 000008E0: 4C AA 57 3A 99 42 4C 24 22 42 4C 4F 43 4B 22 42 |L.W:.BL$"BLOCK"B| 000008F0: 4C 3B 45 52 24 00 2E 11 18 01 8B 55 25 28 48 2C |L;ER$......U%(H,| 00000900: 32 29 B3 B1 42 4C A7 42 4C B2 42 4C AB 31 3A 8D |2)..BL.BL.BL.1:.| 00000910: 35 32 30 3A 99 45 52 24 22 C4 55 50 4C 49 43 41 |520:.ER$".UPLICA| 00000920: 54 45 20 42 4C 4F 43 4B 22 3A 89 32 33 35 00 58 |TE BLOCK":.235.X| 00000930: 11 1D 01 8B 48 B3 B1 50 A7 8D 35 32 30 3A 8F 20 |....H..P..520:. | 00000940: 53 45 4E 44 20 41 43 4B 20 46 4F 52 20 4E 45 58 |SEND ACK FOR NEX| 00000950: 54 20 50 41 43 4B 45 54 00 65 11 22 01 82 48 3A |T PACKET.e."..H:| 00000960: 48 B2 48 AB 57 00 81 11 27 01 8F 3A 49 46 4E 3D |H.H.W...'..:IFN=| 00000970: 57 54 48 45 4E 49 46 48 3D 2E 54 48 45 4E 33 31 |WTHENIFH=.THEN31| 00000980: 30 00 92 11 28 01 81 5A 5A B2 31 A4 34 30 3A 82 |0...(..ZZ.1.40:.| 00000990: 5A 5A 00 B7 11 2B 01 8F 3A 53 41 56 45 20 53 45 |ZZ...+..:SAVE SE| 000009A0: 54 20 4F 46 20 50 41 43 4B 45 54 53 20 26 20 43 |T OF PACKETS & C| 000009B0: 4F 4E 54 49 4E 55 45 00 C7 11 2C 01 81 59 B2 31 |ONTINUE...,..Y.1| 000009C0: A4 48 3A 50 53 B2 34 00 DC 11 2D 01 8B 43 49 B2 |.H:PS.4...-..CI.| 000009D0: 31 A7 43 49 B2 30 3A 50 53 B2 31 30 00 FD 11 2E |1.CI.0:PS.10....| 000009E0: 01 81 58 B2 50 53 A4 5A 3A 98 33 2C C7 28 55 25 |..X.PS.Z:.3,.(U%| 000009F0: 28 59 2C 58 29 29 3B 3A 82 58 3A 82 59 00 11 12 |(Y,X));:.X:.Y...| 00000A00: 31 01 8D 32 30 30 30 3A 8F 20 45 4D 50 54 59 20 |1..2000:. EMPTY | 00000A10: 51 00 52 12 32 01 81 5A 5A B2 31 A4 38 3A 82 5A |Q.R.2..ZZ.1.8:.Z| 00000A20: 5A 3A A1 23 35 2C 41 24 3A 8B 53 54 B3 B1 4F A7 |Z:.#5,A$:.ST..O.| 00000A30: 33 30 36 3A 8F 20 45 4D 50 54 59 20 49 4E 50 55 |306:. EMPTY INPU| 00000A40: 54 20 51 55 45 55 45 20 55 4E 54 49 4C 20 49 44 |T QUEUE UNTIL ID| 00000A50: 4C 45 00 6C 12 34 01 8D 35 32 30 3A 89 32 33 31 |LE.l.4..520:.231| 00000A60: 3A 53 80 20 41 43 4B 20 26 20 9A 2E 00 92 12 35 |:S. ACK & .....5| 00000A70: 01 8F 20 53 41 56 45 20 4C 41 53 54 20 53 45 54 |.. SAVE LAST SET| 00000A80: 20 4F 46 20 50 41 43 4B 45 54 53 20 26 20 45 58 | OF PACKETS & EX| 00000A90: 49 54 00 B1 12 36 01 8B 48 B2 31 A7 33 31 34 3A |IT...6..H.1.314:| 00000AA0: 8F 20 4E 4F 54 48 49 4E 47 20 54 4F 20 53 41 56 |. NOTHING TO SAV| 00000AB0: 45 00 C3 12 37 01 81 41 B2 57 A4 48 AB 31 3A 50 |E...7..A.W.H.1:P| 00000AC0: 53 B2 34 00 D8 12 38 01 8B 43 49 B2 31 A7 43 49 |S.4...8..CI.1.CI| 00000AD0: B2 30 3A 50 53 B2 31 30 00 F9 12 39 01 81 52 B2 |.0:PS.10...9..R.| 00000AE0: 50 53 A4 5A 3A 98 33 2C C7 28 55 25 28 41 2C 52 |PS.Z:.3,.(U%(A,R| 00000AF0: 29 29 3B 3A 82 52 3A 82 41 00 0B 13 3A 01 8D 32 |));:.R:.A...:..2| 00000B00: 30 30 30 3A A0 33 3A 89 35 35 30 00 31 13 3B 01 |000:.3:.550.1.;.| 00000B10: 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4D 45 4E 55 |.-----------MENU| 00000B20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B30: 2D 00 4B 13 40 01 99 45 24 4A 24 54 24 22 2A 2A |-.K.@..E$J$T$"**| 00000B40: 2A 20 CD C5 CE D5 20 2A 2A 2A 22 00 98 13 45 01 |* .... ***"...E.| 00000B50: 99 4A 24 54 24 22 31 2E 20 D4 45 52 4D 49 4E 41 |.J$T$"1. .ERMINA| 00000B60: 4C 22 4A 24 54 24 22 32 2E 20 C4 49 52 45 43 54 |L"J$T$"2. .IRECT| 00000B70: 4F 52 59 22 4A 24 54 24 22 33 2E 20 D5 50 4C 4F |ORY"J$T$"3. .PLO| 00000B80: 41 44 22 4A 24 54 24 22 34 2E 20 D3 54 41 52 54 |AD"J$T$"4. .TART| 00000B90: 20 D5 50 4C 4F 41 44 22 00 BC 13 4A 01 99 54 24 | .PLOAD"...J..T$| 00000BA0: 22 35 2E 20 C4 4F 57 4E 4C 4F 41 44 22 4A 24 54 |"5. .OWNLOAD"J$T| 00000BB0: 24 22 36 2E 20 C4 55 50 4C 45 58 22 00 E7 13 4B |$"6. .UPLEX"...K| 00000BC0: 01 99 54 24 22 37 2E 20 D3 43 52 41 54 43 48 20 |..T$"7. .CRATCH | 00000BD0: 46 49 4C 45 53 22 4A 24 54 24 22 38 2E 20 C5 4E |FILES"J$T$"8. .N| 00000BE0: 44 22 3A 8D 35 30 35 00 14 14 4F 01 91 C5 28 41 |D":.505...O...(A| 00000BF0: 24 29 89 31 34 35 2C 34 37 35 2C 33 37 35 2C 35 |$).145,475,375,5| 00000C00: 38 35 2C 32 31 30 2C 31 30 39 30 2C 31 35 30 30 |85,210,1090,1500| 00000C10: 2C 35 31 35 00 1D 14 54 01 89 33 32 30 00 4A 14 |,515...T..320.J.| 00000C20: 59 01 46 24 B2 22 22 3A 99 45 24 3A 85 22 C6 49 |Y.F$."":.E$:.".I| 00000C30: 4C 45 4E 41 4D 45 20 22 3B 46 24 3A 8B C3 28 46 |LENAME ";F$:..(F| 00000C40: 24 29 B2 30 A7 41 B2 31 3A 8E 00 61 14 5A 01 8B |$).0.A.1:..a.Z..| 00000C50: 43 49 B2 31 A7 46 54 24 B2 22 50 22 3A 89 33 36 |CI.1.FT$."P":.36| 00000C60: 30 00 91 14 5E 01 99 4A 24 22 C6 49 4C 45 54 59 |0...^..J$".ILETY| 00000C70: 50 45 3A 20 3C D0 3E 52 4F 47 52 41 4D 20 4F 52 |PE: <.>ROGRAM OR| 00000C80: 20 3C D3 3E 45 51 55 45 4E 54 49 41 4C 3F 20 22 | <.>EQUENTIAL? "| 00000C90: 3B 00 AF 14 5F 01 8D 35 30 35 3A 8B 41 24 B3 B1 |;..._..505:.A$..| 00000CA0: 22 50 22 AF 41 24 B3 B1 22 53 22 A7 33 35 31 00 |"P".A$.."S".351.| 00000CB0: BE 14 63 01 99 41 24 3A 46 54 24 B2 41 24 00 E0 |..c..A$:FT$.A$..| 00000CC0: 14 68 01 9F 47 2C 38 2C 47 2C 22 30 3A 22 AA 46 |.h..G,8,G,"0:".F| 00000CD0: 24 AA 22 2C 22 AA 46 54 24 AA 22 2C 22 AA 4B 24 |$.",".FT$.",".K$| 00000CE0: 00 ED 14 69 01 84 31 35 2C 41 2C 42 24 00 07 15 |...i..15,A,B$...| 00000CF0: 6A 01 8B 41 A7 99 45 24 3B 41 3B 42 24 3A 8D 35 |j..A..E$;A;B$:.5| 00000D00: 30 31 3A A0 47 3A 8E 00 0D 15 6D 01 8E 00 33 15 |01:.G:....m...3.| 00000D10: 72 01 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 55 50 |r..-----------UP| 00000D20: 4C 4F 41 44 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |LOAD------------| 00000D30: 2D 2D 2D 00 53 15 77 01 45 46 B2 2E 3A 47 B2 36 |---.S.w.EF..:G.6| 00000D40: 3A 4B 24 B2 22 52 22 3A 8D 33 34 35 3A 8B 41 A7 |:K$."R":.345:.A.| 00000D50: 31 34 35 00 61 15 7A 01 42 4C B2 2E 3A 46 41 B2 |145.a.z.BL..:FA.| 00000D60: 57 00 8B 15 7C 01 99 45 52 24 22 91 D2 45 41 44 |W...|..ER$"..EAD| 00000D70: 49 4E 47 20 20 20 20 20 20 22 3A 81 59 B2 57 A4 |ING ":.Y.W.| 00000D80: 50 3A 55 25 28 59 2C 57 29 B2 57 00 D2 15 81 01 |P:U%(Y,W).W.....| 00000D90: 42 4C B2 42 4C AA 57 3A 55 25 28 59 2C 32 29 B2 |BL.BL.W:U%(Y,2).| 00000DA0: 42 4C 3A 55 25 28 59 2C 33 29 B2 46 AB 42 4C 3A |BL:U%(Y,3).F.BL:| 00000DB0: 43 48 B2 57 AA 55 25 28 59 2C 32 29 AA 55 25 28 |CH.W.U%(Y,2).U%(| 00000DC0: 59 2C 33 29 3A 99 45 52 24 22 42 4C 4F 43 4B 22 |Y,3):.ER$"BLOCK"| 00000DD0: 42 4C 00 EB 15 86 01 81 58 B2 45 4F 54 A4 5A 3A |BL......X.EOT.Z:| 00000DE0: A1 23 36 2C 42 24 3A 89 34 30 30 00 1B 16 8B 01 |.#6,B$:.400.....| 00000DF0: 45 46 B2 59 3A 81 41 B2 58 AA 57 A4 5A 3A 55 25 |EF.Y:.A.X.W.Z:U%| 00000E00: 28 59 2C 41 29 B2 2E 3A 82 3A 55 25 28 59 2C 56 |(Y,A)..:.:U%(Y,V| 00000E10: 29 B2 43 48 AF 46 3A 89 34 30 35 00 46 16 90 01 |).CH.F:.405.F...| 00000E20: 55 25 28 59 2C 58 29 B2 C6 28 42 24 AA 43 24 29 |U%(Y,X)..(B$.C$)| 00000E30: 3A 43 48 B2 43 48 AA 55 25 28 59 2C 58 29 3A 8B |:CH.CH.U%(Y,X):.| 00000E40: 53 54 A7 33 39 35 00 61 16 91 01 82 3A 55 25 28 |ST.395.a....:U%(| 00000E50: 59 2C 56 29 B2 43 48 AF 46 3A 82 3A 59 B2 59 AB |Y,V).CH.F:.:Y.Y.| 00000E60: 57 00 6F 16 95 01 8B 46 41 B2 57 A7 31 34 35 00 |W.o....FA.W.145.| 00000E70: 7F 16 9A 01 97 36 36 38 2C C2 28 36 36 37 29 00 |.....668,.(667).| 00000E80: 9A 16 9B 01 A1 23 35 2C 41 24 3A 8B 41 24 B3 B1 |.....#5,A$:.A$..| 00000E90: C7 28 4E 41 4B 29 A7 34 31 31 00 AA 16 9F 01 42 |.(NAK).411.....B| 00000EA0: 4C B2 42 4C AB 59 3A 59 B2 2E 00 D9 16 A4 01 99 |L.BL.Y:Y........| 00000EB0: 45 52 24 22 91 D5 50 4C 4F 41 44 20 53 54 41 54 |ER$"..PLOAD STAT| 00000EC0: 55 53 22 4A 24 22 4E 41 4B 22 42 4C 24 22 91 55 |US"J$"NAK"BL$".U| 00000ED0: 50 4C 4F 41 44 49 4E 47 22 00 EB 16 A9 01 59 B2 |PLOADING".....Y.| 00000EE0: 59 AA 57 3A 42 4C B2 42 4C AA 57 00 15 17 AE 01 |Y.W:BL.BL.W.....| 00000EF0: 99 42 4C 24 22 42 4C 4F 43 4B 22 42 4C 3A 81 58 |.BL$"BLOCK"BL:.X| 00000F00: B2 57 A4 56 3A 98 35 2C C7 28 55 25 28 59 2C 58 |.W.V:.5,.(U%(Y,X| 00000F10: 29 29 3B 3A 82 00 4D 17 AF 01 8F 3A 49 46 50 45 |));:..M....:IFPE| 00000F20: 45 4B 28 36 36 39 29 3C 3E 50 45 45 4B 28 36 37 |EK(669)<>PEEK(67| 00000F30: 30 29 54 48 45 4E 34 33 31 3A 52 45 4D 20 57 41 |0)THEN431:REM WA| 00000F40: 49 54 20 55 4E 54 49 4C 20 53 45 4E 54 00 70 17 |IT UNTIL SENT.p.| 00000F50: B3 01 81 41 B2 2E A4 31 32 30 30 3A A1 23 35 2C |...A...1200:.#5,| 00000F60: 41 24 3A 8B 41 24 B2 22 22 A7 82 3A 89 34 33 30 |A$:.A$.""..:.430| 00000F70: 00 84 17 B8 01 8B 41 24 B3 B1 C7 28 41 43 4B 29 |......A$...(ACK)| 00000F80: A7 34 35 35 00 92 17 B9 01 8B 59 B3 B1 50 A7 34 |.455......Y..P.4| 00000F90: 34 35 00 AB 17 BB 01 8B 45 46 B2 2E A7 99 45 52 |45......EF....ER| 00000FA0: 24 22 41 43 4B 22 3A 89 33 38 30 00 E2 17 BC 01 |$"ACK":.380.....| 00000FB0: 8B 45 46 B2 59 A7 45 46 B2 2E 3A 8D 35 33 35 3A |.EF.Y.EF..:.535:| 00000FC0: 8D 35 34 30 3A A0 36 3A 89 35 35 30 3A 8F 20 2D |.540:.6:.550:. -| 00000FD0: 45 4F 46 20 4F 4E 20 4C 41 53 54 20 50 41 43 4B |EOF ON LAST PACK| 00000FE0: 45 54 00 0F 18 BD 01 8B 45 46 B3 B1 59 A7 99 45 |ET......EF..Y..E| 00000FF0: 52 24 22 41 43 4B 22 3A 89 34 32 35 3A 8F 20 53 |R$"ACK":.425:. S| 00001000: 45 4E 44 20 4E 45 58 54 20 50 41 43 4B 45 54 00 |END NEXT PACKET.| 00001010: 37 18 C2 01 8B 45 46 B2 59 A7 45 46 B2 2E 3A 8D |7....EF.Y.EF..:.| 00001020: 35 33 35 3A 8D 35 34 30 3A A0 36 3A 89 35 35 30 |535:.540:.6:.550| 00001030: 3A 8F 20 2D 45 4F 46 00 55 18 C7 01 8B 41 24 B2 |:. -EOF.U....A$.| 00001040: C7 28 4E 41 4B 29 A7 99 45 52 24 22 4E 41 4B 22 |.(NAK)..ER$"NAK"| 00001050: 3A 89 34 33 30 00 6C 18 CC 01 8B 41 24 B2 C7 28 |:.430.l....A$..(| 00001060: 43 41 4E 29 A7 A0 36 3A 89 35 35 30 00 75 18 D1 |CAN)..6:.550.u..| 00001070: 01 89 34 33 35 00 9B 18 D6 01 8F 2D 2D 2D 2D 2D |..435......-----| 00001080: 2D 2D 2D 2D 44 49 52 45 43 54 4F 52 59 2D 2D 2D |----DIRECTORY---| 00001090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 B8 18 DB 01 |-----------.....| 000010A0: 99 45 24 3A 9F 31 2C 38 2C 30 2C 22 24 30 22 3A |.E$:.1,8,0,"$0":| 000010B0: 47 B2 31 3A 8D 33 36 31 00 C3 18 DC 01 8B 41 A7 |G.1:.361......A.| 000010C0: 31 34 35 00 D1 18 DE 01 A1 23 31 2C 41 24 2C 41 |145......#1,A$,A| 000010D0: 24 00 EA 18 E0 01 A1 23 31 2C 41 24 2C 41 24 3A |$......#1,A$,A$:| 000010E0: 8B 41 24 B2 22 22 A7 35 30 30 00 0E 19 E5 01 A1 |.A$."".500......| 000010F0: 23 31 2C 41 24 2C 42 24 3A 99 C6 28 41 24 AA 43 |#1,A$,B$:..(A$.C| 00001100: 24 29 AA C6 28 42 24 AA 43 24 29 AC 44 3B 00 27 |$)..(B$.C$).D;.'| 00001110: 19 EA 01 A1 23 31 2C 41 24 3A 8B 41 24 B2 22 22 |....#1,A$:.A$.""| 00001120: A7 99 3A 89 34 38 30 00 35 19 EF 01 99 41 24 3B |..:.480.5....A$;| 00001130: 3A 89 34 39 30 00 46 19 F4 01 A0 31 3A 8D 35 30 |:.490.F....1:.50| 00001140: 31 3A 89 33 32 30 00 6A 19 F5 01 99 4A 24 22 20 |1:.320.j....J$" | 00001150: D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |.RESS ANY KEY TO| 00001160: 20 43 4F 4E 54 49 4E 55 45 22 00 8E 19 F8 01 3A | CONTINUE".....:| 00001170: 8F 20 2D 2D 2D 2D 2D 57 41 49 54 20 46 4F 52 20 |. -----WAIT FOR | 00001180: 4B 45 59 20 50 52 45 53 53 2D 2D 2D 2D 2D 00 A1 |KEY PRESS-----..| 00001190: 19 F9 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 30 |....A$:.A$."".50| 000011A0: 35 00 A7 19 FE 01 8E 00 CC 19 FF 01 8F 3A 2D 2D |5............:--| 000011B0: 2D 2D 2D 2D 2D 45 58 49 54 20 50 52 4F 47 52 41 |-----EXIT PROGRA| 000011C0: 4D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 D9 19 03 |M-----------....| 000011D0: 02 A0 36 3A A0 31 35 3A 80 00 EE 19 08 02 98 35 |..6:.15:.......5| 000011E0: 2C C7 28 41 43 4B 29 3B 3A 51 B2 2E 3A 8E 00 22 |,.(ACK);:Q..:.."| 000011F0: 1A 0D 02 8D 32 30 30 30 3A 51 B2 51 AA 57 3A 8B |....2000:Q.Q.W:.| 00001200: 51 B2 31 31 A7 A0 33 3A 41 24 B2 C7 28 43 41 4E |Q.11..3:A$..(CAN| 00001210: 29 3A 98 35 2C 41 24 3A 8D 32 30 30 30 3A 89 35 |):.5,A$:.2000:.5| 00001220: 35 30 00 33 1A 12 02 98 35 2C C7 28 4E 41 4B 29 |50.3....5,.(NAK)| 00001230: 3B 3A 8E 00 44 1A 17 02 98 35 2C C7 28 45 4F 54 |;:..D....5,.(EOT| 00001240: 29 3B 3A 8E 00 5A 1A 1C 02 A1 23 35 2C 41 24 3A |);:..Z....#5,A$:| 00001250: 8B 41 24 B2 22 22 A7 35 34 30 00 60 1A 21 02 8E |.A$."".540.`.!..| 00001260: 00 88 1A 26 02 99 22 93 D0 52 45 53 53 20 41 4E |...&.."..RESS AN| 00001270: 59 20 4B 45 59 20 46 4F 52 20 54 45 52 4D 49 4E |Y KEY FOR TERMIN| 00001280: 41 4C 20 4D 4F 44 45 22 00 95 1A 2B 02 53 4F B2 |AL MODE"...+.SO.| 00001290: 35 34 32 37 32 00 B7 1A 30 02 97 53 4F AA 31 2C |54272...0..SO.1,| 000012A0: 32 35 30 3A 97 53 4F AA 35 2C 31 30 3A 97 53 4F |250:.SO.5,10:.SO| 000012B0: AA 31 35 2C 32 30 30 00 ED 1A 35 02 97 53 4F AA |.15,200...5..SO.| 000012C0: 32 34 2C 31 35 3A 81 43 4C B2 31 A4 31 32 3A 97 |24,15:.CL.1.12:.| 000012D0: 53 4F AA 34 2C 32 31 3A 81 54 4D B2 31 A4 31 32 |SO.4,21:.TM.1.12| 000012E0: 35 30 3A 82 3A 97 53 4F AA 34 2C 32 30 00 00 1B |50:.:.SO.4,20...| 000012F0: 3A 02 A1 42 24 3A 8B 42 24 B2 22 22 A7 35 36 30 |:..B$:.B$."".560| 00001300: 00 21 1B 3F 02 53 4F B2 35 34 32 37 32 3A 81 43 |.!.?.SO.54272:.C| 00001310: 4C B2 2E A4 32 34 3A 97 53 4F AA 43 4C 2C 2E 3A |L...24:.SO.CL,.:| 00001320: 82 00 2A 1B 44 02 89 31 34 35 00 6D 1B 49 02 99 |..*.D..145.m.I..| 00001330: 45 24 22 49 53 20 48 4F 53 54 20 43 4F 4D 50 55 |E$"IS HOST COMPU| 00001340: 54 45 52 20 52 45 41 44 59 20 54 4F 20 52 45 43 |TER READY TO REC| 00001350: 49 45 56 45 3F 20 59 2F 4E 22 4A 24 3A 8D 35 30 |IEVE? Y/N"J$:.50| 00001360: 35 3A 8B 41 24 B2 22 4E 22 A7 31 34 35 00 7E 1B |5:.A$."N".145.~.| 00001370: 4E 02 8B 41 24 B3 B1 22 59 22 A7 35 38 35 00 C5 |N..A$.."Y".585..| 00001380: 1B 53 02 99 45 24 22 48 41 56 45 20 54 48 45 20 |.S..E$"HAVE THE | 00001390: 46 49 52 53 54 20 31 36 20 28 4F 52 20 4C 45 53 |FIRST 16 (OR LES| 000013A0: 53 29 20 42 4C 4F 43 4B 53 20 54 4F 20 20 20 55 |S) BLOCKS TO U| 000013B0: 50 4C 4F 41 44 20 42 45 45 4E 20 52 45 41 44 20 |PLOAD BEEN READ | 000013C0: 59 45 54 3F 22 00 DA 1B 58 02 8D 35 30 35 3A 8B |YET?"...X..505:.| 000013D0: 41 24 B2 22 4E 22 A7 31 34 35 00 EB 1B 5D 02 8B |A$."N".145...]..| 000013E0: 41 24 B3 B1 22 59 22 A7 35 39 35 00 07 1C 62 02 |A$.."Y".595...b.| 000013F0: 99 45 24 22 55 50 4C 4F 41 44 49 4E 47 20 20 22 |.E$"UPLOADING "| 00001400: 46 24 3A 89 34 30 35 00 2C 1C E8 03 8F 3A 2D 2D |F$:.405.,....:--| 00001410: 2D 2D 2D 2D 53 45 54 20 44 55 50 4C 45 58 20 53 |----SET DUPLEX S| 00001420: 55 42 52 4F 55 54 49 4E 45 2D 2D 2D 00 58 1C 42 |UBROUTINE---.X.B| 00001430: 04 99 4A 24 22 20 20 20 20 20 20 20 20 3C C6 3E |..J$" <.>| 00001440: 55 4C 4C 20 4F 52 20 3C C8 3E 41 4C 46 20 C4 55 |ULL OR <.>ALF .U| 00001450: 50 4C 45 58 3F 20 22 3B 00 61 1C 45 04 8D 35 30 |PLEX? ";.a.E..50| 00001460: 35 00 7E 1C 46 04 8B 41 24 B2 22 C6 22 B0 41 24 |5.~.F..A$.".".A$| 00001470: B2 22 46 22 A7 20 42 B2 2E 3A 89 33 32 30 00 9B |."F". B..:.320..| 00001480: 1C 47 04 8B 41 24 B2 22 C8 22 B0 41 24 B2 22 48 |.G..A$.".".A$."H| 00001490: 22 A7 20 42 B2 57 3A 89 33 32 30 00 A6 1C 51 04 |". B.W:.320...Q.| 000014A0: 89 20 31 30 39 33 00 C3 1C DC 05 8F 3A 2D 2D 2D |. 1093......:---| 000014B0: 2D 2D D9 20 41 20 46 49 4C 45 20 52 4F 55 54 49 |--. A FILE ROUTI| 000014C0: 4E 45 2D 00 EE 1C E1 05 46 24 B2 22 22 3A 99 45 |NE-.....F$."":.E| 000014D0: 24 3A 85 22 C6 49 4C 45 4E 41 4D 45 20 22 3B 46 |$:.".ILENAME ";F| 000014E0: 24 3A 8B C3 28 46 24 29 B2 30 A7 33 32 30 00 FF |$:..(F$).0.320..| 000014F0: 1C E6 05 98 31 35 2C 22 53 30 3A 22 AA 46 24 00 |....15,"S0:".F$.| 00001500: 0D 1D F0 05 8D 33 36 31 3A 89 33 32 30 00 2C 1D |.....361:.320.,.| 00001510: D0 07 97 36 36 37 2C C2 28 36 36 38 29 3A 8F 20 |...667,.(668):. | 00001520: 45 4D 50 54 59 20 49 4E 50 55 54 51 00 4A 1D D5 |EMPTY INPUTQ.J..| 00001530: 07 A1 23 35 2C 44 55 24 3A 8F 20 52 45 41 44 20 |..#5,DU$:. READ | 00001540: 44 55 4D 4D 59 20 42 59 54 45 00 50 1D DA 07 8E |DUMMY BYTE.P....| 00001550: 00 57 1D 10 27 3A 80 00 00 00 00 00 00 00 00 00 |.W..':..........|
....... *****************.1.... * XMODE M 3.7 *.I.... * 10/01/84 *.A.... * SOFTLAW CORP. *.Y.... **************** *......53281,0:.53280,0:.G(30)G(14):.5,2 ,3,G(6).G(.).W.#..15,8,15:U.212:D.256:W. 1:E$.G(147):O.8...(.BL$."......":ER$.".. ....... .".G(13).`.-.AC K.6:NAK.21:EOT.4:CAN.24:Z.131:V.132:F.25 5:M.288:P.12:T$." "...2.C$. G(.):J$.G(13):O$.G(18).G(32).G(157).G(14 6)...7..E$J$"XMODEM 64 ";.V.<.."DOWNLOAD & UPLOAD";:G$.G(133):Q$.G(34)...A.." TE RMINAL PGM"...F.DC$."DOWNLOAD CANCELLED! ". .K.SO$."HEADER ERROR".D.P.." USES XMO DEM PROTOCOL FOR ALL TRANSFERS."J$J$:L$. G(32).G(157).K.U..:.R.Z..:.Y._..:...D..: ...I..F%(F),T%(F),U%(P,V). .N..:...O..25 1,120:.252,96:. SEI RTS...P..253,088:.25 4,96:. CLI RTS...Q..251:. DISABLE INTERR UPTS.<.S..J.00.64:T%(J).J:.:T%(13).13:T% (20).8:.J.65.90:T%(J).J.32:..V.X..J.91.9 5:T%(J).J:.:.J.193.218:T%(J).J.128:.:T%( 146).P...}.T%(133).P:T%(147).19:T%(137). 3:T%(134).17:T%(138).19:.J...F:K.T%(J).. ....K....F%(K).J:F%(K.128).J......:.253: .320......------------TERMINAL---------- --......G(14).9....E$".PRESS F1 FOR MENU ".T....".TERMINAL READY"J$:.A$.G(CAN).." TRANSFER CANCELLED!"......FA.W.."WHEN HO ST IS READY TO RECIEVE, PRESS F1"J$"FOR MAIN MENU";... ..FA.W.FA..:." AND START THE UPLOAD."J$......#5,A$:.A$."".180.... ..L$G(F%(F(A$)));:.A$.Q$..U,..&....165.> ....O$;:.A$:.A$."".165.V....B.W.:X.F(A$) :.X.13.X.145.X.157.X.29.X.17.X.19..L$;.. ....B.W..A$;:.A$.Q$..U,....C..A$.G$..L$J $:.320...H..5,G(T%(F(A$)));:.165...M..-- ---------DOWNLOAD-------------.&.R..E$"I S HOST COMPUTER WAITING TO SEND? Y/N":.5 05:.A$."N".145.;.W..J$:.A$.."Y".210.V.X. CI..:.E$" IS THIS AN IMAGE FILE FROM COM PUSERVE?":.505...Y..A$."Y".A$."Y".CI.W.. ...G.3:K$."W":.345:.A.145.R....E$"...PRE SS A TO ABORT!":.:BL..:L........J$"DOWNL OADING "F$J$......2000:.525:. SEND NAK TO START......H.W.P.+...CH..:.X.W.V.M... .#5,A$:E.ST:.A$.""..E.O.L.L.W......AB$:. AB$."A"..5,G(CAN):.ER$DC$:.310:. LOCAL A BORT!......E...L..:.255:. GOOD DATA..... .L.M.L..:.525:.BL$"WAITING...":.235:. RE READ SAME PACKET!......236:. LOOP FOR MO RE DATA.8....X.W..A$.G(EOT)..ER$"END OF TRANSMISSION!":.520:.310.L...U%(H,X).F(A $.C$):CH.CH.U%(H,X):.X:CH.CH.U%(H,V).... ..(U%(H,W).U%(H,2).U%(H,3). F).....525:. ER$SO$:.235.W....U%(H,V)..(CH.F)..525:.E R$"CHECKSUM ERROR":.235.....BL.BL.W:.BL$ "BLOCK"BL;ER$......U%(H,2)..BL.BL.BL.1:. 520:.ER$"DUPLICATE BLOCK":.235.X....H..P ..520:. SEND ACK FOR NEXT PACKET.E."..H: H.H.W...'..:IFN=WTHENIFH=.THEN310...(..Z Z.1.40:.ZZ...+..:SAVE SET OF PACKETS & C ONTINUE.G.,..Y.1.H:PS.4...-..CI.1.CI.0:P S.10......X.PS.Z:.3,G(U%(Y,X));:.X:.Y... 1..2000:. EMPTY Q.R.2..ZZ.1.8:.ZZ:.#5,A$ :.ST..O.306:. EMPTY INPUT QUEUE UNTIL ID LE.L.4..520:.231:S. ACK & .....5.. SAVE LAST SET OF PACKETS & EXIT...6..H.1.314: . NOTHING TO SAVE.C.7..A.W.H.1:PS.4.X.8. .CI.1.CI.0:PS.10...9..R.PS.Z:.3,G(U%(A,R ));:.R:.A...:..2000: 3:.550.1.;..------- ----MENU-----------------.K.@..E$J$T$"** * MENU ***"...E..J$T$"1. TERMINAL"J$T$"2 . DIRECTORY"J$T$"3. UPLOAD"J$T$"4. START UPLOAD"...J..T$"5. DOWNLOAD"J$T$"6. DUP LEX"...K..T$"7. SCRATCH FILES"J$T$"8. EN D":.505...O..E(A$).145,475,375,585,210,1 090,1500,515...T..320.J.Y.F$."":.E$:."FI LENAME ";F$:.C(F$).0.A.1:..A.Z..CI.1.FT$ ."P":.360...^..J$"FILETYPE: <P>ROGRAM OR <S>EQUENTIAL? ";..._..505:.A$.."P".A$.. "S".351...C..A$:FT$.A$...H..G,8,G,"0:".F $.",".FT$.",".K$...I..15,A,B$...J..A..E$ ;A;B$:.501: G:....M...3.R..-----------UP LOAD---------------.S.W.EF..:G.6:K$."R": .345:.A.145.A.Z.BL..:FA.W...|..ER$".READ ING ":.Y.W.P:U%(Y,W).W.R...BL.BL.W: U%(Y,2).BL:U%(Y,3).F.BL:CH.W.U%(Y,2).U%( Y,3):.ER$"BLOCK"BL......X.EOT.Z:.#6,B$:. 400.....EF.Y:.A.X.W.Z:U%(Y,A)..:.:U%(Y,V ).CH.F:.405.F...U%(Y,X).F(B$.C$):CH.CH.U %(Y,X):.ST.395.A....:U%(Y,V).CH.F:.:Y.Y. W.O....FA.W.145.....668,B(667)......#5, A$:.A$..G(NAK).411.....BL.BL.Y:Y...Y.... ER$".UPLOAD STATUS"J$"NAK"BL$".UPLOADING ".....Y.Y.W:BL.BL.W......BL$"BLOCK"BL:.X .W.V:.5,G(U%(Y,X));:..M....:IFPEEK(669)< >PEEK(670)THEN431:REM WAIT UNTIL SENT.P. ...A...1200:.#5,A$:.A$.""..:.430......A$ ..G(ACK).455......Y..P.445......EF....ER $"ACK":.380......EF.Y.EF..:.535:.540: 6: .550:. -EOF ON LAST PACKET......EF..Y..E R$"ACK":.425:. SEND NEXT PACKET.7.B..EF. Y.EF..:.535:.540: 6:.550:. -EOF.U.G..A$. G(NAK)..ER$"NAK":.430.L.L..A$.G(CAN). 6: .550.U.Q..435...V..---------DIRECTORY--- -----------......E$:.1,8,0,"$0":G.1:.361 .C....A.145.Q....#1,A$,A$......#1,A$,A$: .A$."".500......#1,A$,B$:.F(A$.C$).F(B$. C$).D;.'....#1,A$:.A$.""..:.480.5....A$; :.490.F... 1:.501:.320.J....J$" PRESS AN Y KEY TO CONTINUE".....:. -----WAIT FOR KEY PRESS-----......A$:.A$."".505....... L....:-------EXIT PROGRAM-----------.Y.. . 6: 15:.......5,G(ACK);:Q..:.."....2000 :Q.Q.W:.Q.11. 3:A$.G(CAN):.5,A$:.2000:.5 50.3....5,G(NAK);:..D....5,G(EOT);:..Z.. ..#5,A$:.A$."".540.`.!.....&..".PRESS AN Y KEY FOR TERMINAL MODE"...+.SO.54272... 0..SO.1,250:.SO.5,10:.SO.15,200...5..SO. 24,15:.CL.1.12:.SO.4,21:.TM.1.1250:.:.SO .4,20...:..B$:.B$."".560.!.?.SO.54272:.C L...24:.SO.CL,.:..*.D..145.M.I..E$"IS HO ST COMPUTER READY TO RECIEVE? Y/N"J$:.50 5:.A$."N".145.~.N..A$.."Y".585.E.S..E$"H AVE THE FIRST 16 (OR LESS) BLOCKS TO U PLOAD BEEN READ YET?".Z.X..505:.A$."N".1 45...]..A$.."Y".595...B..E$"UPLOADING " F$:.405.,....:------SET DUPLEX SUBROUTIN E---.X.B..J$" <F>ULL OR <H>ALF DU PLEX? ";.A.E..505.~.F..A$."F".A$."F". B. .:.320...G..A$."H".A$."H". B.W:.320...Q. . 1093.C....:-----Y A FILE ROUTINE-..... F$."":.E$:."FILENAME ";F$:.C(F$).0.320.. ....15,"S0:".F$......361:.320.,.P..667,B (668):. EMPTY INPUTQ.J.U..#5,DU$:. READ DUMMY BYTE.P.Z...W..':..........
> CLICK IMAGE PREVIEW FOR FULL MODAL