> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 0A 00 97 20 35 33 32 38 30 2C 31 35 |....... 53280,15|
00000010: 3A 97 20 35 33 32 38 31 2C 31 35 00 52 08 14 00 |:. 53281,15.R...|
00000020: 8B 20 58 B2 31 20 A7 20 89 34 30 3A 8F 20 46 4C |. X.1 . .40:. FL|
00000030: 41 47 20 58 20 50 52 45 56 45 4E 54 53 20 52 45 |AG X PREVENTS RE|
00000040: 4C 4F 41 44 49 4E 47 20 49 4E 20 4C 49 4E 45 20 |LOADING IN LINE |
00000050: 33 30 00 70 08 1E 00 58 B2 31 3A 93 20 22 30 3A |30.p...X.1:. "0:|
00000060: 4D 4C 20 42 41 53 45 2E 4F 42 4A 22 2C 38 2C 31 |ML BASE.OBJ",8,1|
00000070: 00 9B 08 28 00 85 20 22 93 11 1D 1C 48 4F 57 20 |...(.. "....HOW |
00000080: 4D 41 4E 59 20 45 4E 54 52 49 45 53 22 3B 4E 3A |MANY ENTRIES";N:|
00000090: 4E B2 4E AB 31 3A 99 22 90 22 3B 00 BD 08 32 00 |N.N.1:.".";...2.|
000000A0: 4E 44 25 B2 4E 3A 86 20 52 50 25 28 4E AA 32 29 |ND%.N:. RP%(N.2)|
000000B0: 2C 4E 24 28 31 2C 4E 29 2C 44 28 4E 29 00 D5 08 |,N$(1,N),D(N)...|
000000C0: 3C 00 81 20 49 B2 30 20 A4 20 4E 3A 81 20 4B B2 |<.. I.0 . N:. K.|
000000D0: 30 20 A4 20 31 00 EB 08 46 00 8B 20 4B B2 30 20 |0 . 1...F.. K.0 |
000000E0: A7 20 99 20 22 11 4E 41 4D 45 3F 00 05 09 50 00 |. . ".NAME?...P.|
000000F0: 8B 20 4B B2 31 20 A7 20 99 20 22 11 41 44 44 52 |. K.1 . . ".ADDR|
00000100: 45 53 53 3F 22 00 13 09 5A 00 85 20 4E 24 28 4B |ESS?"...Z.. N$(K|
00000110: 2C 49 29 00 1B 09 64 00 82 20 4B 00 30 09 6E 00 |,I)...d.. K.0.n.|
00000120: 85 20 22 11 53 41 4C 41 52 59 22 3B 44 28 49 29 |. ".SALARY";D(I)|
00000130: 00 38 09 78 00 82 20 49 00 5B 09 82 00 52 50 28 |.8.x.. I.[...RP(|
00000140: 30 29 B2 30 3A 85 22 11 1C 53 4F 52 54 20 4F 52 |0).0:."..SORT OR|
00000150: 20 53 45 41 52 43 48 22 3B 53 24 00 70 09 8C 00 | SEARCH";S$.p...|
00000160: 8B 20 53 24 B2 22 53 4F 52 54 22 20 A7 31 37 30 |. S$."SORT" .170|
00000170: 00 87 09 96 00 8B 20 53 24 B2 22 53 45 41 52 43 |...... S$."SEARC|
00000180: 48 22 20 A7 33 33 30 00 90 09 A0 00 89 31 33 30 |H" .330......130|
00000190: 00 BD 09 AA 00 85 20 22 11 53 4F 52 54 20 42 59 |...... ".SORT BY|
000001A0: 20 4E 41 4D 45 2C 20 41 44 44 52 45 53 53 2C 20 | NAME, ADDRESS, |
000001B0: 4F 52 20 53 41 4C 41 52 59 22 3B 51 24 00 D1 09 |OR SALARY";Q$...|
000001C0: B4 00 85 20 22 11 41 20 4F 52 20 44 22 3B 41 44 |... ".A OR D";AD|
000001D0: 24 00 E7 09 BE 00 8B 20 51 24 B3 B1 22 4E 41 4D |$...... Q$.."NAM|
000001E0: 45 22 20 A7 32 33 30 00 00 0A C8 00 8B 20 41 44 |E" .230...... AD|
000001F0: 24 B2 22 41 22 20 A7 20 58 B2 30 3A 8D 34 39 30 |$."A" . X.0:.490|
00000200: 00 19 0A D2 00 8B 20 41 44 24 B2 22 44 22 20 A7 |...... AD$."D" .|
00000210: 20 58 B2 30 3A 8D 35 30 30 00 22 0A DC 00 89 33 | X.0:.500."....3|
00000220: 30 30 00 3B 0A E6 00 8B 20 51 24 B3 B1 22 41 44 |00.;.... Q$.."AD|
00000230: 44 52 45 53 53 22 20 A7 32 37 30 00 54 0A F0 00 |DRESS" .270.T...|
00000240: 8B 20 41 44 24 B2 22 41 22 20 A7 20 58 B2 31 3A |. AD$."A" . X.1:|
00000250: 8D 34 39 30 00 6D 0A FA 00 8B 20 41 44 24 B2 22 |.490.m.... AD$."|
00000260: 44 22 20 A7 20 58 B2 31 3A 8D 35 30 30 00 76 0A |D" . X.1:.500.v.|
00000270: 04 01 89 33 30 30 00 8E 0A 0E 01 8B 20 51 24 B3 |...300...... Q$.|
00000280: B1 22 53 41 4C 41 52 59 22 20 A7 31 37 30 00 A3 |."SALARY" .170..|
00000290: 0A 18 01 8B 20 41 44 24 B2 22 41 22 20 A7 20 8D |.... AD$."A" . .|
000002A0: 35 31 30 00 B8 0A 22 01 8B 20 41 44 24 B2 22 44 |510...".. AD$."D|
000002B0: 22 20 A7 20 8D 35 32 30 00 E9 0A 2C 01 99 22 93 |" . .520...,..".|
000002C0: 90 22 3A 81 49 B2 30 20 A4 20 4E 3A 20 81 4B B2 |.":.I.0 . N: .K.|
000002D0: 30 20 A4 20 31 3A 99 4E 24 28 4B 2C 49 29 2C 3A |0 . 1:.N$(K,I),:|
000002E0: 82 20 4B 3A 99 44 28 49 29 00 F3 0A 36 01 99 3A |. K:.D(I)...6..:|
000002F0: 82 20 49 00 FC 0A 40 01 89 35 38 30 00 28 0B 4A |. I...@..580.(.J|
00000300: 01 85 20 22 11 53 45 41 52 43 48 20 4E 41 4D 45 |.. ".SEARCH NAME|
00000310: 2C 20 41 44 44 52 45 53 53 20 4F 52 20 53 41 4C |, ADDRESS OR SAL|
00000320: 41 52 59 22 3B 4E 41 24 00 3F 0B 54 01 8B 20 4E |ARY";NA$.?.T.. N|
00000330: 41 24 B3 B1 22 4E 41 4D 45 22 20 A7 33 37 30 00 |A$.."NAME" .370.|
00000340: 5F 0B 5E 01 85 20 22 11 57 48 41 54 20 4E 41 4D |_.^.. ".WHAT NAM|
00000350: 45 22 3B 53 52 24 3A 58 B2 30 3A 8D 35 34 30 00 |E";SR$:X.0:.540.|
00000360: 68 0B 68 01 89 34 35 30 00 82 0B 72 01 8B 20 4E |h.h..450...r.. N|
00000370: 41 24 B3 B1 22 41 44 44 52 45 53 53 22 20 A7 34 |A$.."ADDRESS" .4|
00000380: 30 30 00 A5 0B 7C 01 85 20 22 11 57 48 41 54 20 |00...|.. ".WHAT |
00000390: 41 44 44 52 45 53 53 22 3B 53 52 24 3A 58 B2 31 |ADDRESS";SR$:X.1|
000003A0: 3A 8D 35 34 30 00 AE 0B 86 01 89 34 35 30 00 C8 |:.540......450..|
000003B0: 0B 90 01 85 20 22 11 57 48 41 54 20 53 41 4C 41 |.... ".WHAT SALA|
000003C0: 52 59 20 24 22 3B 53 52 00 DE 0B 9A 01 85 20 22 |RY $";SR...... "|
000003D0: 11 48 2C 4C 20 4F 52 20 45 22 3B 45 51 24 00 F3 |.H,L OR E";EQ$..|
000003E0: 0B A4 01 8B 20 45 51 24 B2 22 45 22 20 A7 20 8D |.... EQ$."E" . .|
000003F0: 35 37 30 00 08 0C AE 01 8B 20 45 51 24 B2 22 48 |570...... EQ$."H|
00000400: 22 20 A7 20 8D 35 35 30 00 1D 0C B8 01 8B 20 45 |" . .550...... E|
00000410: 51 24 B2 22 4C 22 20 A7 20 8D 35 36 30 00 47 0C |Q$."L" . .560.G.|
00000420: C2 01 41 B2 52 50 25 28 30 29 3A 20 8B 20 41 B2 |..A.RP%(0): . A.|
00000430: 30 20 A7 20 99 20 22 11 4E 4F 54 20 46 4F 55 4E |0 . . ".NOT FOUN|
00000440: 44 22 3A 89 35 38 30 00 81 0C CC 01 99 22 93 90 |D":.580......"..|
00000450: 22 3A 81 49 B2 31 A4 41 3A 42 B2 52 50 25 28 49 |":.I.1.A:B.RP%(I|
00000460: 29 3A 81 20 4B B2 30 20 A4 20 31 3A 99 20 4E 24 |):. K.0 . 1:. N$|
00000470: 28 4B 2C 42 29 2C 3A 82 20 4B 3A 99 20 44 28 42 |(K,B),:. K:. D(B|
00000480: 29 00 90 0C D6 01 99 3A 82 20 49 3A 89 35 38 30 |)......:. I:.580|
00000490: 00 A2 0C E0 01 8F 20 2A 2A 2A 53 4F 52 54 53 2A |...... ***SORTS*|
000004A0: 2A 2A 00 C8 0C EA 01 97 20 38 32 38 2C 58 3A 9E |**...... 828,X:.|
000004B0: 20 34 39 31 35 32 3A 53 B0 54 2C 41 2C 4E 24 28 | 49152:S.T,A,N$(|
000004C0: 29 2C 44 28 29 2E 3A 8E 00 EE 0C F4 01 97 20 38 |),D().:....... 8|
000004D0: 32 38 2C 58 3A 9E 20 34 39 31 35 32 3A 53 B0 54 |28,X:. 49152:S.T|
000004E0: 2C 44 2C 4E 24 28 29 2C 44 28 29 2E 3A 8E 00 14 |,D,N$(),D().:...|
000004F0: 0D FE 01 97 20 38 32 38 2C 30 3A 9E 20 34 39 31 |.... 828,0:. 491|
00000500: 35 32 3A 53 B0 54 2C 41 2C 44 28 29 2C 4E 24 28 |52:S.T,A,D(),N$(|
00000510: 29 2E 3A 8E 00 3A 0D 08 02 97 20 38 32 38 2C 30 |).:..:.... 828,0|
00000520: 3A 9E 20 34 39 31 35 32 3A 53 B0 54 2C 44 2C 44 |:. 49152:S.T,D,D|
00000530: 28 29 2C 4E 24 28 29 2E 3A 8E 00 4F 0D 12 02 8F |(),N$().:..O....|
00000540: 20 2A 2A 2A 53 45 41 52 43 48 45 53 2A 2A 2A 00 | ***SEARCHES***.|
00000550: 74 0D 1C 02 97 20 38 32 38 2C 58 3A 9E 20 34 39 |t.... 828,X:. 49|
00000560: 31 35 32 3A 53 45 41 52 43 48 2C 45 2C 4E 24 28 |152:SEARCH,E,N$(|
00000570: 29 2E 3A 8E 00 98 0D 26 02 97 20 38 32 38 2C 30 |).:....&.. 828,0|
00000580: 3A 9E 20 34 39 31 35 32 3A 53 45 41 52 43 48 2C |:. 49152:SEARCH,|
00000590: 48 2C 44 28 29 2E 3A 8E 00 BC 0D 30 02 97 20 38 |H,D().:....0.. 8|
000005A0: 32 38 2C 30 3A 9E 20 34 39 31 35 32 3A 53 45 41 |28,0:. 49152:SEA|
000005B0: 52 43 48 2C 4C 2C 44 28 29 2E 3A 8E 00 E0 0D 3A |RCH,L,D().:....:|
000005C0: 02 97 20 38 32 38 2C 30 3A 9E 20 34 39 31 35 32 |.. 828,0:. 49152|
000005D0: 3A 53 45 41 52 43 48 2C 45 2C 44 28 29 2E 3A 8E |:SEARCH,E,D().:.|
000005E0: 00 14 0E 44 02 85 20 22 1C 41 4E 4F 54 48 45 52 |...D.. ".ANOTHER|
000005F0: 20 4F 50 45 52 41 54 49 4F 4E 3F 20 59 2F 4E 22 | OPERATION? Y/N"|
00000600: 3B 41 4E 24 3A 20 8B 20 41 4E 24 B2 22 59 22 20 |;AN$: . AN$."Y" |
00000610: A7 31 33 30 00 00 00 |.130... |
....... 53280,15:. 53281,15.R.... X.1 .
.40:. FLAG X PREVENTS RELOADING IN LINE
30.P...X.1:. "0:ML BASE.OBJ",8,1...(.. "
....HOW MANY ENTRIES";N:N.N.1:.".";...2.
ND%.N:. RP%(N.2),N$(1,N),D(N).U.<.. I.0
. N:. K.0 . 1...F.. K.0 . . ".NAME?...P.
. K.1 . . ".ADDRESS?"...Z.. N$(K,I)...D.
. K.0.N.. ".SALARY";D(I).8.X.. I.[...RP(
0).0:."..SORT OR SEARCH";S$.P.... S$."SO
RT" .170...... S$."SEARCH" .330... ..130
...... ".SORT BY NAME, ADDRESS, OR SALAR
Y";Q$.Q.... ".A OR D";AD$...... Q$.."NAM
E" .230...H.. AD$."A" . X.0:.490...R.. A
D$."D" . X.0:.500."....300.;.... Q$.."AD
DRESS" .270.T.... AD$."A" . X.1:.490.M..
.. AD$."D" . X.1:.500.V....300...... Q$.
."SALARY" .170...... AD$."A" . .510...".
. AD$."D" . .520...,.."..":.I.0 . N: .K.
0 . 1:.N$(K,I),:. K:.D(I)...6..:. I...@.
.580.(.J.. ".SEARCH NAME, ADDRESS OR SAL
ARY";NA$.?.T.. NA$.."NAME" .370._.^.. ".
WHAT NAME";SR$:X.0:.540.H.H..450...R.. N
A$.."ADDRESS" .400...|.. ".WHAT ADDRESS"
;SR$:X.1:.540......450.H.... ".WHAT SALA
RY $";SR...... ".H,L OR E";EQ$...... EQ$
."E" . .570...... EQ$."H" . .550...... E
Q$."L" . .560.G.B.A.RP%(0): . A.0 . . ".
NOT FOUND":.580...L.."..":.I.1.A:B.RP%(I
):. K.0 . 1:. N$(K,B),:. K:. D(B)...V..:
. I:.580...... ***SORTS***.H.... 828,X:.
49152:S.T,A,N$(),D().:....... 828,X:. 4
9152:S.T,D,N$(),D().:....... 828,0:. 491
52:S.T,A,D(),N$().:..:.... 828,0:. 49152
:S.T,D,D(),N$().:..O.... ***SEARCHES***.
T.... 828,X:. 49152:SEARCH,E,N$().:....&
.. 828,0:. 49152:SEARCH,H,D().:....0.. 8
28,0:. 49152:SEARCH,L,D().:....:.. 828,0
:. 49152:SEARCH,E,D().:....D.. ".ANOTHER
OPERATION? Y/N";AN$: . AN$."Y" .130...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL