DEPRECIATION.CV+
FILE INFORMATION
FILENAME(S): DEPRECIATION.CV+
FILE TYPE(S): PRG
FILE SIZE: 7.2K
FIRST SEEN: 2025-11-02 16:57:19
APPEARS ON: 1 disk(s)
FILE HASH
185042c0f5310a08cfcd2d00344094ddf6b6224d88635750138ea49c0a90e8ce
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ANWENDER | DEPRECIATION.CV+ | PRG | Treasure Chest - Romfreak | 33 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 10 37 10 01 00 97 36 35 33 30 31 2C 36 3A 97 |..7....65301,6:.|
00000010: 36 35 33 30 35 2C 31 36 3A 97 36 35 32 39 37 2C |65305,16:.65297,|
00000020: 31 35 3A DA 31 2C 39 30 30 2C 38 3A 99 C7 28 31 |15:.1,900,8:..(1|
00000030: 34 29 3A 89 38 30 30 00 57 10 02 00 8F 20 2A 2A |4):.800.W.... **|
00000040: 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 44 49 53 | ML STOP KEY DIS|
00000050: 41 42 4C 45 20 2A 2A 00 82 10 03 00 99 22 78 A9 |ABLE **......"x.|
00000060: 3D 85 90 EA A9 04 85 91 EA 58 60 20 EA FF A9 FF |=........X` ....|
00000070: 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 85 91 EA |..LX.x.U........|
00000080: 58 60 00 A1 10 04 00 99 22 78 68 68 68 AA 68 A8 |X`......"xhhh.h.|
00000090: 68 68 68 68 68 68 68 98 48 8A 48 58 60 31 31 31 |hhhhhhh.H.HX`111|
000000A0: 22 00 B2 10 05 00 99 22 68 68 68 68 68 68 68 60 |"......"hhhhhhh`|
000000B0: 31 22 00 D4 10 06 00 8F 20 2A 2A 20 34 20 2D 20 |1"...... ** 4 - |
000000C0: 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 54 49 4E |POP ML SUBROUTIN|
000000D0: 45 20 2A 2A 00 F5 10 0A 00 8F 20 2A 2A 47 45 4E |E **...... **GEN|
000000E0: 45 52 41 4C 20 49 4E 50 55 54 20 52 4F 55 54 49 |ERAL INPUT ROUTI|
000000F0: 4E 45 20 2A 2A 00 FB 10 0F 00 3A 00 01 11 1E 00 |NE **.....:.....|
00000100: 3A 00 1D 11 23 00 8F 20 2B 2B 2B 20 49 4E 50 55 |:...#.. +++ INPU|
00000110: 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B 00 35 11 |T SECTION +++.5.|
00000120: 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 22 3A 55 |(..UO,0:UR$."":U|
00000130: 49 24 B2 22 22 00 45 11 2A 00 8B 55 4C B2 30 A7 |I$."".E.*..UL.0.|
00000140: 55 4C B2 38 30 00 4F 11 2D 00 97 55 43 2C 30 00 |UL.80.O.-..UC,0.|
00000150: 63 11 32 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 |c.2..UI$:.UI$.""|
00000160: A7 35 30 00 8D 11 37 00 8B 55 49 24 B2 C7 28 31 |.50...7..UI$..(1|
00000170: 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 |3)..(UR$)..1..UC|
00000180: 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 00 A0 11 |,1:." .";:.85...|
00000190: 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 |<..UI$..(20).105|
000001A0: 00 B4 11 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 |...>.. .(UR$)..U|
000001B0: 4C A7 35 30 00 D9 11 41 00 8D 31 32 30 3A 8F 20 |L.50...A..120:. |
000001C0: 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 |CHECK FOR VALID |
000001D0: 43 48 41 52 41 43 54 45 52 00 E9 11 46 00 55 52 |CHARACTER...F.UR|
000001E0: 24 B2 55 52 24 AA 55 49 24 00 F3 11 4B 00 99 55 |$.UR$.UI$...K..U|
000001F0: 49 24 3B 00 FB 11 50 00 89 35 30 00 20 12 55 00 |I$;...P..50. .U.|
00000200: 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 |. +++ CHECK FOR |
00000210: 48 45 4C 50 20 52 45 51 55 45 53 54 20 2B 2B 2B |HELP REQUEST +++|
00000220: 00 48 12 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 |.H.Z..UR$.UX$.19|
00000230: 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 4C 50 |5:. EXIT TO HELP|
00000240: 20 52 4F 55 54 49 4E 45 00 57 12 5F 00 8B 55 46 | ROUTINE.W._..UF|
00000250: B2 31 A7 8D 32 34 30 00 64 12 64 00 55 46 B2 30 |.1..240.d.d.UF.0|
00000260: 3A 99 3A 8E 00 7D 12 66 00 8F 20 2B 2B 20 43 48 |:.:..}.f.. ++ CH|
00000270: 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B 00 8E 12 |ECK DELETE ++...|
00000280: 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 A6 |i...(UR$).1.50..|
00000290: 12 6E 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 |.n.UR$..(UR$,.(U|
000002A0: 52 24 29 AB 31 29 00 B8 12 73 00 99 22 9D 20 20 |R$).1)...s..". |
000002B0: 9D 9D 22 3B 3A 89 35 30 00 DF 12 78 00 8F 20 2B |..";:.50...x.. +|
000002C0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 |+ CHECK FOR VALI|
000002D0: 44 20 43 48 41 52 41 43 54 45 52 53 20 2B 2B 00 |D CHARACTERS ++.|
000002E0: F1 12 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 |..}...(US$).0.15|
000002F0: 30 00 02 13 82 00 81 55 53 B2 31 A4 C3 28 55 53 |0......US.1..(US|
00000300: 24 29 00 19 13 87 00 8B 55 49 24 B2 CA 28 55 53 |$)......UI$..(US|
00000310: 24 2C 55 53 2C 31 29 A7 8E 00 1F 13 8C 00 82 00 |$,US,1).........|
00000320: 2C 13 91 00 55 49 24 B2 22 22 3A 8E 00 47 13 96 |,...UI$."":..G..|
00000330: 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 |.. ** STANDARD I|
00000340: 4E 50 55 54 20 2A 2A 00 58 13 98 00 8B C6 28 55 |NPUT **.X.....(U|
00000350: 49 24 29 B2 34 36 A7 8E 00 69 13 9B 00 8B 55 49 |I$).46...i....UI|
00000360: 24 B2 C7 28 33 32 29 A7 8E 00 86 13 A0 00 8B C6 |$..(32).........|
00000370: 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 |(UI$).48..(UI$).|
00000380: 35 37 A7 31 37 30 00 8C 13 A5 00 8E 00 A9 13 AA |57.170..........|
00000390: 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 |...(UI$).65..(UI|
000003A0: 24 29 B1 39 30 A7 31 38 30 00 AF 13 AF 00 8E 00 |$).90.180.......|
000003B0: D3 13 B4 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 |......(UI$).193.|
000003C0: C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 |.(UI$).218.UI$."|
000003D0: 22 3A 8E 00 F6 13 B9 00 8B C2 28 55 54 29 B2 55 |":........(UT).U|
000003E0: 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB |U%.UI$..(.(UI$).|
000003F0: 31 32 38 29 3A 8E 00 FC 13 BB 00 8E 00 09 14 BE |128):...........|
00000400: 00 55 49 24 B2 22 22 3A 8E 00 2E 14 C3 00 55 46 |.UI$."":......UF|
00000410: B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F |.1:. +++ HELP RO|
00000420: 55 54 49 4E 45 20 45 58 49 54 20 2B 2B 2B 00 37 |UTINE EXIT +++.7|
00000430: 14 C5 00 8D 32 35 30 00 40 14 C8 00 8D 32 34 35 |....250.@....245|
00000440: 00 5F 14 CD 00 81 55 51 B2 55 42 A4 28 55 32 25 |._....UQ.UB.(U2%|
00000450: AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 |.256.U1%.U3%.2).|
00000460: 7B 14 D2 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 |{...UQ%(UQ.UB)..|
00000470: 28 55 51 29 3A 82 3A 99 22 93 22 00 8E 14 D7 00 |(UQ):.:.".".....|
00000480: 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 97 |UZ.1:UV%..(UT)..|
00000490: 14 D8 00 89 33 30 30 00 DB 14 D9 00 55 5A B2 30 |....300.....UZ.0|
000004A0: 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 |:US$.UJ$:UG$.UK$|
000004B0: 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 3A 8B C2 28 |:UP.UJ:UL.UK:..(|
000004C0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000004D0: 36 3A 97 35 33 32 38 30 2C 31 34 00 10 15 DC 00 |6:.53280,14.....|
000004E0: 55 54 24 B2 55 4C 24 3A 99 22 93 22 3B 3A 97 55 |UT$.UL$:.".";:.U|
000004F0: 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 55 32 |T,UV%:.UQ.UB.(U2|
00000500: 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 33 29 |%.256.U1%.U3%.3)|
00000510: 00 25 15 E1 00 97 55 51 2C 55 51 25 28 55 51 AB |.%....UQ,UQ%(UQ.|
00000520: 55 42 29 3A 82 00 31 15 E6 00 97 55 31 2C 55 31 |UB):..1....U1,U1|
00000530: 25 00 3D 15 E8 00 97 55 32 2C 55 32 25 00 49 15 |%.=....U2,U2%.I.|
00000540: E9 00 97 55 34 2C 55 34 25 00 57 15 EA 00 97 55 |...U4,U4%.W....U|
00000550: 33 2C 55 33 25 AB 31 00 5F 15 EB 00 89 33 35 00 |3,U3%.1._....35.|
00000560: 91 15 F0 00 55 44 25 B2 28 28 55 32 25 AC 32 35 |....UD%.((U2%.25|
00000570: 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 AD 34 |6.U1%.U3%).UB).4|
00000580: 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 29 3A |0:..(UD$,UD%.1):|
00000590: 8E 00 CC 15 F5 00 99 C8 28 55 44 24 2C 32 34 29 |........(UD$,24)|
000005A0: 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;" |
000005B0: 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 20 43 | . HELP C|
000005C0: 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 F8 15 FA |OMING . ":.....|
000005D0: 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 C2 |.U1%..(U1):U2%..|
000005E0: 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A 55 |(U2):U3%..(U3):U|
000005F0: 34 25 B2 C2 28 55 34 29 00 20 16 FB 00 55 4A 24 |4%..(U4). ...UJ$|
00000600: B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 |.US$:UK$.UG$:UL$|
00000610: B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C |.UT$:UJ.UP:UK.UL|
00000620: 00 26 16 FF 00 8E 00 37 16 2C 01 8F 20 2A 2A 20 |.&.....7.,.. ** |
00000630: 4D 45 4E 55 20 2A 2A 00 3D 16 2D 01 3A 00 6C 16 |MENU **.=.-.:.l.|
00000640: 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 3A 8B |...".":.UT,UU%:.|
00000650: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000660: 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 72 16 2F |1,9:.53280,8.r./|
00000670: 01 3A 00 8F 16 31 01 99 22 13 20 20 20 20 20 20 |.:...1..". |
00000680: 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 22 00 | MENU".|
00000690: BE 16 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |..6.." ---------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E6 |-------------"..|
000006C0: 16 3B 01 99 22 11 11 20 20 20 20 20 20 20 31 2E |.;..".. 1.|
000006D0: 20 20 20 42 45 47 49 4E 20 44 45 50 52 45 43 49 | BEGIN DEPRECI|
000006E0: 41 54 49 4F 4E 22 00 10 17 40 01 99 22 11 11 20 |ATION"...@..".. |
000006F0: 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 | 2. STUDE|
00000700: 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 |NT INSTRUCTIONS"|
00000710: 00 3A 17 45 01 99 22 11 11 20 20 20 20 20 20 20 |.:.E..".. |
00000720: 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E 53 |3. TEACHER INS|
00000730: 54 52 55 43 54 49 4F 4E 53 22 00 56 17 4F 01 99 |TRUCTIONS".V.O..|
00000740: 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 51 |".. 4. Q|
00000750: 55 49 54 11 11 22 00 85 17 54 01 99 22 20 2D 2D |UIT.."...T.." --|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000780: 2D 2D 2D 2D 22 00 B0 17 59 01 99 22 11 11 20 20 |----"...Y..".. |
00000790: 20 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 4D | PRESS A NUM|
000007A0: 42 45 52 20 4B 45 59 20 28 31 2D 34 29 20 22 3B |BER KEY (1-4) ";|
000007B0: 00 D8 17 5E 01 55 4C B2 31 3A 55 53 24 B2 22 31 |...^.UL.1:US$."1|
000007C0: 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 |234":.35:. INPUT|
000007D0: 20 52 4F 55 54 49 4E 45 00 E3 17 60 01 55 53 24 | ROUTINE...`.US$|
000007E0: B2 22 22 00 00 18 63 01 91 C5 28 55 52 24 29 8D |.""...c...(UR$).|
000007F0: 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 39 36 |1000,400,500,396|
00000800: 00 09 18 68 01 89 33 30 30 00 30 18 8B 01 8F 20 |...h..300.0.... |
00000810: 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 4F |** RE-ENABLE STO|
00000820: 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A 2A |P KEY AND END **|
00000830: 00 5F 18 8C 01 8B C2 28 35 30 30 30 33 29 B3 B1 |._.....(50003)..|
00000840: 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 AF |1..(50003)..160.|
00000850: C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 00 |.(50003)..0.399.|
00000860: 89 18 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 30 |.....UU.71:..(50|
00000870: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A |003).0..53281,6:|
00000880: 97 35 33 32 38 30 2C 31 34 00 95 18 8E 01 99 22 |.53280,14......"|
00000890: 9A 93 22 3A 80 00 A0 18 8F 01 8D 38 37 35 3A 8E |..":.......875:.|
000008A0: 00 C1 18 90 01 8F 20 2A 2A 20 53 54 55 44 45 4E |...... ** STUDEN|
000008B0: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A |T INSTRUCTIONS *|
000008C0: 2A 00 F0 18 95 01 99 22 93 22 3A 97 55 54 2C 55 |*......".":.UT,U|
000008D0: 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |L%:..(50003).0..|
000008E0: 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 |53281,0:.53280,0|
000008F0: 00 11 19 9A 01 55 50 B2 30 3A 55 47 24 B2 22 D3 |.....UP.0:UG$.".|
00000900: 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 |TUDENT .NST":.85|
00000910: 30 00 3F 19 A4 01 99 22 11 11 11 11 20 20 20 20 |0.?....".... |
00000920: D4 48 49 53 20 50 52 4F 47 52 41 4D 20 53 48 4F |.HIS PROGRAM SHO|
00000930: 57 53 20 48 4F 57 20 41 20 50 49 45 43 45 22 00 |WS HOW A PIECE".|
00000940: 6B 19 A9 01 99 22 20 20 20 20 4F 46 20 43 41 50 |k...." OF CAP|
00000950: 49 54 41 4C 20 45 51 55 49 50 4D 45 4E 54 20 44 |ITAL EQUIPMENT D|
00000960: 45 50 52 45 43 49 41 54 45 53 22 00 92 19 AE 01 |EPRECIATES".....|
00000970: 99 22 20 20 20 20 41 43 43 4F 52 44 49 4E 47 20 |." ACCORDING |
00000980: 54 4F 20 54 48 52 45 45 20 43 4F 4D 4D 4F 4E 4C |TO THREE COMMONL|
00000990: 59 22 00 B8 19 B3 01 99 22 20 20 20 20 55 53 45 |Y"......" USE|
000009A0: 44 20 C4 45 50 52 45 43 49 41 54 49 4F 4E A0 CD |D .EPRECIATION..|
000009B0: 45 54 48 4F 44 53 3A 22 00 D9 19 B8 01 99 22 11 |ETHODS:"......".|
000009C0: 20 20 20 20 20 20 20 20 20 20 20 D3 54 52 41 49 | .TRAI|
000009D0: 47 48 54 20 CC 49 4E 45 2C 00 FF 19 BD 01 99 22 |GHT .INE,......"|
000009E0: 11 20 20 20 20 20 20 20 20 20 20 20 D3 55 4D 20 |. .UM |
000009F0: 4F 46 20 54 48 45 20 C4 49 47 49 54 53 2C 22 00 |OF THE .IGITS,".|
00000A00: 42 1A C2 01 99 22 11 20 20 20 20 20 20 41 4E 44 |B....". AND|
00000A10: 20 20 C4 4F 55 42 4C 45 20 C4 45 43 4C 49 4E 49 | .OUBLE .ECLINI|
00000A20: 4E 47 22 3A 99 22 20 20 20 20 20 20 20 20 20 20 |NG":." |
00000A30: 20 20 20 20 C4 45 50 52 45 43 49 41 54 49 4F 4E | .EPRECIATION|
00000A40: 2E 22 00 4B 1A E5 01 8D 38 33 35 00 5F 1A EA 01 |.".K....835._...|
00000A50: 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 |.UZ.1..UP%:.217.|
00000A60: 65 1A F3 01 8E 00 86 1A F4 01 8F 20 2A 2A 20 54 |e.......... ** T|
00000A70: 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 |EACHER INSTRUCTI|
00000A80: 4F 4E 53 20 2A 2A 00 B6 1A F5 01 99 22 93 22 3A |ONS **......".":|
00000A90: 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 |.UT,UL%:..(50003|
00000AA0: 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 |).0..53281,2:.53|
00000AB0: 32 38 30 2C 31 30 00 D7 1A F6 01 55 50 B2 30 3A |280,10.....UP.0:|
00000AC0: 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 |UG$.".EACHER .NS|
00000AD0: 54 22 3A 8D 38 35 30 00 05 1B F7 01 99 22 11 11 |T":.850......"..|
00000AE0: 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 | .O THE BES|
00000AF0: 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 |T OF OUR KNOWLED|
00000B00: 47 45 2C 11 22 00 2E 1B F8 01 99 22 20 20 20 54 |GE,."......" T|
00000B10: 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 |HIS PROGRAM IS I|
00000B20: 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 5A |N THE PUBLIC.".Z|
00000B30: 1B F9 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 |...." DOMAIN. |
00000B40: 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 | .F THIS IS NOT |
00000B50: 54 48 45 20 43 41 53 45 11 22 00 77 1B FA 01 99 |THE CASE.".w....|
00000B60: 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 |" PLEASE CONTA|
00000B70: 43 54 3A 11 11 11 22 00 A1 1B FB 01 99 22 20 20 |CT:..."......" |
00000B80: 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 | .OMMODORE .U|
00000B90: 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 |SINESS .ACHINES.|
00000BA0: 22 00 C4 1B FC 01 99 22 20 20 20 20 20 20 20 20 |"......" |
00000BB0: 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 | 3370 .HARMACY |
00000BC0: C1 56 45 2E 00 E8 1B FD 01 99 22 20 20 20 20 20 |.VE......." |
00000BD0: 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 | .GINCOURT, |
00000BE0: CF 4E 54 41 52 49 4F 22 00 0A 1C FE 01 99 22 20 |.NTARIO"......" |
00000BF0: 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 | .ANADA |
00000C00: 20 20 CD 31 D7 20 32 CB 34 22 00 2A 1C FF 01 99 | .1. 2.4".*....|
00000C10: 22 20 20 20 20 20 20 20 20 20 20 28 34 31 36 29 |" (416)|
00000C20: 20 34 39 39 2D 34 32 39 32 22 00 39 1C 40 02 8D | 499-4292".9.@..|
00000C30: 38 33 35 3A 8D 38 35 30 3A 00 61 1C 42 02 99 22 |835:.850:.a.B.."|
00000C40: 20 20 20 20 20 11 D0 52 4F 47 52 41 4D 20 CE 41 | ..ROGRAM .A|
00000C50: 4D 45 3A 20 C4 45 50 52 45 43 49 41 54 49 4F 4E |ME: .EPRECIATION|
00000C60: 11 00 87 1C 44 02 99 22 20 20 20 20 20 D7 52 49 |....D.." .RI|
00000C70: 54 54 45 4E 20 C2 59 20 20 3A 20 C1 4E 44 59 20 |TTEN .Y : .NDY |
00000C80: C7 41 4D 42 4C 45 22 00 A7 1C 45 02 99 A3 31 39 |.AMBLE"...E...19|
00000C90: 29 22 D6 41 4E 43 4F 55 56 45 52 20 20 C6 45 42 |)".ANCOUVER .EB|
00000CA0: 20 31 39 38 30 11 22 00 C2 1C 46 02 99 22 20 20 | 1980."...F.." |
00000CB0: 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A | .PGRADED .Y :|
00000CC0: 20 11 00 ED 1C 48 02 99 22 20 20 20 20 20 11 D4 | ....H.." ..|
00000CD0: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL|
00000CE0: 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 14 1D | RUN ON ANY.....|
00000CF0: 4A 02 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 |J.." ...|
00000D00: C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 CF CD D0 D5 |...2.0 ... .....|
00000D10: D4 C5 D2 11 00 3B 1D 4C 02 99 22 20 20 20 20 20 |.....;.L.." |
00000D20: 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E 30 20 D0 C5 | ..... 4.0 ..|
00000D30: D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 5D 1D 4E 02 |............].N.|
00000D40: 99 22 20 20 20 20 20 20 20 20 20 38 30 33 32 20 |." 8032 |
00000D50: C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 11 00 82 1D |... ............|
00000D60: 50 02 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD |P.." ...|
00000D70: CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 |...... 64 ......|
00000D80: C5 D2 00 8B 1D 52 02 8D 38 33 35 00 9F 1D 54 02 |.....R..835...T.|
00000D90: 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 |.UZ.1..UP%:.217.|
00000DA0: A5 1D 56 02 8E 00 CB 1D 58 02 8F 20 2A 2A 20 50 |..V.....X.. ** P|
00000DB0: 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 |ROGRAM MODIFICAT|
00000DC0: 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 DC 1D 59 02 |ION INST **...Y.|
00000DD0: 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 FC 1D 5D |.".":.UT,UL%...]|
00000DE0: 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 |.UP.0:UG$.".ROGR|
00000DF0: 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 05 1E 94 |AM .OD":.850....|
00000E00: 02 8D 38 33 35 00 19 1E B2 02 8B 55 5A B2 31 A7 |..835......UZ.1.|
00000E10: 9E 55 50 25 3A 89 32 31 37 00 1F 1E BB 02 8E 00 |.UP%:.217.......|
00000E20: 44 1E BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 |D.... ** TO USE |
00000E30: 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 |8032 LOAD CBM403|
00000E40: 32 20 2A 2A 00 7A 1E C6 02 99 22 93 11 11 11 05 |2 **.z....".....|
00000E50: 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 |BEFORE RUNNING T|
00000E60: 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 |HIS PROGRAM ON A|
00000E70: 4E 20 38 30 33 32 20 20 11 11 00 B0 1E D0 02 99 |N 8032 ........|
00000E80: 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 |" LOAD THE |
00000E90: 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 |'CBM 4032' PROGR|
00000EA0: 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |AM............."|
00000EB0: 00 BB 1E DA 02 9E 55 55 AA 37 31 00 C1 1E E4 02 |......UU.71.....|
00000EC0: 80 00 E1 1E 20 03 8F 20 2A 2A 20 54 20 49 20 54 |.... .. ** T I T|
00000ED0: 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 20 2A | L E P A G E *|
00000EE0: 2A 00 15 1F 22 03 99 22 93 11 1D 05 22 3B 3A 97 |*...".."....";:.|
00000EF0: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)|
00000F00: B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 |.0..53280,14:.53|
00000F10: 32 38 31 2C 36 00 2B 1F 24 03 81 49 B2 31 A4 33 |281,6.+.$..I.1.3|
00000F20: 38 3A 99 22 12 A6 92 22 3B 3A 82 00 43 1F 26 03 |8:."...";:..C.&.|
00000F30: 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 |.I.1.22:."....."|
00000F40: 3B 3A 82 00 5B 1F 28 03 81 49 B2 31 A4 33 37 3A |;:..[.(..I.1.37:|
00000F50: 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 73 1F 2A 03 |.".....";:..s.*.|
00000F60: 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 |.I.1.22:."....."|
00000F70: 3B 3A 82 00 98 1F 2C 03 99 22 13 11 11 11 11 11 |;:....,.."......|
00000F80: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000F90: 1D 1D 1D 12 A9 20 20 92 00 BA 1F 2E 03 99 22 1D |..... .......".|
00000FA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000FB0: 1D 12 20 92 20 20 12 20 92 A9 00 DB 1F 30 03 99 |.. . . .....0..|
00000FC0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000FD0: 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 F9 1F 32 03 |.... . ......2.|
00000FE0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000FF0: 1D 1D 1D 1D DF 12 20 20 92 00 21 20 34 03 99 22 |...... ..! 4.."|
00001000: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 |..............C |
00001010: 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 |O M M O D O R E.|
00001020: 11 00 44 20 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..D 6.."........|
00001030: 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E |.......EDUCATION|
00001040: 41 4C 11 11 00 63 20 38 03 99 22 1D 1D 1D 1D 1D |AL...c 8..".....|
00001050: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 |...........SOFTW|
00001060: 41 52 45 00 7E 20 3A 03 8F 20 2A 2A 20 43 4F 4D |ARE.~ :.. ** COM|
00001070: 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 B6 |MODORE LOGO **..|
00001080: 20 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D | ;...(UD$,24);".|
00001090: 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 |.........PRESS S|
000010A0: 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 |PACE BAR OR WAIT|
000010B0: 92 22 3A 49 B2 30 00 D8 20 3C 03 A1 41 24 3A 8B |.":I.0.. <..A$:.|
000010C0: 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 |A$.." ".I.I.1:.I|
000010D0: B3 32 35 30 A7 38 32 38 00 FC 20 3E 03 54 31 24 |.250.828.. >.T1$|
000010E0: B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 |."":T2$."":T3$."|
000010F0: 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 05 21 40 |":T4$."":I.0..!@|
00001100: 03 89 33 30 30 00 21 21 43 03 8F 20 2A 2A 20 53 |..300.!!C.. ** S|
00001110: 50 41 43 45 20 42 41 52 20 50 52 45 53 53 20 2A |PACE BAR PRESS *|
00001120: 2A 00 65 21 48 03 97 55 4F 2C 30 3A 99 C8 28 55 |*.e!H..UO,0:..(U|
00001130: 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 |D$,24);".......P|
00001140: 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 |RESS SPACE BAR T|
00001150: 4F 20 43 4F 4E 54 49 4E 55 45 92 22 3A DA 32 2C |O CONTINUE.":.2,|
00001160: 39 30 30 2C 32 00 7C 21 4C 03 A1 55 49 24 3A 8B |900,2.|!L..UI$:.|
00001170: 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 82 21 4E |UI$.." ".844..!N|
00001180: 03 8E 00 A2 21 52 03 8F 20 2A 2A 20 50 41 47 45 |....!R.. ** PAGE|
00001190: 20 44 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 | DESIGN ROUTINE |
000011A0: 2A 2A 00 AE 21 54 03 55 50 B2 55 50 AA 31 00 D8 |**..!T.UP.UP.1..|
000011B0: 21 57 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 |!W..".".(UT$.UP$|
000011C0: 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 |,21);.(UP$.UG$..|
000011D0: 28 55 50 29 2C 31 38 29 00 07 22 5C 03 99 22 20 |(UP),18).."\.." |
000011E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001200: 2D 2D 2D 2D 2D 2D 22 00 16 22 60 03 8B 55 48 B3 |------".."`..UH.|
00001210: B1 30 A7 38 37 30 00 4A 22 61 03 99 C8 28 55 44 |.0.870.J"a...(UD|
00001220: 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 |$,24);.(UP$,7);"|
00001230: 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 |HELP - PRESS H|
00001240: 20 3C 52 45 54 55 52 4E 3E 22 00 5B 22 66 03 55 | <RETURN>".["f.U|
00001250: 48 B2 30 3A 99 22 13 11 22 3A 8E 00 7A 22 6B 03 |H.0:."..":..z"k.|
00001260: 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 |. ** PLEASE WAIT|
00001270: 20 52 45 4D 41 52 4B 20 2A 2A 00 B0 22 70 03 99 | REMARK **.."p..|
00001280: C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 |.(UD$,24);" |
00001290: 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 | ONE MOMENT|
000012A0: 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 | PLEASE... "|
000012B0: 00 B6 22 75 03 8E 00 D3 22 84 03 8F 20 2A 2A 20 |.."u...."... ** |
000012C0: 53 45 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 |SET UP VARIABLES|
000012D0: 20 2A 2A 00 1E 23 85 03 55 58 24 B2 22 48 22 3A | **..#..UX$."H":|
000012E0: 86 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 |.UQ%(1000):UB.32|
000012F0: 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 |768:U1.196:U2.19|
00001300: 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A |7:U3.198:U4.216:|
00001310: 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 5C |UC.167:UU.1024.\|
00001320: 23 86 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 |#..UT.59468:UU%.|
00001330: 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 |12:UL%.14:UP%.11|
00001340: 34 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 |46:UM.32768:UO.1|
00001350: 35 38 3A 97 20 35 30 30 30 33 2C 30 00 9F 23 87 |58:. 50003,0..#.|
00001360: 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 |...(50003).0.UB.|
00001370: 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 |1024:U1.209:U2.2|
00001380: 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 |10:U3.211:U4.214|
00001390: 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 |:UC.204:UU.2048.|
000013A0: DE 23 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 |.#....(50003).0.|
000013B0: 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A |UT.53272:UU%.21:|
000013C0: 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A |UL%.23:UP%.2139:|
000013D0: 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 00 02 |UM.1024:UO.198..|
000013E0: 24 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 |$..UD$."........|
000013F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001400: 11 22 00 34 24 8A 03 55 50 24 B2 22 20 20 20 20 |.".4$..UP$." |
00001410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001430: 20 20 20 22 00 4C 24 8B 03 55 54 24 B2 22 20 C4 | ".L$..UT$." .|
00001440: C5 D0 D2 C5 C3 C9 C1 D4 C9 CF CE 22 00 52 24 8C |...........".R$.|
00001450: 03 8E 00 6C 24 8E 03 8F 20 2A 2A 20 53 45 54 20 |...l$... ** SET |
00001460: 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 75 24 93 |VARIABLES **.u$.|
00001470: 03 8D 39 30 30 00 90 24 98 03 8F 20 2A 2A 20 43 |..900..$... ** C|
00001480: 48 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A |HECK FOR 8032 **|
00001490: 00 AE 24 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F |..$...".":.".":.|
000014A0: 20 53 48 49 46 54 45 44 20 53 50 41 43 45 00 C5 | SHIFTED SPACE..|
000014B0: 24 A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 |$....(UB.40)..96|
000014C0: A7 8D 37 30 30 00 DE 24 A3 03 8F 20 2A 2A 20 4D |..700..$... ** M|
000014D0: 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 F2 |EMORY CHECK **..|
000014E0: 24 A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 |$... .(0).2000.9|
000014F0: 33 37 00 20 25 A5 03 99 22 93 11 11 05 54 48 49 |37. %..."....THI|
00001500: 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E |S MACHINE DOES N|
00001510: 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 |OT HAVE ENOUGH."|
00001520: 00 44 25 A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F |.D%..."MEMORY TO|
00001530: 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 | RUN THIS PROGRA|
00001540: 4D 20 21 22 00 4F 25 A7 03 9E 55 55 AA 37 31 00 |M !".O%...UU.71.|
00001550: 55 25 A8 03 80 00 6F 25 A9 03 99 22 93 05 22 3A |U%....o%..."..":|
00001560: 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 |..(50003).0.962.|
00001570: 9E 25 AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 |.%... ** BASIC 2|
00001580: 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 |.0 OR 4.0 OR |
00001590: 20 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 DC | C-64 SETUP **..|
000015A0: 25 AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 |%...1075,133:.10|
000015B0: 37 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 |76,144:.1077,234|
000015C0: 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 |:.1079,4:.1080,1|
000015D0: 33 33 3A 97 31 30 38 31 2C 31 34 35 00 12 26 AE |33:.1081,145..&.|
000015E0: 03 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 |..1091,155:.1098|
000015F0: 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 |,133:.1099,144:.|
00001600: 31 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 |1100,234:.1103,1|
00001610: 33 33 00 34 26 AF 03 97 31 31 30 34 2C 31 34 35 |33.4&...1104,145|
00001620: 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 |:.1105,234:.1082|
00001630: 2C 32 33 34 00 4B 26 B1 03 8B C2 28 35 30 30 30 |,234.K&....(5000|
00001640: 33 29 B3 B1 31 36 30 A7 39 35 35 00 7A 26 B6 03 |3)..160.955.z&..|
00001650: 97 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 |.1093,88:.1094,2|
00001660: 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 |28:.1097,85:.110|
00001670: 32 2C 32 32 38 3A 89 39 36 35 00 8F 26 BB 03 8B |2,228:.965..&...|
00001680: C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 |.(50003)..1.990.|
00001690: BE 26 C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 |.&...1093,49:.10|
000016A0: 39 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A |94,230:.1097,46:|
000016B0: 97 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 F8 |.1102,230:.965..|
000016C0: 26 C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 |&...2099,141:.21|
000016D0: 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 |00,20:.2101,3:.2|
000016E0: 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A |103,8:.2104,141:|
000016F0: 97 32 31 30 35 2C 32 31 00 34 27 C3 03 97 32 31 |.2105,21.4'...21|
00001700: 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 |06,3:.2115,145:.|
00001710: 32 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 |2117,52:.2118,23|
00001720: 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 |4:.2121,49:.2122|
00001730: 2C 31 34 31 00 6E 27 C4 03 97 32 31 32 33 2C 32 |,141.n'...2123,2|
00001740: 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C |0:.2124,3:.2126,|
00001750: 32 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 |234:.2127,141:.2|
00001760: 31 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 8C |128,21:.2129,3..|
00001770: 27 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 |'...UU.48:. DISA|
00001780: 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 9D 27 CA |BLE STOP KEY..'.|
00001790: 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 AD 27 |..800:. TITLE..'|
000017A0: D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 DE 27 |...300:. MENU..'|
000017B0: DE 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C |...".THE PGM WIL|
000017C0: 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 |L NOT WORK ON TH|
000017D0: 49 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 13 |IS MACHINE!":...|
000017E0: 28 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 |(...UZ.1..UP%:.U|
000017F0: 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F |P%:UZ.0:. ** PRO|
00001800: 47 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 |GRAM STARTS HERE|
00001810: 20 2A 2A 00 3F 28 E9 03 99 22 93 05 22 3B 3A 8C | **.?(..."..";:.|
00001820: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00001830: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 |281,6:.53280,14.|
00001840: 5C 28 F2 03 8F 20 48 55 4E 54 49 4E 47 54 4F 4E |\(... HUNTINGTON|
00001850: 20 20 44 45 50 52 45 43 49 41 54 45 00 82 28 FC | DEPRECIATE..(.|
00001860: 03 8F 20 46 49 54 20 54 4F 20 50 45 54 20 42 59 |.. FIT TO PET BY|
00001870: 20 41 4E 44 59 20 47 41 4D 42 4C 45 20 46 45 42 | ANDY GAMBLE FEB|
00001880: 38 30 00 99 28 06 04 8F 20 43 4F 4C 55 4D 42 49 |80..(... COLUMBI|
00001890: 41 20 43 4F 4C 4C 45 47 45 00 B9 28 10 04 8F 20 |A COLLEGE..(... |
000018A0: 31 36 31 39 20 57 31 30 20 41 56 45 20 56 41 4E |1619 W10 AVE VAN|
000018B0: 43 4F 55 56 45 52 20 42 43 00 E2 28 15 04 99 22 |COUVER BC..(..."|
000018C0: 93 22 3A 97 55 54 2C 55 4C 25 3A 55 50 B2 30 3A |.":.UT,UL%:UP.0:|
000018D0: 55 47 24 B2 22 44 45 50 52 45 43 49 41 54 49 4F |UG$."DEPRECIATIO|
000018E0: 4E 22 00 EC 28 1A 04 8D 20 38 35 30 00 27 29 56 |N"..(... 850.')V|
000018F0: 04 99 22 11 11 11 11 11 20 20 20 20 20 20 20 20 |.."..... |
00001900: CF 52 49 47 49 4E 41 4C 20 43 4F 53 54 20 4F 46 |.RIGINAL COST OF|
00001910: 20 49 54 45 4D 20 3F 22 3A 99 22 11 20 20 20 20 | ITEM ?":.". |
00001920: 20 20 20 20 24 22 3B 00 56 29 5B 04 55 53 24 B2 | $";.V)[.US$.|
00001930: 22 48 30 31 32 33 34 35 36 37 38 39 2E 22 3A 55 |"H0123456789.":U|
00001940: 4C B2 36 3A 8D 20 33 35 3A 43 B2 C5 28 55 52 24 |L.6:. 35:C..(UR$|
00001950: 29 3A 43 30 B2 43 00 8C 29 74 04 99 22 11 20 20 |):C0.C..)t..". |
00001960: 20 20 20 20 20 20 CC 49 46 45 20 4F 46 20 49 54 | .IFE OF IT|
00001970: 45 4D 20 49 4E 20 59 45 41 52 53 20 3F 22 3A 99 |EM IN YEARS ?":.|
00001980: 22 11 20 20 20 20 20 20 20 20 22 3B 00 B5 29 79 |". ";..)y|
00001990: 04 55 53 24 B2 22 48 31 32 33 34 35 36 37 38 39 |.US$."H123456789|
000019A0: 30 22 3A 55 4C B2 32 3A 8D 20 33 35 3A 4C B2 C5 |0":UL.2:. 35:L..|
000019B0: 28 55 52 24 29 00 D8 29 7B 04 8B 20 4C B2 30 20 |(UR$)..){.. L.0 |
000019C0: A7 20 99 22 91 20 20 20 20 20 20 20 20 20 9D 22 |. .". ."|
000019D0: 3B 3A 89 20 31 31 34 35 00 05 2A 7E 04 99 22 11 |;:. 1145..*~..".|
000019E0: 20 20 20 20 20 20 20 20 D3 43 52 41 50 20 56 41 | .CRAP VA|
000019F0: 4C 55 45 20 3F 22 3A 99 22 11 20 20 20 20 20 20 |LUE ?":.". |
00001A00: 20 20 24 22 3B 00 2F 2A 83 04 55 53 24 B2 22 48 | $";./*..US$."H|
00001A10: 2E 31 32 33 34 35 36 37 38 39 30 22 3A 55 4C B2 |.1234567890":UL.|
00001A20: 36 3A 8D 20 33 35 3A 53 B2 C5 28 55 52 24 29 00 |6:. 35:S..(UR$).|
00001A30: 37 2A 85 04 58 B2 31 00 46 2A 88 04 55 48 B2 31 |7*..X.1.F*..UH.1|
00001A40: 3A 8D 20 38 35 30 00 73 2A 9C 04 99 22 11 20 20 |:. 850.s*...". |
00001A50: 20 20 20 20 20 20 CF 52 49 47 49 4E 41 4C 20 43 | .RIGINAL C|
00001A60: 4F 53 54 3A 22 3B 3A 51 B2 43 30 3A 8D 31 34 35 |OST:";:Q.C0:.145|
00001A70: 30 3A 99 00 A1 2A A6 04 99 22 20 20 20 20 20 20 |0:...*..." |
00001A80: 20 20 D3 43 52 41 50 20 56 41 4C 55 45 3A 20 20 | .CRAP VALUE: |
00001A90: 22 3B 3A 51 B2 53 3A 8D 31 34 35 30 3A 99 22 11 |";:Q.S:.1450:.".|
00001AA0: 22 00 D2 2A B0 04 99 3A 99 22 20 20 59 45 41 52 |"..*...:." YEAR|
00001AB0: 22 2C 22 9D 9D 53 54 52 41 49 47 48 54 22 2C 22 |","..STRAIGHT","|
00001AC0: 20 53 55 4D 20 4F 46 22 2C 22 20 44 4F 55 42 4C | SUM OF"," DOUBL|
00001AD0: 45 22 00 F7 2A BA 04 99 2C 22 4C 49 4E 45 20 20 |E"..*...,"LINE |
00001AE0: 22 2C 22 20 44 49 47 49 54 53 22 2C 22 20 44 45 |"," DIGITS"," DE|
00001AF0: 43 4C 49 4E 2E 11 22 00 01 2B CE 04 56 B2 43 AB |CLIN.."..+..V.C.|
00001B00: 53 00 0C 2B D8 04 44 31 B2 56 AD 4C 00 1E 2B E2 |S..+..D1.V.L..+.|
00001B10: 04 59 B2 28 28 4C AA 31 29 AD 32 29 AC 4C 00 26 |.Y.((L.1).2).L.&|
00001B20: 2B EC 04 5A B2 4C 00 35 2B 00 05 44 32 B2 56 AC |+..Z.L.5+..D2.V.|
00001B30: 28 5A AD 59 29 00 3F 2B 0A 05 5A B2 5A AB 31 00 |(Z.Y).?+..Z.Z.1.|
00001B40: 4C 2B 14 05 44 33 B2 32 AC 43 AD 4C 00 57 2B 1E |L+..D3.2.C.L.W+.|
00001B50: 05 43 B2 43 AB 44 33 00 63 2B 28 05 99 22 20 20 |.C.C.D3.c+(.." |
00001B60: 22 58 3B 00 72 2B 32 05 51 B2 44 31 3A 99 A3 36 |"X;.r+2.Q.D1:..6|
00001B70: 29 3B 00 7C 2B 3C 05 8D 31 34 35 30 00 8C 2B 46 |);.|+<..1450..+F|
00001B80: 05 51 B2 44 32 3A 99 A3 31 37 29 3B 00 96 2B 50 |.Q.D2:..17);..+P|
00001B90: 05 8D 31 34 35 30 00 A6 2B 5A 05 51 B2 44 33 3A |..1450..+Z.Q.D3:|
00001BA0: 99 A3 32 38 29 3B 00 B0 2B 64 05 8D 31 34 35 30 |..28);..+d..1450|
00001BB0: 00 B9 2B 6E 05 99 22 11 22 00 CF 2B 73 05 58 B2 |..+n.."."..+s.X.|
00001BC0: 58 AA 31 3A 8B 58 B1 4C A7 8D 38 33 35 3A 8E 00 |X.1:.X.L..835:..|
00001BD0: EE 2B 78 05 8B 28 58 AB 31 29 AD 36 B2 B5 28 58 |.+x..(X.1).6..(X|
00001BE0: AD 36 29 A7 8D 38 33 35 3A 89 31 31 36 30 00 F8 |.6)..835:.1160..|
00001BF0: 2B 82 05 89 31 32 33 30 00 12 2C AA 05 8B 51 B2 |+...1230..,...Q.|
00001C00: 30 A7 99 22 20 20 20 20 20 24 30 2E 30 30 22 3B |0.." $0.00";|
00001C10: 3A 8E 00 32 2C B4 05 51 31 B2 B6 28 51 29 3A 51 |:..2,..Q1..(Q):Q|
00001C20: 31 B2 B5 28 51 31 AC 31 30 30 AA 2E 35 29 AC 2E |1..(Q1.100..5)..|
00001C30: 30 31 00 45 2C BE 05 51 31 24 B2 C4 28 51 31 AA |01.E,..Q1$..(Q1.|
00001C40: 2E 30 30 31 29 00 5F 2C C8 05 51 32 24 B2 CA 28 |.001)._,..Q2$..(|
00001C50: 51 31 24 2C 32 2C C3 28 51 31 24 29 AB 32 29 00 |Q1$,2,.(Q1$).2).|
00001C60: 75 2C D2 05 8B 51 31 B3 31 A7 51 32 24 B2 22 30 |u,...Q1.1.Q2$."0|
00001C70: 22 AA 51 32 24 00 83 2C DC 05 8B 51 B3 30 A7 31 |".Q2$..,...Q.0.1|
00001C80: 35 32 30 00 A6 2C E6 05 51 33 24 B2 C9 28 22 20 |520..,..Q3$..(" |
00001C90: 20 20 20 20 24 22 AA 51 32 24 2C 31 30 29 3A 99 | $".Q2$,10):.|
00001CA0: 51 33 24 3B 3A 8E 00 C9 2C F0 05 51 33 24 B2 C9 |Q3$;:...,..Q3$..|
00001CB0: 28 22 20 20 20 20 2D 24 22 AA 51 32 24 2C 31 30 |(" -$".Q2$,10|
00001CC0: 29 3A 99 51 33 24 3B 3A 8E 00 00 00 |):.Q3$;:.... |
..7....65301,6:.65305,16:.65297,15:Z1,90
0,8:.G(14):.800.W.... ** ML STOP KEY DIS
ABLE **......"X.=........X` ......LX.X.U
........X`......"XHHH.H.HHHHHHH.H.HX`111
"......"HHHHHHH`1".T.... ** 4 - POP ML S
UBROUTINE **...... **GENERAL INPUT ROUTI
NE **.....:.....:...#.. +++ INPUT SECTIO
N +++.5.(..UO,0:UR$."":UI$."".E.*..UL.0.
UL.80.O.-..UC,0.C.2..UI$:.UI$."".50...7.
.UI$.G(13).C(UR$)..1..UC,1:." .";:.85. .
<..UI$.G(20).105...>.. C(UR$)..UL.50.Y.A
..120:. CHECK FOR VALID CHARACTER...F.UR
$.UR$.UI$...K..UI$;...P..50. .U.. +++ CH
ECK FOR HELP REQUEST +++.H.Z..UR$.UX$.19
5:. EXIT TO HELP ROUTINE.W._..UF.1..240.
D.D.UF.0:.:..}.F.. ++ CHECK DELETE ++...
I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).1)..
.S..". ..";:.50...X.. ++ CHECK FOR VALI
D CHARACTERS ++...}..C(US$).0.150......U
S.1.C(US$)......UI$.J(US$,US,1).........
,...UI$."":..G.... ** STANDARD INPUT **.
X....F(UI$).46...I....UI$.G(32)..... ..F
(UI$).48.F(UI$).57.170............F(UI$)
.65.F(UI$).90.180.......S....F(UI$).193.
F(UI$).218.UI$."":.......B(UT).UU%.UI$.G
(F(UI$).128):............UI$."":....C.UF
.1:. +++ HELP ROUTINE EXIT +++.7.E..250.
@.H..245._.M..UQ.UB.(U2%.256.U1%.U3%.2).
{.R.UQ%(UQ.UB).B(UQ):.:."."...W.UZ.1:UV%
.B(UT)...X..300...Y.UZ.0:US$.UJ$:UG$.UK$
:UP.UJ:UL.UK:.B(50003).0..53281,6:.53280
,14.....UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2
%.256.U1%.U3%.3).%....UQ,UQ%(UQ.UB):..1.
...U1,U1%.=....U2,U2%.I....U4,U4%.W....U
3,U3%.1._....35.....UD%.((U2%.256.U1%.U3
%).UB).40:.H(UD$,UD%.1):..L....H(UD$,24)
;" . HELP COMING .
":......U1%.B(U1):U2%.B(U2):U3%.B(U3):U
4%.B(U4). ...UJ$.US$:UK$.UG$:UL$.UT$:UJ.
UP:UK.UL.&.....7.,.. ** MENU **.=.-.:.L.
...".":.UT,UU%:.B(50003).0..53281,9:.532
80,8.R./.:...1..". MENU".
..6.." ---------------------------------
-----"...;..".. 1. BEGIN DEPRECI
ATION"...@..".. 2. STUDENT INSTR
UCTIONS".:.E..".. 3. TEACHER INS
TRUCTIONS".V.O..".. 4. QUIT.."..
.T.." ----------------------------------
----"...Y..".. PRESS A NUMBER KEY
(1-4) ";.X.^.UL.1:US$."1234":.35:. INPUT
ROUTINE...`.US$.""...C..E(UR$).1000,400
,500,396...H..300.0.... ** RE-ENABLE STO
P KEY AND END **._....B(50003)..1.B(5000
3)..160.B(50003)..0.399......UU.71:.B(50
003).0..53281,6:.53280,14......"..":.. .
...875:..A.... ** STUDENT INSTRUCTIONS *
*......".":.UT,UL%:.B(50003).0..53281,0:
.53280,0.....UP.0:UG$."STUDENT INST":.85
0.?....".... THIS PROGRAM SHOWS HOW A
PIECE".K...." OF CAPITAL EQUIPMENT D
EPRECIATES"......" ACCORDING TO THREE
COMMONLY"......" USED DEPRECIATION M
ETHODS:".Y....". STRAIGHT LINE
,......". SUM OF THE DIGITS,".
B.B..". AND DOUBLE DECLINING":."
DEPRECIATION.".K....835._...
.UZ.1..UP%:.217.E.......... ** TEACHER I
NSTRUCTIONS **......".":.UT,UL%:.B(50003
).0..53281,2:.53280,10.W...UP.0:UG$."TEA
CHER INST":.850......".. TO THE BES
T OF OUR KNOWLEDGE,."......" THIS PROG
RAM IS IN THE PUBLIC.".Z...." DOMAIN.
IF THIS IS NOT THE CASE.".W...." PLEA
SE CONTACT:..."......" COMMODORE BU
SINESS MACHINES.".D...." 3370 P
HARMACY AVE......." AGINCOURT,
ONTARIO"......" CANADA M1W 2K
4".*...." (416) 499-4292".9.@..
835:.850:.A.B.." .PROGRAM NAME: DEPR
ECIATION....D.." WRITTEN BY : ANDY
GAMBLE"...E...19)"VANCOUVER FEB 1980.".
B.F.." UPGRADED BY : ....H.." .T
HIS PROGRAM WILL RUN ON ANY.....J.."
BASIC 2.0 PET COMPUTER..;.L.."
BASIC 4.0 PET COMPUTER..].N.."
8032 CBM COMPUTER....P.." COM
MODORE 64 COMPUTER...R..835...T..UZ.1..U
P%:.217...V...K.X.. ** PROGRAM MODIFICAT
ION INST **...Y..".":.UT,UL%...].UP.0:UG
$."PROGRAM MOD":.850......835......UZ.1.
.UP%:.217.......D.... ** TO USE 8032 LOA
D CBM4032 **.Z.F..".....BEFORE RUNNING T
HIS PROGRAM ON AN 8032 .....P.." L
OAD THE 'CBM 4032' PROGRAM............."
...Z..UU.71.A....... .. ** T I T L E P
A G E **...".."....";:.UT,UU%:.B(50003)
.0..53280,14:.53281,6.+.$..I.1.38:."..."
;:..C.&..I.1.22:.".....";:..[.(..I.1.37:
.".....";:..S.*..I.1.22:.".....";:....,.
."........................... .......".
.................. . . .....0..".......
............ . ......2.."..............
...... ..! 4.."..............C O M M O
D O R E...D 6.."...............EDUCATION
AL...C 8.."................SOFTWARE.~ :.
. ** COMMODORE LOGO **.. ;..H(UD$,24);".
.........PRESS SPACE BAR OR WAIT.":I.0.X
<..A$:.A$.." ".I.I.1:.I.250.828.. >.T1$
."":T2$."":T3$."":T4$."":I.0..!@..300.!!
C.. ** SPACE BAR PRESS **.E!H..UO,0:.H(U
D$,24);".......PRESS SPACE BAR TO CONTIN
UE.":Z2,900,2.|!L..UI$:.UI$.." ".844..!N
....!R.. ** PAGE DESIGN ROUTINE **..!T.U
P.UP.1.X!W.."."H(UT$.UP$,21);I(UP$.UG$.D
(UP),18).."\.." ------------------------
--------------".."`..UH..0.870.J"A..H(UD
$,24);H(UP$,7);"HELP - PRESS H <RETURN
>".["F.UH.0:."..":..Z"K.. ** PLEASE WAIT
REMARK **.."P..H(UD$,24);" ON
E MOMENT PLEASE... ".."U...S"... **
SET UP VARIABLES **..#..UX$."H":.UQ%(100
0):UB.32768:U1.196:U2.197:U3.198:U4.216:
UC.167:UU.1024.\#..UT.59468:UU%.12:UL%.1
4:UP%.1146:UM.32768:UO.158:. 50003,0..#.
..B(50003).0.UB.1024:U1.209:U2.210:U3.21
1:U4.214:UC.204:UU.2048..#...B(50003).0.
UT.53272:UU%.21:UL%.23:UP%.2139:UM.1024:
UO.198..$..UD$."........................
.".4$..UP$."
".L$..UT$." DEPRECIATION".R$.
...L$... ** SET VARIABLES **.U$...900..$
... ** CHECK FOR 8032 **..$...".":." ":.
SHIFTED SPACE.E$...B(UB.40)..96..700..$
... ** MEMORY CHECK **..$... .(0).2000.9
37. %..."....THIS MACHINE DOES NOT HAVE
ENOUGH.".D%..."MEMORY TO RUN THIS PROGRA
M !".O%...UU.71.U%....O%..."..":.B(50003
).0.962..%... ** BASIC 2.0 OR 4.0 OR
C-64 SETUP **..%...1075,133:.1076,144:.
1077,234:.1079,4:.1080,133:.1081,145..&.
..1091,155:.1098,133:.1099,144:.1100,234
:.1103,133.4&...1104,145:.1105,234:.1082
,234.K&...B(50003)..160.955.Z&...1093,88
:.1094,228:.1097,85:.1102,228:.965..&...
B(50003)..1.990..&...1093,49:.1094,230:.
1097,46:.1102,230:.965..&B..2099,141:.21
00,20:.2101,3:.2103,8:.2104,141:.2105,21
.4'C..2106,3:.2115,145:.2117,52:.2118,23
4:.2121,49:.2122,141.N'D..2123,20:.2124,
3:.2126,234:.2127,141:.2128,21:.2129,3..
'E..UU.48:. DISABLE STOP KEY..'J..800:.
TITLE..'T..300:. MENU..'...".THE PGM WIL
L NOT WORK ON THIS MACHINE!":...(...UZ.1
..UP%:.UP%:UZ.0:. ** PROGRAM STARTS HERE
**.?(..."..";:.:.B(50003).0..53281,6:.5
3280,14.\(... HUNTINGTON DEPRECIATE..(.
.. FIT TO PET BY ANDY GAMBLE FEB80..(...
COLUMBIA COLLEGE..(... 1619 W10 AVE VAN
COUVER BC..(...".":.UT,UL%:UP.0:UG$."DEP
RECIATION"..(... 850.')V..".....
ORIGINAL COST OF ITEM ?":.". $";.
V)[.US$."H0123456789.":UL.6:. 35:C.E(UR$
):C0.C..)T..". LIFE OF ITEM IN YE
ARS ?":.". ";..)Y.US$."H123456789
0":UL.2:. 35:L.E(UR$).X){.. L.0 . .".
.";:. 1145..*~..". SCRAP VA
LUE ?":.". $";./*..US$."H.1234567
890":UL.6:. 35:S.E(UR$).7*..X.1.F*..UH.1
:. 850.S*...". ORIGINAL COST:";:Q
.C0:.1450:...*..." SCRAP VALUE:
";:Q.S:.1450:.".".R*...:." YEAR","..STR
AIGHT"," SUM OF"," DOUBLE"..*...,"LINE
"," DIGITS"," DECLIN.."..+N.V.C.S..+X.D1
.V.L..+..Y.((L.1).2).L.&+..Z.L.5+..D2.V.
(Z.Y).?+..Z.Z.1.L+..D3.2.C.L.W+..C.C.D3.
C+(.." "X;.R+2.Q.D1:..6);.|+<..1450..+F
.Q.D2:..17);..+P..1450..+Z.Q.D3:..28);..
+D..1450..+N..".".O+S.X.X.1:.X.L..835:..
.+X..(X.1).6..(X.6)..835:.1160..+...1230
..,...Q.0.." $0.00";:..2,..Q1..(Q):Q
1..(Q1.100..5)..01.E,..Q1$.D(Q1..001)._,
H.Q2$.J(Q1$,2,C(Q1$).2).U,R..Q1.1.Q2$."0
".Q2$..,...Q.0.1520..,..Q3$.I(" $".Q
2$,10):.Q3$;:..I,..Q3$.I(" -$".Q2$,10
):.Q3$;:....
> CLICK IMAGE PREVIEW FOR FULL MODAL