BASE CONV.ALT

00000000: 01 08 3D 08 64 00 86 4E  24 28 34 35 29 2C 4E 28  |..=.d..N$(45),N(|
00000010: 34 35 29 2C 50 53 24 28  34 30 29 3A 81 49 B2 31  |45),PS$(40):.I.1|
00000020: A4 34 30 3A 4E 24 B2 4E  24 AA C7 28 33 32 29 3A  |.40:N$.N$..(32):|
00000030: 53 24 B2 53 24 AA C7 28  33 32 29 3A 82 00 5A 08  |S$.S$..(32):..Z.|
00000040: 6E 00 81 49 B2 31 A4 34  30 3A 50 53 24 28 49 29  |n..I.1.40:PS$(I)|
00000050: B2 C8 28 53 24 2C 49 29  3A 82 00 88 08 78 00 99  |..(S$,I):....x..|
00000060: 3A 99 22 54 48 49 53 20  50 52 4F 47 52 41 4D 20  |:."THIS PROGRAM |
00000070: 57 49 4C 4C 20 41 43 43  45 50 54 20 4E 4F 54 41  |WILL ACCEPT NOTA|
00000080: 54 49 4F 4E 53 20 49 4E  00 A3 08 7A 00 99 3A 99  |TIONS IN...z..:.|
00000090: 22 31 30 31 20 52 4F 4D  41 4E 20 4E 55 4D 45 52  |"101 ROMAN NUMER|
000000A0: 41 4C 53 00 B5 08 7C 00  99 22 31 30 32 20 44 45  |ALS...|.."102 DE|
000000B0: 43 49 4D 41 4C 00 CB 08  7E 00 99 22 31 30 33 20  |CIMAL...~.."103 |
000000C0: 48 45 58 49 44 45 43 49  4D 41 4C 00 DC 08 80 00  |HEXIDECIMAL.....|
000000D0: 99 22 31 30 34 20 42 49  4E 41 52 59 00 FB 08 82  |."104 BINARY....|
000000E0: 00 99 22 31 30 35 20 42  49 4E 41 52 59 20 43 4F  |.."105 BINARY CO|
000000F0: 44 45 44 20 44 45 43 49  4D 41 4C 00 35 09 84 00  |DED DECIMAL.5...|
00000100: 99 3A 99 22 41 4E 44 20  50 52 4F 44 55 43 45 20  |.:."AND PRODUCE |
00000110: 54 48 45 20 45 51 55 49  56 41 4C 45 4E 54 53 20  |THE EQUIVALENTS |
00000120: 49 4E 20 41 4C 4C 20 46  49 56 45 20 4E 4F 54 41  |IN ALL FIVE NOTA|
00000130: 54 49 4F 4E 53 00 5C 09  87 00 99 3A 85 22 50 49  |TIONS.\....:."PI|
00000140: 43 4B 20 41 20 4E 55 4D  42 45 52 1D 1D 3F 9D 9D  |CK A NUMBER..?..|
00000150: 9D 22 3B 47 3A 47 B2 47  AB 31 30 30 00 72 09 88  |.";G:G.G.100.r..|
00000160: 00 8B 20 47 B3 31 20 B0  20 47 B1 35 20 A7 20 31  |.. G.1 . G.5 . 1|
00000170: 33 35 00 91 09 8C 00 91  47 89 31 38 30 2C 31 35  |35......G.180,15|
00000180: 30 30 2C 32 30 30 30 2C  32 35 30 30 2C 33 30 30  |00,2000,2500,300|
00000190: 30 00 C6 09 B4 00 8D 34  31 30 3A 99 22 20 44 45  |0......410:." DE|
000001A0: 43 49 4D 41 4C 20 22 41  3A 50 52 24 28 32 29 B2  |CIMAL "A:PR$(2).|
000001B0: 22 44 45 43 49 4D 41 4C  20 20 22 AA C4 28 41 29  |"DECIMAL  "..(A)|
000001C0: 3A 89 31 35 31 35 00 F4  09 9A 01 85 22 45 4E 54  |:.1515......"ENT|
000001D0: 45 52 20 52 4F 4D 41 4E  20 4E 55 4D 45 52 41 4C  |ER ROMAN NUMERAL|
000001E0: 1D 1D 3F 9D 9D 9D 22 3B  4E 24 3A 8B 4E 24 B2 22  |..?...";N$:.N$."|
000001F0: 3D 22 A7 8E 00 26 0A A4  01 4E 24 B2 4E 24 AA 50  |="...&...N$.N$.P|
00000200: 53 24 28 34 30 AB C3 28  4E 24 29 29 3A 81 49 B2  |S$(40..(N$)):.I.|
00000210: 31 A4 34 30 3A 4E 24 28  49 29 B2 CA 28 4E 24 2C  |1.40:N$(I)..(N$,|
00000220: 49 2C 31 29 3A 82 00 47  0A AE 01 81 49 B2 31 A4  |I,1):..G....I.1.|
00000230: 34 30 3A 4E 28 49 29 B2  30 3A 82 3A 41 B2 30 3A  |40:N(I).0:.:A.0:|
00000240: 50 B2 C3 28 4E 24 29 00  6A 0A B8 01 81 50 31 B2  |P..(N$).j....P1.|
00000250: 50 A4 31 A9 AB 31 3A 8B  CA 28 4E 24 2C 50 31 2C  |P.1..1:..(N$,P1,|
00000260: 31 29 B2 22 2F 22 A7 34  35 35 00 73 0A C2 01 8D  |1)."/".455.s....|
00000270: 35 31 30 00 7B 0A C7 01  82 50 31 00 AB 0A CC 01  |510.{....P1.....|
00000280: 41 B2 4E 28 50 29 3A 81  50 31 B2 50 AB 31 A4 31  |A.N(P):.P1.P.1.1|
00000290: A9 AB 31 3A 8B 4E 28 50  31 AA 31 29 B2 30 A7 50  |..1:.N(P1.1).0.P|
000002A0: 32 B2 50 31 AA 32 3A 89  34 38 30 00 B7 0A D6 01  |2.P1.2:.480.....|
000002B0: 50 32 B2 50 31 AA 31 00  D8 0A E0 01 8B 4E 28 50  |P2.P1.1......N(P|
000002C0: 31 29 B2 B1 4E 28 50 32  29 A7 41 B2 41 AA 4E 28  |1)..N(P2).A.A.N(|
000002D0: 50 31 29 3A 89 35 30 30  00 E6 0A EA 01 41 B2 41  |P1):.500.....A.A|
000002E0: AB 4E 28 50 31 29 00 F0  0A F4 01 82 50 31 3A 8E  |.N(P1)......P1:.|
000002F0: 00 08 0B FE 01 8B 4E 24  28 50 31 29 B2 22 49 22  |......N$(P1)."I"|
00000300: A7 4E 28 50 31 29 B2 31  00 20 0B 08 02 8B 4E 24  |.N(P1).1. ....N$|
00000310: 28 50 31 29 B2 22 56 22  A7 4E 28 50 31 29 B2 35  |(P1)."V".N(P1).5|
00000320: 00 39 0B 12 02 8B 4E 24  28 50 31 29 B2 22 58 22  |.9....N$(P1)."X"|
00000330: A7 4E 28 50 31 29 B2 31  30 00 52 0B 1C 02 8B 4E  |.N(P1).10.R....N|
00000340: 24 28 50 31 29 B2 22 4C  22 A7 4E 28 50 31 29 B2  |$(P1)."L".N(P1).|
00000350: 35 30 00 6C 0B 26 02 8B  4E 24 28 50 31 29 B2 22  |50.l.&..N$(P1)."|
00000360: 43 22 A7 4E 28 50 31 29  B2 31 30 30 00 86 0B 30  |C".N(P1).100...0|
00000370: 02 8B 4E 24 28 50 31 29  B2 22 44 22 A7 4E 28 50  |..N$(P1)."D".N(P|
00000380: 31 29 B2 35 30 30 00 A1  0B 3A 02 8B 4E 24 28 50  |1).500...:..N$(P|
00000390: 31 29 B2 22 4D 22 A7 4E  28 50 31 29 B2 31 30 30  |1)."M".N(P1).100|
000003A0: 30 00 AD 0B 44 02 8B 50  31 B2 31 A7 8E 00 D0 0B  |0...D..P1.1.....|
000003B0: 4E 02 8B 4E 24 28 50 31  AB 31 29 B2 22 2F 22 A7  |N..N$(P1.1)."/".|
000003C0: 4E 28 50 31 29 B2 4E 28  50 31 29 AC 31 30 30 30  |N(P1).N(P1).1000|
000003D0: 00 D6 0B 58 02 8E 00 F4  0B 62 02 81 49 B2 31 A4  |...X.....b..I.1.|
000003E0: 34 30 3A 4E 24 B2 4E 24  AA C7 28 33 32 29 3A 82  |40:N$.N$..(32):.|
000003F0: 3A 50 B2 31 00 09 0C 6C  02 8B 41 AD 31 30 30 30  |:P.1...l..A.1000|
00000400: 30 30 30 B3 31 A7 36 34  30 00 3A 0C 76 02 4E 24  |000.1.640.:.v.N$|
00000410: 28 50 29 B2 22 2F 22 3A  4E 24 28 50 AA 31 29 B2  |(P)."/":N$(P.1).|
00000420: 22 4D 22 3A 41 B2 41 AB  31 30 30 30 30 30 30 3A  |"M":A.A.1000000:|
00000430: 50 B2 50 AA 32 3A 89 36  32 30 00 4E 0C 80 02 8B  |P.P.2:.620.N....|
00000440: 41 AD 39 30 30 30 30 30  B3 31 A7 36 36 30 00 91  |A.900000.1.660..|
00000450: 0C 8A 02 4E 24 28 50 29  B2 22 2F 22 3A 4E 24 28  |...N$(P)."/":N$(|
00000460: 50 AA 31 29 B2 22 43 22  3A 4E 24 28 50 AA 32 29  |P.1)."C":N$(P.2)|
00000470: B2 22 2F 22 3A 4E 24 28  50 AA 33 29 B2 22 4D 22  |."/":N$(P.3)."M"|
00000480: 3A 41 B2 41 AB 39 30 30  30 30 30 3A 50 B2 50 AA  |:A.A.900000:P.P.|
00000490: 34 00 A5 0C 94 02 8B 41  AD 35 30 30 30 30 30 B3  |4......A.500000.|
000004A0: 31 A7 36 38 30 00 D0 0C  9E 02 4E 24 28 50 29 B2  |1.680.....N$(P).|
000004B0: 22 2F 22 3A 4E 24 28 50  AA 31 29 B2 22 44 22 3A  |"/":N$(P.1)."D":|
000004C0: 41 B2 41 AB 35 30 30 30  30 30 3A 50 B2 50 AA 32  |A.A.500000:P.P.2|
000004D0: 00 E4 0C A8 02 8B 41 AD  34 30 30 30 30 30 B3 31  |......A.400000.1|
000004E0: A7 37 30 30 00 27 0D B2  02 4E 24 28 50 29 B2 22  |.700.'...N$(P)."|
000004F0: 2F 22 3A 4E 24 28 50 AA  31 29 B2 22 43 22 3A 4E  |/":N$(P.1)."C":N|
00000500: 24 28 50 AA 32 29 B2 22  2F 22 3A 4E 24 28 50 AA  |$(P.2)."/":N$(P.|
00000510: 33 29 B2 22 44 22 3A 41  B2 41 AB 34 30 30 30 30  |3)."D":A.A.40000|
00000520: 30 3A 50 B2 50 AA 34 00  3B 0D BC 02 8B 41 AD 31  |0:P.P.4.;....A.1|
00000530: 30 30 30 30 30 B3 31 A7  37 32 30 00 6B 0D C6 02  |00000.1.720.k...|
00000540: 4E 24 28 50 29 B2 22 2F  22 3A 4E 24 28 50 AA 31  |N$(P)."/":N$(P.1|
00000550: 29 B2 22 43 22 3A 41 B2  41 AB 31 30 30 30 30 30  |)."C":A.A.100000|
00000560: 3A 50 B2 50 AA 32 3A 89  37 30 30 00 7E 0D D0 02  |:P.P.2:.700.~...|
00000570: 8B 41 AD 39 30 30 30 30  B3 31 A7 37 34 30 00 C0  |.A.90000.1.740..|
00000580: 0D DA 02 4E 24 28 50 29  B2 22 2F 22 3A 4E 24 28  |...N$(P)."/":N$(|
00000590: 50 AA 31 29 B2 22 58 22  3A 4E 24 28 50 AA 32 29  |P.1)."X":N$(P.2)|
000005A0: B2 22 2F 22 3A 4E 24 28  50 AA 33 29 B2 22 43 22  |."/":N$(P.3)."C"|
000005B0: 3A 41 B2 41 AB 39 30 30  30 30 3A 50 B2 50 AA 34  |:A.A.90000:P.P.4|
000005C0: 00 D3 0D E4 02 8B 41 AD  35 30 30 30 30 B3 31 A7  |......A.50000.1.|
000005D0: 37 36 30 00 FD 0D EE 02  4E 24 28 50 29 B2 22 2F  |760.....N$(P)."/|
000005E0: 22 3A 4E 24 28 50 AA 31  29 B2 22 4C 22 3A 41 B2  |":N$(P.1)."L":A.|
000005F0: 41 AB 35 30 30 30 30 3A  50 B2 50 AA 32 00 10 0E  |A.50000:P.P.2...|
00000600: F8 02 8B 41 AD 34 30 30  30 30 B3 31 A7 37 38 30  |...A.40000.1.780|
00000610: 00 52 0E 02 03 4E 24 28  50 29 B2 22 2F 22 3A 4E  |.R...N$(P)."/":N|
00000620: 24 28 50 AA 31 29 B2 22  58 22 3A 4E 24 28 50 AA  |$(P.1)."X":N$(P.|
00000630: 32 29 B2 22 2F 22 3A 4E  24 28 50 AA 33 29 B2 22  |2)."/":N$(P.3)."|
00000640: 4C 22 3A 41 B2 41 AB 34  30 30 30 30 3A 50 B2 50  |L":A.A.40000:P.P|
00000650: AA 34 00 65 0E 0C 03 8B  41 AD 31 30 30 30 30 B3  |.4.e....A.10000.|
00000660: 31 A7 38 30 30 00 94 0E  16 03 4E 24 28 50 29 B2  |1.800.....N$(P).|
00000670: 22 2F 22 3A 4E 24 28 50  AA 31 29 B2 22 58 22 3A  |"/":N$(P.1)."X":|
00000680: 41 B2 41 AB 31 30 30 30  30 3A 50 B2 50 AA 32 3A  |A.A.10000:P.P.2:|
00000690: 89 37 38 30 00 A6 0E 20  03 8B 41 AD 39 30 30 30  |.780... ..A.9000|
000006A0: B3 31 A7 38 32 30 00 CF  0E 2A 03 4E 24 28 50 29  |.1.820...*.N$(P)|
000006B0: B2 22 4D 22 3A 4E 24 28  50 AA 31 29 B2 22 2F 22  |."M":N$(P.1)."/"|
000006C0: 3A 41 B2 41 AB 39 30 30  30 3A 50 B2 50 AA 33 00  |:A.A.9000:P.P.3.|
000006D0: E1 0E 34 03 8B 41 AD 35  30 30 30 B3 31 A7 38 34  |..4..A.5000.1.84|
000006E0: 30 00 0A 0F 3E 03 4E 24  28 50 29 B2 22 2F 22 3A  |0...>.N$(P)."/":|
000006F0: 4E 24 28 50 AA 31 29 B2  22 56 22 3A 41 B2 41 AB  |N$(P.1)."V":A.A.|
00000700: 35 30 30 30 3A 50 B2 50  AA 32 00 1C 0F 48 03 8B  |5000:P.P.2...H..|
00000710: 41 AD 34 30 30 30 B3 31  A7 38 36 30 00 51 0F 52  |A.4000.1.860.Q.R|
00000720: 03 4E 24 28 50 29 B2 22  4D 22 3A 4E 24 28 50 AA  |.N$(P)."M":N$(P.|
00000730: 31 29 B2 22 2F 22 3A 4E  24 28 50 AA 32 29 B2 22  |1)."/":N$(P.2)."|
00000740: 56 22 3A 41 B2 41 AB 34  30 30 30 3A 50 B2 50 AA  |V":A.A.4000:P.P.|
00000750: 33 00 63 0F 5C 03 8B 41  AD 31 30 30 30 B3 31 A7  |3.c.\..A.1000.1.|
00000760: 38 38 30 00 85 0F 66 03  4E 24 28 50 29 B2 22 4D  |880...f.N$(P)."M|
00000770: 22 3A 41 B2 41 AB 31 30  30 30 3A 50 B2 50 AA 31  |":A.A.1000:P.P.1|
00000780: 3A 89 38 36 30 00 96 0F  70 03 8B 41 AD 39 30 30  |:.860...p..A.900|
00000790: B3 31 A7 39 30 30 00 BE  0F 7A 03 4E 24 28 50 29  |.1.900...z.N$(P)|
000007A0: B2 22 43 22 3A 4E 24 28  50 AA 31 29 B2 22 4D 22  |."C":N$(P.1)."M"|
000007B0: 3A 41 B2 41 AB 39 30 30  3A 50 B2 50 AA 32 00 CF  |:A.A.900:P.P.2..|
000007C0: 0F 84 03 8B 41 AD 35 30  30 B3 31 A7 39 32 30 00  |....A.500.1.920.|
000007D0: EB 0F 8E 03 4E 24 28 50  29 B2 22 44 22 3A 41 B2  |....N$(P)."D":A.|
000007E0: 41 AB 35 30 30 3A 50 B2  50 AA 31 00 FC 0F 98 03  |A.500:P.P.1.....|
000007F0: 8B 41 AD 34 30 30 B3 31  A7 39 34 30 00 24 10 A2  |.A.400.1.940.$..|
00000800: 03 4E 24 28 50 29 B2 22  43 22 3A 4E 24 28 50 AA  |.N$(P)."C":N$(P.|
00000810: 31 29 B2 22 44 22 3A 41  B2 41 AB 34 30 30 3A 50  |1)."D":A.A.400:P|
00000820: B2 50 AA 32 00 35 10 AC  03 8B 41 AD 31 30 30 B3  |.P.2.5....A.100.|
00000830: 31 A7 39 36 30 00 56 10  B6 03 4E 24 28 50 29 B2  |1.960.V...N$(P).|
00000840: 22 43 22 3A 41 B2 41 AB  31 30 30 3A 50 B2 50 AA  |"C":A.A.100:P.P.|
00000850: 31 3A 89 39 34 30 00 66  10 C0 03 8B 41 AD 39 30  |1:.940.f....A.90|
00000860: B3 31 A7 39 38 30 00 8D  10 CA 03 4E 24 28 50 29  |.1.980.....N$(P)|
00000870: B2 22 58 22 3A 4E 24 28  50 AA 31 29 B2 22 43 22  |."X":N$(P.1)."C"|
00000880: 3A 41 B2 41 AB 39 30 3A  50 B2 50 AA 32 00 9E 10  |:A.A.90:P.P.2...|
00000890: D4 03 8B 41 AD 35 30 B3  31 A7 31 30 30 30 00 B9  |...A.50.1.1000..|
000008A0: 10 DE 03 4E 24 28 50 29  B2 22 4C 22 3A 41 B2 41  |...N$(P)."L":A.A|
000008B0: AB 35 30 3A 50 B2 50 AA  31 00 CA 10 E8 03 8B 41  |.50:P.P.1......A|
000008C0: AD 34 30 B3 31 A7 31 30  32 30 00 F1 10 F2 03 4E  |.40.1.1020.....N|
000008D0: 24 28 50 29 B2 22 58 22  3A 4E 24 28 50 AA 31 29  |$(P)."X":N$(P.1)|
000008E0: B2 22 4C 22 3A 41 B2 41  AB 34 30 3A 50 B2 50 AA  |."L":A.A.40:P.P.|
000008F0: 32 00 02 11 FC 03 8B 41  AD 31 30 B3 31 A7 31 30  |2......A.10.1.10|
00000900: 34 30 00 23 11 06 04 4E  24 28 50 29 B2 22 58 22  |40.#...N$(P)."X"|
00000910: 3A 41 B2 41 AB 31 30 3A  50 B2 50 AA 31 3A 89 31  |:A.A.10:P.P.1:.1|
00000920: 30 32 30 00 33 11 10 04  8B 41 AD 39 B3 31 A7 31  |020.3....A.9.1.1|
00000930: 30 36 30 00 55 11 1A 04  4E 24 28 50 29 B2 22 49  |060.U...N$(P)."I|
00000940: 22 3A 4E 24 28 50 AA 31  29 B2 22 58 22 3A 8D 31  |":N$(P.1)."X":.1|
00000950: 31 33 30 3A 8E 00 65 11  24 04 8B 41 AD 35 B3 31  |130:..e.$..A.5.1|
00000960: A7 31 30 38 30 00 7F 11  2E 04 4E 24 28 50 29 B2  |.1080.....N$(P).|
00000970: 22 56 22 3A 41 B2 41 AB  35 3A 50 B2 50 AA 31 00  |"V":A.A.5:P.P.1.|
00000980: 8F 11 38 04 8B 41 AD 34  B3 31 A7 31 31 30 30 00  |..8..A.4.1.1100.|
00000990: B1 11 42 04 4E 24 28 50  29 B2 22 49 22 3A 4E 24  |..B.N$(P)."I":N$|
000009A0: 28 50 AA 31 29 B2 22 56  22 3A 8D 31 31 33 30 3A  |(P.1)."V":.1130:|
000009B0: 8E 00 C2 11 4C 04 8B 41  B2 30 A7 8D 31 31 33 30  |....L..A.0..1130|
000009C0: 3A 8E 00 E2 11 56 04 4E  24 28 50 29 B2 22 49 22  |:....V.N$(P)."I"|
000009D0: 3A 41 B2 41 AB 31 3A 50  B2 50 AA 31 3A 89 31 31  |:A.A.1:P.P.1:.11|
000009E0: 30 30 00 06 12 60 04 99  A3 32 34 29 3B 22 51 45  |00...`...24);"QE|
000009F0: 44 22 3A 5A 41 24 B2 22  22 3A 8D 31 31 34 30 3A  |D":ZA$."":.1140:|
00000A00: 9C 3A 89 31 30 30 00 32  12 6A 04 4E 4E 24 B2 22  |.:.100.2.j.NN$."|
00000A10: 22 3A 81 49 B2 31 A4 34  30 3A 4E 4E 24 B2 4E 4E  |":.I.1.40:NN$.NN|
00000A20: 24 AA 4E 24 28 49 29 3A  82 3A 4E 24 B2 4E 4E 24  |$.N$(I):.:N$.NN$|
00000A30: 3A 8E 00 3D 12 74 04 99  5A 41 24 3A 8E 00 6C 12  |:..=.t..ZA$:..l.|
00000A40: DC 05 99 3A 99 22 45 4E  54 45 52 20 41 20 44 45  |...:."ENTER A DE|
00000A50: 43 49 4D 41 4C 20 4E 55  4D 42 45 52 20 46 52 4F  |CIMAL NUMBER FRO|
00000A60: 4D 20 30 20 54 4F 20 36  35 35 33 35 00 7D 12 E1  |M 0 TO 65535.}..|
00000A70: 05 5A 41 24 B2 22 22 3A  8D 31 31 34 30 00 BC 12  |.ZA$."":.1140...|
00000A80: E6 05 85 41 24 3A 50 52  24 28 32 29 B2 22 44 45  |...A$:PR$(2)."DE|
00000A90: 43 49 4D 41 4C 20 20 20  22 AA 41 24 3A 5A 41 24  |CIMAL   ".A$:ZA$|
00000AA0: B2 50 52 24 28 32 29 AA  22 20 49 4E 50 55 54 22  |.PR$(2)." INPUT"|
00000AB0: 3A 8D 31 31 34 30 3A 89  31 35 32 30 00 DF 12 EB  |:.1140:.1520....|
00000AC0: 05 41 24 B2 C4 28 41 29  3A 50 52 24 28 32 29 B2  |.A$..(A):PR$(2).|
00000AD0: 22 44 45 43 49 4D 41 4C  20 20 20 22 AA 41 24 00  |"DECIMAL   ".A$.|
00000AE0: 06 13 F0 05 4C B2 C3 28  41 24 29 3A 81 49 B2 31  |....L..(A$):.I.1|
00000AF0: A4 4C 3A 44 28 49 29 B2  C5 28 CA 28 41 24 2C 49  |.L:D(I)..(.(A$,I|
00000B00: 2C 31 29 29 3A 82 00 27  13 FA 05 81 49 B2 31 A4  |,1)):..'....I.1.|
00000B10: 4C 3A 8B 44 28 49 29 B2  30 A7 42 43 24 28 49 29  |L:.D(I).0.BC$(I)|
00000B20: B2 22 20 30 30 30 30 00  41 13 04 06 8B 44 28 49  |." 0000.A....D(I|
00000B30: 29 B2 31 A7 42 43 24 28  49 29 B2 22 20 30 30 30  |).1.BC$(I)." 000|
00000B40: 31 00 5B 13 0E 06 8B 44  28 49 29 B2 32 A7 42 43  |1.[....D(I).2.BC|
00000B50: 24 28 49 29 B2 22 20 30  30 31 30 00 75 13 18 06  |$(I)." 0010.u...|
00000B60: 8B 44 28 49 29 B2 33 A7  42 43 24 28 49 29 B2 22  |.D(I).3.BC$(I)."|
00000B70: 20 30 30 31 31 00 8F 13  22 06 8B 44 28 49 29 B2  | 0011..."..D(I).|
00000B80: 34 A7 42 43 24 28 49 29  B2 22 20 30 31 30 30 00  |4.BC$(I)." 0100.|
00000B90: A9 13 2C 06 8B 44 28 49  29 B2 35 A7 42 43 24 28  |..,..D(I).5.BC$(|
00000BA0: 49 29 B2 22 20 30 31 30  31 00 C3 13 36 06 8B 44  |I)." 0101...6..D|
00000BB0: 28 49 29 B2 36 A7 42 43  24 28 49 29 B2 22 20 30  |(I).6.BC$(I)." 0|
00000BC0: 31 31 30 00 DD 13 40 06  8B 44 28 49 29 B2 37 A7  |110...@..D(I).7.|
00000BD0: 42 43 24 28 49 29 B2 22  20 30 31 31 31 00 F7 13  |BC$(I)." 0111...|
00000BE0: 4A 06 8B 44 28 49 29 B2  38 A7 42 43 24 28 49 29  |J..D(I).8.BC$(I)|
00000BF0: B2 22 20 31 30 30 30 00  11 14 4B 06 8B 44 28 49  |." 1000...K..D(I|
00000C00: 29 B2 39 A7 42 43 24 28  49 29 B2 22 20 31 30 30  |).9.BC$(I)." 100|
00000C10: 31 00 17 14 5E 06 82 00  4B 14 68 06 50 52 24 28  |1...^...K.h.PR$(|
00000C20: 35 29 B2 22 42 43 44 20  20 20 20 20 22 3A 81 49  |5)."BCD     ":.I|
00000C30: B2 31 A4 4C 3A 50 52 24  28 35 29 B2 50 52 24 28  |.1.L:PR$(5).PR$(|
00000C40: 35 29 AA 42 43 24 28 49  29 3A 82 00 66 14 72 06  |5).BC$(I):..f.r.|
00000C50: 41 B2 C5 28 41 24 29 3A  58 28 31 29 B2 B5 28 41  |A..(A$):X(1)..(A|
00000C60: AD 34 30 39 36 29 00 88  14 7C 06 41 B2 41 AB 28  |.4096)...|.A.A.(|
00000C70: 58 28 31 29 AC 34 30 39  36 29 3A 58 28 32 29 B2  |X(1).4096):X(2).|
00000C80: B5 28 41 AD 32 35 36 29  00 A8 14 86 06 41 B2 41  |.(A.256).....A.A|
00000C90: AB 28 58 28 32 29 AC 32  35 36 29 3A 58 28 33 29  |.(X(2).256):X(3)|
00000CA0: B2 B5 28 41 AD 31 36 29  00 C1 14 90 06 41 B2 41  |..(A.16).....A.A|
00000CB0: AB 28 58 28 33 29 AC 31  36 29 3A 58 28 34 29 B2  |.(X(3).16):X(4).|
00000CC0: 41 00 D4 14 9A 06 81 49  B2 31 A4 34 3A 99 58 28  |A......I.1.4:.X(|
00000CD0: 49 29 3A 82 00 DF 14 A4  06 81 49 B2 31 A4 34 00  |I):.......I.1.4.|
00000CE0: 02 15 A9 06 8B 58 28 49  29 B2 30 A7 48 24 28 49  |.....X(I).0.H$(I|
00000CF0: 29 B2 22 30 22 3A 42 24  28 49 29 B2 22 20 30 30  |)."0":B$(I)." 00|
00000D00: 30 30 00 25 15 AE 06 8B  58 28 49 29 B2 31 A7 48  |00.%....X(I).1.H|
00000D10: 24 28 49 29 B2 22 31 22  3A 42 24 28 49 29 B2 22  |$(I)."1":B$(I)."|
00000D20: 20 30 30 30 31 00 48 15  B8 06 8B 58 28 49 29 B2  | 0001.H....X(I).|
00000D30: 32 A7 48 24 28 49 29 B2  22 32 22 3A 42 24 28 49  |2.H$(I)."2":B$(I|
00000D40: 29 B2 22 20 30 30 31 30  00 6B 15 C2 06 8B 58 28  |)." 0010.k....X(|
00000D50: 49 29 B2 33 A7 48 24 28  49 29 B2 22 33 22 3A 42  |I).3.H$(I)."3":B|
00000D60: 24 28 49 29 B2 22 20 30  30 31 31 00 8E 15 CC 06  |$(I)." 0011.....|
00000D70: 8B 58 28 49 29 B2 34 A7  48 24 28 49 29 B2 22 34  |.X(I).4.H$(I)."4|
00000D80: 22 3A 42 24 28 49 29 B2  22 20 30 31 30 30 00 B1  |":B$(I)." 0100..|
00000D90: 15 D6 06 8B 58 28 49 29  B2 35 A7 48 24 28 49 29  |....X(I).5.H$(I)|
00000DA0: B2 22 35 22 3A 42 24 28  49 29 B2 22 20 30 31 30  |."5":B$(I)." 010|
00000DB0: 31 00 D4 15 E0 06 8B 58  28 49 29 B2 36 A7 48 24  |1......X(I).6.H$|
00000DC0: 28 49 29 B2 22 36 22 3A  42 24 28 49 29 B2 22 20  |(I)."6":B$(I)." |
00000DD0: 30 31 31 30 00 F7 15 EA  06 8B 58 28 49 29 B2 37  |0110......X(I).7|
00000DE0: A7 48 24 28 49 29 B2 22  37 22 3A 42 24 28 49 29  |.H$(I)."7":B$(I)|
00000DF0: B2 22 20 30 31 31 31 00  1A 16 F4 06 8B 58 28 49  |." 0111......X(I|
00000E00: 29 B2 38 A7 48 24 28 49  29 B2 22 38 22 3A 42 24  |).8.H$(I)."8":B$|
00000E10: 28 49 29 B2 22 20 31 30  30 30 00 3D 16 FE 06 8B  |(I)." 1000.=....|
00000E20: 58 28 49 29 B2 39 A7 48  24 28 49 29 B2 22 39 22  |X(I).9.H$(I)."9"|
00000E30: 3A 42 24 28 49 29 B2 22  20 31 30 30 31 00 61 16  |:B$(I)." 1001.a.|
00000E40: 08 07 8B 58 28 49 29 B2  31 30 A7 48 24 28 49 29  |...X(I).10.H$(I)|
00000E50: B2 22 41 22 3A 42 24 28  49 29 B2 22 20 31 30 31  |."A":B$(I)." 101|
00000E60: 30 00 85 16 12 07 8B 58  28 49 29 B2 31 31 A7 48  |0......X(I).11.H|
00000E70: 24 28 49 29 B2 22 42 22  3A 42 24 28 49 29 B2 22  |$(I)."B":B$(I)."|
00000E80: 20 31 30 31 31 00 A9 16  1C 07 8B 58 28 49 29 B2  | 1011......X(I).|
00000E90: 31 32 A7 48 24 28 49 29  B2 22 43 22 3A 42 24 28  |12.H$(I)."C":B$(|
00000EA0: 49 29 B2 22 20 31 31 30  30 00 CD 16 26 07 8B 58  |I)." 1100...&..X|
00000EB0: 28 49 29 B2 31 33 A7 48  24 28 49 29 B2 22 44 22  |(I).13.H$(I)."D"|
00000EC0: 3A 42 24 28 49 29 B2 22  20 31 31 30 31 00 F1 16  |:B$(I)." 1101...|
00000ED0: 30 07 8B 58 28 49 29 B2  31 34 A7 48 24 28 49 29  |0..X(I).14.H$(I)|
00000EE0: B2 22 45 22 3A 42 24 28  49 29 B2 22 20 31 31 31  |."E":B$(I)." 111|
00000EF0: 30 00 15 17 3A 07 8B 58  28 49 29 B2 31 35 A7 48  |0...:..X(I).15.H|
00000F00: 24 28 49 29 B2 22 46 22  3A 42 24 28 49 29 B2 22  |$(I)."F":B$(I)."|
00000F10: 20 31 31 31 31 00 1B 17  44 07 82 00 4D 17 4E 07  | 1111...D...M.N.|
00000F20: 48 24 B2 22 22 3A 42 24  B2 22 22 3A 20 81 49 B2  |H$."":B$."": .I.|
00000F30: 31 A4 34 3A 48 24 B2 48  24 AA 48 24 28 49 29 3A  |1.4:H$.H$.H$(I):|
00000F40: 42 24 B2 42 24 AA 42 24  28 49 29 3A 82 00 6C 17  |B$.B$.B$(I):..l.|
00000F50: 58 07 50 52 24 28 33 29  B2 22 48 45 58 49 44 45  |X.PR$(3)."HEXIDE|
00000F60: 43 49 4D 41 4C 20 20 20  22 AA 48 24 00 8B 17 62  |CIMAL   ".H$...b|
00000F70: 07 50 52 24 28 34 29 B2  22 42 49 4E 41 52 59 20  |.PR$(4)."BINARY |
00000F80: 20 20 20 20 20 20 20 22  AA 42 24 00 9C 17 6C 07  |       ".B$...l.|
00000F90: 41 B2 C5 28 41 24 29 3A  8D 36 31 30 00 BC 17 76  |A..(A$):.610...v|
00000FA0: 07 50 52 24 28 31 29 B2  22 52 4F 4D 41 4E 20 4E  |.PR$(1)."ROMAN N|
00000FB0: 55 4D 45 52 41 4C 20 22  AA 4E 4E 24 00 C6 17 9E  |UMERAL ".NN$....|
00000FC0: 07 89 35 30 30 30 00 E9  17 D0 07 99 3A 99 22 45  |..5000......:."E|
00000FD0: 4E 54 45 52 20 41 20 48  45 58 49 44 45 43 49 4D  |NTER A HEXIDECIM|
00000FE0: 41 4C 20 4E 55 4D 42 45  52 00 FE 17 DA 07 85 22  |AL NUMBER......"|
00000FF0: 2E 2E 2E 2E 1D 1D 3F 9D  9D 9D 22 3B 48 24 00 34  |......?...";H$.4|
00001000: 18 DF 07 5A 41 24 B2 22  22 3A 8D 31 31 34 30 3A  |...ZA$."":.1140:|
00001010: 5A 41 24 B2 22 48 45 58  49 44 45 43 49 4D 41 4C  |ZA$."HEXIDECIMAL|
00001020: 20 22 AA 48 24 AA 20 22  49 4E 50 55 54 22 3A 8D  | ".H$. "INPUT":.|
00001030: 31 31 34 30 00 54 18 E4  07 81 49 B2 31 A4 34 3A  |1140.T....I.1.4:|
00001040: 58 24 B2 CA 28 48 24 2C  49 2C 31 29 3A 8D 32 30  |X$..(H$,I,1):.20|
00001050: 35 30 3A 82 00 78 18 E9  07 50 52 24 28 32 29 B2  |50:..x...PR$(2).|
00001060: 22 44 45 43 49 4D 41 4C  20 20 20 20 22 AA C4 28  |"DECIMAL    "..(|
00001070: 41 29 3A 89 31 35 31 35  00 84 18 02 08 58 B2 C5  |A):.1515.....X..|
00001080: 28 58 24 29 00 95 18 0C  08 8B 58 24 B2 22 41 22  |(X$)......X$."A"|
00001090: A7 58 B2 31 30 00 A6 18  16 08 8B 58 24 B2 22 42  |.X.10......X$."B|
000010A0: 22 A7 58 B2 31 31 00 B7  18 20 08 8B 58 24 B2 22  |".X.11... ..X$."|
000010B0: 43 22 A7 58 B2 31 32 00  C8 18 2A 08 8B 58 24 B2  |C".X.12...*..X$.|
000010C0: 22 44 22 A7 58 B2 31 33  00 D9 18 34 08 8B 58 24  |"D".X.13...4..X$|
000010D0: B2 22 45 22 A7 58 B2 31  34 00 EA 18 3E 08 8B 58  |."E".X.14...>..X|
000010E0: 24 B2 22 46 22 A7 58 B2  31 35 00 FE 18 48 08 8B  |$."F".X.15...H..|
000010F0: 49 B2 31 A7 41 B2 41 AA  58 AC 34 30 39 36 00 11  |I.1.A.A.X.4096..|
00001100: 19 52 08 8B 49 B2 32 A7  41 B2 41 AA 58 AC 32 35  |.R..I.2.A.A.X.25|
00001110: 36 00 23 19 5C 08 8B 49  B2 33 A7 41 B2 41 AA 58  |6.#.\..I.3.A.A.X|
00001120: AC 31 36 00 32 19 66 08  8B 49 B2 34 A7 41 B2 41  |.16.2.f..I.4.A.A|
00001130: AA 58 00 38 19 70 08 8E  00 7E 19 C4 09 99 3A 99  |.X.8.p...~....:.|
00001140: 22 45 4E 54 45 52 20 41  20 42 49 4E 41 52 59 20  |"ENTER A BINARY |
00001150: 4E 55 4D 42 45 52 20 20  20 20 20 20 20 20 20 20  |NUMBER          |
00001160: 20 20 20 20 20 20 20 20  20 20 20 2E 2E 2E 2E 20  |           .... |
00001170: 2E 2E 2E 2E 20 2E 2E 2E  2E 20 2E 2E 2E 2E 00 9C  |.... .... ......|
00001180: 19 CE 09 85 42 24 3A 50  52 24 28 34 29 B2 22 42  |....B$:PR$(4)."B|
00001190: 49 4E 41 52 59 20 20 20  22 AA 42 24 00 CD 19 D3  |INARY   ".B$....|
000011A0: 09 5A 41 24 B2 22 22 3A  8D 31 31 34 30 3A 5A 41  |.ZA$."":.1140:ZA|
000011B0: 24 B2 22 42 49 4E 41 52  59 20 22 AA 42 24 AA 22  |$."BINARY ".B$."|
000011C0: 20 49 4E 50 55 54 22 3A  8D 31 31 34 30 00 03 1A  | INPUT":.1140...|
000011D0: D8 09 42 42 24 28 31 29  B2 C8 28 42 24 2C 34 29  |..BB$(1)..(B$,4)|
000011E0: 3A 42 42 24 28 32 29 B2  CA 28 42 24 2C 36 2C 34  |:BB$(2)..(B$,6,4|
000011F0: 29 3A 42 42 24 28 33 29  B2 CA 28 42 24 2C 31 31  |):BB$(3)..(B$,11|
00001200: 2C 34 29 00 20 1A E2 09  42 42 24 28 34 29 B2 C9  |,4). ...BB$(4)..|
00001210: 28 42 24 2C 34 29 3A 42  B2 34 3A 8D 32 35 34 30  |(B$,4):B.4:.2540|
00001220: 00 2A 1A E7 09 89 32 37  38 30 00 3B 1A EC 09 48  |.*....2780.;...H|
00001230: 24 B2 22 22 3A 81 49 B2  31 A4 42 00 58 1A F6 09  |$."":.I.1.B.X...|
00001240: 8B 42 42 24 28 49 29 B2  22 30 30 30 30 22 A7 48  |.BB$(I)."0000".H|
00001250: 24 B2 48 24 AA 22 30 22  00 75 1A 00 0A 8B 42 42  |$.H$."0".u....BB|
00001260: 24 28 49 29 B2 22 30 30  30 31 22 A7 48 24 B2 48  |$(I)."0001".H$.H|
00001270: 24 AA 22 31 22 00 92 1A  0A 0A 8B 42 42 24 28 49  |$."1"......BB$(I|
00001280: 29 B2 22 30 30 31 30 22  A7 48 24 B2 48 24 AA 22  |)."0010".H$.H$."|
00001290: 32 22 00 AF 1A 0B 0A 8B  42 42 24 28 49 29 B2 22  |2"......BB$(I)."|
000012A0: 30 30 31 31 22 A7 48 24  B2 48 24 AA 22 33 22 00  |0011".H$.H$."3".|
000012B0: CC 1A 0C 0A 8B 42 42 24  28 49 29 B2 22 30 31 30  |.....BB$(I)."010|
000012C0: 30 22 A7 48 24 B2 48 24  AA 22 34 22 00 E9 1A 0D  |0".H$.H$."4"....|
000012D0: 0A 8B 42 42 24 28 49 29  B2 22 30 31 30 31 22 A7  |..BB$(I)."0101".|
000012E0: 48 24 B2 48 24 AA 22 35  22 00 06 1B 14 0A 8B 42  |H$.H$."5"......B|
000012F0: 42 24 28 49 29 B2 22 30  31 31 30 22 A7 48 24 B2  |B$(I)."0110".H$.|
00001300: 48 24 AA 22 36 22 00 23  1B 1E 0A 8B 42 42 24 28  |H$."6".#....BB$(|
00001310: 49 29 B2 22 30 31 31 31  22 A7 48 24 B2 48 24 AA  |I)."0111".H$.H$.|
00001320: 22 37 22 00 40 1B 28 0A  8B 42 42 24 28 49 29 B2  |"7".@.(..BB$(I).|
00001330: 22 31 30 30 30 22 A7 48  24 B2 48 24 AA 22 38 22  |"1000".H$.H$."8"|
00001340: 00 5D 1B 8C 0A 8B 42 42  24 28 49 29 B2 22 31 30  |.]....BB$(I)."10|
00001350: 30 31 22 A7 48 24 B2 48  24 AA 22 39 22 00 6B 1B  |01".H$.H$."9".k.|
00001360: 91 0A 8B 42 B2 35 A7 32  37 37 30 00 87 1B 96 0A  |...B.5.2770.....|
00001370: 8B 42 42 24 28 49 29 B2  22 31 30 31 30 22 A7 48  |.BB$(I)."1010".H|
00001380: 24 B2 48 24 AA 22 41 00  A4 1B A0 0A 8B 42 42 24  |$.H$."A......BB$|
00001390: 28 49 29 B2 22 31 30 31  31 22 A7 48 24 B2 48 24  |(I)."1011".H$.H$|
000013A0: AA 22 42 22 00 C1 1B AA  0A 8B 42 42 24 28 49 29  |."B"......BB$(I)|
000013B0: B2 22 31 31 30 30 22 A7  48 24 B2 48 24 AA 22 43  |."1100".H$.H$."C|
000013C0: 22 00 DE 1B B4 0A 8B 42  42 24 28 49 29 B2 22 31  |"......BB$(I)."1|
000013D0: 31 30 31 22 A7 48 24 B2  48 24 AA 22 44 22 00 FB  |101".H$.H$."D"..|
000013E0: 1B BE 0A 8B 42 42 24 28  49 29 B2 22 31 31 31 30  |....BB$(I)."1110|
000013F0: 22 A7 48 24 B2 48 24 AA  22 45 22 00 18 1C C8 0A  |".H$.H$."E".....|
00001400: 8B 42 42 24 28 49 29 B2  22 31 31 31 31 22 A7 48  |.BB$(I)."1111".H|
00001410: 24 B2 48 24 AA 22 46 22  00 2E 1C CD 0A 99 22 48  |$.H$."F"......"H|
00001420: 24 3D 20 22 48 24 2C 22  49 20 3D 20 22 49 00 34  |$= "H$,"I = "I.4|
00001430: 1C D2 0A 82 00 3A 1C D7  0A 8E 00 42 1C DC 0A 99  |.....:.....B....|
00001440: 48 24 00 4C 1C E6 0A 8D  32 30 32 30 00 53 1C F0  |H$.L....2020.S..|
00001450: 0A 99 41 00 9C 1C B8 0B  99 22 45 4E 54 45 52 20  |..A......"ENTER |
00001460: 41 20 42 49 4E 41 52 59  20 43 4F 44 45 44 20 44  |A BINARY CODED D|
00001470: 45 43 49 4D 41 4C 20 20  20 20 20 20 20 20 20 20  |ECIMAL          |
00001480: 20 20 20 20 2E 2E 2E 2E  20 2E 2E 2E 2E 20 2E 2E  |    .... .... ..|
00001490: 2E 2E 20 2E 2E 2E 2E 20  2E 2E 2E 2E 00 BB 1C CC  |.. .... ........|
000014A0: 0B 85 42 24 3A 50 52 24  28 35 29 B2 22 42 43 44  |..B$:PR$(5)."BCD|
000014B0: 20 20 20 20 20 20 20 22  AA 42 24 00 F7 1C D1 0B  |       ".B$.....|
000014C0: 5A 41 24 B2 22 22 3A 8D  31 31 34 30 3A 20 5A 41  |ZA$."":.1140: ZA|
000014D0: 24 B2 22 42 43 44 20 22  AA 42 24 AA 22 20 49 4E  |$."BCD ".B$." IN|
000014E0: 50 55 54 22 3A 8D 31 31  34 30 3A 5A 41 24 B2 22  |PUT":.1140:ZA$."|
000014F0: 22 3A 8D 31 31 34 30 00  2D 1D D6 0B 42 42 24 28  |":.1140.-...BB$(|
00001500: 31 29 B2 C8 28 42 24 2C  34 29 3A 42 42 24 28 32  |1)..(B$,4):BB$(2|
00001510: 29 B2 CA 28 42 24 2C 36  2C 34 29 3A 42 42 24 28  |)..(B$,6,4):BB$(|
00001520: 33 29 B2 CA 28 42 24 2C  31 31 2C 34 29 00 56 1D  |3)..(B$,11,4).V.|
00001530: E0 0B 42 42 24 28 34 29  B2 CA 28 42 24 2C 31 36  |..BB$(4)..(B$,16|
00001540: 2C 34 29 3A 42 42 24 28  35 29 B2 C9 28 42 24 2C  |,4):BB$(5)..(B$,|
00001550: 34 29 3A 42 B2 35 00 60  1D EA 0B 8D 32 35 34 30  |4):B.5.`....2540|
00001560: 00 87 1D EF 0B 8B C3 28  48 24 29 B3 35 A7 99 22  |.......(H$).5.."|
00001570: 49 4C 4C 45 47 41 4C 20  42 43 44 20 43 4F 44 45  |ILLEGAL BCD CODE|
00001580: 22 3A 89 33 30 30 30 00  BC 1D FE 0B 8B C5 28 48  |":.3000.......(H|
00001590: 24 29 B1 36 35 35 33 35  A7 99 22 4E 4F 20 48 49  |$).65535.."NO HI|
000015A0: 47 48 45 52 20 54 48 45  4E 36 35 35 33 35 20 50  |GHER THEN65535 P|
000015B0: 4C 45 41 53 45 22 3A 89  33 30 30 30 00 CE 1D 08  |LEASE":.3000....|
000015C0: 0C 41 B2 C5 28 48 24 29  3A 89 31 35 31 35 00 EC  |.A..(H$):.1515..|
000015D0: 1D 88 13 81 49 B2 31 A4  35 3A 5A 41 24 B2 50 52  |....I.1.5:ZA$.PR|
000015E0: 24 28 49 29 3A 8D 31 31  34 30 3A 82 00 F7 1D 92  |$(I):.1140:.....|
000015F0: 13 9C 3A 89 31 30 30 00  00 00                    |..:.100...      |

