DEPRECIATION
FILE INFORMATION
FILENAME(S): DEPRECIATION
FILE TYPE(S): PRG
FILE SIZE: 6.7K
FIRST SEEN: 2025-11-30 01:07:54
APPEARS ON: 2 disk(s)
FILE HASH
93f41abff00dd3af3b6cbf2d5110cad279c5523a688141901e709dc762019bc1
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| L EHRNEN | DEPRECIATION | PRG | Treasure Chest - Wolfgang Rauprich | 10 | 6 | DOWNLOAD FILE |
| FREEWARE DISK NR | DEPRECIATION | PRG | Treasure Chest - Wolfgang Rauprich | 10 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 36 08 02 00 99 |.......910.6....|
00000010: 22 78 A9 1D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x..........X` .|
00000020: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000030: 8D 15 03 58 60 20 00 61 08 03 00 99 22 78 A9 47 |...X` .a...."x.G|
00000040: 85 90 A9 04 85 91 58 60 20 EA FF A9 FF 85 9B 4C |......X` ......L|
00000050: 58 E4 78 A9 55 85 90 A9 E4 85 91 58 60 20 20 20 |X.x.U......X` |
00000060: 20 00 80 08 04 00 99 22 78 68 68 68 AA 68 A8 68 | ......"xhhh.h.h|
00000070: 68 68 68 68 68 68 98 48 8A 48 58 60 20 20 20 20 |hhhhhh.H.HX` |
00000080: 00 91 08 05 00 99 22 68 68 68 68 68 68 68 60 20 |......"hhhhhhh` |
00000090: 20 00 B8 08 06 00 99 22 A0 FF C8 84 FB A9 D8 85 | ......"........|
000000A0: FC 20 F1 B7 8A A2 04 A0 FF C8 91 FB 88 D0 FB E6 |. ..............|
000000B0: FC CA D0 F6 60 20 20 20 00 D5 08 07 00 99 22 A2 |....` ......".|
000000C0: 04 A0 FF C8 B1 FB 91 FD 88 D0 F9 E6 FC E6 FE CA |................|
000000D0: D0 F2 60 20 20 00 E6 08 23 00 8B 55 57 B2 30 A7 |..` ...#..UW.0.|
000000E0: 9E 55 55 2C 31 35 00 10 09 28 00 97 55 43 2C 30 |.UU,15...(..UC,0|
000000F0: 3A 97 55 4E 2C 30 3A 55 52 24 B2 22 22 3A 55 49 |:.UN,0:UR$."":UI|
00000100: 24 B2 22 22 3A 8B 55 4C B2 30 A7 55 4C B2 33 39 |$."":.UL.0.UL.39|
00000110: 00 24 09 2D 00 A1 55 49 24 3A 8B 55 49 24 B2 22 |.$.-..UI$:.UI$."|
00000120: 22 A7 34 35 00 59 09 32 00 55 41 B2 C6 28 55 49 |".45.Y.2.UA..(UI|
00000130: 24 29 3A 55 52 B2 C3 28 55 52 24 29 3A 8B 55 41 |$):UR..(UR$):.UA|
00000140: B2 31 33 AF 55 52 B1 30 A7 97 55 43 2C 31 3A 99 |.13.UR.0..UC,1:.|
00000150: 22 20 9D 22 3B 3A 89 37 30 00 8E 09 37 00 8B 55 |" .";:.70...7..U|
00000160: 41 B2 32 30 A7 91 AB 28 55 52 B2 30 29 89 34 35 |A.20...(UR.0).45|
00000170: 3A 55 52 24 B2 C8 28 55 52 24 2C 55 52 AB 31 29 |:UR$..(UR$,UR.1)|
00000180: 3A 99 22 9D 20 20 9D 9D 22 3B 3A 89 34 35 00 9C |:.". ..";:.45..|
00000190: 09 3C 00 8B 55 52 B2 55 4C A7 34 35 00 BA 09 41 |.<..UR.UL.45...A|
000001A0: 00 8D 39 35 3A 55 52 24 B2 55 52 24 AA 55 49 24 |..95:UR$.UR$.UI$|
000001B0: 3A 99 55 49 24 3B 3A 89 34 35 00 D3 09 46 00 8B |:.UI$;:.45...F..|
000001C0: 55 52 24 B2 55 58 24 A7 99 22 9D 20 22 3B 3A 89 |UR$.UX$..". ";:.|
000001D0: 31 34 35 00 F6 09 4B 00 81 55 49 B2 55 52 A4 31 |145...K..UI.UR.1|
000001E0: A9 AB 31 3A 8B CA 28 55 52 24 2C 55 49 2C 31 29 |..1:..(UR$,UI,1)|
000001F0: B2 22 20 22 A7 82 00 0C 0A 50 00 55 52 24 B2 C8 |." ".....P.UR$..|
00000200: 28 55 52 24 2C 55 49 29 3A 99 3A 8E 00 1E 0A 5F |(UR$,UI):.:...._|
00000210: 00 8B C3 28 55 53 24 29 B2 30 A7 31 31 30 00 4A |...(US$).0.110.J|
00000220: 0A 64 00 81 55 49 B2 31 A4 C3 28 55 53 24 29 3A |.d..UI.1..(US$):|
00000230: 8B 55 49 24 B3 B1 CA 28 55 53 24 2C 55 49 2C 31 |.UI$...(US$,UI,1|
00000240: 29 A7 82 3A 55 49 24 B2 22 22 00 50 0A 69 00 8E |)..:UI$."".P.i..|
00000250: 00 5D 0A 6E 00 8B 55 41 B2 34 36 A7 8E 00 70 0A |.].n..UA.46...p.|
00000260: 73 00 8B 55 41 B2 33 32 AF 55 52 B3 B1 30 A7 8E |s..UA.32.UR..0..|
00000270: 00 83 0A 78 00 8B 55 41 B1 34 37 AF 55 41 B3 35 |...x..UA.47.UA.5|
00000280: 38 A7 8E 00 96 0A 7D 00 8B 55 41 B1 36 34 AF 55 |8.....}..UA.64.U|
00000290: 41 B3 39 31 A7 8E 00 B2 0A 82 00 8B 55 41 B3 31 |A.91........UA.1|
000002A0: 39 33 B0 55 41 B1 32 31 38 A7 55 49 24 B2 22 22 |93.UA.218.UI$.""|
000002B0: 3A 8E 00 CF 0A 87 00 8B C2 28 55 54 29 B2 55 55 |:........(UT).UU|
000002C0: 25 A7 55 49 24 B2 C7 28 55 41 AB 31 32 38 29 00 |%.UI$..(UA.128).|
000002D0: D5 0A 8C 00 8E 00 04 0B 91 00 8D 31 37 30 3A 97 |...........170:.|
000002E0: 32 35 31 2C 30 3A 97 32 35 32 2C 55 53 AD 32 35 |251,0:.252,US.25|
000002F0: 36 3A 97 32 35 33 2C 30 3A 97 32 35 34 2C 55 46 |6:.253,0:.254,UF|
00000300: 3A 9E 55 56 00 1C 0B 96 00 55 5A B2 31 3A 55 56 |:.UV.....UZ.1:UV|
00000310: 25 B2 C2 28 55 54 29 3A 89 33 30 30 00 62 0B 9B |%..(UT):.300.b..|
00000320: 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 |.UZ.0:US$.UJ$:UG|
00000330: 24 B2 55 4B 24 3A 55 54 24 B2 55 4C 24 3A 55 50 |$.UK$:UT$.UL$:UP|
00000340: B2 55 4A 3A 55 4C B2 55 4B 3A 99 22 93 22 3B 3A |.UJ:UL.UK:.".";:|
00000350: 8B 55 57 B2 30 A7 97 55 59 2C 36 3A 97 55 58 2C |.UW.0..UY,6:.UX,|
00000360: 31 34 00 A1 0B A0 00 97 55 54 2C 55 56 25 3A 97 |14......UT,UV%:.|
00000370: 32 35 31 2C 30 3A 97 32 35 32 2C 55 46 3A 97 32 |251,0:.252,UF:.2|
00000380: 35 33 2C 30 3A 97 32 35 34 2C 55 53 AD 32 35 36 |53,0:.254,US.256|
00000390: 3A 9E 55 56 3A 8B 55 57 B2 30 A7 9E 55 55 2C 31 |:.UV:.UW.0..UU,1|
000003A0: 35 00 CB 0B A5 00 97 55 31 2C 55 31 25 3A 97 55 |5......U1,U1%:.U|
000003B0: 32 2C 55 32 25 3A 97 55 33 2C 55 33 25 AB 31 3A |2,U2%:.U3,U3%.1:|
000003C0: 97 55 34 2C 55 34 25 3A 89 33 35 00 F7 0B AA 00 |.U4,U4%:.35.....|
000003D0: 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 |U1%..(U1):U2%..(|
000003E0: 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 |U2):U3%..(U3):U4|
000003F0: 25 B2 C2 28 55 34 29 00 21 0C AF 00 55 4A 24 B2 |%..(U4).!...UJ$.|
00000400: 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 |US$:UK$.UG$:UL$.|
00000410: 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 3A |UT$:UJ.UP:UK.UL:|
00000420: 8E 00 46 0C 2C 01 99 22 93 11 22 3A 97 55 54 2C |..F.,.."..":.UT,|
00000430: 55 55 25 3A 8B 55 57 B2 30 A7 97 55 59 2C 31 32 |UU%:.UW.0..UY,12|
00000440: 3A 97 55 58 2C 36 00 66 0C 31 01 99 22 20 20 20 |:.UX,6.f.1.." |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 20 45 | M E|
00000460: 20 4E 20 55 11 22 00 92 0C 36 01 99 22 20 20 20 | N U."...6.." |
00000470: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000490: 2D 22 00 B7 0C 3B 01 99 22 11 20 20 20 20 20 20 |-"...;..". |
000004A0: 20 31 2E 20 20 20 52 45 47 55 4C 41 52 20 44 45 | 1. REGULAR DE|
000004B0: 50 4F 53 49 54 53 22 00 DF 0C 40 01 99 22 11 11 |POSITS"...@.."..|
000004C0: 20 20 20 20 20 20 20 32 2E 20 20 20 44 45 50 52 | 2. DEPR|
000004D0: 45 43 49 41 54 49 4F 4E 20 52 41 54 45 53 22 00 |ECIATION RATES".|
000004E0: 09 0D 43 01 99 22 11 11 20 20 20 20 20 20 20 33 |..C..".. 3|
000004F0: 2E 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 |. STUDENT INST|
00000500: 52 55 43 54 49 4F 4E 53 22 00 33 0D 45 01 99 22 |RUCTIONS".3.E.."|
00000510: 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 54 45 |.. 4. TE|
00000520: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO|
00000530: 4E 53 22 00 4E 0D 4A 01 99 22 11 11 20 20 20 20 |NS".N.J..".. |
00000540: 20 20 20 35 2E 20 20 20 51 55 49 54 11 22 00 7A | 5. QUIT.".z|
00000550: 0D 4F 01 99 22 20 20 20 20 2D 2D 2D 2D 2D 2D 2D |.O.." -------|
00000560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A5 0D 54 01 99 |---------"...T..|
00000580: 22 11 11 20 20 20 20 20 20 20 50 52 45 53 53 20 |".. PRESS |
00000590: 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D |A NUMBER KEY (1-|
000005A0: 35 29 20 22 3B 00 BA 0D 59 01 55 4C B2 31 3A 55 |5) ";...Y.UL.1:U|
000005B0: 53 24 B2 22 31 32 33 34 35 22 00 C9 0D 5B 01 8D |S$."12345"...[..|
000005C0: 33 35 3A 55 53 24 B2 22 22 00 EC 0D 5E 01 91 20 |35:US$.""...^.. |
000005D0: C5 28 55 52 24 29 8D 31 30 30 30 2C 31 33 37 30 |.(UR$).1000,1370|
000005E0: 2C 34 30 30 2C 35 30 30 2C 33 39 30 00 F5 0D 63 |,400,500,390...c|
000005F0: 01 89 33 30 30 00 09 0E 72 01 8B 55 5A B2 31 A7 |..300...r..UZ.1.|
00000600: 9E 55 50 25 3A 89 31 35 35 00 0F 0E 77 01 8E 00 |.UP%:.155...w...|
00000610: 37 0E 86 01 9E 55 45 3A 99 22 9A 93 22 3A 8B 55 |7....UE:."..":.U|
00000620: 57 B2 30 A7 97 55 59 2C 36 3A 97 55 58 2C 31 34 |W.0..UY,6:.UX,14|
00000630: 3A 9E 55 55 2C 31 34 00 3F 0E 8B 01 9C 3A 80 00 |:.UU,14.?....:..|
00000640: 64 0E 90 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 |d....".":.UT,UL%|
00000650: 3A 8B 55 57 B2 30 A7 97 55 59 2C 31 31 3A 97 55 |:.UW.0..UY,11:.U|
00000660: 58 2C 31 32 00 9E 0E 95 01 55 54 24 B2 22 20 C4 |X,12.....UT$." .|
00000670: 45 50 52 45 43 49 41 54 49 4F 4E 22 3A 55 48 B2 |EPRECIATION":UH.|
00000680: 31 3A 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 |1:UP.0:UG$.".TUD|
00000690: 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 C7 |ENT .NST":.850..|
000006A0: 0E 9B 01 99 22 11 20 20 D4 48 49 53 20 50 52 4F |....". .HIS PRO|
000006B0: 47 52 41 4D 20 57 49 4C 4C 20 43 41 4C 43 55 4C |GRAM WILL CALCUL|
000006C0: 41 54 45 20 54 48 45 00 F2 0E 9C 01 99 22 11 20 |ATE THE......". |
000006D0: 44 45 50 52 45 43 49 41 54 49 4F 4E 20 52 41 54 |DEPRECIATION RAT|
000006E0: 45 20 4F 46 20 41 4E 20 49 54 45 4D 2E 20 D9 4F |E OF AN ITEM. .O|
000006F0: 55 22 00 1E 0F 9D 01 99 22 11 20 4D 55 53 54 20 |U"......". MUST |
00000700: 54 45 4C 4C 20 49 54 20 54 48 45 20 56 41 4C 55 |TELL IT THE VALU|
00000710: 45 20 4F 46 20 54 48 45 20 49 54 45 4D 22 00 48 |E OF THE ITEM".H|
00000720: 0F 9E 01 99 22 20 11 28 50 4C 55 53 20 41 20 46 |...." .(PLUS A F|
00000730: 45 57 20 4F 54 48 45 52 20 54 48 49 4E 47 53 29 |EW OTHER THINGS)|
00000740: 1D 41 4E 44 20 49 54 22 00 6B 0F 9F 01 99 22 11 |.AND IT".k....".|
00000750: 20 57 49 4C 4C 20 47 49 56 45 20 59 4F 55 20 54 | WILL GIVE YOU T|
00000760: 48 45 20 41 4E 53 57 45 52 21 22 00 9A 0F A4 01 |HE ANSWER!".....|
00000770: 99 22 11 20 20 C9 4E 20 54 48 45 20 27 D2 45 47 |.". .N THE '.EG|
00000780: 55 4C 41 52 20 C4 45 50 4F 53 49 54 27 20 53 45 |ULAR .EPOSIT' SE|
00000790: 43 54 49 4F 4E 20 59 4F 55 22 00 C7 0F A9 01 99 |CTION YOU"......|
000007A0: 22 11 20 43 41 4E 1D 46 49 47 55 52 45 20 4F 55 |". CAN.FIGURE OU|
000007B0: 54 20 28 57 49 54 48 20 54 48 45 20 43 4F 4D 50 |T (WITH THE COMP|
000007C0: 55 54 45 52 27 53 22 00 F2 0F AE 01 99 22 11 20 |UTER'S"......". |
000007D0: 48 45 4C 50 29 1D 52 45 47 55 4C 41 52 20 44 45 |HELP).REGULAR DE|
000007E0: 50 4F 53 49 54 53 20 54 4F 20 42 45 20 4D 41 44 |POSITS TO BE MAD|
000007F0: 45 22 00 1B 10 B3 01 99 22 11 20 49 4E 20 4F 52 |E"......". IN OR|
00000800: 44 45 52 1D 54 4F 20 52 45 41 43 48 20 41 20 53 |DER.TO REACH A S|
00000810: 45 54 20 41 4D 4F 55 4E 54 2E 22 00 33 10 C7 01 |ET AMOUNT.".3...|
00000820: 8D 38 33 35 3A 55 50 B2 32 3A 55 48 B2 31 3A 8D |.835:UP.2:UH.1:.|
00000830: 38 35 30 00 42 10 CC 01 99 22 11 11 20 CE 4F 54 |850.B....".. .OT|
00000840: 45 3A 00 72 10 DB 01 99 22 11 11 1D 1D 1D 1D 1D |E:.r....".......|
00000850: C9 46 20 41 54 20 41 4E 59 20 54 49 4D 45 20 59 |.F AT ANY TIME Y|
00000860: 4F 55 20 57 49 53 48 20 54 4F 20 52 45 54 55 52 |OU WISH TO RETUR|
00000870: 4E 22 00 9D 10 E0 01 99 22 11 20 20 20 11 20 20 |N"......". . |
00000880: 54 4F 20 54 48 45 20 CD C5 CE D5 20 50 52 45 53 |TO THE .... PRES|
00000890: 53 20 48 20 3C D2 C5 D4 D5 D2 CE 3E 22 00 A6 10 |S H <......>"...|
000008A0: E5 01 8D 38 33 35 00 BA 10 EA 01 8B 55 5A B2 31 |...835......UZ.1|
000008B0: A7 9E 55 50 25 3A 89 31 35 35 00 C0 10 EF 01 8E |..UP%:.155......|
000008C0: 00 E4 10 F4 01 99 22 93 22 3A 97 55 54 2C 55 4C |......".":.UT,UL|
000008D0: 25 3A 8B 55 57 B2 30 A7 97 55 59 2C 32 3A 97 55 |%:.UW.0..UY,2:.U|
000008E0: 58 2C 31 30 00 1E 11 F5 01 55 54 24 B2 22 20 C4 |X,10.....UT$." .|
000008F0: 45 50 52 45 43 49 41 54 49 4F 4E 22 3A 55 48 B2 |EPRECIATION":UH.|
00000900: 31 3A 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 |1:UP.0:UG$.".EAC|
00000910: 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 4B |HER .NST":.850.K|
00000920: 11 F6 01 99 22 11 11 20 20 20 20 20 D4 4F 20 54 |....".. .O T|
00000930: 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B |HE BEST OF OUR K|
00000940: 4E 4F 57 4C 45 44 47 45 2C 11 22 00 76 11 F7 01 |NOWLEDGE,.".v...|
00000950: 99 22 20 20 20 20 20 54 48 49 53 20 50 52 4F 47 |." THIS PROG|
00000960: 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 |RAM IS IN THE PU|
00000970: 42 4C 49 43 11 22 00 A1 11 F8 01 99 22 20 20 20 |BLIC."......" |
00000980: 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 | DOMAIN. .F TH|
00000990: 49 53 20 49 53 20 4E 4F 54 20 54 52 55 45 2C 11 |IS IS NOT TRUE,.|
000009A0: 22 00 BF 11 F9 01 99 22 20 20 20 20 20 50 4C 45 |"......" PLE|
000009B0: 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 22 00 |ASE CONTACT:..".|
000009C0: E8 11 FA 01 99 22 20 20 20 20 20 20 C3 CF CD CD |....." ....|
000009D0: CF C4 CF D2 C5 A0 C2 D5 D3 C9 CE C5 D3 D3 A0 CD |................|
000009E0: C1 C3 C8 C9 CE C5 D3 22 00 0C 12 FB 01 99 22 20 |......."......" |
000009F0: 20 20 20 20 20 20 20 20 20 11 33 33 37 30 20 D0 | .3370 .|
00000A00: 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 31 12 FC |HARMACY .VE..1..|
00000A10: 01 99 22 20 20 20 20 20 20 20 20 20 20 11 C1 47 |.." ..G|
00000A20: 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F |INCOURT, .NTARIO|
00000A30: 22 00 53 12 FD 01 99 22 20 20 20 20 20 20 20 20 |".S...." |
00000A40: 20 20 11 C3 41 4E 41 44 41 2C 20 CD 31 D7 20 32 | ..ANADA, .1. 2|
00000A50: CB 34 22 00 74 12 FE 01 99 22 20 20 20 20 20 20 |.4".t...." |
00000A60: 20 20 20 20 11 28 34 31 36 29 20 34 39 39 2D 34 | .(416) 499-4|
00000A70: 32 39 32 22 00 87 12 FF 01 55 48 B2 31 3A 8D 38 |292".....UH.1:.8|
00000A80: 33 35 3A 8D 38 35 30 00 B1 12 00 02 99 22 20 20 |35:.850......" |
00000A90: 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 | ...ROGRAM .A|
00000AA0: 4D 45 3A 20 C4 45 50 52 45 43 49 41 54 49 4F 4E |ME: .EPRECIATION|
00000AB0: 22 00 CD 12 01 02 99 22 20 20 20 20 20 20 11 D7 |"......" ..|
00000AC0: 52 49 54 54 45 4E 20 42 59 20 20 3A 22 00 F5 12 |RITTEN BY :"...|
00000AD0: 02 02 99 22 20 20 20 20 20 20 11 D2 45 56 49 53 |..." ..EVIS|
00000AE0: 45 44 20 42 59 20 20 3A 20 CA 41 4E 20 D3 41 57 |ED BY : .AN .AW|
00000AF0: 43 5A 41 4B 22 00 22 13 03 02 99 22 20 20 20 20 |CZAK"."...." |
00000B00: 20 20 11 11 D4 48 49 53 20 50 52 4F 47 52 41 4D | ...HIS PROGRAM|
00000B10: 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 | WILL RUN ON ANY|
00000B20: 11 11 00 49 13 04 02 99 22 20 20 20 20 20 20 20 |...I...." |
00000B30: 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 | ......2.0 ... |
00000B40: C3 4F 4D 50 55 54 45 52 11 00 70 13 05 02 99 22 |.OMPUTER..p...."|
00000B50: 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 | ..... 4|
00000B60: 2E 30 20 D0 C5 D4 A0 C3 4F 4D 50 55 54 45 52 11 |.0 .....OMPUTER.|
00000B70: 00 92 13 06 02 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000B80: 38 30 33 32 20 C3 C2 CD 20 C3 4F 4D 50 55 54 45 |8032 ... .OMPUTE|
00000B90: 52 11 00 B7 13 07 02 99 22 20 20 20 20 20 20 20 |R......." |
00000BA0: 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 C3 | .OMMODORE 64 .|
00000BB0: 4F 4D 50 55 54 45 52 00 C5 13 08 02 8D 38 33 35 |OMPUTER......835|
00000BC0: 3A 8D 38 35 30 00 F5 13 0D 02 99 22 11 11 20 D4 |:.850......".. .|
00000BD0: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL|
00000BE0: 20 52 45 54 55 52 4E 20 54 48 45 20 44 45 50 4F | RETURN THE DEPO|
00000BF0: 53 49 54 53 22 00 21 14 12 02 99 22 11 20 54 4F |SITS".!....". TO|
00000C00: 20 42 45 20 4D 41 44 45 20 54 4F 20 41 54 54 41 | BE MADE TO ATTA|
00000C10: 49 4E 20 41 20 53 45 54 20 41 4D 4F 55 4E 54 2C |IN A SET AMOUNT,|
00000C20: 22 00 45 14 17 02 99 22 11 20 49 4E 20 54 48 45 |".E....". IN THE|
00000C30: 20 27 C4 45 50 4F 53 49 54 53 27 20 53 45 43 54 | '.EPOSITS' SECT|
00000C40: 49 4F 4E 2E 22 00 73 14 1C 02 99 22 11 11 20 C9 |ION.".s....".. .|
00000C50: 4E 20 54 48 45 20 27 C4 45 50 52 45 43 49 54 41 |N THE '.EPRECITA|
00000C60: 49 4F 4E 20 D2 41 54 45 53 27 20 53 45 43 54 49 |ION .ATES' SECTI|
00000C70: 4F 4E 22 00 A3 14 21 02 99 22 11 20 54 48 45 20 |ON"...!..". THE |
00000C80: 53 54 55 44 45 4E 54 20 4D 55 53 54 20 45 4E 54 |STUDENT MUST ENT|
00000C90: 45 52 20 4F 52 49 47 49 4E 41 4C 20 50 52 49 43 |ER ORIGINAL PRIC|
00000CA0: 45 2C 22 00 CF 14 26 02 99 22 11 20 52 45 53 41 |E,"...&..". RESA|
00000CB0: 4C 45 20 50 52 49 43 45 2C 20 41 4E 44 20 54 48 |LE PRICE, AND TH|
00000CC0: 45 20 59 45 41 52 53 20 41 46 54 45 52 20 22 00 |E YEARS AFTER ".|
00000CD0: FF 14 2B 02 99 22 20 11 50 55 52 43 48 41 53 45 |..+.." .PURCHASE|
00000CE0: 2C 20 41 4E 44 20 54 48 45 20 43 4F 4D 50 55 54 |, AND THE COMPUT|
00000CF0: 45 52 20 57 49 4C 4C 20 52 45 54 55 52 4E 22 00 |ER WILL RETURN".|
00000D00: 1F 15 30 02 99 22 20 11 54 48 45 20 44 45 50 52 |..0.." .THE DEPR|
00000D10: 45 43 49 41 54 49 4F 4E 20 52 41 54 45 2E 22 00 |ECIATION RATE.".|
00000D20: 28 15 49 02 8D 38 33 35 00 3C 15 4E 02 8B 55 5A |(.I..835.<.N..UZ|
00000D30: B2 31 A7 9E 55 50 25 3A 89 31 35 35 00 42 15 53 |.1..UP%:.155.B.S|
00000D40: 02 8E 00 76 15 BC 02 99 55 43 24 22 93 11 11 11 |...v....UC$"....|
00000D50: 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 |BEFORE RUNNING T|
00000D60: 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 |HIS PROGRAM ON A|
00000D70: 4E 20 38 30 33 32 00 AE 15 C1 02 99 22 20 20 20 |N 8032......" |
00000D80: 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 4D | LOAD THE 'CBM|
00000D90: 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 11 | 4032' PROGRAM..|
00000DA0: 11 11 11 11 11 11 11 11 11 11 11 22 3A 80 00 D6 |...........":...|
00000DB0: 15 20 03 99 22 93 11 1D 1F 22 3B 3A 97 55 54 2C |. .."....";:.UT,|
00000DC0: 55 55 25 3A 8B 55 57 B2 30 A7 97 55 59 2C 31 3A |UU%:.UW.0..UY,1:|
00000DD0: 97 55 58 2C 31 34 00 EC 15 21 03 81 49 B2 31 A4 |.UX,14...!..I.1.|
00000DE0: 33 38 3A 99 22 12 20 92 22 3B 3A 82 00 04 16 22 |38:.". .";:...."|
00000DF0: 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 20 92 |..I.1.22:."... .|
00000E00: 22 3B 3A 82 00 1C 16 23 03 81 49 B2 31 A4 33 37 |";:....#..I.1.37|
00000E10: 3A 99 22 9D 9D 12 20 92 22 3B 3A 82 00 34 16 24 |:."... .";:..4.$|
00000E20: 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 20 92 |..I.1.22:."... .|
00000E30: 22 3B 3A 82 00 54 16 25 03 99 22 13 11 11 11 11 |";:..T.%..".....|
00000E40: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1F 12 |................|
00000E50: A9 20 20 92 00 6E 16 26 03 99 22 1D 1D 1D 1D 1D |. ..n.&..".....|
00000E60: 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 9A |...... . . ....|
00000E70: 16 27 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |.'.."...........|
00000E80: 20 92 20 20 1C 12 A3 DF 1F 92 20 4F 20 4D 20 4D | . ...... O M M|
00000E90: 20 4F 20 44 20 4F 20 52 20 45 00 B0 16 28 03 99 | O D O R E...(..|
00000EA0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 |"............ .|
00000EB0: 00 D6 16 29 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |...)..".........|
00000EC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C 45 44 55 43 41 54 |..........EDUCAT|
00000ED0: 49 4F 4E 41 4C 11 00 F6 16 2A 03 99 22 1D 1D 1D |IONAL....*.."...|
00000EE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1F 53 4F |..............SO|
00000EF0: 46 54 57 41 52 45 00 14 17 2B 03 99 22 11 1D 1D |FTWARE...+.."...|
00000F00: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C 31 |...............1|
00000F10: 39 38 33 1F 00 50 17 2C 03 99 C8 28 55 44 24 2C |983..P.,...(UD$,|
00000F20: 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 |24);"..........P|
00000F30: 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 4F |RESS SPACE BAR O|
00000F40: 52 20 57 41 49 54 92 22 55 43 24 3A 55 49 B2 30 |R WAIT."UC$:UI.0|
00000F50: 00 77 17 2D 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 |.w.-..UI$:.UI$..|
00000F60: 22 20 22 A7 55 49 B2 55 49 AA 31 3A 8B 55 49 B3 |" ".UI.UI.1:.UI.|
00000F70: 32 35 30 A7 38 31 33 00 80 17 2E 03 89 33 30 30 |250.813......300|
00000F80: 00 BB 17 43 03 97 55 4E 2C 30 3A 99 C8 28 55 44 |...C..UN,0:..(UD|
00000F90: 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 |$,24);".......PR|
00000FA0: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F |ESS SPACE BAR TO|
00000FB0: 20 43 4F 4E 54 49 4E 55 45 92 22 00 D2 17 48 03 | CONTINUE."...H.|
00000FC0: A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 |.UI$:.UI$.." ".8|
00000FD0: 34 30 00 D8 17 4D 03 8E 00 0A 18 52 03 55 50 B2 |40...M.....R.UP.|
00000FE0: 55 50 AA 31 3A 99 22 93 22 C8 28 55 54 24 AA 55 |UP.1:.".".(UT$.U|
00000FF0: 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 |P$,21);.(UP$.UG$|
00001000: AA C4 28 55 50 29 2C 31 38 29 00 39 18 57 03 99 |..(UP),18).9.W..|
00001010: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
00001020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001030: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 73 18 5C 03 8B 55 |--------".s.\..U|
00001040: 48 B2 30 A7 99 C8 28 55 44 24 2C 32 34 29 3B C8 |H.0...(UD$,24);.|
00001050: 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D 20 |(UP$,7);"HELP - |
00001060: 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 52 |PRESS H <RETUR|
00001070: 4E 3E 22 00 84 18 61 03 55 48 B2 30 3A 99 22 13 |N>"...a.UH.0:.".|
00001080: 11 22 3A 8E 00 BC 18 6B 03 99 C8 28 55 44 24 2C |.":....k...(UD$,|
00001090: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
000010A0: 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 |ONE MOMENT PLEAS|
000010B0: 45 2E 2E 2E 20 20 20 20 20 22 3A 8E 00 0C 19 84 |E... ":.....|
000010C0: 03 55 58 24 B2 22 48 22 3A 55 53 B2 33 32 37 36 |.UX$."H":US.3276|
000010D0: 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A |8:U1.196:U2.197:|
000010E0: 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 |U3.198:U4.216:UC|
000010F0: B2 31 36 37 3A 55 42 B2 31 30 32 34 3A 55 44 B2 |.167:UB.1024:UD.|
00001100: 31 30 38 34 3A 55 45 B2 31 31 30 35 00 55 19 85 |1084:UE.1105.U..|
00001110: 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 |.UT.59468:UU%.12|
00001120: 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 35 38 |:UL%.14:UP%.1158|
00001130: 3A 55 4E B2 31 35 38 3A 97 35 30 30 30 33 2C 30 |:UN.158:.50003,0|
00001140: 3A 55 57 B2 C2 28 35 30 30 30 33 29 3A 55 46 B2 |:UW..(50003):UF.|
00001150: C2 28 35 33 29 00 A3 19 86 03 8B 55 57 B2 30 A7 |.(53)......UW.0.|
00001160: 55 53 B2 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 |US.1024:U1.209:U|
00001170: 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 |2.210:U3.211:U4.|
00001180: 32 31 34 3A 55 43 B2 32 30 34 3A 55 42 B2 32 30 |214:UC.204:UB.20|
00001190: 34 38 3A 55 58 B2 35 33 32 38 30 3A 55 44 B2 32 |48:UX.53280:UD.2|
000011A0: 30 36 34 00 ED 19 87 03 8B 55 57 B2 30 A7 55 54 |064......UW.0.UT|
000011B0: B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C |.53272:UU%.21:UL|
000011C0: 25 B2 32 33 3A 55 50 25 B2 32 31 35 31 3A 55 4E |%.23:UP%.2151:UN|
000011D0: B2 31 39 38 3A 55 59 B2 35 33 32 38 31 3A 55 55 |.198:UY.53281:UU|
000011E0: B2 32 31 39 39 3A 55 45 B2 32 30 38 37 00 19 1A |.2199:UE.2087...|
000011F0: 88 03 55 43 24 B2 C7 28 31 35 35 29 3A 55 56 B2 |..UC$..(155):UV.|
00001200: 31 32 31 34 3A 8B 55 57 B2 30 A7 55 46 B2 31 39 |1214:.UW.0.UF.19|
00001210: 36 3A 55 56 B2 32 32 33 38 00 6A 1A 89 03 55 44 |6:UV.2238.j...UD|
00001220: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00001230: 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 55 50 |............":UP|
00001240: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00001250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001260: 20 20 20 20 20 20 20 20 20 22 00 70 1A 8D 03 8E | ".p....|
00001270: 00 93 1A 8E 03 8D 39 30 30 3A 99 22 93 22 3A 99 |......900:.".":.|
00001280: 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 |".":. SHIFTED SP|
00001290: 41 43 45 00 A9 1A 93 03 8B C2 28 55 53 AA 34 30 |ACE.......(US.40|
000012A0: 29 B3 B1 39 36 A7 37 30 30 00 CF 1A 98 03 8B 28 |)..96.700......(|
000012B0: B8 28 30 29 AB 28 B4 28 B8 28 30 29 29 B3 30 29 |.(0).(.(.(0)).0)|
000012C0: AC 36 35 35 33 36 29 B1 35 30 30 A7 39 33 35 00 |.65536).500.935.|
000012D0: FF 1A 9D 03 99 55 43 24 22 93 11 11 54 48 49 53 |.....UC$"...THIS|
000012E0: 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F | MACHINE DOES NO|
000012F0: 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 |T HAVE ENOUGH.".|
00001300: 29 1B A2 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 |)...."MEMORY TO |
00001310: 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D |RUN THIS PROGRAM|
00001320: 20 21 22 3A 9E 55 45 3A 80 00 3F 1B A7 03 99 22 | !":.UE:..?...."|
00001330: 93 22 55 43 24 3A 8B 55 57 B2 30 A7 39 36 35 00 |."UC$:.UW.0.965.|
00001340: 5C 1B AC 03 8B 55 46 B2 36 30 B0 55 46 B2 31 30 |\....UF.60.UF.10|
00001350: 38 B0 55 46 B2 31 32 34 A7 39 35 30 00 76 1B B1 |8.UF.124.950.v..|
00001360: 03 97 35 32 2C 30 3A 97 35 33 2C 55 46 AB 34 3A |..52,0:.53,UF.4:|
00001370: 9C 3A 8D 39 30 30 00 AD 1B B6 03 8B 55 57 B2 31 |.:.900......UW.1|
00001380: 36 30 A7 97 31 31 30 33 2C 38 38 3A 97 31 31 30 |60..1103,88:.110|
00001390: 34 2C 32 32 38 3A 97 31 31 30 37 2C 38 35 3A 97 |4,228:.1107,85:.|
000013A0: 31 31 31 31 2C 32 32 38 3A 89 39 36 35 00 EA 1B |1111,228:.965...|
000013B0: BB 03 8B 55 57 B3 B1 31 A7 99 22 93 54 48 49 53 |...UW..1..".THIS|
000013C0: 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F | PGM WILL NOT WO|
000013D0: 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 |RK ON THIS MACHI|
000013E0: 4E 45 21 22 3A 9E 55 45 3A 80 00 19 1C C0 03 97 |NE!":.UE:.......|
000013F0: 31 31 30 33 2C 34 39 3A 97 31 31 30 34 2C 32 33 |1103,49:.1104,23|
00001400: 30 3A 97 31 31 30 37 2C 34 36 3A 97 31 31 31 31 |0:.1107,46:.1111|
00001410: 2C 32 33 30 3A 89 39 36 35 00 21 1C C5 03 9E 55 |,230:.965.!....U|
00001420: 44 00 2F 1C CA 03 8D 38 30 30 3A 89 33 30 30 00 |D./....800:.300.|
00001430: 48 1C E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E |H....UZ.1..UP%:.|
00001440: 55 50 25 3A 55 5A B2 30 00 6F 1C E9 03 55 50 B2 |UP%:UZ.0.o...UP.|
00001450: 30 3A 99 22 93 22 55 43 24 3B 3A 8C 3A 8B 55 57 |0:."."UC$;:.:.UW|
00001460: B2 30 A7 97 55 59 2C 36 3A 97 55 58 2C 31 34 00 |.0..UY,6:.UX,14.|
00001470: 7B 1C EA 03 97 55 54 2C 55 4C 25 00 90 1C 4C 04 |{....UT,UL%...L.|
00001480: 8B 20 47 45 B2 30 A7 55 50 B2 30 3A 47 45 B2 31 |. GE.0.UP.0:GE.1|
00001490: 00 B8 1C 5B 04 55 47 24 B2 22 22 3A 55 54 24 B2 |...[.UG$."":UT$.|
000014A0: 22 20 D2 45 47 55 4C 41 52 20 C4 45 50 4F 53 49 |" .EGULAR .EPOSI|
000014B0: 54 53 22 3A 8D 38 35 30 00 D1 1C 60 04 8F 2D 52 |TS":.850...`..-R|
000014C0: 45 51 55 45 53 54 20 55 53 45 52 20 49 4E 50 55 |EQUEST USER INPU|
000014D0: 54 00 F7 1C 6A 04 99 22 20 11 D4 4F 54 41 4C 20 |T...j.." ..OTAL |
000014E0: 56 41 4C 55 45 20 41 46 54 45 52 20 59 20 59 45 |VALUE AFTER Y YE|
000014F0: 41 52 53 20 3A 22 3B 00 21 1D 74 04 55 53 24 B2 |ARS :";.!.t.US$.|
00001500: 22 30 48 31 32 33 34 35 36 37 38 39 2E 22 3A 55 |"0H123456789.":U|
00001510: 4C B2 31 30 3A 8D 33 35 3A 54 B2 C5 28 55 52 24 |L.10:.35:T..(UR$|
00001520: 29 00 45 1D 7E 04 99 22 11 20 CE 4F 4D 49 4E 41 |).E.~..". .OMINA|
00001530: 4C 20 49 4E 54 45 52 45 53 54 20 52 41 54 45 20 |L INTEREST RATE |
00001540: 3A 20 9D 22 3B 00 81 1D 88 04 55 53 24 B2 22 30 |: .";.....US$."0|
00001550: 48 31 32 33 34 35 36 37 38 39 2E 22 3A 55 4C B2 |H123456789.":UL.|
00001560: 30 32 3A 8D 33 35 3A 49 B2 C5 28 55 52 24 29 3A |02:.35:I..(UR$):|
00001570: 8B 49 B2 30 A7 99 22 91 91 22 3B 3A 89 31 31 35 |.I.0.."..";:.115|
00001580: 30 00 A6 1D 92 04 99 22 11 20 23 20 4F 46 20 44 |0......". # OF D|
00001590: 45 50 4F 53 49 54 53 20 50 45 52 20 59 45 41 52 |EPOSITS PER YEAR|
000015A0: 20 3A 20 9D 22 3B 00 E1 1D 9C 04 55 53 24 B2 22 | : .";.....US$."|
000015B0: 30 48 31 32 33 34 35 36 37 38 39 2E 22 3A 55 4C |0H123456789.":UL|
000015C0: B2 32 3A 8D 33 35 3A 4E B2 C5 28 55 52 24 29 3A |.2:.35:N..(UR$):|
000015D0: 8B 4E B2 30 A7 99 22 91 91 22 3B 3A 89 31 31 37 |.N.0.."..";:.117|
000015E0: 30 00 FF 1D A6 04 99 22 11 20 CE 55 4D 42 45 52 |0......". .UMBER|
000015F0: 20 4F 46 20 59 45 41 52 53 20 3A 20 9D 22 3B 00 | OF YEARS : .";.|
00001600: 29 1E B0 04 55 53 24 B2 22 30 31 48 32 33 34 35 |)...US$."01H2345|
00001610: 36 37 38 39 2E 22 3A 55 4C B2 32 3A 8D 33 35 3A |6789.":UL.2:.35:|
00001620: 59 30 B2 C5 28 55 52 24 29 00 64 1E B1 04 99 22 |Y0..(UR$).d...."|
00001630: 11 20 CE 55 4D 42 45 52 20 4F 46 20 4D 4F 4E 54 |. .UMBER OF MONT|
00001640: 48 53 20 3A 20 9D 22 3B 3A 8B 46 58 B2 31 A7 99 |HS : .";:.FX.1..|
00001650: 3A 99 22 91 91 91 91 91 22 3A 46 58 B2 30 3A 89 |:.".....":FX.0:.|
00001660: 31 31 39 30 00 8E 1E B2 04 55 53 24 B2 22 30 31 |1190.....US$."01|
00001670: 48 32 33 34 35 36 37 38 39 2E 22 3A 55 4C B2 31 |H23456789.":UL.1|
00001680: 30 3A 8D 33 35 3A 4D B2 C5 28 55 52 24 29 00 AE |0:.35:M..(UR$)..|
00001690: 1E B3 04 8B 59 30 B2 30 AF 4D B2 30 A7 46 58 B2 |....Y0.0.M.0.FX.|
000016A0: 31 3A 99 22 91 91 22 3B 3A 89 31 32 30 31 00 D4 |1:."..";:.1201..|
000016B0: 1E BA 04 8F 2D 43 41 4C 43 55 4C 41 54 45 20 46 |....-CALCULATE F|
000016C0: 52 4F 4D 20 59 45 41 52 53 20 41 4E 44 20 4D 4F |ROM YEARS AND MO|
000016D0: 4E 54 48 53 00 E7 1E C4 04 59 B2 28 31 32 AC 59 |NTHS.....Y.(12.Y|
000016E0: 30 AA 4D 29 AD 31 32 00 13 1F CE 04 8F 2D 20 20 |0.M).12......- |
000016F0: 43 41 4C 43 55 4C 41 54 45 20 49 4E 54 45 52 45 |CALCULATE INTERE|
00001700: 53 54 20 52 41 54 45 20 50 45 52 20 44 45 50 4F |ST RATE PER DEPO|
00001710: 53 49 54 00 39 1F D8 04 8F 2D 43 4F 4E 56 45 52 |SIT.9....-CONVER|
00001720: 54 20 46 52 4F 4D 20 50 45 52 43 45 4E 54 20 54 |T FROM PERCENT T|
00001730: 4F 20 44 45 43 49 4D 41 4C 00 47 1F E2 04 49 B2 |O DECIMAL.G...I.|
00001740: 49 AD 4E AD 31 30 30 00 7E 1F EC 04 8F 2D 20 20 |I.N.100.~....- |
00001750: 43 41 4C 43 55 4C 41 54 45 20 41 4D 4F 55 4E 54 |CALCULATE AMOUNT|
00001760: 20 4F 46 20 52 45 47 55 4C 41 52 20 44 45 50 4F | OF REGULAR DEPO|
00001770: 53 49 54 20 42 59 20 46 4F 52 4D 55 4C 41 00 98 |SIT BY FORMULA..|
00001780: 1F F6 04 52 B2 54 AC 49 AD 28 28 49 AA 31 29 AE |...R.T.I.((I.1).|
00001790: 28 4E AC 59 29 AB 31 29 00 BE 1F 00 05 8F 2D 52 |(N.Y).1)......-R|
000017A0: 4F 55 4E 44 20 4F 46 46 20 54 4F 20 4E 45 41 52 |OUND OFF TO NEAR|
000017B0: 45 53 54 20 43 45 4E 54 2C 50 52 49 4E 54 00 DB |EST CENT,PRINT..|
000017C0: 1F 0A 05 99 22 11 1D D2 45 47 55 4C 41 52 20 44 |...."...EGULAR D|
000017D0: 45 50 4F 53 49 54 53 3D 24 22 3B 00 F1 1F 14 05 |EPOSITS=$";.....|
000017E0: 99 20 B5 28 52 AC 31 30 30 AA 2E 35 29 AD 31 30 |. .(R.100..5).10|
000017F0: 30 00 F7 1F 1E 05 99 00 16 20 28 05 8F 2D 20 52 |0........ (..- R|
00001800: 45 53 54 41 52 54 20 4F 52 20 45 4E 44 20 50 52 |ESTART OR END PR|
00001810: 4F 47 52 41 4D 3F 00 41 20 32 05 99 20 22 11 11 |OGRAM?.A 2.. "..|
00001820: 20 CD 4F 52 45 20 44 41 54 41 3F 20 22 3B 3A 55 | .ORE DATA? ";:U|
00001830: 53 24 B2 22 48 59 4E 22 3A 55 4C B2 31 3A 8D 33 |S$."HYN":UL.1:.3|
00001840: 35 00 54 20 3C 05 8B 55 52 24 B2 22 59 22 A7 20 |5.T <..UR$."Y". |
00001850: 31 31 30 30 00 5A 20 50 05 8E 00 94 20 5A 05 55 |1100.Z P.... Z.U|
00001860: 50 B2 30 3A 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E |P.0:.UZ.1..UP%:.|
00001870: 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 |UP%:UZ.0:. ** PR|
00001880: 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 |OGRAM STARTS HER|
00001890: 45 20 2A 2A 00 A0 20 5C 05 97 55 54 2C 55 4C 25 |E **.. \..UT,UL%|
000018A0: 00 CA 20 5F 05 55 47 24 B2 22 22 3A 55 54 24 B2 |.. _.UG$."":UT$.|
000018B0: 22 20 C4 45 50 52 45 43 49 41 54 49 4F 4E 20 D2 |" .EPRECIATION .|
000018C0: 41 54 45 53 22 3A 8D 38 35 30 00 0C 21 64 05 99 |ATES":.850..!d..|
000018D0: 22 11 20 CF 52 49 47 49 4E 41 4C 20 50 52 49 43 |". .RIGINAL PRIC|
000018E0: 45 20 3A 20 22 3B 3A 55 53 24 B2 22 30 31 32 48 |E : ";:US$."012H|
000018F0: 33 34 35 36 37 38 39 2E 22 3A 55 4C B2 31 30 3A |3456789.":UL.10:|
00001900: 8D 33 35 3A 50 B2 C5 28 55 52 24 29 00 22 21 69 |.35:P..(UR$)."!i|
00001910: 05 8B 50 B2 30 A7 99 22 91 91 22 3B 3A 89 31 33 |..P.0.."..";:.13|
00001920: 38 30 00 62 21 6E 05 99 22 11 20 D2 45 53 41 4C |80.b!n..". .ESAL|
00001930: 45 20 50 52 49 43 45 20 3A 20 22 3B 3A 55 53 24 |E PRICE : ";:US$|
00001940: B2 22 30 31 32 33 34 48 35 36 37 38 39 2E 22 3A |."01234H56789.":|
00001950: 55 4C B2 31 30 3A 8D 33 35 3A 54 B2 C5 28 55 52 |UL.10:.35:T..(UR|
00001960: 24 29 00 9B 21 78 05 99 22 11 20 D9 45 41 52 53 |$)..!x..". .EARS|
00001970: 20 3A 20 22 3B 3A 55 53 24 B2 22 30 31 48 32 33 | : ";:US$."01H23|
00001980: 34 35 36 37 38 39 2E 22 3A 55 4C B2 31 30 3A 8D |456789.":UL.10:.|
00001990: 33 35 3A 59 B2 C5 28 55 52 24 29 00 B0 21 7D 05 |35:Y..(UR$)..!}.|
000019A0: 8B 59 B2 30 A7 99 22 91 22 3B 3A 89 31 34 30 30 |.Y.0..".";:.1400|
000019B0: 00 F3 21 82 05 8F 20 2D 20 43 41 4C 43 55 4C 41 |..!... - CALCULA|
000019C0: 54 45 20 44 45 50 52 45 43 49 41 54 49 4F 4E 20 |TE DEPRECIATION |
000019D0: 52 41 54 45 20 42 59 20 46 4F 52 4D 55 4C 41 2C |RATE BY FORMULA,|
000019E0: 20 43 4F 4E 56 45 52 54 20 54 4F 20 50 45 52 43 | CONVERT TO PERC|
000019F0: 45 4E 54 00 0D 22 8C 05 44 B2 31 30 30 AC 28 31 |ENT.."..D.100.(1|
00001A00: AB 28 54 AD 50 29 AE 28 31 AD 59 29 29 00 2C 22 |.(T.P).(1.Y)).,"|
00001A10: 96 05 99 20 22 11 20 C4 45 50 52 45 43 49 41 54 |... ". .EPRECIAT|
00001A20: 49 4F 4E 20 52 41 54 45 20 3D 22 3B 00 4C 22 A0 |ION RATE =";.L".|
00001A30: 05 99 20 B5 28 28 31 30 30 30 AC 44 AA 2E 35 29 |.. .((1000.D..5)|
00001A40: AD 31 30 30 30 29 3B 22 9D 25 11 22 00 6C 22 AA |.1000);".%.".l".|
00001A50: 05 8F 20 2D 20 52 45 53 54 41 52 54 20 4F 52 20 |.. - RESTART OR |
00001A60: 45 4E 44 20 50 52 4F 47 52 41 4D 3F 00 97 22 B4 |END PROGRAM?..".|
00001A70: 05 99 20 22 11 11 20 CD 4F 52 45 20 44 41 54 41 |.. ".. .ORE DATA|
00001A80: 3F 20 22 3B 3A 55 53 24 B2 22 48 59 4E 22 3A 55 |? ";:US$."HYN":U|
00001A90: 4C B2 31 3A 8D 33 35 00 AA 22 BE 05 8B 55 52 24 |L.1:.35.."...UR$|
00001AA0: B2 22 59 22 A7 20 31 33 37 35 00 B0 22 C8 05 8E |."Y". 1375.."...|
00001AB0: 00 00 00 |... |
.......910.6...."X..........X` ......L4.
X.1........X` .A...."X.G......X` ......L
X.X.U......X` ......"XHHH.H.HHHHHHH.H
.HX` ......"HHHHHHH` ......" .H...X.
. ..... .H...P...JP.` .U....".. .H....
.P.....JP.` ...#..UW.0..UU,15...(..UC,0
:.UN,0:UR$."":UI$."":.UL.0.UL.39.$.-..UI
$:.UI$."".45.Y.2.UA.F(UI$):UR.C(UR$):.UA
.13.UR.0..UC,1:." .";:.70...7..UA.20...(
UR.0).45:UR$.H(UR$,UR.1):.". ..";:.45..
.<..UR.UL.45...A..95:UR$.UR$.UI$:.UI$;:.
45.S.F..UR$.UX$..". ";:.145...K..UI.UR.1
..1:.J(UR$,UI,1)." ".....P.UR$.H(UR$,UI)
:.:...._..C(US$).0.110.J.D..UI.1.C(US$):
.UI$..J(US$,UI,1)..:UI$."".P.I...].N..UA
.46...P.S..UA.32.UR..0.....X..UA.47.UA.5
8.....}..UA.64.UA.91........UA.193.UA.21
8.UI$."":..O....B(UT).UU%.UI$.G(UA.128).
U..........170:.251,0:.252,US.256:.253,0
:.254,UF:.UV.....UZ.1:UV%.B(UT):.300.B..
.UZ.0:US$.UJ$:UG$.UK$:UT$.UL$:UP.UJ:UL.U
K:.".";:.UW.0..UY,6:.UX,14... ..UT,UV%:.
251,0:.252,UF:.253,0:.254,US.256:.UV:.UW
.0..UU,15.K....U1,U1%:.U2,U2%:.U3,U3%.1:
.U4,U4%:.35.....U1%.B(U1):U2%.B(U2):U3%.
B(U3):U4%.B(U4).!...UJ$.US$:UK$.UG$:UL$.
UT$:UJ.UP:UK.UL:..F.,.."..":.UT,UU%:.UW.
0..UY,12:.UX,6.F.1.." M E
N U."...6.." -----------------------
---------"...;..". 1. REGULAR DE
POSITS"...@..".. 2. DEPRECIATION
RATES"...C..".. 3. STUDENT INST
RUCTIONS".3.E..".. 4. TEACHER IN
STRUCTIONS".N.J..".. 5. QUIT.".Z
.O.." -------------------------------
-"...T..".. PRESS A NUMBER KEY (1-
5) ";...Y.UL.1:US$."12345".I.[..35:US$."
"...^.. E(UR$).1000,1370,400,500,390...C
..300...R..UZ.1..UP%:.155...W...7....UE:
."..":.UW.0..UY,6:.UX,14:.UU,14.?....:..
D....".":.UT,UL%:.UW.0..UY,11:.UX,12....
.UT$." DEPRECIATION":UH.1:UP.0:UG$."STUD
ENT INST":.850.G....". THIS PROGRAM WIL
L CALCULATE THE......". DEPRECIATION RAT
E OF AN ITEM. YOU"......". MUST TELL IT
THE VALUE OF THE ITEM".H...." .(PLUS A F
EW OTHER THINGS).AND IT".K....". WILL GI
VE YOU THE ANSWER!"......". IN THE 'REG
ULAR DEPOSIT' SECTION YOU".G....". CAN.F
IGURE OUT (WITH THE COMPUTER'S"......".
HELP).REGULAR DEPOSITS TO BE MADE"......
". IN ORDER.TO REACH A SET AMOUNT.".3.G.
.835:UP.2:UH.1:.850.B.L..".. NOTE:.R....
".......IF AT ANY TIME YOU WISH TO RETUR
N"......". . TO THE MENU PRESS H <RET
URN>"......835......UZ.1..UP%:.155......
......".":.UT,UL%:.UW.0..UY,2:.UX,10....
.UT$." DEPRECIATION":UH.1:UP.0:UG$."TEAC
HER INST":.850.K....".. TO THE BEST
OF OUR KNOWLEDGE,.".V...." THIS PROG
RAM IS IN THE PUBLIC."......" DOMAIN
. IF THIS IS NOT TRUE,."......" PLE
ASE CONTACT:.."......" COMMODORE BU
SINESS MACHINES"......" .3370 P
HARMACY AVE..1...." .AGINCOURT,
ONTARIO".S...." .CANADA, M1W 2
K4".T...." .(416) 499-4292"....
.UH.1:.835:.850......" ..PROGRAM NA
ME: DEPRECIATION".M...." .WRITTEN B
Y :"......" .REVISED BY : JAN SAW
CZAK"."...." ..THIS PROGRAM WILL RU
N ON ANY...I...." BASIC 2.0 PET
COMPUTER..P...." BASIC 4.0 PET C
OMPUTER......." 8032 CBM COMPUTE
R......." COMMODORE 64 COMPUTER.
E....835:.850......".. THIS PROGRAM WILL
RETURN THE DEPOSITS".!....". TO BE MADE
TO ATTAIN A SET AMOUNT,".E....". IN THE
'DEPOSITS' SECTION.".S....".. IN THE 'D
EPRECITAION RATES' SECTION"...!..". THE
STUDENT MUST ENTER ORIGINAL PRICE,".O.&.
.". RESALE PRICE, AND THE YEARS AFTER ".
..+.." .PURCHASE, AND THE COMPUTER WILL
RETURN"...0.." .THE DEPRECIATION RATE.".
(.I..835.<.N..UZ.1..UP%:.155.B.S...V....
UC$"....BEFORE RUNNING THIS PROGRAM ON A
N 8032...A.." LOAD THE 'CBM 4032' P
ROGRAM.............":..V. .."....";:.UT,
UU%:.UW.0..UY,1:.UX,14...!..I.1.38:.". .
";:...."..I.1.22:."... .";:....#..I.1.37
:."... .";:..4.$..I.1.22:."... .";:..T.%
.."...................... ..N.&..".....
...... . . .....'.."........... . ....
.. O M M O D O R E...(.."............ .
.V.).."...................EDUCATIONAL...
.*..".................SOFTWARE...+.."...
...............1983..P.,..H(UD$,24);"...
.......PRESS SPACE BAR OR WAIT."UC$:UI.0
.W.-..UI$:.UI$.." ".UI.UI.1:.UI.250.813.
.....300...C..UN,0:.H(UD$,24);".......PR
ESS SPACE BAR TO CONTINUE.".R.H..UI$:.UI
$.." ".840.X.M.....R.UP.UP.1:."."H(UT$.U
P$,21);I(UP$.UG$.D(UP),18).9.W.." ------
--------------------------------".S.\..U
H.0..H(UD$,24);H(UP$,7);"HELP - PRESS
H <RETURN>"...A.UH.0:."..":....K..H(UD$,
24);" ONE MOMENT PLEASE...
":......UX$."H":US.32768:U1.196:U2.197:
U3.198:U4.216:UC.167:UB.1024:UD.1084:UE.
1105.U...UT.59468:UU%.12:UL%.14:UP%.1158
:UN.158:.50003,0:UW.B(50003):UF.B(53)...
...UW.0.US.1024:U1.209:U2.210:U3.211:U4.
214:UC.204:UB.2048:UX.53280:UD.2064.....
.UW.0.UT.53272:UU%.21:UL%.23:UP%.2151:UN
.198:UY.53281:UU.2199:UE.2087.....UC$.G(
155):UV.1214:.UW.0.UF.196:UV.2238.J...UD
$.".........................":UP$."
".P....
......900:.".":." ":. SHIFTED SPACE.....
.B(US.40)..96.700.O....(.(0).(.(.(0)).0)
.65536).500.935......UC$"...THIS MACHINE
DOES NOT HAVE ENOUGH.".)...."MEMORY TO
RUN THIS PROGRAM !":.UE:..?...."."UC$:.U
W.0.965.\....UF.60.UF.108.UF.124.950.V..
..52,0:.53,UF.4:.:.900......UW.160..1103
,88:.1104,228:.1107,85:.1111,228:.965...
...UW..1..".THIS PGM WILL NOT WORK ON TH
IS MACHINE!":.UE:.......1103,49:.1104,23
0:.1107,46:.1111,230:.965.!.E..UD./.J..8
00:.300.H....UZ.1..UP%:.UP%:UZ.0.O...UP.
0:."."UC$;:.:.UW.0..UY,6:.UX,14.{....UT,
UL%...L.. GE.0.UP.0:GE.1...[.UG$."":UT$.
" REGULAR DEPOSITS":.850.Q.`..-REQUEST U
SER INPUT...J.." .TOTAL VALUE AFTER Y YE
ARS :";.!.T.US$."0H123456789.":UL.10:.35
:T.E(UR$).E.~..". NOMINAL INTEREST RATE
: .";.....US$."0H123456789.":UL.02:.35:I
.E(UR$):.I.0.."..";:.1150......". # OF D
EPOSITS PER YEAR : .";.....US$."0H123456
789.":UL.2:.35:N.E(UR$):.N.0.."..";:.117
0......". NUMBER OF YEARS : .";.)...US$.
"01H23456789.":UL.2:.35:Y0.E(UR$).D...."
. NUMBER OF MONTHS : .";:.FX.1..:.".....
":FX.0:.1190.....US$."01H23456789.":UL.1
0:.35:M.E(UR$)......Y0.0.M.0.FX.1:."..";
:.1201.T....-CALCULATE FROM YEARS AND MO
NTHS...D.Y.(12.Y0.M).12...N..- CALCULAT
E INTEREST RATE PER DEPOSIT.9.X..-CONVER
T FROM PERCENT TO DECIMAL.G...I.I.N.100.
~....- CALCULATE AMOUNT OF REGULAR DEPO
SIT BY FORMULA.....R.T.I.((I.1).(N.Y).1)
......-ROUND OFF TO NEAREST CENT,PRINT..
...."..REGULAR DEPOSITS=$";...... .(R.10
0..5).100........ (..- RESTART OR END PR
OGRAM?.A 2.. ".. MORE DATA? ";:US$."HYN"
:UL.1:.35.T <..UR$."Y". 1100.Z P.... Z.U
P.0:.UZ.1..UP%:.UP%:UZ.0:. ** PROGRAM ST
ARTS HERE **. \..UT,UL%.J _.UG$."":UT$.
" DEPRECIATION RATES":.850..!D..". ORIGI
NAL PRICE : ";:US$."012H3456789.":UL.10:
.35:P.E(UR$)."!I..P.0.."..";:.1380.B!N..
". RESALE PRICE : ";:US$."01234H56789.":
UL.10:.35:T.E(UR$)..!X..". YEARS : ";:US
$."01H23456789.":UL.10:.35:Y.E(UR$)..!}.
.Y.0..".";:.1400..!... - CALCULATE DEPRE
CIATION RATE BY FORMULA, CONVERT TO PERC
ENT.."..D.100.(1.(T.P).(1.Y)).,"... ". D
EPRECIATION RATE =";.L" .. .((1000.D..5)
.1000);".%.".L"... - RESTART OR END PROG
RAM?.."... ".. MORE DATA? ";:US$."HYN":U
L.1:.35.."...UR$."Y". 1375.."H.....
> CLICK IMAGE PREVIEW FOR FULL MODAL