> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 0A 00 53 41 B2 34 39 31 35 32 3A 43 |..$...SA.49152:C|
00000010: 53 B2 31 30 36 30 30 3A 46 52 B2 32 35 31 3A 99 |S.10600:FR.251:.|
00000020: 22 93 05 22 00 44 08 14 00 81 54 B2 53 41 A4 53 |"..".D....T.SA.S|
00000030: 41 AA 36 35 3A 87 41 3A 58 B2 58 AA 41 3A 97 54 |A.65:.A:X.X.A:.T|
00000040: 2C 41 3A 82 00 6E 08 1E 00 8B 58 B3 B1 43 53 A7 |,A:..n....X..CS.|
00000050: 99 22 45 52 52 4F 52 20 49 4E 20 44 41 54 41 20 |."ERROR IN DATA |
00000060: 53 54 41 54 45 4D 45 4E 54 53 2E 22 3A 90 00 79 |STATEMENTS.":..y|
00000070: 08 28 00 99 C7 28 31 34 29 00 B9 08 32 00 85 22 |.(...(14)...2.."|
00000080: CE 41 4D 45 20 4F 46 20 46 49 52 53 54 20 50 52 |.AME OF FIRST PR|
00000090: 4F 47 52 41 4D 20 22 3B 46 31 24 3A 85 22 CE 41 |OGRAM ";F1$:.".A|
000000A0: 4D 45 20 4F 46 20 53 45 43 4F 4E 44 20 50 52 4F |ME OF SECOND PRO|
000000B0: 47 52 41 4D 22 3B 46 32 24 00 D9 08 3C 00 99 22 |GRAM";F2$...<.."|
000000C0: 93 CF 55 54 50 55 54 20 54 4F 20 D0 52 49 4E 54 |..UTPUT TO .RINT|
000000D0: 45 52 3F 20 20 D9 2F CE 22 00 EF 08 46 00 A1 20 |ER? ./."...F.. |
000000E0: 53 50 24 3A 8B 53 50 24 B2 22 22 20 A7 37 30 00 |SP$:.SP$."" .70.|
000000F0: 27 09 50 00 8B 53 50 24 B2 22 59 22 A7 20 9F 20 |'.P..SP$."Y". . |
00000100: 34 2C 34 2C 37 3A 98 34 2C 22 C3 4F 4D 50 41 52 |4,4,7:.4,".OMPAR|
00000110: 49 4E 47 20 22 46 31 24 22 20 54 4F 20 22 46 32 |ING "F1$" TO "F2|
00000120: 24 22 2E 22 3A 98 34 00 59 09 5A 00 4A 24 B2 22 |$".":.4.Y.Z.J$."|
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | ............|
00000150: 9D 9D 9D 9D 9D 9D 9D 9D 22 00 7A 09 64 00 9F 20 |........".z.d.. |
00000160: 32 2C 38 2C 32 2C 46 31 24 3A 9F 20 33 2C 38 2C |2,8,2,F1$:. 3,8,|
00000170: 33 2C 46 32 24 3A 8D 36 35 30 00 B1 09 6E 00 81 |3,F2$:.650...n..|
00000180: 54 B2 31 A4 32 3A A1 23 32 2C 41 24 3A A1 23 33 |T.1.2:.#2,A$:.#3|
00000190: 2C 42 24 3A 82 3A 8F 20 20 54 48 52 4F 57 20 41 |,B$:.:. THROW A|
000001A0: 57 41 59 20 46 49 52 53 54 20 32 20 42 59 54 45 |WAY FIRST 2 BYTE|
000001B0: 53 00 E5 09 78 00 81 54 B2 31 A4 32 3A A1 23 32 |S...x..T.1.2:.#2|
000001C0: 2C 41 24 3A A1 23 33 2C 42 24 3A 82 3A 8F 20 20 |,A$:.#3,B$:.:. |
000001D0: 54 48 52 4F 57 20 41 57 41 59 20 4C 49 4E 45 20 |THROW AWAY LINE |
000001E0: 4C 49 4E 4B 53 00 FD 09 82 00 41 B2 30 3A 8B 41 |LINKS.....A.0:.A|
000001F0: 24 B3 B1 22 22 A7 41 B2 C6 28 41 24 29 00 15 0A |$.."".A..(A$)...|
00000200: 8C 00 42 B2 30 3A 8B 42 24 B3 B1 22 22 A7 42 B2 |..B.0:.B$.."".B.|
00000210: C6 28 42 24 29 00 2A 0A 96 00 8B 20 41 B2 30 20 |.(B$).*.... A.0 |
00000220: AF 20 42 B2 30 20 A7 33 30 30 00 41 0A A0 00 8B |. B.0 .300.A....|
00000230: 41 B2 30 A7 4C 41 B2 36 34 30 30 30 3A 89 31 38 |A.0.LA.64000:.18|
00000240: 30 00 5C 0A AA 00 8D 34 38 30 3A 8F 20 47 45 54 |0.\....480:. GET|
00000250: 20 4C 49 4E 45 20 4E 55 4D 42 45 52 00 73 0A B4 | LINE NUMBER.s..|
00000260: 00 8B 42 B2 30 A7 4C 42 B2 36 34 30 30 30 3A 89 |..B.0.LB.64000:.|
00000270: 32 30 30 00 8E 0A BE 00 8D 35 32 30 3A 8F 20 47 |200......520:. G|
00000280: 45 54 20 4C 49 4E 45 20 4E 55 4D 42 45 52 00 BF |ET LINE NUMBER..|
00000290: 0A C8 00 8B 4C 41 B3 B1 4C 42 20 A7 20 8D 33 32 |....LA..LB . .32|
000002A0: 30 3A 8F 20 20 43 48 45 43 4B 20 46 4F 52 20 44 |0:. CHECK FOR D|
000002B0: 49 46 46 45 52 45 4E 54 20 4C 49 4E 45 20 23 00 |IFFERENT LINE #.|
000002C0: DA 0A D2 00 8B 4C 41 B2 36 34 30 30 30 AF 4C 42 |.....LA.64000.LB|
000002D0: B2 36 34 30 30 30 A7 33 30 30 00 F7 0A DC 00 99 |.64000.300......|
000002E0: 22 C3 48 45 43 4B 49 4E 47 20 4C 49 4E 45 22 4C |".HECKING LINE"L|
000002F0: 41 3A 99 22 91 22 3B 00 00 0B E6 00 9E 20 53 41 |A:.".";...... SA|
00000300: 00 15 0B F0 00 8B 20 C2 28 46 52 AA 31 29 B2 30 |...... .(FR.1).0|
00000310: 20 A7 31 32 30 00 37 0B FA 00 99 20 4A 24 20 22 | .120.7.... J$ "|
00000320: CC 49 4E 45 53 22 4C 41 22 44 4F 20 4E 4F 54 20 |.INES"LA"DO NOT |
00000330: 41 47 52 45 45 2E 22 00 4B 0B 04 01 8B 20 53 50 |AGREE.".K.... SP|
00000340: 24 B3 B1 22 59 22 20 A7 31 32 30 00 5B 0B 0E 01 |$.."Y" .120.[...|
00000350: 8B 20 54 47 B2 31 20 A7 20 98 34 00 80 0B 18 01 |. TG.1 . .4.....|
00000360: 54 47 B2 30 3A 98 34 2C 22 CC 49 4E 45 53 22 4C |TG.0:.4,".INES"L|
00000370: 41 22 44 4F 20 4E 4F 54 20 41 47 52 45 45 2E 22 |A"DO NOT AGREE."|
00000380: 00 89 0B 22 01 89 31 32 30 00 98 0B 2C 01 A0 32 |..."..120...,..2|
00000390: 3A A0 33 3A A0 34 3A 80 00 D0 0B 36 01 8F 20 2D |:.3:.4:....6.. -|
000003A0: 2D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |- |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 20 20 20 20 20 20 45 58 54 52 41 20 4C 49 4E 45 | EXTRA LINE|
000003D0: 00 E2 0B 40 01 8B 20 4C 41 B1 B2 4C 42 20 A7 33 |...@.. LA..LB .3|
000003E0: 39 30 00 11 0C 4A 01 99 20 4A 24 22 CC 49 4E 45 |90...J.. J$".INE|
000003F0: 22 4C 41 22 49 4E 20 12 20 22 46 31 24 22 20 92 |"LA"IN . "F1$" .|
00000400: 20 4E 4F 54 20 49 4E 20 12 20 22 46 32 24 22 2E | NOT IN . "F2$".|
00000410: 22 00 2B 0C 54 01 8B 20 53 50 24 B2 22 59 22 20 |".+.T.. SP$."Y" |
00000420: AF 20 54 47 B2 30 20 A7 20 98 34 00 64 0C 5E 01 |. TG.0 . .4.d.^.|
00000430: 54 47 B2 31 3A 8B 20 53 50 24 B2 22 59 22 20 A7 |TG.1:. SP$."Y" .|
00000440: 20 98 34 2C 22 CC 49 4E 45 22 4C 41 22 49 4E 20 | .4,".INE"LA"IN |
00000450: 22 46 31 24 22 20 4E 4F 54 20 49 4E 20 22 46 32 |"F1$" NOT IN "F2|
00000460: 24 22 2E 22 00 77 0C 68 01 97 20 46 52 2C 32 3A |$".".w.h.. FR,2:|
00000470: 9E 20 53 41 AA 35 35 00 AD 0C 72 01 A1 23 32 2C |. SA.55...r..#2,|
00000480: 41 31 24 3A A1 23 32 2C 41 32 24 3A 8B 20 41 31 |A1$:.#2,A2$:. A1|
00000490: 24 B2 22 22 20 AF 20 41 32 24 B2 22 22 20 A7 20 |$."" . A2$."" . |
000004A0: 4C 41 B2 36 34 30 30 30 3A 89 33 32 30 00 CC 0C |LA.64000:.320...|
000004B0: 7C 01 8D 34 38 30 3A 89 33 32 30 3A 8F 20 47 45 ||..480:.320:. GE|
000004C0: 54 20 4E 45 57 20 4C 49 4E 45 20 23 00 DE 0C 86 |T NEW LINE #....|
000004D0: 01 8B 20 4C 42 B1 B2 4C 41 20 A7 34 36 30 00 0D |.. LB..LA .460..|
000004E0: 0D 90 01 99 20 4A 24 22 CC 49 4E 45 22 4C 42 22 |.... J$".INE"LB"|
000004F0: 49 4E 20 12 20 22 46 32 24 22 20 92 20 4E 4F 54 |IN . "F2$" . NOT|
00000500: 20 49 4E 20 12 20 22 46 31 24 22 2E 22 00 27 0D | IN . "F1$".".'.|
00000510: 9A 01 8B 20 53 50 24 B2 22 59 22 20 AF 20 54 47 |... SP$."Y" . TG|
00000520: B2 30 20 A7 20 98 34 00 60 0D A4 01 54 47 B2 31 |.0 . .4.`...TG.1|
00000530: 3A 8B 20 53 50 24 B2 22 59 22 20 A7 20 98 34 2C |:. SP$."Y" . .4,|
00000540: 22 CC 49 4E 45 22 4C 42 22 49 4E 20 22 46 32 24 |".INE"LB"IN "F2$|
00000550: 22 20 4E 4F 54 20 49 4E 20 22 46 31 24 22 2E 22 |" NOT IN "F1$"."|
00000560: 00 73 0D AE 01 97 20 46 52 2C 33 3A 9E 20 53 41 |.s.... FR,3:. SA|
00000570: AA 35 35 00 A4 0D B8 01 A1 23 33 2C 42 31 24 3A |.55......#3,B1$:|
00000580: A1 23 33 2C 42 32 24 3A 8B 42 31 24 B2 22 22 AF |.#3,B2$:.B1$."".|
00000590: 42 32 24 B2 22 22 A7 4C 42 B2 36 34 30 30 30 3A |B2$."".LB.64000:|
000005A0: 89 33 32 30 00 B2 0D C2 01 8D 35 32 30 3A 89 33 |.320......520:.3|
000005B0: 32 30 00 B8 0D CC 01 8E 00 D2 0D D6 01 8F 20 2D |20............ -|
000005C0: 2D 20 47 45 54 20 4C 49 4E 45 20 4E 55 4D 42 45 |- GET LINE NUMBE|
000005D0: 52 53 00 E6 0D E0 01 A1 23 32 2C 41 31 24 3A A1 |RS......#2,A1$:.|
000005E0: 23 32 2C 41 32 24 00 02 0E EA 01 41 31 B2 30 3A |#2,A2$.....A1.0:|
000005F0: 8B 41 31 24 B3 B1 22 22 A7 41 31 B2 C6 28 41 31 |.A1$.."".A1..(A1|
00000600: 24 29 00 1E 0E F4 01 41 32 B2 30 3A 8B 41 32 24 |$).....A2.0:.A2$|
00000610: B3 B1 22 22 A7 41 32 B2 C6 28 41 32 24 29 00 31 |.."".A2..(A2$).1|
00000620: 0E FE 01 4C 41 B2 41 32 AC 32 35 36 AA 41 31 3A |...LA.A2.256.A1:|
00000630: 8E 00 45 0E 08 02 A1 23 33 2C 42 31 24 3A A1 23 |..E....#3,B1$:.#|
00000640: 33 2C 42 32 24 00 61 0E 12 02 42 31 B2 30 3A 8B |3,B2$.a...B1.0:.|
00000650: 42 31 24 B3 B1 22 22 A7 42 31 B2 C6 28 42 31 24 |B1$.."".B1..(B1$|
00000660: 29 00 7D 0E 1C 02 42 32 B2 30 3A 8B 42 32 24 B3 |).}...B2.0:.B2$.|
00000670: B1 22 22 A7 42 32 B2 C6 28 42 32 24 29 00 90 0E |."".B2..(B2$)...|
00000680: 26 02 4C 42 B2 42 32 AC 32 35 36 AA 42 31 3A 8E |&.LB.B2.256.B1:.|
00000690: 00 B1 0E 30 02 83 20 31 36 39 2C 30 2C 31 33 33 |...0.. 169,0,133|
000006A0: 2C 32 35 32 2C 31 36 32 2C 32 2C 33 32 2C 31 39 |,252,162,2,32,19|
000006B0: 38 00 D6 0E 3A 02 83 20 32 35 35 2C 31 36 30 2C |8...:.. 255,160,|
000006C0: 32 35 35 2C 32 30 30 2C 33 32 2C 32 30 37 2C 32 |255,200,32,207,2|
000006D0: 35 35 2C 32 34 30 00 F7 0E 44 02 83 20 36 2C 31 |55,240...D.. 6,1|
000006E0: 35 33 2C 36 36 2C 31 39 32 2C 37 36 2C 31 31 2C |53,66,192,76,11,|
000006F0: 31 39 32 2C 31 33 32 00 1A 0F 4E 02 83 20 32 35 |192,132...N.. 25|
00000700: 31 2C 31 36 32 2C 33 2C 33 32 2C 31 39 38 2C 32 |1,162,3,32,198,2|
00000710: 35 35 2C 31 36 30 2C 32 35 35 00 3D 0F 58 02 83 |55,160,255.=.X..|
00000720: 20 32 30 30 2C 33 32 2C 32 30 37 2C 32 35 35 2C | 200,32,207,255,|
00000730: 32 34 30 2C 31 30 2C 32 31 37 2C 36 36 00 61 0F |240,10,217,66.a.|
00000740: 62 02 83 20 31 39 32 2C 32 34 30 2C 32 34 35 2C |b.. 192,240,245,|
00000750: 32 33 30 2C 32 35 32 2C 37 36 2C 33 32 2C 31 39 |230,252,76,32,19|
00000760: 32 00 84 0F 6C 02 83 20 31 39 36 2C 32 35 31 2C |2...l.. 196,251,|
00000770: 32 34 30 2C 32 2C 32 33 30 2C 32 35 32 2C 39 36 |240,2,230,252,96|
00000780: 2C 31 36 36 00 A8 0F 76 02 83 20 32 35 31 2C 33 |,166...v.. 251,3|
00000790: 32 2C 31 39 38 2C 32 35 35 2C 33 32 2C 32 30 37 |2,198,255,32,207|
000007A0: 2C 32 35 35 2C 32 30 38 00 B5 0F 80 02 83 20 32 |,255,208...... 2|
000007B0: 35 31 2C 39 36 00 DE 0F 8A 02 9F 31 35 2C 38 2C |51,96......15,8,|
000007C0: 31 35 3A 84 31 35 2C 41 2C 42 24 2C 43 2C 44 3A |15:.15,A,B$,C,D:|
000007D0: 8B 41 A7 99 41 2C 42 24 2C 43 2C 44 3A 90 00 E4 |.A..A,B$,C,D:...|
000007E0: 0F 94 02 8E 00 00 00 |....... |
..$...SA.49152:CS.10600:FR.251:."..".D..
..T.SA.SA.65:.A:X.X.A:.T,A:..N....X..CS.
."ERROR IN DATA STATEMENTS.":..Y.(..G(14
)...2.."NAME OF FIRST PROGRAM ";F1$:."NA
ME OF SECOND PROGRAM";F2$.Y.<..".OUTPUT
TO PRINTER? Y/N"...F.. SP$:.SP$."" .70.
'.P..SP$."Y". . 4,4,7:.4,"COMPARING "F1$
" TO "F2$".":.4.Y.Z.J$."
....................".Z.D.. 2,8,2,F1
$:. 3,8,3,F2$:.650...N..T.1.2:.#2,A$:.#3
,B$:.:. THROW AWAY FIRST 2 BYTES...X..T
.1.2:.#2,A$:.#3,B$:.:. THROW AWAY LINE
LINKS.....A.0:.A$.."".A.F(A$).....B.0:.B
$.."".B.F(B$).*.... A.0 . B.0 .300.A. ..
A.0.LA.64000:.180.\....480:. GET LINE NU
MBER.S....B.0.LB.64000:.200......520:. G
ET LINE NUMBER...H..LA..LB . .320:. CHE
CK FOR DIFFERENT LINE #.Z.R..LA.64000.LB
.64000.300......"CHECKING LINE"LA:.".";.
..... SA...... B(FR.1).0 .120.7.... J$ "
LINES"LA"DO NOT AGREE.".K.... SP$.."Y" .
120.[.... TG.1 . .4.....TG.0:.4,"LINES"L
A"DO NOT AGREE."..."..120...,. 2: 3: 4:.
.P.6.. --
EXTRA LINE...@.. LA..LB .390...J..
J$"LINE"LA"IN . "F1$" . NOT IN . "F2$".
".+.T.. SP$."Y" . TG.0 . .4.D.^.TG.1:. S
P$."Y" . .4,"LINE"LA"IN "F1$" NOT IN "F2
$".".W.H.. FR,2:. SA.55...R..#2,A1$:.#2,
A2$:. A1$."" . A2$."" . LA.64000:.320.L.
|..480:.320:. GET NEW LINE #...... LB..L
A .460...... J$"LINE"LB"IN . "F2$" . NOT
IN . "F1$".".'.... SP$."Y" . TG.0 . .4.
`...TG.1:. SP$."Y" . .4,"LINE"LB"IN "F2$
" NOT IN "F1$".".S.... FR,3:. SA.55.....
.#3,B1$:.#3,B2$:.B1$."".B2$."".LB.64000:
.320...B..520:.320...L...R.V.. -- GET LI
NE NUMBERS......#2,A1$:.#2,A2$.....A1.0:
.A1$.."".A1.F(A1$).....A2.0:.A2$.."".A2.
F(A2$).1...LA.A2.256.A1:..E....#3,B1$:.#
3,B2$.A...B1.0:.B1$.."".B1.F(B1$).}...B2
.0:.B2$.."".B2.F(B2$)...&.LB.B2.256.B1:.
...0.. 169,0,133,252,162,2,32,198.V.:..
255,160,255,200,32,207,255,240...D.. 6,1
53,66,192,76,11,192,132...N.. 251,162,3,
32,198,255,160,255.=.X.. 200,32,207,255,
240,10,217,66.A.B.. 192,240,245,230,252,
76,32,192...L.. 196,251,240,2,230,252,96
,166...V.. 251,32,198,255,32,207,255,208
...... 251,96......15,8,15:.15,A,B$,C,D:
.A..A,B$,C,D:..........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL