RAINBOW DISK
FILE INFORMATION
FILENAME(S): RAINBOW DISK
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 20:22:43
APPEARS ON: 2 disk(s)
FILE HASH
9b3b33bea3320ce857e52c9949f5dbbbb20758a22eaa9da6abf089bd267fca94
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK NUMMER | RAINBOW DISK | PRG | Curtcool, Misc | 19 | 0 | DOWNLOAD FILE |
| DISK NUMMER | RAINBOW DISK | PRG | Curtcool, Misc | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 01 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..(....*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 02 00 8F 2A 2A |********.O....**| 00000030: 2A 20 52 41 49 4E 42 4F 57 20 44 49 53 4B 20 55 |* RAINBOW DISK U| 00000040: 54 49 4C 49 54 59 20 56 31 2E 30 20 2A 2A 2A 00 |TILITY V1.0 ***.| 00000050: 76 08 03 00 8F 2A 2A 2A 20 48 2E 57 2E 53 2E 20 |v....*** H.W.S. | 00000060: 20 2D 2D 20 20 53 45 50 54 20 31 39 38 35 20 20 | -- SEPT 1985 | 00000070: 20 20 20 2A 2A 2A 00 9D 08 04 00 8F 2A 2A 2A 2A | ***......****| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C4 08 |*************...| 000000A0: 05 00 8F 2A 2A 2A 20 20 53 45 54 20 55 50 20 53 |...*** SET UP S| 000000B0: 43 52 45 45 4E 20 26 20 53 54 52 49 4E 47 53 20 |CREEN & STRINGS | 000000C0: 20 2A 2A 2A 00 EB 08 06 00 8F 2A 2A 2A 2A 2A 2A | ***......******| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2B 09 0A 00 |***********.+...| 000000F0: 97 36 33 32 38 31 2C 30 3A 52 56 24 B2 C7 28 31 |.63281,0:RV$..(1| 00000100: 38 29 3A 43 44 24 B2 C7 28 31 37 29 3A 43 55 24 |8):CD$..(17):CU$| 00000110: B2 C7 28 31 34 35 29 3A 43 53 24 B2 C7 28 31 34 |..(145):CS$..(14| 00000120: 37 29 3A 57 48 24 B2 C7 28 35 29 00 57 09 14 00 |7):WH$..(5).W...| 00000130: 81 49 B2 31 A4 35 3A 87 44 3A 81 4A B2 30 A4 31 |.I.1.5:.D:.J.0.1| 00000140: 33 3A 44 24 28 49 29 B2 44 24 28 49 29 AA C7 28 |3:D$(I).D$(I)..(| 00000150: 44 29 3A 82 4A 2C 49 00 6B 09 1E 00 83 34 35 2C |D):.J,I.k....45,| 00000160: 39 35 2C 34 33 2C 33 35 2C 33 32 00 7F 09 28 00 |95,43,35,32...(.| 00000170: 44 24 28 35 29 B2 52 56 24 AA 44 24 28 35 29 00 |D$(5).RV$.D$(5).| 00000180: 9A 09 32 00 81 49 B2 31 A4 34 3A 87 43 3A 43 24 |..2..I.1.4:.C:C$| 00000190: 28 49 29 B2 C7 28 43 29 3A 82 00 AA 09 3C 00 83 |(I)..(C):....<..| 000001A0: 35 2C 32 38 2C 33 30 2C 33 31 00 D0 09 43 00 8F |5,28,30,31...C..| 000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001D0: 00 F6 09 44 00 8F 2A 2A 2A 20 20 20 20 20 20 20 |...D..*** | 000001E0: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 20 20 20 |INSTRUCTIONS | 000001F0: 20 20 20 2A 2A 2A 00 1C 0A 45 00 8F 2A 2A 2A 2A | ***...E..****| 00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 52 0A 46 |************.R.F| 00000220: 00 99 43 24 43 44 24 57 48 24 52 56 24 22 20 52 |..C$CD$WH$RV$" R| 00000230: 41 49 4E 42 4F 57 20 44 49 53 4B 20 20 2D 20 20 |AINBOW DISK - | 00000240: 48 2E 57 2E 53 2E 20 20 53 45 50 54 20 31 39 38 |H.W.S. SEPT 198| 00000250: 35 22 00 6F 0A 50 00 81 49 B2 35 35 33 33 37 A4 |5".o.P..I.55337.| 00000260: 35 35 33 34 38 3A 87 43 3A 97 49 2C 43 3A 82 00 |55348:.C:.I,C:..| 00000270: 90 0A 5A 00 83 37 2C 33 2C 34 2C 35 2C 37 2C 38 |..Z..7,3,4,5,7,8| 00000280: 2C 34 2C 37 2C 31 30 2C 31 32 2C 31 33 2C 31 34 |,4,7,10,12,13,14| 00000290: 00 BE 0A 64 00 99 22 20 43 52 45 41 54 45 20 43 |...d.." CREATE C| 000002A0: 4F 4C 4F 52 46 55 4C 20 44 49 53 4B 20 44 49 52 |OLORFUL DISK DIR| 000002B0: 45 43 54 4F 52 49 45 53 20 57 48 49 54 22 00 DE |ECTORIES WHIT"..| 000002C0: 0A 6E 00 99 22 20 54 48 49 53 20 55 53 45 46 55 |.n.." THIS USEFU| 000002D0: 4C 20 55 54 49 4C 49 54 59 2E 22 43 44 24 00 0D |L UTILITY."CD$..| 000002E0: 0B 78 00 99 22 20 43 48 4F 4F 53 45 20 41 20 53 |.x.." CHOOSE A S| 000002F0: 55 49 54 41 42 4C 45 20 44 49 56 49 44 45 52 20 |UITABLE DIVIDER | 00000300: 41 4E 44 20 43 4F 4C 4F 55 52 20 2D 22 00 3D 0B |AND COLOUR -".=.| 00000310: 82 00 99 22 20 41 4C 4C 20 46 49 4C 45 53 20 4C |..." ALL FILES L| 00000320: 4F 57 45 52 20 4F 4E 20 54 48 45 20 20 44 49 53 |OWER ON THE DIS| 00000330: 4B 20 44 44 49 52 45 43 54 4F 52 59 22 00 6C 0B |K DDIRECTORY".l.| 00000340: 8C 00 99 22 A0 57 49 4C 4C 20 42 45 20 44 49 53 |...".WILL BE DIS| 00000350: 50 4C 41 59 45 44 20 4F 4E 20 54 48 45 20 53 43 |PLAYED ON THE SC| 00000360: 52 45 45 4E 20 49 4E 20 54 48 45 22 00 84 0B 96 |REEN IN THE"....| 00000370: 00 99 22 20 4E 45 57 20 43 4F 4C 4F 55 52 20 21 |.." NEW COLOUR !| 00000380: 22 43 44 24 00 B3 0B A0 00 99 22 20 57 48 49 54 |"CD$......" WHIT| 00000390: 20 41 20 42 49 54 20 4F 46 20 50 4C 41 4E 4E 49 | A BIT OF PLANNI| 000003A0: 4E 47 2C 20 59 4F 55 20 43 41 4E 20 43 52 45 41 |NG, YOU CAN CREA| 000003B0: 54 45 22 00 E2 0B AA 00 99 22 A0 41 20 4D 55 4C |TE"......".A MUL| 000003C0: 54 49 43 4F 4C 4F 55 52 20 44 49 52 45 43 54 4F |TICOLOUR DIRECTO| 000003D0: 52 59 20 54 4F 20 48 49 47 48 4C 49 47 48 54 20 |RY TO HIGHLIGHT | 000003E0: 41 22 00 06 0C B4 00 99 22 20 50 41 52 54 49 43 |A"......" PARTIC| 000003F0: 55 4C 41 52 20 53 45 54 20 4F 46 20 46 49 4C 45 |ULAR SET OF FILE| 00000400: 53 2E 22 43 44 24 00 2E 0C BE 00 99 22 20 46 4F |S."CD$......" FO| 00000410: 55 52 20 43 4F 4C 4F 55 52 53 20 41 52 45 20 41 |UR COLOURS ARE A| 00000420: 56 41 49 4C 41 42 4C 45 20 3A 22 43 44 24 00 58 |VAILABLE :"CD$.X| 00000430: 0C C8 00 81 49 B2 31 A4 34 3A 99 20 20 20 52 56 |....I.1.4:. RV| 00000440: 24 43 24 28 49 29 C8 28 44 24 28 35 29 2C 37 29 |$C$(I).(D$(5),7)| 00000450: 3B 3A 82 3A 99 57 48 24 00 8A 0C D2 00 99 43 44 |;:.:.WH$......CD| 00000460: 24 22 20 52 45 4D 45 4D 42 45 52 20 54 48 41 54 |$" REMEMBER THAT| 00000470: 20 53 4F 4D 45 20 43 4F 4C 4F 55 52 20 43 4F 4D | SOME COLOUR COM| 00000480: 42 49 4E 41 54 49 4F 4E 53 22 00 B9 0C DC 00 99 |BINATIONS"......| 00000490: 22 20 4D 41 59 20 4E 4F 54 20 53 48 4F 57 20 55 |" MAY NOT SHOW U| 000004A0: 50 20 57 45 4C 4C 20 45 47 2E 20 42 4C 55 45 20 |P WELL EG. BLUE | 000004B0: 50 52 49 4E 54 20 4F 4E 22 00 E9 0C E6 00 99 22 |PRINT ON"......"| 000004C0: 20 41 20 42 4C 55 45 20 53 43 52 45 45 4E 20 4F | A BLUE SCREEN O| 000004D0: 52 20 20 20 45 56 45 4E 20 52 45 44 20 4F 4E 20 |R EVEN RED ON | 000004E0: 42 4C 55 45 2E 22 43 44 24 00 19 0D F0 00 99 43 |BLUE."CD$......C| 000004F0: 44 24 22 20 20 20 2A 2A 2A 20 50 52 45 53 53 20 |D$" *** PRESS | 00000500: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI| 00000510: 4E 55 45 20 2A 2A 2A 22 3B 00 2C 0D FA 00 A1 41 |NUE ***";.,....A| 00000520: 24 3A 8B 41 24 B2 22 22 A7 32 35 30 00 51 0D 01 |$:.A$."".250.Q..| 00000530: 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000550: 2A 00 76 0D 02 01 8F 2A 2A 2A 20 43 48 4F 4F 53 |*.v....*** CHOOS| 00000560: 45 20 53 54 59 4C 45 20 4F 46 20 44 49 56 49 44 |E STYLE OF DIVID| 00000570: 45 52 20 2A 2A 2A 00 9B 0D 03 01 8F 2A 2A 2A 2A |ER ***......****| 00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E4 0D 04 01 |***********.....| 000005A0: 99 43 53 24 43 44 24 52 56 24 A3 38 29 22 45 4E |.CS$CD$RV$.8)"EN| 000005B0: 54 45 52 20 43 48 4F 49 43 45 20 4F 46 20 44 49 |TER CHOICE OF DI| 000005C0: 56 49 44 45 52 22 43 44 24 3A 44 24 28 36 29 B2 |VIDER"CD$:D$(6).| 000005D0: 52 56 24 AA 22 2D 59 4F 55 52 20 4D 45 53 53 41 |RV$."-YOUR MESSA| 000005E0: 47 45 2D 22 00 06 0E 0E 01 81 49 B2 31 A4 36 3A |GE-"......I.1.6:| 000005F0: 99 A3 38 29 49 22 29 22 20 20 20 20 44 24 28 49 |..8)I")" D$(I| 00000600: 29 43 44 24 3A 82 00 31 0E 18 01 99 43 44 24 52 |)CD$:..1....CD$R| 00000610: 56 24 A3 38 29 22 20 20 50 52 45 53 53 20 4B 45 |V$.8)" PRESS KE| 00000620: 59 20 54 4F 20 43 48 4F 4F 53 45 20 20 22 43 44 |Y TO CHOOSE "CD| 00000630: 24 00 60 0E 22 01 99 22 20 52 45 4D 45 4D 42 45 |$.`.".." REMEMBE| 00000640: 52 3A 20 41 20 44 49 56 49 44 45 52 2F 43 4F 4C |R: A DIVIDER/COL| 00000650: 4F 55 52 20 43 4F 4D 42 49 4E 41 54 49 4F 4E 22 |OUR COMBINATION"| 00000660: 00 8F 0E 2C 01 99 22 20 43 41 4E 20 4F 4E 4C 59 |...,.." CAN ONLY| 00000670: 20 42 45 20 55 53 45 44 20 4F 4E 43 45 20 4F 4E | BE USED ONCE ON| 00000680: 20 41 20 44 49 53 4B 2E 20 20 57 48 49 54 22 00 | A DISK. WHIT".| 00000690: BD 0E 36 01 99 22 20 54 48 45 20 20 4D 45 53 53 |..6.." THE MESS| 000006A0: 41 47 45 20 4F 50 54 49 4F 4E 20 54 4F 4F 2C 20 |AGE OPTION TOO, | 000006B0: 48 4F 57 45 56 45 52 2C 54 48 49 53 22 00 E9 0E |HOWEVER,THIS"...| 000006C0: 40 01 99 22 20 53 48 4F 55 4C 44 20 4E 4F 54 20 |@.." SHOULD NOT | 000006D0: 43 52 45 54 45 20 4D 55 43 48 20 4F 46 20 41 20 |CRETE MUCH OF A | 000006E0: 50 52 4F 42 4C 45 4D 21 22 00 07 0F 4A 01 4D 41 |PROBLEM!"...J.MA| 000006F0: 24 B2 22 31 32 33 34 35 36 22 3A 8D 36 36 30 3A |$."123456":.660:| 00000700: 44 B2 C5 28 41 24 29 00 15 0F 54 01 8B 44 B3 B1 |D..(A$)...T..D..| 00000710: 36 A7 33 37 30 00 4E 0F 5E 01 99 43 44 24 22 20 |6.370.N.^..CD$" | 00000720: 45 4E 54 45 52 20 4D 45 53 53 41 47 45 20 28 31 |ENTER MESSAGE (1| 00000730: 33 43 48 52 53 29 20 22 52 56 24 22 20 20 20 20 |3CHRS) "RV$" | 00000740: 20 20 20 20 20 20 20 20 20 20 22 43 55 24 00 70 | "CU$.p| 00000750: 0F 68 01 99 A3 32 33 29 3B 3A 85 44 24 28 36 29 |.h...23);:.D$(6)| 00000760: 3A 44 24 28 36 29 B2 52 56 24 AA 44 24 28 36 29 |:D$(6).RV$.D$(6)| 00000770: 00 95 0F 6F 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...o..**********| 00000780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000790: 2A 2A 2A 2A 2A 00 BA 0F 70 01 8F 2A 2A 2A 20 43 |*****...p..*** C| 000007A0: 48 4F 4F 53 45 20 4F 4E 45 20 4F 46 20 34 20 43 |HOOSE ONE OF 4 C| 000007B0: 4F 4C 4F 55 52 53 20 2A 2A 2A 00 DF 0F 71 01 8F |OLOURS ***...q..| 000007C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000007D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 000007E0: 0D 10 72 01 99 43 53 24 43 44 24 52 56 24 A3 38 |..r..CS$CD$RV$.8| 000007F0: 29 22 45 4E 54 45 52 20 43 48 4F 49 43 45 20 4F |)"ENTER CHOICE O| 00000800: 46 20 43 4F 4C 4F 55 52 3A 22 43 44 24 00 36 10 |F COLOUR:"CD$.6.| 00000810: 7C 01 81 49 B2 31 A4 34 3A 99 A3 38 29 49 22 29 ||..I.1.4:..8)I")| 00000820: 22 20 20 20 43 24 28 49 29 44 24 28 35 29 57 48 |" C$(I)D$(5)WH| 00000830: 24 43 44 24 3A 82 00 61 10 86 01 99 52 56 24 A3 |$CD$:..a....RV$.| 00000840: 38 29 22 20 20 50 52 45 53 53 20 4B 45 59 20 54 |8)" PRESS KEY T| 00000850: 4F 20 43 48 4F 4F 53 45 20 20 22 43 44 24 43 44 |O CHOOSE "CD$CD| 00000860: 24 00 7D 10 90 01 4D 41 24 B2 22 31 32 33 34 22 |$.}...MA$."1234"| 00000870: 3A 8D 36 36 30 3A 43 B2 C5 28 41 24 29 00 A2 10 |:.660:C..(A$)...| 00000880: 97 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************| 00000890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008A0: 2A 2A 00 C7 10 98 01 8F 2A 2A 2A 20 43 48 45 43 |**......*** CHEC| 000008B0: 4B 20 54 48 41 54 20 43 48 4F 49 43 45 20 49 53 |K THAT CHOICE IS| 000008C0: 20 4F 4B 20 2A 2A 2A 00 EC 10 99 01 8F 2A 2A 2A | OK ***......***| 000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 09 11 9A |************....| 000008F0: 01 99 22 20 20 20 59 4F 55 52 20 43 48 4F 49 43 |.." YOUR CHOIC| 00000900: 45 20 49 53 3A 22 43 44 24 00 2C 11 A4 01 99 22 |E IS:"CD$.,...."| 00000910: 20 20 20 44 49 56 49 44 45 52 20 20 20 20 20 20 | DIVIDER | 00000920: 20 20 20 22 44 24 28 44 29 43 44 24 00 54 11 AE | "D$(D)CD$.T..| 00000930: 01 99 22 20 20 20 43 4F 4C 4F 55 52 20 20 20 20 |.." COLOUR | 00000940: 20 20 20 20 20 20 22 43 24 28 43 29 44 24 28 35 | "C$(C)D$(5| 00000950: 29 43 44 24 00 72 11 B8 01 99 43 44 24 57 48 24 |)CD$.r....CD$WH$| 00000960: A3 31 34 29 22 4F 4B 20 3F 20 20 20 28 59 2F 4E |.14)"OK ? (Y/N| 00000970: 29 22 00 90 11 C2 01 4D 41 24 B2 22 59 4E 22 3A |)".....MA$."YN":| 00000980: 8D 36 36 30 3A 8B 41 24 B2 22 4E 22 A7 32 36 30 |.660:.A$."N".260| 00000990: 00 C9 11 CC 01 99 43 53 24 43 44 24 22 20 20 52 |......CS$CD$" R| 000009A0: 45 41 44 59 20 54 4F 20 53 41 56 45 20 59 4F 55 |EADY TO SAVE YOU| 000009B0: 52 20 43 48 4F 49 43 45 20 54 4F 20 44 49 53 4B |R CHOICE TO DISK| 000009C0: 20 3A 20 20 20 22 43 44 24 00 E3 11 D6 01 99 A3 | : "CD$.......| 000009D0: 31 33 29 43 24 28 43 29 44 24 28 44 29 43 44 24 |13)C$(C)D$(D)CD$| 000009E0: 43 44 24 00 19 12 E0 01 99 57 48 24 22 20 20 50 |CD$......WH$" P| 000009F0: 52 45 53 53 20 28 50 29 20 54 4F 20 50 52 4F 43 |RESS (P) TO PROC| 00000A00: 45 45 44 20 4F 52 20 28 41 29 20 54 4F 20 41 42 |EED OR (A) TO AB| 00000A10: 4F 52 54 20 20 22 43 44 24 00 37 12 EA 01 4D 41 |ORT "CD$.7...MA| 00000A20: 24 B2 22 50 41 22 3A 8D 36 36 30 3A 8B 41 24 B2 |$."PA":.660:.A$.| 00000A30: 22 41 22 A7 35 36 30 00 5C 12 F1 01 8F 2A 2A 2A |"A".560.\....***| 00000A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 81 12 F2 |************....| 00000A60: 01 8F 2A 2A 2A 20 4F 50 45 4E 20 46 49 4C 45 20 |..*** OPEN FILE | 00000A70: 57 49 54 48 20 43 48 4F 49 43 45 20 20 20 2A 2A |WITH CHOICE **| 00000A80: 2A 00 A6 12 F3 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*......*********| 00000A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000AA0: 2A 2A 2A 2A 2A 2A 00 C7 12 F4 01 46 4C 24 B2 C7 |******.....FL$..| 00000AB0: 28 33 34 29 AA 43 24 28 43 29 AA 44 24 28 44 29 |(34).C$(C).D$(D)| 00000AC0: AA 22 2C 55 2C 57 22 00 E8 12 FE 01 9F 20 31 35 |.",U,W"...... 15| 00000AD0: 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 46 4C 24 |,8,15:.2,8,2,FL$| 00000AE0: 3A A0 32 3A 8D 36 39 30 00 0D 13 05 02 8F 2A 2A |:.2:.690......**| 00000AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 32 13 |*************.2.| 00000B10: 06 02 8F 2A 2A 2A 20 48 4F 57 20 54 4F 20 45 52 |...*** HOW TO ER| 00000B20: 41 53 45 20 41 20 44 49 56 49 44 45 52 21 20 2A |ASE A DIVIDER! *| 00000B30: 2A 2A 00 57 13 07 02 8F 2A 2A 2A 2A 2A 2A 2A 2A |**.W....********| 00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B50: 2A 2A 2A 2A 2A 2A 2A 00 8C 13 08 02 99 43 44 24 |*******......CD$| 00000B60: 43 44 24 22 20 49 46 20 59 4F 55 20 57 49 53 48 |CD$" IF YOU WISH| 00000B70: 20 54 4F 20 20 53 43 52 41 54 43 48 20 20 54 48 | TO SCRATCH TH| 00000B80: 49 53 20 44 49 56 49 44 45 52 2C 22 00 BB 13 12 |IS DIVIDER,"....| 00000B90: 02 99 22 20 59 4F 55 20 43 41 4E 20 44 4F 20 53 |.." YOU CAN DO S| 00000BA0: 4F 20 42 59 20 43 48 4F 4F 53 49 4E 47 20 28 45 |O BY CHOOSING (E| 00000BB0: 29 20 42 45 4C 4F 57 20 4F 52 22 00 ED 13 1C 02 |) BELOW OR".....| 00000BC0: 99 22 20 45 4E 54 45 52 49 4E 47 20 54 48 45 20 |." ENTERING THE | 00000BD0: 46 4F 4C 4C 4F 57 49 4E 47 20 49 4E 20 44 49 52 |FOLLOWING IN DIR| 00000BE0: 45 43 54 20 4D 4F 44 45 3A 22 43 44 24 00 2C 14 |ECT MODE:"CD$.,.| 00000BF0: 26 02 99 22 20 4F 50 45 4E 31 35 2C 38 2C 31 35 |&.." OPEN15,8,15| 00000C00: 2C 20 20 20 20 20 20 22 C7 28 33 34 29 22 53 4F |, ".(34)"SO| 00000C10: 3A 3F 22 43 24 28 43 29 44 24 28 44 29 C7 28 33 |:?"C$(C)D$(D).(3| 00000C20: 34 29 22 3A 43 4C 4F 53 45 31 35 22 00 64 14 30 |4)":CLOSE15".d.0| 00000C30: 02 99 43 44 24 43 44 24 57 48 24 22 20 2A 2A 20 |..CD$CD$WH$" ** | 00000C40: 50 52 45 53 53 20 28 52 29 20 54 4F 20 52 45 2D |PRESS (R) TO RE-| 00000C50: 52 55 4E 2C 20 28 51 29 20 54 4F 20 51 55 49 54 |RUN, (Q) TO QUIT| 00000C60: 20 2A 2A 22 00 95 14 3A 02 99 22 20 2A 2A 20 20 | **"...:.." ** | 00000C70: 28 44 29 20 46 4F 52 20 44 49 52 45 43 54 4F 52 |(D) FOR DIRECTOR| 00000C80: 59 2C 20 28 45 29 20 54 4F 20 45 52 41 53 45 20 |Y, (E) TO ERASE | 00000C90: 2A 2A 20 22 3B 00 B3 14 44 02 4D 41 24 B2 22 52 |** ";...D.MA$."R| 00000CA0: 51 44 45 22 3A 8D 36 38 30 3A 8B 41 24 B2 22 52 |QDE":.680:.A$."R| 00000CB0: 22 A7 8A 00 C3 14 4E 02 8B 41 24 B2 22 44 22 A7 |".....N..A$."D".| 00000CC0: 36 32 30 00 F6 14 58 02 8B 41 24 B2 22 45 22 A7 |620...X..A$."E".| 00000CD0: 9F 20 31 35 2C 38 2C 31 35 2C 22 53 4F 3A 3F 22 |. 15,8,15,"SO:?"| 00000CE0: AA 43 24 28 43 29 AA 44 24 28 44 29 3A 8D 36 39 |.C$(C).D$(D):.69| 00000CF0: 30 3A 89 35 36 30 00 19 15 62 02 97 36 34 36 2C |0:.560...b..646,| 00000D00: 31 34 3A 99 43 53 24 43 44 24 22 20 47 4F 4F 44 |14:.CS$CD$" GOOD| 00000D10: 42 59 45 20 21 22 3B 3A 80 00 3E 15 69 02 8F 2A |BYE !";:..>.i..*| 00000D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 63 |**************.c| 00000D40: 15 6A 02 8F 2A 2A 2A 20 44 49 53 50 4C 41 59 20 |.j..*** DISPLAY | 00000D50: 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 20 20 |DISK DIRECTORY | 00000D60: 2A 2A 2A 00 88 15 6B 02 8F 2A 2A 2A 2A 2A 2A 2A |***...k..*******| 00000D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D80: 2A 2A 2A 2A 2A 2A 2A 2A 00 AE 15 6C 02 97 36 34 |********...l..64| 00000D90: 36 2C 31 34 3A 99 43 44 24 3A 9F 31 2C 38 2C 30 |6,14:.CD$:.1,8,0| 00000DA0: 2C 22 24 22 3A A1 23 31 2C 58 24 2C 58 24 00 CE |,"$":.#1,X$,X$..| 00000DB0: 15 76 02 A1 23 31 2C 58 24 2C 58 24 2C 58 24 2C |.v..#1,X$,X$,X$,| 00000DC0: 58 24 3A 8B 53 54 A7 A0 31 3A 89 35 36 30 00 E7 |X$:.ST..1:.560..| 00000DD0: 15 80 02 A1 23 31 2C 58 24 3A 8B 58 24 B2 22 22 |....#1,X$:.X$.""| 00000DE0: A7 99 3A 89 36 33 30 00 F5 15 8A 02 99 58 24 3B |..:.630......X$;| 00000DF0: 3A 89 36 34 30 00 1A 16 91 02 8F 2A 2A 2A 2A 2A |:.640......*****| 00000E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3F 16 92 02 8F |**********.?....| 00000E20: 2A 2A 2A 20 47 45 54 20 52 45 51 55 49 52 45 44 |*** GET REQUIRED| 00000E30: 20 4B 45 59 20 49 4E 50 55 54 20 20 2A 2A 2A 00 | KEY INPUT ***.| 00000E40: 64 16 93 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |d....***********| 00000E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000E60: 2A 2A 2A 2A 00 8C 16 94 02 A1 41 24 3A 81 49 B2 |****......A$:.I.| 00000E70: 31 A4 C3 28 4D 41 24 29 3A 8B 41 24 B2 CA 28 4D |1..(MA$):.A$..(M| 00000E80: 41 24 2C 49 2C 31 29 A7 4D 41 B2 31 00 9D 16 9E |A$,I,1).MA.1....| 00000E90: 02 82 3A 8B 4D 41 A7 4D 41 B2 30 3A 8E 00 A6 16 |..:.MA.MA.0:....| 00000EA0: A8 02 89 36 36 30 00 CB 16 AF 02 8F 2A 2A 2A 2A |...660......****| 00000EB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000EC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F0 16 B0 02 |***********.....| 00000ED0: 8F 2A 2A 2A 20 43 48 45 43 4B 20 44 49 53 4B 20 |.*** CHECK DISK | 00000EE0: 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 2A 2A 2A |ERROR CHANNEL***| 00000EF0: 00 15 17 B1 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |......**********| 00000F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000F10: 2A 2A 2A 2A 2A 00 4C 17 B2 02 99 43 44 24 22 20 |*****.L....CD$" | 00000F20: 45 52 52 4F 52 20 52 45 50 4F 52 54 20 3A 22 3B |ERROR REPORT :";| 00000F30: 3A 84 31 35 2C 45 24 28 30 29 2C 45 24 28 31 29 |:.15,E$(0),E$(1)| 00000F40: 2C 45 24 28 32 29 2C 45 24 28 33 29 00 6C 17 BC |,E$(2),E$(3).l..| 00000F50: 02 81 49 B2 30 A4 33 3A 99 22 20 22 45 24 28 49 |..I.0.3:." "E$(I| 00000F60: 29 3B 3A 82 3A A0 31 35 3A 99 3A 8E 00 00 00 |);:.:.15:.:.... |
..(....********************************* .O....*** RAINBOW DISK UTILITY V1.0 ***. V....*** H.W.S. -- SEPT 1985 ***.. ....*********************************.D. ...*** SET UP SCREEN & STRINGS ***.... ..*********************************.+... .63281,0:RV$.G(18):CD$.G(17):CU$.G(145): CS$.G(147):WH$.G(5).W....I.1.5:.D:.J.0.1 3:D$(I).D$(I).G(D):.J,I.K....45,95,43,35 ,32..(.D$(5).RV$.D$(5)...2..I.1.4:.C:C$ (I).G(C):....<..5,28,30,31.P.C..******** ************************...D..*** INSTRUCTIONS ***...E..************ ********************.R.F..C$CD$WH$RV$" R AINBOW DISK - H.W.S. SEPT 1985".O.P.. I.55337.55348:.C:.I,C:....Z..7,3,4,5,7,8 ,4,7,10,12,13,14...D.." CREATE COLORFUL DISK DIRECTORIES WHIT"...N.." THIS USEFU L UTILITY."CD$...X.." CHOOSE A SUITABLE DIVIDER AND COLOUR -".=...." ALL FILES L OWER ON THE DISK DDIRECTORY".L...." WIL L BE DISPLAYED ON THE SCREEN IN THE".... .." NEW COLOUR !"CD$... .." WHIT A BIT O F PLANNING, YOU CAN CREATE"......" A MUL TICOLOUR DIRECTORY TO HIGHLIGHT A"...... " PARTICULAR SET OF FILES."CD$......" FO UR COLOURS ARE AVAILABLE :"CD$.X.H..I.1. 4:. RV$C$(I)H(D$(5),7);:.:.WH$...R..CD $" REMEMBER THAT SOME COLOUR COMBINATION S"......" MAY NOT SHOW UP WELL EG. BLUE PRINT ON"......" A BLUE SCREEN OR EVEN RED ON BLUE."CD$......CD$" *** PRESS ANY KEY TO CONTINUE ***";.,....A$:.A$."" .250.Q....****************************** *.V....*** CHOOSE STYLE OF DIVIDER ***.. ....*******************************..... .CS$CD$RV$.8)"ENTER CHOICE OF DIVIDER"CD $:D$(6).RV$."-YOUR MESSAGE-"......I.1.6: ..8)I")" D$(I)CD$:..1....CD$RV$.8)" PRESS KEY TO CHOOSE "CD$.`.".." REMEMBE R: A DIVIDER/COLOUR COMBINATION"...,.." CAN ONLY BE USED ONCE ON A DISK. WHIT". ..6.." THE MESSAGE OPTION TOO, HOWEVER, THIS"...@.." SHOULD NOT CRETE MUCH OF A PROBLEM!"...J.MA$."123456":.660:D.E(A$). ..T..D..6.370.N.^..CD$" ENTER MESSAGE (1 3CHRS) "RV$" "CU$.P.H...23) ;:.D$(6):D$(6).RV$.D$(6)...O..********** *********************...P..*** CHOOSE ON E OF 4 COLOURS ***...Q..**************** ***************...R..CS$CD$RV$.8)"ENTER CHOICE OF COLOUR:"CD$.6.|..I.1.4:..8)I") " C$(I)D$(5)WH$CD$:..A....RV$.8)" PRE SS KEY TO CHOOSE "CD$CD$.}...MA$."1234" :.660:C.E(A$)......********************* **********.G....*** CHECK THAT CHOICE IS OK ***......*************************** ****......" YOUR CHOICE IS:"CD$.,...." DIVIDER "D$(D)CD$.T...." CO LOUR "C$(C)D$(5)CD$.R....CD$WH$ .14)"OK ? (Y/N)"...B.MA$."YN":.660:.A$ ."N".260.I.L..CS$CD$" READY TO SAVE YOU R CHOICE TO DISK : "CD$...V...13)C$(C) D$(D)CD$CD$......WH$" PRESS (P) TO PROC EED OR (A) TO ABORT "CD$.7...MA$."PA":. 660:.A$."A".560.\....******************* ************......*** OPEN FILE WITH CHO ICE ***......************************* ******.G...FL$.G(34).C$(C).D$(D).",U,W". ..... 15,8,15:.2,8,2,FL$: 2:.690......** *****************************.2....*** H OW TO ERASE A DIVIDER! ***.W....******** ***********************......CD$CD$" IF YOU WISH TO SCRATCH THIS DIVIDER,".... .." YOU CAN DO SO BY CHOOSING (E) BELOW OR"......" ENTERING THE FOLLOWING IN DIR ECT MODE:"CD$.,.&.." OPEN15,8,15, " G(34)"SO:?"C$(C)D$(D)G(34)":CLOSE15".D.0 ..CD$CD$WH$" ** PRESS (R) TO RE-RUN, (Q) TO QUIT **"...:.." ** (D) FOR DIRECTOR Y, (E) TO ERASE ** ";...D.MA$."RQDE":.68 0:.A$."R"...C.N..A$."D".620...X..A$."E". . 15,8,15,"SO:?".C$(C).D$(D):.690:.560.. .B..646,14:.CS$CD$" GOODBYE !";:..>.I..* ******************************.C.J..*** DISPLAY DISK DIRECTORY ***...K..******* ************************...L..646,14:.CD $:.1,8,0,"$":.#1,X$,X$.N.V..#1,X$,X$,X$, X$:.ST. 1:.560......#1,X$:.X$.""..:.630. .....X$;:.640......********************* **********.?....*** GET REQUIRED KEY INP UT ***.D....*************************** ****......A$:.I.1.C(MA$):.A$.J(MA$,I,1). MA.1......:.MA.MA.0:.......660.K....**** ***************************......*** CHE CK DISK ERROR CHANNEL***......********** *********************.L....CD$" ERROR RE PORT :";:.15,E$(0),E$(1),E$(2),E$(3).L.. ..I.0.3:." "E$(I);:.: 15:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL