CHANGEMAKER.C2
FILE INFORMATION
FILENAME(S): CHANGEMAKER.C2
FILE TYPE(S): PRG
FILE SIZE: 12.4K
FIRST SEEN: 2025-11-30 01:08:43
APPEARS ON: 1 disk(s)
FILE HASH
a8f90b3c2c3959c3d2d16c7f23a74c378947932c3fd11b821291f6ff001b989a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | CHANGEMAKER.C2 | PRG | Treasure Chest - Wolfgang Rauprich | 2 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 0A 04 01 00 89 39 31 30 00 2A 04 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 04 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....|
00000050: 85 91 EA 58 60 00 74 04 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 04 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 04 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 04 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 04 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 04 1E 00 3A 00 F0 04 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 05 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 05 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 22 05 2D 00 97 55 43 |.0.UL.80.".-..UC|
00000120: 2C 30 00 36 05 32 00 A1 55 49 24 3A 8B 55 49 24 |,0.6.2..UI$:.UI$|
00000130: B2 22 22 A7 35 30 00 60 05 37 00 8B 55 49 24 B2 |."".50.`.7..UI$.|
00000140: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
00000150: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
00000160: 00 73 05 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).|
00000170: 31 30 35 00 87 05 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000180: B2 B1 55 4C A7 35 30 00 AC 05 41 00 8D 31 32 30 |..UL.50...A..120|
00000190: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
000001A0: 49 44 20 43 48 41 52 41 43 54 45 52 00 BC 05 46 |ID CHARACTER...F|
000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 05 4B |.UR$.UR$.UI$...K|
000001C0: 00 99 55 49 24 3B 00 CE 05 50 00 89 35 30 00 F3 |..UI$;...P..50..|
000001D0: 05 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 |.U.. +++ CHECK F|
000001E0: 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 |OR HELP REQUEST |
000001F0: 2B 2B 2B 00 1B 06 5A 00 8B 55 52 24 B2 55 58 24 |+++...Z..UR$.UX$|
00000200: A7 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 |.195:. EXIT TO H|
00000210: 45 4C 50 20 52 4F 55 54 49 4E 45 00 2A 06 5F 00 |ELP ROUTINE.*._.|
00000220: 8B 55 46 B2 31 A7 8D 32 34 30 00 37 06 64 00 55 |.UF.1..240.7.d.U|
00000230: 46 B2 30 3A 99 3A 8E 00 50 06 66 00 8F 20 2B 2B |F.0:.:..P.f.. ++|
00000240: 20 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B | CHECK DELETE ++|
00000250: 00 61 06 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 |.a.i...(UR$).1.5|
00000260: 30 00 79 06 6E 00 55 52 24 B2 C8 28 55 52 24 2C |0.y.n.UR$..(UR$,|
00000270: C3 28 55 52 24 29 AB 31 29 00 8B 06 73 00 99 22 |.(UR$).1)...s.."|
00000280: 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B2 06 78 00 |. ..";:.50...x.|
00000290: 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 |. ++ CHECK FOR V|
000002A0: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 |ALID CHARACTERS |
000002B0: 2B 2B 00 C4 06 7D 00 8B C3 28 55 53 24 29 B2 30 |++...}...(US$).0|
000002C0: A7 31 35 30 00 D5 06 82 00 81 55 53 B2 31 A4 C3 |.150......US.1..|
000002D0: 28 55 53 24 29 00 EC 06 87 00 8B 55 49 24 B2 CA |(US$)......UI$..|
000002E0: 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 F2 06 8C |(US$,US,1)......|
000002F0: 00 82 00 FF 06 91 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
00000300: 1A 07 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 |..... ** STANDAR|
00000310: 44 20 49 4E 50 55 54 20 2A 2A 00 2B 07 98 00 8B |D INPUT **.+....|
00000320: C6 28 55 49 24 29 B2 34 36 A7 8E 00 3C 07 9B 00 |.(UI$).46...<...|
00000330: 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 59 07 A0 |.UI$..(32)...Y..|
00000340: 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 |...(UI$).48..(UI|
00000350: 24 29 B1 35 37 A7 31 37 30 00 5F 07 A5 00 8E 00 |$).57.170._.....|
00000360: 7C 07 AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 ||.....(UI$).65..|
00000370: 28 55 49 24 29 B1 39 30 A7 31 38 30 00 82 07 AF |(UI$).90.180....|
00000380: 00 8E 00 A6 07 B4 00 8B C6 28 55 49 24 29 B3 31 |.........(UI$).1|
00000390: 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 |93..(UI$).218.UI|
000003A0: 24 B2 22 22 3A 8E 00 C9 07 B9 00 8B C2 28 55 54 |$."":........(UT|
000003B0: 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 |).UU%.UI$..(.(UI|
000003C0: 24 29 AB 31 32 38 29 3A 8E 00 CF 07 BB 00 8E 00 |$).128):........|
000003D0: DC 07 BE 00 55 49 24 B2 22 22 3A 8E 00 01 08 C3 |....UI$."":.....|
000003E0: 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 |.UF.1:. +++ HELP|
000003F0: 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B | ROUTINE EXIT ++|
00000400: 2B 00 0A 08 C5 00 8D 32 35 30 00 13 08 C8 00 8D |+......250......|
00000410: 32 34 35 00 32 08 CD 00 81 55 51 B2 55 42 A4 28 |245.2....UQ.UB.(|
00000420: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
00000430: 32 29 00 4E 08 D2 00 55 51 25 28 55 51 AB 55 42 |2).N...UQ%(UQ.UB|
00000440: 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 61 |)..(UQ):.:.".".a|
00000450: 08 D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 |...UZ.1:UV%..(UT|
00000460: 29 00 6A 08 D8 00 89 33 30 30 00 AE 08 D9 00 55 |).j....300.....U|
00000470: 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 |Z.0:US$.UJ$:UG$.|
00000480: 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 3A |UK$:UP.UJ:UL.UK:|
00000490: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
000004A0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 E3 |81,6:.53280,14..|
000004B0: 08 DC 00 55 54 24 B2 55 4C 24 3A 99 22 93 22 3B |...UT$.UL$:.".";|
000004C0: 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 |:.UT,UV%:.UQ.UB.|
000004D0: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%|
000004E0: AB 33 29 00 F8 08 E1 00 97 55 51 2C 55 51 25 28 |.3)......UQ,UQ%(|
000004F0: 55 51 AB 55 42 29 3A 82 00 04 09 E6 00 97 55 31 |UQ.UB):.......U1|
00000500: 2C 55 31 25 00 10 09 E8 00 97 55 32 2C 55 32 25 |,U1%......U2,U2%|
00000510: 00 1C 09 E9 00 97 55 34 2C 55 34 25 00 2A 09 EA |......U4,U4%.*..|
00000520: 00 97 55 33 2C 55 33 25 AB 31 00 32 09 EB 00 89 |..U3,U3%.1.2....|
00000530: 33 35 00 64 09 F0 00 55 44 25 B2 28 28 55 32 25 |35.d...UD%.((U2%|
00000540: AC 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 |.256.U1%.U3%).UB|
00000550: 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA |).40:..(UD$,UD%.|
00000560: 31 29 3A 8E 00 9F 09 F5 00 99 C8 28 55 44 24 2C |1):........(UD$,|
00000570: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00000580: 20 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C | . HEL|
00000590: 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 |P COMING . ":..|
000005A0: CB 09 FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 |....U1%..(U1):U2|
000005B0: 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 |%..(U2):U3%..(U3|
000005C0: 29 3A 55 34 25 B2 C2 28 55 34 29 00 F3 09 FB 00 |):U4%..(U4).....|
000005D0: 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A |UJ$.US$:UK$.UG$:|
000005E0: 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B |UL$.UT$:UJ.UP:UK|
000005F0: B2 55 4C 00 F9 09 FF 00 8E 00 0A 0A 2C 01 8F 20 |.UL.........,.. |
00000600: 2A 2A 20 4D 45 4E 55 20 2A 2A 00 10 0A 2D 01 3A |** MENU **...-.:|
00000610: 00 3F 0A 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 |.?....".":.UT,UU|
00000620: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00000630: 33 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 |3281,9:.53280,8.|
00000640: 45 0A 2F 01 3A 00 62 0A 31 01 99 22 13 20 20 20 |E./.:.b.1..". |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E | MEN|
00000660: 55 22 00 91 0A 36 01 99 22 20 2D 2D 2D 2D 2D 2D |U"...6.." ------|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000690: 22 00 B8 0A 3B 01 99 22 11 11 20 20 20 20 20 20 |"...;..".. |
000006A0: 20 31 2E 20 20 20 42 45 47 49 4E 20 43 48 41 4E | 1. BEGIN CHAN|
000006B0: 47 45 4D 41 4B 45 52 22 00 E2 0A 40 01 99 22 11 |GEMAKER"...@..".|
000006C0: 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 |. 2. STU|
000006D0: 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E |DENT INSTRUCTION|
000006E0: 53 22 00 0C 0B 45 01 99 22 11 11 20 20 20 20 20 |S"...E..".. |
000006F0: 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 | 3. TEACHER I|
00000700: 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 28 0B 4F |NSTRUCTIONS".(.O|
00000710: 01 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 |..".. 4. |
00000720: 20 51 55 49 54 11 11 22 00 57 0B 54 01 99 22 20 | QUIT..".W.T.." |
00000730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000750: 2D 2D 2D 2D 2D 2D 22 00 82 0B 59 01 99 22 11 11 |------"...Y.."..|
00000760: 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E | PRESS A N|
00000770: 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 20 |UMBER KEY (1-4) |
00000780: 22 3B 00 AA 0B 5E 01 55 4C B2 31 3A 55 53 24 B2 |";...^.UL.1:US$.|
00000790: 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 |"1234":.35:. INP|
000007A0: 55 54 20 52 4F 55 54 49 4E 45 00 B5 0B 60 01 55 |UT ROUTINE...`.U|
000007B0: 53 24 B2 22 22 00 D2 0B 63 01 91 C5 28 55 52 24 |S$.""...c...(UR$|
000007C0: 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 |).1000,400,500,3|
000007D0: 39 36 00 DB 0B 68 01 89 33 30 30 00 02 0C 8B 01 |96...h..300.....|
000007E0: 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 |. ** RE-ENABLE S|
000007F0: 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 |TOP KEY AND END |
00000800: 2A 2A 00 31 0C 8C 01 8B C2 28 35 30 30 30 33 29 |**.1.....(50003)|
00000810: B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 |..1..(50003)..16|
00000820: 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 |0..(50003)..0.39|
00000830: 39 00 5B 0C 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 |9.[....UU.71:..(|
00000840: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00000850: 36 3A 97 35 33 32 38 30 2C 31 34 00 67 0C 8E 01 |6:.53280,14.g...|
00000860: 99 22 9A 93 22 3A 80 00 72 0C 8F 01 8D 38 37 35 |."..":..r....875|
00000870: 3A 8E 00 93 0C 90 01 8F 20 2A 2A 20 53 54 55 44 |:....... ** STUD|
00000880: 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ENT INSTRUCTIONS|
00000890: 20 2A 2A 00 C2 0C 95 01 99 22 93 22 3A 97 55 54 | **......".":.UT|
000008A0: 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UL%:..(50003).0|
000008B0: A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 |..53281,0:.53280|
000008C0: 2C 30 00 E3 0C 9A 01 55 50 B2 30 3A 55 47 24 B2 |,0.....UP.0:UG$.|
000008D0: 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D |".TUDENT .NST":.|
000008E0: 38 35 30 00 11 0D A4 01 99 22 11 11 11 11 11 11 |850......"......|
000008F0: 11 11 20 20 20 20 20 20 20 20 D4 48 49 53 20 50 |.. .HIS P|
00000900: 52 4F 47 52 41 4D 20 53 49 4D 55 4C 41 54 45 53 |ROGRAM SIMULATES|
00000910: 22 00 3A 0D A6 01 99 22 11 20 20 20 20 20 20 20 |".:....". |
00000920: 20 42 55 59 49 4E 47 20 49 54 45 4D 53 20 49 4E | BUYING ITEMS IN|
00000930: 20 41 20 53 54 4F 52 45 2E 22 00 48 0D A8 01 8D | A STORE.".H....|
00000940: 38 33 35 3A 8D 38 35 30 00 77 0D AA 01 99 22 11 |835:.850.w....".|
00000950: 11 11 11 11 20 20 20 20 20 20 D9 4F 55 20 57 49 |.... .OU WI|
00000960: 4C 4C 20 42 45 20 41 53 4B 45 44 A0 54 4F 20 54 |LL BE ASKED.TO T|
00000970: 59 50 45 20 49 4E 22 00 A1 0D AC 01 99 22 20 20 |YPE IN"......" |
00000980: 20 20 20 20 54 48 45 20 4E 41 4D 45 20 41 4E 44 | THE NAME AND|
00000990: A0 50 52 49 43 45 53 A0 4F 46 A0 49 54 45 4D 53 |.PRICES.OF.ITEMS|
000009A0: 22 00 BE 0D AE 01 99 22 20 20 20 20 20 20 59 4F |"......" YO|
000009B0: 55 20 41 52 45 20 42 55 59 49 4E 47 2E 22 00 E9 |U ARE BUYING."..|
000009C0: 0D B0 01 99 22 11 11 20 20 20 20 20 20 D7 48 45 |....".. .HE|
000009D0: 4E A0 59 4F 55 A0 41 52 45 A0 44 4F 4E 45 A0 53 |N.YOU.ARE.DONE.S|
000009E0: 48 4F 50 50 49 4E 47 2C 22 00 0F 0E B2 01 99 22 |HOPPING,"......"|
000009F0: 20 20 20 20 20 20 54 59 50 45 20 C4 CF CE C5 2E | TYPE .....|
00000A00: 20 20 D4 48 45 A0 43 4F 4D 50 55 54 45 52 22 00 | .HE.COMPUTER".|
00000A10: 48 0E B4 01 99 22 20 20 20 20 20 20 57 49 4C 4C |H...." WILL|
00000A20: 20 54 48 45 4E 20 43 41 4C 43 55 4C 41 54 45 20 | THEN CALCULATE |
00000A30: 59 4F 55 52 22 3A 99 22 20 20 20 20 20 20 53 41 |YOUR":." SA|
00000A40: 4C 45 53 20 54 41 58 2E 00 56 0E B6 01 8D 38 33 |LES TAX..V....83|
00000A50: 35 3A 8D 38 35 30 00 87 0E B8 01 99 22 11 11 11 |5:.850......"...|
00000A60: 11 11 11 20 20 20 20 20 D7 48 45 4E 20 54 48 45 |... .HEN THE|
00000A70: A0 43 4F 4D 50 55 54 45 52 A0 47 49 56 45 A0 59 |.COMPUTER.GIVE.Y|
00000A80: 4F 55 A0 54 48 45 22 00 AF 0E BA 01 99 22 20 20 |OU.THE"......" |
00000A90: 20 20 20 54 4F 54 41 4C 2C 20 59 4F 55 A0 57 49 | TOTAL, YOU.WI|
00000AA0: 4C 4C A0 42 45 A0 41 53 4B 45 44 A0 54 4F 22 00 |LL.BE.ASKED.TO".|
00000AB0: D6 0E BC 01 99 22 20 20 20 20 20 45 4E 54 45 52 |....." ENTER|
00000AC0: 20 54 48 45 20 C1 CD CF D5 CE D4 20 D4 C5 CE C4 | THE ...... ....|
00000AD0: C5 D2 C5 C4 2C 22 00 01 0F BE 01 99 22 20 20 20 |....,"......" |
00000AE0: 20 20 57 48 49 43 48 20 4D 45 41 4E 53 20 48 4F | WHICH MEANS HO|
00000AF0: 57 20 4D 55 43 48 20 4D 4F 4E 45 59 A0 59 4F 55 |W MUCH MONEY.YOU|
00000B00: 22 00 24 0F C0 01 99 22 20 20 20 20 20 41 52 45 |".$...." ARE|
00000B10: 20 47 49 56 49 4E 47 20 54 48 45 20 43 41 53 48 | GIVING THE CASH|
00000B20: 49 45 52 2E 00 61 0F C2 01 99 22 11 11 20 20 20 |IER..a....".. |
00000B30: 20 20 D4 48 45 A0 43 4F 4D 50 55 54 45 52 A0 57 | .HE.COMPUTER.W|
00000B40: 49 4C 4C A0 54 48 45 4E A0 4D 41 4B 45 22 3A 99 |ILL.THEN.MAKE":.|
00000B50: 22 20 20 20 20 20 54 48 45 20 43 48 41 4E 47 45 |" THE CHANGE|
00000B60: 2E 00 6F 0F C4 01 8D 38 33 35 3A 8D 38 35 30 00 |..o....835:.850.|
00000B70: 9D 0F C8 01 99 22 11 11 11 11 20 20 20 20 D2 45 |.....".... .E|
00000B80: 4D 45 4D 42 45 52 20 54 4F 20 48 49 54 20 3C 52 |MEMBER TO HIT <R|
00000B90: 45 54 55 52 4E 3E 20 41 46 54 45 52 22 00 C7 0F |ETURN> AFTER"...|
00000BA0: CA 01 99 22 20 20 20 20 54 59 50 49 4E 47 20 59 |..." TYPING Y|
00000BB0: 4F 55 52 20 41 4E 53 57 45 52 2E 20 D4 48 49 53 |OUR ANSWER. .HIS|
00000BC0: 20 54 45 4C 4C 53 22 00 F2 0F CC 01 99 22 20 20 | TELLS"......" |
00000BD0: 20 20 54 48 45 20 43 4F 4D 50 55 54 45 52 20 54 | THE COMPUTER T|
00000BE0: 4F 20 41 43 43 45 50 54 20 57 48 41 54 20 59 4F |O ACCEPT WHAT YO|
00000BF0: 55 22 00 0B 10 CE 01 99 22 20 20 20 20 48 41 56 |U"......" HAV|
00000C00: 45 20 54 59 50 45 44 2E 11 11 22 00 35 10 D0 01 |E TYPED...".5...|
00000C10: 99 22 20 20 20 20 D4 59 50 45 20 3C 48 3E 20 41 |." .YPE <H> A|
00000C20: 54 20 41 4E 59 20 54 49 4D 45 20 54 4F 20 52 45 |T ANY TIME TO RE|
00000C30: 54 55 52 4E 22 00 60 10 D2 01 99 22 20 20 20 20 |TURN".`...." |
00000C40: 54 4F 20 54 48 45 20 4D 45 4E 55 20 46 4F 52 20 |TO THE MENU FOR |
00000C50: 48 45 4C 50 2E 20 20 D9 4F 55 20 57 49 4C 4C 22 |HELP. .OU WILL"|
00000C60: 00 8B 10 D4 01 99 22 20 20 20 20 42 45 20 52 45 |......" BE RE|
00000C70: 54 55 52 4E 45 44 20 54 4F 20 54 48 45 20 50 4C |TURNED TO THE PL|
00000C80: 41 43 45 20 49 4E 20 54 48 45 22 00 B4 10 D6 01 |ACE IN THE".....|
00000C90: 99 22 20 20 20 20 50 52 4F 47 52 41 4D 20 57 48 |." PROGRAM WH|
00000CA0: 45 52 45 20 59 4F 55 20 4C 45 46 54 20 4F 46 46 |ERE YOU LEFT OFF|
00000CB0: 20 41 53 22 00 E0 10 D8 01 99 22 20 20 20 20 53 | AS"......" S|
00000CC0: 4F 4F 4E 20 41 53 20 54 48 45 20 4F 50 54 49 4F |OON AS THE OPTIO|
00000CD0: 4E 20 46 52 4F 4D 20 54 48 45 20 4D 45 4E 55 22 |N FROM THE MENU"|
00000CE0: 00 F8 10 DA 01 99 22 20 20 20 20 49 53 20 43 4F |......" IS CO|
00000CF0: 4D 50 4C 45 54 45 2E 22 00 01 11 E5 01 8D 38 33 |MPLETE."......83|
00000D00: 35 00 15 11 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 |5......UZ.1..UP%|
00000D10: 3A 89 32 31 37 00 1B 11 F3 01 8E 00 3C 11 F4 01 |:.217.......<...|
00000D20: 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 |. ** TEACHER INS|
00000D30: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 6C 11 F5 |TRUCTIONS **.l..|
00000D40: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..|
00000D50: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000D60: 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 8D 11 F6 |,2:.53280,10....|
00000D70: 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 |.UP.0:UG$.".EACH|
00000D80: 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 BB 11 |ER .NST":.850...|
00000D90: F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 |...".. .O T|
00000DA0: 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B |HE BEST OF OUR K|
00000DB0: 4E 4F 57 4C 45 44 47 45 2C 11 22 00 E4 11 F8 01 |NOWLEDGE,.".....|
00000DC0: 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 |." THIS PROGRA|
00000DD0: 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C |M IS IN THE PUBL|
00000DE0: 49 43 11 22 00 10 12 F9 01 99 22 20 20 20 44 4F |IC."......" DO|
00000DF0: 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 |MAIN. .F THIS I|
00000E00: 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 |S NOT THE CASE."|
00000E10: 00 2D 12 FA 01 99 22 20 20 20 50 4C 45 41 53 45 |.-...." PLEASE|
00000E20: 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 57 12 | CONTACT:...".W.|
00000E30: FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 |..." .OMMOD|
00000E40: 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 |ORE .USINESS .AC|
00000E50: 48 49 4E 45 53 11 22 00 7A 12 FC 01 99 22 20 20 |HINES.".z...." |
00000E60: 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 | 3370 .HA|
00000E70: 52 4D 41 43 59 20 C1 56 45 2E 00 9E 12 FD 01 99 |RMACY .VE.......|
00000E80: 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 |" .GINC|
00000E90: 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 C0 |OURT, .NTARIO"..|
00000EA0: 12 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 |...." .|
00000EB0: 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 |ANADA .1. 2.4"|
00000EC0: 00 E0 12 FF 01 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000ED0: 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 | (416) 499-4292"|
00000EE0: 00 EF 12 40 02 8D 38 33 35 3A 8D 38 35 30 3A 00 |...@..835:.850:.|
00000EF0: 17 13 42 02 99 22 20 20 20 20 20 11 11 D0 52 4F |..B.." ...RO|
00000F00: 47 52 41 4D 20 CE 41 4D 45 3A 20 C3 48 41 4E 47 |GRAM .AME: .HANG|
00000F10: 45 4D 41 4B 45 52 11 00 3F 13 44 02 99 22 20 20 |EMAKER..?.D.." |
00000F20: 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 3A | .RITTEN .Y :|
00000F30: 20 C7 2E 20 CD 2E 20 D7 41 4C 54 45 52 53 11 00 | .. .. .ALTERS..|
00000F40: 64 13 46 02 99 22 20 20 20 20 20 D5 50 47 52 41 |d.F.." .PGRA|
00000F50: 44 45 44 20 C2 59 20 3A 20 D1 55 49 4E 43 59 20 |DED .Y : .UINCY |
00000F60: CC 45 45 11 00 8F 13 48 02 99 22 20 20 20 20 20 |.EE....H.." |
00000F70: 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 |..HIS PROGRAM WI|
00000F80: 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 |LL RUN ON ANY...|
00000F90: B6 13 4A 02 99 22 20 20 20 20 20 20 20 20 20 C2 |..J.." .|
00000FA0: C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 CF CD |.....2.0 ... ...|
00000FB0: D0 D5 D4 C5 D2 11 00 DD 13 4C 02 99 22 20 20 20 |.........L.." |
00000FC0: 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E 30 20 | ..... 4.0 |
00000FD0: D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 FF 13 |................|
00000FE0: 4E 02 99 22 20 20 20 20 20 20 20 20 20 38 30 33 |N.." 803|
00000FF0: 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 11 00 |2 ... ..........|
00001000: 24 14 50 02 99 22 20 20 20 20 20 20 20 20 20 C3 |$.P.." .|
00001010: CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 |........ 64 ....|
00001020: D5 D4 C5 D2 00 2D 14 52 02 8D 38 33 35 00 41 14 |.....-.R..835.A.|
00001030: 54 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 |T..UZ.1..UP%:.21|
00001040: 37 00 47 14 56 02 8E 00 6D 14 58 02 8F 20 2A 2A |7.G.V...m.X.. **|
00001050: 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 | PROGRAM MODIFIC|
00001060: 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 7E 14 |ATION INST **.~.|
00001070: 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 9E |Y..".":.UT,UL%..|
00001080: 14 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 4F |.].UP.0:UG$.".RO|
00001090: 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 A7 |GRAM .OD":.850..|
000010A0: 14 94 02 8D 38 33 35 00 BB 14 B2 02 8B 55 5A B2 |....835......UZ.|
000010B0: 31 A7 9E 55 50 25 3A 89 32 31 37 00 C1 14 BB 02 |1..UP%:.217.....|
000010C0: 8E 00 E6 14 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 |....... ** TO US|
000010D0: 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 |E 8032 LOAD CBM4|
000010E0: 30 33 32 20 2A 2A 00 1C 15 C6 02 99 22 93 11 11 |032 **......"...|
000010F0: 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 |..BEFORE RUNNING|
00001100: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E | THIS PROGRAM ON|
00001110: 20 41 4E 20 38 30 33 32 20 20 11 11 00 52 15 D0 | AN 8032 ...R..|
00001120: 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 |.." LOAD TH|
00001130: 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F |E 'CBM 4032' PRO|
00001140: 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 |GRAM............|
00001150: 11 22 00 5D 15 DA 02 9E 55 55 AA 37 31 00 63 15 |.".]....UU.71.c.|
00001160: E4 02 80 00 83 15 20 03 8F 20 2A 2A 20 54 20 49 |...... .. ** T I|
00001170: 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 | T L E P A G E|
00001180: 20 2A 2A 00 B7 15 22 03 99 22 93 11 1D 05 22 3B | **...".."....";|
00001190: 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 |:.UT,UU%:..(5000|
000011A0: 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 |3).0..53280,14:.|
000011B0: 35 33 32 38 31 2C 36 00 CD 15 24 03 81 49 B2 31 |53281,6...$..I.1|
000011C0: A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 E5 15 |.38:."...";:....|
000011D0: 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 |&..I.1.22:."....|
000011E0: 92 22 3B 3A 82 00 FD 15 28 03 81 49 B2 31 A4 33 |.";:....(..I.1.3|
000011F0: 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 15 16 |7:.".....";:....|
00001200: 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 |*..I.1.22:."....|
00001210: 92 22 3B 3A 82 00 3A 16 2C 03 99 22 13 11 11 11 |.";:..:.,.."....|
00001220: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001230: 1D 1D 1D 1D 1D 12 A9 20 20 92 00 5C 16 2E 03 99 |....... ..\....|
00001240: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001250: 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 7D 16 30 |.... . . ...}.0|
00001260: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001270: 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 9B 16 |...... . ......|
00001280: 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |2.."............|
00001290: 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 C3 16 34 03 |........ ....4.|
000012A0: 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000012B0: 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 |C O M M O D O R |
000012C0: 45 11 11 00 E6 16 36 03 99 22 1D 1D 1D 1D 1D 1D |E.....6.."......|
000012D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 |.........EDUCATI|
000012E0: 4F 4E 41 4C 11 11 00 05 17 38 03 99 22 1D 1D 1D |ONAL.....8.."...|
000012F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 |.............SOF|
00001300: 54 57 41 52 45 00 20 17 3A 03 8F 20 2A 2A 20 43 |TWARE. .:.. ** C|
00001310: 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A |OMMODORE LOGO **|
00001320: 00 58 17 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B |.X.;...(UD$,24);|
00001330: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 |"..........PRESS|
00001340: 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 | SPACE BAR OR WA|
00001350: 49 54 92 22 3A 49 B2 30 00 7A 17 3C 03 A1 41 24 |IT.":I.0.z.<..A$|
00001360: 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A |:.A$.." ".I.I.1:|
00001370: 8B 49 B3 32 35 30 A7 38 32 38 00 9E 17 3E 03 54 |.I.250.828...>.T|
00001380: 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 |1$."":T2$."":T3$|
00001390: B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 A7 |."":T4$."":I.0..|
000013A0: 17 40 03 89 33 30 30 00 C3 17 43 03 8F 20 2A 2A |.@..300...C.. **|
000013B0: 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 53 | SPACE BAR PRESS|
000013C0: 20 2A 2A 00 FE 17 48 03 97 55 4F 2C 30 3A 99 C8 | **...H..UO,0:..|
000013D0: 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D |(UD$,24);"......|
000013E0: 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 |.PRESS SPACE BAR|
000013F0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 15 | TO CONTINUE."..|
00001400: 18 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 |.L..UI$:.UI$.." |
00001410: 22 A7 38 34 34 00 1B 18 4E 03 8E 00 3B 18 52 03 |".844...N...;.R.|
00001420: 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E |. ** PAGE DESIGN|
00001430: 20 52 4F 55 54 49 4E 45 20 2A 2A 00 47 18 54 03 | ROUTINE **.G.T.|
00001440: 55 50 B2 55 50 AA 31 00 6E 18 55 03 8B C2 28 55 |UP.UP.1.n.U...(U|
00001450: 54 29 B2 55 4C 25 A7 55 54 24 B2 22 20 C3 C8 C1 |T).UL%.UT$." ...|
00001460: CE C7 C5 CD C1 CB C5 D2 22 3A 89 38 35 35 00 85 |........":.855..|
00001470: 18 56 03 55 54 24 B2 22 20 43 48 41 4E 47 45 4D |.V.UT$." CHANGEM|
00001480: 41 4B 45 52 22 00 AF 18 57 03 99 22 93 22 C8 28 |AKER"...W..".".(|
00001490: 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 |UT$.UP$,21);.(UP|
000014A0: 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 00 |$.UG$..(UP),18).|
000014B0: DE 18 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |..\.." ---------|
000014C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 ED |-------------"..|
000014E0: 18 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 21 19 |.`..UH..0.870.!.|
000014F0: 61 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 |a...(UD$,24);.(U|
00001500: 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 |P$,7);"HELP - PR|
00001510: 45 53 53 20 20 20 48 20 3C 52 45 54 55 52 4E 3E |ESS H <RETURN>|
00001520: 22 00 32 19 66 03 55 48 B2 30 3A 99 22 13 11 22 |".2.f.UH.0:.".."|
00001530: 3A 8E 00 51 19 6B 03 8F 20 2A 2A 20 50 4C 45 41 |:..Q.k.. ** PLEA|
00001540: 53 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A |SE WAIT REMARK *|
00001550: 2A 00 87 19 70 03 99 C8 28 55 44 24 2C 32 34 29 |*...p...(UD$,24)|
00001560: 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 |;" ONE|
00001570: 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E | MOMENT PLEASE..|
00001580: 2E 20 20 20 20 20 22 00 8D 19 75 03 8E 00 AA 19 |. "...u.....|
00001590: 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 |... ** SET UP VA|
000015A0: 52 49 41 42 4C 45 53 20 2A 2A 00 F5 19 85 03 55 |RIABLES **.....U|
000015B0: 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 30 30 |X$."H":.UQ%(1000|
000015C0: 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 |):UB.32768:U1.19|
000015D0: 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A |6:U2.197:U3.198:|
000015E0: 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 |U4.216:UC.167:UU|
000015F0: B2 31 30 32 34 00 33 1A 86 03 55 54 B2 35 39 34 |.1024.3...UT.594|
00001600: 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 |68:UU%.12:UL%.14|
00001610: 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 |:UP%.1146:UM.327|
00001620: 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 30 |68:UO.158:. 5000|
00001630: 33 2C 30 00 76 1A 87 03 8B C2 28 35 30 30 30 33 |3,0.v.....(50003|
00001640: 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 |).0.UB.1024:U1.2|
00001650: 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 |09:U2.210:U3.211|
00001660: 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 |:U4.214:UC.204:U|
00001670: 55 B2 32 30 34 38 00 B5 1A 88 03 8B C2 28 35 30 |U.2048.......(50|
00001680: 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A |003).0.UT.53272:|
00001690: 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 |UU%.21:UL%.23:UP|
000016A0: 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 |%.2139:UM.1024:U|
000016B0: 4F B2 31 39 38 00 D9 1A 89 03 55 44 24 B2 22 13 |O.198.....UD$.".|
000016C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000016D0: 11 11 11 11 11 11 11 11 22 00 0B 1B 8A 03 55 50 |........".....UP|
000016E0: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
000016F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001700: 20 20 20 20 20 20 20 20 20 20 22 00 11 1B 8C 03 | ".....|
00001710: 8E 00 2B 1B 8E 03 8F 20 2A 2A 20 53 45 54 20 56 |..+.... ** SET V|
00001720: 41 52 49 41 42 4C 45 53 20 2A 2A 00 34 1B 93 03 |ARIABLES **.4...|
00001730: 8D 39 30 30 00 4F 1B 98 03 8F 20 2A 2A 20 43 48 |.900.O.... ** CH|
00001740: 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 |ECK FOR 8032 **.|
00001750: 6D 1B 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 |m....".":.".":. |
00001760: 53 48 49 46 54 45 44 20 53 50 41 43 45 00 84 1B |SHIFTED SPACE...|
00001770: A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 |....(UB.40)..96.|
00001780: 8D 37 30 30 00 9D 1B A3 03 8F 20 2A 2A 20 4D 45 |.700...... ** ME|
00001790: 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 B1 1B |MORY CHECK **...|
000017A0: A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 |... .(0).2000.93|
000017B0: 37 00 DF 1B A5 03 99 22 93 11 11 05 54 48 49 53 |7......"....THIS|
000017C0: 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F | MACHINE DOES NO|
000017D0: 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 |T HAVE ENOUGH.".|
000017E0: 03 1C A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 |....."MEMORY TO |
000017F0: 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D |RUN THIS PROGRAM|
00001800: 20 21 22 00 0E 1C A7 03 9E 55 55 AA 37 31 00 14 | !"......UU.71..|
00001810: 1C A8 03 80 00 2E 1C A9 03 99 22 93 05 22 3A 8B |.........."..":.|
00001820: C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 5D |.(50003).0.962.]|
00001830: 1C AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E |.... ** BASIC 2.|
00001840: 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 |0 OR 4.0 OR |
00001850: 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 9B 1C |C-64 SETUP **...|
00001860: AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 |...1075,133:.107|
00001870: 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A |6,144:.1077,234:|
00001880: 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 |.1079,4:.1080,13|
00001890: 33 3A 97 31 30 38 31 2C 31 34 35 00 D1 1C AE 03 |3:.1081,145.....|
000018A0: 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C |.1091,155:.1098,|
000018B0: 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 |133:.1099,144:.1|
000018C0: 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 |100,234:.1103,13|
000018D0: 33 00 F3 1C AF 03 97 31 31 30 34 2C 31 34 35 3A |3......1104,145:|
000018E0: 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C |.1105,234:.1082,|
000018F0: 32 33 34 00 0A 1D B1 03 8B C2 28 35 30 30 30 33 |234.......(50003|
00001900: 29 B3 B1 31 36 30 A7 39 35 35 00 39 1D B6 03 97 |)..160.955.9....|
00001910: 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 |1093,88:.1094,22|
00001920: 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 |8:.1097,85:.1102|
00001930: 2C 32 32 38 3A 89 39 36 35 00 4E 1D BB 03 8B C2 |,228:.965.N.....|
00001940: 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 7D |(50003)..1.990.}|
00001950: 1D C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 |....1093,49:.109|
00001960: 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 |4,230:.1097,46:.|
00001970: 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 B7 1D |1102,230:.965...|
00001980: C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 |...2099,141:.210|
00001990: 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 |0,20:.2101,3:.21|
000019A0: 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 |03,8:.2104,141:.|
000019B0: 32 31 30 35 2C 32 31 00 F3 1D C3 03 97 32 31 30 |2105,21......210|
000019C0: 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 |6,3:.2115,145:.2|
000019D0: 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 |117,52:.2118,234|
000019E0: 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C |:.2121,49:.2122,|
000019F0: 31 34 31 00 2D 1E C4 03 97 32 31 32 33 2C 32 30 |141.-....2123,20|
00001A00: 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 |:.2124,3:.2126,2|
00001A10: 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 |34:.2127,141:.21|
00001A20: 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 4B 1E |28,21:.2129,3.K.|
00001A30: C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 |...UU.48:. DISAB|
00001A40: 4C 45 20 53 54 4F 50 20 4B 45 59 00 5C 1E CA 03 |LE STOP KEY.\...|
00001A50: 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 6C 1E D4 |.800:. TITLE.l..|
00001A60: 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 9D 1E DE |..300:. MENU....|
00001A70: 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C |..".THE PGM WILL|
00001A80: 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 | NOT WORK ON THI|
00001A90: 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 D2 1E |S MACHINE!":....|
00001AA0: E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 |...UZ.1..UP%:.UP|
00001AB0: 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 |%:UZ.0:. ** PROG|
00001AC0: 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 |RAM STARTS HERE |
00001AD0: 2A 2A 00 FE 1E E9 03 99 22 93 05 22 3B 3A 8C 3A |**......"..";:.:|
00001AE0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00001AF0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 21 |81,6:.53280,14.!|
00001B00: 1F F2 03 8F 20 20 20 20 42 59 3A 4C 4F 47 49 43 |.... BY:LOGIC|
00001B10: 53 20 4F 4E 45 20 43 4F 4E 53 55 4C 54 41 4E 54 |S ONE CONSULTANT|
00001B20: 53 00 44 1F FC 03 8F 20 20 20 20 50 2E 4F 2E 42 |S.D.... P.O.B|
00001B30: 4F 58 20 34 31 2C 55 54 49 43 41 2C 4D 49 2E 34 |OX 41,UTICA,MI.4|
00001B40: 38 30 38 37 00 69 1F 06 04 8F 20 2A 2A 2A 2A 2A |8087.i.... *****|
00001B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8D 1F 10 04 8F 20 |*********...... |
00001B70: 20 43 4F 4E 54 52 49 42 55 54 45 44 20 54 4F 20 | CONTRIBUTED TO |
00001B80: 50 55 42 4C 49 43 20 44 4F 4D 41 49 4E 00 B1 1F |PUBLIC DOMAIN...|
00001B90: 1A 04 8F 20 20 42 59 20 41 55 54 48 4F 52 3A 20 |... BY AUTHOR: |
00001BA0: 47 2E 4D 2E 57 41 4C 54 45 52 53 20 31 30 2D 37 |G.M.WALTERS 10-7|
00001BB0: 39 00 D6 1F 24 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |9...$.. ********|
00001BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BD0: 2A 2A 2A 2A 2A 2A 00 E0 1F 2E 04 89 31 32 36 30 |******......1260|
00001BE0: 00 03 20 38 04 99 22 13 11 11 20 20 20 20 20 20 |.. 8.."... |
00001BF0: 20 20 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 | .............|
00001C00: A4 A4 A4 00 24 20 42 04 99 22 20 20 20 20 20 20 |....$ B.." |
00001C10: 20 20 A7 CD 20 20 20 20 20 20 20 20 20 20 20 20 | .. |
00001C20: 20 20 20 CD 00 46 20 4C 04 99 22 20 20 20 20 20 | ..F L.." |
00001C30: 20 20 20 A7 A7 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 | .............|
00001C40: A3 A3 A3 A3 A3 A5 00 68 20 56 04 99 22 20 20 20 |.......h V.." |
00001C50: 20 20 20 20 20 A7 A7 20 24 43 48 41 4E 47 45 20 | .. $CHANGE |
00001C60: 4D 41 4B 45 52 21 20 A5 00 8A 20 60 04 99 22 20 |MAKER! ... `.." |
00001C70: 20 20 20 20 20 20 20 A7 A7 A4 A4 A4 A4 A4 A4 A4 | .........|
00001C80: A4 A4 A4 A4 A4 A4 A4 A4 A4 A5 00 AC 20 6A 04 99 |............ j..|
00001C90: 22 20 20 20 20 20 20 20 20 A7 20 CD 20 20 20 20 |" . . |
00001CA0: 20 20 20 20 20 20 20 20 20 20 20 CD 00 CF 20 74 | ... t|
00001CB0: 04 99 22 20 20 20 20 20 20 20 20 A7 20 20 CD 20 |.." . . |
00001CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 CD 00 | ..|
00001CD0: F3 20 7E 04 99 22 20 20 20 20 20 20 20 20 A7 20 |. ~.." . |
00001CE0: 20 20 A5 20 D1 20 D1 20 D1 20 D1 20 D1 20 D7 D7 | . . . . . . ..|
00001CF0: 20 20 A5 00 17 21 88 04 99 22 20 20 20 20 20 20 | ...!..." |
00001D00: 20 20 A7 20 20 20 D4 20 D1 20 D1 20 D1 20 D1 20 | . . . . . . |
00001D10: D1 20 D7 D7 20 20 D4 00 3B 21 92 04 99 22 20 20 |. .. ..;!..." |
00001D20: 20 20 20 20 20 20 A7 20 20 20 C7 20 D1 20 D1 20 | . . . . |
00001D30: D1 20 D1 20 D1 20 D7 D7 20 20 C7 00 5F 21 9C 04 |. . . .. .._!..|
00001D40: 99 22 20 20 20 20 20 20 20 20 A7 20 20 20 C2 20 |." . . |
00001D50: D1 20 D1 20 D1 20 D1 20 D1 20 D7 D7 20 20 C2 00 |. . . . . .. ..|
00001D60: 83 21 A6 04 99 22 20 20 20 20 20 20 20 20 A7 20 |.!..." . |
00001D70: 20 20 DD A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 | ..............|
00001D80: A8 A8 DD 00 A8 21 B0 04 99 22 20 20 20 20 20 20 |.....!..." |
00001D90: 20 20 20 CD 20 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 | . ..........|
00001DA0: A4 A4 A4 A4 A4 A4 A4 A5 00 CD 21 BA 04 99 22 20 |..........!..." |
00001DB0: 20 20 20 20 20 20 20 20 20 CD D9 CD 20 CD 20 CD | ... . .|
00001DC0: 20 CD 20 CD 20 CD 20 CD 20 CD 20 20 CD 00 F2 21 | . . . . . ...!|
00001DD0: C4 04 99 22 20 20 20 20 20 20 20 20 20 20 20 CD |..." .|
00001DE0: 20 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 | ...............|
00001DF0: A6 A6 00 17 22 CE 04 99 22 20 20 20 20 20 20 20 |...."..." |
00001E00: 20 20 20 20 20 CD A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 | ...........|
00001E10: A6 A6 A6 A6 A6 A6 A6 00 3C 22 D8 04 99 22 20 20 |........<"..." |
00001E20: 20 20 20 20 20 20 20 20 20 20 20 A3 A3 A3 A3 A3 | .....|
00001E30: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 77 22 E2 |.............w".|
00001E40: 04 81 58 B2 31 A4 34 3A 99 22 20 20 20 20 20 20 |..X.1.4:." |
00001E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E70: 20 22 3A 82 58 3A 8E 00 8E 22 EC 04 8F 20 53 54 | ":.X:..."... ST|
00001E80: 41 52 54 20 4F 46 20 50 52 4F 47 52 41 4D 00 AE |ART OF PROGRAM..|
00001E90: 22 F6 04 9C 3A 8D 39 30 30 3A 43 B2 2E 30 30 30 |"...:.900:C..000|
00001EA0: 30 30 30 30 31 3A 54 B2 30 2E 30 30 30 30 00 C2 |00001:T.0.0000..|
00001EB0: 22 00 05 55 48 B2 31 3A 8D 38 35 30 3A 8D 31 30 |"..UH.1:.850:.10|
00001EC0: 38 30 00 E0 22 BE 05 8F 20 43 4C 4F 53 45 20 54 |80.."... CLOSE T|
00001ED0: 48 45 20 43 41 53 48 20 44 52 41 57 45 52 2A 2A |HE CASH DRAWER**|
00001EE0: 00 0C 23 C8 05 8D 38 33 35 3A 99 22 13 11 11 11 |..#...835:."....|
00001EF0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 |.............. |
00001F00: 20 20 30 30 30 30 2E 30 30 20 20 22 00 3B 23 DC | 0000.00 ".;#.|
00001F10: 05 99 22 20 54 4F 20 45 4E 44 1D 1D 1D 1D 1D 1D |.." TO END......|
00001F20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001F30: 1D 54 4F 20 52 45 4D 4F 56 45 22 00 6A 23 E6 05 |.TO REMOVE".j#..|
00001F40: 99 22 20 42 55 59 49 4E 47 1D 1D 1D 1D 1D 1D 1D |." BUYING.......|
00001F50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001F60: 4C 41 53 54 20 49 54 45 4D 22 00 9B 23 F0 05 99 |LAST ITEM"..#...|
00001F70: 22 20 54 59 50 45 3A 1D 1D 1D 1D 1D 1D 1D 1D 1D |" TYPE:.........|
00001F80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 54 |...............T|
00001F90: 59 50 45 3A 12 56 4F 49 44 92 22 00 AF 23 FA 05 |YPE:.VOID."..#..|
00001FA0: 99 22 20 12 44 4F 4E 45 92 91 91 91 91 91 22 00 |." .DONE......".|
00001FB0: E3 23 04 06 99 22 11 11 11 11 11 11 11 11 11 11 |.#..."..........|
00001FC0: 20 20 20 20 20 20 20 20 20 20 CD 20 A6 A6 A6 A6 | . ....|
00001FD0: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 20 20 20 |............. |
00001FE0: 20 20 22 00 10 24 0E 06 99 22 20 20 20 20 20 20 | "..$..." |
00001FF0: 20 20 20 20 20 CD A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 | ...........|
00002000: A6 A6 A6 A6 A6 A6 A6 20 20 20 20 20 20 20 20 22 |....... "|
00002010: 00 3D 24 18 06 99 22 20 20 20 20 20 20 20 20 20 |.=$..." |
00002020: 20 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 | .............|
00002030: A3 A3 A3 A3 20 20 20 20 20 20 20 20 22 00 6B 24 |.... ".k$|
00002040: 22 06 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |".." |
00002050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002060: 20 20 20 20 20 20 20 20 20 20 22 00 89 24 2C 06 | "..$,.|
00002070: 4A 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |J$."............|
00002080: 11 11 11 11 11 11 11 11 22 00 BA 24 36 06 99 4A |........"..$6..J|
00002090: 24 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |$" |
000020A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020B0: 20 20 20 20 20 20 20 20 20 22 00 EF 24 3B 06 99 | "..$;..|
000020C0: C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C |.(UD$,24);.(UP$,|
000020D0: 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 |7);"HELP - PRESS|
000020E0: 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 20 22 00 | H <RETURN> ".|
000020F0: 07 25 40 06 99 4A 24 3B 22 20 49 54 45 4D 20 4E |.%@..J$;" ITEM N|
00002100: 41 4D 45 3A 20 22 3B 00 1C 25 4A 06 55 53 24 B2 |AME: ";..%J.US$.|
00002110: 22 22 3A 55 4C B2 31 31 3A 8D 33 35 00 31 25 54 |"":UL.11:.35.1%T|
00002120: 06 8B 55 52 24 B2 22 44 4F 4E 45 22 A7 31 39 38 |..UR$."DONE".198|
00002130: 30 00 4D 25 5E 06 8B 55 52 24 B2 22 56 4F 49 44 |0.M%^..UR$."VOID|
00002140: 22 A7 54 B2 54 AB 43 3A 89 31 38 39 30 00 81 25 |".T.T.C:.1890..%|
00002150: 72 06 99 4A 24 3B 22 11 11 20 20 20 20 20 20 20 |r..J$;".. |
00002160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002180: 22 00 B6 25 7C 06 99 C8 28 55 44 24 2C 32 34 29 |"..%|...(UD$,24)|
00002190: 3B C8 28 55 50 24 2C 37 29 3B 22 20 20 20 20 20 |;.(UP$,7);" |
000021A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000021B0: 20 20 20 20 20 22 00 E3 25 86 06 99 4A 24 3B 22 | "..%...J$;"|
000021C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000021D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 52 49 43 45 3A 20 |.........PRICE: |
000021E0: 24 22 3B 00 14 26 90 06 55 53 24 B2 22 2E 30 31 |$";..&..US$.".01|
000021F0: 32 33 34 35 36 37 38 39 48 22 3A 55 4C B2 36 3A |23456789H":UL.6:|
00002200: 8D 33 30 30 30 3A 50 24 B2 55 52 24 3A 43 B2 C5 |.3000:P$.UR$:C..|
00002210: 28 50 24 29 00 42 26 D6 06 81 58 B2 31 A4 C3 28 |(P$).B&...X.1..(|
00002220: 50 24 29 3A 8B CA 28 50 24 2C 58 2C 31 29 B2 22 |P$):..(P$,X,1)."|
00002230: 2E 22 A7 50 50 B2 58 3A 50 45 B2 C3 28 50 24 29 |.".PP.X:PE..(P$)|
00002240: AB 58 00 49 26 E0 06 82 58 00 71 26 F4 06 99 22 |.X.I&...X.q&..."|
00002250: 13 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002260: 1D 1D 20 20 20 20 20 20 20 2E 30 30 20 20 20 20 |.. .00 |
00002270: 22 00 83 26 FE 06 8B B5 28 43 29 B3 B1 43 A7 31 |"..&....(C)..C.1|
00002280: 38 30 30 00 B8 26 03 07 43 24 B2 C4 28 43 29 3A |800..&..C$..(C):|
00002290: 99 22 13 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000022A0: 1D 1D 1D 1D 22 3B A6 37 AB C3 28 43 24 29 29 3B |....";.7..(C$));|
000022B0: 43 24 3A 89 31 38 34 30 00 DB 26 08 07 43 24 B2 |C$:.1840..&..C$.|
000022C0: C4 28 43 29 3A 99 22 13 11 11 11 11 11 1D 1D 1D |.(C):.".........|
000022D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 F9 26 12 07 |.........";..&..|
000022E0: 8B 50 45 B2 30 A7 99 A6 31 30 AB C3 28 43 24 29 |.PE.0...10..(C$)|
000022F0: 29 3B 43 24 3B 22 1D 1D 22 00 1B 27 1C 07 8B 50 |);C$;".."..'...P|
00002300: 45 B2 31 A7 99 A6 38 AB 28 C3 28 43 24 29 AB 50 |E.1...8.(.(C$).P|
00002310: 45 29 29 3B 43 24 3B 22 1D 1D 22 00 3D 27 26 07 |E));C$;"..".='&.|
00002320: 8B 50 45 B1 31 A7 99 A6 38 AB 28 C3 28 43 24 29 |.PE.1...8.(.(C$)|
00002330: AB 50 45 29 29 3B 43 24 3B 22 1D 1D 22 00 47 27 |.PE));C$;"..".G'|
00002340: 30 07 54 B2 54 AA 43 00 59 27 3A 07 8B 54 B3 31 |0.T.T.C.Y':..T.1|
00002350: 30 30 30 30 A7 31 38 38 30 00 8B 27 3F 07 99 4A |0000.1880..'?..J|
00002360: 24 3B 22 20 20 54 48 49 53 20 53 54 4F 52 45 20 |$;" THIS STORE |
00002370: 41 4C 4C 4F 57 53 20 4E 4F 20 4D 4F 52 45 20 50 |ALLOWS NO MORE P|
00002380: 55 52 43 48 41 53 45 53 20 20 22 00 BA 27 44 07 |URCHASES "..'D.|
00002390: 99 22 20 20 20 20 44 55 45 20 54 4F 20 59 4F 55 |." DUE TO YOU|
000023A0: 52 20 50 4F 4F 52 20 43 52 45 44 49 54 20 52 41 |R POOR CREDIT RA|
000023B0: 54 49 4E 47 21 20 20 20 20 22 00 CA 27 4E 07 81 |TING! "..'N..|
000023C0: 58 B2 31 A4 31 38 30 30 3A 82 00 FC 27 50 07 99 |X.1.1800:...'P..|
000023D0: 4A 24 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |J$;" |
000023E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000023F0: 20 20 20 20 20 20 20 20 20 20 20 22 00 31 28 52 | ".1(R|
00002400: 07 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00002410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002420: 20 20 20 20 20 20 20 20 20 20 22 3A 89 31 39 38 | ":.198|
00002430: 30 00 41 28 58 07 81 58 B2 31 A4 38 30 30 3A 82 |0.A(X..X.1.800:.|
00002440: 58 00 69 28 62 07 99 22 13 11 11 11 11 11 1D 1D |X.i(b.."........|
00002450: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 20 20 |.......... |
00002460: 20 2E 30 30 20 20 20 20 22 00 7B 28 6C 07 8B B5 | .00 ".{(l...|
00002470: 28 54 29 B3 B1 54 A7 31 39 31 30 00 B0 28 71 07 |(T)..T.1910..(q.|
00002480: 54 24 B2 C4 28 54 29 3A 99 22 13 11 11 11 11 11 |T$..(T):."......|
00002490: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B A6 37 |............";.7|
000024A0: AB C3 28 54 24 29 29 3B 54 24 3A 89 31 39 37 30 |..(T$));T$:.1970|
000024B0: 00 EE 28 76 07 54 31 B2 54 AC 31 30 30 3A 54 32 |..(v.T1.T.100:T2|
000024C0: B2 B5 28 54 31 29 3A 54 B2 54 32 AD 31 30 30 3A |..(T1):T.T2.100:|
000024D0: 54 24 B2 C4 28 54 29 3A 99 22 13 11 11 11 11 11 |T$..(T):."......|
000024E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 1C |............";..|
000024F0: 29 80 07 81 58 B2 31 A4 C3 28 54 24 29 3A 8B CA |)...X.1..(T$):..|
00002500: 28 54 24 2C 58 2C 31 29 B2 22 2E 22 A7 50 50 B2 |(T$,X,1).".".PP.|
00002510: 58 3A 50 45 B2 C3 28 54 24 29 AB 58 00 23 29 8A |X:PE..(T$).X.#).|
00002520: 07 82 58 00 41 29 94 07 8B 50 45 B2 30 A7 99 A6 |..X.A)...PE.0...|
00002530: 31 30 AB C3 28 54 24 29 29 3B 54 24 3B 22 1D 1D |10..(T$));T$;"..|
00002540: 22 00 63 29 9E 07 8B 50 45 B2 31 A7 99 A6 38 AB |".c)...PE.1...8.|
00002550: 28 C3 28 54 24 29 AB 50 45 29 29 3B 54 24 3B 22 |(.(T$).PE));T$;"|
00002560: 1D 1D 22 00 85 29 A8 07 8B 50 45 B1 31 A7 99 A6 |.."..)...PE.1...|
00002570: 38 AB 28 C3 28 54 24 29 AB 50 45 29 29 3B 54 24 |8.(.(T$).PE));T$|
00002580: 3B 22 1D 1D 22 00 8F 29 B2 07 89 31 35 38 30 00 |;".."..)...1580.|
00002590: A8 29 BC 07 8F 20 54 41 58 20 53 45 43 54 49 4F |.)... TAX SECTIO|
000025A0: 4E 2A 2A 2A 2A 2A 2A 2A 00 CE 29 C6 07 46 B2 B5 |N*******..)..F..|
000025B0: 28 28 54 AC 2E 30 37 AC 31 30 30 29 AA 2E 35 29 |((T..07.100)..5)|
000025C0: AD 31 30 30 3A 8F 20 46 20 3D 20 54 41 58 00 DB |.100:. F = TAX..|
000025D0: 29 D0 07 46 B2 46 AA 2E 30 30 31 00 FE 29 DA 07 |)..F.F..001..)..|
000025E0: 55 B2 46 AA 54 3A 8F 20 55 20 3D 20 54 4F 54 41 |U.F.T:. U = TOTA|
000025F0: 4C 20 4F 46 20 41 4C 4C 20 47 4F 4F 44 53 00 0E |L OF ALL GOODS..|
00002600: 2A E4 07 81 58 B2 31 A4 38 30 30 3A 82 58 00 36 |*...X.1.800:.X.6|
00002610: 2A EE 07 99 22 13 11 11 11 11 11 1D 1D 1D 1D 1D |*..."...........|
00002620: 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 20 20 20 2E 30 |....... .0|
00002630: 30 20 54 41 58 22 00 48 2A F8 07 8B B5 28 46 29 |0 TAX".H*....(F)|
00002640: B3 B1 46 A7 32 30 35 30 00 7D 2A FD 07 46 24 B2 |..F.2050.}*..F$.|
00002650: C4 28 46 29 3A 99 22 53 51 51 11 11 11 1D 1D 1D |.(F):."SQQ......|
00002660: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B A6 37 AB C3 28 |.........";.7..(|
00002670: 46 24 29 29 3B 46 24 3A 89 32 30 38 30 00 BB 2A |F$));F$:.2080..*|
00002680: 02 08 46 31 B2 46 AC 31 30 30 3A 46 32 B2 B5 28 |..F1.F.100:F2..(|
00002690: 46 31 29 3A 46 B2 46 32 AD 31 30 30 3A 46 24 B2 |F1):F.F2.100:F$.|
000026A0: C4 28 46 29 3A 99 22 13 11 11 11 11 11 1D 1D 1D |.(F):.".........|
000026B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 E9 2A 0C 08 |.........";..*..|
000026C0: 8B 46 AC 31 30 B2 B5 28 46 AC 31 30 29 A7 99 A6 |.F.10..(F.10)...|
000026D0: 39 AB C3 28 46 24 29 29 3B 46 24 3B 22 1D 1D 54 |9..(F$));F$;"..T|
000026E0: 41 58 22 3A 89 32 30 38 30 00 03 2B 16 08 99 A6 |AX":.2080..+....|
000026F0: 31 30 AB C3 28 46 24 29 29 3B 46 24 3B 22 1D 54 |10..(F$));F$;".T|
00002700: 41 58 22 00 13 2B 20 08 81 58 B2 31 A4 38 30 30 |AX"..+ ..X.1.800|
00002710: 3A 82 58 00 3B 2B 2A 08 99 22 13 11 11 11 11 11 |:.X.;+*.."......|
00002720: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 |............ |
00002730: 20 20 20 2E 30 30 20 54 4F 54 22 00 54 2B 34 08 | .00 TOT".T+4.|
00002740: 8B 55 B2 30 A7 55 24 B2 22 30 2E 30 30 22 3A 89 |.U.0.U$."0.00":.|
00002750: 32 31 31 30 00 93 2B 39 08 55 31 B2 55 AC 31 30 |2110..+9.U1.U.10|
00002760: 30 3A 55 32 B2 B5 28 55 31 29 3A 55 B2 55 32 AD |0:U2..(U1):U.U2.|
00002770: 31 30 30 3A 55 24 B2 C4 28 55 AA 2E 30 30 31 29 |100:U$..(U..001)|
00002780: 3A 55 24 B2 CA 28 55 24 2C 32 2C C3 28 55 24 29 |:U$..(U$,2,.(U$)|
00002790: AB 32 29 00 AE 2B 3B 08 8B C8 28 55 24 2C 31 29 |.2)..+;...(U$,1)|
000027A0: B2 22 2E 22 A7 55 24 B2 22 30 22 AA 55 24 00 C9 |.".".U$."0".U$..|
000027B0: 2B 3E 08 99 22 13 11 11 11 11 11 1D 1D 1D 1D 1D |+>.."...........|
000027C0: 1D 1D 1D 1D 1D 1D 1D 22 3B 00 F7 2B 48 08 8B 55 |.......";..+H..U|
000027D0: AC 31 30 B2 B5 28 55 AC 31 30 29 A7 99 A6 39 AB |.10..(U.10)...9.|
000027E0: C3 28 55 24 29 29 3B 55 24 3B 22 1D 1D 54 4F 54 |.(U$));U$;"..TOT|
000027F0: 22 3A 89 32 31 34 30 00 11 2C 52 08 99 A6 31 30 |":.2140..,R...10|
00002800: AB C3 28 55 24 29 29 3B 55 24 3B 22 1D 54 4F 54 |..(U$));U$;".TOT|
00002810: 22 00 3E 2C 5C 08 99 4A 24 3B 22 20 54 4F 54 41 |".>,\..J$;" TOTA|
00002820: 4C 20 4F 46 20 41 4C 4C 20 47 4F 4F 44 53 20 26 |L OF ALL GOODS &|
00002830: 20 54 41 58 20 49 53 3A 20 24 22 3B 55 24 00 72 | TAX IS: $";U$.r|
00002840: 2C 66 08 99 4A 24 3B 22 11 20 41 4D 4F 55 4E 54 |,f..J$;". AMOUNT|
00002850: 20 54 45 4E 44 45 52 45 44 3A 20 24 20 20 20 20 | TENDERED: $ |
00002860: 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | ..........|
00002870: 22 3B 00 99 2C 70 08 55 53 24 B2 22 48 2E 30 31 |";..,p.US$."H.01|
00002880: 32 33 34 35 36 37 38 39 22 3A 55 4C B2 36 3A 8D |23456789":UL.6:.|
00002890: 33 35 3A 4F 24 B2 55 52 24 00 AB 2C 84 08 49 24 |35:O$.UR$..,..I$|
000028A0: B2 22 30 30 30 30 30 30 30 30 22 00 DE 2C 8E 08 |."00000000"..,..|
000028B0: 81 58 B2 31 A4 C3 28 4F 24 29 3A 8B CA 28 4F 24 |.X.1..(O$):..(O$|
000028C0: 2C 58 2C 31 29 B2 22 24 22 A7 49 24 B2 CA 28 4F |,X,1)."$".I$..(O|
000028D0: 24 2C 58 AA 31 2C C3 28 4F 24 29 AB 58 29 00 E5 |$,X.1,.(O$).X)..|
000028E0: 2C 98 08 82 58 00 06 2D A2 08 8B 49 24 B2 22 30 |,...X..-...I$."0|
000028F0: 30 30 30 30 30 30 30 22 A7 4F B2 C5 28 4F 24 29 |0000000".O..(O$)|
00002900: 3A 89 32 32 33 30 00 12 2D AC 08 4F B2 C5 28 49 |:.2230..-..O..(I|
00002910: 24 29 00 1E 2D B6 08 4F 24 B2 C4 28 4F 29 00 2C |$)..-..O$..(O).,|
00002920: 2D C0 08 8B 4F B3 55 A7 32 31 35 30 00 44 2D CA |-...O.U.2150.D-.|
00002930: 08 8F 20 43 48 41 4E 47 45 20 53 45 43 54 49 4F |.. CHANGE SECTIO|
00002940: 4E 2A 2A 2A 00 6E 2D D4 08 8B 4F B2 55 A7 99 4A |N***.n-...O.U..J|
00002950: 24 3B A3 31 35 29 22 11 11 54 48 41 4E 4B 20 59 |$;.15)"..THANK Y|
00002960: 4F 55 2E 22 3A 8D 38 33 35 3A 89 33 30 30 00 8D |OU.":.835:.300..|
00002970: 2D 06 09 43 48 B2 B5 28 28 4F AB 55 29 AC 31 30 |-..CH..((O.U).10|
00002980: 30 29 3A 20 8F 20 50 45 4E 4E 49 45 53 00 98 2D |0): . PENNIES..-|
00002990: 10 09 4B 48 B2 4F AB 55 00 CA 2D 1A 09 8B 43 48 |..KH.O.U..-...CH|
000029A0: B2 B1 31 30 30 30 30 30 A7 4B 31 B2 B5 28 43 48 |..100000.K1..(CH|
000029B0: AD 31 30 30 30 30 30 29 3A 43 48 B2 43 48 AB 28 |.100000):CH.CH.(|
000029C0: 4B 31 AC 31 30 30 30 30 30 29 00 F9 2D 24 09 8B |K1.100000)..-$..|
000029D0: 43 48 B2 B1 31 30 30 30 30 A7 4B 32 B2 B5 28 43 |CH..10000.K2..(C|
000029E0: 48 AD 31 30 30 30 30 29 3A 43 48 B2 43 48 AB 28 |H.10000):CH.CH.(|
000029F0: 4B 32 AC 31 30 30 30 30 29 00 25 2E 2E 09 8B 43 |K2.10000).%....C|
00002A00: 48 B2 B1 35 30 30 30 A7 4B 33 B2 B5 28 43 48 AD |H..5000.K3..(CH.|
00002A10: 35 30 30 30 29 3A 43 48 B2 43 48 AB 28 4B 33 AC |5000):CH.CH.(K3.|
00002A20: 35 30 30 30 29 00 51 2E 38 09 8B 43 48 B2 B1 31 |5000).Q.8..CH..1|
00002A30: 30 30 30 A7 4B 34 B2 B5 28 43 48 AD 31 30 30 30 |000.K4..(CH.1000|
00002A40: 29 3A 43 48 B2 43 48 AB 28 4B 34 AC 31 30 30 30 |):CH.CH.(K4.1000|
00002A50: 29 00 7A 2E 42 09 8B 43 48 B2 B1 35 30 30 A7 4B |).z.B..CH..500.K|
00002A60: 35 B2 B5 28 43 48 AD 35 30 30 29 3A 43 48 B2 43 |5..(CH.500):CH.C|
00002A70: 48 AB 28 4B 35 AC 35 30 30 29 00 A3 2E 4C 09 8B |H.(K5.500)...L..|
00002A80: 43 48 B2 B1 31 30 30 A7 4B 36 B2 B5 28 43 48 AD |CH..100.K6..(CH.|
00002A90: 31 30 30 29 3A 43 48 B2 43 48 AB 28 4B 36 AC 31 |100):CH.CH.(K6.1|
00002AA0: 30 30 29 00 C9 2E 56 09 8B 43 48 B2 B1 35 30 A7 |00)...V..CH..50.|
00002AB0: 4B 37 B2 B5 28 43 48 AD 35 30 29 3A 43 48 B2 43 |K7..(CH.50):CH.C|
00002AC0: 48 AB 28 4B 37 AC 35 30 29 00 EF 2E 60 09 8B 43 |H.(K7.50)...`..C|
00002AD0: 48 B2 B1 32 35 A7 4B 38 B2 B5 28 43 48 AD 32 35 |H..25.K8..(CH.25|
00002AE0: 29 3A 43 48 B2 43 48 AB 28 4B 38 AC 32 35 29 00 |):CH.CH.(K8.25).|
00002AF0: 15 2F 6A 09 8B 43 48 B2 B1 31 30 A7 4B 39 B2 B5 |./j..CH..10.K9..|
00002B00: 28 43 48 AD 31 30 29 3A 43 48 B2 43 48 AB 28 4B |(CH.10):CH.CH.(K|
00002B10: 39 AC 31 30 29 00 38 2F 74 09 8B 43 48 B2 B1 35 |9.10).8/t..CH..5|
00002B20: A7 4B 30 B2 B5 28 43 48 AD 35 29 3A 43 48 B2 43 |.K0..(CH.5):CH.C|
00002B30: 48 AB 28 4B 30 AC 35 29 00 69 2F 7E 09 55 48 B2 |H.(K0.5).i/~.UH.|
00002B40: 31 3A 8D 38 35 30 3A 99 A3 37 29 22 11 11 41 4D |1:.850:..7)"..AM|
00002B50: 4F 55 4E 54 20 54 45 4E 44 45 52 45 44 3A 20 24 |OUNT TENDERED: $|
00002B60: 22 3B CA 28 4F 24 2C 32 29 00 89 2F 88 09 99 A3 |";.(O$,2)../....|
00002B70: 37 29 22 54 4F 54 41 4C 20 50 55 52 43 48 41 53 |7)"TOTAL PURCHAS|
00002B80: 45 53 3A 20 24 22 3B 55 24 00 A5 2F 92 09 99 A3 |ES: $";U$../....|
00002B90: 37 29 22 11 59 4F 55 52 20 43 48 41 4E 47 45 20 |7)".YOUR CHANGE |
00002BA0: 49 53 3A 11 22 00 B4 2F 9C 09 8B 4B 31 B2 30 A7 |IS:."../...K1.0.|
00002BB0: 32 34 38 30 00 D9 2F A6 09 99 A3 38 AB C3 28 C4 |2480../....8..(.|
00002BC0: 28 4B 31 29 29 29 3B 4B 31 22 12 24 31 30 30 30 |(K1)));K1".$1000|
00002BD0: 20 42 49 4C 4C 20 20 92 22 00 E8 2F B0 09 8B 4B | BILL ."../...K|
00002BE0: 32 B2 30 A7 32 35 30 30 00 04 30 BA 09 99 A3 36 |2.0.2500..0....6|
00002BF0: 29 3B 4B 32 22 12 24 31 30 30 20 20 42 49 4C 4C |);K2".$100 BILL|
00002C00: 20 20 92 22 00 13 30 C4 09 8B 4B 33 B2 30 A7 32 | ."..0...K3.0.2|
00002C10: 35 32 30 00 2F 30 CE 09 99 A3 36 29 3B 4B 33 22 |520./0....6);K3"|
00002C20: 12 24 35 30 20 20 20 42 49 4C 4C 20 20 92 22 00 |.$50 BILL .".|
00002C30: 3E 30 D8 09 8B 4B 34 B2 30 A7 32 35 34 30 00 5A |>0...K4.0.2540.Z|
00002C40: 30 E2 09 99 A3 36 29 3B 4B 34 22 12 24 31 30 20 |0....6);K4".$10 |
00002C50: 20 20 42 49 4C 4C 20 20 92 22 00 69 30 EC 09 8B | BILL .".i0...|
00002C60: 4B 35 B2 30 A7 32 35 36 30 00 85 30 F6 09 99 A3 |K5.0.2560..0....|
00002C70: 36 29 3B 4B 35 22 12 24 35 20 20 20 20 42 49 4C |6);K5".$5 BIL|
00002C80: 4C 20 20 92 22 00 94 30 00 0A 8B 4B 36 B2 30 A7 |L ."..0...K6.0.|
00002C90: 32 35 38 30 00 B0 30 0A 0A 99 A3 36 29 3B 4B 36 |2580..0....6);K6|
00002CA0: 22 12 24 31 20 20 20 20 42 49 4C 4C 20 20 92 22 |".$1 BILL ."|
00002CB0: 00 BF 30 14 0A 8B 4B 37 B2 30 A7 32 36 30 30 00 |..0...K7.0.2600.|
00002CC0: DB 30 1E 0A 99 A3 36 29 3B 4B 37 22 12 35 30 20 |.0....6);K7".50 |
00002CD0: 43 45 4E 54 20 43 4F 49 4E 92 22 00 EA 30 28 0A |CENT COIN."..0(.|
00002CE0: 8B 4B 38 B2 30 A7 32 36 32 30 00 06 31 32 0A 99 |.K8.0.2620..12..|
00002CF0: A3 36 29 3B 4B 38 22 12 32 35 20 43 45 4E 54 20 |.6);K8".25 CENT |
00002D00: 43 4F 49 4E 92 22 00 15 31 3C 0A 8B 4B 39 B2 30 |COIN."..1<..K9.0|
00002D10: A7 32 36 34 30 00 31 31 46 0A 99 A3 36 29 3B 4B |.2640.11F...6);K|
00002D20: 39 22 12 31 30 20 43 45 4E 54 20 43 4F 49 4E 92 |9".10 CENT COIN.|
00002D30: 22 00 40 31 50 0A 8B 4B 30 B2 30 A7 32 36 36 30 |".@1P..K0.0.2660|
00002D40: 00 5C 31 5A 0A 99 A3 36 29 3B 4B 30 22 12 20 35 |.\1Z...6);K0". 5|
00002D50: 20 43 45 4E 54 20 43 4F 49 4E 92 22 00 97 31 64 | CENT COIN."..1d|
00002D60: 0A 4B 41 B2 28 4B 39 AC 31 30 29 AA 28 4B 38 AC |.KA.(K9.10).(K8.|
00002D70: 32 35 29 AA 28 4B 37 AC 35 30 29 AA 28 4B 36 AC |25).(K7.50).(K6.|
00002D80: 31 30 30 29 AA 28 4B 35 AC 35 30 30 29 AA 28 4B |100).(K5.500).(K|
00002D90: 34 AC 31 30 30 30 29 00 C9 31 6E 0A 4B 41 B2 4B |4.1000)..1n.KA.K|
00002DA0: 41 AA 28 4B 33 AC 35 30 30 30 29 AA 28 4B 32 AC |A.(K3.5000).(K2.|
00002DB0: 31 30 30 30 30 29 AA 28 4B 31 AC 31 30 30 30 30 |10000).(K1.10000|
00002DC0: 30 29 AA 28 4B 30 AC 35 29 00 EC 31 78 0A 43 42 |0).(K0.5)..1x.CB|
00002DD0: B2 4B 48 AB 28 4B 41 AD 31 30 30 29 3A 43 42 B2 |.KH.(KA.100):CB.|
00002DE0: B5 28 43 42 AC 31 30 30 AA 2E 35 29 00 FB 31 82 |.(CB.100..5)..1.|
00002DF0: 0A 8B 43 42 B2 30 A7 32 37 33 30 00 23 32 8C 0A |..CB.0.2730.#2..|
00002E00: 8B 43 42 B3 30 A7 99 A3 37 29 22 11 12 52 45 47 |.CB.0...7)"..REG|
00002E10: 49 53 54 41 52 20 4D 41 4C 46 55 4E 43 54 49 4F |ISTAR MALFUNCTIO|
00002E20: 4E 92 22 00 3F 32 96 0A 99 A3 36 29 3B 43 42 22 |N.".?2....6);CB"|
00002E30: 12 20 31 20 43 45 4E 54 20 43 4F 49 4E 92 22 00 |. 1 CENT COIN.".|
00002E40: 45 32 A0 0A 8F 00 5D 32 AA 0A 4B 48 B2 B5 28 4B |E2....]2..KH..(K|
00002E50: 48 AC 31 30 30 AA 2E 35 29 AD 31 30 30 00 7D 32 |H.100..5).100.}2|
00002E60: B4 0A 99 A3 37 29 22 11 46 4F 52 20 41 20 54 4F |....7)".FOR A TO|
00002E70: 54 41 4C 20 4F 46 3A 20 24 22 3B 4B 48 00 8B 32 |TAL OF: $";KH..2|
00002E80: BE 0A 8D 38 33 35 3A 89 33 30 30 00 B0 32 DC 0A |...835:.300..2..|
00002E90: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00002EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002EB0: 00 D3 32 E6 0A 8F 20 20 20 20 42 59 3A 4C 4F 47 |..2... BY:LOG|
00002EC0: 49 43 53 20 4F 4E 45 20 43 4F 4E 53 55 4C 54 41 |ICS ONE CONSULTA|
00002ED0: 4E 54 53 00 F6 32 F0 0A 8F 20 20 20 20 50 2E 4F |NTS..2... P.O|
00002EE0: 2E 42 4F 58 20 34 31 20 55 54 49 43 41 2C 4D 49 |.BOX 41 UTICA,MI|
00002EF0: 2E 34 38 30 38 37 00 1B 33 FA 0A 8F 20 2A 2A 2A |.48087..3... ***|
00002F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 40 33 04 0B |***********.@3..|
00002F20: 8F 20 43 4F 4D 50 55 54 45 52 20 45 44 55 43 41 |. COMPUTER EDUCA|
00002F30: 54 49 4F 4E 20 43 4F 4E 53 55 4C 54 41 4E 54 53 |TION CONSULTANTS|
00002F40: 00 65 33 0E 0B 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.e3... *********|
00002F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002F60: 2A 2A 2A 2A 2A 00 89 33 18 0B 8F 20 20 43 4F 4E |*****..3... CON|
00002F70: 54 52 49 42 55 54 45 44 20 54 4F 20 50 55 42 4C |TRIBUTED TO PUBL|
00002F80: 49 43 20 44 4F 4D 41 49 4E 00 AD 33 22 0B 8F 20 |IC DOMAIN..3".. |
00002F90: 20 42 59 20 41 55 54 48 4F 52 3A 20 47 2E 4D 2E | BY AUTHOR: G.M.|
00002FA0: 57 41 4C 54 45 52 53 20 31 30 2D 37 39 00 D2 33 |WALTERS 10-79..3|
00002FB0: 2C 0B 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |,.. ************|
00002FC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002FD0: 2A 2A 00 EE 33 B8 0B 8F 20 2B 2B 2B 20 53 50 45 |**..3... +++ SPE|
00002FE0: 43 49 41 4C 20 49 4E 50 55 54 20 2B 2B 2B 00 1A |CIAL INPUT +++..|
00002FF0: 34 C2 0B 55 4C B2 33 3A 55 53 24 B2 22 30 31 32 |4..UL.3:US$."012|
00003000: 33 34 35 36 37 38 39 22 3A 97 55 4F 2C 30 3A 55 |3456789":.UO,0:U|
00003010: 52 24 B2 22 22 3A 46 4C B2 30 00 24 34 C7 0B 97 |R$."":FL.0.$4...|
00003020: 55 43 2C 30 00 3A 34 CC 0B A1 55 49 24 3A 8B 55 |UC,0.:4...UI$:.U|
00003030: 49 24 B2 22 22 A7 33 30 32 30 00 62 34 D6 0B 8B |I$."".3020.b4...|
00003040: 55 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 24 29 |UI$..(13)..(UR$)|
00003050: B1 B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B |..1..UC,1:." .";|
00003060: 3A 8E 00 77 34 E0 0B 8B 55 49 24 B3 B1 C7 28 32 |:..w4...UI$...(2|
00003070: 30 29 A7 33 30 38 30 00 8A 34 EA 0B 8B C3 28 55 |0).3080..4....(U|
00003080: 52 24 29 B3 31 A7 33 30 32 30 00 A6 34 EF 0B 8B |R$).1.3020..4...|
00003090: C9 28 55 52 24 2C 31 29 B2 22 2E 22 A7 46 4C B2 |.(UR$,1).".".FL.|
000030A0: 30 3A 55 4C B2 33 00 C5 34 F1 0B 8B C3 28 55 52 |0:UL.3..4....(UR|
000030B0: 24 29 B2 33 A7 55 53 24 B2 22 30 31 32 33 34 35 |$).3.US$."012345|
000030C0: 36 37 38 39 22 00 DD 34 F4 0B 55 52 24 B2 C8 28 |6789"..4..UR$..(|
000030D0: 55 52 24 2C C3 28 55 52 24 29 AB 31 29 00 F1 34 |UR$,.(UR$).1)..4|
000030E0: FE 0B 99 22 9D 20 20 9D 9D 22 3B 3A 89 33 30 32 |...". ..";:.302|
000030F0: 30 00 2B 35 08 0C 8B 55 49 24 B2 22 2E 22 AF 46 |0.+5...UI$.".".F|
00003100: 4C B2 30 A7 46 4C B2 31 3A 55 4C B2 C3 28 55 52 |L.0.FL.1:UL..(UR|
00003110: 24 29 AA 33 3A 55 53 24 B2 22 30 31 32 33 34 35 |$).3:US$."012345|
00003120: 36 37 38 39 22 3A 89 33 31 31 30 00 40 35 12 0C |6789":.3110.@5..|
00003130: 8B C3 28 55 52 24 29 B2 B1 55 4C A7 33 31 32 30 |..(UR$)..UL.3120|
00003140: 00 65 35 1C 0C 8D 31 32 30 3A 8F 20 43 48 45 43 |.e5...120:. CHEC|
00003150: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR|
00003160: 41 43 54 45 52 00 81 35 26 0C 55 52 24 B2 55 52 |ACTER..5&.UR$.UR|
00003170: 24 AA 55 49 24 3A 99 55 49 24 3B 3A 89 33 30 32 |$.UI$:.UI$;:.302|
00003180: 30 00 90 35 30 0C 8B 46 4C B2 31 A7 33 30 32 30 |0..50..FL.1.3020|
00003190: 00 A2 35 3A 0C 55 53 24 B2 22 2E 22 3A 89 33 30 |..5:.US$.".":.30|
000031A0: 32 30 00 00 00 |20... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.".-..UC,0.6.2..UI$:.UI$."".50.`.7..UI$.
G(13).C(UR$)..1..UC,1:." .";:.85.S.<..UI
$.G(20).105...>.. C(UR$)..UL.50...A..120
:. CHECK FOR VALID CHARACTER...F.UR$.UR$
.UI$.F.K..UI$;.N.P..50...U.. +++ CHECK F
OR HELP REQUEST +++...Z..UR$.UX$.195:. E
XIT TO HELP ROUTINE.*._..UF.1..240.7.D.U
F.0:.:..P.F.. ++ CHECK DELETE ++.A.I..C(
UR$).1.50.Y.N.UR$.H(UR$,C(UR$).1)...S.."
. ..";:.50...X.. ++ CHECK FOR VALID CHA
RACTERS ++.D.}..C(US$).0.150.U....US.1.C
(US$)......UI$.J(US$,US,1).............U
I$."":....... ** STANDARD INPUT **.+....
F(UI$).46...<....UI$.G(32)...Y. ..F(UI$)
.48.F(UI$).57.170._.....|....F(UI$).65.F
(UI$).90.180............F(UI$).193.F(UI$
).218.UI$."":..I....B(UT).UU%.UI$.G(F(UI
$).128):..O.........UI$."":....C.UF.1:.
+++ HELP ROUTINE EXIT +++...E..250...H..
245.2.M..UQ.UB.(U2%.256.U1%.U3%.2).N.R.U
Q%(UQ.UB).B(UQ):.:.".".A.W.UZ.1:UV%.B(UT
).J.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.U
J:UL.UK:.B(50003).0..53281,6:.53280,14..
...UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2%.256
.U1%.U3%.3)......UQ,UQ%(UQ.UB):.......U1
,U1%......U2,U2%......U4,U4%.*....U3,U3%
.1.2....35.D...UD%.((U2%.256.U1%.U3%).UB
).40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . ":..
K...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(
U4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK
.UL.........,.. ** MENU **...-.:.?....".
":.UT,UU%:.B(50003).0..53281,9:.53280,8.
E./.:.B.1..". MENU"...6..
" --------------------------------------
"...;..".. 1. BEGIN CHANGEMAKER"
...@..".. 2. STUDENT INSTRUCTION
S"...E..".. 3. TEACHER INSTRUCTI
ONS".(.O..".. 4. QUIT..".W.T.."
--------------------------------------".
..Y..".. PRESS A NUMBER KEY (1-4)
";...^.UL.1:US$."1234":.35:. INPUT ROUTI
NE...`.US$."".R.C..E(UR$).1000,400,500,3
96...H..300...... ** RE-ENABLE STOP KEY
AND END **.1....B(50003)..1.B(50003)..16
0.B(50003)..0.399.[....UU.71:.B(50003).0
..53281,6:.53280,14.G...."..":..R....875
:....... ** STUDENT INSTRUCTIONS **.B...
.".":.UT,UL%:.B(50003).0..53281,0:.53280
,0.....UP.0:UG$."STUDENT INST":.850.....
."........ THIS PROGRAM SIMULATES
".:....". BUYING ITEMS IN A STORE
.".H....835:.850.W...."..... YOU WI
LL BE ASKED TO TYPE IN"......" THE
NAME AND PRICES OF ITEMS"......" YO
U ARE BUYING."......".. WHEN YOU AR
E DONE SHOPPING,"......" TYPE DONE.
THE COMPUTER".H...." WILL THEN CA
LCULATE YOUR":." SALES TAX..V....83
5:.850......"...... WHEN THE COMPUTE
R GIVE YOU THE"......" TOTAL, YOU WI
LL BE ASKED TO".V...." ENTER THE AMO
UNT TENDERED,"......" WHICH MEANS HO
W MUCH MONEY YOU".$...." ARE GIVING
THE CASHIER..A.B..".. THE COMPUTER W
ILL THEN MAKE":." THE CHANGE..O.D..8
35:.850...H..".... REMEMBER TO HIT <R
ETURN> AFTER".G.J.." TYPING YOUR ANSW
ER. THIS TELLS"...L.." THE COMPUTER T
O ACCEPT WHAT YOU"...N.." HAVE TYPED.
..".5.P.." TYPE <H> AT ANY TIME TO RE
TURN".`.R.." TO THE MENU FOR HELP. Y
OU WILL"...T.." BE RETURNED TO THE PL
ACE IN THE"...V.." PROGRAM WHERE YOU
LEFT OFF AS"...X.." SOON AS THE OPTIO
N FROM THE MENU"...Z.." IS COMPLETE."
......835......UZ.1..UP%:.217.......<...
. ** TEACHER INSTRUCTIONS **.L....".":.U
T,UL%:.B(50003).0..53281,2:.53280,10....
.UP.0:UG$."TEACHER INST":.850......"..
TO THE BEST OF OUR KNOWLEDGE,.".....
." THIS PROGRAM IS IN THE PUBLIC."....
.." DOMAIN. IF THIS IS NOT THE CASE."
.-...." PLEASE CONTACT:...".W...."
COMMODORE BUSINESS MACHINES.".Z...."
3370 PHARMACY AVE......."
AGINCOURT, ONTARIO"......" C
ANADA M1W 2K4"......" (416) 4
99-4292"...@..835:.850:...B.." ..PRO
GRAM NAME: CHANGEMAKER..?.D.." WRITT
EN BY : G. M. WALTERS..D.F.." UPGRA
DED BY : QUINCY LEE....H.." .THIS PR
OGRAM WILL RUN ON ANY.....J.." B
ASIC 2.0 PET COMPUTER....L.." BA
SIC 4.0 PET COMPUTER....N.." 803
2 CBM COMPUTER..$.P.." COMMODORE
64 COMPUTER.-.R..835.A.T..UZ.1..UP%:.21
7.G.V...M.X.. ** PROGRAM MODIFICATION IN
ST **.~.Y..".":.UT,UL%...].UP.0:UG$."PRO
GRAM MOD":.850......835......UZ.1..UP%:.
217.A.......... ** TO USE 8032 LOAD CBM4
032 **...F..".....BEFORE RUNNING THIS PR
OGRAM ON AN 8032 ...R.P.." LOAD TH
E 'CBM 4032' PROGRAM.............".].Z..
UU.71.C....... .. ** T I T L E P A G E
**...".."....";:.UT,UU%:.B(50003).0..53
280,14:.53281,6.M.$..I.1.38:."...";:....
&..I.1.22:.".....";:....(..I.1.37:."....
.";:....*..I.1.22:.".....";:..:.,.."....
....................... ..\....".......
............ . . ...}.0..".............
...... . ......2.."....................
..C.4.."..............C O M M O D O R
E.....6.."...............EDUCATIONAL....
.8.."................SOFTWARE. .:.. ** C
OMMODORE LOGO **.X.;..H(UD$,24);".......
...PRESS SPACE BAR OR WAIT.":I.0.Z.<..A$
:.A$.." ".I.I.1:.I.250.828...>.T1$."":T2
$."":T3$."":T4$."":I.0...@..300.C.C.. **
SPACE BAR PRESS **...H..UO,0:.H(UD$,24)
;".......PRESS SPACE BAR TO CONTINUE."..
.L..UI$:.UI$.." ".844...N...;.R.. ** PAG
E DESIGN ROUTINE **.G.T.UP.UP.1.N.U..B(U
T).UL%.UT$." CHANGEMAKER":.855...V.UT$."
CHANGEMAKER"...W.."."H(UT$.UP$,21);I(UP
$.UG$.D(UP),18)...\.." -----------------
---------------------"...`..UH..0.870.!.
A..H(UD$,24);H(UP$,7);"HELP - PRESS H
<RETURN>".2.F.UH.0:."..":..Q.K.. ** PLEA
SE WAIT REMARK **...P..H(UD$,24);"
ONE MOMENT PLEASE... "...U.....
... ** SET UP VARIABLES **.....UX$."H":.
UQ%(1000):UB.32768:U1.196:U2.197:U3.198:
U4.216:UC.167:UU.1024.3...UT.59468:UU%.1
2:UL%.14:UP%.1146:UM.32768:UO.158:. 5000
3,0.V....B(50003).0.UB.1024:U1.209:U2.21
0:U3.211:U4.214:UC.204:UU.2048......B(50
003).0.UT.53272:UU%.21:UL%.23:UP%.2139:U
M.1024:UO.198.Y...UD$.".................
........".....UP$."
".......+.... ** SET V
ARIABLES **.4....900.O.... ** CHECK FOR
8032 **.M....".":." ":. SHIFTED SPACE...
...B(UB.40)..96..700...... ** MEMORY CHE
CK **...... .(0).2000.937......"....THIS
MACHINE DOES NOT HAVE ENOUGH."......"ME
MORY TO RUN THIS PROGRAM !"......UU.71..
.........."..":.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.Q....1091,155:.1098,
133:.1099,144:.1100,234:.1103,133......1
104,145:.1105,234:.1082,234......B(50003
)..160.955.9....1093,88:.1094,228:.1097,
85:.1102,228:.965.N....B(50003)..1.990.}
....1093,49:.1094,230:.1097,46:.1102,230
:.965...B..2099,141:.2100,20:.2101,3:.21
03,8:.2104,141:.2105,21...C..2106,3:.211
5,145:.2117,52:.2118,234:.2121,49:.2122,
141.-.D..2123,20:.2124,3:.2126,234:.2127
,141:.2128,21:.2129,3.K.E..UU.48:. DISAB
LE STOP KEY.\.J..800:. TITLE.L.T..300:.
MENU......".THE PGM WILL NOT WORK ON THI
S MACHINE!":..R....UZ.1..UP%:.UP%:UZ.0:.
** PROGRAM STARTS HERE **......"..";:.:
.B(50003).0..53281,6:.53280,14.!....
BY:LOGICS ONE CONSULTANTS.D.... P.O.B
OX 41,UTICA,MI.48087.I.... *************
*****************...... CONTRIBUTED TO
PUBLIC DOMAIN...... BY AUTHOR: G.M.WALT
ERS 10-79.V.$.. ************************
******......1260.. 8.."... .....
............$ B.." .M
M.F L.." ....................H
V.." .. $CHANGE MAKER! ... `.."
..................... J.."
. M M.O T.." . M
M.. ~.." . . Q Q
Q Q Q WW ...!..." . T Q Q Q Q
Q WW T.;!..." . G Q Q Q Q Q WW
G._!..." . B Q Q Q Q Q WW B.
.!..." . ...................!..
." M ...................M!..."
MYM M M M M M M M M..!D.."
M ..................."N.."
M..................<"X.."
..................W"...X.1.4:."
":.X:..
."... START OF PROGRAM.."...:.900:C..000
00001:T.0.0000.B"..UH.1:.850:.1080.."...
CLOSE THE CASH DRAWER**..#H..835:."....
.............. 0000.00 ".;#..." TO E
ND.......................TO REMOVE".J#..
." BUYING.......................LAST ITE
M"..#..." TYPE:........................T
YPE:.VOID."..#..." .DONE......"..#..."..
........ M .................
"..$..." M.................
".=$..." .............
.... ".K$".."
"..$,.J$."............
........"..$6..J$"
"..$;..H(UD$,24);H(UP$,
7);"HELP - PRESS H <RETURN> "..%@..J$;
" ITEM NAME: ";..%J.US$."":UL.11:.35.1%T
..UR$."DONE".1980.M%^..UR$."VOID".T.T.C:
.1890..%R..J$;"..
"..%|..H(UD$,24);H(UP$,7
);" "..%...J$;"
.........................PRICE: $";..&..
US$.".0123456789H":UL.6:.3000:P$.UR$:C.E
(P$).B&V..X.1.C(P$):.J(P$,X,1).".".PP.X:
PE.C(P$).X.I&...X.Q&..."................
.. .00 "..&....(C)..C.1800..&..
C$.D(C):."..................";.7.C(C$));
C$:.1840..&..C$.D(C):.".................
.";..&...PE.0...10.C(C$));C$;".."..'...P
E.1...8.(C(C$).PE));C$;"..".='&..PE.1...
8.(C(C$).PE));C$;"..".G'0.T.T.C.Y':..T.1
0000.1880..'?..J$;" THIS STORE ALLOWS N
O MORE PURCHASES "..'D.." DUE TO YOU
R POOR CREDIT RATING! ".J'N..X.1.1800
:...'P..J$;"
".1(R.."
":.1980.A(X..X.1.800:.
X.I(B..".................. .00
".{(L...(T)..T.1910..(Q.T$.D(T):."......
............";.7.C(T$));T$:.1970..(V.T1.
T.100:T2..(T1):T.T2.100:T$.D(T):."......
............";..)...X.1.C(T$):.J(T$,X,1)
.".".PP.X:PE.C(T$).X.#)...X.A)...PE.0...
10.C(T$));T$;"..".C)...PE.1...8.(C(T$).P
E));T$;".."..)...PE.1...8.(C(T$).PE));T$
;".."..)...1580..)... TAX SECTION*******
.N)F.F..((T..07.100)..5).100:. F = TAX..
)P.F.F..001..)Z.U.F.T:. U = TOTAL OF ALL
GOODS..*...X.1.800:.X.6*..."...........
....... .00 TAX".H*....(F)..F.2050
.}*..F$.D(F):."SQQ...............";.7.C(
F$));F$:.2080..*..F1.F.100:F2..(F1):F.F2
.100:F$.D(F):."..................";..*..
.F.10..(F.10)...9.C(F$));F$;"..TAX":.208
0..+....10.C(F$));F$;".TAX"..+ ..X.1.800
:.X.;+*..".................. .00 T
OT".T+4..U.0.U$."0.00":.2110..+9.U1.U.10
0:U2..(U1):U.U2.100:U$.D(U..001):U$.J(U$
,2,C(U$).2)..+;..H(U$,1).".".U$."0".U$.I
+>.."..................";..+H..U.10..(U.
10)...9.C(U$));U$;"..TOT":.2140..,R...10
.C(U$));U$;".TOT".>,\..J$;" TOTAL OF ALL
GOODS & TAX IS: $";U$.R,F..J$;". AMOUNT
TENDERED: $ ..........";..,P.U
S$."H.0123456789":UL.6:.35:O$.UR$..,..I$
."00000000"..,...X.1.C(O$):.J(O$,X,1)."$
".I$.J(O$,X.1,C(O$).X)..,...X..-...I$."0
0000000".O.E(O$):.2230..-..O.E(I$)..-..O
$.D(O).,-...O.U.2150.D-J.. CHANGE SECTIO
N***.N-T..O.U..J$;.15)"..THANK YOU.":.83
5:.300..-..CH..((O.U).100): . PENNIES..-
..KH.O.U.J-...CH..100000.K1..(CH.100000)
:CH.CH.(K1.100000)..-$..CH..10000.K2..(C
H.10000):CH.CH.(K2.10000).%....CH..5000.
K3..(CH.5000):CH.CH.(K3.5000).Q.8..CH..1
000.K4..(CH.1000):CH.CH.(K4.1000).Z.B..C
H..500.K5..(CH.500):CH.CH.(K5.500)...L..
CH..100.K6..(CH.100):CH.CH.(K6.100).I.V.
.CH..50.K7..(CH.50):CH.CH.(K7.50)...`..C
H..25.K8..(CH.25):CH.CH.(K8.25)../J..CH.
.10.K9..(CH.10):CH.CH.(K9.10).8/T..CH..5
.K0..(CH.5):CH.CH.(K0.5).I/~.UH.1:.850:.
.7)"..AMOUNT TENDERED: $";J(O$,2)../....
7)"TOTAL PURCHASES: $";U$../....7)".YOUR
CHANGE IS:."../...K1.0.2480.Y/....8.C(D
(K1)));K1".$1000 BILL ."../...K2.0.2500
..0....6);K2".$100 BILL ."..0D..K3.0.2
520./0N...6);K3".$50 BILL .".>0X..K4.
0.2540.Z0....6);K4".$10 BILL .".I0...
K5.0.2560..0....6);K5".$5 BILL ."..0
...K6.0.2580..0....6);K6".$1 BILL ."
..0...K7.0.2600..0....6);K7".50 CENT COI
N."..0(..K8.0.2620..12...6);K8".25 CENT
COIN."..1<..K9.0.2640.11F...6);K9".10 CE
NT COIN.".@1P..K0.0.2660.\1Z...6);K0". 5
CENT COIN."..1D.KA.(K9.10).(K8.25).(K7.
50).(K6.100).(K5.500).(K4.1000).I1N.KA.K
A.(K3.5000).(K2.10000).(K1.100000).(K0.5
)..1X.CB.KH.(KA.100):CB..(CB.100..5)..1.
..CB.0.2730.#2...CB.0...7)"..REGISTAR MA
LFUNCTION.".?2....6);CB". 1 CENT COIN.".
E2 ...]2..KH..(KH.100..5).100.}2....7)".
FOR A TOTAL OF: $";KH..2...835:.300..2..
. ******************************.S2...
BY:LOGICS ONE CONSULTANTS..2... P.O
.BOX 41 UTICA,MI.48087..3... ***********
*******************.@3... COMPUTER EDUCA
TION CONSULTANTS.E3... *****************
*************..3... CONTRIBUTED TO PUBL
IC DOMAIN..3".. BY AUTHOR: G.M.WALTERS
10-79.R3,.. ****************************
**..3... +++ SPECIAL INPUT +++..4B.UL.3:
US$."0123456789":.UO,0:UR$."":FL.0.$4G..
UC,0.:4L..UI$:.UI$."".3020.B4V..UI$.G(13
).C(UR$)..1..UC,1:." .";:..W4...UI$..G(2
0).3080..4...C(UR$).1.3020..4...I(UR$,1)
.".".FL.0:UL.3.E4...C(UR$).3.US$."012345
6789"..4..UR$.H(UR$,C(UR$).1)..4...". .
.";:.3020.+5...UI$.".".FL.0.FL.1:UL.C(UR
$).3:US$."0123456789":.3110.@5...C(UR$).
.UL.3120.E5...120:. CHECK FOR VALID CHAR
ACTER..5&.UR$.UR$.UI$:.UI$;:.3020..50..F
L.1.3020..5:.US$.".":.3020...
> CLICK IMAGE PREVIEW FOR FULL MODAL