Home » Archimedes archive » Acorn User » AU 1998-12.adf » Regulars » StarInfo/Fletcher/!Purple/!Help
StarInfo/Fletcher/!Purple/!Help
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1998-12.adf » Regulars |
| Filename: | StarInfo/Fletcher/!Purple/!Help |
| Read OK: | ✔ |
| File size: | 09F3 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
PurpleWin
=========
Version 1.00 (04 Jun 1998)
Introduction
------------
Have you ever wondered what would happen if Cadbury and not Microsoft ruled
the computing industry ?
Usage
-----
Run the !Create file. This will create the necessary resources.
In future you only need run the !Run file.
How it works
------------
1) I've replaced the tile_1-8 sprite with a Purple one.
2) I've replaced the standard palette with a Purple-Yellow scale one.
3) The tools have been inverted so that they appear to be shaded from
the top left again.
4) All NEW windows will be created with purple text titles on yellow
tools.
5) Menus have the same effect applied to them.
6) The backdrop is changed to be a light purple. I would have liked a
chocolate backdrop, but all the browns I create are... yuck...
You may have to refresh the desktop to see the full effect (F12 then
Return).
Disclaimer
----------
The author accepts no responsibility for any problems which this
application may cause or loss of data resulting in its use. This application
is Public Domain Freeware. This means that it may be distributed, so long as
no charge other than copying costs are charged for it.
Source code
-----------
This program requires the !JFPatch pre-assembler to make the code. This is
a simple text-to-basic assembler which takes a text assembler file, makes a
basic program from it to assemble, assembles it and returns any errors. It is
available from Justin Fletcher's website (users.essex.ac.uk/users/gerph) or
directly by mailing to Gerph@essex.ac.uk.
All source code and the resultant module must be distributed together.
WimpSWIVe
---------
This program require WimpSWIve (v0.05) to be installed before it will run
correctly. It provides easy access to filtering Wimp calls other than
Wimp_Poll (provided by FilterManager) and is provided with NewerLook (which
is ok, but takes a bit of getting used to).
The WimpSWIVe module is � Andrew Clover, and if copied should be copied
with the documentation which is provided. Refer to the file WSWI-Help for
more details.
Contact
-------
Any comments, queries, donations or bug reports can be sent to Justin
Fletcher at :
E-Mail : Gerph@essex.ac.uk
IRC : On #Acorn as Gerph
Tel : (01842) 813979
Snail Mail :
Justin Fletcher
�Galadriel�
17b Cromwell Road,
Weeting,
Brandon,
Suffolk.
IP27 0QT
History
-------
Version 1.00 : 04 Jun 1998
Boredy, boredy, bored.
00000000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000020 20 20 20 50 75 72 70 6c 65 57 69 6e 0a 20 20 20 | PurpleWin. | 00000030 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000050 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 56 65 72 73 69 |=========..Versi| 00000060 6f 6e 20 31 2e 30 30 20 28 30 34 20 4a 75 6e 20 |on 1.00 (04 Jun | 00000070 31 39 39 38 29 0a 20 20 20 20 20 0a 49 6e 74 72 |1998). .Intr| 00000080 6f 64 75 63 74 69 6f 6e 0a 2d 2d 2d 2d 2d 2d 2d |oduction.-------| 00000090 2d 2d 2d 2d 2d 0a 48 61 76 65 20 79 6f 75 20 65 |-----.Have you e| 000000a0 76 65 72 20 77 6f 6e 64 65 72 65 64 20 77 68 61 |ver wondered wha| 000000b0 74 20 77 6f 75 6c 64 20 68 61 70 70 65 6e 20 69 |t would happen i| 000000c0 66 20 43 61 64 62 75 72 79 20 61 6e 64 20 6e 6f |f Cadbury and no| 000000d0 74 20 4d 69 63 72 6f 73 6f 66 74 20 72 75 6c 65 |t Microsoft rule| 000000e0 64 0a 74 68 65 20 63 6f 6d 70 75 74 69 6e 67 20 |d.the computing | 000000f0 69 6e 64 75 73 74 72 79 20 3f 0a 0a 0a 55 73 61 |industry ?...Usa| 00000100 67 65 0a 2d 2d 2d 2d 2d 0a 52 75 6e 20 74 68 65 |ge.-----.Run the| 00000110 20 21 43 72 65 61 74 65 20 66 69 6c 65 2e 20 54 | !Create file. T| 00000120 68 69 73 20 77 69 6c 6c 20 63 72 65 61 74 65 20 |his will create | 00000130 74 68 65 20 6e 65 63 65 73 73 61 72 79 20 72 65 |the necessary re| 00000140 73 6f 75 72 63 65 73 2e 0a 49 6e 20 66 75 74 75 |sources..In futu| 00000150 72 65 20 79 6f 75 20 6f 6e 6c 79 20 6e 65 65 64 |re you only need| 00000160 20 72 75 6e 20 74 68 65 20 21 52 75 6e 20 66 69 | run the !Run fi| 00000170 6c 65 2e 0a 0a 0a 48 6f 77 20 69 74 20 77 6f 72 |le....How it wor| 00000180 6b 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a |ks.------------.| 00000190 31 29 20 49 27 76 65 20 72 65 70 6c 61 63 65 64 |1) I've replaced| 000001a0 20 74 68 65 20 74 69 6c 65 5f 31 2d 38 20 73 70 | the tile_1-8 sp| 000001b0 72 69 74 65 20 77 69 74 68 20 61 20 50 75 72 70 |rite with a Purp| 000001c0 6c 65 20 6f 6e 65 2e 0a 32 29 20 49 27 76 65 20 |le one..2) I've | 000001d0 72 65 70 6c 61 63 65 64 20 74 68 65 20 73 74 61 |replaced the sta| 000001e0 6e 64 61 72 64 20 70 61 6c 65 74 74 65 20 77 69 |ndard palette wi| 000001f0 74 68 20 61 20 50 75 72 70 6c 65 2d 59 65 6c 6c |th a Purple-Yell| 00000200 6f 77 20 73 63 61 6c 65 20 6f 6e 65 2e 0a 33 29 |ow scale one..3)| 00000210 20 54 68 65 20 74 6f 6f 6c 73 20 68 61 76 65 20 | The tools have | 00000220 62 65 65 6e 20 69 6e 76 65 72 74 65 64 20 73 6f |been inverted so| 00000230 20 74 68 61 74 20 74 68 65 79 20 61 70 70 65 61 | that they appea| 00000240 72 20 74 6f 20 62 65 20 73 68 61 64 65 64 20 66 |r to be shaded f| 00000250 72 6f 6d 0a 20 20 20 74 68 65 20 74 6f 70 20 6c |rom. the top l| 00000260 65 66 74 20 61 67 61 69 6e 2e 0a 34 29 20 41 6c |eft again..4) Al| 00000270 6c 20 4e 45 57 20 77 69 6e 64 6f 77 73 20 77 69 |l NEW windows wi| 00000280 6c 6c 20 62 65 20 63 72 65 61 74 65 64 20 77 69 |ll be created wi| 00000290 74 68 20 70 75 72 70 6c 65 20 74 65 78 74 20 74 |th purple text t| 000002a0 69 74 6c 65 73 20 6f 6e 20 79 65 6c 6c 6f 77 0a |itles on yellow.| 000002b0 20 20 20 74 6f 6f 6c 73 2e 0a 35 29 20 4d 65 6e | tools..5) Men| 000002c0 75 73 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 |us have the same| 000002d0 20 65 66 66 65 63 74 20 61 70 70 6c 69 65 64 20 | effect applied | 000002e0 74 6f 20 74 68 65 6d 2e 0a 36 29 20 54 68 65 20 |to them..6) The | 000002f0 62 61 63 6b 64 72 6f 70 20 69 73 20 63 68 61 6e |backdrop is chan| 00000300 67 65 64 20 74 6f 20 62 65 20 61 20 6c 69 67 68 |ged to be a ligh| 00000310 74 20 70 75 72 70 6c 65 2e 20 49 20 77 6f 75 6c |t purple. I woul| 00000320 64 20 68 61 76 65 20 6c 69 6b 65 64 20 61 0a 20 |d have liked a. | 00000330 20 20 63 68 6f 63 6f 6c 61 74 65 20 62 61 63 6b | chocolate back| 00000340 64 72 6f 70 2c 20 62 75 74 20 61 6c 6c 20 74 68 |drop, but all th| 00000350 65 20 62 72 6f 77 6e 73 20 49 20 63 72 65 61 74 |e browns I creat| 00000360 65 20 61 72 65 2e 2e 2e 20 79 75 63 6b 2e 2e 2e |e are... yuck...| 00000370 0a 0a 59 6f 75 20 6d 61 79 20 68 61 76 65 20 74 |..You may have t| 00000380 6f 20 72 65 66 72 65 73 68 20 74 68 65 20 64 65 |o refresh the de| 00000390 73 6b 74 6f 70 20 74 6f 20 73 65 65 20 74 68 65 |sktop to see the| 000003a0 20 66 75 6c 6c 20 65 66 66 65 63 74 20 28 46 31 | full effect (F1| 000003b0 32 20 74 68 65 6e 0a 52 65 74 75 72 6e 29 2e 0a |2 then.Return)..| 000003c0 0a 0a 44 69 73 63 6c 61 69 6d 65 72 0a 2d 2d 2d |..Disclaimer.---| 000003d0 2d 2d 2d 2d 2d 2d 2d 0a 54 68 65 20 61 75 74 68 |-------.The auth| 000003e0 6f 72 20 61 63 63 65 70 74 73 20 6e 6f 20 72 65 |or accepts no re| 000003f0 73 70 6f 6e 73 69 62 69 6c 69 74 79 20 66 6f 72 |sponsibility for| 00000400 20 61 6e 79 20 70 72 6f 62 6c 65 6d 73 20 77 68 | any problems wh| 00000410 69 63 68 20 74 68 69 73 0a 61 70 70 6c 69 63 61 |ich this.applica| 00000420 74 69 6f 6e 20 6d 61 79 20 63 61 75 73 65 20 6f |tion may cause o| 00000430 72 20 6c 6f 73 73 20 6f 66 20 64 61 74 61 20 72 |r loss of data r| 00000440 65 73 75 6c 74 69 6e 67 20 69 6e 20 69 74 73 20 |esulting in its | 00000450 75 73 65 2e 20 54 68 69 73 20 61 70 70 6c 69 63 |use. This applic| 00000460 61 74 69 6f 6e 0a 69 73 20 50 75 62 6c 69 63 20 |ation.is Public | 00000470 44 6f 6d 61 69 6e 20 46 72 65 65 77 61 72 65 2e |Domain Freeware.| 00000480 20 54 68 69 73 20 6d 65 61 6e 73 20 74 68 61 74 | This means that| 00000490 20 69 74 20 6d 61 79 20 62 65 20 64 69 73 74 72 | it may be distr| 000004a0 69 62 75 74 65 64 2c 20 73 6f 20 6c 6f 6e 67 20 |ibuted, so long | 000004b0 61 73 0a 6e 6f 20 63 68 61 72 67 65 20 6f 74 68 |as.no charge oth| 000004c0 65 72 20 74 68 61 6e 20 63 6f 70 79 69 6e 67 20 |er than copying | 000004d0 63 6f 73 74 73 20 61 72 65 20 63 68 61 72 67 65 |costs are charge| 000004e0 64 20 66 6f 72 20 69 74 2e 0a 20 20 0a 0a 53 6f |d for it.. ..So| 000004f0 75 72 63 65 20 63 6f 64 65 0a 2d 2d 2d 2d 2d 2d |urce code.------| 00000500 2d 2d 2d 2d 2d 0a 54 68 69 73 20 70 72 6f 67 72 |-----.This progr| 00000510 61 6d 20 72 65 71 75 69 72 65 73 20 74 68 65 20 |am requires the | 00000520 21 4a 46 50 61 74 63 68 20 70 72 65 2d 61 73 73 |!JFPatch pre-ass| 00000530 65 6d 62 6c 65 72 20 74 6f 20 6d 61 6b 65 20 74 |embler to make t| 00000540 68 65 20 63 6f 64 65 2e 20 54 68 69 73 20 69 73 |he code. This is| 00000550 0a 61 20 73 69 6d 70 6c 65 20 74 65 78 74 2d 74 |.a simple text-t| 00000560 6f 2d 62 61 73 69 63 20 61 73 73 65 6d 62 6c 65 |o-basic assemble| 00000570 72 20 77 68 69 63 68 20 74 61 6b 65 73 20 61 20 |r which takes a | 00000580 74 65 78 74 20 61 73 73 65 6d 62 6c 65 72 20 66 |text assembler f| 00000590 69 6c 65 2c 20 6d 61 6b 65 73 20 61 0a 62 61 73 |ile, makes a.bas| 000005a0 69 63 20 70 72 6f 67 72 61 6d 20 66 72 6f 6d 20 |ic program from | 000005b0 69 74 20 74 6f 20 61 73 73 65 6d 62 6c 65 2c 20 |it to assemble, | 000005c0 61 73 73 65 6d 62 6c 65 73 20 69 74 20 61 6e 64 |assembles it and| 000005d0 20 72 65 74 75 72 6e 73 20 61 6e 79 20 65 72 72 | returns any err| 000005e0 6f 72 73 2e 20 49 74 20 69 73 0a 61 76 61 69 6c |ors. It is.avail| 000005f0 61 62 6c 65 20 66 72 6f 6d 20 4a 75 73 74 69 6e |able from Justin| 00000600 20 46 6c 65 74 63 68 65 72 27 73 20 77 65 62 73 | Fletcher's webs| 00000610 69 74 65 20 28 75 73 65 72 73 2e 65 73 73 65 78 |ite (users.essex| 00000620 2e 61 63 2e 75 6b 2f 75 73 65 72 73 2f 67 65 72 |.ac.uk/users/ger| 00000630 70 68 29 20 6f 72 0a 64 69 72 65 63 74 6c 79 20 |ph) or.directly | 00000640 62 79 20 6d 61 69 6c 69 6e 67 20 74 6f 20 47 65 |by mailing to Ge| 00000650 72 70 68 40 65 73 73 65 78 2e 61 63 2e 75 6b 2e |rph@essex.ac.uk.| 00000660 0a 0a 41 6c 6c 20 73 6f 75 72 63 65 20 63 6f 64 |..All source cod| 00000670 65 20 61 6e 64 20 74 68 65 20 72 65 73 75 6c 74 |e and the result| 00000680 61 6e 74 20 6d 6f 64 75 6c 65 20 6d 75 73 74 20 |ant module must | 00000690 62 65 20 64 69 73 74 72 69 62 75 74 65 64 20 74 |be distributed t| 000006a0 6f 67 65 74 68 65 72 2e 0a 0a 0a 57 69 6d 70 53 |ogether....WimpS| 000006b0 57 49 56 65 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 |WIVe.---------. | 000006c0 20 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 72 | This program r| 000006d0 65 71 75 69 72 65 20 57 69 6d 70 53 57 49 76 65 |equire WimpSWIve| 000006e0 20 28 76 30 2e 30 35 29 20 74 6f 20 62 65 20 69 | (v0.05) to be i| 000006f0 6e 73 74 61 6c 6c 65 64 20 62 65 66 6f 72 65 20 |nstalled before | 00000700 69 74 20 77 69 6c 6c 20 72 75 6e 0a 63 6f 72 72 |it will run.corr| 00000710 65 63 74 6c 79 2e 20 49 74 20 70 72 6f 76 69 64 |ectly. It provid| 00000720 65 73 20 65 61 73 79 20 61 63 63 65 73 73 20 74 |es easy access t| 00000730 6f 20 66 69 6c 74 65 72 69 6e 67 20 57 69 6d 70 |o filtering Wimp| 00000740 20 63 61 6c 6c 73 20 6f 74 68 65 72 20 74 68 61 | calls other tha| 00000750 6e 0a 57 69 6d 70 5f 50 6f 6c 6c 20 28 70 72 6f |n.Wimp_Poll (pro| 00000760 76 69 64 65 64 20 62 79 20 46 69 6c 74 65 72 4d |vided by FilterM| 00000770 61 6e 61 67 65 72 29 20 61 6e 64 20 69 73 20 70 |anager) and is p| 00000780 72 6f 76 69 64 65 64 20 77 69 74 68 20 4e 65 77 |rovided with New| 00000790 65 72 4c 6f 6f 6b 20 28 77 68 69 63 68 0a 69 73 |erLook (which.is| 000007a0 20 6f 6b 2c 20 62 75 74 20 74 61 6b 65 73 20 61 | ok, but takes a| 000007b0 20 62 69 74 20 6f 66 20 67 65 74 74 69 6e 67 20 | bit of getting | 000007c0 75 73 65 64 20 74 6f 29 2e 0a 20 20 20 54 68 65 |used to).. The| 000007d0 20 57 69 6d 70 53 57 49 56 65 20 6d 6f 64 75 6c | WimpSWIVe modul| 000007e0 65 20 69 73 20 a9 20 41 6e 64 72 65 77 20 43 6c |e is . Andrew Cl| 000007f0 6f 76 65 72 2c 20 61 6e 64 20 69 66 20 63 6f 70 |over, and if cop| 00000800 69 65 64 20 73 68 6f 75 6c 64 20 62 65 20 63 6f |ied should be co| 00000810 70 69 65 64 0a 77 69 74 68 20 74 68 65 20 64 6f |pied.with the do| 00000820 63 75 6d 65 6e 74 61 74 69 6f 6e 20 77 68 69 63 |cumentation whic| 00000830 68 20 69 73 20 70 72 6f 76 69 64 65 64 2e 20 52 |h is provided. R| 00000840 65 66 65 72 20 74 6f 20 74 68 65 20 66 69 6c 65 |efer to the file| 00000850 20 57 53 57 49 2d 48 65 6c 70 20 66 6f 72 0a 6d | WSWI-Help for.m| 00000860 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 0a 43 |ore details....C| 00000870 6f 6e 74 61 63 74 0a 2d 2d 2d 2d 2d 2d 2d 0a 41 |ontact.-------.A| 00000880 6e 79 20 63 6f 6d 6d 65 6e 74 73 2c 20 71 75 65 |ny comments, que| 00000890 72 69 65 73 2c 20 64 6f 6e 61 74 69 6f 6e 73 20 |ries, donations | 000008a0 6f 72 20 62 75 67 20 72 65 70 6f 72 74 73 20 63 |or bug reports c| 000008b0 61 6e 20 62 65 20 73 65 6e 74 20 74 6f 20 4a 75 |an be sent to Ju| 000008c0 73 74 69 6e 0a 46 6c 65 74 63 68 65 72 20 61 74 |stin.Fletcher at| 000008d0 20 3a 0a 0a 45 2d 4d 61 69 6c 20 3a 20 47 65 72 | :..E-Mail : Ger| 000008e0 70 68 40 65 73 73 65 78 2e 61 63 2e 75 6b 0a 49 |ph@essex.ac.uk.I| 000008f0 52 43 20 20 20 20 3a 20 4f 6e 20 23 41 63 6f 72 |RC : On #Acor| 00000900 6e 20 61 73 20 47 65 72 70 68 0a 54 65 6c 20 20 |n as Gerph.Tel | 00000910 20 20 3a 20 28 30 31 38 34 32 29 20 38 31 33 39 | : (01842) 8139| 00000920 37 39 0a 0a 53 6e 61 69 6c 20 4d 61 69 6c 20 3a |79..Snail Mail :| 00000930 0a 20 20 20 20 4a 75 73 74 69 6e 20 46 6c 65 74 |. Justin Flet| 00000940 63 68 65 72 0a 20 20 20 20 94 47 61 6c 61 64 72 |cher. .Galadr| 00000950 69 65 6c 95 0a 20 20 20 20 31 37 62 20 43 72 6f |iel.. 17b Cro| 00000960 6d 77 65 6c 6c 20 52 6f 61 64 2c 0a 20 20 20 20 |mwell Road,. | 00000970 57 65 65 74 69 6e 67 2c 0a 20 20 20 20 42 72 61 |Weeting,. Bra| 00000980 6e 64 6f 6e 2c 0a 20 20 20 20 53 75 66 66 6f 6c |ndon,. Suffol| 00000990 6b 2e 0a 20 20 20 20 49 50 32 37 20 30 51 54 0a |k.. IP27 0QT.| 000009a0 0a 0a 48 69 73 74 6f 72 79 0a 2d 2d 2d 2d 2d 2d |..History.------| 000009b0 2d 0a 56 65 72 73 69 6f 6e 20 31 2e 30 30 20 3a |-.Version 1.00 :| 000009c0 20 30 34 20 4a 75 6e 20 31 39 39 38 0a 20 20 20 | 04 Jun 1998. | 000009d0 20 20 20 20 20 20 20 20 20 20 20 20 42 6f 72 65 | Bore| 000009e0 64 79 2c 20 62 6f 72 65 64 79 2c 20 62 6f 72 65 |dy, boredy, bore| 000009f0 64 2e 0a |d..| 000009f3
.