> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 0A 00 99 20 22 93 11 11 20 20 20 20 |..1.... "... |
00000010: 20 57 4F 52 44 20 57 52 49 54 45 52 20 50 45 54 | WORD WRITER PET|
00000020: 41 53 43 49 49 20 43 4F 4E 56 45 52 54 45 52 11 |ASCII CONVERTER.|
00000030: 22 00 51 08 14 00 99 22 31 29 20 57 4F 52 44 57 |".Q...."1) WORDW|
00000040: 52 49 54 45 52 20 54 4F 20 50 45 54 41 53 43 49 |RITER TO PETASCI|
00000050: 49 00 71 08 1E 00 99 22 32 29 20 50 45 54 41 53 |I.q...."2) PETAS|
00000060: 43 49 49 20 54 4F 20 57 4F 52 44 57 52 49 54 45 |CII TO WORDWRITE|
00000070: 52 00 87 08 23 00 99 20 22 53 45 4C 45 43 54 20 |R...#.. "SELECT |
00000080: 31 20 4F 52 20 32 22 00 A1 08 28 00 A1 41 24 3A |1 OR 2"...(..A$:|
00000090: 8B 41 24 B3 22 31 22 B0 41 24 B1 22 32 22 A7 34 |.A$."1".A$."2".4|
000000A0: 30 00 BE 08 32 00 8B 41 24 B2 22 32 22 A7 31 30 |0...2..A$."2".10|
000000B0: 30 30 3A 8F 20 41 53 43 20 54 4F 20 57 57 00 DE |00:. ASC TO WW..|
000000C0: 08 37 00 99 20 22 57 4F 52 44 20 57 52 49 54 45 |.7.. "WORD WRITE|
000000D0: 52 20 54 4F 20 50 45 54 41 53 43 49 49 22 00 F1 |R TO PETASCII"..|
000000E0: 08 3C 00 8D 20 32 30 30 30 3A 8F 20 4E 41 4D 45 |.<.. 2000:. NAME|
000000F0: 53 00 07 09 46 00 A1 23 32 2C 41 24 3A 8B 28 53 |S...F..#2,A$:.(S|
00000100: 54 29 A7 33 30 30 30 00 1A 09 4B 00 8B 41 24 B2 |T).3000...K..A$.|
00000110: 22 22 A7 41 24 B2 C7 28 30 29 00 2E 09 50 00 8B |"".A$..(0)...P..|
00000120: C6 28 41 24 29 B3 B1 32 35 35 A7 31 33 30 00 44 |.(A$)..255.130.D|
00000130: 09 5A 00 81 54 B2 31 A4 32 35 36 3A A1 23 32 2C |.Z..T.1.256:.#2,|
00000140: 41 24 3A 82 00 62 09 64 00 52 45 B2 32 35 34 3A |A$:..b.d.RE.254:|
00000150: 45 54 B2 32 35 33 3A 45 52 B2 32 35 32 3A 89 31 |ET.253:ER.252:.1|
00000160: 34 30 00 80 09 82 00 52 45 B2 32 35 35 3A 45 54 |40.....RE.255:ET|
00000170: B2 32 35 34 3A 45 52 B2 32 35 33 3A 89 31 34 35 |.254:ER.253:.145|
00000180: 00 96 09 8C 00 A1 23 32 2C 41 24 3A 8B 28 53 54 |......#2,A$:.(ST|
00000190: 29 A7 33 30 30 30 00 A9 09 91 00 8B 41 24 B2 22 |).3000......A$."|
000001A0: 22 A7 41 24 B2 C7 28 30 29 00 C6 09 96 00 41 B2 |".A$..(0).....A.|
000001B0: C6 28 41 24 29 3A 8B 41 B1 B2 52 45 A7 41 B2 31 |.(A$):.A..RE.A.1|
000001C0: 33 3A 89 32 30 30 00 E2 09 A0 00 8B 41 B2 45 52 |3:.200......A.ER|
000001D0: A7 31 34 30 3A 8F 20 45 4E 44 4F 46 52 45 43 4F |.140:. ENDOFRECO|
000001E0: 52 44 00 F6 09 AA 00 8B 41 B2 45 54 A7 41 B2 32 |RD......A.ET.A.2|
000001F0: 36 3A 89 32 30 30 00 0C 0A B4 00 8B 41 B3 33 32 |6:.200......A.32|
00000200: A7 41 B2 41 AA 36 34 3A 89 32 30 30 00 1A 0A BE |.A.A.64:.200....|
00000210: 00 8B 41 B3 36 34 A7 32 30 30 00 26 0A C3 00 41 |..A.64.200.&...A|
00000220: B2 41 AA 31 32 38 00 3F 0A C8 00 98 33 2C C7 28 |.A.128.?....3,.(|
00000230: 41 29 3B 3A 99 C7 28 41 29 3B 3A 89 31 34 30 00 |A);:..(A);:.140.|
00000240: 54 0A E8 03 8F 20 50 45 54 41 53 43 49 49 20 54 |T.... PETASCII T|
00000250: 4F 20 57 57 00 74 0A ED 03 99 20 22 50 45 54 41 |O WW.t.... "PETA|
00000260: 53 43 49 49 20 54 4F 20 57 4F 52 44 20 57 52 49 |SCII TO WORD WRI|
00000270: 54 45 52 22 00 8B 0A F2 03 8D 20 32 30 30 30 3A |TER"...... 2000:|
00000280: 8F 20 53 45 54 20 4E 41 4D 45 53 00 BC 0A FC 03 |. SET NAMES.....|
00000290: A1 23 32 2C 41 24 3A 8B 28 53 54 29 A7 98 33 2C |.#2,A$:.(ST)..3,|
000002A0: C7 28 33 32 29 C7 28 32 35 35 29 C7 28 33 32 29 |.(32).(255).(32)|
000002B0: C7 28 32 35 34 29 3A 89 33 30 30 30 00 CF 0A 06 |.(254):.3000....|
000002C0: 04 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 29 00 |..A$."".A$..(0).|
000002D0: DB 0A 0B 04 41 B2 C6 28 41 24 29 00 F6 0A 0C 04 |....A..(A$).....|
000002E0: 8B 41 B2 31 33 A7 41 B2 32 35 35 3A 4C 4C B2 30 |.A.13.A.255:LL.0|
000002F0: 3A 89 31 30 35 30 00 14 0B 0D 04 8B 41 B2 31 30 |:.1050......A.10|
00000300: A7 31 30 32 30 3A 8F 20 4E 4F 20 4C 49 4E 45 46 |.1020:. NO LINEF|
00000310: 45 45 44 53 00 2A 0B 10 04 99 22 13 22 41 24 3B |EEDS.*...."."A$;|
00000320: 3A 41 B2 C2 28 31 30 32 34 29 00 37 0B 1A 04 98 |:A..(1024).7....|
00000330: 33 2C C7 28 41 29 3B 00 5F 0B 24 04 4C 4C B2 4C |3,.(A);._.$.LL.L|
00000340: 4C AA 31 3A 8B 4C 4C B1 32 34 30 A7 98 33 2C C7 |L.1:.LL.240..3,.|
00000350: 28 32 35 35 29 C7 28 33 32 29 3A 4C 4C B2 30 00 |(255).(32):LL.0.|
00000360: 6A 0B 2E 04 89 20 31 30 32 30 00 8B 0B D0 07 85 |j.... 1020......|
00000370: 20 22 4E 41 4D 45 20 4F 46 20 46 49 4C 45 20 54 | "NAME OF FILE T|
00000380: 4F 20 52 45 41 44 22 3B 4F 46 24 00 A8 0B DA 07 |O READ";OF$.....|
00000390: 85 20 22 4E 41 4D 45 20 4F 46 20 4E 45 57 20 46 |. "NAME OF NEW F|
000003A0: 49 4C 45 22 3B 4E 46 24 00 AE 0B DF 07 3A 00 CD |ILE";NF$.....:..|
000003B0: 0B E0 07 53 44 B2 38 3A 8F 20 53 4F 55 52 43 45 |...SD.8:. SOURCE|
000003C0: 20 44 52 49 56 45 20 44 45 56 49 43 45 00 EA 0B | DRIVE DEVICE...|
000003D0: E1 07 44 44 B2 38 3A 8F 20 44 45 53 54 20 44 52 |..DD.8:. DEST DR|
000003E0: 49 56 45 20 44 45 56 49 43 45 00 06 0C E4 07 9F |IVE DEVICE......|
000003F0: 32 2C 53 44 2C 32 2C 22 30 3A 22 AA 4F 46 24 AA |2,SD,2,"0:".OF$.|
00000400: 22 2C 53 2C 52 22 00 33 0C EE 07 8F 20 4F 50 45 |",S,R".3.... OPE|
00000410: 4E 32 2C 53 44 2C 32 2C 22 30 3A 22 2B 4F 46 24 |N2,SD,2,"0:"+OF$|
00000420: 2B 22 2C 50 2C 52 22 3A 47 45 54 23 32 2C 41 24 |+",P,R":GET#2,A$|
00000430: 2C 41 24 00 4F 0C F8 07 9F 33 2C 44 44 2C 33 2C |,A$.O....3,DD,3,|
00000440: 22 30 3A 22 AA 4E 46 24 AA 22 2C 53 2C 57 22 00 |"0:".NF$.",S,W".|
00000450: 55 0C 02 08 8E 00 75 0C B8 0B A0 33 3A A0 32 3A |U.....u....3:.2:|
00000460: 99 3A 99 22 43 4F 4E 56 45 52 53 49 4F 4E 20 4F |.:."CONVERSION O|
00000470: 56 45 52 2E 22 00 00 00 |VER."... |
..1.... "... WORD WRITER PETASCII CO
NVERTER.".Q...."1) WORDWRITER TO PETASCI
I.Q...."2) PETASCII TO WORDWRITER...#..
"SELECT 1 OR 2"...(..A$:.A$."1".A$."2".4
0...2..A$."2".1000:. ASC TO WW...7.. "WO
RD WRITER TO PETASCII"...<.. 2000:. NAME
S...F..#2,A$:.(ST).3000...K..A$."".A$.G(
0)...P..F(A$)..255.130.D.Z..T.1.256:.#2,
A$:..B.D.RE.254:ET.253:ER.252:.140.....R
E.255:ET.254:ER.253:.145......#2,A$:.(ST
).3000......A$."".A$.G(0).F...A.F(A$):.A
..RE.A.13:.200... ..A.ER.140:. ENDOFRECO
RD......A.ET.A.26:.200......A.32.A.A.64:
.200......A.64.200.&.C.A.A.128.?.H..3,G(
A);:.G(A);:.140.T.... PETASCII TO WW.T..
.. "PETASCII TO WORD WRITER"...... 2000:
. SET NAMES......#2,A$:.(ST)..3,G(32)G(2
55)G(32)G(254):.3000.O....A$."".A$.G(0).
....A.F(A$)......A.13.A.255:LL.0:.1050..
....A.10.1020:. NO LINEFEEDS.*...."."A$;
:A.B(1024).7....3,G(A);._.$.LL.LL.1:.LL.
240..3,G(255)G(32):LL.0.J.... 1020...P..
"NAME OF FILE TO READ";OF$...Z.. "NAME
OF NEW FILE";NF$.....:.M...SD.8:. SOURCE
DRIVE DEVICE.....DD.8:. DEST DRIVE DEVI
CE......2,SD,2,"0:".OF$.",S,R".3.... OPE
N2,SD,2,"0:"+OF$+",P,R":GET#2,A$,A$.O...
.3,DD,3,"0:".NF$.",S,W".U.....U... 3: 2:
.:."CONVERSION OVER."...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL