C64BOO.BAS
FILE INFORMATION
FILENAME(S): C64BOO.BAS
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-12-01 01:48:23
APPEARS ON: 1 disk(s)
FILE HASH
2e3952188feda47c484d25f74b1025b0c2038849af7880d2c3d1d54d4be4373f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS KERMIT 65 | C64BOO.BAS | PRG | hedning, Mattias H00r | 17 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 34 08 01 00 8F 20 46 49 4C 45 20 43 41 50 |..4.... FILE CAP|
00000010: 54 55 52 45 20 50 52 4F 47 52 41 4D 3B 20 52 4F |TURE PROGRAM; RO|
00000020: 42 45 52 54 20 4C 45 4E 4F 49 4C 2C 20 41 55 54 |BERT LENOIL, AUT|
00000030: 48 4F 52 2E 00 7E 08 02 00 8F 20 57 52 49 54 54 |HOR..~.... WRITT|
00000040: 45 4E 20 44 45 43 45 4D 42 45 52 20 31 39 38 34 |EN DECEMBER 1984|
00000050: 2E 20 43 4C 45 41 4E 45 44 20 55 50 20 46 4F 52 |. CLEANED UP FOR|
00000060: 20 47 45 4E 45 52 41 4C 20 50 55 42 4C 49 43 20 | GENERAL PUBLIC |
00000070: 46 45 42 52 55 41 52 59 20 31 39 38 35 2E 00 AE |FEBRUARY 1985...|
00000080: 08 05 00 99 20 22 4E 4F 57 20 49 4E 20 44 55 4D |.... "NOW IN DUM|
00000090: 42 20 54 45 52 4D 49 4E 41 4C 20 4D 4F 44 45 2E |B TERMINAL MODE.|
000000A0: 20 50 52 45 53 53 20 46 31 20 4B 45 59 22 00 E0 | PRESS F1 KEY"..|
000000B0: 08 06 00 99 20 22 54 4F 20 42 45 47 49 4E 20 52 |.... "TO BEGIN R|
000000C0: 45 43 45 49 56 49 4E 47 20 46 49 4C 45 2E 20 28 |ECEIVING FILE. (|
000000D0: 4D 41 4B 45 20 53 55 52 45 20 54 48 41 54 22 3B |MAKE SURE THAT";|
000000E0: 00 06 09 07 00 99 20 22 48 4F 53 54 20 49 53 20 |...... "HOST IS |
000000F0: 53 45 54 20 46 4F 52 20 48 41 4C 46 2D 44 55 50 |SET FOR HALF-DUP|
00000100: 4C 45 58 2E 29 22 00 38 09 08 00 99 20 22 2D 2D |LEX.)".8.... "--|
00000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000130: 2D 2D 2D 2D 2D 2D 22 3B 00 5D 09 0A 00 9F 20 31 |------";.].... 1|
00000140: 2C 32 2C 30 2C C7 28 33 38 29 AA C7 28 31 36 31 |,2,0,.(38)..(161|
00000150: 29 20 3A 20 9F 20 31 35 2C 38 2C 31 35 00 7B 09 |) : . 15,8,15.{.|
00000160: 0F 00 A1 20 41 24 20 3A 20 8B 20 41 24 20 B2 20 |... A$ : . A$ . |
00000170: C7 28 31 33 33 29 20 A7 20 32 30 00 AC 09 12 00 |.(133) . 20.....|
00000180: 99 41 24 3B 20 3A 20 98 31 2C 41 24 3B 20 3A 20 |.A$; : .1,A$; : |
00000190: A1 23 31 2C 41 24 20 3A 20 8D 20 31 35 30 20 3A |.#1,A$ : . 150 :|
000001A0: 20 99 41 24 3B 20 3A 20 89 20 31 35 00 CE 09 14 | .A$; : . 15....|
000001B0: 00 46 24 B2 22 22 20 3A 20 85 20 22 4C 4F 43 41 |.F$."" : . "LOCA|
000001C0: 4C 20 46 49 4C 45 4E 41 4D 45 22 3B 46 24 00 FA |L FILENAME";F$..|
000001D0: 09 17 00 8B 20 46 24 B2 22 22 20 A7 20 A0 20 31 |.... F$."" . . 1|
000001E0: 35 20 3A 20 A0 20 31 20 3A 20 99 20 22 51 55 49 |5 : . 1 : . "QUI|
000001F0: 54 54 49 4E 47 22 20 3A 20 80 00 15 0A 19 00 9F |TTING" : .......|
00000200: 20 38 2C 38 2C 38 2C 22 30 3A 22 AA 46 24 AA 22 | 8,8,8,"0:".F$."|
00000210: 2C 53 2C 57 22 00 3A 0A 1E 00 8D 20 36 30 20 3A |,S,W".:.... 60 :|
00000220: 20 8B 20 45 4E 24 20 B1 20 22 30 30 22 20 A7 20 | . EN$ . "00" . |
00000230: A0 20 38 20 3A 20 89 20 32 30 00 56 0A 23 00 A1 |. 8 : . 20.V.#..|
00000240: 23 31 2C 41 24 20 3A 20 8B 20 41 24 20 B1 20 22 |#1,A$ : . A$ . "|
00000250: 22 20 89 20 33 35 00 67 0A 28 00 8D 20 34 35 20 |" . 35.g.(.. 45 |
00000260: 3A 20 89 20 31 39 30 00 8E 0A 2D 00 98 31 2C 22 |: . 190...-..1,"|
00000270: CF CB 22 20 3A 20 8E 20 3A 8F 20 22 4F 4B 22 20 |.." : . :. "OK" |
00000280: 4F 4E 20 52 45 4D 4F 54 45 20 48 4F 53 54 00 B4 |ON REMOTE HOST..|
00000290: 0A 2F 00 98 31 2C 22 CE C7 22 20 3A 20 20 3A 8F |./..1,".." : :.|
000002A0: 20 22 4E 47 22 20 4F 4E 20 52 45 4D 4F 54 45 20 | "NG" ON REMOTE |
000002B0: 48 4F 53 54 00 EC 0A 3C 00 84 31 35 2C 45 4E 24 |HOST...<..15,EN$|
000002C0: 2C 45 4D 24 2C 45 54 24 2C 45 53 24 20 3A 20 8B |,EM$,ET$,ES$ : .|
000002D0: 20 45 4E 24 20 B1 20 22 30 30 22 20 A7 20 99 20 | EN$ . "00" . . |
000002E0: 45 4E 24 45 4D 24 45 54 24 45 53 24 00 F2 0A 3D |EN$EM$ET$ES$...=|
000002F0: 00 8E 00 12 0B 96 00 8F 20 43 4F 4E 56 45 52 54 |........ CONVERT|
00000300: 20 41 53 43 49 49 20 54 4F 20 50 45 54 41 53 43 | ASCII TO PETASC|
00000310: 49 49 00 47 0B 9B 00 41 20 B2 20 C6 28 41 24 AA |II.G...A . .(A$.|
00000320: C7 28 30 29 29 20 3A 20 8B 20 41 20 B1 20 36 34 |.(0)) : . A . 64|
00000330: 20 AF 20 41 20 B3 20 39 31 20 A7 20 41 20 B2 20 | . A . 91 . A . |
00000340: 41 20 AA 20 31 32 38 00 69 0B A0 00 8B 20 41 20 |A . 128.i.... A |
00000350: B1 20 39 36 20 AF 20 41 20 B3 20 31 32 33 20 A7 |. 96 . A . 123 .|
00000360: 20 41 20 B2 20 41 AB 33 32 00 7C 0B A5 00 8B 20 | A . A.32.|.... |
00000370: 41 B2 31 32 37 20 A7 20 41 B2 32 30 00 8B 0B AA |A.127 . A.20....|
00000380: 00 41 24 B2 C7 28 41 29 20 3A 8E 00 9C 0B BE 00 |.A$..(A) :......|
00000390: 4C 24 B2 22 22 20 3A 20 43 4B B2 30 00 B7 0B C3 |L$."" : CK.0....|
000003A0: 00 A1 23 31 2C 41 24 20 3A 20 8B 20 41 24 B2 22 |..#1,A$ : . A$."|
000003B0: 22 20 A7 20 31 39 35 00 CC 0B C5 00 8B 20 41 24 |" . 195...... A$|
000003C0: B2 C7 28 31 33 29 20 A7 20 32 30 30 00 06 0C C6 |..(13) . 200....|
000003D0: 00 43 4B 20 B2 20 43 4B 20 AA 20 C6 28 41 24 29 |.CK . CK . .(A$)|
000003E0: 20 3A 20 8D 20 31 35 30 20 3A 20 4C 24 20 B2 20 | : . 150 : L$ . |
000003F0: 4C 24 20 AA 41 24 20 3A 20 99 20 41 24 3B 20 3A |L$ .A$ : . A$; :|
00000400: 20 89 20 31 39 35 00 15 0C C8 00 99 20 3A 20 43 | . 195...... : C|
00000410: 4B 24 B2 22 22 00 30 0C CA 00 A1 23 31 2C 41 24 |K$."".0....#1,A$|
00000420: 20 3A 20 8B 20 41 24 B2 22 22 20 A7 20 32 30 32 | : . A$."" . 202|
00000430: 00 5B 0C CB 00 8B 20 41 24 20 B3 B1 20 C7 28 31 |.[.... A$ .. .(1|
00000440: 33 29 20 A7 20 43 4B 24 20 B2 20 43 4B 24 20 AA |3) . CK$ . CK$ .|
00000450: 20 41 24 20 3A 20 89 20 32 30 32 00 76 0C CD 00 | A$ : . 202.v...|
00000460: 8B 20 43 4B 20 B2 20 B6 28 C5 28 43 4B 24 29 29 |. CK . .(.(CK$))|
00000470: 20 A7 20 32 31 30 00 AB 0C CF 00 99 20 22 43 48 | . 210...... "CH|
00000480: 45 43 4B 53 55 4D 20 45 52 52 4F 52 20 2D 20 53 |ECKSUM ERROR - S|
00000490: 45 4E 44 49 4E 47 20 4E 41 43 4B 22 20 3A 20 8D |ENDING NACK" : .|
000004A0: 20 34 37 20 3A 20 89 20 31 39 30 00 E6 0C D2 00 | 47 : . 190.....|
000004B0: 98 38 2C 4C 24 20 3A 20 8D 20 36 30 20 3A 20 8B |.8,L$ : . 60 : .|
000004C0: 20 45 4E 24 20 B1 20 22 30 30 22 20 A7 20 90 20 | EN$ . "00" . . |
000004D0: 3A 8F 20 28 46 41 54 41 4C 3F 29 20 44 49 53 4B |:. (FATAL?) DISK|
000004E0: 20 45 52 52 4F 52 00 09 0D D7 00 8D 20 34 35 20 | ERROR...... 45 |
000004F0: 3A 20 8B 20 C8 28 43 4B 24 2C 31 29 20 B3 B1 20 |: . .(CK$,1) .. |
00000500: 22 2D 22 20 A7 20 31 39 30 00 18 0D DC 00 A0 20 |"-" . 190...... |
00000510: 38 20 3A 20 89 20 32 30 00 00 00 |8 : . 20... |
..4.... FILE CAPTURE PROGRAM; ROBERT LEN
OIL, AUTHOR..~.... WRITTEN DECEMBER 1984
. CLEANED UP FOR GENERAL PUBLIC FEBRUARY
1985....... "NOW IN DUMB TERMINAL MODE.
PRESS F1 KEY"...... "TO BEGIN RECEIVING
FILE. (MAKE SURE THAT";...... "HOST IS
SET FOR HALF-DUPLEX.)".8.... "----------
------------------------------";.].... 1
,2,0,G(38).G(161) : . 15,8,15.{.... A$ :
. A$ . G(133) . 20......A$; : .1,A$; :
.#1,A$ : . 150 : .A$; : . 15.N...F$."" :
. "LOCAL FILENAME";F$...... F$."" . 1
5 : 1 : . "QUITTING" : ....... 8,8,8,"
0:".F$.",S,W".:.... 60 : . EN$ . "00" .
8 : . 20.V.#..#1,A$ : . A$ . "" . 35.G
.(.. 45 : . 190...-..1,"OK" : . :. "OK"
ON REMOTE HOST.../..1,"NG" : :. "NG" ON
REMOTE HOST...<..15,EN$,EM$,ET$,ES$ : .
EN$ . "00" . . EN$EM$ET$ES$...=........
CONVERT ASCII TO PETASCII.G...A . F(A$.
G(0)) : . A . 64 . A . 91 . A . A . 128.
I. .. A . 96 . A . 123 . A . A.32.|....
A.127 . A.20.....A$.G(A) :......L$."" :
CK.0...C..#1,A$ : . A$."" . 195.L.E.. A$
.G(13) . 200...F.CK . CK . F(A$) : . 150
: L$ . L$ .A$ : . A$; : . 195...H.. : C
K$."".0.J..#1,A$ : . A$."" . 202.[.K.. A
$ .. G(13) . CK$ . CK$ . A$ : . 202.V.M.
. CK . .(E(CK$)) . 210...O.. "CHECKSUM E
RROR - SENDING NACK" : . 47 : . 190...R.
.8,L$ : . 60 : . EN$ . "00" . . :. (FATA
L?) DISK ERROR...W.. 45 : . H(CK$,1) ..
"-" . 190..... 8 : . 20...
> CLICK IMAGE PREVIEW FOR FULL MODAL