..=.D..N$(45),N(45),PS$(40):.I.1.40:N$.N
$.G(32):S$.S$.G(32):..Z.N..I.1.40:PS$(I)
.H(S$,I):....X..:."THIS PROGRAM WILL ACC
EPT NOTATIONS IN...Z..:."101 ROMAN NUMER
ALS...|.."102 DECIMAL.K.~.."103 HEXIDECI
MAL......"104 BINARY......"105 BINARY CO
DED DECIMAL.5....:."AND PRODUCE THE EQUI
VALENTS IN ALL FIVE NOTATIONS.\....:."PI
CK A NUMBER..?...";G:G.G.100.R.... G.1 .
 G.5 . 135......G.180,1500,2000,2500,300
0.F....410:." DECIMAL "A:PR$(2)."DECIMAL
  ".D(A):.1515......"ENTER ROMAN NUMERAL
..?...";N$:.N$."="...&...N$.N$.PS$(40.C(
N$)):.I.1.40:N$(I).J(N$,I,1):..G....I.1.
40:N(I).0:.:A.0:P.C(N$).J....P1.P.1..1:.
J(N$,P1,1)."/".455.S.B..510.{.G..P1...L.
A.N(P):.P1.P.1.1..1:.N(P1.1).0.P2.P1.2:.
480...V.P2.P1.1.X....N(P1)..N(P2).A.A.N(
P1):.500.....A.A.N(P1)......P1:.......N$
(P1)."I".N(P1).1. ....N$(P1)."V".N(P1).5
.9....N$(P1)."X".N(P1).10.R....N$(P1)."L
".N(P1).50.L.&..N$(P1)."C".N(P1).100...0
..N$(P1)."D".N(P1).500...:..N$(P1)."M".N
(P1).1000...D..P1.1...P.N..N$(P1.1)."/".
N(P1).N(P1).1000.V.X.....B..I.1.40:N$.N$
.G(32):.:P.1...L..A.1000000.1.640.:.V.N$
(P)."/":N$(P.1)."M":A.A.1000000:P.P.2:.6
20.N....A.900000.1.660.....N$(P)."/":N$(
P.1)."C":N$(P.2)."/":N$(P.3)."M":A.A.900
000:P.P.4......A.500000.1.680.P...N$(P).
"/":N$(P.1)."D":A.A.500000:P.P.2......A.
400000.1.700.'...N$(P)."/":N$(P.1)."C":N
$(P.2)."/":N$(P.3)."D":A.A.400000:P.P.4.
;....A.100000.1.720.K.F.N$(P)."/":N$(P.1
)."C":A.A.100000:P.P.2:.700.~.P..A.90000
.1.740...Z.N$(P)."/":N$(P.1)."X":N$(P.2)
."/":N$(P.3)."C":A.A.90000:P.P.4.S....A.
50000.1.760.....N$(P)."/":N$(P.1)."L":A.
A.50000:P.P.2......A.40000.1.780.R...N$(
P)."/":N$(P.1)."X":N$(P.2)."/":N$(P.3)."
L":A.A.40000:P.P.4.E....A.10000.1.800...
..N$(P)."/":N$(P.1)."X":A.A.10000:P.P.2:
.780... ..A.9000.1.820.O.*.N$(P)."M":N$(
P.1)."/":A.A.9000:P.P.3...4..A.5000.1.84
0...>.N$(P)."/":N$(P.1)."V":A.A.5000:P.P
.2...H..A.4000.1.860.Q.R.N$(P)."M":N$(P.
1)."/":N$(P.2)."V":A.A.4000:P.P.3.C.\..A
.1000.1.880...F.N$(P)."M":A.A.1000:P.P.1
:.860...P..A.900.1.900...Z.N$(P)."C":N$(
P.1)."M":A.A.900:P.P.2.O....A.500.1.920.
....N$(P)."D":A.A.500:P.P.1......A.400.1
.940.$...N$(P)."C":N$(P.1)."D":A.A.400:P
.P.2.5....A.100.1.960.V...N$(P)."C":A.A.
100:P.P.1:.940.F....A.90.1.980...J.N$(P)
."X":N$(P.1)."C":A.A.90:P.P.2...T..A.50.
1.1000.....N$(P)."L":A.A.50:P.P.1.J....A
.40.1.1020.....N$(P)."X":N$(P.1)."L":A.A
.40:P.P.2......A.10.1.1040.#...N$(P)."X"
:A.A.10:P.P.1:.1020.3....A.9.1.1060.U...
N$(P)."I":N$(P.1)."X":.1130:..E.$..A.5.1
.1080....N$(P)."V":A.A.5:P.P.1...8..A.4
.1.1100...B.N$(P)."I":N$(P.1)."V":.1130:
..B.L..A.0..1130:....V.N$(P)."I":A.A.1:P
.P.1:.1100...`...24);"QED":ZA$."":.1140:
.:.100.2.J.NN$."":.I.1.40:NN$.NN$.N$(I):
.:N$.NN$:..=.T..ZA$:..L....:."ENTER A DE
CIMAL NUMBER FROM 0 TO 65535.}...ZA$."":
.1140......A$:PR$(2)."DECIMAL   ".A$:ZA$
.PR$(2)." INPUT":.1140:.1520.....A$.D(A)
:PR$(2)."DECIMAL   ".A$.....L.C(A$):.I.1
.L:D(I).E(J(A$,I,1)):..'....I.1.L:.D(I).
0.BC$(I)." 0000.A....D(I).1.BC$(I)." 000
1.[....D(I).2.BC$(I)." 0010.U....D(I).3.
BC$(I)." 0011..."..D(I).4.BC$(I)." 0100.
..,..D(I).5.BC$(I)." 0101.C.6..D(I).6.BC
$(I)." 0110...@..D(I).7.BC$(I)." 0111...
J..D(I).8.BC$(I)." 1000...K..D(I).9.BC$(
I)." 1001...^...K.H.PR$(5)."BCD     ":.I
.1.L:PR$(5).PR$(5).BC$(I):..F.R.A.E(A$):
X(1)..(A.4096)...|.A.A.(X(1).4096):X(2).
.(A.256).....A.A.(X(2).256):X(3)..(A.16)
.A...A.A.(X(3).16):X(4).A.T....I.1.4:.X(
I):.......I.1.4......X(I).0.H$(I)."0":B$
(I)." 0000.%....X(I).1.H$(I)."1":B$(I)."
 0001.H....X(I).2.H$(I)."2":B$(I)." 0010
.K.B..X(I).3.H$(I)."3":B$(I)." 0011...L.
.X(I).4.H$(I)."4":B$(I)." 0100...V..X(I)
.5.H$(I)."5":B$(I)." 0101.T....X(I).6.H$
(I)."6":B$(I)." 0110......X(I).7.H$(I)."
7":B$(I)." 0111......X(I).8.H$(I)."8":B$
(I)." 1000.=....X(I).9.H$(I)."9":B$(I)."
 1001.A....X(I).10.H$(I)."A":B$(I)." 101
0......X(I).11.H$(I)."B":B$(I)." 1011...
...X(I).12.H$(I)."C":B$(I)." 1100.M.&..X
(I).13.H$(I)."D":B$(I)." 1101...0..X(I).
14.H$(I)."E":B$(I)." 1110...:..X(I).15.H
$(I)."F":B$(I)." 1111...D...M.N.H$."":B$
."": .I.1.4:H$.H$.H$(I):B$.B$.B$(I):..L.
X.PR$(3)."HEXIDECIMAL   ".H$...B.PR$(4).
"BINARY        ".B$...L.A.E(A$):.610...V
.PR$(1)."ROMAN NUMERAL ".NN$.F....5000..
.P..:."ENTER A HEXIDECIMAL NUMBER...Z.."
......?...";H$.4...ZA$."":.1140:ZA$."HEX
IDECIMAL ".H$. "INPUT":.1140.T....I.1.4:
X$.J(H$,I,1):.2050:..X...PR$(2)."DECIMAL
    ".D(A):.1515.....X.E(X$)......X$."A"
.X.10......X$."B".X.11... ..X$."C".X.12.
H.*..X$."D".X.13.Y.4..X$."E".X.14...>..X
$."F".X.15...H..I.1.A.A.X.4096...R..I.2.
A.A.X.256.#.\..I.3.A.A.X.16.2.F..I.4.A.A
.X.8.P...~.D..:."ENTER A BINARY NUMBER  
                   .... .... .... ......
.N..B$:PR$(4)."BINARY   ".B$.M.S.ZA$."":
.1140:ZA$."BINARY ".B$." INPUT":.1140...
X.BB$(1).H(B$,4):BB$(2).J(B$,6,4):BB$(3)
.J(B$,11,4). ...BB$(4).I(B$,4):B.4:.2540
.*....2780.;...H$."":.I.1.B.X....BB$(I).
"0000".H$.H$."0".U....BB$(I)."0001".H$.H
$."1"......BB$(I)."0010".H$.H$."2"......
BB$(I)."0011".H$.H$."3".L....BB$(I)."010
0".H$.H$."4"......BB$(I)."0101".H$.H$."5
"......BB$(I)."0110".H$.H$."6".#....BB$(
I)."0111".H$.H$."7".@.(..BB$(I)."1000".H
$.H$."8".]....BB$(I)."1001".H$.H$."9".K.
...B.5.2770......BB$(I)."1010".H$.H$."A.
.. ..BB$(I)."1011".H$.H$."B".A....BB$(I)
."1100".H$.H$."C"......BB$(I)."1101".H$.
H$."D"......BB$(I)."1110".H$.H$."E"...H.
.BB$(I)."1111".H$.H$."F"...M.."H$= "H$,"
I = "I.4.R...:.W...B....H$.L....2020.S..
..A......"ENTER A BINARY CODED DECIMAL  
            .... .... .... .... .......L
..B$:PR$(5)."BCD       ".B$...Q.ZA$."":.
1140: ZA$."BCD ".B$." INPUT":.1140:ZA$."
":.1140.-.V.BB$(1).H(B$,4):BB$(2).J(B$,6
,4):BB$(3).J(B$,11,4).V...BB$(4).J(B$,16
,4):BB$(5).I(B$,4):B.5.`....2540......C(
H$).5.."ILLEGAL BCD CODE":.3000......E(H
$).65535.."NO HIGHER THEN65535 PLEASE":.
3000.N...A.E(H$):.1515......I.1.5:ZA$.PR
$(I):.1140:.......:.100...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL