Home » Archimedes archive » Zipped Apps » NotePad » !NotePad/!Run

!NotePad/!Run

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 » Zipped Apps » NotePad
Filename: !NotePad/!Run
Read OK:
File size: 0225 bytes
Load address: 0000
Exec address: 0000
File contents
| !Run file for RISC User Note Pad
| by David Spencer
| First bit as for !Boot
Set File$Type_FEE Note Pad
Set Alias$@RunType_FEE Run <Obey$Dir>.!Run %%*0
IconSprites <Obey$Dir>.!Sprites
| Find our path
Set NotePad$Dir <Obey$Dir>
| Check memory allocation
WimpSlot -min 32K -max 32K
| Start program
Run <NotePad$Dir>.!RunImage %*0
| (Just one %, so parameters are
|  substiuted before !RunImage is run.
|  'Run' at start is necessary to
|  prevent filing system name being
|  treated as a temporary filing system
|  for the duration of the command.)
00000000  7c 20 21 52 75 6e 20 66  69 6c 65 20 66 6f 72 20  || !Run file for |
00000010  52 49 53 43 20 55 73 65  72 20 4e 6f 74 65 20 50  |RISC User Note P|
00000020  61 64 0d 7c 20 62 79 20  44 61 76 69 64 20 53 70  |ad.| by David Sp|
00000030  65 6e 63 65 72 0d 7c 20  46 69 72 73 74 20 62 69  |encer.| First bi|
00000040  74 20 61 73 20 66 6f 72  20 21 42 6f 6f 74 0d 53  |t as for !Boot.S|
00000050  65 74 20 46 69 6c 65 24  54 79 70 65 5f 46 45 45  |et File$Type_FEE|
00000060  20 4e 6f 74 65 20 50 61  64 0d 53 65 74 20 41 6c  | Note Pad.Set Al|
00000070  69 61 73 24 40 52 75 6e  54 79 70 65 5f 46 45 45  |ias$@RunType_FEE|
00000080  20 52 75 6e 20 3c 4f 62  65 79 24 44 69 72 3e 2e  | Run <Obey$Dir>.|
00000090  21 52 75 6e 20 25 25 2a  30 0d 49 63 6f 6e 53 70  |!Run %%*0.IconSp|
000000a0  72 69 74 65 73 20 3c 4f  62 65 79 24 44 69 72 3e  |rites <Obey$Dir>|
000000b0  2e 21 53 70 72 69 74 65  73 0d 7c 20 46 69 6e 64  |.!Sprites.| Find|
000000c0  20 6f 75 72 20 70 61 74  68 0d 53 65 74 20 4e 6f  | our path.Set No|
000000d0  74 65 50 61 64 24 44 69  72 20 3c 4f 62 65 79 24  |tePad$Dir <Obey$|
000000e0  44 69 72 3e 0d 7c 20 43  68 65 63 6b 20 6d 65 6d  |Dir>.| Check mem|
000000f0  6f 72 79 20 61 6c 6c 6f  63 61 74 69 6f 6e 0d 57  |ory allocation.W|
00000100  69 6d 70 53 6c 6f 74 20  2d 6d 69 6e 20 33 32 4b  |impSlot -min 32K|
00000110  20 2d 6d 61 78 20 33 32  4b 0d 7c 20 53 74 61 72  | -max 32K.| Star|
00000120  74 20 70 72 6f 67 72 61  6d 0d 52 75 6e 20 3c 4e  |t program.Run <N|
00000130  6f 74 65 50 61 64 24 44  69 72 3e 2e 21 52 75 6e  |otePad$Dir>.!Run|
00000140  49 6d 61 67 65 20 25 2a  30 0d 7c 20 28 4a 75 73  |Image %*0.| (Jus|
00000150  74 20 6f 6e 65 20 25 2c  20 73 6f 20 70 61 72 61  |t one %, so para|
00000160  6d 65 74 65 72 73 20 61  72 65 0d 7c 20 20 73 75  |meters are.|  su|
00000170  62 73 74 69 75 74 65 64  20 62 65 66 6f 72 65 20  |bstiuted before |
00000180  21 52 75 6e 49 6d 61 67  65 20 69 73 20 72 75 6e  |!RunImage is run|
00000190  2e 0d 7c 20 20 27 52 75  6e 27 20 61 74 20 73 74  |..|  'Run' at st|
000001a0  61 72 74 20 69 73 20 6e  65 63 65 73 73 61 72 79  |art is necessary|
000001b0  20 74 6f 0d 7c 20 20 70  72 65 76 65 6e 74 20 66  | to.|  prevent f|
000001c0  69 6c 69 6e 67 20 73 79  73 74 65 6d 20 6e 61 6d  |iling system nam|
000001d0  65 20 62 65 69 6e 67 0d  7c 20 20 74 72 65 61 74  |e being.|  treat|
000001e0  65 64 20 61 73 20 61 20  74 65 6d 70 6f 72 61 72  |ed as a temporar|
000001f0  79 20 66 69 6c 69 6e 67  20 73 79 73 74 65 6d 0d  |y filing system.|
00000200  7c 20 20 66 6f 72 20 74  68 65 20 64 75 72 61 74  ||  for the durat|
00000210  69 6f 6e 20 6f 66 20 74  68 65 20 63 6f 6d 6d 61  |ion of the comma|
00000220  6e 64 2e 29 0d                                    |nd.).|
00000225