PERCENT.C3
FILE INFORMATION
FILENAME(S): PERCENT.C3
FILE TYPE(S): PRG
FILE SIZE: 8.5K
FIRST SEEN: 2025-11-30 01:07:55
APPEARS ON: 2 disk(s)
FILE HASH
2331f6d86bbaecea9920f2af2b6a94571427436c1bbef1a1babc333943218959
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | PERCENT.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 21 | 2 | DOWNLOAD FILE |
| L EHRNEN | PERCENT.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 21 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 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 08 03 00 99 |DISABLE **.U....| 00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .| 00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....| 00000050: 8D 15 03 58 60 00 74 08 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 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh| 00000080: 68 68 60 31 22 00 A7 08 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 08 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 08 0F 00 3A 00 D4 |UTINE **.....:..| 000000D0: 08 19 00 3A 00 DA 08 1E 00 3A 00 F6 08 23 00 8F |...:.....:...#..| 000000E0: 20 2B 2B 2B 20 49 4E 50 55 54 20 53 45 43 54 49 | +++ INPUT SECTI| 000000F0: 4F 4E 20 2B 2B 2B 00 08 09 28 00 55 52 24 B2 22 |ON +++...(.UR$."| 00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL| 00000110: B2 30 A7 55 4C B2 38 30 00 2B 09 2D 00 99 22 20 |.0.UL.80.+.-.." | 00000120: 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 3F 09 32 00 | ..";:.UC,0.?.2.| 00000130: A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 |.UI$:.UI$."".50.| 00000140: 69 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 |i.7..UI$..(13)..| 00000150: 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 |(UR$)..1..UC,1:.| 00000160: 22 20 9D 22 3B 3A 89 38 35 00 7C 09 3C 00 8B 55 |" .";:.85.|.<..U| 00000170: 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 90 09 3E |I$..(20).105...>| 00000180: 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 |.. .(UR$)..UL.50| 00000190: 00 B5 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 |...A..120:. CHEC| 000001A0: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR| 000001B0: 41 43 54 45 52 00 C5 09 46 00 55 52 24 B2 55 52 |ACTER...F.UR$.UR| 000001C0: 24 AA 55 49 24 00 CF 09 4B 00 99 55 49 24 3B 00 |$.UI$...K..UI$;.| 000001D0: D7 09 50 00 89 35 30 00 FC 09 55 00 8F 20 2B 2B |..P..50...U.. ++| 000001E0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 |+ CHECK FOR HELP| 000001F0: 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 24 0A 5A | REQUEST +++.$.Z| 00000200: 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 |..UR$.UX$.195:. | 00000210: 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 |EXIT TO HELP ROU| 00000220: 54 49 4E 45 00 33 0A 5F 00 8B 55 46 B2 31 A7 8D |TINE.3._..UF.1..| 00000230: 32 34 30 00 40 0A 64 00 55 46 B2 30 3A 99 3A 8E |240.@.d.UF.0:.:.| 00000240: 00 59 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 |.Y.f.. ++ CHECK | 00000250: 44 45 4C 45 54 45 20 2B 2B 00 6A 0A 69 00 8B C3 |DELETE ++.j.i...| 00000260: 28 55 52 24 29 B3 31 A7 35 30 00 82 0A 6E 00 55 |(UR$).1.50...n.U| 00000270: 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB |R$..(UR$,.(UR$).| 00000280: 31 29 00 94 0A 73 00 99 22 9D 20 20 9D 9D 22 3B |1)...s..". ..";| 00000290: 3A 89 35 30 00 BB 0A 78 00 8F 20 2B 2B 20 43 48 |:.50...x.. ++ CH| 000002A0: 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 |ECK FOR VALID CH| 000002B0: 41 52 41 43 54 45 52 53 20 2B 2B 00 CD 0A 7D 00 |ARACTERS ++...}.| 000002C0: 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DE 0A |..(US$).0.150...| 000002D0: 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 F5 |...US.1..(US$)..| 000002E0: 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 |....UI$..(US$,US| 000002F0: 2C 31 29 A7 8E 00 FB 0A 8C 00 82 00 08 0B 91 00 |,1).............| 00000300: 55 49 24 B2 22 22 3A 8E 00 23 0B 96 00 8F 20 2A |UI$."":..#.... *| 00000310: 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 |* STANDARD INPUT| 00000320: 20 2A 2A 00 34 0B 98 00 8B C6 28 55 49 24 29 B2 | **.4.....(UI$).| 00000330: 34 36 A7 8E 00 45 0B 9B 00 8B 55 49 24 B2 C7 28 |46...E....UI$..(| 00000340: 33 32 29 A7 8E 00 62 0B A0 00 8B C6 28 55 49 24 |32)...b.....(UI$| 00000350: 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 |).48..(UI$).57.1| 00000360: 37 30 00 68 0B A5 00 8E 00 85 0B AA 00 8B C6 28 |70.h...........(| 00000370: 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 |UI$).65..(UI$).9| 00000380: 30 A7 31 38 30 00 8B 0B AF 00 8E 00 AF 0B B4 00 |0.180...........| 00000390: 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 |..(UI$).193..(UI| 000003A0: 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 |$).218.UI$."":..| 000003B0: D2 0B B9 00 8B C2 28 55 54 29 B2 55 4C 25 A7 55 |......(UT).UL%.U| 000003C0: 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 |I$..(.(UI$).128)| 000003D0: 3A 8E 00 D8 0B BB 00 8E 00 E5 0B BE 00 55 49 24 |:............UI$| 000003E0: B2 22 22 3A 8E 00 0A 0C C3 00 55 46 B2 31 3A 8F |."":......UF.1:.| 000003F0: 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E | +++ HELP ROUTIN| 00000400: 45 20 45 58 49 54 20 2B 2B 2B 00 13 0C C5 00 8D |E EXIT +++......| 00000410: 32 35 30 00 1C 0C C8 00 8D 32 34 35 00 3B 0C CD |250......245.;..| 00000420: 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 |..UQ.UB.(U2%.256| 00000430: AA 55 31 25 AA 55 33 25 AB 32 29 00 57 0C D2 00 |.U1%.U3%.2).W...| 00000440: 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 |UQ%(UQ.UB)..(UQ)| 00000450: 3A 82 3A 99 22 93 22 00 6A 0C D7 00 55 5A B2 31 |:.:.".".j...UZ.1| 00000460: 3A 55 56 25 B2 C2 28 55 54 29 00 73 0C D8 00 89 |:UV%..(UT).s....| 00000470: 33 30 30 00 98 0C D9 00 55 5A B2 30 3A 55 53 24 |300.....UZ.0:US$| 00000480: B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 |.UJ$:UG$.UK$:UP.| 00000490: 55 4A 3A 55 4C B2 55 4B 00 CF 0C DA 00 8B C2 28 |UJ:UL.UK.......(| 000004A0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,| 000004B0: 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 |1:.".";:.53281,6| 000004C0: 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 |:.53280,14:.220.| 000004D0: D9 0C DB 00 99 22 93 22 3B 00 08 0D DC 00 55 54 |.....".";.....UT| 000004E0: 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 |$.UL$:.UT,UV%:.U| 000004F0: 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 |Q.UB.(U2%.256.U1| 00000500: 25 AA 55 33 25 AB 33 29 00 1D 0D E1 00 97 55 51 |%.U3%.3)......UQ| 00000510: 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 29 0D |,UQ%(UQ.UB):..).| 00000520: E6 00 97 55 31 2C 55 31 25 00 35 0D E8 00 97 55 |...U1,U1%.5....U| 00000530: 32 2C 55 32 25 00 41 0D E9 00 97 55 34 2C 55 34 |2,U2%.A....U4,U4| 00000540: 25 00 4F 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 |%.O....U3,U3%.1.| 00000550: 57 0D EB 00 89 33 35 00 89 0D F0 00 55 44 25 B2 |W....35.....UD%.| 00000560: 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |((U2%.256.U1%.U3| 00000570: 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 |%).UB).40:..(UD$| 00000580: 2C 55 44 25 AA 31 29 3A 8E 00 C4 0D F5 00 99 C8 |,UD%.1):........| 00000590: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" | 000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005B0: 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 |. HELP COMING . | 000005C0: 20 22 3A 8E 00 F0 0D FA 00 55 31 25 B2 C2 28 55 | ":......U1%..(U| 000005D0: 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 |1):U2%..(U2):U3%| 000005E0: B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 |..(U3):U4%..(U4)| 000005F0: 00 02 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4A B2 |.....UJ$.US$:UJ.| 00000600: 55 4C 00 22 0E FC 00 55 4A 24 B2 55 53 24 3A 55 |UL."...UJ$.US$:U| 00000610: 4B 24 B2 55 47 24 3A 55 4A B2 55 50 3A 55 4B B2 |K$.UG$:UJ.UP:UK.| 00000620: 55 4C 00 28 0E FF 00 8E 00 39 0E 2C 01 8F 20 2A |UL.(.....9.,.. *| 00000630: 2A 20 4D 45 4E 55 20 2A 2A 00 3F 0E 2D 01 3A 00 |* MENU **.?.-.:.| 00000640: 6E 0E 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 |n....".":.UT,UU%| 00000650: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53| 00000660: 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 74 |281,9:.53280,8.t| 00000670: 0E 2F 01 3A 00 91 0E 31 01 99 22 13 20 20 20 20 |./.:...1..". | 00000680: 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 | MENU| 00000690: 22 00 C0 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D |"...6.." -------| 000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"| 000006C0: 00 E9 0E 3B 01 99 22 11 11 20 20 20 20 20 20 20 |...;..".. | 000006D0: 31 2E 20 20 20 50 45 52 43 45 4E 54 20 43 4F 4D |1. PERCENT COM| 000006E0: 50 4F 53 49 54 49 4F 4E 22 00 13 0F 40 01 99 22 |POSITION"...@.."| 000006F0: 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 |.. 2. ST| 00000700: 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |UDENT INSTRUCTIO| 00000710: 4E 53 22 00 3D 0F 45 01 99 22 11 11 20 20 20 20 |NS".=.E..".. | 00000720: 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 | 3. TEACHER | 00000730: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 59 0F |INSTRUCTIONS".Y.| 00000740: 4F 01 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 |O..".. 4. | 00000750: 20 20 51 55 49 54 11 11 22 00 88 0F 54 01 99 22 | QUIT.."...T.."| 00000760: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------| 00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000780: 2D 2D 2D 2D 2D 2D 2D 22 00 B3 0F 59 01 99 22 11 |-------"...Y..".| 00000790: 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 |. PRESS A | 000007A0: 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 |NUMBER KEY (1-4)| 000007B0: 20 22 3B 00 DB 0F 5E 01 55 4C B2 31 3A 55 53 24 | ";...^.UL.1:US$| 000007C0: B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E |."1234":.35:. IN| 000007D0: 50 55 54 20 52 4F 55 54 49 4E 45 00 F0 0F 5F 01 |PUT ROUTINE..._.| 000007E0: 3A 20 20 8B C3 28 55 52 24 29 B1 31 A7 33 30 30 |: ..(UR$).1.300| 000007F0: 00 FB 0F 60 01 55 53 24 B2 22 22 00 18 10 63 01 |...`.US$.""...c.| 00000800: 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 |..(UR$).1000,400| 00000810: 2C 35 30 30 2C 33 39 36 00 21 10 68 01 89 33 30 |,500,396.!.h..30| 00000820: 30 00 48 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E |0.H.... ** RE-EN| 00000830: 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E |ABLE STOP KEY AN| 00000840: 44 20 45 4E 44 20 2A 2A 00 77 10 8C 01 8B C2 28 |D END **.w.....(| 00000850: 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 |50003)..1..(5000| 00000860: 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 |3)..160..(50003)| 00000870: B3 B1 30 A7 33 39 39 00 A1 10 8D 01 9E 55 55 AA |..0.399......UU.| 00000880: 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |71:..(50003).0..| 00000890: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 |53281,6:.53280,1| 000008A0: 34 00 AD 10 8E 01 99 22 9A 93 22 3A 80 00 B8 10 |4......"..":....| 000008B0: 8F 01 8D 38 37 35 3A 8E 00 D9 10 90 01 8F 20 2A |...875:....... *| 000008C0: 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 |* STUDENT INSTRU| 000008D0: 43 54 49 4F 4E 53 20 2A 2A 00 08 11 95 01 99 22 |CTIONS **......"| 000008E0: 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 |.":.UT,UL%:..(50| 000008F0: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A |003).0..53281,0:| 00000900: 97 35 33 32 38 30 2C 30 00 29 11 9A 01 55 50 B2 |.53280,0.)...UP.| 00000910: 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 |0:UG$.".TUDENT .| 00000920: 4E 53 54 22 3A 8D 38 35 30 00 56 11 9C 01 99 22 |NST":.850.V...."| 00000930: 11 11 11 11 11 11 20 20 20 20 D4 48 49 53 20 50 |...... .HIS P| 00000940: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 43 41 4C 43 |ROGRAM WILL CALC| 00000950: 55 4C 41 54 45 22 00 81 11 9E 01 99 22 20 20 20 |ULATE"......" | 00000960: 50 45 52 43 45 4E 54 20 43 4F 4D 50 4F 53 49 54 |PERCENT COMPOSIT| 00000970: 49 4F 4E 20 42 59 20 4D 41 53 53 20 4F 46 20 41 |ION BY MASS OF A| 00000980: 22 00 AB 11 A0 01 99 22 20 20 20 43 4F 4D 50 4F |"......" COMPO| 00000990: 55 4E 44 20 43 4F 4E 54 41 49 4E 49 4E 47 20 42 |UND CONTAINING B| 000009A0: 45 54 57 45 45 4E 20 54 57 4F 22 00 D8 11 A1 01 |ETWEEN TWO".....| 000009B0: 99 22 20 20 20 41 4E 44 20 46 49 56 45 20 45 4C |." AND FIVE EL| 000009C0: 45 4D 45 4E 54 53 2E 20 C9 54 20 49 53 20 53 55 |EMENTS. .T IS SU| 000009D0: 47 47 45 53 54 45 44 22 00 FF 11 A2 01 99 22 20 |GGESTED"......" | 000009E0: 20 20 54 48 41 54 20 59 4F 55 20 55 53 45 20 41 | THAT YOU USE A| 000009F0: 43 54 55 41 4C 20 46 49 47 55 52 45 53 2E 22 00 |CTUAL FIGURES.".| 00000A00: 45 12 A3 01 99 22 11 11 20 20 20 20 D4 48 45 20 |E....".. .HE | 00000A10: 53 41 4D 50 4C 45 20 43 41 4C 43 55 4C 41 54 49 |SAMPLE CALCULATI| 00000A20: 4F 4E 20 57 49 4C 4C 22 3A 99 22 20 20 20 53 48 |ON WILL":." SH| 00000A30: 4F 57 20 48 4F 57 20 54 48 49 53 20 49 53 20 44 |OW HOW THIS IS D| 00000A40: 4F 4E 45 2E 22 00 53 12 A4 01 8D 38 33 35 3A 8D |ONE.".S....835:.| 00000A50: 38 35 30 00 84 12 A6 01 3A 20 20 99 22 11 11 11 |850.....: ."...| 00000A60: 11 20 20 20 20 D2 45 4D 45 4D 42 45 52 20 54 4F |. .EMEMBER TO| 00000A70: 20 48 49 54 20 3C 52 45 54 55 52 4E 3E 20 41 46 | HIT <RETURN> AF| 00000A80: 54 45 52 22 00 B0 12 A8 01 3A 20 20 99 22 20 20 |TER".....: ." | 00000A90: 20 54 59 50 49 4E 47 20 59 4F 55 52 20 41 4E 53 | TYPING YOUR ANS| 00000AA0: 57 45 52 2E 20 D4 48 49 53 20 54 45 4C 4C 53 22 |WER. .HIS TELLS"| 00000AB0: 00 DD 12 AA 01 3A 20 20 99 22 20 20 20 54 48 45 |.....: ." THE| 00000AC0: 20 43 4F 4D 50 55 54 45 52 20 54 4F 20 41 43 43 | COMPUTER TO ACC| 00000AD0: 45 50 54 20 57 48 41 54 20 59 4F 55 22 00 0B 13 |EPT WHAT YOU"...| 00000AE0: AC 01 3A 20 20 99 22 20 20 20 48 41 56 45 20 54 |..: ." HAVE T| 00000AF0: 59 50 45 44 2E 20 D9 4F 55 20 43 41 4E 20 45 52 |YPED. .OU CAN ER| 00000B00: 41 53 45 20 45 52 52 4F 52 53 22 00 31 13 AD 01 |ASE ERRORS".1...| 00000B10: 3A 20 20 99 22 20 20 20 57 49 54 48 20 54 48 45 |: ." WITH THE| 00000B20: 20 3C 49 4E 53 54 2F 44 45 4C 3E 20 4B 45 59 2E | <INST/DEL> KEY.| 00000B30: 22 00 5F 13 AE 01 3A 20 20 99 22 11 20 20 20 20 |"._...: .". | 00000B40: D4 59 50 45 20 3C 48 3E 20 41 54 20 41 4E 59 20 |.YPE <H> AT ANY | 00000B50: 54 49 4D 45 20 54 4F 20 52 45 54 55 52 4E 22 00 |TIME TO RETURN".| 00000B60: 8C 13 B0 01 3A 20 20 99 22 20 20 20 54 4F 20 54 |....: ." TO T| 00000B70: 48 45 20 4D 45 4E 55 20 46 4F 52 20 48 45 4C 50 |HE MENU FOR HELP| 00000B80: 2E 20 20 D9 4F 55 20 57 49 4C 4C 22 00 B9 13 B2 |. .OU WILL"....| 00000B90: 01 3A 20 20 99 22 20 20 20 42 45 20 52 45 54 55 |.: ." BE RETU| 00000BA0: 52 4E 45 44 20 54 4F 20 54 48 45 20 50 4C 41 43 |RNED TO THE PLAC| 00000BB0: 45 20 49 4E 20 54 48 45 22 00 E4 13 B4 01 3A 20 |E IN THE".....: | 00000BC0: 20 99 22 20 20 20 50 52 4F 47 52 41 4D 20 57 48 | ." PROGRAM WH| 00000BD0: 45 52 45 20 59 4F 55 20 4C 45 46 54 20 4F 46 46 |ERE YOU LEFT OFF| 00000BE0: 20 41 53 22 00 12 14 B6 01 3A 20 20 99 22 20 20 | AS".....: ." | 00000BF0: 20 53 4F 4F 4E 20 41 53 20 54 48 45 20 4F 50 54 | SOON AS THE OPT| 00000C00: 49 4F 4E 20 46 52 4F 4D 20 54 48 45 20 4D 45 4E |ION FROM THE MEN| 00000C10: 55 22 00 2C 14 B8 01 3A 20 20 99 22 20 20 20 49 |U".,...: ." I| 00000C20: 53 20 43 4F 4D 50 4C 45 54 45 2E 22 00 35 14 E5 |S COMPLETE.".5..| 00000C30: 01 8D 38 33 35 00 49 14 EA 01 8B 55 5A B2 31 A7 |..835.I....UZ.1.| 00000C40: 9E 55 50 25 3A 89 32 31 37 00 4F 14 F3 01 8E 00 |.UP%:.217.O.....| 00000C50: 70 14 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 |p.... ** TEACHER| 00000C60: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A | INSTRUCTIONS **| 00000C70: 00 A0 14 F5 01 99 22 93 22 3A 97 55 54 2C 55 4C |......".":.UT,UL| 00000C80: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5| 00000C90: 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 |3281,2:.53280,10| 00000CA0: 00 C2 14 F6 01 55 50 B2 30 3A 55 47 24 B2 22 D4 |.....UP.0:UG$.".| 00000CB0: 45 41 43 48 45 52 20 C9 4E 53 54 2E 22 3A 8D 38 |EACHER .NST.":.8| 00000CC0: 35 30 00 F0 14 F7 01 99 22 11 11 20 20 20 20 20 |50......".. | 00000CD0: 20 D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 | .O THE BEST OF | 00000CE0: 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 |OUR KNOWLEDGE,."| 00000CF0: 00 19 15 F8 01 99 22 20 20 20 54 48 49 53 20 50 |......" THIS P| 00000D00: 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 |ROGRAM IS IN THE| 00000D10: 20 50 55 42 4C 49 43 11 22 00 45 15 F9 01 99 22 | PUBLIC.".E...."| 00000D20: 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 | DOMAIN. .F T| 00000D30: 48 49 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 |HIS IS NOT THE C| 00000D40: 41 53 45 11 22 00 62 15 FA 01 99 22 20 20 20 50 |ASE.".b...." P| 00000D50: 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 |LEASE CONTACT:..| 00000D60: 11 22 00 8C 15 FB 01 99 22 20 20 20 20 20 20 C3 |."......" .| 00000D70: 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 |OMMODORE .USINES| 00000D80: 53 20 CD 41 43 48 49 4E 45 53 11 22 00 AF 15 FC |S .ACHINES."....| 00000D90: 01 99 22 20 20 20 20 20 20 20 20 20 20 33 33 37 |.." 337| 00000DA0: 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 |0 .HARMACY .VE..| 00000DB0: D3 15 FD 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." | 00000DC0: C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 |.GINCOURT, .NTAR| 00000DD0: 49 4F 22 00 F5 15 FE 01 99 22 20 20 20 20 20 20 |IO"......" | 00000DE0: 20 20 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 | .ANADA .1.| 00000DF0: 20 32 CB 34 22 00 15 16 FF 01 99 22 20 20 20 20 | 2.4"......" | 00000E00: 20 20 20 20 20 20 28 34 31 36 29 20 34 39 39 2D | (416) 499-| 00000E10: 34 32 39 32 22 00 2B 16 00 02 55 50 B2 31 3A 8D |4292".+...UP.1:.| 00000E20: 20 38 33 35 3A 8D 20 38 35 30 3A 00 4F 16 01 02 | 835:. 850:.O...| 00000E30: 99 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D |." ...ROGRAM| 00000E40: 20 CE 41 4D 45 3A 20 D0 45 52 43 45 4E 54 11 00 | .AME: .ERCENT..| 00000E50: 73 16 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 |s...." .RITT| 00000E60: 45 4E 20 C2 59 20 20 3A 20 D2 2E CA 2E 20 CC 41 |EN .Y : .... .A| 00000E70: 4D 42 11 00 97 16 03 02 99 22 20 20 20 20 20 D5 |MB......." .| 00000E80: 50 47 52 41 44 45 44 20 C2 59 20 3A 20 C4 45 52 |PGRADED .Y : .ER| 00000E90: 45 4B 20 CC 45 45 11 00 C2 16 04 02 99 22 20 20 |EK .EE......." | 00000EA0: 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D | ..HIS PROGRAM| 00000EB0: 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 | WILL RUN ON ANY| 00000EC0: 11 11 00 E1 16 07 02 99 22 20 20 20 20 20 20 20 |........" | 00000ED0: 20 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 D5 D4 C5 | ... 64 .......| 00000EE0: D2 00 06 17 08 02 99 22 20 20 20 20 20 20 20 20 |......." | 00000EF0: 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF | ......... 64 ..| 00000F00: CD D0 D5 D4 C5 D2 00 0F 17 12 02 8D 38 33 35 00 |............835.| 00000F10: 23 17 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |#.N..UZ.1..UP%:.| 00000F20: 32 31 37 00 29 17 57 02 8E 00 4F 17 58 02 8F 20 |217.).W...O.X.. | 00000F30: 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 |** PROGRAM MODIF| 00000F40: 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 |ICATION INST **.| 00000F50: 60 17 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 |`.Y..".":.UT,UL%| 00000F60: 00 80 17 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 |...].UP.0:UG$.".| 00000F70: 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 |ROGRAM .OD":.850| 00000F80: 00 89 17 94 02 8D 38 33 35 00 9D 17 B2 02 8B 55 |......835......U| 00000F90: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 A3 17 |Z.1..UP%:.217...| 00000FA0: BB 02 8E 00 C8 17 BC 02 8F 20 2A 2A 20 54 4F 20 |......... ** TO | 00000FB0: 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 |USE 8032 LOAD CB| 00000FC0: 4D 34 30 33 32 20 2A 2A 00 FE 17 C6 02 99 22 93 |M4032 **......".| 00000FD0: 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 |....BEFORE RUNNI| 00000FE0: 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |NG THIS PROGRAM | 00000FF0: 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 34 |ON AN 8032 ...4| 00001000: 18 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 |...." LOAD | 00001010: 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 |THE 'CBM 4032' P| 00001020: 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 |ROGRAM..........| 00001030: 11 11 11 22 00 3F 18 DA 02 9E 55 55 AA 37 31 00 |...".?....UU.71.| 00001040: 45 18 E4 02 80 00 65 18 20 03 8F 20 2A 2A 20 54 |E.....e. .. ** T| 00001050: 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 | I T L E P A G| 00001060: 20 45 20 2A 2A 00 99 18 22 03 99 22 93 11 1D 05 | E **...".."....| 00001070: 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |";:.UT,UU%:..(50| 00001080: 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 |003).0..53280,14| 00001090: 3A 97 35 33 32 38 31 2C 36 00 AF 18 24 03 81 49 |:.53281,6...$..I| 000010A0: B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 |.1.38:."...";:..| 000010B0: C7 18 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D |..&..I.1.22:."..| 000010C0: 12 A6 92 22 3B 3A 82 00 DF 18 28 03 81 49 B2 31 |...";:....(..I.1| 000010D0: A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 |.37:.".....";:..| 000010E0: F7 18 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D |..*..I.1.22:."..| 000010F0: 12 A6 92 22 3B 3A 82 00 1C 19 2C 03 99 22 13 11 |...";:....,.."..| 00001100: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001110: 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 3E 19 2E |......... ..>..| 00001120: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............| 00001130: 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 5F |...... . . ..._| 00001140: 19 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.0.."...........| 00001150: 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 |........ . ....| 00001160: 7D 19 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |}.2.."..........| 00001170: 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 A5 19 |.......... ....| 00001180: 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |4.."............| 00001190: 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 |..C O M M O D O | 000011A0: 52 20 45 11 11 00 C8 19 36 03 99 22 1D 1D 1D 1D |R E.....6.."....| 000011B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 |...........EDUCA| 000011C0: 54 49 4F 4E 41 4C 11 11 00 E7 19 38 03 99 22 1D |TIONAL.....8..".| 000011D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 |...............S| 000011E0: 4F 46 54 57 41 52 45 00 02 1A 3A 03 8F 20 2A 2A |OFTWARE...:.. **| 000011F0: 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 | COMMODORE LOGO | 00001200: 2A 2A 00 3A 1A 3B 03 99 C8 28 55 44 24 2C 32 34 |**.:.;...(UD$,24| 00001210: 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 |);"..........PRE| 00001220: 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 |SS SPACE BAR OR | 00001230: 57 41 49 54 92 22 3A 49 B2 30 00 5C 1A 3C 03 A1 |WAIT.":I.0.\.<..| 00001240: 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA |A$:.A$.." ".I.I.| 00001250: 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 80 1A 3E |1:.I.250.828...>| 00001260: 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 |.T1$."":T2$."":T| 00001270: 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 |3$."":T4$."":I.0| 00001280: 00 89 1A 40 03 89 33 30 30 00 A5 1A 43 03 8F 20 |...@..300...C.. | 00001290: 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 |** SPACE BAR PRE| 000012A0: 53 53 20 2A 2A 00 DA 1A 48 03 99 C8 28 55 44 24 |SS **...H...(UD$| 000012B0: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 |,24);".......PRE| 000012C0: 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 |SS SPACE BAR TO | 000012D0: 43 4F 4E 54 49 4E 55 45 92 22 00 F1 1A 4C 03 A1 |CONTINUE."...L..| 000012E0: 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 |UI$:.UI$.." ".84| 000012F0: 34 00 F7 1A 4E 03 8E 00 17 1B 52 03 8F 20 2A 2A |4...N.....R.. **| 00001300: 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 | PAGE DESIGN ROU| 00001310: 54 49 4E 45 20 2A 2A 00 23 1B 54 03 55 50 B2 55 |TINE **.#.T.UP.U| 00001320: 50 AA 31 00 4A 1B 57 03 99 22 93 22 C8 28 55 54 |P.1.J.W..".".(UT| 00001330: 24 AA 55 50 24 2C 32 31 29 3B C8 28 55 47 24 AA |$.UP$,21);.(UG$.| 00001340: 55 50 24 2C 31 34 29 3B 55 50 00 79 1B 5C 03 99 |UP$,14);UP.y.\..| 00001350: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------| 00001360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001370: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 AD 1B 61 03 99 C8 |--------"...a...| 00001380: 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 36 |(UD$,24);.(UP$,6| 00001390: 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 |);"HELP - PRESS | 000013A0: 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 B9 1B | H <RETURN>"...| 000013B0: 66 03 99 22 13 11 22 3A 8E 00 D8 1B 6B 03 8F 20 |f.."..":....k.. | 000013C0: 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 |** PLEASE WAIT R| 000013D0: 45 4D 41 52 4B 20 2A 2A 00 0E 1C 70 03 99 C8 28 |EMARK **...p...(| 000013E0: 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 |UD$,24);" | 000013F0: 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 | ONE MOMENT P| 00001400: 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 14 |LEASE... "..| 00001410: 1C 75 03 8E 00 31 1C 84 03 8F 20 2A 2A 20 53 45 |.u...1.... ** SE| 00001420: 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A |T UP VARIABLES *| 00001430: 2A 00 7C 1C 85 03 55 58 24 B2 22 48 22 3A 86 55 |*.|...UX$."H":.U| 00001440: 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 |Q%(1000):UB.3276| 00001450: 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A |8:U1.196:U2.197:| 00001460: 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 |U3.198:U4.216:UC| 00001470: B2 31 36 37 3A 55 55 B2 31 30 32 34 00 B3 1C 86 |.167:UU.1024....| 00001480: 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 |.UT.59468:UU%.12| 00001490: 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 |:UL%.14:UP%.1146| 000014A0: 3A 55 4D B2 33 32 37 36 38 3A 97 20 35 30 30 30 |:UM.32768:. 5000| 000014B0: 33 2C 30 00 F6 1C 87 03 8B C2 28 35 30 30 30 33 |3,0.......(50003| 000014C0: 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 |).0.UB.1024:U1.2| 000014D0: 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 |09:U2.210:U3.211| 000014E0: 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 |:U4.214:UC.204:U| 000014F0: 55 B2 32 30 34 38 00 2E 1D 88 03 8B C2 28 35 30 |U.2048.......(50| 00001500: 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A |003).0.UT.53272:| 00001510: 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 |UU%.21:UL%.23:UP| 00001520: 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 00 52 |%.2139:UM.1024.R| 00001530: 1D 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 |...UD$."........| 00001540: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00001550: 11 22 00 84 1D 8A 03 55 50 24 B2 22 20 20 20 20 |.".....UP$." | 00001560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001580: 20 20 20 22 00 CB 1D 8B 03 3A 20 20 55 54 24 B2 | ".....: UT$.| 00001590: 22 20 D0 C5 D2 C3 C5 CE D4 22 3A 8F 20 50 4C 41 |" .......":. PLA| 000015A0: 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 |CE PROGRAM TITLE| 000015B0: 20 48 45 52 45 21 21 21 21 21 21 21 21 21 21 21 | HERE!!!!!!!!!!!| 000015C0: 21 21 21 21 21 21 21 21 2A 2A 2A 00 D1 1D 8C 03 |!!!!!!!!***.....| 000015D0: 8E 00 EB 1D 8E 03 8F 20 2A 2A 20 53 45 54 20 56 |....... ** SET V| 000015E0: 41 52 49 41 42 4C 45 53 20 2A 2A 00 F4 1D 93 03 |ARIABLES **.....| 000015F0: 8D 39 30 30 00 0F 1E 98 03 8F 20 2A 2A 20 43 48 |.900...... ** CH| 00001600: 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 |ECK FOR 8032 **.| 00001610: 2D 1E 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 |-....".":.".":. | 00001620: 53 48 49 46 54 45 44 20 53 50 41 43 45 00 44 1E |SHIFTED SPACE.D.| 00001630: A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 |....(UB.40)..96.| 00001640: 8D 37 30 30 00 5D 1E A3 03 8F 20 2A 2A 20 4D 45 |.700.].... ** ME| 00001650: 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 71 1E |MORY CHECK **.q.| 00001660: A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 |... .(0).2000.93| 00001670: 37 00 9F 1E A5 03 99 22 93 11 11 05 54 48 49 53 |7......"....THIS| 00001680: 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F | MACHINE DOES NO| 00001690: 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 |T HAVE ENOUGH.".| 000016A0: C3 1E A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 |....."MEMORY TO | 000016B0: 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D |RUN THIS PROGRAM| 000016C0: 20 21 22 00 CE 1E A7 03 9E 55 55 AA 37 31 00 D4 | !"......UU.71..| 000016D0: 1E A8 03 80 00 EE 1E A9 03 99 22 93 05 22 3A 8B |.........."..":.| 000016E0: C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 1D |.(50003).0.962..| 000016F0: 1F AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E |.... ** BASIC 2.| 00001700: 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 |0 OR 4.0 OR | 00001710: 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 5B 1F |C-64 SETUP **.[.| 00001720: AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 |...1075,133:.107| 00001730: 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A |6,144:.1077,234:| 00001740: 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 |.1079,4:.1080,13| 00001750: 33 3A 97 31 30 38 31 2C 31 34 35 00 91 1F AE 03 |3:.1081,145.....| 00001760: 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C |.1091,155:.1098,| 00001770: 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 |133:.1099,144:.1| 00001780: 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 |100,234:.1103,13| 00001790: 33 00 B3 1F AF 03 97 31 31 30 34 2C 31 34 35 3A |3......1104,145:| 000017A0: 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C |.1105,234:.1082,| 000017B0: 32 33 34 00 CA 1F B1 03 8B C2 28 35 30 30 30 33 |234.......(50003| 000017C0: 29 B3 B1 31 36 30 A7 39 35 35 00 F9 1F B6 03 97 |)..160.955......| 000017D0: 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 |1093,88:.1094,22| 000017E0: 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 |8:.1097,85:.1102| 000017F0: 2C 32 32 38 3A 89 39 36 35 00 0E 20 BB 03 8B C2 |,228:.965.. ....| 00001800: 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 3D |(50003)..1.990.=| 00001810: 20 C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 | ...1093,49:.109| 00001820: 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 |4,230:.1097,46:.| 00001830: 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 77 20 |1102,230:.965.w | 00001840: C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 |...2099,141:.210| 00001850: 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 |0,20:.2101,3:.21| 00001860: 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 |03,8:.2104,141:.| 00001870: 32 31 30 35 2C 32 31 00 B3 20 C3 03 97 32 31 30 |2105,21.. ...210| 00001880: 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 |6,3:.2115,145:.2| 00001890: 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 |117,52:.2118,234| 000018A0: 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C |:.2121,49:.2122,| 000018B0: 31 34 31 00 ED 20 C4 03 97 32 31 32 33 2C 32 30 |141.. ...2123,20| 000018C0: 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 |:.2124,3:.2126,2| 000018D0: 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 |34:.2127,141:.21| 000018E0: 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 0B 21 |28,21:.2129,3..!| 000018F0: C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 |...UU.48:. DISAB| 00001900: 4C 45 20 53 54 4F 50 20 4B 45 59 00 1C 21 CA 03 |LE STOP KEY..!..| 00001910: 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 2C 21 D4 |.800:. TITLE.,!.| 00001920: 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 5D 21 DE |..300:. MENU.]!.| 00001930: 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C |..".THE PGM WILL| 00001940: 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 | NOT WORK ON THI| 00001950: 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 92 21 |S MACHINE!":...!| 00001960: E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 |...UZ.1..UP%:.UP| 00001970: 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 |%:UZ.0:. ** PROG| 00001980: 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 |RAM STARTS HERE | 00001990: 2A 2A 00 BE 21 E9 03 99 22 93 05 22 3B 3A 8C 3A |**..!..."..";:.:| 000019A0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532| 000019B0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 DA |81,6:.53280,14..| 000019C0: 21 DC 05 8F 20 50 45 52 43 45 4E 54 2C 52 2E 4A |!... PERCENT,R.J| 000019D0: 2E 4C 41 4D 42 2E 31 39 38 30 00 EB 21 E6 05 99 |.LAMB.1980..!...| 000019E0: 22 93 22 3A 97 55 54 2C 55 4C 25 00 0E 22 F0 05 |".":.UT,UL%.."..| 000019F0: 55 47 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |UG$." | 00001A00: 20 20 20 22 3A 55 50 B2 30 3A 8D 38 35 30 00 55 | ":UP.0:.850.U| 00001A10: 22 36 06 99 22 11 11 11 11 11 11 11 20 20 20 20 |"6.."....... | 00001A20: 20 C4 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 | .O YOU WISH TO | 00001A30: 53 45 45 20 41 20 53 41 4D 50 4C 45 22 3A 99 22 |SEE A SAMPLE":."| 00001A40: 11 20 20 20 20 20 43 41 4C 43 55 4C 41 54 49 4F |. CALCULATIO| 00001A50: 4E 3F 20 22 3B 00 73 22 40 06 55 53 24 B2 22 59 |N? ";.s"@.US$."Y| 00001A60: 48 4E 22 3A 55 4C B2 31 3A 8D 33 35 3A 41 24 B2 |HN":UL.1:.35:A$.| 00001A70: 55 52 24 00 86 22 4A 06 8B 20 41 24 B2 22 4E 22 |UR$.."J.. A$."N"| 00001A80: A7 20 31 39 30 30 00 90 22 54 06 89 31 36 34 30 |. 1900.."T..1640| 00001A90: 00 A2 22 5E 06 8B 20 41 B3 B1 31 20 A7 20 31 36 |.."^.. A..1 . 16| 00001AA0: 30 30 00 CD 22 68 06 55 47 24 B2 22 D3 41 4D 50 |00.."h.UG$.".AMP| 00001AB0: 4C 45 22 3A 55 50 B2 30 3A 8D 38 35 30 3A 99 22 |LE":UP.0:.850:."| 00001AC0: 11 11 11 20 C5 58 41 4D 50 4C 45 3A 22 00 FE 22 |... .XAMPLE:".."| 00001AD0: 72 06 99 22 11 20 D4 48 45 20 50 45 52 43 45 4E |r..". .HE PERCEN| 00001AE0: 54 20 43 4F 4D 50 4F 53 49 54 49 4F 4E 20 4F 46 |T COMPOSITION OF| 00001AF0: 20 4E 49 54 52 49 43 20 41 43 49 44 2E 22 00 19 | NITRIC ACID."..| 00001B00: 23 7C 06 99 22 11 20 C6 4F 52 4D 55 4C 41 2D 20 |#|..". .ORMULA- | 00001B10: 20 20 20 C8 CE CF 20 2E 22 00 32 23 81 06 99 22 | ... .".2#..."| 00001B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B30: 33 22 00 5B 23 86 06 99 22 11 20 CD 5B C8 5D 20 |3".[#...". .[.] | 00001B40: 3D 20 41 54 4F 4D 49 43 20 4D 41 53 53 20 4F 46 |= ATOMIC MASS OF| 00001B50: 20 48 59 44 52 4F 47 45 4E 2E 22 00 84 23 90 06 | HYDROGEN."..#..| 00001B60: 99 22 20 C1 5B C8 5D 20 3D 20 4E 55 4D 42 45 52 |." .[.] = NUMBER| 00001B70: 20 4F 46 20 48 59 44 52 4F 47 45 4E 20 41 54 4F | OF HYDROGEN ATO| 00001B80: 4D 53 2E 22 00 AD 23 9A 06 99 22 11 20 CD 5B CE |MS."..#...". .[.| 00001B90: 5D 20 3D 20 41 54 4F 4D 49 43 20 4D 41 53 53 20 |] = ATOMIC MASS | 00001BA0: 4F 46 20 4E 49 54 52 4F 47 45 4E 2E 22 00 D6 23 |OF NITROGEN."..#| 00001BB0: A4 06 99 22 20 C1 5B CE 5D 20 3D 20 4E 55 4D 42 |..." .[.] = NUMB| 00001BC0: 45 52 20 4F 46 20 4E 49 54 52 4F 47 45 4E 20 41 |ER OF NITROGEN A| 00001BD0: 54 4F 4D 53 2E 22 00 FD 23 AE 06 99 22 11 20 CD |TOMS."..#...". .| 00001BE0: 5B CF 5D 20 3D 20 41 54 4F 4D 49 43 20 4D 41 53 |[.] = ATOMIC MAS| 00001BF0: 53 20 4F 46 20 4F 58 59 47 45 4E 2E 22 00 22 24 |S OF OXYGEN."."$| 00001C00: B8 06 99 22 20 C1 5B CF 5D 20 3D 20 4E 55 4D 42 |..." .[.] = NUMB| 00001C10: 45 52 20 4F 46 20 4F 58 59 47 45 4E 20 41 54 4F |ER OF OXYGEN ATO| 00001C20: 4D 53 00 30 24 C2 06 8D 38 33 35 3A 8D 38 35 30 |MS.0$...835:.850| 00001C30: 00 5E 24 D6 06 99 22 11 11 11 11 11 20 D9 20 3D |.^$..."..... . =| 00001C40: 20 46 4F 52 4D 55 4C 41 20 4D 41 53 53 20 4F 46 | FORMULA MASS OF| 00001C50: 20 4E 49 54 52 49 43 20 41 43 49 44 2E 22 00 90 | NITRIC ACID."..| 00001C60: 24 E0 06 99 22 11 11 20 20 20 3D 20 28 CD 5B C8 |$...".. = (.[.| 00001C70: 5D 2A C1 5B C8 5D 29 2B 28 CD 5B CE 5D 2A C1 5B |]*.[.])+(.[.]*.[| 00001C80: CE 5D 29 2B 28 CD 5B CF 5D 2A C1 5B CF 5D 29 22 |.])+(.[.]*.[.])"| 00001C90: 00 B1 24 EA 06 99 22 11 20 20 20 3D 20 28 31 2A |..$...". = (1*| 00001CA0: 31 29 2B 28 31 34 2A 31 29 2B 28 31 36 2A 33 29 |1)+(14*1)+(16*3)| 00001CB0: 22 00 C2 24 F4 06 99 22 11 11 20 20 20 3D 20 36 |"..$...".. = 6| 00001CC0: 33 22 00 D0 24 FE 06 8D 38 33 35 3A 8D 38 35 30 |3"..$...835:.850| 00001CD0: 00 F8 24 12 07 99 22 11 11 20 D0 45 52 43 45 4E |..$...".. .ERCEN| 00001CE0: 54 20 C8 20 3D 20 28 CD 5B C8 5D 2A C1 5B C8 5D |T . = (.[.]*.[.]| 00001CF0: 2F D9 29 2A 31 30 30 22 00 19 25 1C 07 99 22 20 |/.)*100"..%..." | 00001D00: 20 20 20 20 20 20 20 20 20 20 3D 20 28 31 2A 31 | = (1*1| 00001D10: 2F 36 33 29 2A 31 30 30 22 00 32 25 26 07 99 22 |/63)*100".2%&.."| 00001D20: 20 20 20 20 20 20 20 20 20 20 20 3D 20 31 2E 35 | = 1.5| 00001D30: 39 22 00 5A 25 30 07 99 22 11 11 20 D0 45 52 43 |9".Z%0..".. .ERC| 00001D40: 45 4E 54 20 CE 20 3D 20 28 CD 5B CE 5D 2A C1 5B |ENT . = (.[.]*.[| 00001D50: CE 5D 2F D9 29 2A 31 30 30 22 00 7C 25 3A 07 99 |.]/.)*100".|%:..| 00001D60: 22 20 20 20 20 20 20 20 20 20 20 20 3D 20 28 31 |" = (1| 00001D70: 34 2A 31 2F 36 33 29 2A 31 30 30 22 00 96 25 44 |4*1/63)*100"..%D| 00001D80: 07 99 22 20 20 20 20 20 20 20 20 20 20 20 3D 20 |.." = | 00001D90: 32 32 2E 32 32 22 00 BA 25 4E 07 99 22 11 11 20 |22.22"..%N..".. | 00001DA0: D0 45 52 43 45 4E 54 20 CF 20 3D 20 28 CD 5B CF |.ERCENT . = (.[.| 00001DB0: 5D 2A C1 5B CF 5D 2F D9 29 2A 00 DC 25 58 07 99 |]*.[.]/.)*..%X..| 00001DC0: 22 20 20 20 20 20 20 20 20 20 20 20 3D 20 28 31 |" = (1| 00001DD0: 36 2A 33 2F 36 33 29 2A 31 30 30 22 00 F6 25 62 |6*3/63)*100"..%b| 00001DE0: 07 99 22 20 20 20 20 20 20 20 20 20 20 20 3D 20 |.." = | 00001DF0: 37 36 2E 31 39 22 00 23 26 6C 07 99 22 11 11 20 |76.19".#&l..".. | 00001E00: 20 20 20 20 C4 4F 20 59 4F 55 20 57 41 4E 54 20 | .O YOU WANT | 00001E10: 54 4F 20 44 4F 20 41 20 50 52 4F 42 4C 45 4D 3F |TO DO A PROBLEM?| 00001E20: 20 22 3B 00 41 26 76 07 55 53 24 B2 22 59 48 4E | ";.A&v.US$."YHN| 00001E30: 22 3A 55 4C B2 31 3A 8D 33 35 3A 41 24 B2 55 52 |":UL.1:.35:A$.UR| 00001E40: 24 00 52 26 80 07 8B 41 24 B2 22 4E 22 A7 32 31 |$.R&...A$."N".21| 00001E50: 39 30 00 62 26 8A 07 43 4F B2 AB 31 3A 89 31 39 |90.b&..CO..1:.19| 00001E60: 36 30 00 73 26 94 07 8B 20 41 B2 30 20 A7 20 32 |60.s&... A.0 . 2| 00001E70: 31 39 30 00 85 26 9E 07 8B 20 41 B3 B1 31 20 A7 |190..&... A..1 .| 00001E80: 20 31 39 31 30 00 9F 26 A8 07 55 47 24 B2 22 D0 | 1910..&..UG$.".| 00001E90: 52 4F 42 4C 45 4D 22 3A 55 50 B2 43 4F AA 31 00 |ROBLEM":UP.CO.1.| 00001EA0: AC 26 AD 07 8D 38 35 30 3A 59 B2 30 00 E2 26 B2 |.&...850:Y.0..&.| 00001EB0: 07 99 22 11 11 11 11 11 11 11 11 11 11 20 20 20 |..".......... | 00001EC0: D7 48 41 54 20 49 53 20 54 48 45 20 4E 55 4D 42 |.HAT IS THE NUMB| 00001ED0: 45 52 20 4F 46 20 45 4C 45 4D 45 4E 54 53 20 49 |ER OF ELEMENTS I| 00001EE0: 4E 22 00 21 27 BC 07 99 20 22 11 20 20 20 54 48 |N".!'... ". TH| 00001EF0: 45 20 46 4F 52 4D 55 4C 41 3F 20 28 32 2D 35 29 |E FORMULA? (2-5)| 00001F00: 20 22 3B 3A 55 53 24 B2 22 32 33 34 35 48 22 3A | ";:US$."2345H":| 00001F10: 55 4C B2 31 3A 8D 33 35 3A 4A B2 C5 28 55 52 24 |UL.1:.35:J..(UR$| 00001F20: 29 00 55 27 C6 07 8B 20 4A B1 35 A7 20 99 22 11 |).U'... J.5. .".| 00001F30: 20 CD 41 58 49 4D 55 4D 20 4F 46 20 35 20 45 4C | .AXIMUM OF 5 EL| 00001F40: 45 4D 45 4E 54 53 20 50 4C 45 41 53 45 21 22 3A |EMENTS PLEASE!":| 00001F50: 89 31 39 37 30 00 8A 27 D0 07 8B 20 4A B3 32 20 |.1970..'... J.2 | 00001F60: A7 20 99 22 11 20 D3 45 4E 53 49 42 4C 45 20 41 |. .". .ENSIBLE A| 00001F70: 4E 53 57 45 52 53 20 4F 4E 4C 59 20 50 4C 45 41 |NSWERS ONLY PLEA| 00001F80: 53 45 2E 22 3A 89 31 39 37 30 00 CB 27 DA 07 8B |SE.":.1970..'...| 00001F90: 20 4A B3 B1 B5 28 4A 29 20 A7 20 99 22 11 20 C9 | J...(J) . .". .| 00001FA0: 54 20 4D 55 53 54 20 42 45 20 41 20 57 48 4F 4C |T MUST BE A WHOL| 00001FB0: 45 20 4E 55 4D 42 45 52 20 4F 46 20 45 4C 45 4D |E NUMBER OF ELEM| 00001FC0: 45 4E 54 53 22 3A 89 31 39 37 30 00 D9 27 E4 07 |ENTS":.1970..'..| 00001FD0: 81 20 4E B2 31 20 A4 20 4A 00 EA 27 E9 07 55 50 |. N.1 . J..'..UP| 00001FE0: B2 55 50 AB 31 3A 8D 38 35 30 00 05 28 EE 07 99 |.UP.1:.850..(...| 00001FF0: 22 11 11 11 11 11 11 20 20 20 C5 4C 45 4D 45 4E |"...... .LEMEN| 00002000: 54 20 22 3B 4E 00 4A 28 F8 07 99 20 22 11 20 20 |T ";N.J(... ". | 00002010: 20 C1 54 4F 4D 49 43 20 4D 41 53 53 20 3D 20 22 | .TOMIC MASS = "| 00002020: 3B 3A 55 53 24 B2 22 2E 30 31 32 33 34 35 36 37 |;:US$.".01234567| 00002030: 38 39 48 22 3A 55 4C B2 31 30 3A 8D 33 35 3A 4D |89H":UL.10:.35:M| 00002040: 28 4E 29 B2 C5 28 55 52 24 29 00 79 28 02 08 99 |(N)..(UR$).y(...| 00002050: 22 11 20 20 20 CE 55 4D 42 45 52 20 4F 46 20 41 |". .UMBER OF A| 00002060: 54 4F 4D 53 20 3D 20 22 3B 3A 8D 33 35 3A 41 28 |TOMS = ";:.35:A(| 00002070: 4E 29 B2 C5 28 55 52 24 29 00 8B 28 0C 08 59 B2 |N)..(UR$)..(..Y.| 00002080: 59 AA 4D 28 4E 29 AC 41 28 4E 29 00 91 28 16 08 |Y.M(N).A(N)..(..| 00002090: 82 00 AF 28 1B 08 55 47 24 B2 22 D2 45 53 55 4C |...(..UG$.".ESUL| 000020A0: 54 22 3A 55 50 B2 55 50 AB 31 3A 8D 38 35 30 00 |T":UP.UP.1:.850.| 000020B0: CA 28 20 08 99 22 11 20 C6 4F 52 4D 55 4C 41 20 |.( ..". .ORMULA | 000020C0: 4D 41 53 53 20 3D 20 22 3B 59 00 F9 28 2A 08 99 |MASS = ";Y..(*..| 000020D0: 22 11 11 20 C1 54 2E CD 41 53 53 20 20 20 20 20 |".. .T..ASS | 000020E0: CE 4F 20 4F 46 20 41 54 4F 4D 53 20 20 20 20 20 |.O OF ATOMS | 000020F0: 20 25 20 C3 4F 4D 50 2E 22 00 02 29 34 08 99 22 | % .OMP."..)4.."| 00002100: 11 22 00 0D 29 3E 08 81 4E B2 31 A4 4A 00 44 29 |."..)>..N.1.J.D)| 00002110: 48 08 99 4D 28 4E 29 3B A3 31 35 29 41 28 4E 29 |H..M(N);.15)A(N)| 00002120: 3B A3 32 38 29 B5 28 28 4D 28 4E 29 AC 41 28 4E |;.28).((M(N).A(N| 00002130: 29 AD 59 AC 31 30 30 29 AC 31 30 30 AA 2E 35 29 |).Y.100).100..5)| 00002140: AD 31 30 30 00 4A 29 52 08 99 00 50 29 5C 08 82 |.100.J)R...P)\..| 00002150: 00 8F 29 66 08 99 22 20 20 20 20 20 C4 4F 20 59 |..)f.." .O Y| 00002160: 4F 55 20 57 41 4E 54 20 54 4F 20 44 4F 20 41 4E |OU WANT TO DO AN| 00002170: 4F 54 48 45 52 22 3A 99 22 11 20 20 20 20 20 43 |OTHER":.". C| 00002180: 41 4C 43 55 4C 41 54 49 4F 4E 20 3F 20 22 3B 00 |ALCULATION ? ";.| 00002190: AD 29 70 08 55 53 24 B2 22 59 48 4E 22 3A 55 4C |.)p.US$."YHN":UL| 000021A0: B2 31 3A 8D 33 35 3A 41 24 B2 55 52 24 00 BE 29 |.1:.35:A$.UR$..)| 000021B0: 7A 08 8B 41 24 B2 22 4E 22 A7 32 31 39 30 00 D0 |z..A$."N".2190..| 000021C0: 29 84 08 43 4F B2 43 4F AA 31 3A 89 31 39 36 30 |)..CO.CO.1:.1960| 000021D0: 00 D6 29 8E 08 8E 00 00 00 |..)...... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:.Z...:...#.. +++ INPUT SECTI
ON +++...(.UR$."":UI$.""...*..UL.0.UL.80
.+.-.." ..";:.UC,0.?.2..UI$:.UI$."".50.
I.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.8
5.|.<..UI$.G(20).105...>.. C(UR$)..UL.50
...A..120:. CHECK FOR VALID CHARACTER.E.
F.UR$.UR$.UI$.O.K..UI$;.W.P..50...U.. ++
+ CHECK FOR HELP REQUEST +++.$.Z..UR$.UX
$.195:. EXIT TO HELP ROUTINE.3._..UF.1..
240.@.D.UF.0:.:..Y.F.. ++ CHECK DELETE +
+.J.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).
1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.M.}..C(US$).0.150...
...US.1.C(US$)......UI$.J(US$,US,1).....
........UI$."":..#.... ** STANDARD INPUT
**.4....F(UI$).46...E....UI$.G(32)...B.
..F(UI$).48.F(UI$).57.170.H..........F(
UI$).65.F(UI$).90.180............F(UI$).
193.F(UI$).218.UI$."":..R....B(UT).UL%.U
I$.G(F(UI$).128):..X.........UI$."":....
C.UF.1:. +++ HELP ROUTINE EXIT +++...E..
250...H..245.;.M..UQ.UB.(U2%.256.U1%.U3%
.2).W.R.UQ%(UQ.UB).B(UQ):.:.".".J.W.UZ.1
:UV%.B(UT).S.X..300...Y.UZ.0:US$.UJ$:UG$
.UK$:UP.UJ:UL.UK.O.Z..B(50003).0..53281,
1:.".";:.53281,6:.53280,14:.220.Y...."."
;.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1
%.U3%.3)......UQ,UQ%(UQ.UB):..)....U1,U1
%.5....U2,U2%.A....U4,U4%.O....U3,U3%.1.
W....35.....UD%.((U2%.256.U1%.U3%).UB).4
0:.H(UD$,UD%.1):..D....H(UD$,24);"
. HELP COMING . ":.....
.U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4)
.....UJ$.US$:UJ.UL."...UJ$.US$:UK$.UG$:U
J.UP:UK.UL.(.....9.,.. ** MENU **.?.-.:.
N....".":.UT,UU%:.B(50003).0..53281,9:.5
3280,8.T./.:...1..". MENU
"...6.." -------------------------------
-------"...;..".. 1. PERCENT COM
POSITION"...@..".. 2. STUDENT IN
STRUCTIONS".=.E..".. 3. TEACHER
INSTRUCTIONS".Y.O..".. 4. QUIT..
"...T.." -------------------------------
-------"...Y..".. PRESS A NUMBER K
EY (1-4) ";...^.UL.1:US$."1234":.35:. IN
PUT ROUTINE..._.: .C(UR$).1.300...`.US$
.""...C..E(UR$).1000,400,500,396.!.H..30
0.H.... ** RE-ENABLE STOP KEY AND END **
.W....B(50003)..1.B(50003)..160.B(50003)
..0.399......UU.71:.B(50003).0..53281,6:
.53280,14......"..":.......875:..Y.... *
* STUDENT INSTRUCTIONS **......".":.UT,U
L%:.B(50003).0..53281,0:.53280,0.)...UP.
0:UG$."STUDENT INST":.850.V...."......
THIS PROGRAM WILL CALCULATE"......"
PERCENT COMPOSITION BY MASS OF A"... .."
COMPOUND CONTAINING BETWEEN TWO".X...
." AND FIVE ELEMENTS. IT IS SUGGESTED"
......" THAT YOU USE ACTUAL FIGURES.".
E....".. THE SAMPLE CALCULATION WILL"
:." SHOW HOW THIS IS DONE.".S....835:.
850.....: .".... REMEMBER TO HIT <RE
TURN> AFTER".....: ." TYPING YOUR ANS
WER. THIS TELLS".....: ." THE COMPUTE
R TO ACCEPT WHAT YOU".....: ." HAVE T
YPED. YOU CAN ERASE ERRORS".1...: ."
WITH THE <INST/DEL> KEY."._...: .".
TYPE <H> AT ANY TIME TO RETURN".....: .
" TO THE MENU FOR HELP. YOU WILL"....
.: ." BE RETURNED TO THE PLACE IN THE
".....: ." PROGRAM WHERE YOU LEFT OFF
AS".....: ." SOON AS THE OPTION FROM
THE MENU".,...: ." IS COMPLETE.".5..
..835.I....UZ.1..UP%:.217.O.....P.... **
TEACHER INSTRUCTIONS **. ....".":.UT,UL
%:.B(50003).0..53281,2:.53280,10.B...UP.
0:UG$."TEACHER INST.":.850......"..
TO THE BEST OF OUR KNOWLEDGE,."......"
THIS PROGRAM IS IN THE PUBLIC.".E...."
DOMAIN. IF THIS IS NOT THE CASE.".B.
..." PLEASE CONTACT:..."......" C
OMMODORE BUSINESS MACHINES."......"
3370 PHARMACY AVE..S...."
AGINCOURT, ONTARIO"......" CANA
DA M1W 2K4"......" (416) 499-
4292".+...UP.1:. 835:. 850:.O...." .
.PROGRAM NAME: PERCENT..S...." WRITT
EN BY : R.J. LAMB......." UPGRADED
BY : DEREK LEE..B...." .THIS PROGRAM
WILL RUN ON ANY........" PET 64
COMPUTER......" COMMODORE 64 CO
MPUTER......835.#.N..UZ.1..UP%:.217.).W.
..O.X.. ** PROGRAM MODIFICATION INST **.
`.Y..".":.UT,UL%...].UP.0:UG$."PROGRAM M
OD":.850......835......UZ.1..UP%:.217...
....H.... ** TO USE 8032 LOAD CBM4032 **
...F..".....BEFORE RUNNING THIS PROGRAM
ON AN 8032 ...4.P.." LOAD THE 'CBM
4032' PROGRAM.............".?.Z..UU.71.
E.....E. .. ** T I T L E P A G E **...
".."....";:.UT,UU%:.B(50003).0..53280,14
:.53281,6...$..I.1.38:."...";:..G.&..I.1
.22:.".....";:....(..I.1.37:.".....";:..
..*..I.1.22:.".....";:....,.."..........
................. ..>....".............
...... . . ..._.0.."...................
. ....}.2..".................... ....
4.."..............C O M M O D O R E...H.
6.."...............EDUCATIONAL.....8..".
...............SOFTWARE...:.. ** COMMODO
RE LOGO **.:.;..H(UD$,24);"..........PRE
SS SPACE BAR OR WAIT.":I.0.\.<..A$:.A$..
" ".I.I.1:.I.250.828...>.T1$."":T2$."":T
3$."":T4$."":I.0...@..300...C.. ** SPACE
BAR PRESS **.Z.H..H(UD$,24);".......PRE
SS SPACE BAR TO CONTINUE."...L..UI$:.UI$
.." ".844...N.....R.. ** PAGE DESIGN ROU
TINE **.#.T.UP.UP.1.J.W.."."H(UT$.UP$,21
);H(UG$.UP$,14);UP.Y.\.." --------------
------------------------"...A..H(UD$,24)
;H(UP$,6);"HELP - PRESS H <RETURN>"...
F.."..":..X.K.. ** PLEASE WAIT REMARK **
...P..H(UD$,24);" ONE MOMENT P
LEASE... "...U...1.... ** SET UP VAR
IABLES **.|...UX$."H":.UQ%(1000):UB.3276
8:U1.196:U2.197:U3.198:U4.216:UC.167:UU.
1024.....UT.59468:UU%.12:UL%.14:UP%.1146
:UM.32768:. 50003,0......B(50003).0.UB.1
024:U1.209:U2.210:U3.211:U4.214:UC.204:U
U.2048......B(50003).0.UT.53272:UU%.21:U
L%.23:UP%.2139:UM.1024.R...UD$."........
.................".....UP$."
".K...: UT$.
" PERCENT":. PLACE PROGRAM TITLE HERE!!!
!!!!!!!!!!!!!!!!***.Q.......... ** SET V
ARIABLES **......900...... ** CHECK FOR
8032 **.-....".":." ":. SHIFTED SPACE.D.
...B(UB.40)..96..700.].... ** MEMORY CHE
CK **.Q.... .(0).2000.937......"....THIS
MACHINE DOES NOT HAVE ENOUGH.".C...."ME
MORY TO RUN THIS PROGRAM !".N....UU.71.T
.........."..":.B(50003).0.962...... **
BASIC 2.0 OR 4.0 OR C-64 SETUP **.[.
...1075,133:.1076,144:.1077,234:.1079,4:
.1080,133:.1081,145......1091,155:.1098,
133:.1099,144:.1100,234:.1103,133......1
104,145:.1105,234:.1082,234.J....B(50003
)..160.955......1093,88:.1094,228:.1097,
85:.1102,228:.965.. ...B(50003)..1.990.=
...1093,49:.1094,230:.1097,46:.1102,230
:.965.W 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..!E..UU.48:. DISAB
LE STOP KEY..!J..800:. TITLE.,!T..300:.
MENU.]!...".THE PGM WILL NOT WORK ON THI
S MACHINE!":...!...UZ.1..UP%:.UP%:UZ.0:.
** PROGRAM STARTS HERE **..!..."..";:.:
.B(50003).0..53281,6:.53280,14.Z!... PER
CENT,R.J.LAMB.1980..!...".":.UT,UL%.."..
UG$." ":UP.0:.850.U"6.."...
.... DO YOU WISH TO SEE A SAMPLE":."
. CALCULATION? ";.S"@.US$."YHN":UL.1
:.35:A$.UR$.."J.. A$."N". 1900.."T..1640
.."^.. A..1 . 1600.M"H.UG$."SAMPLE":UP.0
:.850:."... EXAMPLE:".."R..". THE PERCEN
T COMPOSITION OF NITRIC ACID."..#|..". F
ORMULA- HNO .".2#..."
3".[#...". M[H] = ATOMIC MASS OF HYDROGE
N."..#..." A[H] = NUMBER OF HYDROGEN ATO
MS."..#...". M[N] = ATOMIC MASS OF NITRO
GEN.".V#..." A[N] = NUMBER OF NITROGEN A
TOMS."..#...". M[O] = ATOMIC MASS OF OXY
GEN."."$..." A[O] = NUMBER OF OXYGEN ATO
MS.0$B..835:.850.^$V.."..... Y = FORMULA
MASS OF NITRIC ACID."..$...".. = (M[H
]*A[H])+(M[N]*A[N])+(M[O]*A[O])"..$...".
= (1*1)+(14*1)+(16*3)".B$...".. = 6
3".P$...835:.850..$...".. PERCENT H = (M
[H]*A[H]/Y)*100"..%..." = (1*1
/63)*100".2%&.." = 1.59".Z%0..
".. PERCENT N = (M[N]*A[N]/Y)*100".|%:..
" = (14*1/63)*100"..%D.."
= 22.22"..%N..".. PERCENT O = (M[O
]*A[O]/Y)*..%X.." = (16*3/63)*
100"..%B.." = 76.19".#&L.."..
DO YOU WANT TO DO A PROBLEM? ";.A&V.
US$."YHN":UL.1:.35:A$.UR$.R&...A$."N".21
90.B&..CO..1:.1960.S&... A.0 . 2190..&..
. A..1 . 1910..&..UG$."PROBLEM":UP.CO.1.
.&...850:Y.0..&...".......... WHAT IS
THE NUMBER OF ELEMENTS IN".!'... ". TH
E FORMULA? (2-5) ";:US$."2345H":UL.1:.35
:J.E(UR$).U'F.. J.5. .". MAXIMUM OF 5 EL
EMENTS PLEASE!":.1970..'P.. J.2 . .". SE
NSIBLE ANSWERS ONLY PLEASE.":.1970.K'Z..
J...(J) . .". IT MUST BE A WHOLE NUMBER
OF ELEMENTS":.1970.Y'... N.1 . J..'..UP
.UP.1:.850..(..."...... ELEMENT ";N.J(
... ". ATOMIC MASS = ";:US$.".01234567
89H":UL.10:.35:M(N).E(UR$).Y(...". NUM
BER OF ATOMS = ";:.35:A(N).E(UR$)..(..Y.
Y.M(N).A(N)..(.....(..UG$."RESULT":UP.UP
.1:.850.J( ..". FORMULA MASS = ";Y..(*..
".. AT.MASS NO OF ATOMS % COMP.
"..)4.."."..)>..N.1.J.D)H..M(N);.15)A(N)
;.28).((M(N).A(N).Y.100).100..5).100.J)R
...P)\....)F.." DO YOU WANT TO DO AN
OTHER":.". CALCULATION ? ";..)P.US$.
"YHN":UL.1:.35:A$.UR$..)Z..A$."N".2190.P
)..CO.CO.1:.1960.V)......
> CLICK IMAGE PREVIEW FOR FULL MODAL