CASH
FILE INFORMATION
FILENAME(S): CASH
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 21:23:56
APPEARS ON: 1 disk(s)
FILE HASH
644441dc0d06a9ecb88d7e015b1f3038e808a48ab8e3cdabca210e2275816c27
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 31 1 | CASH | PRG | DuncanTwain | 20 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 0A 00 86 20 41 24 28 35 30 29 2C 42 |..!.... A$(50),B| 00000010: 24 28 35 30 29 2C 54 28 35 30 29 2C 47 28 35 30 |$(50),T(50),G(50| 00000020: 29 00 46 08 0F 00 81 49 B2 31 A4 35 30 3A 87 41 |).F....I.1.50:.A| 00000030: 24 28 49 29 2C 42 24 28 49 29 2C 54 28 49 29 2C |$(I),B$(I),T(I),| 00000040: 47 28 49 29 3A 82 00 4F 08 28 00 99 22 93 22 00 |G(I):..O.(..".".| 00000050: 75 08 32 00 81 20 58 B2 31 20 A4 20 33 36 20 20 |u.2.. X.1 . 36 | 00000060: A9 20 31 3A 99 20 A3 58 29 3B 3A 99 22 24 24 24 |. 1:. .X);:."$$$| 00000070: 22 3A 82 20 58 00 A3 08 63 00 99 22 20 20 20 20 |":. X...c.." | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 | ...............| 000000A0: A4 A4 22 00 D2 08 64 00 99 22 54 48 49 53 20 49 |.."...d.."THIS I| 000000B0: 53 20 54 48 45 20 47 41 4D 45 20 4F 46 20 20 12 |S THE GAME OF .| 000000C0: 24 24 43 41 53 48 20 52 45 47 49 53 54 45 52 24 |$$CASH REGISTER$| 000000D0: 24 22 00 00 09 6E 00 99 22 11 11 11 50 52 45 54 |$"...n.."...PRET| 000000E0: 45 4E 44 20 54 48 41 54 20 59 4F 55 20 41 52 45 |END THAT YOU ARE| 000000F0: 20 52 55 4E 4E 49 4E 47 20 41 20 43 41 53 48 22 | RUNNING A CASH"| 00000100: 00 2D 09 78 00 99 22 11 52 45 47 49 53 54 45 52 |.-.x..".REGISTER| 00000110: 20 41 54 20 41 20 4C 4F 43 41 4C 20 47 52 4F 43 | AT A LOCAL GROC| 00000120: 45 52 59 20 53 54 4F 52 45 2E 20 49 22 00 59 09 |ERY STORE. I".Y.| 00000130: 82 00 99 22 11 57 49 4C 4C 20 42 55 59 20 54 48 |...".WILL BUY TH| 00000140: 49 4E 47 53 20 41 4E 44 20 47 49 56 45 20 59 4F |INGS AND GIVE YO| 00000150: 55 20 4D 4F 4E 45 59 2E 22 00 7A 09 8C 00 99 22 |U MONEY.".z...."| 00000160: 11 59 4F 55 20 57 49 4C 4C 20 47 49 56 45 20 4D |.YOU WILL GIVE M| 00000170: 45 20 43 48 41 4E 47 45 2E 22 00 A9 09 91 00 99 |E CHANGE."......| 00000180: 22 11 59 4F 55 20 43 41 4E 20 47 49 56 45 20 4D |".YOU CAN GIVE M| 00000190: 45 20 54 48 45 20 43 48 41 4E 47 45 20 49 4E 20 |E THE CHANGE IN | 000001A0: 50 45 4E 4E 49 45 53 2C 22 00 D2 09 96 00 99 22 |PENNIES,"......"| 000001B0: 11 4E 49 43 4B 45 4C 53 2C 20 44 49 4D 45 53 2C |.NICKELS, DIMES,| 000001C0: 20 4F 52 20 57 48 41 54 45 56 45 52 2C 20 42 55 | OR WHATEVER, BU| 000001D0: 54 22 00 FF 09 A0 00 99 22 11 49 54 20 4D 55 53 |T"......".IT MUS| 000001E0: 54 20 41 44 44 20 55 50 20 54 4F 20 54 48 45 20 |T ADD UP TO THE | 000001F0: 43 4F 52 52 45 43 54 20 54 4F 54 41 4C 2E 22 00 |CORRECT TOTAL.".| 00000200: 2E 0A A1 00 99 22 11 20 20 20 20 20 20 20 20 20 |.....". | 00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 43 | ".C| 00000230: 0A A2 00 99 22 11 20 20 20 20 20 20 20 20 20 20 |....". | 00000240: 20 20 22 00 4B 0A A5 00 A1 41 24 00 6E 0A B4 00 | ".K....A$.n...| 00000250: 99 22 11 11 12 50 52 45 53 53 20 41 4E 59 20 4B |."...PRESS ANY K| 00000260: 45 59 20 54 4F 20 53 54 41 52 54 92 22 3A 00 85 |EY TO START.":..| 00000270: 0A B9 00 A1 20 5A 24 3A 8B 20 5A 24 B2 22 22 20 |.... Z$:. Z$."" | 00000280: A7 20 31 38 35 00 AD 0A C8 00 8F 2A 2A 41 24 3D |. 185......**A$=| 00000290: 4E 41 4D 45 20 4F 46 20 49 54 45 4D 20 49 4E 20 |NAME OF ITEM IN | 000002A0: 44 41 54 41 2C 42 24 3D 50 52 49 43 45 00 C6 0A |DATA,B$=PRICE...| 000002B0: CD 00 8F 2A 20 54 3D 50 52 49 43 45 2C 47 3D 50 |...* T=PRICE,G=P| 000002C0: 41 59 4D 45 4E 54 00 F8 0A D2 00 8F 20 53 3D 44 |AYMENT...... S=D| 000002D0: 4F 4C 4C 41 52 53 2C 48 3D 48 41 4C 46 20 44 4F |OLLARS,H=HALF DO| 000002E0: 4C 4C 41 52 53 2C 51 3D 51 55 41 52 54 45 52 53 |LLARS,Q=QUARTERS| 000002F0: 2C 44 3D 44 49 4D 45 53 00 12 0B DC 00 8F 2A 4E |,D=DIMES......*N| 00000300: 3D 4E 49 43 4B 45 4C 53 2C 50 3D 50 45 4E 4E 49 |=NICKELS,P=PENNI| 00000310: 45 53 00 29 0B 2C 01 8F 2A 2A 50 52 45 53 45 4E |ES.).,..**PRESEN| 00000320: 54 20 50 52 4F 42 4C 45 4D 00 32 0B 31 01 99 22 |T PROBLEM.2.1.."| 00000330: 93 22 00 47 0B 33 01 52 44 32 B2 B5 28 BB 28 30 |.".G.3.RD2..(.(0| 00000340: 29 AC 35 30 AA 31 29 00 79 0B 3B 01 99 22 11 49 |).50.1).y.;..".I| 00000350: 20 42 4F 55 47 48 54 20 22 3B 41 24 28 52 44 32 | BOUGHT ";A$(RD2| 00000360: 29 3B 22 20 43 4F 53 54 49 4E 47 20 22 3B 42 24 |);" COSTING ";B$| 00000370: 28 52 44 32 29 3B 22 2E 22 00 AB 0B 45 01 99 22 |(RD2);"."...E.."| 00000380: 11 49 20 47 49 56 45 20 59 4F 55 22 3B 47 28 52 |.I GIVE YOU";G(R| 00000390: 44 32 29 AD 31 30 30 3B 22 44 4F 4C 4C 41 52 28 |D2).100;"DOLLAR(| 000003A0: 53 29 20 46 4F 52 20 49 54 2E 22 00 D2 0B 4A 01 |S) FOR IT."...J.| 000003B0: 99 22 11 57 48 41 54 20 44 4F 20 59 4F 55 20 47 |.".WHAT DO YOU G| 000003C0: 49 56 45 20 4D 45 20 49 4E 20 43 48 41 4E 47 45 |IVE ME IN CHANGE| 000003D0: 3F 22 00 FE 0B 4C 01 99 22 11 53 54 41 52 54 20 |?"...L..".START | 000003E0: 57 49 54 48 20 44 4F 4C 4C 41 52 53 20 41 4E 44 |WITH DOLLARS AND| 000003F0: 20 57 4F 52 4B 20 44 4F 57 4E 20 54 4F 22 00 31 | WORK DOWN TO".1| 00000400: 0C 4E 01 99 22 11 50 45 4E 4E 49 45 53 2E 20 50 |.N..".PENNIES. P| 00000410: 52 45 53 53 20 12 3C 46 37 3E 92 20 54 4F 20 52 |RESS .<F7>. TO R| 00000420: 45 44 4F 20 54 48 45 20 50 52 4F 42 4C 45 4D 2E |EDO THE PROBLEM.| 00000430: 22 00 4F 0C 4F 01 8F 2A 2A 33 20 53 50 41 43 45 |".O.O..**3 SPACE| 00000440: 53 20 42 45 54 57 20 48 45 41 44 49 4E 47 53 00 |S BETW HEADINGS.| 00000450: 7F 0C 52 01 99 22 11 11 11 20 44 4F 4C 24 20 20 |..R.."... DOL$ | 00000460: 48 41 4C 46 24 20 20 20 51 54 52 53 20 20 20 44 |HALF$ QTRS D| 00000470: 49 4D 45 20 20 35 43 20 20 20 31 43 45 4E 54 00 |IME 5C 1CENT.| 00000480: A3 0C 59 01 8F 2A 4E 45 58 54 20 53 54 41 54 45 |..Y..*NEXT STATE| 00000490: 20 43 4C 52 53 20 4C 49 4E 45 20 49 46 20 45 52 | CLRS LINE IF ER| 000004A0: 52 4F 52 00 BE 0C 5E 01 8F 2A 4D 4F 56 45 20 54 |ROR...^..*MOVE T| 000004B0: 4F 20 45 4D 50 54 59 20 43 4F 4C 55 4D 4E 00 DD |O EMPTY COLUMN..| 000004C0: 0C 60 01 99 22 13 11 11 11 11 11 11 11 11 11 11 |.`.."...........| 000004D0: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 1B 0D |............"...| 000004E0: 61 01 99 22 50 52 45 53 53 20 12 52 45 54 55 52 |a.."PRESS .RETUR| 000004F0: 4E 92 91 9D 9D 9D 9D 9D 9D A4 A4 A4 A4 A4 A4 11 |N...............| 00000500: 20 41 46 54 45 52 20 54 59 50 49 4E 47 20 45 41 | AFTER TYPING EA| 00000510: 43 48 20 4E 55 4D 42 45 52 2E 22 00 34 0D 64 01 |CH NUMBER.".4.d.| 00000520: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............| 00000530: 11 11 11 22 00 5F 0D 66 01 99 A3 31 29 22 11 22 |..."._.f...1)"."| 00000540: 3B 3A 8D 31 32 39 39 39 3B 3A 53 24 B2 4B 24 3A |;:.12999;:S$.K$:| 00000550: 8B 45 A7 99 C7 28 31 34 37 29 3A 89 33 31 35 00 |.E...(147):.315.| 00000560: 6B 0D 67 01 53 B2 C5 28 53 24 29 00 93 0D 68 01 |k.g.S..(S$)...h.| 00000570: 99 A3 37 29 3B 3A 8D 31 32 39 39 39 3B 3A 48 24 |..7);:.12999;:H$| 00000580: B2 4B 24 3A 8B 45 A7 99 C7 28 31 34 37 29 3A 89 |.K$:.E...(147):.| 00000590: 33 31 35 00 9F 0D 6D 01 48 B2 C5 28 48 24 29 00 |315...m.H..(H$).| 000005A0: C8 0D 72 01 99 A3 31 35 29 3B 3A 8D 31 32 39 39 |..r...15);:.1299| 000005B0: 39 3B 3A 51 24 B2 4B 24 3A 8B 45 A7 99 C7 28 31 |9;:Q$.K$:.E...(1| 000005C0: 34 37 29 3A 89 33 31 35 00 D4 0D 77 01 51 B2 C5 |47):.315...w.Q..| 000005D0: 28 51 24 29 00 FD 0D 7C 01 99 A3 32 32 29 3B 3A |(Q$)...|...22);:| 000005E0: 8D 31 32 39 39 39 3B 3A 44 24 B2 4B 24 3A 8B 45 |.12999;:D$.K$:.E| 000005F0: A7 99 C7 28 31 34 37 29 3A 89 33 31 35 00 09 0E |...(147):.315...| 00000600: 7D 01 44 B2 C5 28 44 24 29 00 32 0E 81 01 99 A3 |}.D..(D$).2.....| 00000610: 32 38 29 3B 3A 8D 31 32 39 39 39 3B 3A 4E 24 B2 |28);:.12999;:N$.| 00000620: 4B 24 3A 8B 45 A7 99 C7 28 31 34 37 29 3A 89 33 |K$:.E...(147):.3| 00000630: 31 35 00 3E 0E 82 01 4E B2 C5 28 4E 24 29 00 67 |15.>...N..(N$).g| 00000640: 0E 86 01 99 A3 33 33 29 3B 3A 8D 31 32 39 39 39 |.....33);:.12999| 00000650: 3B 3A 50 24 B2 4B 24 3A 8B 45 A7 99 C7 28 31 34 |;:P$.K$:.E...(14| 00000660: 37 29 3A 89 33 31 35 00 80 0E 87 01 50 B2 C5 28 |7):.315.....P..(| 00000670: 50 24 29 3A 99 22 11 11 22 A3 33 33 29 22 20 22 |P$):."..".33)" "| 00000680: 00 A3 0E 90 01 8F 2A 43 48 4B 20 54 4F 20 53 45 |......*CHK TO SE| 00000690: 45 20 49 46 20 43 48 47 20 49 53 20 43 4F 52 52 |E IF CHG IS CORR| 000006A0: 45 43 54 00 CC 0E 9A 01 43 B2 53 AC 31 30 30 AA |ECT.....C.S.100.| 000006B0: 48 AC 35 30 AA 51 AC 32 35 AA 44 AC 31 30 AA 4E |H.50.Q.25.D.10.N| 000006C0: AC 35 AA 50 3A 99 C7 28 31 34 37 29 00 06 0F A4 |.5.P:..(147)....| 000006D0: 01 99 3A 8B 47 28 52 44 32 29 AB 43 B2 54 28 52 |..:.G(RD2).C.T(R| 000006E0: 44 32 29 A7 99 22 43 4F 52 52 45 43 54 20 43 48 |D2).."CORRECT CH| 000006F0: 41 4E 47 45 21 20 54 48 41 4E 4B 20 59 4F 55 2E |ANGE! THANK YOU.| 00000700: 22 3A 89 35 30 30 00 45 0F AE 01 8B 20 47 28 52 |":.500.E.... G(R| 00000710: 44 32 29 AB 43 B3 54 28 52 44 32 29 A7 99 22 54 |D2).C.T(RD2).."T| 00000720: 4F 4F 20 4D 55 43 48 21 22 3A 99 22 59 4F 55 20 |OO MUCH!":."YOU | 00000730: 48 41 56 45 20 4F 56 45 52 50 41 49 44 20 4D 45 |HAVE OVERPAID ME| 00000740: 20 42 59 22 3B 00 88 0F B8 01 8B 20 47 28 52 44 | BY";...... G(RD| 00000750: 32 29 AB 43 B1 54 28 52 44 32 29 A7 20 99 22 4E |2).C.T(RD2). ."N| 00000760: 4F 54 20 45 4E 4F 55 47 48 21 22 3A 99 22 59 4F |OT ENOUGH!":."YO| 00000770: 55 20 48 41 56 45 20 55 4E 44 45 52 50 41 49 44 |U HAVE UNDERPAID| 00000780: 20 4D 45 20 42 59 22 3B 00 AD 0F BD 01 8F 2A 44 | ME BY";......*D| 00000790: 49 46 46 20 42 54 57 4E 20 52 49 47 48 54 20 41 |IFF BTWN RIGHT A| 000007A0: 4E 44 20 57 52 4F 4E 47 20 41 4D 54 53 00 D1 0F |ND WRONG AMTS...| 000007B0: C2 01 41 B2 B6 28 47 28 52 44 32 29 AB 43 AB 54 |..A..(G(RD2).C.T| 000007C0: 28 52 44 32 29 29 AD 31 30 30 3A 5A B2 B5 28 41 |(RD2)).100:Z..(A| 000007D0: 29 00 F3 0F C7 01 59 B2 B6 28 B6 28 47 28 52 44 |).....Y..(.(G(RD| 000007E0: 32 29 AB 43 AB 54 28 52 44 32 29 29 AB 5A AC 31 |2).C.T(RD2)).Z.1| 000007F0: 30 30 29 00 10 10 C9 01 8B 20 5A B2 30 20 A7 20 |00)...... Z.0 . | 00000800: 99 20 59 3B 22 43 45 4E 54 53 22 3A 89 34 36 31 |. Y;"CENTS":.461| 00000810: 00 32 10 CC 01 99 20 5A 3B 22 44 4F 4C 4C 41 52 |.2.... Z;"DOLLAR| 00000820: 28 53 29 20 41 4E 44 22 59 22 43 45 4E 54 53 2E |(S) AND"Y"CENTS.| 00000830: 91 22 00 55 10 CD 01 99 22 11 20 20 20 20 20 20 |.".U....". | 00000840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000850: 20 20 20 20 22 00 6E 10 F4 01 99 22 11 12 41 4E | ".n...."..AN| 00000860: 4F 54 48 45 52 3F 20 28 59 2F 4E 29 92 22 00 8B |OTHER? (Y/N)."..| 00000870: 10 FE 01 A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF |....A$:.A$.."Y".| 00000880: 41 24 B3 B1 22 4E 22 A7 35 31 30 00 9B 10 08 02 |A$.."N".510.....| 00000890: 8B 41 24 B2 22 59 22 A7 33 30 30 00 AB 10 12 02 |.A$."Y".300.....| 000008A0: 99 22 93 22 3A 89 35 30 30 30 30 00 C8 10 E8 03 |.".":.50000.....| 000008B0: 83 20 53 4F 41 50 2C 22 35 30 20 43 45 4E 54 53 |. SOAP,"50 CENTS| 000008C0: 22 2C 35 30 2C 31 30 30 00 EF 10 ED 03 83 20 22 |",50,100...... "| 000008D0: 50 41 50 45 52 20 54 4F 57 45 4C 53 22 2C 22 37 |PAPER TOWELS","7| 000008E0: 35 20 43 45 4E 54 53 22 2C 37 35 2C 31 30 30 00 |5 CENTS",75,100.| 000008F0: 0C 11 F2 03 83 20 4D 49 4C 4B 2C 22 39 35 20 43 |..... MILK,"95 C| 00000900: 45 4E 54 53 22 2C 39 35 2C 31 30 30 00 32 11 F7 |ENTS",95,100.2..| 00000910: 03 83 22 41 20 44 4F 5A 45 4E 20 45 47 47 53 22 |.."A DOZEN EGGS"| 00000920: 2C 22 39 32 20 43 45 4E 54 53 22 2C 39 32 2C 31 |,"92 CENTS",92,1| 00000930: 30 30 00 4E 11 FC 03 83 20 53 54 45 41 4B 2C 22 |00.N.... STEAK,"| 00000940: 24 31 2E 35 30 22 2C 31 35 30 2C 32 30 30 00 6E |$1.50",150,200.n| 00000950: 11 01 04 83 22 33 20 53 54 45 41 4B 53 22 2C 22 |...."3 STEAKS","| 00000960: 24 33 2E 35 30 22 2C 33 35 30 2C 35 30 30 00 90 |$3.50",350,500..| 00000970: 11 06 04 83 22 43 41 54 20 46 4F 4F 44 22 2C 22 |...."CAT FOOD","| 00000980: 38 32 20 43 45 4E 54 53 22 2C 38 32 2C 31 30 30 |82 CENTS",82,100| 00000990: 00 B4 11 0B 04 83 22 42 41 47 20 4F 46 20 46 4C |......"BAG OF FL| 000009A0: 4F 55 52 22 2C 22 24 31 2E 32 35 22 2C 31 32 35 |OUR","$1.25",125| 000009B0: 2C 35 30 30 00 D2 11 10 04 83 20 4F 52 41 4E 47 |,500...... ORANG| 000009C0: 45 53 2C 22 24 31 2E 30 33 22 2C 31 30 33 2C 35 |ES,"$1.03",103,5| 000009D0: 30 30 00 F7 11 15 04 83 22 42 41 47 20 4F 46 20 |00......"BAG OF | 000009E0: 46 4F 4F 44 22 2C 22 31 38 2E 30 37 22 2C 31 38 |FOOD","18.07",18| 000009F0: 30 37 2C 32 30 30 30 00 15 12 1A 04 83 20 54 49 |07,2000...... TI| 00000A00: 53 53 55 45 53 2C 22 24 31 2E 31 34 22 2C 31 31 |SSUES,"$1.14",11| 00000A10: 34 2C 31 35 30 00 35 12 1F 04 83 20 48 41 4D 42 |4,150.5.... HAMB| 00000A20: 55 52 47 45 52 2C 22 24 32 2E 38 39 22 2C 32 38 |URGER,"$2.89",28| 00000A30: 39 2C 35 30 30 00 57 12 24 04 83 22 32 20 43 48 |9,500.W.$.."2 CH| 00000A40: 49 43 4B 45 4E 53 22 2C 22 24 34 2E 35 37 22 2C |ICKENS","$4.57",| 00000A50: 34 35 37 2C 35 30 30 00 78 12 29 04 83 20 54 4F |457,500.x.).. TO| 00000A60: 4D 41 54 4F 45 53 2C 22 38 39 20 43 45 4E 54 53 |MATOES,"89 CENTS| 00000A70: 22 2C 38 39 2C 31 30 30 00 9A 12 2E 04 83 20 22 |",89,100...... "| 00000A80: 49 43 45 20 43 52 45 41 4D 22 2C 22 24 33 2E 33 |ICE CREAM","$3.3| 00000A90: 35 22 2C 33 33 35 2C 35 30 30 00 BA 12 33 04 83 |5",335,500...3..| 00000AA0: 20 43 4F 4F 4B 49 45 53 2C 22 36 39 20 43 45 4E | COOKIES,"69 CEN| 00000AB0: 54 53 22 2C 36 39 2C 31 30 30 00 DF 12 38 04 83 |TS",69,100...8..| 00000AC0: 20 22 50 4C 41 53 54 49 43 20 57 52 41 50 22 2C | "PLASTIC WRAP",| 00000AD0: 22 24 32 2E 34 35 22 2C 32 34 35 2C 35 30 30 00 |"$2.45",245,500.| 00000AE0: 01 13 3D 04 83 20 22 54 55 4E 41 20 46 49 53 48 |..=.. "TUNA FISH| 00000AF0: 22 2C 22 24 32 2E 32 39 22 2C 32 32 39 2C 33 30 |","$2.29",229,30| 00000B00: 30 00 22 13 42 04 83 20 50 52 45 54 5A 45 4C 53 |0.".B.. PRETZELS| 00000B10: 2C 22 36 35 20 43 45 4E 54 53 22 2C 36 35 2C 31 |,"65 CENTS",65,1| 00000B20: 30 30 00 44 13 47 04 83 20 22 42 4C 55 45 20 46 |00.D.G.. "BLUE F| 00000B30: 49 53 48 22 2C 22 24 34 2E 32 39 22 2C 34 32 39 |ISH","$4.29",429| 00000B40: 2C 35 30 30 00 65 13 4C 04 83 20 22 54 49 4E 20 |,500.e.L.. "TIN | 00000B50: 46 4F 49 4C 22 2C 22 24 33 2E 36 37 22 2C 33 36 |FOIL","$3.67",36| 00000B60: 37 2C 35 30 30 00 83 13 51 04 83 20 54 55 52 4B |7,500...Q.. TURK| 00000B70: 45 59 2C 22 24 38 2E 34 35 22 2C 38 34 35 2C 31 |EY,"$8.45",845,1| 00000B80: 30 30 30 00 A3 13 56 04 83 20 50 45 41 43 48 45 |000...V.. PEACHE| 00000B90: 53 2C 22 38 37 20 43 45 4E 54 53 22 2C 38 37 2C |S,"87 CENTS",87,| 00000BA0: 31 30 30 00 C6 13 5B 04 83 20 53 54 52 41 57 42 |100...[.. STRAWB| 00000BB0: 45 52 52 49 45 53 2C 22 24 31 2E 34 39 22 2C 31 |ERRIES,"$1.49",1| 00000BC0: 34 39 2C 32 30 30 00 ED 13 60 04 83 20 22 43 4F |49,200...`.. "CO| 00000BD0: 54 54 41 47 45 20 43 48 45 45 53 45 22 2C 22 24 |TTAGE CHEESE","$| 00000BE0: 31 2E 32 33 22 2C 31 32 33 2C 32 30 30 00 13 14 |1.23",123,200...| 00000BF0: 65 04 83 20 22 50 45 41 4E 55 54 20 42 55 54 54 |e.. "PEANUT BUTT| 00000C00: 45 52 22 2C 22 24 32 2E 33 30 22 2C 32 33 30 2C |ER","$2.30",230,| 00000C10: 33 30 30 00 36 14 6A 04 83 20 22 50 4F 52 4B 20 |300.6.j.. "PORK | 00000C20: 43 48 4F 50 53 22 2C 22 24 34 2E 37 39 22 2C 34 |CHOPS","$4.79",4| 00000C30: 37 39 2C 35 30 30 00 55 14 6F 04 83 20 42 55 54 |79,500.U.o.. BUT| 00000C40: 54 45 52 2C 22 38 37 20 43 45 4E 54 53 22 2C 38 |TER,"87 CENTS",8| 00000C50: 37 2C 31 30 30 00 73 14 74 04 83 20 42 52 45 41 |7,100.s.t.. BREA| 00000C60: 44 2C 22 37 35 20 43 45 4E 54 53 22 2C 37 35 2C |D,"75 CENTS",75,| 00000C70: 31 30 30 00 94 14 79 04 83 20 22 43 41 4B 45 20 |100...y.. "CAKE | 00000C80: 4D 49 58 22 2C 22 24 31 2E 31 35 22 2C 31 31 35 |MIX","$1.15",115| 00000C90: 2C 32 30 30 00 B8 14 7E 04 83 20 22 54 4F 4F 54 |,200...~.. "TOOT| 00000CA0: 48 20 50 41 53 54 45 22 2C 22 24 32 2E 31 35 22 |H PASTE","$2.15"| 00000CB0: 2C 32 31 35 2C 35 30 30 00 DD 14 83 04 83 20 22 |,215,500...... "| 00000CC0: 53 57 49 53 53 20 43 48 45 45 53 45 22 2C 22 24 |SWISS CHEESE","$| 00000CD0: 32 2E 34 35 22 2C 32 34 35 2C 35 30 30 00 F9 14 |2.45",245,500...| 00000CE0: 88 04 83 20 53 55 47 41 52 2C 22 24 32 2E 35 36 |... SUGAR,"$2.56| 00000CF0: 22 2C 32 35 36 2C 33 30 30 00 22 15 8D 04 83 20 |",256,300.".... | 00000D00: 22 43 48 4F 43 4F 4C 41 54 45 20 42 41 52 53 22 |"CHOCOLATE BARS"| 00000D10: 2C 22 36 35 20 43 45 4E 54 53 22 2C 36 35 2C 31 |,"65 CENTS",65,1| 00000D20: 30 30 00 40 15 92 04 83 20 4E 41 50 4B 49 4E 53 |00.@.... NAPKINS| 00000D30: 2C 22 24 31 2E 33 35 22 2C 31 33 35 2C 32 30 30 |,"$1.35",135,200| 00000D40: 00 5E 15 97 04 83 20 4A 45 4C 4C 59 2C 22 36 39 |.^.... JELLY,"69| 00000D50: 20 43 45 4E 54 53 22 2C 36 39 2C 31 30 30 00 86 | CENTS",69,100..| 00000D60: 15 9C 04 83 20 22 47 52 45 45 4E 20 50 45 50 50 |.... "GREEN PEPP| 00000D70: 45 52 53 22 2C 22 37 30 20 43 45 4E 54 53 22 2C |ERS","70 CENTS",| 00000D80: 37 30 2C 31 30 30 00 A6 15 A1 04 83 20 43 41 52 |70,100...... CAR| 00000D90: 52 4F 54 53 2C 22 33 39 20 43 45 4E 54 53 22 2C |ROTS,"39 CENTS",| 00000DA0: 33 39 2C 31 30 30 00 C4 15 A6 04 83 20 4F 4E 49 |39,100...... ONI| 00000DB0: 4F 4E 53 2C 22 35 35 20 43 45 4E 54 53 22 2C 35 |ONS,"55 CENTS",5| 00000DC0: 35 2C 37 35 00 E1 15 AB 04 83 20 53 4F 55 50 2C |5,75...... SOUP,| 00000DD0: 22 37 39 20 43 45 4E 54 53 22 2C 37 39 2C 31 30 |"79 CENTS",79,10| 00000DE0: 30 00 05 16 B0 04 83 20 22 52 4F 41 53 54 20 42 |0...... "ROAST B| 00000DF0: 45 45 46 22 2C 22 24 37 2E 33 38 22 2C 37 33 38 |EEF","$7.38",738| 00000E00: 2C 31 30 30 30 00 27 16 BA 04 83 20 22 4D 55 53 |,1000.'.... "MUS| 00000E10: 54 41 52 44 22 2C 22 33 35 20 43 45 4E 54 53 22 |TARD","35 CENTS"| 00000E20: 2C 33 35 2C 31 30 30 00 48 16 BF 04 83 20 22 48 |,35,100.H.... "H| 00000E30: 4F 54 20 44 4F 47 53 22 2C 22 24 32 2E 38 30 22 |OT DOGS","$2.80"| 00000E40: 2C 32 38 30 2C 35 30 30 00 68 16 C4 04 83 20 4E |,280,500.h.... N| 00000E50: 4F 4F 44 4C 45 53 2C 22 38 37 20 43 45 4E 54 53 |OODLES,"87 CENTS| 00000E60: 22 2C 38 37 2C 31 30 30 00 88 16 C9 04 83 20 56 |",87,100...... V| 00000E70: 49 4E 45 47 41 52 2C 22 36 32 20 43 45 4E 54 53 |INEGAR,"62 CENTS| 00000E80: 22 2C 36 32 2C 31 30 30 00 A5 16 CE 04 83 20 50 |",62,100...... P| 00000E90: 45 43 41 4E 53 2C 22 24 33 2E 35 30 22 2C 33 35 |ECANS,"$3.50",35| 00000EA0: 30 2C 35 30 30 00 C3 16 D3 04 83 20 41 4C 4D 4F |0,500...... ALMO| 00000EB0: 4E 44 53 2C 22 24 32 2E 36 35 22 2C 32 36 35 2C |NDS,"$2.65",265,| 00000EC0: 33 30 30 00 E0 16 D8 04 83 20 43 4F 46 46 45 45 |300...... COFFEE| 00000ED0: 2C 22 24 32 2E 33 39 22 2C 32 33 39 2C 35 30 30 |,"$2.39",239,500| 00000EE0: 00 01 17 DD 04 83 20 22 54 45 41 20 42 41 47 53 |...... "TEA BAGS| 00000EF0: 22 2C 22 24 32 2E 30 38 22 2C 32 30 38 2C 32 35 |","$2.08",208,25| 00000F00: 30 00 1F 17 E2 04 83 20 4C 45 4D 4F 4E 53 2C 22 |0...... LEMONS,"| 00000F10: 33 33 20 43 45 4E 54 53 22 2C 33 30 2C 35 30 00 |33 CENTS",30,50.| 00000F20: 39 17 C7 32 45 B2 30 3A 4B B2 30 3A 4B 24 B2 22 |9..2E.0:K.0:K$."| 00000F30: 22 3A 56 24 B2 22 A6 9D 22 00 42 17 CD 32 99 56 |":V$."..".B..2.V| 00000F40: 24 3B 00 57 17 D2 32 A1 5A 24 3A 8B 5A 24 B2 22 |$;.W..2.Z$:.Z$."| 00000F50: 22 A7 31 33 30 31 30 00 69 17 D5 32 8B 5A 24 B2 |".13010.i..2.Z$.| 00000F60: 22 88 22 A7 45 B2 31 3A 8E 00 A0 17 D7 32 5A B2 |".".E.1:.....2Z.| 00000F70: C6 28 5A 24 29 3A 8B 28 5A B2 32 30 29 AF 28 4B |.(Z$):.(Z.20).(K| 00000F80: B1 30 29 A7 4B B2 4B AB 31 3A 4B 24 B2 C8 28 4B |.0).K.K.1:K$..(K| 00000F90: 24 2C 4B 29 3A 99 5A 24 3B 3A 89 31 33 30 30 35 |$,K):.Z$;:.13005| 00000FA0: 00 B4 17 D9 32 8B 28 5A B2 31 33 29 A7 99 22 20 |....2.(Z.13).." | 00000FB0: 22 3B 3A 8E 00 D1 17 DC 32 8B 5A 24 B3 22 30 22 |";:.....2.Z$."0"| 00000FC0: B0 5A 24 B1 22 39 22 B0 4B B2 36 A7 31 33 30 31 |.Z$."9".K.6.1301| 00000FD0: 30 00 F0 17 E1 32 99 5A 24 3B 3A 4B B2 4B AA 31 |0....2.Z$;:K.K.1| 00000FE0: 3A 4B 24 B2 4B 24 AA 5A 24 3A 89 31 33 30 30 35 |:K$.K$.Z$:.13005| 00000FF0: 00 2E 18 50 C3 4B B2 36 33 31 3A 41 24 B2 22 43 |...P.K.631:A$."C| 00001000: 36 34 20 50 41 4B 22 3A 97 4B 2C 37 36 3A 97 4B |64 PAK":.K,76:.K| 00001010: AA 31 2C 32 30 37 3A 97 4B AA 32 2C 36 35 3A 97 |.1,207:.K.2,65:.| 00001020: 4B AA 33 2C 33 36 3A 97 4B AA 34 2C 34 34 00 65 |K.3,36:.K.4,44.e| 00001030: 18 38 C7 97 4B AA 35 2C 35 36 3A 97 4B AA 36 2C |.8..K.5,56:.K.6,| 00001040: 31 33 3A 97 4B AA 37 2C 38 32 3A 97 4B AA 38 2C |13:.K.7,82:.K.8,| 00001050: 32 31 33 3A 97 4B AA 39 2C 31 33 3A 97 31 39 38 |213:.K.9,13:.198| 00001060: 2C 31 30 3A 80 00 00 00 FF |,10:..... |
..!.... A$(50),B$(50),T(50),G(50).F....I
.1.50:.A$(I),B$(I),T(I),G(I):..O.(..".".
U.2.. X.1 . 36 . 1:. .X);:."$$$":. X...
C.." ...............
..".R.D.."THIS IS THE GAME OF .$$CASH R
EGISTER$$"...N.."...PRETEND THAT YOU ARE
RUNNING A CASH".-.X..".REGISTER AT A LO
CAL GROCERY STORE. I".Y....".WILL BUY TH
INGS AND GIVE YOU MONEY.".Z....".YOU WIL
L GIVE ME CHANGE."......".YOU CAN GIVE M
E THE CHANGE IN PENNIES,".R....".NICKELS
, DIMES, OR WHATEVER, BUT"... ..".IT MUS
T ADD UP TO THE CORRECT TOTAL."......".
".C
....". ".K....A$.N...."...PRE
SS ANY KEY TO START.":...... Z$:. Z$.""
. 185...H..**A$=NAME OF ITEM IN DATA,B$=
PRICE.F.M..* T=PRICE,G=PAYMENT...R.. S=D
OLLARS,H=HALF DOLLARS,Q=QUARTERS,D=DIMES
......*N=NICKELS,P=PENNIES.).,..**PRESEN
T PROBLEM.2.1..".".G.3.RD2..(.(0).50.1).
Y.;..".I BOUGHT ";A$(RD2);" COSTING ";B$
(RD2);"."...E..".I GIVE YOU";G(RD2).100;
"DOLLAR(S) FOR IT.".R.J..".WHAT DO YOU G
IVE ME IN CHANGE?"...L..".START WITH DOL
LARS AND WORK DOWN TO".1.N..".PENNIES. P
RESS .<F7>. TO REDO THE PROBLEM.".O.O..*
*3 SPACES BETW HEADINGS..R.."... DOL$
HALF$ QTRS DIME 5C 1CENT...Y..*NE
XT STATE CLRS LINE IF ERROR...^..*MOVE T
O EMPTY COLUMN...`.."...................
...."...A.."PRESS .RETURN...............
AFTER TYPING EACH NUMBER.".4.D.."......
..........."._.F...1)".";:.12999;:S$.K$:
.E..G(147):.315.K.G.S.E(S$)...H...7);:.1
2999;:H$.K$:.E..G(147):.315...M.H.E(H$).
H.R...15);:.12999;:Q$.K$:.E..G(147):.315
.T.W.Q.E(Q$)...|...22);:.12999;:D$.K$:.E
..G(147):.315...}.D.E(D$).2.....28);:.12
999;:N$.K$:.E..G(147):.315.>...N.E(N$).G
.....33);:.12999;:P$.K$:.E..G(147):.315.
....P.E(P$):."..".33)" "......*CHK TO SE
E IF CHG IS CORRECT.L...C.S.100.H.50.Q.2
5.D.10.N.5.P:.G(147)......:.G(RD2).C.T(R
D2).."CORRECT CHANGE! THANK YOU.":.500.E
.... G(RD2).C.T(RD2).."TOO MUCH!":."YOU
HAVE OVERPAID ME BY";...... G(RD2).C.T(R
D2). ."NOT ENOUGH!":."YOU HAVE UNDERPAID
ME BY";......*DIFF BTWN RIGHT AND WRONG
AMTS.Q.B.A..(G(RD2).C.T(RD2)).100:Z..(A
)...G.Y..(.(G(RD2).C.T(RD2)).Z.100)...I.
. Z.0 . . Y;"CENTS":.461.2.L.. Z;"DOLLAR
(S) AND"Y"CENTS..".U.M..".
".N...."..ANOTHER? (Y/N)."..
....A$:.A$.."Y".A$.."N".510......A$."Y".
300......".":.50000.H.... SOAP,"50 CENTS
",50,100...... "PAPER TOWELS","75 CENTS"
,75,100...... MILK,"95 CENTS",95,100.2..
.."A DOZEN EGGS","92 CENTS",92,100.N....
STEAK,"$1.50",150,200.N...."3 STEAKS","
$3.50",350,500......"CAT FOOD","82 CENTS
",82,100......"BAG OF FLOUR","$1.25",125
,500.R.... ORANGES,"$1.03",103,500......
"BAG OF FOOD","18.07",1807,2000...... TI
SSUES,"$1.14",114,150.5.... HAMBURGER,"$
2.89",289,500.W.$.."2 CHICKENS","$4.57",
457,500.X.).. TOMATOES,"89 CENTS",89,100
...... "ICE CREAM","$3.35",335,500...3..
COOKIES,"69 CENTS",69,100...8.. "PLASTI
C WRAP","$2.45",245,500...=.. "TUNA FISH
","$2.29",229,300.".B.. PRETZELS,"65 CEN
TS",65,100.D.G.. "BLUE FISH","$4.29",429
,500.E.L.. "TIN FOIL","$3.67",367,500...
Q.. TURKEY,"$8.45",845,1000...V.. PEACHE
S,"87 CENTS",87,100.F.[.. STRAWBERRIES,"
$1.49",149,200...`.. "COTTAGE CHEESE","$
1.23",123,200...E.. "PEANUT BUTTER","$2.
30",230,300.6.J.. "PORK CHOPS","$4.79",4
79,500.U.O.. BUTTER,"87 CENTS",87,100.S.
T.. BREAD,"75 CENTS",75,100...Y.. "CAKE
MIX","$1.15",115,200...~.. "TOOTH PASTE"
,"$2.15",215,500...... "SWISS CHEESE","$
2.45",245,500...... SUGAR,"$2.56",256,30
0.".... "CHOCOLATE BARS","65 CENTS",65,1
00.@.... NAPKINS,"$1.35",135,200.^.... J
ELLY,"69 CENTS",69,100...... "GREEN PEPP
ERS","70 CENTS",70,100...... CARROTS,"39
CENTS",39,100.D.... ONIONS,"55 CENTS",5
5,75...... SOUP,"79 CENTS",79,100......
"ROAST BEEF","$7.38",738,1000.'.... "MUS
TARD","35 CENTS",35,100.H.... "HOT DOGS"
,"$2.80",280,500.H.D.. NOODLES,"87 CENTS
",87,100...I.. VINEGAR,"62 CENTS",62,100
...N.. PECANS,"$3.50",350,500.C.S.. ALMO
NDS,"$2.65",265,300...X.. COFFEE,"$2.39"
,239,500...... "TEA BAGS","$2.08",208,25
0...... LEMONS,"33 CENTS",30,50.9.G2E.0:
K.0:K$."":V$."..".B.M2.V$;.W.R2.Z$:.Z$."
".13010.I.U2.Z$.".".E.1:.. .W2Z.F(Z$):.(
Z.20).(K.0).K.K.1:K$.H(K$,K):.Z$;:.13005
...Y2.(Z.13).." ";:..Q..2.Z$."0".Z$."9".
K.6.13010....2.Z$;:K.K.1:K$.K$.Z$:.13005
...PCK.631:A$."C64 PAK":.K,76:.K.1,207:.
K.2,65:.K.3,36:.K.4,44.E.8G.K.5,56:.K.6,
13:.K.7,82:.K.8,213:.K.9,13:.198,10:....
.
> CLICK IMAGE PREVIEW FOR FULL MODAL