> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 00 00 8F 20 2A 2A 20 4E 4F 54 45 2F |..'.... ** NOTE/|
00000010: 43 4F 49 4E 20 41 4E 41 4C 59 53 49 53 20 46 4F |COIN ANALYSIS FO|
00000020: 52 20 36 34 20 2A 2A 00 2D 08 01 00 3A 00 72 08 |R 64 **.-...:.r.|
00000030: 32 00 8F 20 2A 20 52 45 41 44 20 44 41 54 41 20 |2.. * READ DATA |
00000040: 49 4E 54 4F 20 41 52 52 41 59 20 4E 43 28 29 2C |INTO ARRAY NC(),|
00000050: 20 41 4E 44 20 53 45 54 20 55 50 20 41 52 52 41 | AND SET UP ARRA|
00000060: 59 20 46 4F 52 20 51 55 41 4E 54 49 54 49 45 53 |Y FOR QUANTITIES|
00000070: 20 2A 00 A8 08 3C 00 83 20 39 2C 32 30 2C 31 30 | *...<.. 9,20,10|
00000080: 2C 35 2C 31 2C 2E 35 2C 2E 32 2C 2E 31 2C 2E 30 |,5,1,.5,.2,.1,.0|
00000090: 35 2C 2E 30 31 3A 8F 20 55 4B 20 44 45 4E 4F 4D |5,.01:. UK DENOM|
000000A0: 49 4E 41 54 49 4F 4E 53 00 C6 08 46 00 87 20 4E |INATIONS...F.. N|
000000B0: 55 4D 42 45 52 3A 20 86 20 4E 43 28 4E 55 29 2C |UMBER: . NC(NU),|
000000C0: 51 55 28 4E 55 29 00 E1 08 50 00 81 20 4A B2 31 |QU(NU)...P.. J.1|
000000D0: 20 A4 20 4E 55 3A 20 87 20 4E 43 28 4A 29 3A 20 | . NU: . NC(J): |
000000E0: 82 00 FD 08 64 00 8F 20 2A 20 49 4E 50 55 54 20 |....d.. * INPUT |
000000F0: 53 41 4C 41 52 59 20 44 41 54 41 20 2A 00 3B 09 |SALARY DATA *.;.|
00000100: 6E 00 85 20 22 93 23 20 4F 46 20 45 4D 50 4C 4F |n.. ".# OF EMPLO|
00000110: 59 45 45 53 22 3B 20 45 4D 50 4C 4F 59 45 45 53 |YEES"; EMPLOYEES|
00000120: 3A 20 86 20 53 41 4C 41 52 49 45 53 20 4F 46 20 |: . SALARIES OF |
00000130: 28 45 4D 50 4C 4F 59 45 45 53 29 00 5C 09 78 00 |(EMPLOYEES).\.x.|
00000140: 81 20 4A B2 31 20 A4 20 45 4D 3A 20 99 20 22 45 |. J.1 . EM: . "E|
00000150: 4D 50 4C 4F 59 45 45 20 23 22 4A 3B 00 8A 09 82 |MPLOYEE #"J;....|
00000160: 00 3A 3A 85 20 53 41 4C 41 52 59 20 4F 46 20 28 |.::. SALARY OF (|
00000170: 4A 29 3A 20 53 41 28 4A 29 B2 53 41 28 4A 29 20 |J): SA(J).SA(J) |
00000180: AA 20 4E 43 28 4E 55 29 AD 32 00 90 09 8C 00 82 |. NC(NU).2......|
00000190: 00 C5 09 C8 00 8F 20 2A 20 44 45 54 45 52 4D 49 |...... * DETERMI|
000001A0: 4E 45 20 52 45 51 55 49 52 45 44 20 43 4F 4D 42 |NE REQUIRED COMB|
000001B0: 49 4E 41 54 49 4F 4E 3B 20 53 54 41 52 54 20 48 |INATION; START H|
000001C0: 49 47 48 20 2A 00 DB 09 D2 00 81 20 4A B2 31 20 |IGH *...... J.1 |
000001D0: A4 20 45 4D 50 4C 4F 59 45 45 53 00 F0 09 DC 00 |. EMPLOYEES.....|
000001E0: 3A 3A 81 20 4B B2 31 20 A4 20 4E 55 4D 42 45 52 |::. K.1 . NUMBER|
000001F0: 00 2F 0A E6 00 3A 3A 3A 58 B2 B5 28 53 41 4C 28 |./...:::X..(SAL(|
00000200: 4A 29 AD 4E 43 28 4B 29 29 3A 20 53 41 4C 28 4A |J).NC(K)): SAL(J|
00000210: 29 B2 53 41 4C 28 4A 29 AB 58 AC 4E 43 28 4B 29 |).SAL(J).X.NC(K)|
00000220: 3A 20 51 55 28 4B 29 B2 51 55 28 4B 29 AA 58 00 |: QU(K).QU(K).X.|
00000230: 39 0A F0 00 3A 3A 82 20 4B 00 41 0A FA 00 82 20 |9...::. K.A.... |
00000240: 4A 00 59 0A 2C 01 8F 20 2A 20 50 52 49 4E 54 20 |J.Y.,.. * PRINT |
00000250: 52 45 53 55 4C 54 53 20 2A 00 6E 0A 36 01 99 3A |RESULTS *.n.6..:|
00000260: 20 99 20 22 41 4E 41 4C 59 53 49 53 3A 22 00 8E | . "ANALYSIS:"..|
00000270: 0A 40 01 81 20 4A B2 31 20 A4 20 4E 55 3A 20 8B |.@.. J.1 . NU: .|
00000280: 20 51 55 28 4A 29 B2 30 20 A7 20 33 34 30 00 A7 | QU(J).0 . 340..|
00000290: 0A 4A 01 99 20 51 55 28 4A 29 20 22 4F 46 20 5C |.J.. QU(J) "OF \|
000002A0: 22 20 4E 43 28 4A 29 00 AD 0A 54 01 82 00 00 00 |" NC(J)...T.....|
..'.... ** NOTE/COIN ANALYSIS FOR 64 **.
-...:.R.2.. * READ DATA INTO ARRAY NC(),
AND SET UP ARRAY FOR QUANTITIES *...<..
9,20,10,5,1,.5,.2,.1,.05,.01:. UK DENOM
INATIONS.F.F.. NUMBER: . NC(NU),QU(NU)..
.P.. J.1 . NU: . NC(J): ....D.. * INPUT
SALARY DATA *.;.N.. ".# OF EMPLOYEES"; E
MPLOYEES: . SALARIES OF (EMPLOYEES).\.X.
. J.1 . EM: . "EMPLOYEE #"J;.....::. SAL
ARY OF (J): SA(J).SA(J) . NC(NU).2......
.E.H.. * DETERMINE REQUIRED COMBINATION;
START HIGH *...R.. J.1 . EMPLOYEES.....
::. K.1 . NUMBER./...:::X..(SAL(J).NC(K)
): SAL(J).SAL(J).X.NC(K): QU(K).QU(K).X.
9...::. K.A.... J.Y.,.. * PRINT RESULTS
*.N.6..: . "ANALYSIS:"...@.. J.1 . NU: .
QU(J).0 . 340...J.. QU(J) "OF \" NC(J).
..T.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL