> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 E7 03 8F 20 53 55 42 4D 49 54 54 45 |....... SUBMITTE|
00000010: 44 20 42 59 20 27 50 41 55 4C 27 00 2C 08 E8 03 |D BY 'PAUL'.,...|
00000020: 8F 20 49 4D 47 20 54 4F 20 50 52 47 00 53 08 F2 |. IMG TO PRG.S..|
00000030: 03 8F 20 22 43 4F 50 59 52 49 47 48 54 2C 20 31 |.. "COPYRIGHT, 1|
00000040: 39 38 33 2C 20 4A 4F 45 4C 20 4D 2E 20 52 55 42 |983, JOEL M. RUB|
00000050: 49 4E 22 00 7F 08 FC 03 8F 20 22 4D 41 59 20 4E |IN"...... "MAY N|
00000060: 4F 54 20 42 45 20 52 45 50 52 4F 44 55 43 45 44 |OT BE REPRODUCED|
00000070: 20 43 4F 4D 4D 45 52 43 49 41 4C 4C 59 2E 22 00 | COMMERCIALLY.".|
00000080: AB 08 06 04 8F 22 4D 41 59 20 42 45 20 47 49 56 |....."MAY BE GIV|
00000090: 45 4E 20 41 57 41 59 2E 20 20 4D 41 59 20 4E 4F |EN AWAY. MAY NO|
000000A0: 54 20 42 45 20 53 4F 4C 44 2E 22 00 B5 08 10 04 |T BE SOLD.".....|
000000B0: 89 32 33 30 30 00 C4 08 1A 04 41 B2 31 31 3A 8D |.2300.....A.11:.|
000000C0: 32 30 30 30 00 DD 08 24 04 41 B2 35 3A 8D 32 30 |2000...$.A.5:.20|
000000D0: 30 30 3A 8B 53 53 B2 30 A7 31 30 36 30 00 E9 08 |00:.SS.0.1060...|
000000E0: 2E 04 A0 32 3A A0 33 3A 80 00 08 09 D0 07 9E 38 |...2:.3:.......8|
000000F0: 39 36 3A 42 24 B2 C8 28 41 24 2C C2 28 31 34 32 |96:B$..(A$,.(142|
00000100: 29 29 3A 53 53 B2 53 54 00 1D 09 DA 07 8B 28 C3 |)):SS.ST......(.|
00000110: 28 42 24 29 B3 31 30 29 A7 32 38 30 30 00 39 09 |(B$).10).2800.9.|
00000120: E4 07 8B 28 C3 28 42 24 29 AF 31 29 B3 B1 30 A7 |...(.(B$).1)..0.|
00000130: 99 42 24 3A 89 32 35 30 30 00 43 09 EE 07 43 24 |.B$:.2500.C...C$|
00000140: B2 22 22 00 58 09 F8 07 99 CA 28 42 24 2C 33 2C |."".X.....(B$,3,|
00000150: 34 29 C7 28 31 34 35 29 00 73 09 02 08 53 B2 30 |4).(145).s...S.0|
00000160: 3A 4C B2 C3 28 42 24 29 AB 31 3A 81 49 B2 31 A4 |:L..(B$).1:.I.1.|
00000170: 4C A9 32 00 93 09 0C 08 43 B2 C6 28 CA 28 42 24 |L.2.....C..(.(B$|
00000180: 2C 49 29 29 3A 44 B2 C6 28 CA 28 42 24 2C 49 AA |,I)):D..(.(B$,I.|
00000190: 31 29 29 00 A5 09 16 08 43 B2 43 AB 34 38 3A 44 |1)).....C.C.48:D|
000001A0: B2 44 AB 34 38 00 B4 09 20 08 8B 43 B1 39 A7 43 |.D.48... ..C.9.C|
000001B0: B2 43 AB 37 00 C3 09 2A 08 8B 44 B1 39 A7 44 B2 |.C.7...*..D.9.D.|
000001C0: 44 AB 37 00 D0 09 34 08 43 B2 43 AC 31 36 AA 44 |D.7...4.C.C.16.D|
000001D0: 00 FB 09 3E 08 53 B2 53 AA 43 3A 8B 28 28 49 AA |...>.S.S.C:.((I.|
000001E0: 31 29 AC 2E 35 B1 B2 41 29 AF 28 49 B3 B1 4C 29 |1)..5..A).(I..L)|
000001F0: A7 43 24 B2 43 24 AA C7 28 43 29 00 01 0A 48 08 |.C$.C$..(C)...H.|
00000200: 82 00 16 0A 52 08 8B 28 53 AF 32 35 35 29 B3 B1 |....R..(S.255)..|
00000210: 30 A7 32 35 38 30 00 23 0A 5C 08 98 33 2C 43 24 |0.2580.#.\..3,C$|
00000220: 3B 3A 8E 00 3D 0A 66 08 9F 31 35 2C 38 2C 31 35 |;:..=.f..15,8,15|
00000230: 3A 99 C7 28 31 34 37 29 C7 28 31 34 29 00 50 0A |:..(147).(14).P.|
00000240: 70 08 85 22 49 2F 50 20 46 49 4C 45 22 3B 49 24 |p.."I/P FILE";I$|
00000250: 00 65 0A 7A 08 9F 32 2C 38 2C 32 2C 49 24 AA 22 |.e.z..2,8,2,I$."|
00000260: 2C 53 2C 52 22 00 8C 0A 84 08 84 31 35 2C 41 2C |,S,R"......15,A,|
00000270: 42 24 2C 43 2C 44 3A 8B 41 B3 B1 30 A7 99 49 24 |B$,C,D:.A..0..I$|
00000280: 22 3A 20 20 22 42 24 3A A0 32 3A 80 00 9F 0A 8E |": "B$:.2:.....|
00000290: 08 85 22 4F 2F 50 20 46 49 4C 45 22 3B 4F 24 00 |.."O/P FILE";O$.|
000002A0: B4 0A 98 08 9F 33 2C 38 2C 33 2C 4F 24 AA 22 2C |.....3,8,3,O$.",|
000002B0: 50 2C 57 22 00 DE 0A A2 08 84 31 35 2C 41 2C 42 |P,W"......15,A,B|
000002C0: 24 2C 43 2C 44 3A 8B 41 B3 B1 30 A7 99 4F 24 22 |$,C,D:.A..0..O$"|
000002D0: 3A 20 20 22 42 24 3A A0 32 3A A0 33 3A 80 00 20 |: "B$:.2:.3:.. |
000002E0: 0B AC 08 41 41 28 31 29 B2 36 35 3A 41 41 28 32 |...AA(1).65:AA(2|
000002F0: 29 B2 39 37 3A 41 41 28 33 29 B2 31 39 33 3A 99 |).97:AA(3).193:.|
00000300: 3A 99 22 44 49 44 20 59 4F 55 20 44 4F 57 4E 4C |:."DID YOU DOWNL|
00000310: 4F 41 44 20 4C 45 54 54 45 52 53 20 41 53 3A 22 |OAD LETTERS AS:"|
00000320: 00 39 0B B6 08 52 24 B2 C7 28 31 38 29 3A 4F 24 |.9...R$..(18):O$|
00000330: B2 C7 28 31 34 36 29 3A 99 00 6A 0B C0 08 99 52 |..(146):..j....R|
00000340: 24 31 4F 24 22 50 45 54 53 43 49 49 20 4C 4F 57 |$1O$"PETSCII LOW|
00000350: 45 52 2D 43 41 53 45 20 28 20 3D 20 41 53 43 49 |ER-CASE ( = ASCI|
00000360: 49 20 55 50 50 45 52 20 29 22 00 87 0B CA 08 99 |I UPPER )"......|
00000370: 52 24 32 4F 24 22 41 53 43 49 49 20 4C 4F 57 45 |R$2O$"ASCII LOWE|
00000380: 52 2D 43 41 53 45 22 00 A6 0B D4 08 99 52 24 33 |R-CASE"......R$3|
00000390: 4F 24 22 50 45 54 53 43 49 49 20 55 50 50 45 52 |O$"PETSCII UPPER|
000003A0: 2D 43 41 53 45 22 00 CB 0B DE 08 85 56 41 3A 56 |-CASE"......VA:V|
000003B0: 41 B2 B5 28 56 41 29 3A 8B 28 56 41 B3 31 29 B0 |A..(VA):.(VA.1).|
000003C0: 28 56 41 B1 33 29 A7 32 32 32 30 00 D9 0B E8 08 |(VA.3).2220.....|
000003D0: 56 41 B2 41 41 28 56 41 29 00 F5 0B F2 08 97 39 |VA.AA(VA)......9|
000003E0: 33 30 2C 56 41 3A 97 39 33 34 2C 56 41 AA 36 3A |30,VA:.934,VA.6:|
000003F0: 89 31 30 35 30 00 1A 0C FC 08 8F 20 2A 2A 20 53 |.1050...... ** S|
00000400: 54 52 49 4E 47 20 54 48 49 4E 47 20 28 55 4E 49 |TRING THING (UNI|
00000410: 56 45 52 53 41 4C 29 20 2A 2A 00 3F 0C 06 09 8F |VERSAL) **.?....|
00000420: 20 2A 2A 20 20 20 20 20 4A 49 4D 20 42 55 54 54 | ** JIM BUTT|
00000430: 45 52 46 49 45 4C 44 20 20 20 20 20 20 2A 2A 00 |ERFIELD **.|
00000440: 63 0C 10 09 8F 20 53 54 52 49 4E 47 20 4D 55 53 |c.... STRING MUS|
00000450: 54 20 42 45 20 46 49 52 53 54 20 56 41 52 49 41 |T BE FIRST VARIA|
00000460: 42 4C 45 00 7E 0C 1A 09 41 24 B2 22 41 42 43 44 |BLE.~...A$."ABCD|
00000470: 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 22 00 94 |EFGHIJKLMNOPQ"..|
00000480: 0C 24 09 41 24 B2 41 24 AA 41 24 AA 41 24 AA 41 |.$.A$.A$.A$.A$.A|
00000490: 24 AA 41 24 00 A4 0C 2E 09 41 24 B2 41 24 AA 41 |$.A$.....A$.A$.A|
000004A0: 24 AA 41 24 00 CA 0C 38 09 8F 20 41 42 4F 56 45 |$.A$...8.. ABOVE|
000004B0: 20 53 45 54 53 20 53 54 52 49 4E 47 20 46 4F 52 | SETS STRING FOR|
000004C0: 20 4D 41 58 20 28 32 35 35 29 00 F2 0C 42 09 83 | MAX (255)...B..|
000004D0: 20 31 36 30 2C 20 32 2C 20 31 37 37 2C 20 34 35 | 160, 2, 177, 45|
000004E0: 2C 20 31 35 33 2C 20 31 33 37 2C 20 30 2C 20 32 |, 153, 137, 0, 2|
000004F0: 30 30 00 1A 0D 4C 09 83 20 31 39 32 2C 20 36 2C |00...L.. 192, 6,|
00000500: 20 32 30 38 2C 20 32 34 36 2C 20 31 36 32 2C 20 | 208, 246, 162, |
00000510: 32 2C 20 33 32 2C 20 31 39 38 00 44 0D 56 09 83 |2, 32, 198.D.V..|
00000520: 20 32 35 35 2C 20 33 32 2C 20 32 32 38 2C 20 32 | 255, 32, 228, 2|
00000530: 35 35 2C 20 32 30 31 2C 20 31 33 2C 20 32 34 30 |55, 201, 13, 240|
00000540: 2C 20 33 34 00 6D 0D 60 09 83 20 35 36 2C 20 32 |, 34.m.`.. 56, 2|
00000550: 30 31 2C 20 34 38 2C 20 31 34 34 2C 20 32 35 2C |01, 48, 144, 25,|
00000560: 20 32 30 31 2C 20 35 38 2C 20 31 34 34 00 98 0D | 201, 58, 144...|
00000570: 6A 09 83 20 31 30 2C 20 32 30 31 2C 20 31 39 33 |j.. 10, 201, 193|
00000580: 2C 20 31 34 34 2C 20 31 37 2C 20 32 30 31 2C 20 |, 144, 17, 201, |
00000590: 31 39 38 2C 20 31 37 36 00 C2 0D 74 09 83 20 31 |198, 176...t.. 1|
000005A0: 33 2C 20 34 31 2C 20 39 35 2C 20 31 36 34 2C 20 |3, 41, 95, 164, |
000005B0: 31 34 32 2C 20 31 34 35 2C 20 31 34 30 2C 20 32 |142, 145, 140, 2|
000005C0: 30 30 00 ED 0D 7E 09 83 20 31 33 32 2C 20 31 34 |00...~.. 132, 14|
000005D0: 32 2C 20 31 39 36 2C 20 31 33 39 2C 20 32 34 30 |2, 196, 139, 240|
000005E0: 2C 20 34 2C 20 31 36 35 2C 20 31 34 34 00 0B 0E |, 4, 165, 144...|
000005F0: 88 09 83 20 32 34 30 2C 20 32 31 35 2C 20 37 36 |... 240, 215, 76|
00000600: 2C 20 32 30 34 2C 20 32 35 35 2C 00 2B 0E 92 09 |, 204, 255,.+...|
00000610: 81 4A B2 38 39 36 A4 39 35 36 3A 87 58 3A 97 4A |.J.896.956:.X:.J|
00000620: 2C 58 3A 54 B2 54 AA 58 3A 82 4A 00 3A 0E 9C 09 |,X:T.T.X:.J.:...|
00000630: 8B 54 B3 B1 38 32 38 37 A7 90 00 44 0E A6 09 89 |.T..8287...D....|
00000640: 32 31 35 30 00 4F 0E B0 09 55 B2 31 32 30 30 00 |2150.O...U.1200.|
00000650: 7A 0E C4 09 99 22 4C 49 4E 45 20 57 49 54 48 20 |z...."LINE WITH |
00000660: 4F 44 44 20 4E 55 4D 42 45 52 20 4F 46 20 48 45 |ODD NUMBER OF HE|
00000670: 58 20 44 49 47 49 54 53 2E 22 00 A1 0E CE 09 99 |X DIGITS."......|
00000680: 22 28 4D 41 59 20 42 45 20 50 52 4F 4D 50 54 20 |"(MAY BE PROMPT |
00000690: 4F 52 20 43 4F 4D 4D 41 4E 44 20 4C 49 4E 45 29 |OR COMMAND LINE)|
000006A0: 22 00 A9 0E D8 09 99 42 24 00 D8 0E E2 09 99 52 |"......B$......R|
000006B0: 24 22 52 22 4F 24 22 45 4E 54 45 52 20 4C 49 4E |$"R"O$"ENTER LIN|
000006C0: 45 20 4F 52 20 22 52 24 22 53 22 4F 24 22 4B 49 |E OR "R$"S"O$"KI|
000006D0: 50 20 4C 49 4E 45 3F 22 00 FA 0E EC 09 85 48 24 |P LINE?"......H$|
000006E0: 3A 8B 28 48 24 B3 B1 22 52 22 29 AF 28 48 24 B3 |:.(H$.."R").(H$.|
000006F0: B1 22 53 22 29 A7 32 35 33 30 00 1B 0F F6 09 8B |."S").2530......|
00000700: 48 24 B2 22 52 22 A7 85 22 4E 45 57 20 4C 49 4E |H$."R".."NEW LIN|
00000710: 45 22 3B 42 24 3A 89 32 30 31 30 00 2E 0F 00 0A |E";B$:.2010.....|
00000720: 8B 53 53 B3 B1 30 A7 A0 32 3A A0 33 3A 80 00 38 |.SS..0..2:.3:..8|
00000730: 0F 0A 0A 89 32 30 30 30 00 5C 0F 14 0A 99 22 4C |....2000.\...."L|
00000740: 49 4E 45 20 57 49 54 48 20 42 41 44 20 43 48 45 |INE WITH BAD CHE|
00000750: 43 4B 53 55 4D 20 22 53 AF 32 35 35 00 83 0F 8C |CKSUM "S.255....|
00000760: 0A 99 22 28 4D 41 59 20 42 45 20 50 52 4F 4D 50 |.."(MAY BE PROMP|
00000770: 54 20 4F 52 20 43 4F 4D 4D 41 4E 44 20 4C 49 4E |T OR COMMAND LIN|
00000780: 45 29 22 00 8B 0F 96 0A 99 42 24 00 BA 0F A0 0A |E)"......B$.....|
00000790: 99 52 24 22 52 22 4F 24 22 45 4E 54 45 52 20 4C |.R$"R"O$"ENTER L|
000007A0: 49 4E 45 20 4F 52 20 22 52 24 22 53 22 4F 24 22 |INE OR "R$"S"O$"|
000007B0: 4B 49 50 20 4C 49 4E 45 3F 22 00 DC 0F AA 0A 85 |KIP LINE?"......|
000007C0: 48 24 3A 8B 28 48 24 B3 B1 22 52 22 29 AF 28 48 |H$:.(H$.."R").(H|
000007D0: 24 B3 B1 22 53 22 29 A7 32 35 33 30 00 F2 0F B4 |$.."S").2530....|
000007E0: 0A 8B 48 24 B2 22 52 22 A7 85 42 24 3A 89 32 30 |..H$."R"..B$:.20|
000007F0: 31 30 00 05 10 BE 0A 8B 53 53 B3 B1 30 A7 A0 32 |10......SS..0..2|
00000800: 3A A0 33 3A 80 00 0F 10 C8 0A 89 32 30 30 30 00 |:.3:.......2000.|
00000810: 27 10 F0 0A 99 22 53 48 4F 52 54 20 4C 49 4E 45 |'...."SHORT LINE|
00000820: 22 3A 89 32 37 30 30 00 00 00 |":.2700... |
....... SUBMITTED BY 'PAUL'.,.... IMG TO
PRG.S.... "COPYRIGHT, 1983, JOEL M. RUB
IN"..... "MAY NOT BE REPRODUCED COMMERC
IALLY."......"MAY BE GIVEN AWAY. MAY NO
T BE SOLD."......2300.D...A.11:.2000...$
.A.5:.2000:.SS.0.1060..... 2: 3:....P..8
96:B$.H(A$,B(142)):SS.ST...Z..(C(B$).10)
.2800.9....(C(B$).1)..0..B$:.2500.C...C$
."".X....J(B$,3,4)G(145).S...S.0:L.C(B$)
.1:.I.1.L.2.....C.F(J(B$,I)):D.F(J(B$,I.
1)).....C.C.48:D.D.48... ..C.9.C.C.7.C.*
..D.9.D.D.7.P.4.C.C.16.D...>.S.S.C:.((I.
1)..5..A).(I..L).C$.C$.G(C)...H.....R..(
S.255)..0.2580.#.\..3,C$;:..=.F..15,8,15
:.G(147)G(14).P.P.."I/P FILE";I$.E.Z..2,
8,2,I$.",S,R"......15,A,B$,C,D:.A..0..I$
": "B$: 2:......."O/P FILE";O$......3,8
,3,O$.",P,W"......15,A,B$,C,D:.A..0..O$"
: "B$: 2: 3:.. ...AA(1).65:AA(2).97:AA(
3).193:.:."DID YOU DOWNLOAD LETTERS AS:"
.9...R$.G(18):O$.G(146):..J....R$1O$"PET
SCII LOWER-CASE ( = ASCII UPPER )"...J..
R$2O$"ASCII LOWER-CASE"...T..R$3O$"PETSC
II UPPER-CASE".K....VA:VA..(VA):.(VA.1).
(VA.3).2220.Y...VA.AA(VA)......930,VA:.9
34,VA.6:.1050...... ** STRING THING (UNI
VERSAL) **.?.... ** JIM BUTTERFIELD
**.C.... STRING MUST BE FIRST VARIA
BLE.~...A$."ABCDEFGHIJKLMNOPQ"...$.A$.A$
.A$.A$.A$.A$.....A$.A$.A$.A$.J.8.. ABOVE
SETS STRING FOR MAX (255)...B.. 160, 2,
177, 45, 153, 137, 0, 200...L.. 192, 6,
208, 246, 162, 2, 32, 198.D.V.. 255, 32
, 228, 255, 201, 13, 240, 34.M.`.. 56, 2
01, 48, 144, 25, 201, 58, 144...J.. 10,
201, 193, 144, 17, 201, 198, 176.B.T.. 1
3, 41, 95, 164, 142, 145, 140, 200...~..
132, 142, 196, 139, 240, 4, 165, 144...
... 240, 215, 76, 204, 255,.+....J.896.9
56:.X:.J,X:T.T.X:.J.:....T..8287...D....
2150.O...U.1200.Z.D.."LINE WITH ODD NUMB
ER OF HEX DIGITS."...N.."(MAY BE PROMPT
OR COMMAND LINE)"...X..B$.X....R$"R"O$"E
NTER LINE OR "R$"S"O$"KIP LINE?"......H$
:.(H$.."R").(H$.."S").2530......H$."R"..
"NEW LINE";B$:.2010......SS..0. 2: 3:..8
....2000.\...."LINE WITH BAD CHECKSUM "S
.255......"(MAY BE PROMPT OR COMMAND LIN
E)"......B$... ..R$"R"O$"ENTER LINE OR "
R$"S"O$"KIP LINE?"......H$:.(H$.."R").(H
$.."S").2530......H$."R"..B$:.2010......
SS..0. 2: 3:....H..2000.'...."SHORT LINE
":.2700...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL