SCR UTIL/UPGRADE
FILE INFORMATION
FILENAME(S): SCR UTIL/UPGRADE
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 1 disk(s)
FILE HASH
d1755f18bddc107060954dc820b38d7f72ae8f4411928b4950cabd1f77c8612e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| USER 64 | SCR UTIL/UPGRADE | PRG | Radd Maxx | 20 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 27 04 0A 00 8F 2A 53 43 52 45 45 4E 20 45 |..'....*SCREEN E|
00000010: 44 49 54 49 4E 47 2C 20 55 50 47 52 41 44 45 2C |DITING, UPGRADE,|
00000020: 20 34 30 2D 43 4F 4C 00 3D 04 14 00 8F 2A 2A 2A | 40-COL.=....***|
00000030: 52 2E 4C 2E 48 45 49 53 54 2A 2A 2A 2A 00 53 04 |R.L.HEIST****.S.|
00000040: 1E 00 8F 2A 2A 2A 43 4F 4D 50 55 54 45 21 2A 2A |...***COMPUTE!**|
00000050: 2A 2A 2A 00 69 04 28 00 8F 2A 2A 2A 41 50 52 49 |***.i.(..***APRI|
00000060: 4C 2C 20 31 39 38 33 2A 2A 00 8F 04 32 00 8F 2A |L, 1983**...2..*|
00000070: 2A 2A 43 4C 45 41 52 20 46 52 4F 4D 20 4C 49 4E |**CLEAR FROM LIN|
00000080: 45 20 43 4F 4E 54 41 49 4E 49 4E 47 2A 2A 2A 00 |E CONTAINING***.|
00000090: B5 04 3C 00 8F 2A 2A 2A 43 55 52 53 4F 52 20 54 |..<..***CURSOR T|
000000A0: 4F 20 42 4F 54 54 4F 4D 20 4F 46 20 53 43 52 45 |O BOTTOM OF SCRE|
000000B0: 45 4E 2A 2A 2A 00 DB 04 46 00 8F 2A 2A 2A 55 53 |EN***...F..***US|
000000C0: 49 4E 47 20 43 4C 4F 53 45 20 42 52 41 43 4B 45 |ING CLOSE BRACKE|
000000D0: 54 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 01 05 50 00 |T**********...P.|
000000E0: 8F 2A 2A 2A 43 4C 45 41 52 20 46 52 4F 4D 20 4C |.***CLEAR FROM L|
000000F0: 49 4E 45 20 43 4F 4E 54 41 49 4E 49 4E 47 2A 2A |INE CONTAINING**|
00000100: 2A 00 27 05 5A 00 8F 2A 2A 2A 43 55 52 53 4F 52 |*.'.Z..***CURSOR|
00000110: 20 54 4F 20 54 4F 50 20 4F 46 20 53 43 52 45 45 | TO TOP OF SCREE|
00000120: 4E 2A 2A 2A 2A 2A 2A 00 4C 05 64 00 8F 2A 2A 2A |N******.L.d..***|
00000130: 55 53 49 4E 47 20 4F 50 45 4E 20 42 52 41 43 4B |USING OPEN BRACK|
00000140: 45 54 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 71 05 6E |ET**********.q.n|
00000150: 00 8F 2A 2A 2A 27 48 4F 4D 45 27 20 43 55 52 53 |..***'HOME' CURS|
00000160: 4F 52 20 54 4F 20 4C 4F 57 45 52 2A 2A 2A 2A 2A |OR TO LOWER*****|
00000170: 2A 00 96 05 78 00 8F 2A 2A 2A 4C 45 46 54 20 43 |*...x..***LEFT C|
00000180: 4F 52 4E 45 52 20 55 53 49 4E 47 20 45 53 43 20 |ORNER USING ESC |
00000190: 4B 45 59 2A 2A 2A 00 AE 05 82 00 8F 2A 2A 4C 4F |KEY***......**LO|
000001A0: 41 44 45 44 20 42 59 2A 2A 2A 2A 2A 2A 2A 00 C6 |ADED BY*******..|
000001B0: 05 8C 00 8F 2A 2A 2A 52 2E 44 2E 57 41 4C 45 53 |....***R.D.WALES|
000001C0: 2A 2A 2A 2A 2A 2A 00 D3 05 C8 00 81 49 B2 30 A4 |******......I.0.|
000001D0: 31 34 37 00 EB 05 D2 00 87 58 3A 97 36 33 34 AA |147......X:.634.|
000001E0: 49 2C 58 3A 43 4B B2 43 4B AA 58 00 F2 05 DC 00 |I,X:CK.CK.X.....|
000001F0: 82 49 00 26 06 E6 00 8B 43 4B B3 B1 31 38 34 36 |.I.&....CK..1846|
00000200: 30 A7 99 22 43 48 45 43 4B 20 44 41 54 41 20 53 |0.."CHECK DATA S|
00000210: 54 41 54 4D 45 4E 54 53 20 46 4F 52 20 45 52 52 |TATMENTS FOR ERR|
00000220: 4F 52 53 22 3A 90 00 2F 06 F0 00 9E 36 33 34 00 |ORS":../....634.|
00000230: 35 06 FA 00 8F 00 58 06 2C 01 83 31 32 30 2C 31 |5.....X.,..120,1|
00000240: 36 39 2C 31 33 33 2C 31 33 33 2C 31 34 34 2C 31 |69,133,133,144,1|
00000250: 36 39 2C 32 2C 31 33 33 00 7A 06 36 01 83 31 34 |69,2,133.z.6..14|
00000260: 35 2C 38 38 2C 39 36 2C 31 36 35 2C 32 31 37 2C |5,88,96,165,217,|
00000270: 34 31 2C 31 32 37 2C 32 30 31 00 9A 06 40 01 83 |41,127,201...@..|
00000280: 39 31 2C 32 30 38 2C 32 37 2C 31 36 39 2C 30 2C |91,208,27,169,0,|
00000290: 31 33 33 2C 33 34 2C 31 36 39 00 BD 06 4A 01 83 |133,34,169...J..|
000002A0: 31 32 38 2C 31 33 33 2C 33 35 2C 32 31 36 2C 32 |128,133,35,216,2|
000002B0: 34 2C 31 36 35 2C 31 39 36 2C 31 30 35 00 DF 06 |4,165,196,105...|
000002C0: 54 01 83 34 30 2C 31 33 33 2C 33 36 2C 31 36 35 |T..40,133,36,165|
000002D0: 2C 31 39 37 2C 31 33 33 2C 33 37 2C 31 34 34 00 |,197,133,37,144.|
000002E0: FF 06 5E 01 83 32 2C 32 33 30 2C 33 37 2C 32 34 |..^..2,230,37,24|
000002F0: 2C 31 34 34 2C 34 36 2C 31 36 35 2C 32 31 37 00 |,144,46,165,217.|
00000300: 21 07 68 01 83 34 31 2C 31 32 37 2C 32 30 31 2C |!.h..41,127,201,|
00000310: 39 33 2C 32 30 38 2C 31 39 2C 31 36 35 2C 31 39 |93,208,19,165,19|
00000320: 36 00 44 07 72 01 83 31 33 33 2C 33 34 2C 31 36 |6.D.r..133,34,16|
00000330: 35 2C 31 39 37 2C 31 33 33 2C 33 35 2C 31 36 39 |5,197,133,35,169|
00000340: 2C 32 33 31 00 66 07 7C 01 83 31 33 33 2C 33 36 |,231.f.|..133,36|
00000350: 2C 31 36 39 2C 31 33 31 2C 31 33 33 2C 33 37 2C |,169,131,133,37,|
00000360: 32 34 2C 31 34 34 00 88 07 86 01 83 31 39 2C 32 |24,144......19,2|
00000370: 30 31 2C 39 35 2C 32 30 38 2C 36 37 2C 31 36 39 |01,95,208,67,169|
00000380: 2C 31 39 32 2C 31 33 33 00 AC 07 90 01 83 31 39 |,192,133......19|
00000390: 36 2C 31 36 39 2C 31 33 31 2C 31 33 33 2C 31 39 |6,169,131,133,19|
000003A0: 37 2C 31 36 39 2C 32 34 2C 31 33 33 00 CD 07 9A |7,169,24,133....|
000003B0: 01 83 32 31 36 2C 32 34 2C 31 34 34 2C 34 34 2C |..216,24,144,44,|
000003C0: 32 31 36 2C 35 36 2C 31 36 35 2C 33 36 00 EE 07 |216,56,165,36...|
000003D0: A4 01 83 32 32 39 2C 33 34 2C 31 33 33 2C 33 38 |...229,34,133,38|
000003E0: 2C 31 36 35 2C 33 37 2C 32 32 39 2C 33 35 00 0F |,165,37,229,35..|
000003F0: 08 AE 01 83 31 33 33 2C 33 39 2C 31 36 39 2C 33 |....133,39,169,3|
00000400: 32 2C 31 36 36 2C 33 39 2C 32 34 30 2C 31 32 00 |2,166,39,240,12.|
00000410: 31 08 B8 01 83 31 36 30 2C 30 2C 31 34 35 2C 33 |1....160,0,145,3|
00000420: 34 2C 32 30 30 2C 32 30 38 2C 32 35 31 2C 32 33 |4,200,208,251,23|
00000430: 30 00 52 08 C2 01 83 33 35 2C 32 30 32 2C 32 30 |0.R....35,202,20|
00000440: 38 2C 32 34 36 2C 31 36 36 2C 33 38 2C 32 34 30 |8,246,166,38,240|
00000450: 2C 38 00 74 08 CC 01 83 31 36 30 2C 30 2C 31 34 |,8.t....160,0,14|
00000460: 35 2C 33 34 2C 32 30 30 2C 32 30 32 2C 32 30 38 |5,34,200,202,208|
00000470: 2C 32 35 30 00 96 08 D6 01 83 31 36 39 2C 30 2C |,250......169,0,|
00000480: 31 33 33 2C 31 39 38 2C 31 36 39 2C 33 32 2C 31 |133,198,169,32,1|
00000490: 33 33 2C 32 31 37 00 A7 08 E0 01 83 37 36 2C 34 |33,217......76,4|
000004A0: 36 2C 32 33 30 2C 30 00 AD 08 EA 01 80 00 00 00 |6,230,0.........|
000004B0: 05 00 41 B2 31 32 AC 31 36 AE 33 3A 8F 20 24 43 |..A.12.16.3:. $C|
000004C0: 30 30 30 00 34 04 0A 00 8B C2 28 41 29 B3 B1 37 |000.4.....(A)..7|
000004D0: 36 A7 9E 31 36 33 39 3A 8F 20 42 41 53 49 43 32 |6..1639:. BASIC2|
000004E0: 00 50 04 0F 00 8B C2 28 41 29 B2 37 36 A7 9E 32 |.P.....(A).76..2|
000004F0: 31 35 31 3A 8F 20 42 41 53 49 43 34 00 8F 04 14 |151:. BASIC4....|
00000500: 00 99 22 93 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00000510: 20 20 20 20 20 20 55 4E 49 56 45 52 53 41 4C 20 | UNIVERSAL |
00000520: 44 4F 53 20 53 55 50 50 4F 52 54 20 4C 4F 41 44 |DOS SUPPORT LOAD|
00000530: 45 44 11 11 11 11 11 11 11 11 22 00 95 04 1E 00 |ED........".....|
00000540: A2 00 00 00 AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000550: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000560: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000570: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000580: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000590: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000005A0: AA AA AA AA AA AA AA AA AA AA AA AA AA EA E6 77 |...............w|
000005B0: D0 02 E6 78 86 B3 BA BD 01 01 C9 9B D0 3A BD 02 |...x.........:..|
000005C0: 01 C9 C3 D0 33 A5 77 D0 2C A5 78 C9 02 D0 26 A0 |....3.w.,.x...&.|
000005D0: 00 84 B3 B1 77 C9 3E F0 11 C9 40 F0 0D C8 85 B3 |....w.>...@.....|
000005E0: C9 2F F0 63 C9 5E F0 5F D0 0B C8 B1 77 F0 32 C9 |./.c.^._....w.2.|
000005F0: 24 F0 54 D0 08 4C 76 00 A6 B3 4C 76 00 A9 08 85 |$.T..Lv...Lv....|
00000600: D4 A9 6F 85 D3 20 BA F0 A5 D3 20 28 F1 E6 77 A0 |..o.. .... (..w.|
00000610: 00 B1 77 F0 06 20 6F F1 B8 50 F2 20 83 F1 B8 50 |..w.. o..P. ...P|
00000620: 23 84 77 A9 08 85 D4 20 B6 F0 A9 6F 85 D3 20 28 |#.w.... ...o.. (|
00000630: F1 20 8C F1 C9 0D F0 06 20 D8 E3 B8 50 F3 20 D8 |. ...... ...P. .|
00000640: E3 20 7F F1 4C 76 00 C8 B1 77 D0 FB 88 84 D1 A9 |. ..Lv...w......|
00000650: 01 85 DA A9 02 85 DB A9 08 85 D4 A5 B3 D0 39 A9 |..............9.|
00000660: 60 85 D3 20 66 F4 20 B6 F0 A5 D3 20 28 F1 A9 00 |`.. f. .... (...|
00000670: 85 96 A0 03 84 D1 20 8C F1 85 FD A4 96 D0 1B 20 |...... ........ |
00000680: 8C F1 85 FE A4 96 D0 12 A4 D1 88 D0 E7 A6 FD A5 |................|
00000690: FE 20 D9 DC A9 20 D0 06 D0 40 D0 31 D0 D6 20 D8 |. ... ...@.1.. .|
000006A0: E3 20 8C F1 A6 96 D0 25 C9 00 F0 18 20 D8 E3 20 |. .....%.... .. |
000006B0: 01 F3 F0 19 20 E4 FF F0 E8 C9 20 D0 E4 20 E4 FF |.... ..... .. ..|
000006C0: F0 FB D0 DD A9 0D 20 D8 E3 A0 02 D0 CF 20 F0 F6 |...... ...... ..|
000006D0: A9 0D 20 D8 E3 68 68 4C 89 C3 A9 00 85 96 85 9D |.. ..hhL........|
000006E0: 20 22 F3 A5 96 29 10 D0 28 AD 84 F3 30 06 E6 C9 | "...)..(...0...|
000006F0: D0 02 E6 CA A5 CA 85 2B A5 C9 85 2A 20 72 C5 20 |.......+...* r. |
00000700: 42 C4 A5 B3 C9 2F D0 03 4C 89 C3 20 A7 C5 4C C4 |B..../..L.. ..L.|
00000710: C6 4C E6 F3 A5 34 18 E9 67 85 34 A5 35 E9 01 85 |.L...4..g.4.5...|
00000720: 35 A0 01 A9 00 85 C7 A9 05 85 C8 A5 34 85 5C A5 |5...........4.\.|
00000730: 35 85 5D B1 C7 91 5C C8 D0 F9 E6 5D E6 C8 A5 C8 |5.]...\....]....|
00000740: C9 06 F0 02 B0 04 A0 00 F0 E9 A9 4C 85 70 A4 34 |...........L.p.4|
00000750: A6 35 C8 D0 01 E8 84 71 86 72 60 AA AA AA AA AA |.5.....q.r`.....|
00000760: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000770: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000780: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000790: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000007A0: AA AA AA AA AA AA AA AA AA AA AA AA AA EA E6 77 |...............w|
000007B0: D0 02 E6 78 86 B3 BA BD 01 01 C9 0F D0 3A BD 02 |...x.........:..|
000007C0: 01 C9 B4 D0 33 A5 77 D0 2C A5 78 C9 02 D0 26 A0 |....3.w.,.x...&.|
000007D0: 00 84 B3 B1 77 C9 3E F0 11 C9 40 F0 0D C8 85 B3 |....w.>...@.....|
000007E0: C9 2F F0 63 C9 5E F0 5F D0 0B C8 B1 77 F0 32 C9 |./.c.^._....w.2.|
000007F0: 24 F0 54 D0 08 4C 76 00 A6 B3 4C 76 00 A9 08 85 |$.T..Lv...Lv....|
00000800: D4 A9 6F 85 D3 20 D5 F0 A5 D3 20 43 F1 E6 77 A0 |..o.. .... C..w.|
00000810: 00 B1 77 F0 06 20 9E F1 B8 50 F2 20 B9 F1 B8 50 |..w.. ...P. ...P|
00000820: 23 84 77 A9 08 85 D4 20 D2 F0 A9 6F 85 D3 20 43 |#.w.... ...o.. C|
00000830: F1 20 C0 F1 C9 0D F0 06 20 02 E2 B8 50 F3 20 02 |. ...... ...P. .|
00000840: E2 20 AE F1 4C 76 00 C8 B1 77 D0 FB 88 84 D1 A9 |. ..Lv...w......|
00000850: 01 85 DA A9 02 85 DB A9 08 85 D4 A5 B3 D0 39 A9 |..............9.|
00000860: 60 85 D3 20 A5 F4 20 D2 F0 A5 D3 20 43 F1 A9 00 |`.. .. .... C...|
00000870: 85 96 A0 03 84 D1 20 C0 F1 85 FD A4 96 D0 1B 20 |...... ........ |
00000880: C0 F1 85 FE A4 96 D0 12 A4 D1 88 D0 E7 A6 FD A5 |................|
00000890: FE 20 83 CF A9 20 D0 06 D0 40 D0 31 D0 D6 20 02 |. ... ...@.1.. .|
000008A0: E2 20 C0 F1 A6 96 D0 25 C9 00 F0 18 20 02 1E 08 |. .....%.... ...|
000008B0: 78 00 8F 20 43 48 52 24 28 31 34 37 29 3D 43 4C |x.. CHR$(147)=CL|
000008C0: 45 41 52 20 53 43 52 45 45 4E 00 3E 08 8C 00 8F |EAR SCREEN.>....|
000008D0: 20 43 48 52 24 28 31 38 29 3D 52 45 56 49 52 53 | CHR$(18)=REVIRS|
000008E0: 45 20 56 49 44 45 4F 20 4F 4E 00 60 08 A0 00 8F |E VIDEO ON.`....|
000008F0: 20 43 48 52 24 28 31 34 36 29 3D 52 45 56 49 52 | CHR$(146)=REVIR|
00000900: 53 45 20 56 49 44 45 4F 20 4F 46 46 00 81 08 F4 |SE VIDEO OFF....|
00000910: 01 99 20 C7 28 31 34 37 29 20 22 4D 41 4B 49 4E |.. .(147) "MAKIN|
00000920: 47 20 43 48 41 4E 47 45 22 3A 99 3A 99 00 A4 08 |G CHANGE":.:....|
00000930: 08 02 85 20 22 50 4C 45 41 53 45 20 45 4E 54 45 |... "PLEASE ENTE|
00000940: 52 20 59 4F 55 52 20 4E 41 4D 45 22 3B 4E 41 24 |R YOUR NAME";NA$|
00000950: 00 B8 08 1C 02 58 25 B2 31 30 30 AC 28 BB 28 31 |.....X%.100.(.(1|
00000960: 29 29 AA 31 00 D4 08 30 02 50 43 B2 50 43 AA 31 |)).1...0.PC.PC.1|
00000970: 3A 20 52 43 B2 30 3A 20 99 20 C7 28 31 34 37 29 |: RC.0: . .(147)|
00000980: 00 09 09 44 02 8B 20 B5 28 50 43 AD 32 29 B2 28 |...D.. .(PC.2).(|
00000990: 50 43 AD 32 29 20 A7 20 32 30 30 30 3A 8F 20 50 |PC.2) . 2000:. P|
000009A0: 52 4F 42 4C 45 4D 20 54 59 50 45 20 53 45 4C 45 |ROBLEM TYPE SELE|
000009B0: 43 54 49 4F 4E 00 2B 09 E8 03 8F 20 47 49 56 45 |CTION.+.... GIVE|
000009C0: 20 43 48 41 4E 47 45 20 50 52 4F 42 4C 45 4D 20 | CHANGE PROBLEM |
000009D0: 52 4F 55 54 49 4E 45 00 55 09 FC 03 99 20 50 43 |ROUTINE.U.... PC|
000009E0: 20 22 A0 22 20 4E 41 24 20 22 20 47 49 56 45 20 | "." NA$ " GIVE |
000009F0: 4D 45 20 22 58 25 22 20 43 45 4E 54 53 2E 22 3A |ME "X%" CENTS.":|
00000A00: 99 00 7D 09 10 04 85 20 22 48 4F 57 20 4D 41 4E |..}.... "HOW MAN|
00000A10: 59 20 51 55 41 52 54 45 52 53 22 3B 20 51 3A 51 |Y QUARTERS"; Q:Q|
00000A20: 31 B2 51 AC 32 35 3A 20 99 00 A3 09 24 04 85 20 |1.Q.25: ....$.. |
00000A30: 22 48 4F 57 20 4D 41 4E 59 20 44 49 4D 45 53 22 |"HOW MANY DIMES"|
00000A40: 3B 20 44 3A 20 44 31 B2 44 AC 31 30 3A 20 99 00 |; D: D1.D.10: ..|
00000A50: CA 09 38 04 85 20 22 48 4F 57 20 4D 41 4E 59 20 |..8.. "HOW MANY |
00000A60: 4E 49 43 4B 4C 45 53 22 3B 20 4E 3A 20 4E 31 B2 |NICKLES"; N: N1.|
00000A70: 4E AC 35 3A 20 99 00 E9 09 4C 04 85 22 48 4F 57 |N.5: ....L.."HOW|
00000A80: 20 4D 41 4E 59 20 50 45 4E 4E 49 45 53 22 3B 50 | MANY PENNIES";P|
00000A90: 20 3A 99 3A 99 00 13 0A 60 04 51 25 B2 51 3A 20 | :.:....`.Q%.Q: |
00000AA0: 44 25 B2 44 3A 20 4E 25 B2 4E 3A 20 50 25 B2 50 |D%.D: N%.N: P%.P|
00000AB0: 3A 20 54 43 B2 51 31 AA 44 31 AA 4E 31 AA 50 00 |: TC.Q1.D1.N1.P.|
00000AC0: 47 0A 74 04 8B 51 25 B3 B1 51 20 B0 20 44 25 B3 |G.t..Q%..Q . D%.|
00000AD0: B1 44 20 B0 20 4E 25 B3 B1 4E 20 B0 20 50 25 B3 |.D . N%..N . P%.|
00000AE0: B1 50 20 A7 20 8D 20 35 30 30 30 3A 20 89 20 31 |.P . . 5000: . 1|
00000AF0: 32 32 30 00 72 0A 88 04 8B 20 50 B2 58 25 20 AF |220.r.... P.X% .|
00000B00: 20 58 25 B1 34 20 AF 20 54 43 B2 58 25 20 A7 20 | X%.4 . TC.X% . |
00000B10: 8D 20 36 30 30 30 3A 20 89 20 31 32 32 30 00 85 |. 6000: . 1220..|
00000B20: 0A 9C 04 8B 20 58 25 B2 54 43 20 A7 20 33 30 30 |.... X%.TC . 300|
00000B30: 30 00 90 0A B0 04 8D 20 34 30 30 30 00 A2 0A C4 |0...... 4000....|
00000B40: 04 8B 20 52 43 B1 33 20 A7 20 38 30 30 30 00 BF |.. RC.3 . 8000..|
00000B50: 0A D8 04 89 20 31 30 32 30 3A 20 8F 20 52 45 50 |.... 1020: . REP|
00000B60: 45 41 54 20 50 52 4F 42 4C 45 4D 00 E2 0A D0 07 |EAT PROBLEM.....|
00000B70: 8F 20 43 4F 55 4E 54 20 43 48 41 4E 47 45 20 50 |. COUNT CHANGE P|
00000B80: 52 4F 42 4C 45 4D 20 52 4F 55 54 49 4E 45 00 FF |ROBLEM ROUTINE..|
00000B90: 0A E4 07 99 20 50 43 20 22 20 22 20 4E 41 24 20 |.... PC " " NA$ |
00000BA0: 22 2C 20 49 20 48 41 56 45 3A 22 00 25 0B F8 07 |", I HAVE:".%...|
00000BB0: 58 58 25 B2 58 25 3A 20 51 55 25 B2 58 58 25 AD |XX%.X%: QU%.XX%.|
00000BC0: 32 35 3A 58 58 25 B2 58 58 25 AB 51 55 25 AC 32 |25:XX%.XX%.QU%.2|
00000BD0: 35 00 5E 0B 0C 08 44 49 25 B2 58 58 25 AD 31 30 |5.^...DI%.XX%.10|
00000BE0: 3A 20 58 58 25 B2 58 58 25 AB 44 49 25 AC 31 30 |: XX%.XX%.DI%.10|
00000BF0: 3A 20 4E 49 25 B2 58 58 25 AD 35 3A 20 50 45 25 |: NI%.XX%.5: PE%|
00000C00: B2 58 58 25 AB 4E 49 25 AC 35 00 7C 0B 20 08 99 |.XX%.NI%.5.|. ..|
00000C10: 3A 20 99 20 A3 31 30 29 20 51 55 25 20 22 51 55 |: . .10) QU% "QU|
00000C20: 41 52 54 45 52 53 2C 22 00 97 0B 34 08 99 3A 20 |ARTERS,"...4..: |
00000C30: 99 20 A3 31 30 29 20 44 49 25 20 22 44 49 4D 45 |. .10) DI% "DIME|
00000C40: 53 2C 22 00 B8 0B 48 08 99 3A 20 99 20 A3 31 30 |S,"...H..: . .10|
00000C50: 29 20 4E 49 25 20 22 4E 49 43 4B 4C 45 53 2C 20 |) NI% "NICKLES, |
00000C60: 41 4E 44 22 00 D5 0B 5C 08 99 3A 20 99 20 A3 31 |AND"...\..: . .1|
00000C70: 30 29 20 50 45 25 20 22 50 45 4E 4E 49 45 53 2E |0) PE% "PENNIES.|
00000C80: 22 00 02 0C 70 08 8B 20 52 43 B1 33 20 A7 20 8E |"...p.. RC.3 . .|
00000C90: 3A 20 8F 20 46 4F 52 20 43 4F 49 4E 20 50 52 49 |: . FOR COIN PRI|
00000CA0: 4E 54 20 4F 55 54 20 41 54 20 38 30 34 30 00 30 |NT OUT AT 8040.0|
00000CB0: 0C 84 08 99 3A 20 85 22 48 4F 57 20 4D 55 43 48 |....: ."HOW MUCH|
00000CC0: 20 43 48 41 4E 47 45 20 44 4F 20 49 20 48 41 56 | CHANGE DO I HAV|
00000CD0: 45 22 3B 54 43 3A 20 99 3A 20 99 3A 00 6E 0C 98 |E";TC: .: .:.n..|
00000CE0: 08 8B 20 B5 28 54 43 29 B3 B1 54 43 20 A7 20 99 |.. .(TC)..TC . .|
00000CF0: 20 4E 41 24 20 22 2C 20 44 4F 4E 27 53 20 55 53 | NA$ ", DON'S US|
00000D00: 45 20 44 45 43 49 4D 41 4C 20 50 4F 49 4E 54 53 |E DECIMAL POINTS|
00000D10: 2E 22 3A 20 89 20 32 31 38 30 00 81 0C AC 08 8B |.": . 2180......|
00000D20: 20 58 25 B2 54 43 20 A7 20 33 30 30 30 00 8C 0C | X%.TC . 3000...|
00000D30: C0 08 8D 20 34 30 30 30 00 9E 0C D4 08 8B 20 52 |... 4000...... R|
00000D40: 43 B1 33 20 A7 20 33 30 30 30 00 BB 0C E8 08 89 |C.3 . 3000......|
00000D50: 20 32 30 32 30 3A 20 8F 20 52 45 50 45 41 54 20 | 2020: . REPEAT |
00000D60: 50 52 4F 42 4C 45 4D 00 FF 0C B8 0B 8F 20 43 4F |PROBLEM...... CO|
00000D70: 52 52 45 43 54 20 41 4E 53 57 45 52 20 52 4F 55 |RRECT ANSWER ROU|
00000D80: 54 49 4E 45 2A 2A 2A 4C 49 4E 45 53 20 33 30 30 |TINE***LINES 300|
00000D90: 31 20 54 4F 20 33 38 39 39 20 46 4F 52 20 55 53 |1 TO 3899 FOR US|
00000DA0: 45 52 20 47 52 41 50 48 49 43 53 00 29 0D 3C 0F |ER GRAPHICS.).<.|
00000DB0: 99 20 C7 28 31 38 29 20 22 43 4F 52 52 45 43 54 |. .(18) "CORRECT|
00000DC0: 20 22 20 4E 41 24 20 22 21 21 21 21 21 22 20 C7 | " NA$ "!!!!!" .|
00000DD0: 28 31 34 36 29 00 3C 0D 64 0F 4D 45 B2 4D 45 AA |(146).<.d.ME.ME.|
00000DE0: 31 3A 20 89 37 30 30 30 00 57 0D A0 0F 8F 20 57 |1: .7000.W.... W|
00000DF0: 52 4F 4E 47 20 41 4E 53 57 45 52 20 52 4F 55 54 |RONG ANSWER ROUT|
00000E00: 49 4E 45 00 6A 0D B4 0F 8B 20 54 43 B1 58 25 20 |INE.j.... TC.X% |
00000E10: A7 20 34 30 36 30 00 95 0D C8 0F 99 20 58 25 AB |. 4060...... X%.|
00000E20: 54 43 20 22 43 45 4E 54 53 20 53 48 4F 52 54 20 |TC "CENTS SHORT |
00000E30: 22 20 4E 41 24 20 22 21 22 3A 20 89 20 34 30 38 |" NA$ "!": . 408|
00000E40: 30 00 BB 0D DC 0F 99 20 54 43 AB 58 25 20 22 43 |0...... TC.X% "C|
00000E50: 45 4E 54 53 20 54 4F 4F 20 4D 55 43 48 20 22 20 |ENTS TOO MUCH " |
00000E60: 4E 41 24 20 22 21 22 00 D7 0D F0 0F 99 3A 20 99 |NA$ "!"......: .|
00000E70: 20 22 59 4F 55 20 4C 4F 53 45 20 31 20 43 45 4E | "YOU LOSE 1 CEN|
00000E80: 54 21 22 00 E3 0D 04 10 4D 4C B2 4D 4C AA 31 00 |T!".....ML.ML.1.|
00000E90: FB 0D 18 10 52 43 B2 52 43 AA 31 3A 20 8B 20 52 |....RC.RC.1: . R|
00000EA0: 43 B1 33 20 A7 20 8E 00 1F 0E 2C 10 99 3A 20 99 |C.3 . ....,..: .|
00000EB0: 20 22 54 52 59 20 41 47 41 49 4E 20 22 20 4E 41 | "TRY AGAIN " NA|
00000EC0: 24 20 22 2E 22 3A 20 99 3A 20 99 00 32 0E 40 10 |$ ".": .: ..2.@.|
00000ED0: 8B 20 52 43 B2 31 20 A7 20 57 B2 57 AA 31 00 38 |. RC.1 . W.W.1.8|
00000EE0: 0E 54 10 8E 00 58 0E 88 13 8F 20 46 52 41 43 54 |.T...X.... FRACT|
00000EF0: 49 4F 4E 41 4C 20 41 4E 53 57 45 52 20 52 4F 55 |IONAL ANSWER ROU|
00000F00: 54 49 4E 45 00 7B 0E 9C 13 99 20 4E 41 24 20 22 |TINE.{.... NA$ "|
00000F10: 2C 20 41 4E 53 57 45 52 53 20 57 49 54 48 20 44 |, ANSWERS WITH D|
00000F20: 45 43 49 4D 41 4C 22 00 9E 0E B0 13 99 3A 20 99 |ECIMAL"......: .|
00000F30: 20 22 50 4F 49 4E 54 53 20 41 52 45 20 4E 4F 54 | "POINTS ARE NOT|
00000F40: 20 41 4C 4C 4F 57 45 44 2E 22 00 BF 0E C4 13 99 | ALLOWED."......|
00000F50: 3A 20 99 20 22 59 4F 55 20 41 52 45 20 46 49 4E |: . "YOU ARE FIN|
00000F60: 45 44 20 31 20 43 45 4E 54 2E 22 00 D1 0E D8 13 |ED 1 CENT.".....|
00000F70: 46 B2 46 AA 31 3A 20 89 20 34 31 32 30 00 E8 0E |F.F.1: . 4120...|
00000F80: 70 17 8F 20 41 4C 4C 20 50 45 4E 4E 59 20 41 4E |p.. ALL PENNY AN|
00000F90: 53 57 45 52 00 19 0F 84 17 99 20 4E 41 24 20 22 |SWER...... NA$ "|
00000FA0: 2C 22 20 50 20 22 50 45 4E 4E 49 45 53 20 44 4F |," P "PENNIES DO|
00000FB0: 45 53 20 45 51 55 41 4C 22 20 58 25 20 22 43 45 |ES EQUAL" X% "CE|
00000FC0: 4E 54 53 2E 22 00 3A 0F 98 17 99 3A 20 99 20 22 |NTS.".:....: . "|
00000FD0: 42 55 54 20 54 48 41 54 20 49 53 20 43 48 45 41 |BUT THAT IS CHEA|
00000FE0: 54 49 4E 47 2E 22 00 67 0F AC 17 99 3A 99 20 22 |TING.".g....:. "|
00000FF0: 59 4F 55 20 41 52 45 20 46 49 4E 45 44 20 31 20 |YOU ARE FINED 1 |
00001000: 43 45 4E 54 20 46 4F 52 20 43 48 45 41 54 49 4E |CENT FOR CHEATIN|
00001010: 47 2E 22 00 79 0F C0 17 46 B2 46 AA 31 3A 20 89 |G.".y...F.F.1: .|
00001020: 20 34 31 32 30 00 8F 0F 58 1B 8F 20 53 43 4F 52 | 4120...X.. SCOR|
00001030: 49 4E 47 20 52 4F 55 54 49 4E 45 00 C2 0F 6C 1B |ING ROUTINE...l.|
00001040: 99 3A 20 99 3A 20 99 20 22 50 52 45 53 53 20 22 |.: .: . "PRESS "|
00001050: C7 28 31 38 29 20 22 53 22 20 C7 28 31 34 36 29 |.(18) "S" .(146)|
00001060: 20 22 46 4F 52 20 53 43 4F 52 45 2C 22 3B 00 E0 | "FOR SCORE,";..|
00001070: 0F 80 1B 99 20 22 20 41 4E 59 20 4B 45 59 20 54 |.... " ANY KEY T|
00001080: 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 00 FA 0F 94 |O CONTINUE."....|
00001090: 1B 81 20 58 B2 31 20 A4 20 31 30 3A 20 A1 20 41 |.. X.1 . 10: . A|
000010A0: 24 3A 20 82 20 58 00 13 10 A8 1B A1 20 41 24 3A |$: . X...... A$:|
000010B0: 20 8B 20 41 24 B2 22 22 20 A7 20 37 30 38 30 00 | . A$."" . 7080.|
000010C0: 27 10 BC 1B 8B 20 41 24 B3 B1 22 53 22 20 A7 20 |'.... A$.."S" . |
000010D0: 35 34 30 00 45 10 D0 1B 99 20 C7 28 31 34 37 29 |540.E.... .(147)|
000010E0: 20 4E 41 24 20 22 27 53 20 53 43 4F 52 45 21 21 | NA$ "'S SCORE!!|
000010F0: 22 00 62 10 E4 1B 99 3A 20 99 20 22 54 4F 54 41 |".b....: . "TOTA|
00001100: 4C 20 50 52 4F 42 4C 45 4D 53 3A 22 50 43 00 81 |L PROBLEMS:"PC..|
00001110: 10 F8 1B 99 3A 20 99 20 22 54 4F 54 41 4C 20 43 |....: . "TOTAL C|
00001120: 4F 52 52 45 43 54 3A 22 20 50 43 AB 57 00 9B 10 |ORRECT:" PC.W...|
00001130: 0C 1C 99 3A 20 99 20 22 54 4F 54 41 4C 20 57 52 |...: . "TOTAL WR|
00001140: 4F 4E 47 3A 22 20 57 00 C9 10 20 1C 99 3A 20 99 |ONG:" W... ..: .|
00001150: 20 22 50 45 52 43 45 4E 54 20 43 4F 52 52 45 43 | "PERCENT CORREC|
00001160: 54 3A 22 20 28 50 43 AB 57 29 AD 50 43 AC 31 30 |T:" (PC.W).PC.10|
00001170: 30 20 22 25 22 00 ED 10 34 1C 99 3A 20 99 20 22 |0 "%"...4..: . "|
00001180: 4D 4F 4E 45 59 20 45 41 52 4E 45 44 3A 22 20 4D |MONEY EARNED:" M|
00001190: 45 20 22 43 45 4E 54 53 22 00 0F 11 48 1C 99 3A |E "CENTS"...H..:|
000011A0: 20 99 20 22 4D 4F 4E 45 59 20 4C 4F 53 54 3A 22 | . "MONEY LOST:"|
000011B0: 20 4D 4C 20 22 43 45 4E 54 53 22 00 2E 11 5C 1C | ML "CENTS"...\.|
000011C0: 99 3A 20 99 20 22 46 49 4E 45 53 3A 22 20 46 20 |.: . "FINES:" F |
000011D0: 22 43 45 4E 54 53 22 3A 20 99 00 3D 11 70 1C 50 |"CENTS": ..=.p.P|
000011E0: 41 B2 4D 45 AB 4D 4C AB 46 00 77 11 84 1C 8B 20 |A.ME.ML.F.w.... |
000011F0: 50 41 B3 30 20 A7 20 50 41 B2 B6 28 50 41 29 3A |PA.0 . PA..(PA):|
00001200: 20 99 20 22 59 4F 55 20 4F 57 45 20 4D 45 22 20 | . "YOU OWE ME" |
00001210: 50 41 20 22 43 45 4E 54 53 21 22 3A 20 89 20 37 |PA "CENTS!": . 7|
00001220: 33 34 30 00 95 11 98 1C 99 20 22 49 20 4F 57 45 |340...... "I OWE|
00001230: 20 59 4F 55 22 20 50 41 20 22 43 45 4E 54 53 21 | YOU" PA "CENTS!|
00001240: 22 00 A0 11 AC 1C 89 20 37 30 30 30 00 BF 11 40 |"...... 7000...@|
00001250: 1F 8F 20 43 4F 52 52 45 43 54 20 41 4E 53 57 45 |.. CORRECT ANSWE|
00001260: 52 20 50 52 49 4E 54 20 4F 55 54 00 EA 11 54 1F |R PRINT OUT...T.|
00001270: 99 3A 20 99 3A 20 99 20 4E 41 24 20 22 2C 20 54 |.: .: . NA$ ", T|
00001280: 48 45 20 43 4F 52 52 45 43 54 20 41 4E 53 57 45 |HE CORRECT ANSWE|
00001290: 52 20 49 53 3A 22 00 07 12 68 1F 8D 20 32 30 34 |R IS:"...h.. 204|
000012A0: 30 3A 20 8F 20 43 4F 49 4E 20 50 52 49 4E 54 20 |0: . COIN PRINT |
000012B0: 4F 55 54 00 25 12 7C 1F 99 3A 20 99 20 22 20 4D |OUT.%.|..: . " M|
000012C0: 41 4B 45 53 22 20 58 25 20 22 43 45 4E 54 53 2E |AKES" X% "CENTS.|
000012D0: 22 00 30 12 90 1F 89 20 37 30 30 30 00 00 00 |".0.... 7000... |
..'....*SCREEN EDITING, UPGRADE, 40-COL.
=....***R.L.HEIST****.S....***COMPUTE!**
***.I.(..***APRIL, 1983**...2..***CLEAR
FROM LINE CONTAINING***...<..***CURSOR T
O BOTTOM OF SCREEN***...F..***USING CLOS
E BRACKET**********...P..***CLEAR FROM L
INE CONTAINING***.'.Z..***CURSOR TO TOP
OF SCREEN******.L.D..***USING OPEN BRACK
ET**********.Q.N..***'HOME' CURSOR TO LO
WER******...X..***LEFT CORNER USING ESC
KEY***......**LOADED BY*******.F....***R
.D.WALES******.S.H..I.0.147...R..X:.634.
I,X:CK.CK.X......I.&....CK..18460.."CHEC
K DATA STATMENTS FOR ERRORS":../....634.
5.....X.,..120,169,133,133,144,169,2,133
.Z.6..145,88,96,165,217,41,127,201...@..
91,208,27,169,0,133,34,169...J..128,133,
35,216,24,165,196,105...T..40,133,36,165
,197,133,37,144...^..2,230,37,24,144,46,
165,217.!.H..41,127,201,93,208,19,165,19
6.D.R..133,34,165,197,133,35,169,231.F.|
..133,36,169,131,133,37,24,144......19,2
01,95,208,67,169,192,133......196,169,13
1,133,197,169,24,133.M....216,24,144,44,
216,56,165,36......229,34,133,38,165,37,
229,35......133,39,169,32,166,39,240,12.
1....160,0,145,34,200,208,251,230.R.B..3
5,202,208,246,166,38,240,8.T.L..160,0,14
5,34,200,202,208,250...V..169,0,133,198,
169,32,133,217......76,46,230,0.........
..A.12.16.3:. $C000.4....B(A)..76..1639:
. BASIC2.P....B(A).76..2151:. BASIC4....
.."............. UNIVERSAL DOS SUPP
ORT LOADED........".....................
........................................
........................................
...............WP..X......I.P:...ICP3.WP
,.XI.P& ....WI>..I@..H..I/.CI^._P.H.W.2I
$.TP.LV...LV....T.O.S ...S (..W ..W.. O.
.P. ...P#.W...T ...O.S (. ..I... X..P. X
. .LV.H.WP...Q...Z.......T..P9.`.S F. .
..S (..... ..Q ......P. ......P..Q.P....
. Y.. P.P@P1PV X. ....P%I... X. .... ...
.I P. ....P... X. .PO .... X.HHL.C......
"...).P(...0..IP..J.J.+.I.* RE BD..I/P.
L.C .ELDFL...4..G.4.5...5 ....G...H.4.\.
5.].G.\HP..].H.HI..... ....L.P.4.5HP...Q
.R`.....................................
........................................
.......WP..X......I.P:...I.P3.WP,.XI.P&
....WI>..I@..H..I/.CI^._P.H.W.2I$.TP.LV.
..LV....T.O.S U..S C..W ..W.. ...P. ...P
#.W...T R..O.S C. ..I... ...P. .. ..LV.H
.WP...Q...Z.......T..P9.`.S .. R..S C...
.. ..Q ......P. ......P..Q.P..... .O. P.
P@P1PV .. ....P%I... ...X.. CHR$(147)=CL
EAR SCREEN.>.... CHR$(18)=REVIRSE VIDEO
ON.`. .. CHR$(146)=REVIRSE VIDEO OFF....
.. G(147) "MAKING CHANGE":.:....... "PLE
ASE ENTER YOUR NAME";NA$.....X%.100.(.(1
)).1.T.0.PC.PC.1: RC.0: . G(147)...D.. .
(PC.2).(PC.2) . 2000:. PROBLEM TYPE SELE
CTION.+.... GIVE CHANGE PROBLEM ROUTINE.
U.... PC " " NA$ " GIVE ME "X%" CENTS.":
..}.... "HOW MANY QUARTERS"; Q:Q1.Q.25:
....$.. "HOW MANY DIMES"; D: D1.D.10: ..
J.8.. "HOW MANY NICKLES"; N: N1.N.5: ...
.L.."HOW MANY PENNIES";P :.:....`.Q%.Q:
D%.D: N%.N: P%.P: TC.Q1.D1.N1.P.G.T..Q%.
.Q . D%..D . N%..N . P%..P . . 5000: . 1
220.R.... P.X% . X%.4 . TC.X% . . 6000:
. 1220...... X%.TC . 3000...... 4000...D
.. RC.3 . 8000...X.. 1020: . REPEAT PROB
LEM...P.. COUNT CHANGE PROBLEM ROUTINE..
.... PC " " NA$ ", I HAVE:".%...XX%.X%:
QU%.XX%.25:XX%.XX%.QU%.25.^...DI%.XX%.10
: XX%.XX%.DI%.10: NI%.XX%.5: PE%.XX%.NI%
.5.|. ..: . .10) QU% "QUARTERS,"...4..:
. .10) DI% "DIMES,"...H..: . .10) NI% "N
ICKLES, AND".U.\..: . .10) PE% "PENNIES.
"...P.. RC.3 . .: . FOR COIN PRINT OUT A
T 8040.0....: ."HOW MUCH CHANGE DO I HAV
E";TC: .: .:.N.... .(TC)..TC . . NA$ ",
DON'S USE DECIMAL POINTS.": . 2180......
X%.TC . 3000...... 4000...T.. RC.3 . 30
00...... 2020: . REPEAT PROBLEM...... CO
RRECT ANSWER ROUTINE***LINES 3001 TO 389
9 FOR USER GRAPHICS.).<.. G(18) "CORRECT
" NA$ "!!!!!" G(146).<.D.ME.ME.1: .7000
.W. .. WRONG ANSWER ROUTINE.J.... TC.X%
. 4060...H.. X%.TC "CENTS SHORT " NA$ "!
": . 4080...... TC.X% "CENTS TOO MUCH "
NA$ "!".W....: . "YOU LOSE 1 CENT!".....
ML.ML.1.....RC.RC.1: . RC.3 . ....,..: .
"TRY AGAIN " NA$ ".": .: ..2.@.. RC.1 .
W.W.1.8.T...X.... FRACTIONAL ANSWER ROU
TINE.{.... NA$ ", ANSWERS WITH DECIMAL".
.....: . "POINTS ARE NOT ALLOWED."...D..
: . "YOU ARE FINED 1 CENT.".Q.X.F.F.1: .
4120...P.. ALL PENNY ANSWER...... NA$ "
," P "PENNIES DOES EQUAL" X% "CENTS.".:.
...: . "BUT THAT IS CHEATING.".G....:. "
YOU ARE FINED 1 CENT FOR CHEATING.".Y...
F.F.1: . 4120...X.. SCORING ROUTINE.B.L.
.: .: . "PRESS "G(18) "S" G(146) "FOR SC
ORE,";...... " ANY KEY TO CONTINUE."....
.. X.1 . 10: . A$: . X...... A$: . A$.""
. 7080.'.... A$.."S" . 540.E.P.. G(147)
NA$ "'S SCORE!!".B....: . "TOTAL PROBLE
MS:"PC......: . "TOTAL CORRECT:" PC.W...
...: . "TOTAL WRONG:" W.I. ..: . "PERCEN
T CORRECT:" (PC.W).PC.100 "%"...4..: . "
MONEY EARNED:" ME "CENTS"...H..: . "MONE
Y LOST:" ML "CENTS"...\..: . "FINES:" F
"CENTS": ..=.P.PA.ME.ML.F.W.... PA.0 . P
A..(PA): . "YOU OWE ME" PA "CENTS!": . 7
340...... "I OWE YOU" PA "CENTS!". ....
7000...@.. CORRECT ANSWER PRINT OUT...T.
.: .: . NA$ ", THE CORRECT ANSWER IS:"..
.H.. 2040: . COIN PRINT OUT.%.|..: . " M
AKES" X% "CENTS.".0.... 7000...
> CLICK IMAGE PREVIEW FOR FULL MODAL