COLOR CODE
FILE INFORMATION
FILENAME(S): COLOR CODE
FILE TYPE(S): PRG
FILE SIZE: 5.4K
FIRST SEEN: 2025-10-20 14:30:32
APPEARS ON: 1 disk(s)
FILE HASH
5b8935c6a5df303b65f501d83ccfd0b2e737914ddd0e8f93d64d8a98721bee4d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0026ED | COLOR CODE | PRG | Treasure Chest - Klaus Der Suhler | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 20 |..(.... ******* |
00000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000020: 20 2A 2A 2A 2A 2A 2A 2A 00 4F 08 02 00 8F 20 2A | *******.O.... *|
00000030: 2A 2A 2A 2A 2A 20 20 20 20 20 43 4F 4C 4F 52 20 |***** COLOR |
00000040: 43 4F 44 45 20 20 20 20 20 2A 2A 2A 2A 2A 2A 00 |CODE ******.|
00000050: 76 08 03 00 8F 20 2A 2A 2A 2A 2A 20 20 20 20 20 |v.... ***** |
00000060: 20 20 20 20 20 42 59 20 20 20 20 20 20 20 20 20 | BY |
00000070: 20 2A 2A 2A 2A 2A 00 9D 08 04 00 8F 20 2A 2A 2A | *****...... ***|
00000080: 2A 2A 20 20 20 20 20 20 4F 59 53 54 45 52 20 4F |** OYSTER O|
00000090: 4E 45 20 20 20 20 20 20 2A 2A 2A 2A 2A 00 C4 08 |NE *****...|
000000A0: 05 00 8F 20 2A 2A 2A 2A 2A 20 20 20 20 20 20 20 |... ***** |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
000000C0: 2A 2A 2A 2A 00 EB 08 06 00 8F 20 2A 2A 2A 2A 2A |****...... *****|
000000D0: 20 20 28 20 50 55 42 4C 49 43 20 20 44 4F 4D 41 | ( PUBLIC DOMA|
000000E0: 49 4E 20 29 20 20 2A 2A 2A 2A 2A 00 12 09 07 00 |IN ) *****.....|
000000F0: 8F 20 2A 2A 2A 2A 2A 2A 20 20 20 20 20 20 30 35 |. ****** 05|
00000100: 2F 32 35 2F 38 37 20 20 20 20 20 20 2A 2A 2A 2A |/25/87 ****|
00000110: 2A 2A 00 39 09 08 00 8F 20 2A 2A 2A 2A 2A 2A 2A |**.9.... *******|
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 2A 2A 2A 2A 2A 2A 2A 00 5D 09 09 00 99 22 | *******.]...."|
00000140: 93 22 3A 97 35 33 32 38 30 2C 30 3A 97 35 33 32 |.":.53280,0:.532|
00000150: 38 31 2C 30 3A 99 22 05 22 3A 4C B2 30 00 99 09 |81,0:.".":L.0...|
00000160: 0A 00 86 41 24 28 31 30 30 29 3A 86 41 28 31 30 |...A$(100):.A(10|
00000170: 30 29 3A 86 52 24 28 31 32 29 3A 41 24 28 38 37 |0):.R$(12):A$(87|
00000180: 29 B2 22 57 48 49 54 45 22 3A 41 24 28 38 39 29 |)."WHITE":A$(89)|
00000190: B2 22 59 45 4C 4C 4F 57 22 00 E5 09 0B 00 41 24 |."YELLOW".....A$|
000001A0: 28 36 35 29 B2 22 47 52 41 59 22 3A 41 24 28 36 |(65)."GRAY":A$(6|
000001B0: 36 29 B2 22 42 4C 55 45 22 3A 41 24 28 36 38 29 |6)."BLUE":A$(68)|
000001C0: B2 22 47 4F 4C 44 22 3A 41 24 28 37 31 29 B2 22 |."GOLD":A$(71)."|
000001D0: 47 52 45 45 4E 22 3A 41 24 28 37 35 29 B2 22 42 |GREEN":A$(75)."B|
000001E0: 4C 41 43 4B 22 00 35 0A 0C 00 41 24 28 37 38 29 |LACK".5...A$(78)|
000001F0: B2 22 42 52 4F 57 4E 22 3A 41 24 28 37 39 29 B2 |."BROWN":A$(79).|
00000200: 22 4F 52 41 4E 47 45 22 3A 41 24 28 38 32 29 B2 |"ORANGE":A$(82).|
00000210: 22 52 45 44 22 3A 41 24 28 38 33 29 B2 22 53 49 |"RED":A$(83)."SI|
00000220: 4C 56 45 52 22 3A 41 24 28 38 36 29 B2 22 56 49 |LVER":A$(86)."VI|
00000230: 4F 4C 45 54 22 00 83 0A 0D 00 41 28 36 35 29 B2 |OLET".....A(65).|
00000240: 38 3A 41 28 36 36 29 B2 36 3A 41 28 36 38 29 B2 |8:A(66).6:A(68).|
00000250: AB 31 3A 41 28 37 31 29 B2 35 3A 41 28 37 35 29 |.1:A(71).5:A(75)|
00000260: B2 30 3A 41 28 37 38 29 B2 31 3A 41 28 37 39 29 |.0:A(78).1:A(79)|
00000270: B2 33 3A 41 28 38 32 29 B2 32 3A 41 28 38 33 29 |.3:A(82).2:A(83)|
00000280: B2 AB 32 00 9F 0A 0E 00 41 28 38 36 29 B2 37 3A |..2.....A(86).7:|
00000290: 41 28 38 37 29 B2 39 3A 41 28 38 39 29 B2 34 00 |A(87).9:A(89).4.|
000002A0: E7 0A 0F 00 52 24 28 4F 29 B2 22 53 49 4C 56 45 |....R$(O)."SILVE|
000002B0: 52 22 3A 52 24 28 31 29 B2 22 47 4F 4C 44 22 3A |R":R$(1)."GOLD":|
000002C0: 52 24 28 32 29 B2 22 42 4C 41 43 4B 22 3A 52 24 |R$(2)."BLACK":R$|
000002D0: 28 33 29 B2 22 42 52 4F 57 4E 22 3A 52 24 28 34 |(3)."BROWN":R$(4|
000002E0: 29 B2 22 52 45 44 22 00 25 0B 10 00 52 24 28 35 |)."RED".%...R$(5|
000002F0: 29 B2 22 4F 52 41 4E 47 45 22 3A 52 24 28 36 29 |)."ORANGE":R$(6)|
00000300: B2 22 59 45 4C 4C 4F 57 22 3A 52 24 28 37 29 B2 |."YELLOW":R$(7).|
00000310: 22 47 52 45 45 4E 22 3A 52 24 28 38 29 B2 22 42 |"GREEN":R$(8)."B|
00000320: 4C 55 45 22 3A 00 55 0B 11 00 52 24 28 39 29 B2 |LUE":.U...R$(9).|
00000330: 22 56 49 4F 4C 45 54 22 3A 52 24 28 31 30 29 B2 |"VIOLET":R$(10).|
00000340: 22 47 52 41 59 22 3A 52 24 28 31 31 29 B2 22 57 |"GRAY":R$(11)."W|
00000350: 48 49 54 45 22 00 5F 0B 12 00 8D 31 34 30 20 00 |HITE"._....140 .|
00000360: 69 0B 13 00 8D 39 37 20 20 00 9E 0B 14 00 99 22 |i....97 ......"|
00000370: 93 11 11 11 11 11 44 4F 20 59 4F 55 20 57 41 4E |......DO YOU WAN|
00000380: 54 20 54 4F 20 47 55 45 53 53 20 43 4F 4C 4F 52 |T TO GUESS COLOR|
00000390: 53 20 4F 52 20 4E 55 4D 42 45 52 53 3F 22 00 C6 |S OR NUMBERS?"..|
000003A0: 0B 15 00 99 3A 99 3A 99 3A 99 A3 31 31 29 22 12 |....:.:.:..11)".|
000003B0: 43 92 4F 4C 4F 52 20 20 20 20 20 20 20 12 4E 92 |C.OLOR .N.|
000003C0: 55 4D 42 45 52 22 00 D9 0B 16 00 A1 55 24 3A 8B |UMBER"......U$:.|
000003D0: 55 24 B2 22 22 A7 32 34 20 00 E9 0B 17 00 8B 55 |U$."".24 ......U|
000003E0: 24 B2 22 4E 22 A7 37 32 20 00 F9 0B 18 00 8B 55 |$."N".72 ......U|
000003F0: 24 B2 22 43 22 A7 32 36 20 00 02 0C 19 00 89 32 |$."C".26 ......2|
00000400: 32 20 00 0B 0C 1A 00 8D 39 33 20 00 48 0C 1B 00 |2 ......93 .H...|
00000410: 99 22 93 22 3A 99 22 20 20 47 52 12 41 92 59 22 |.".":." GR.A.Y"|
00000420: 3B A3 31 32 29 22 12 42 92 4C 55 45 22 3B A3 32 |;.12)".B.LUE";.2|
00000430: 32 29 22 47 4F 4C 12 44 92 22 3B A3 33 32 29 22 |2)"GOL.D.";.32)"|
00000440: 12 47 92 52 45 45 4E 22 00 86 0C 1C 00 99 3A 99 |.G.REEN"......:.|
00000450: 22 20 20 42 4C 41 43 12 4B 92 22 3B A3 31 32 29 |" BLAC.K.";.12)|
00000460: 22 42 52 4F 57 12 4E 92 22 3B A3 32 32 29 22 12 |"BROW.N.";.22)".|
00000470: 4F 92 52 41 4E 47 45 22 3B A3 33 32 29 22 12 52 |O.RANGE";.32)".R|
00000480: 92 45 44 22 3A 99 00 C6 0C 1D 00 99 22 20 20 12 |.ED":......." .|
00000490: 53 92 49 4C 56 45 52 22 3B A3 31 32 29 22 12 56 |S.ILVER";.12)".V|
000004A0: 92 49 4F 4C 45 54 22 3B A3 32 32 29 22 12 57 92 |.IOLET";.22)".W.|
000004B0: 48 49 54 45 22 3B A3 33 32 29 22 12 59 92 45 4C |HITE";.32)".Y.EL|
000004C0: 4C 4F 57 22 3A 99 00 E1 0C 1E 00 99 3A 81 4A B2 |LOW":.......:.J.|
000004D0: 31 A4 34 30 3A 99 22 DA 22 3B 3A 82 4A 3A 99 3A |1.40:.".";:.J:.:|
000004E0: 99 00 EB 0C 1F 00 8D 31 35 33 20 00 15 0D 20 00 |.......153 ... .|
000004F0: 99 22 12 2A 2A 2A 20 20 22 3B 52 54 22 9D 20 22 |.".*** ";RT". "|
00000500: 4B 4D 24 3A 99 3A 99 3A 99 22 42 41 4E 44 20 23 |KM$:.:.:."BAND #|
00000510: 31 20 3F 22 3B 00 2B 0D 21 00 A1 58 31 24 3A 8B |1 ?";.+.!..X1$:.|
00000520: 58 31 24 B3 B1 22 22 A7 33 33 20 00 40 0D 22 00 |X1$.."".33 .@.".|
00000530: A1 58 31 24 3A 8B 58 31 24 B2 22 22 A7 33 34 20 |.X1$:.X1$."".34 |
00000540: 00 57 0D 23 00 8B 41 24 28 C6 28 58 31 24 29 29 |.W.#..A$(.(X1$))|
00000550: B2 22 22 A7 33 34 20 00 85 0D 24 00 99 22 9D 9D |."".34 ...$.."..|
00000560: 9D 9D 9D 9D 9D 9D 9D 12 20 20 22 41 24 28 C6 28 |........ "A$(.(|
00000570: 58 31 24 29 29 22 20 2D 92 20 20 42 41 4E 44 20 |X1$))" -. BAND |
00000580: 23 32 3F 22 3B 00 9B 0D 25 00 A1 58 32 24 3A 8B |#2?";...%..X2$:.|
00000590: 58 32 24 B3 B1 22 22 A7 33 37 20 00 B0 0D 26 00 |X2$.."".37 ...&.|
000005A0: A1 58 32 24 3A 8B 58 32 24 B2 22 22 A7 33 38 20 |.X2$:.X2$."".38 |
000005B0: 00 C7 0D 27 00 8B 41 24 28 C6 28 58 32 24 29 29 |...'..A$(.(X2$))|
000005C0: B2 22 22 A7 33 38 20 00 F8 0D 28 00 99 22 9D 9D |."".38 ...(.."..|
000005D0: 9D 9D 9D 9D 9D 9D 9D 9D 12 20 22 41 24 28 C6 28 |......... "A$(.(|
000005E0: 58 32 24 29 29 22 20 2D 92 20 20 4D 55 4C 54 49 |X2$))" -. MULTI|
000005F0: 50 4C 49 45 52 3F 22 3B 00 0E 0E 29 00 A1 58 33 |PLIER?";...)..X3|
00000600: 24 3A 8B 58 33 24 B3 B1 22 22 A7 34 31 20 00 23 |$:.X3$.."".41 .#|
00000610: 0E 2A 00 A1 58 33 24 3A 8B 58 33 24 B2 22 22 A7 |.*..X3$:.X3$."".|
00000620: 34 32 20 00 3A 0E 2B 00 8B 41 24 28 C6 28 58 33 |42 .:.+..A$(.(X3|
00000630: 24 29 29 B2 22 22 A7 34 32 20 00 6B 0E 2C 00 99 |$))."".42 .k.,..|
00000640: 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 12 20 |".............. |
00000650: 22 41 24 28 C6 28 58 33 24 29 29 22 20 20 92 20 |"A$(.(X3$))" . |
00000660: 20 20 20 20 20 20 20 20 22 3A 99 00 7C 0E 2D 00 | ":..|.-.|
00000670: 81 54 B2 31 A4 31 35 30 30 3A 82 54 00 A3 0E 2E |.T.1.1500:.T....|
00000680: 00 8B 41 28 C6 28 58 31 24 29 29 B2 52 28 31 29 |..A(.(X1$)).R(1)|
00000690: AF 41 28 C6 28 58 32 24 29 29 B2 52 28 32 29 A7 |.A(.(X2$)).R(2).|
000006A0: 34 38 20 00 AC 0E 2F 00 89 35 37 20 00 C4 0E 30 |48 .../..57 ...0|
000006B0: 00 8B 41 28 C6 28 58 33 24 29 29 B2 52 28 33 29 |..A(.(X3$)).R(3)|
000006C0: A7 35 30 20 00 CD 0E 31 00 89 35 37 20 00 EF 0E |.50 ...1..57 ...|
000006D0: 32 00 99 3A 99 22 2A 2A 2A 20 20 20 43 4F 52 52 |2..:."*** CORR|
000006E0: 45 43 54 21 20 20 20 2A 2A 2A 22 3A 99 3A 99 00 |ECT! ***":.:..|
000006F0: 22 0F 33 00 99 22 57 4F 55 4C 44 20 59 4F 55 20 |".3.."WOULD YOU |
00000700: 43 41 52 45 20 54 4F 20 54 52 59 20 41 47 41 49 |CARE TO TRY AGAI|
00000710: 4E 3F 20 20 20 12 59 92 45 53 20 20 20 12 4E 92 |N? .Y.ES .N.|
00000720: 4F 22 00 36 0F 34 00 A1 43 24 3A 8B 43 24 B3 B1 |O".6.4..C$:.C$..|
00000730: 22 22 A7 35 32 20 00 49 0F 35 00 A1 43 24 3A 8B |"".52 .I.5..C$:.|
00000740: 43 24 B2 22 22 A7 35 33 20 00 63 0F 36 00 8B 43 |C$."".53 .c.6..C|
00000750: 24 B2 22 4E 22 A7 36 33 20 20 20 20 20 20 20 20 |$."N".63 |
00000760: 20 20 20 00 79 0F 37 00 8B 43 24 B2 22 59 22 A7 | .y.7..C$."Y".|
00000770: 99 22 93 22 3A 89 32 36 20 00 82 0F 38 00 89 35 |.".":.26 ...8..5|
00000780: 33 20 00 AB 0F 39 00 99 22 3F 3F 3F 20 20 49 4E |3 ...9.."??? IN|
00000790: 43 4F 52 52 45 43 54 20 20 3F 3F 3F 22 3A 99 3A |CORRECT ???":.:|
000007A0: 81 54 B2 31 A4 31 30 30 30 3A 82 00 D6 0F 3A 00 |.T.1.1000:....:.|
000007B0: 99 22 54 48 45 20 43 4F 52 52 45 43 54 20 43 4F |."THE CORRECT CO|
000007C0: 4C 4F 52 53 20 57 4F 55 4C 44 20 42 45 2E 2E 2E |LORS WOULD BE...|
000007D0: 2E 2E 2E 22 3A 99 00 E7 0F 3B 00 81 54 B2 31 A4 |...":....;..T.1.|
000007E0: 31 30 30 30 3A 82 54 00 21 10 3C 00 99 22 12 20 |1000:.T.!.<..". |
000007F0: 20 22 52 24 28 52 28 31 29 AA 32 29 22 20 2D 20 | "R$(R(1).2)" - |
00000800: 22 52 24 28 52 28 32 29 AA 32 29 22 20 2D 20 22 |"R$(R(2).2)" - "|
00000810: 52 24 28 52 28 33 29 AA 32 29 22 20 20 92 22 3A |R$(R(3).2)" .":|
00000820: 99 00 31 10 3D 00 81 54 B2 31 A4 35 30 30 3A 82 |..1.=..T.1.500:.|
00000830: 54 00 3A 10 3E 00 89 35 31 20 00 73 10 3F 00 99 |T.:.>..51 .s.?..|
00000840: 22 93 11 11 11 11 11 22 A3 34 29 22 57 4F 55 4C |"......".4)"WOUL|
00000850: 44 20 59 4F 55 20 43 41 52 45 20 54 4F 20 43 48 |D YOU CARE TO CH|
00000860: 41 4E 47 45 20 47 41 4D 45 53 3F 20 22 3A 99 3A |ANGE GAMES? ":.:|
00000870: 99 3A 99 00 8C 10 40 00 99 A3 31 34 29 22 12 59 |.:....@...14)".Y|
00000880: 92 45 53 20 20 20 20 12 4E 92 4F 22 00 A0 10 41 |.ES .N.O"...A|
00000890: 00 A1 4D 24 3A 8B 4D 24 B3 B1 22 22 A7 36 35 20 |..M$:.M$.."".65 |
000008A0: 00 B3 10 42 00 A1 4D 24 3A 8B 4D 24 B2 22 22 A7 |...B..M$:.M$."".|
000008B0: 36 36 20 00 C3 10 43 00 8B 4D 24 B2 22 59 22 A7 |66 ...C..M$."Y".|
000008C0: 32 30 20 00 D9 10 44 00 8B 4D 24 B2 22 4E 22 A7 |20 ...D..M$."N".|
000008D0: 99 22 93 22 3A 89 37 30 20 00 E2 10 45 00 89 36 |.".":.70 ...E..6|
000008E0: 36 20 00 1B 11 46 00 99 22 93 11 11 11 11 11 54 |6 ...F.."......T|
000008F0: 4F 20 53 54 41 52 54 20 50 52 4F 47 52 41 4D 2C |O START PROGRAM,|
00000900: 20 50 52 45 53 53 20 52 45 54 55 52 4E 2E 22 3A | PRESS RETURN.":|
00000910: 99 3A 99 3A 99 3A 99 22 52 55 4E 00 32 11 47 00 |.:.:.:."RUN.2.G.|
00000920: 99 3A 99 3A 99 3A 99 22 91 91 91 91 91 91 91 22 |.:.:.:."......."|
00000930: 3A 80 00 3B 11 48 00 8D 39 33 20 00 7B 11 49 00 |:..;.H..93 .{.I.|
00000940: 99 22 93 11 22 3A 99 22 12 20 22 52 24 28 52 28 |."..":.". "R$(R(|
00000950: 31 29 AA 32 29 22 20 2D 20 22 52 24 28 52 28 32 |1).2)" - "R$(R(2|
00000960: 29 AA 32 29 22 20 2D 20 22 52 24 28 52 28 33 29 |).2)" - "R$(R(3)|
00000970: AA 32 29 22 20 92 22 3A 99 3A 99 00 C0 11 4A 00 |.2)" .":.:....J.|
00000980: 99 22 45 4E 54 45 52 20 59 4F 55 52 20 47 55 45 |."ENTER YOUR GUE|
00000990: 53 53 20 28 44 4F 20 4E 4F 54 20 55 53 45 20 43 |SS (DO NOT USE C|
000009A0: 4F 4D 4D 41 53 29 22 3A 99 22 11 11 54 48 45 4E |OMMAS)":."..THEN|
000009B0: 20 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 22 | PRESS .RETURN."|
000009C0: 00 DD 11 4B 00 85 22 11 11 22 3B 52 47 3A 8B 52 |...K.."..";RG:.R|
000009D0: 47 B1 31 30 A7 52 47 B2 B5 28 52 47 29 00 FD 11 |G.10.RG..(RG)...|
000009E0: 4C 00 99 22 91 20 20 20 12 20 22 52 47 22 9D 20 |L..". . "RG". |
000009F0: 4F 48 4D 53 20 20 92 20 20 20 20 20 22 00 0D 12 |OHMS . "...|
00000A00: 4D 00 81 49 B2 31 A4 35 30 30 3A 82 49 00 26 12 |M..I.1.500:.I.&.|
00000A10: 4E 00 8B B6 28 52 47 AB 52 54 29 B3 2E 30 30 31 |N...(RG.RT)..001|
00000A20: A7 52 47 B2 52 54 00 35 12 4F 00 8B 52 47 B2 52 |.RG.RT.5.O..RG.R|
00000A30: 54 A7 38 31 20 00 3E 12 50 00 89 38 38 20 00 62 |T.81 .>.P..88 .b|
00000A40: 12 51 00 99 3A 99 3A 99 22 2A 2A 2A 20 20 20 43 |.Q..:.:."*** C|
00000A50: 4F 52 52 45 43 54 21 20 20 20 2A 2A 2A 22 3A 99 |ORRECT! ***":.|
00000A60: 3A 99 00 95 12 52 00 99 22 57 4F 55 4C 44 20 59 |:....R.."WOULD Y|
00000A70: 4F 55 20 43 41 52 45 20 54 4F 20 54 52 59 20 41 |OU CARE TO TRY A|
00000A80: 47 41 49 4E 3F 20 20 20 12 59 92 45 53 20 20 20 |GAIN? .Y.ES |
00000A90: 12 4E 92 4F 22 00 A9 12 53 00 A1 43 24 3A 8B 43 |.N.O"...S..C$:.C|
00000AA0: 24 B3 B1 22 22 A7 38 33 20 00 BC 12 54 00 A1 43 |$.."".83 ...T..C|
00000AB0: 24 3A 8B 43 24 B2 22 22 A7 38 34 20 00 CC 12 55 |$:.C$."".84 ...U|
00000AC0: 00 8B 43 24 B2 22 4E 22 A7 36 33 20 00 E2 12 56 |..C$."N".63 ...V|
00000AD0: 00 8B 43 24 B2 22 59 22 A7 99 22 93 22 3A 89 37 |..C$."Y"..".":.7|
00000AE0: 32 20 00 EB 12 57 00 89 38 34 20 00 18 13 58 00 |2 ...W..84 ...X.|
00000AF0: 99 3A 99 3A 99 22 3F 3F 3F 20 20 49 4E 43 4F 52 |.:.:."??? INCOR|
00000B00: 52 45 43 54 20 20 3F 3F 3F 22 3A 99 3A 81 54 B2 |RECT ???":.:.T.|
00000B10: 31 A4 31 30 30 30 3A 82 00 45 13 59 00 99 3A 99 |1.1000:..E.Y..:.|
00000B20: 22 54 48 45 20 43 4F 52 52 45 43 54 20 4E 55 4D |"THE CORRECT NUM|
00000B30: 42 45 52 20 57 4F 55 4C 44 20 42 45 2E 2E 2E 2E |BER WOULD BE....|
00000B40: 2E 2E 22 3A 99 00 56 13 5A 00 81 54 B2 31 A4 31 |..":..V.Z..T.1.1|
00000B50: 30 30 30 3A 82 54 00 74 13 5B 00 99 3A 99 22 12 |000:.T.t.[..:.".|
00000B60: 20 22 52 54 3B 22 9D 20 4F 48 4D 53 20 20 92 22 | "RT;". OHMS ."|
00000B70: 3A 99 3A 99 00 7D 13 5C 00 89 38 32 20 00 BC 13 |:.:..}.\..82 ...|
00000B80: 5D 00 52 28 31 29 B2 B5 28 BB 28 31 29 AC 28 39 |].R(1)..(.(1).(9|
00000B90: 29 AA 31 29 3A 52 28 32 29 B2 B5 28 BB 28 31 29 |).1):R(2)..(.(1)|
00000BA0: AC 39 29 AA 31 3A 52 28 33 29 B2 B5 28 28 BB 28 |.9).1:R(3)..((.(|
00000BB0: 31 29 AC 28 39 29 AA 31 29 AB 33 29 00 DE 13 5E |1).(9).1).3)...^|
00000BC0: 00 52 54 B2 28 28 52 28 31 29 AC 31 30 29 AA 52 |.RT.((R(1).10).R|
00000BD0: 28 32 29 29 AC 28 31 30 AE 52 28 33 29 29 00 F2 |(2)).(10.R(3))..|
00000BE0: 13 5F 00 8B 52 54 B1 31 30 A7 52 54 B2 B5 28 52 |._..RT.10.RT..(R|
00000BF0: 54 29 00 F8 13 60 00 8E 00 2A 14 61 00 99 22 93 |T)...`...*.a..".|
00000C00: 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 |........... |
00000C10: 20 20 20 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 | INSTRUCTIONS|
00000C20: 20 3F 20 20 28 59 2F 4E 29 22 00 3E 14 62 00 A1 | ? (Y/N)".>.b..|
00000C30: 41 24 3A 8B 41 24 B3 B1 22 22 A7 39 38 20 00 51 |A$:.A$.."".98 .Q|
00000C40: 14 63 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 39 39 |.c..A$:.A$."".99|
00000C50: 20 00 62 14 64 00 8B 41 24 B2 22 4E 22 A7 31 33 | .b.d..A$."N".13|
00000C60: 39 20 00 73 14 65 00 8B 41 24 B3 B1 22 59 22 A7 |9 .s.e..A$.."Y".|
00000C70: 39 38 20 00 AA 14 66 00 99 22 93 22 3A 99 22 91 |98 ...f..".":.".|
00000C80: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 |THIS PROGRAM IS |
00000C90: 44 45 53 49 47 4E 45 44 20 54 4F 20 46 41 4D 49 |DESIGNED TO FAMI|
00000CA0: 4C 49 41 52 49 5A 45 22 3A 99 00 DA 14 67 00 99 |LIARIZE":....g..|
00000CB0: 22 54 48 45 20 55 53 45 52 2C 20 28 59 4F 55 29 |"THE USER, (YOU)|
00000CC0: 2C 20 57 49 54 48 20 54 48 45 20 52 45 53 49 53 |, WITH THE RESIS|
00000CD0: 54 4F 52 20 43 4F 4C 4F 52 22 00 0A 15 68 00 99 |TOR COLOR"...h..|
00000CE0: 22 43 4F 44 45 2E 20 59 4F 55 20 57 49 4C 4C 20 |"CODE. YOU WILL |
00000CF0: 48 41 56 45 20 59 4F 55 52 20 43 48 4F 49 43 45 |HAVE YOUR CHOICE|
00000D00: 20 4F 46 20 54 57 4F 22 3A 99 00 33 15 69 00 99 | OF TWO":..3.i..|
00000D10: 22 57 41 59 53 20 54 4F 20 4C 45 41 52 4E 20 54 |"WAYS TO LEARN T|
00000D20: 48 45 20 43 4F 4C 4F 52 20 43 4F 44 45 2E 22 3A |HE COLOR CODE.":|
00000D30: 99 3A 99 00 63 15 6A 00 99 22 20 20 20 31 29 20 |.:..c.j.." 1) |
00000D40: 20 41 20 52 41 4E 44 4F 4D 20 52 45 53 49 53 54 | A RANDOM RESIST|
00000D50: 41 4E 43 45 20 56 41 4C 55 45 20 49 4E 20 4F 48 |ANCE VALUE IN OH|
00000D60: 4D 53 22 00 93 15 6B 00 99 22 57 49 4C 4C 20 42 |MS"...k.."WILL B|
00000D70: 45 20 43 41 4C 43 55 4C 41 54 45 44 20 41 4E 44 |E CALCULATED AND|
00000D80: 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 41 53 4B | YOU WILL BE ASK|
00000D90: 45 44 22 00 BC 15 6C 00 99 22 46 4F 52 20 54 48 |ED"...l.."FOR TH|
00000DA0: 45 20 43 4F 52 52 45 53 50 4F 4E 44 49 4E 47 20 |E CORRESPONDING |
00000DB0: 43 4F 4C 4F 52 53 2E 22 3A 99 3A 99 00 ED 15 6D |COLORS.":.:....m|
00000DC0: 00 99 22 20 20 20 32 29 20 20 54 48 45 20 43 4F |.." 2) THE CO|
00000DD0: 4C 4F 52 53 20 4F 46 20 41 20 52 45 53 49 53 54 |LORS OF A RESIST|
00000DE0: 4F 52 20 57 49 4C 4C 20 42 45 22 3A 99 00 1E 16 |OR WILL BE":....|
00000DF0: 6E 00 99 22 47 49 56 45 4E 20 41 4E 44 20 59 4F |n.."GIVEN AND YO|
00000E00: 55 20 57 49 4C 4C 20 42 45 20 41 53 4B 45 44 20 |U WILL BE ASKED |
00000E10: 46 4F 52 20 54 48 45 20 52 45 2D 22 3A 99 00 41 |FOR THE RE-":..A|
00000E20: 16 6F 00 99 22 53 49 53 54 41 4E 43 45 20 56 41 |.o.."SISTANCE VA|
00000E30: 4C 55 45 20 49 4E 20 4F 48 4D 53 2E 22 3A 99 3A |LUE IN OHMS.":.:|
00000E40: 99 00 67 16 70 00 99 A3 37 29 22 12 50 52 45 53 |..g.p...7)".PRES|
00000E50: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |S ANY KEY TO CON|
00000E60: 54 49 4E 55 45 92 22 00 7C 16 71 00 A1 5A 24 3A |TINUE.".|.q..Z$:|
00000E70: 8B 5A 24 B3 B1 22 22 A7 31 31 33 20 00 90 16 72 |.Z$.."".113 ...r|
00000E80: 00 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 31 31 34 20 |..Z$:.Z$."".114 |
00000E90: 00 C2 16 73 00 99 22 93 57 48 49 4C 45 20 54 48 |...s..".WHILE TH|
00000EA0: 45 20 52 45 53 49 53 54 4F 52 53 20 59 4F 55 20 |E RESISTORS YOU |
00000EB0: 57 49 4C 4C 20 42 45 20 44 45 41 4C 49 4E 47 22 |WILL BE DEALING"|
00000EC0: 3A 99 00 F2 16 74 00 99 22 57 49 54 48 20 41 52 |:....t.."WITH AR|
00000ED0: 45 20 41 43 54 55 41 4C 4C 59 20 46 4F 55 52 20 |E ACTUALLY FOUR |
00000EE0: 42 41 4E 44 20 52 45 53 49 53 54 4F 52 53 2C 22 |BAND RESISTORS,"|
00000EF0: 3A 99 00 20 17 75 00 99 22 59 4F 55 20 57 49 4C |:.. .u.."YOU WIL|
00000F00: 4C 20 4E 4F 54 20 42 45 20 41 53 4B 45 44 20 46 |L NOT BE ASKED F|
00000F10: 4F 52 20 54 48 45 20 46 4F 55 52 54 48 22 3A 99 |OR THE FOURTH":.|
00000F20: 00 4F 17 76 00 99 22 42 41 4E 44 2C 20 28 54 4F |.O.v.."BAND, (TO|
00000F30: 4C 45 52 41 4E 43 45 29 2E 20 4F 4E 4C 59 20 54 |LERANCE). ONLY T|
00000F40: 48 45 20 46 49 52 53 54 20 54 57 4F 22 3A 99 00 |HE FIRST TWO":..|
00000F50: 74 17 77 00 99 22 42 41 4E 44 53 20 41 4E 44 20 |t.w.."BANDS AND |
00000F60: 54 48 45 20 4D 55 4C 54 49 50 4C 49 45 52 2E 22 |THE MULTIPLIER."|
00000F70: 3A 99 3A 99 00 A3 17 78 00 99 22 54 48 45 20 56 |:.:....x.."THE V|
00000F80: 41 4C 55 45 53 20 4F 46 20 54 48 45 53 45 20 52 |ALUES OF THESE R|
00000F90: 45 53 49 53 54 4F 52 53 20 4D 41 59 20 4E 4F 54 |ESISTORS MAY NOT|
00000FA0: 22 3A 99 00 D4 17 79 00 99 22 41 4C 57 41 59 53 |":....y.."ALWAYS|
00000FB0: 20 53 45 45 4D 20 52 45 41 4C 49 53 54 49 43 2C | SEEM REALISTIC,|
00000FC0: 20 42 55 54 20 42 45 20 53 45 43 55 52 45 20 49 | BUT BE SECURE I|
00000FD0: 4E 22 3A 99 00 03 18 7A 00 99 22 54 48 45 20 4B |N":....z.."THE K|
00000FE0: 4E 4F 57 4C 45 44 47 45 20 54 48 41 54 20 54 48 |NOWLEDGE THAT TH|
00000FF0: 45 59 20 44 4F 20 46 4F 4C 4C 4F 57 20 54 48 45 |EY DO FOLLOW THE|
00001000: 22 3A 99 00 33 18 7B 00 99 22 43 4F 4C 4F 52 20 |":..3.{.."COLOR |
00001010: 43 4F 44 45 20 41 4E 44 20 57 49 4C 4C 20 53 55 |CODE AND WILL SU|
00001020: 52 45 4C 59 20 50 52 4F 56 49 44 45 20 48 4F 55 |RELY PROVIDE HOU|
00001030: 52 53 22 00 5C 18 7C 00 99 22 4F 46 20 48 45 52 |RS".\.|.."OF HER|
00001040: 45 54 4F 46 4F 52 45 20 55 4E 49 4D 41 47 49 4E |ETOFORE UNIMAGIN|
00001050: 45 44 20 46 55 4E 2E 22 3A 99 3A 99 00 82 18 7D |ED FUN.":.:....}|
00001060: 00 99 A3 37 29 22 12 50 52 45 53 53 20 41 4E 59 |...7)".PRESS ANY|
00001070: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00001080: 92 22 00 97 18 7E 00 A1 5A 24 3A 8B 5A 24 B3 B1 |."...~..Z$:.Z$..|
00001090: 22 22 A7 31 32 36 20 00 AB 18 7F 00 A1 5A 24 3A |"".126 ......Z$:|
000010A0: 8B 5A 24 B2 22 22 A7 31 32 37 20 00 E3 18 80 00 |.Z$."".127 .....|
000010B0: 99 22 93 22 3A 99 3A 99 3A 99 22 57 48 45 4E 20 |.".":.:.:."WHEN |
000010C0: 59 4F 55 20 41 52 45 20 41 53 4B 45 44 20 54 4F |YOU ARE ASKED TO|
000010D0: 20 43 48 4F 4F 53 45 20 4F 4E 45 20 4F 46 20 41 | CHOOSE ONE OF A|
000010E0: 22 3A 99 00 11 19 81 00 99 22 4E 55 4D 42 45 52 |":......."NUMBER|
000010F0: 20 4F 46 20 4F 50 54 49 4F 4E 53 2C 20 50 55 53 | OF OPTIONS, PUS|
00001100: 48 20 54 48 45 20 4B 45 59 20 54 48 41 54 22 3A |H THE KEY THAT":|
00001110: 99 00 3F 19 82 00 99 22 4D 41 54 43 48 45 53 20 |..?...."MATCHES |
00001120: 54 48 45 20 27 52 45 56 45 52 53 45 44 27 20 4C |THE 'REVERSED' L|
00001130: 45 54 54 45 52 20 49 4E 20 54 48 45 22 3A 99 00 |ETTER IN THE":..|
00001140: 5D 19 83 00 99 22 4F 50 54 49 4F 4E 20 59 4F 55 |]...."OPTION YOU|
00001150: 20 43 48 4F 4F 53 45 2E 22 3A 99 3A 99 00 86 19 | CHOOSE.":.:....|
00001160: 84 00 99 22 20 20 46 4F 52 20 45 58 41 4D 50 4C |..." FOR EXAMPL|
00001170: 45 3A 20 20 20 12 59 92 45 53 20 20 20 12 4E 92 |E: .Y.ES .N.|
00001180: 4F 22 3A 99 3A 99 00 B0 19 85 00 99 22 54 4F 20 |O":.:......."TO |
00001190: 43 48 4F 4F 53 45 20 27 59 45 53 27 2C 20 50 55 |CHOOSE 'YES', PU|
000011A0: 53 48 20 54 48 45 20 27 59 27 2E 22 3A 99 3A 99 |SH THE 'Y'.":.:.|
000011B0: 00 DE 19 86 00 99 22 4E 4F 54 45 3A 20 2D 2D 20 |......"NOTE: -- |
000011C0: 53 43 52 45 45 4E 20 43 4F 4C 4F 52 53 20 41 52 |SCREEN COLORS AR|
000011D0: 45 20 4E 4F 54 20 55 53 45 44 20 53 4F 22 00 0E |E NOT USED SO"..|
000011E0: 1A 87 00 99 3A 99 22 54 48 4F 53 45 20 57 49 54 |....:."THOSE WIT|
000011F0: 48 20 42 26 57 20 4D 4F 4E 49 54 4F 52 53 20 48 |H B&W MONITORS H|
00001200: 41 56 45 20 41 20 43 48 41 4E 43 45 2E 22 00 38 |AVE A CHANCE.".8|
00001210: 1A 88 00 99 3A 99 3A 99 A3 37 29 22 12 50 52 45 |....:.:..7)".PRE|
00001220: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |SS ANY KEY TO CO|
00001230: 4E 54 49 4E 55 45 92 22 00 4D 1A 89 00 A1 5A 24 |NTINUE.".M....Z$|
00001240: 3A 8B 5A 24 B3 B1 22 22 A7 31 33 37 20 00 61 1A |:.Z$.."".137 .a.|
00001250: 8A 00 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 31 33 38 |...Z$:.Z$."".138|
00001260: 20 00 67 1A 8B 00 8E 00 95 1A 8C 00 99 3A 99 A3 | .g..........:..|
00001270: 38 29 22 12 95 20 20 1C 20 20 20 95 20 20 05 20 |8)".. . . . |
00001280: 20 20 95 20 20 1F 20 20 20 95 20 20 20 20 20 20 | . . . |
00001290: 20 20 20 92 22 00 C1 1A 8D 00 99 A3 38 29 22 12 | .".......8)".|
000012A0: 95 20 20 1C 20 20 20 95 20 20 05 20 20 20 95 20 |. . . . . |
000012B0: 20 1F 20 20 20 95 20 20 20 20 20 20 20 20 20 92 | . . .|
000012C0: 22 00 FB 1A 8E 00 99 22 20 9B D5 C0 C0 C0 C0 C0 |"......" .......|
000012D0: C0 12 95 20 20 1C 20 20 20 95 20 20 05 20 20 20 |... . . . |
000012E0: 95 20 20 1F 20 20 20 95 20 20 20 20 20 20 20 20 |. . . |
000012F0: 20 92 9B C0 C0 C0 C0 C0 C0 C9 22 00 35 1B 8F 00 | .........".5...|
00001300: 99 22 20 DD 22 3B A3 38 29 22 12 95 20 20 1C 20 |." .";.8)".. . |
00001310: 20 20 95 20 20 05 20 20 20 95 20 20 1F 20 20 20 | . . . . |
00001320: 95 20 20 20 20 20 20 20 20 20 92 22 3B A3 33 38 |. .";.38|
00001330: 29 22 05 DD 22 00 6F 1B 90 00 99 22 20 DD 22 3B |)"..".o...." .";|
00001340: A3 38 29 22 12 95 20 20 1C 20 20 20 95 20 20 05 |.8)".. . . .|
00001350: 20 20 20 95 20 20 1F 20 20 20 95 20 20 20 20 20 | . . . |
00001360: 20 20 20 20 92 22 3B A3 33 38 29 22 05 DD 22 00 | .";.38)"..".|
00001370: 8D 1B 91 00 81 5A B2 31 A4 37 3A 99 A3 31 29 22 |.....Z.1.7:..1)"|
00001380: DD 22 3B A3 33 38 29 22 DD 22 3A 82 5A 00 C4 1B |.";.38)".":.Z...|
00001390: 92 00 99 A3 31 29 22 DD 22 3B A3 39 29 20 20 20 |....1)".";.9) |
000013A0: 20 20 22 12 20 20 20 20 20 20 20 20 20 20 20 20 | ". |
000013B0: 20 20 20 20 20 20 20 20 20 20 92 22 3B A3 33 38 | .";.38|
000013C0: 29 22 DD 22 00 F6 1B 93 00 99 A3 31 29 22 DD 22 |)".".......1)"."|
000013D0: 3B A3 39 29 22 12 20 20 43 4F 4C 4F 52 20 43 4F |;.9)". COLOR CO|
000013E0: 44 45 20 54 52 41 49 4E 45 52 20 20 92 22 3B A3 |DE TRAINER .";.|
000013F0: 33 38 29 22 DD 22 00 2D 1C 94 00 99 A3 31 29 22 |38)".".-.....1)"|
00001400: DD 22 3B A3 39 29 20 20 20 20 20 22 12 20 20 20 |.";.9) ". |
00001410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001420: 20 20 20 92 22 3B A3 33 38 29 22 DD 22 00 4B 1C | .";.38)".".K.|
00001430: 95 00 81 5A B2 31 A4 33 3A 99 A3 31 29 22 DD 22 |...Z.1.3:..1)"."|
00001440: 3B A3 33 38 29 22 DD 22 3A 82 5A 00 60 1C 96 00 |;.38)".":.Z.`...|
00001450: 99 22 D5 DD C9 22 3B A3 33 37 29 22 D5 DD C9 22 |."...";.37)"..."|
00001460: 00 78 1C 97 00 99 22 91 CA C3 CB 22 3A 99 A3 33 |.x...."....":..3|
00001470: 37 29 22 91 CA C3 CB 22 00 8B 1C 98 00 81 54 B2 |7)"...."......T.|
00001480: 31 A4 32 35 30 30 3A 82 54 3A 8E 00 9E 1C 99 00 |1.2500:.T:......|
00001490: 50 50 B2 B5 28 BB 28 31 29 AC 31 30 30 29 00 B7 |PP..(.(1).100)..|
000014A0: 1C 9A 00 8B 50 50 B1 B2 35 30 AF 52 54 B1 31 30 |....PP..50.RT.10|
000014B0: AE 36 89 31 35 38 20 00 CF 1C 9B 00 8B 50 50 B3 |.6.158 ......PP.|
000014C0: 35 30 AF 52 54 B1 31 30 AE 33 89 31 35 37 20 00 |50.RT.10.3.157 .|
000014D0: D9 1C 9C 00 89 31 36 32 20 00 EB 1C 9D 00 8B 52 |.....162 ......R|
000014E0: 54 B3 31 30 AE 36 89 31 36 30 20 00 1B 1D 9E 00 |T.10.6.160 .....|
000014F0: 52 54 B2 52 54 AD 31 30 AE 36 3A 8B 50 50 B1 37 |RT.RT.10.6:.PP.7|
00001500: 35 A7 4B 4D 24 B2 22 4D 45 47 4F 48 4D 53 20 20 |5.KM$."MEGOHMS |
00001510: 20 2A 2A 2A 22 3A 89 31 36 33 20 00 38 1D 9F 00 | ***":.163 .8...|
00001520: 4B 4D 24 B2 22 4D 20 4F 48 4D 53 20 20 20 2A 2A |KM$."M OHMS **|
00001530: 2A 22 3A 89 31 36 33 20 00 68 1D A0 00 52 54 B2 |*":.163 .h...RT.|
00001540: 52 54 AD 31 30 AE 33 3A 8B 50 50 B3 32 35 A7 4B |RT.10.3:.PP.25.K|
00001550: 4D 24 B2 22 4B 49 4C 4F 48 4D 53 20 20 20 2A 2A |M$."KILOHMS **|
00001560: 2A 22 3A 89 31 36 33 20 00 85 1D A1 00 4B 4D 24 |*":.163 .....KM$|
00001570: B2 22 4B 20 4F 48 4D 53 20 20 20 2A 2A 2A 22 3A |."K OHMS ***":|
00001580: 89 31 36 33 20 00 9A 1D A2 00 4B 4D 24 B2 22 4F |.163 .....KM$."O|
00001590: 48 4D 53 20 20 20 2A 2A 2A 22 00 A0 1D A3 00 8E |HMS ***"......|
000015A0: 00 00 00 |... |
..(.... ******* *******
.O.... ****** COLOR CODE ******.
V.... ***** BY *****..
.... ***** OYSTER ONE *****.D.
... ***** *****....
.. ***** ( PUBLIC DOMAIN ) *****.....
. ****** 05/25/87 ******.9....
******* *******.]...."
.":.53280,0:.53281,0:.".":L.0......A$(10
0):.A(100):.R$(12):A$(87)."WHITE":A$(89)
."YELLOW".....A$(65)."GRAY":A$(66)."BLUE
":A$(68)."GOLD":A$(71)."GREEN":A$(75)."B
LACK".5...A$(78)."BROWN":A$(79)."ORANGE"
:A$(82)."RED":A$(83)."SILVER":A$(86)."VI
OLET".....A(65).8:A(66).6:A(68)..1:A(71)
.5:A(75).0:A(78).1:A(79).3:A(82).2:A(83)
..2.....A(86).7:A(87).9:A(89).4.....R$(O
)."SILVER":R$(1)."GOLD":R$(2)."BLACK":R$
(3)."BROWN":R$(4)."RED".%...R$(5)."ORANG
E":R$(6)."YELLOW":R$(7)."GREEN":R$(8)."B
LUE":.U...R$(9)."VIOLET":R$(10)."GRAY":R
$(11)."WHITE"._....140 .I....97 ......"
......DO YOU WANT TO GUESS COLORS OR NUM
BERS?".F....:.:.:..11)".C.OLOR .N.
UMBER".Y....U$:.U$."".24 ......U$."N".72
......U$."C".26 ......22 ......93 .H...
.".":." GR.A.Y";.12)".B.LUE";.22)"GOL.D
.";.32)".G.REEN"......:." BLAC.K.";.12)
"BROW.N.";.22)".O.RANGE";.32)".R.ED":..F
...." .S.ILVER";.12)".V.IOLET";.22)".W.
HITE";.32)".Y.ELLOW":.......:.J.1.40:."Z
";:.J:.:.......153 ... ..".*** ";RT". "
KM$:.:.:."BAND #1 ?";.+.!..X1$:.X1$.."".
33 .@."..X1$:.X1$."".34 .W.#..A$(F(X1$))
."".34 ...$..".......... "A$(F(X1$))" -
. BAND #2?";...%..X2$:.X2$.."".37 ...&.
.X2$:.X2$."".38 .G.'..A$(F(X2$))."".38 .
..(.."........... "A$(F(X2$))" -. MULTI
PLIER?";...)..X3$:.X3$.."".41 .#.*..X3$:
.X3$."".42 .:.+..A$(F(X3$))."".42 .K.,..
".............. "A$(F(X3$))" .
":..|.-..T.1.1500:.T......A(F(X1$)).R(1)
.A(F(X2$)).R(2).48 .../..57 .D.0..A(F(X3
$)).R(3).50 .M.1..57 ...2..:."*** CORR
ECT! ***":.:..".3.."WOULD YOU CARE TO
TRY AGAIN? .Y.ES .N.O".6.4..C$:.C$..
"".52 .I.5..C$:.C$."".53 .C.6..C$."N".63
.Y.7..C$."Y"..".":.26 ...8..5
3 ...9.."??? INCORRECT ???":.:.T.1.100
0:..V.:.."THE CORRECT COLORS WOULD BE...
...":....;..T.1.1000:.T.!.<..". "R$(R(1
).2)" - "R$(R(2).2)" - "R$(R(3).2)" .":
..1.=..T.1.500:.T.:.>..51 .S.?.."......"
.4)"WOULD YOU CARE TO CHANGE GAMES? ":.:
.:....@...14)".Y.ES .N.O". .A..M$:.M$
.."".65 ...B..M$:.M$."".66 .C.C..M$."Y".
20 .Y.D..M$."N"..".":.70 ...E..66 ...F..
"......TO START PROGRAM, PRESS RETURN.":
.:.:.:."RUN.2.G..:.:.:.".......":..;.H..
93 .{.I.."..":.". "R$(R(1).2)" - "R$(R(2
).2)" - "R$(R(3).2)" .":.:....J.."ENTER
YOUR GUESS (DO NOT USE COMMAS)":."..THEN
PRESS .RETURN."...K.."..";RG:.RG.10.RG.
.(RG)...L..". . "RG". OHMS . "...
M..I.1.500:.I.&.N...(RG.RT)..001.RG.RT.5
.O..RG.RT.81 .>.P..88 .B.Q..:.:."*** C
ORRECT! ***":.:....R.."WOULD YOU CARE
TO TRY AGAIN? .Y.ES .N.O"...S..C$:.C
$.."".83 ...T..C$:.C$."".84 .L.U..C$."N"
.63 ...V..C$."Y"..".":.72 ...W..84 ...X.
.:.:."??? INCORRECT ???":.:.T.1.1000:.
.E.Y..:."THE CORRECT NUMBER WOULD BE....
..":..V.Z..T.1.1000:.T.T.[..:.". "RT;".
OHMS .":.:..}.\..82 ...].R(1)..(.(1).(9
).1):R(2)..(.(1).9).1:R(3)..((.(1).(9).1
).3)...^.RT.((R(1).10).R(2)).(10.R(3))..
._..RT.10.RT..(RT)...`...*.A..".........
... INSTRUCTIONS ? (Y/N)".>.B..
A$:.A$.."".98 .Q.C..A$:.A$."".99 .B.D..A
$."N".139 .S.E..A$.."Y".98 ...F..".":.".
THIS PROGRAM IS DESIGNED TO FAMILIARIZE"
:..Z.G.."THE USER, (YOU), WITH THE RESIS
TOR COLOR"...H.."CODE. YOU WILL HAVE YOU
R CHOICE OF TWO":..3.I.."WAYS TO LEARN T
HE COLOR CODE.":.:..C.J.." 1) A RANDO
M RESISTANCE VALUE IN OHMS"...K.."WILL B
E CALCULATED AND YOU WILL BE ASKED"...L.
."FOR THE CORRESPONDING COLORS.":.:....M
.." 2) THE COLORS OF A RESISTOR WILL
BE":....N.."GIVEN AND YOU WILL BE ASKED
FOR THE RE-":..A.O.."SISTANCE VALUE IN O
HMS.":.:..G.P...7)".PRESS ANY KEY TO CON
TINUE.".|.Q..Z$:.Z$.."".113 ...R..Z$:.Z$
."".114 .B.S..".WHILE THE RESISTORS YOU
WILL BE DEALING":....T.."WITH ARE ACTUAL
LY FOUR BAND RESISTORS,":.. .U.."YOU WIL
L NOT BE ASKED FOR THE FOURTH":..O.V.."B
AND, (TOLERANCE). ONLY THE FIRST TWO":..
T.W.."BANDS AND THE MULTIPLIER.":.:....X
.."THE VALUES OF THESE RESISTORS MAY NOT
":..T.Y.."ALWAYS SEEM REALISTIC, BUT BE
SECURE IN":....Z.."THE KNOWLEDGE THAT TH
EY DO FOLLOW THE":..3.{.."COLOR CODE AND
WILL SURELY PROVIDE HOURS".\.|.."OF HER
ETOFORE UNIMAGINED FUN.":.:....}...7)".P
RESS ANY KEY TO CONTINUE."...~..Z$:.Z$..
"".126 .....Z$:.Z$."".127 ......".":.:.
:."WHEN YOU ARE ASKED TO CHOOSE ONE OF A
":......."NUMBER OF OPTIONS, PUSH THE KE
Y THAT":..?...."MATCHES THE 'REVERSED' L
ETTER IN THE":..]...."OPTION YOU CHOOSE.
":.:......." FOR EXAMPLE: .Y.ES .N.
O":.:......."TO CHOOSE 'YES', PUSH THE '
Y'.":.:......."NOTE: -- SCREEN COLORS AR
E NOT USED SO"......:."THOSE WITH B&W MO
NITORS HAVE A CHANCE.".8....:.:..7)".PRE
SS ANY KEY TO CONTINUE.".M....Z$:.Z$..""
.137 .A....Z$:.Z$."".138 .G..........:..
8)".. . . . . . . .".A.
....8)".. . . . . . . .
"......" .U........ . . . . . .
........I".5...." .";.8)".. .
. . . . . .";.38)"..".O.
..." .";.8)".. . . . . . .
.";.38)".."......Z.1.7:..1)".";.38)"
.":.Z.D.....1)".";.9) ".
.";.38)".".......1)".";.9)".
COLOR CODE TRAINER .";.38)".".-.....1)"
.";.9) ". .";.3
8)".".K....Z.1.3:..1)".";.38)".":.Z.`...
."U.I";.37)"U.I".X....".JCK":..37)".JCK"
......T.1.2500:.T:......PP..(.(1).100)..
....PP..50.RT.10.6.158 .O....PP.50.RT.10
.3.157 .Y....162 ......RT.10.6.160 .....
RT.RT.10.6:.PP.75.KM$."MEGOHMS ***":.1
63 .8...KM$."M OHMS ***":.163 .H. .RT.
RT.10.3:.PP.25.KM$."KILOHMS ***":.163
.....KM$."K OHMS ***":.163 .....KM$."O
HMS ***". .......
> CLICK IMAGE PREVIEW FOR FULL MODAL