Multiple names: ADDING MACHINE, 1520 ADD MACHINE

00000000: 01 08 2B 08 64 00 8F 20  41 44 44 49 4E 47 20 4D  |..+.d.. ADDING M|
00000010: 41 43 48 49 4E 45 20 46  4F 52 20 54 48 45 20 43  |ACHINE FOR THE C|
00000020: 4F 4D 4D 4F 44 4F 52 45  20 36 34 00 48 08 6E 00  |OMMODORE 64.H.n.|
00000030: 97 20 35 33 32 38 30 2C  31 3A 97 20 35 33 32 38  |. 53280,1:. 5328|
00000040: 31 2C 31 3A 99 22 9A 22  00 65 08 78 00 86 20 41  |1,1:.".".e.x.. A|
00000050: 28 33 30 30 29 3A 20 8F  20 41 4D 4F 55 4E 54 20  |(300): . AMOUNT |
00000060: 41 52 52 41 59 00 82 08  82 00 86 20 4C 24 28 33  |ARRAY...... L$(3|
00000070: 30 30 29 3A 20 8F 20 4C  41 42 45 4C 20 41 52 52  |00): . LABEL ARR|
00000080: 41 59 00 BF 08 87 00 96  20 A5 52 28 58 29 B2 B5  |AY...... .R(X)..|
00000090: 28 31 30 30 AC 58 AA 2E  35 29 AD 31 30 30 3A 8F  |(100.X..5).100:.|
000000A0: 20 52 4F 55 4E 44 4F 46  46 20 54 4F 20 54 57 4F  | ROUNDOFF TO TWO|
000000B0: 20 44 45 43 49 4D 41 4C  20 50 4C 41 43 45 53 00  | DECIMAL PLACES.|
000000C0: CA 08 8C 00 89 20 31 30  30 30 00 E4 08 C7 00 8F  |..... 1000......|
000000D0: 20 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  | ***************|
000000E0: 2A 2A 2A 2A 00 FE 08 C8  00 8F 20 41 4D 4F 55 4E  |****...... AMOUN|
000000F0: 54 20 45 44 49 54 20 52  4F 55 54 49 4E 45 00 18  |T EDIT ROUTINE..|
00000100: 09 C9 00 8F 20 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.... ***********|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A  00 2E 09 D2 00 8F 20 41  |********...... A|
00000120: 45 3D 41 4D 4F 55 4E 54  20 45 4E 54 52 59 00 51  |E=AMOUNT ENTRY.Q|
00000130: 09 DC 00 46 45 B2 30 3A  20 8F 20 53 45 54 20 45  |...FE.0: . SET E|
00000140: 52 52 4F 52 20 46 4C 41  47 20 54 4F 20 5A 45 52  |RROR FLAG TO ZER|
00000150: 4F 00 60 09 F0 00 8B 20  41 45 B2 30 20 A7 20 8E  |O.`.... AE.0 . .|
00000160: 00 7B 09 FA 00 8B 20 41  45 B1 39 39 39 39 39 2E  |.{.... AE.99999.|
00000170: 39 39 20 A7 20 46 45 B2  31 3A 8E 00 A1 09 04 01  |99 . FE.1:......|
00000180: 8B 20 C4 28 31 30 30 AC  41 45 29 B2 C4 28 B5 28  |. .(100.AE)..(.(|
00000190: 31 30 30 AC 41 45 AA 2E  30 30 31 29 29 20 A7 20  |100.AE..001)) . |
000001A0: 8E 00 AC 09 0E 01 46 45  B2 32 3A 8E 00 C7 09 2B  |......FE.2:....+|
000001B0: 01 8F 20 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.. *************|
000001C0: 2A 2A 2A 2A 2A 2A 2A 00  E2 09 2C 01 8F 20 50 52  |*******...,.. PR|
000001D0: 49 4E 54 20 46 4F 52 4D  41 54 20 52 4F 55 54 49  |INT FORMAT ROUTI|
000001E0: 4E 45 00 FD 09 2D 01 8F  20 2A 2A 2A 2A 2A 2A 2A  |NE...-.. *******|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 26 0A  |*************.&.|
00000200: 2E 01 8F 20 41 50 3D 41  4D 4F 55 4E 54 20 50 52  |... AP=AMOUNT PR|
00000210: 49 4E 54 2F 41 50 24 3D  53 54 52 49 4E 47 20 56  |INT/AP$=STRING V|
00000220: 45 52 53 49 4F 4E 00 3F  0A 2F 01 8F 20 4C 3D 4C  |ERSION.?./.. L=L|
00000230: 45 4E 47 54 48 20 4F 46  20 53 54 52 49 4E 47 00  |ENGTH OF STRING.|
00000240: 4A 0A 36 01 41 50 24 B2  22 22 00 6A 0A 40 01 8B  |J.6.AP$."".j.@..|
00000250: 20 41 50 B2 30 20 A7 20  41 50 24 B2 22 20 20 20  | AP.0 . AP$."   |
00000260: 20 20 20 30 2E 30 30 22  3A 8E 00 92 0A 45 01 8B  |   0.00":....E..|
00000270: 20 41 50 B1 39 39 39 39  39 39 2E 39 39 20 A7 20  | AP.999999.99 . |
00000280: 41 50 24 B2 22 2A 4F 56  45 52 46 4C 4F 57 2A 22  |AP$."*OVERFLOW*"|
00000290: 3A 8E 00 A0 0A 4A 01 41  50 B2 A5 52 28 41 50 29  |:....J.AP..R(AP)|
000002A0: 00 B7 0A 54 01 41 50 24  B2 C4 28 41 50 29 3A 4C  |...T.AP$..(AP):L|
000002B0: B2 C3 28 41 50 24 29 00  C5 0A 5E 01 81 20 53 B2  |..(AP$)...^.. S.|
000002C0: 31 20 A4 20 4C 00 E0 0A  68 01 8B 20 CA 28 41 50  |1 . L...h.. .(AP|
000002D0: 24 2C 53 2C 31 29 B2 22  2E 22 20 A7 20 34 30 30  |$,S,1)."." . 400|
000002E0: 00 E8 0A 72 01 82 20 53  00 11 0B 7C 01 41 50 24  |...r.. S...|.AP$|
000002F0: B2 C9 28 28 22 20 20 20  20 20 20 20 20 20 20 20  |..(("           |
00000300: 22 AA 41 50 24 29 2C 37  29 AA 22 2E 30 30 22 3A  |".AP$),7).".00":|
00000310: 8E 00 42 0B 90 01 8B 20  53 B2 4C AB 31 20 A7 20  |..B.... S.L.1 . |
00000320: 41 50 24 B2 C9 28 28 22  20 20 20 20 20 20 20 20  |AP$..(("        |
00000330: 20 20 20 22 AA 41 50 24  29 2C 39 29 AA 22 30 22  |   ".AP$),9)."0"|
00000340: 3A 8E 00 6F 0B 9A 01 8B  20 53 B2 4C AB 32 20 A7  |:..o.... S.L.2 .|
00000350: 20 41 50 24 B2 C9 28 28  22 20 20 20 20 20 20 20  | AP$..(("       |
00000360: 20 20 20 22 AA 41 50 24  29 2C 31 30 29 3A 8E 00  |   ".AP$),10):..|
00000370: 86 0B A4 01 41 50 24 B2  22 45 52 52 4F 52 20 46  |....AP$."ERROR F|
00000380: 4C 41 47 22 3A 8E 00 9C  0B E7 03 8F 20 2A 2A 2A  |LAG":....... ***|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 00 B1 0B E8  |************....|
000003A0: 03 8F 20 44 49 53 50 4C  41 59 20 53 43 52 45 45  |.. DISPLAY SCREE|
000003B0: 4E 00 C6 0B E9 03 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |N...... ********|
000003C0: 2A 2A 2A 2A 2A 2A 00 FB  0B F2 03 99 22 93 11 11  |******......"...|
000003D0: 11 11 11 11 11 11 20 20  20 20 B0 C0 C0 C0 C0 C0  |......    ......|
000003E0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000003F0: C0 C0 C0 C0 C0 C0 C0 C0  C0 AE 22 00 0E 0C FC 03  |..........".....|
00000400: 99 A6 34 29 22 DD 22 A6  33 30 29 22 DD 22 00 3A  |..4)".".30)".".:|
00000410: 0C 10 04 99 22 20 20 20  20 DD 20 20 41 20 44 20  |...."    .  A D |
00000420: 44 20 49 20 4E 20 47 20  20 4D 20 41 20 43 20 48  |D I N G  M A C H|
00000430: 20 49 20 4E 20 45 20 20  DD 22 00 4D 0C 1A 04 99  | I N E  .".M....|
00000440: A6 34 29 22 DD 22 A6 33  30 29 22 DD 22 00 79 0C  |.4)".".30)".".y.|
00000450: 24 04 99 22 20 20 20 20  AD C0 C0 C0 C0 C0 C0 C0  |$.."    ........|
00000460: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000470: C0 C0 C0 C0 C0 C0 C0 BD  22 00 A6 0C 2E 04 99 22  |........"......"|
00000480: 11 11 11 22 A6 36 29 22  9E 41 20 53 49 4D 55 4C  |...".6)".A SIMUL|
00000490: 41 54 49 4F 4E 20 4F 46  20 41 20 50 41 50 45 52  |ATION OF A PAPER|
000004A0: 20 54 41 50 45 22 00 C0  0C 38 04 99 A6 31 33 29  | TAPE"...8...13)|
000004B0: 22 41 44 44 49 4E 47 20  4D 41 43 48 49 4E 45 22  |"ADDING MACHINE"|
000004C0: 00 E1 0C 42 04 99 A6 31  30 29 22 46 4F 52 20 54  |...B...10)"FOR T|
000004D0: 48 45 20 43 4F 4D 4D 4F  44 4F 52 45 20 36 34 9A  |HE COMMODORE 64.|
000004E0: 22 00 F6 0C 4C 04 81 20  4A B2 31 20 A4 20 34 30  |"...L.. J.1 . 40|
000004F0: 30 30 3A 82 20 4A 00 10  0D CF 07 8F 20 2A 2A 2A  |00:. J...... ***|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000510: 00 2A 0D D0 07 8F 20 49  4E 54 52 4F 44 55 43 54  |.*.... INTRODUCT|
00000520: 49 4F 4E 20 53 43 52 45  45 4E 00 44 0D D1 07 8F  |ION SCREEN.D....|
00000530: 20 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  | ***************|
00000540: 2A 2A 2A 2A 00 77 0D DA  07 99 22 93 12 2A 2A 2A  |****.w...."..***|
00000550: 2A 2A 2A 2A 2A 2A 2A 2A  2A 20 41 44 44 49 4E 47  |********* ADDING|
00000560: 20 4D 41 43 48 49 4E 45  20 2A 2A 2A 2A 2A 2A 2A  | MACHINE *******|
00000570: 2A 2A 2A 2A 2A 92 22 00  AA 0D E4 07 99 22 11 11  |*****."......"..|
00000580: 20 54 48 49 53 20 50 52  4F 47 52 41 4D 20 53 49  | THIS PROGRAM SI|
00000590: 4D 55 4C 41 54 45 53 20  54 48 45 20 4F 50 45 52  |MULATES THE OPER|
000005A0: 41 54 49 4F 4E 20 4F 46  22 3B 00 D7 0D EE 07 99  |ATION OF";......|
000005B0: 22 41 20 50 41 50 45 52  20 54 41 50 45 20 41 44  |"A PAPER TAPE AD|
000005C0: 44 49 4E 47 20 4D 41 43  48 49 4E 45 2E 20 20 45  |DING MACHINE.  E|
000005D0: 4E 54 52 49 45 53 22 00  08 0E F8 07 99 22 43 4F  |NTRIES"......"CO|
000005E0: 4E 53 49 53 54 20 4F 46  20 41 20 4C 41 42 45 4C  |NSIST OF A LABEL|
000005F0: 20 28 30 2D 31 32 20 43  48 41 52 41 43 54 45 52  | (0-12 CHARACTER|
00000600: 53 29 20 41 4E 44 22 3B  00 33 0E 02 08 99 22 41  |S) AND";.3...."A|
00000610: 4E 20 41 4D 4F 55 4E 54  20 28 2D 39 39 39 39 39  |N AMOUNT (-99999|
00000620: 2E 39 39 20 54 4F 20 2B  39 39 39 39 39 2E 39 39  |.99 TO +99999.99|
00000630: 29 2E 22 00 64 0E 07 08  99 22 C0 C0 C0 C0 C0 C0  |).".d...."......|
00000640: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000650: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000660: C0 C0 22 3B 00 93 0E 08  08 99 22 20 20 20 20 9E  |..";......"    .|
00000670: 45 4E 54 45 52 20 43 4F  4D 4D 41 4E 44 53 20 41  |ENTER COMMANDS A|
00000680: 54 20 27 4C 41 42 45 4C  27 20 50 52 4F 4D 50 54  |T 'LABEL' PROMPT|
00000690: 2E 9A 22 00 C4 0E 09 08  99 22 C0 C0 C0 C0 C0 C0  |.."......"......|
000006A0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000006B0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000006C0: C0 C0 22 3B 00 E6 0E 0C  08 99 22 20 20 20 20 20  |..";......"     |
000006D0: 20 20 20 20 20 20 20 20  D1 20 43 4F 4D 4D 41 4E  |        . COMMAN|
000006E0: 44 53 20 D1 20 22 00 10  0F 11 08 99 22 11 52 45  |DS . "......".RE|
000006F0: 56 49 45 57 3A 20 9E 54  4F 20 4C 49 53 54 20 49  |VIEW: .TO LIST I|
00000700: 54 45 4D 53 20 4F 4E 20  53 43 52 45 45 4E 9A 22  |TEMS ON SCREEN."|
00000710: 00 3F 0F 16 08 99 22 43  48 41 4E 47 45 3A 20 9E  |.?...."CHANGE: .|
00000720: 54 4F 20 43 4F 52 52 45  43 54 20 4F 52 20 44 45  |TO CORRECT OR DE|
00000730: 4C 45 54 45 20 41 4E 20  45 4E 54 52 59 9A 22 00  |LETE AN ENTRY.".|
00000740: 6F 0F 1A 08 99 22 20 50  52 49 4E 54 3A 20 9E 54  |o...." PRINT: .T|
00000750: 4F 20 50 52 49 4E 54 20  41 4C 4C 20 45 4E 54 52  |O PRINT ALL ENTR|
00000760: 49 45 53 20 41 4E 44 20  54 4F 54 41 4C 9A 22 00  |IES AND TOTAL.".|
00000770: 97 0F 20 08 99 22 20 20  20 4E 45 57 3A 20 9E 54  |.. .."   NEW: .T|
00000780: 4F 20 57 4F 52 4B 20 4F  4E 20 4E 45 57 20 50 52  |O WORK ON NEW PR|
00000790: 4F 42 4C 45 4D 9A 22 00  C7 0F 25 08 99 22 C0 C0  |OBLEM."...%.."..|
000007A0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000007B0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000007C0: C0 C0 C0 C0 C0 C0 22 00  CD 0F 2A 08 99 00 EA 0F  |......"...*.....|
000007D0: B7 0B 8F 20 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |... ************|
000007E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 07 10 B8 0B 8F  |**********......|
000007F0: 20 41 44 44 49 4E 47 20  4D 41 43 48 49 4E 45 20  | ADDING MACHINE |
00000800: 53 45 43 54 49 4F 4E 00  24 10 B9 0B 8F 20 2A 2A  |SECTION.$.... **|
00000810: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000820: 2A 2A 2A 2A 00 42 10 BD  0B 42 B2 30 3A 8F 20 53  |****.B...B.0:. S|
00000830: 45 54 20 42 41 4C 41 4E  43 45 20 54 4F 20 5A 45  |ET BALANCE TO ZE|
00000840: 52 4F 00 60 10 C2 0B 4A  B2 30 3A 8F 20 53 45 54  |RO.`...J.0:. SET|
00000850: 20 43 4F 55 4E 54 45 52  20 54 4F 20 5A 45 52 4F  | COUNTER TO ZERO|
00000860: 00 6A 10 C7 0B 4A B2 4A  AA 31 00 8E 10 CC 0B 99  |.j...J.J.1......|
00000870: 22 12 49 54 45 4D 22 3B  C9 28 28 22 20 20 20 20  |".ITEM";.(("    |
00000880: 22 AA C4 28 4A 29 29 2C  34 29 3B 22 92 22 00 A7  |"..(J)),4);"."..|
00000890: 10 D6 0B 4C 45 24 B2 22  22 3A 85 22 20 4C 41 42  |...LE$."":." LAB|
000008A0: 45 4C 22 3B 4C 45 24 00  C9 10 E0 0B 8B 20 4C 45  |EL";LE$...... LE|
000008B0: 24 B2 22 52 45 56 49 45  57 22 20 A7 20 4A B2 4A  |$."REVIEW" . J.J|
000008C0: AB 31 3A 89 20 34 30 30  30 00 EB 10 EA 0B 8B 20  |.1:. 4000...... |
000008D0: 4C 45 24 B2 22 43 48 41  4E 47 45 22 20 A7 20 4A  |LE$."CHANGE" . J|
000008E0: B2 4A AB 31 3A 89 20 35  30 30 30 00 0C 11 F4 0B  |.J.1:. 5000.....|
000008F0: 8B 20 4C 45 24 B2 22 50  52 49 4E 54 22 20 A7 20  |. LE$."PRINT" . |
00000900: 4A B2 4A AB 31 3A 89 20  36 30 30 30 00 20 11 FE  |J.J.1:. 6000. ..|
00000910: 0B 8B 20 4C 45 24 B2 22  4E 45 57 22 20 A7 20 8A  |.. LE$."NEW" . .|
00000920: 00 44 11 08 0C 4C 45 24  B2 C8 28 28 4C 45 24 AA  |.D...LE$..((LE$.|
00000930: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 22 29  |"             ")|
00000940: 2C 31 32 29 00 52 11 12  0C 4C 24 28 4A 29 B2 4C  |,12).R...L$(J).L|
00000950: 45 24 00 68 11 1C 0C 41  45 B2 30 3A 85 22 41 4D  |E$.h...AE.0:."AM|
00000960: 4F 55 4E 54 22 3B 41 45  00 72 11 26 0C 8D 20 32  |OUNT";AE.r.&.. 2|
00000970: 30 30 00 8E 11 2B 0C 8B  20 46 45 B2 30 20 A7 20  |00...+.. FE.0 . |
00000980: 41 28 4A 29 B2 41 45 3A  89 20 33 32 30 30 00 AB  |A(J).AE:. 3200..|
00000990: 11 30 0C 99 22 12 2A 44  41 54 41 20 45 52 52 4F  |.0..".*DATA ERRO|
000009A0: 52 2A 92 22 3A 89 20 33  31 30 30 00 B6 11 80 0C  |R*.":. 3100.....|
000009B0: 42 B2 42 AA 41 45 00 BF  11 8A 0C 41 50 B2 42 00  |B.B.AE.....AP.B.|
000009C0: C9 11 94 0C 8D 20 33 30  30 00 EA 11 9E 0C 8B 20  |..... 300...... |
000009D0: 46 50 B2 31 20 A7 20 99  22 12 4F 55 54 50 55 54  |FP.1 . .".OUTPUT|
000009E0: 20 45 52 52 4F 52 92 22  3A 80 00 04 12 A8 0C 99  | ERROR.":.......|
000009F0: A6 32 30 29 22 12 42 41  4C 41 4E 43 45 3E 92 22  |.20)".BALANCE>."|
00000A00: 3B 41 50 24 00 17 12 AD  0C 8B 20 4A B2 33 30 30  |;AP$...... J.300|
00000A10: 20 A7 20 33 32 36 30 00  22 12 B2 0C 89 20 33 30  | . 3260.".... 30|
00000A20: 31 35 00 39 12 BC 0C 99  22 12 41 52 52 41 59 20  |15.9....".ARRAY |
00000A30: 46 55 4C 4C 21 92 22 3A  80 00 4E 12 9F 0F 8F 20  |FULL!.":..N.... |
00000A40: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 00 63  |**************.c|
00000A50: 12 A0 0F 8F 20 52 45 56  49 45 57 20 53 45 43 54  |.... REVIEW SECT|
00000A60: 49 4F 4E 00 78 12 A1 0F  8F 20 2A 2A 2A 2A 2A 2A  |ION.x.... ******|
00000A70: 2A 2A 2A 2A 2A 2A 2A 2A  00 80 12 A2 0F 4B B2 30  |********.....K.0|
00000A80: 00 B2 12 AA 0F 99 22 93  12 20 20 20 20 20 20 20  |......"..       |
00000A90: 20 20 20 20 20 20 20 20  52 45 56 49 45 57 20 20  |        REVIEW  |
00000AA0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 92  |               .|
00000AB0: 11 22 00 DB 12 B4 0F 99  22 20 20 20 20 49 54 45  |."......"    ITE|
00000AC0: 4D 23 20 20 20 20 20 20  4C 41 42 45 4C 20 20 20  |M#      LABEL   |
00000AD0: 20 20 20 20 41 4D 4F 55  4E 54 22 00 06 13 BE 0F  |    AMOUNT".....|
00000AE0: 99 22 20 20 20 20 C0 C0  C0 C0 C0 20 20 C0 C0 C0  |."    .....  ...|
00000AF0: C0 C0 C0 C0 C0 C0 C0 C0  C0 20 20 C0 C0 C0 C0 C0  |.........  .....|
00000B00: C0 C0 C0 C0 C0 22 00 10  13 C8 0F 4B B2 4B AA 31  |.....".....K.K.1|
00000B10: 00 1C 13 D2 0F 41 50 B2  41 28 4B 29 00 26 13 DC  |.....AP.A(K).&..|
00000B20: 0F 8D 20 33 30 30 00 54  13 F0 0F 99 A6 35 29 3B  |.. 300.T.....5);|
00000B30: C9 28 28 22 20 20 20 20  22 AA C4 28 4B 29 29 2C  |.(("    "..(K)),|
00000B40: 33 29 3B A6 33 29 3B 4C  24 28 4B 29 3B A6 32 29  |3);.3);L$(K);.2)|
00000B50: 3B 41 50 24 00 65 13 FA  0F 8B 20 4B B2 4A 20 A7  |;AP$.e.... K.J .|
00000B60: 20 34 32 30 30 00 80 13  04 10 8B 20 4B AD 31 35  | 4200...... K.15|
00000B70: B3 B1 B5 28 4B AD 31 35  29 20 A7 20 34 30 34 30  |...(K.15) . 4040|
00000B80: 00 A5 13 18 10 99 A6 39  29 22 11 12 3C 53 50 41  |.......9)"..<SPA|
00000B90: 43 45 42 41 52 3E 20 54  4F 20 43 4F 4E 54 49 4E  |CEBAR> TO CONTIN|
00000BA0: 55 45 92 11 22 00 BF 13  22 10 A1 20 47 24 3A 8B  |UE.."...".. G$:.|
00000BB0: 20 47 24 B3 B1 22 20 22  20 A7 20 34 31 33 30 00  | G$.." " . 4130.|
00000BC0: CA 13 2C 10 89 20 34 30  34 30 00 D3 13 68 10 41  |..,.. 4040...h.A|
00000BD0: 50 B2 42 00 DC 13 72 10  8D 33 30 30 00 F3 13 7C  |P.B...r..300...||
00000BE0: 10 99 A6 31 39 29 3B 22  54 4F 54 41 4C 3D 22 3B  |...19);"TOTAL=";|
00000BF0: 41 50 24 00 17 14 86 10  99 A6 39 29 22 11 12 3C  |AP$.......9)"..<|
00000C00: 53 50 41 43 45 42 41 52  3E 20 54 4F 20 43 4F 4E  |SPACEBAR> TO CON|
00000C10: 54 49 4E 55 45 92 22 00  31 14 90 10 A1 20 47 24  |TINUE.".1.... G$|
00000C20: 3A 8B 20 47 24 B3 B1 22  20 22 20 A7 20 34 32 34  |:. G$.." " . 424|
00000C30: 30 00 65 14 9A 10 99 22  93 20 20 20 52 45 54 55  |0.e....".   RETU|
00000C40: 52 4E 49 4E 47 20 54 4F  20 41 44 44 49 4E 47 20  |RNING TO ADDING |
00000C50: 4D 41 43 48 49 4E 45 2E  2E 2E 11 11 11 22 3A 89  |MACHINE......":.|
00000C60: 20 33 30 31 35 00 7A 14  87 13 8F 20 2A 2A 2A 2A  | 3015.z.... ****|
00000C70: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 8F 14 88 13 8F  |**********......|
00000C80: 20 43 48 41 4E 47 45 20  53 45 43 54 49 4F 4E 00  | CHANGE SECTION.|
00000C90: A4 14 89 13 8F 20 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..... **********|
00000CA0: 2A 2A 2A 2A 00 D3 14 92  13 99 22 93 C0 C0 C0 C0  |****......".....|
00000CB0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 43 48 41 4E 47 45  |..........CHANGE|
00000CC0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000CD0: 11 11 22 00 EE 14 9C 13  49 B2 30 3A 85 22 43 48  |..".....I.0:."CH|
00000CE0: 41 4E 47 45 20 49 54 45  4D 20 23 22 3B 49 00 23  |ANGE ITEM #";I.#|
00000CF0: 15 A6 13 8B 20 49 B3 31  20 B0 20 49 B1 4A 20 B0  |.... I.1 . I.J .|
00000D00: 20 49 B3 B1 B5 28 49 29  20 A7 20 99 22 12 2A 44  | I...(I) . .".*D|
00000D10: 41 54 41 20 45 52 52 4F  52 2A 92 22 3A 89 20 35  |ATA ERROR*.":. 5|
00000D20: 30 32 30 00 29 15 B0 13  99 00 35 15 BA 13 41 50  |020.).....5...AP|
00000D30: B2 41 28 49 29 00 3F 15  C4 13 8D 20 33 30 30 00  |.A(I).?.... 300.|
00000D40: 69 15 CE 13 99 22 12 4C  41 42 45 4C 3E 92 22 3B  |i....".LABEL>.";|
00000D50: 4C 24 28 49 29 3B A6 32  29 3B 22 12 41 4D 4F 55  |L$(I);.2);".AMOU|
00000D60: 4E 54 3E 92 22 3B 41 50  24 00 6F 15 D8 13 99 00  |NT>.";AP$.o.....|
00000D70: 88 15 E2 13 4C 45 24 B2  22 22 3A 85 22 20 4C 41  |....LE$."":." LA|
00000D80: 42 45 4C 22 3B 4C 45 24  00 A2 15 EC 13 8B 20 4C  |BEL";LE$...... L|
00000D90: 45 24 B2 22 52 45 56 49  45 57 22 20 A7 20 34 30  |E$."REVIEW" . 40|
00000DA0: 30 30 00 BC 15 F6 13 8B  20 4C 45 24 B2 22 43 48  |00...... LE$."CH|
00000DB0: 41 4E 47 45 22 20 A7 20  35 30 30 30 00 D5 15 00  |ANGE" . 5000....|
00000DC0: 14 8B 20 4C 45 24 B2 22  50 52 49 4E 54 22 20 A7  |.. LE$."PRINT" .|
00000DD0: 20 36 30 30 30 00 E9 15  0A 14 8B 20 4C 45 24 B2  | 6000...... LE$.|
00000DE0: 22 4E 45 57 22 20 A7 20  8A 00 0E 16 14 14 4C 45  |"NEW" . ......LE|
00000DF0: 24 B2 C8 28 28 4C 45 24  AA 22 20 20 20 20 20 20  |$..((LE$."      |
00000E00: 20 20 20 20 20 20 20 20  22 29 2C 31 32 29 00 1C  |        "),12)..|
00000E10: 16 1E 14 4C 24 28 49 29  B2 4C 45 24 00 29 16 23  |...L$(I).LE$.).#|
00000E20: 14 42 B2 42 AB 41 28 49  29 00 3F 16 28 14 41 45  |.B.B.A(I).?.(.AE|
00000E30: B2 30 3A 85 22 41 4D 4F  55 4E 54 22 3B 41 45 00  |.0:."AMOUNT";AE.|
00000E40: 49 16 32 14 8D 20 32 30  30 00 65 16 3C 14 8B 20  |I.2.. 200.e.<.. |
00000E50: 46 45 B2 30 20 A7 20 41  28 49 29 B2 41 45 3A 89  |FE.0 . A(I).AE:.|
00000E60: 20 35 32 30 30 00 82 16  46 14 99 22 12 2A 44 41  | 5200...F..".*DA|
00000E70: 54 41 20 45 52 52 4F 52  2A 92 22 3A 89 20 35 31  |TA ERROR*.":. 51|
00000E80: 36 30 00 8D 16 50 14 42  B2 42 AA 41 45 00 96 16  |60...P.B.B.AE...|
00000E90: 55 14 41 50 B2 42 00 A0  16 5A 14 8D 20 33 30 30  |U.AP.B...Z.. 300|
00000EA0: 00 BA 16 6E 14 99 A6 32  30 29 22 12 42 41 4C 41  |...n...20)".BALA|
00000EB0: 4E 43 45 3E 92 22 3B 41  50 24 00 EA 16 78 14 99  |NCE>.";AP$...x..|
00000EC0: 22 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |"...............|
00000ED0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000EE0: C0 C0 C0 C0 C0 C0 C0 C0  C0 22 00 F5 16 82 14 89  |........."......|
00000EF0: 20 33 30 31 35 00 09 17  6F 17 8F 20 2A 2A 2A 2A  | 3015...o.. ****|
00000F00: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 1D 17 70 17 8F 20  |*********...p.. |
00000F10: 50 52 49 4E 54 20 53 45  43 54 49 4F 4E 00 31 17  |PRINT SECTION.1.|
00000F20: 71 17 8F 20 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |q.. ************|
00000F30: 2A 00 5C 17 7A 17 99 22  93 11 11 11 11 11 11 11  |*.\.z.."........|
00000F40: 11 11 11 20 20 20 20 20  20 20 20 20 20 50 52 49  |...          PRI|
00000F50: 4E 54 49 4E 47 20 2E 2E  2E 2E 2E 22 00 65 17 84  |NTING .....".e..|
00000F60: 17 9F 34 2C 36 00 95 17  8E 17 98 34 2C 22 20 20  |..4,6......4,"  |
00000F70: 20 20 2A 2A 2A 2A 2A 2A  2A 2A 2A 20 41 44 44 49  |  ********* ADDI|
00000F80: 4E 47 20 4D 41 43 48 49  4E 45 20 2A 2A 2A 2A 2A  |NG MACHINE *****|
00000F90: 2A 2A 2A 2A 22 00 9F 17  93 17 98 34 3A 98 34 00  |****"......4:.4.|
00000FA0: CB 17 98 17 98 34 2C 22  20 20 20 20 20 49 54 45  |.....4,"     ITE|
00000FB0: 4D 23 20 20 20 20 20 4C  41 42 45 4C 20 20 20 20  |M#     LABEL    |
00000FC0: 20 20 20 20 41 4D 4F 55  4E 54 22 00 D2 17 A2 17  |    AMOUNT".....|
00000FD0: 98 34 00 E0 17 AC 17 81  20 4B B2 31 20 A4 20 4A  |.4...... K.1 . J|
00000FE0: 00 EC 17 B6 17 41 50 B2  41 28 4B 29 00 F6 17 C0  |.....AP.A(K)....|
00000FF0: 17 8D 20 33 30 30 00 2D  18 CA 17 98 34 2C 22 20  |.. 300.-....4," |
00001000: 20 20 20 20 20 22 3B C9  28 28 22 20 20 20 22 AA  |     ";.(("   ".|
00001010: C4 28 4B 29 29 2C 33 29  3B 22 20 20 20 22 3B 4C  |.(K)),3);"   ";L|
00001020: 24 28 4B 29 3B 22 20 20  22 3B 41 50 24 00 35 18  |$(K);"  ";AP$.5.|
00001030: D4 17 82 20 4B 00 3C 18  DE 17 98 34 00 45 18 E8  |... K.<....4.E..|
00001040: 17 41 50 B2 42 00 4F 18  F2 17 8D 20 33 30 30 00  |.AP.B.O.... 300.|
00001050: 77 18 FC 17 98 34 2C 22  20 20 20 20 20 20 20 20  |w....4,"        |
00001060: 20 20 20 20 20 20 20 20  20 20 20 54 4F 54 41 4C  |           TOTAL|
00001070: 3D 20 22 3B 41 50 24 00  84 18 06 18 98 34 3A 98  |= ";AP$......4:.|
00001080: 34 3A 98 34 00 8B 18 10  18 A0 34 00 96 18 1A 18  |4:.4......4.....|
00001090: 89 20 34 32 35 30 00 00  00                       |. 4250...       |

..+.D.. ADDING MACHINE FOR THE COMMODORE
 64.H.N.. 53280,1:. 53281,1:.".".E.X.. A
(300): . AMOUNT ARRAY...... L$(300): . L
ABEL ARRAY...... .R(X)..(100.X..5).100:.
 ROUNDOFF TO TWO DECIMAL PLACES.J.... 10
00...G.. *******************...H.. AMOUN
T EDIT ROUTINE...I.. *******************
...R.. AE=AMOUNT ENTRY.Q...FE.0: . SET E
RROR FLAG TO ZERO.`.... AE.0 . ..{.... A
E.99999.99 . FE.1:....... D(100.AE).D(.(
100.AE..001)) . ......FE.2:..G.+.. *****
***************...,.. PRINT FORMAT ROUTI
NE...-.. ********************.&.... AP=A
MOUNT PRINT/AP$=STRING VERSION.?./.. L=L
ENGTH OF STRING.J.6.AP$."".J.@.. AP.0 . 
AP$."      0.00":....E.. AP.999999.99 . 
AP$."*OVERFLOW*":.. .J.AP..R(AP)...T.AP$
.D(AP):L.C(AP$).E.^.. S.1 . L...H.. J(AP
$,S,1)."." . 400...R.. S...|.AP$.I(("   
        ".AP$),7).".00":..B.... S.L.1 . 
AP$.I(("           ".AP$),9)."0":..O....
 S.L.2 . AP$.I(("          ".AP$),10):..
....AP$."ERROR FLAG":....... ***********
****...... DISPLAY SCREEN.F.... ********
******......".........    ..............
..................".......4)".".30)".".:
...."    .  A D D I N G  M A C H I N E  
.".M.....4)".".30)".".Y.$.."    ........
........................"......"...".6)"
.A SIMULATION OF A PAPER TAPE"...8...13)
"ADDING MACHINE"...B...10)"FOR THE COMMO
DORE 64."...L.. J.1 . 4000:. J...O.. ***
****************.*.P.. INTRODUCTION SCRE
EN.D.Q.. *******************.W.Z.."..***
********* ADDING MACHINE ************.".
.....".. THIS PROGRAM SIMULATES THE OPER
ATION OF";.W...."A PAPER TAPE ADDING MAC
HINE.  ENTRIES"......"CONSIST OF A LABEL
 (0-12 CHARACTERS) AND";.3...."AN AMOUNT
 (-99999.99 TO +99999.99).".D...."......
..................................";....
.."    .ENTER COMMANDS AT 'LABEL' PROMPT
..".D...."..............................
..........";......"             Q COMMAN
DS Q "......".REVIEW: .TO LIST ITEMS ON 
SCREEN.".?...."CHANGE: .TO CORRECT OR DE
LETE AN ENTRY.".O...." PRINT: .TO PRINT 
ALL ENTRIES AND TOTAL."... .."   NEW: .T
O WORK ON NEW PROBLEM.".G.%.."..........
..............................".M.*.....
... **********************...... ADDING 
MACHINE SECTION.$.... ******************
****.B...B.0:. SET BALANCE TO ZERO.`.B.J
.0:. SET COUNTER TO ZERO.J.G.J.J.1...L..
".ITEM";I(("    ".D(J)),4);"."...V.LE$."
":." LABEL";LE$.I.... LE$."REVIEW" . J.J
.1:. 4000...... LE$."CHANGE" . J.J.1:. 5
000...... LE$."PRINT" . J.J.1:. 6000. ..
.. LE$."NEW" . ..D...LE$.H((LE$."       
      "),12).R...L$(J).LE$.H...AE.0:."AM
OUNT";AE.R.&.. 200...+.. FE.0 . A(J).AE:
. 3200...0..".*DATA ERROR*.":. 3100.....
B.B.AE.....AP.B.I.... 300...... FP.1 . .
".OUTPUT ERROR.":........20)".BALANCE>."
;AP$...... J.300 . 3260.".... 3015.9....
".ARRAY FULL!.":..N.... **************.C
. .. REVIEW SECTION.X.... **************
.....K.0......"..               REVIEW  
               .."......"    ITEM#      
LABEL       AMOUNT"......"    .....  ...
.........  .........."...H.K.K.1...R.AP.
A(K).&.... 300.T.....5);I(("    ".D(K)),
3);.3);L$(K);.2);AP$.E.... K.J . 4200...
... K.15...(K.15) . 4040.......9)"..<SPA
CEBAR> TO CONTINUE.."...".. G$:. G$.." "
 . 4130.J.,.. 4040.S.H.AP.B...R..300...|
...19);"TOTAL=";AP$.......9)"..<SPACEBAR
> TO CONTINUE.".1.... G$:. G$.." " . 424
0.E....".   RETURNING TO ADDING MACHINE.
.....":. 3015.Z.... **************......
 CHANGE SECTION...... **************.S..
.."...............CHANGE................
..".....I.0:."CHANGE ITEM #";I.#.... I.1
 . I.J . I...(I) . .".*DATA ERROR*.":. 5
020.).....5...AP.A(I).?.D.. 300.I.N..".L
ABEL>.";L$(I);.2);".AMOUNT>.";AP$.O.X...
....LE$."":." LABEL";LE$...... LE$."REVI
EW" . 4000...... LE$."CHANGE" . 5000.U..
.. LE$."PRINT" . 6000...... LE$."NEW" . 
......LE$.H((LE$."              "),12)..
...L$(I).LE$.).#.B.B.A(I).?.(.AE.0:."AMO
UNT";AE.I.2.. 200.E.<.. FE.0 . A(I).AE:.
 5200...F..".*DATA ERROR*.":. 5160...P.B
.B.AE...U.AP.B. .Z.. 300...N...20)".BALA
NCE>.";AP$...X..".......................
................."...... 3015...O.. ****
*********...P.. PRINT SECTION.1.Q.. ****
*********.\.Z.."...........          PRI
NTING .....".E....4,6......4,"    ******
*** ADDING MACHINE *********"......4:.4.
K....4,"     ITEM#     LABEL        AMOU
NT".R....4...... K.1 . J.....AP.A(K)....
.. 300.-.J..4,"      ";I(("   ".D(K)),3)
;"   ";L$(K);"  ";AP$.5.T.. K.<....4.E..
.AP.B.O.... 300.W....4,"                
   TOTAL= ";AP$......4:.4:.4..... 4.....
. 4250...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL