Home » Archimedes archive » Archimedes World » AW-1992-05.adf » May92 » !AWMay92/Goodies/Video/!Video/!Run

!AWMay92/Goodies/Video/!Video/!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 » Archimedes World » AW-1992-05.adf » May92
Filename: !AWMay92/Goodies/Video/!Video/!Run
Read OK:
File size: 0266 bytes
Load address: 0000
Exec address: 0000
File contents
| !Run File For Video 8 cassette inlay Designer

| WimpSlot -Min 48K -Max 48K
WimpSlot -Min 256K -Max 256K

Set Video$Dir <Obey$Dir>

Iconsprites <Video$Dir>.!Sprites

Set File$Type_D0B Configuration   

|Select the font you wish to use for RiscOS printout
| Note: Ensure that there are NO SPACES ON THE END OF THE LINE!
Set Video$BaseFont Trinity.Medium
Set Video$EdgeFont Homerton.Medium
Set Video$BoldFont Trinity.Bold

|Select the prefix you require for the tape numbers ie BT 01
| up to a Limit of 3 characters. A trailing space will be added
| automatically
Set Tape$Prefix MSB

Run <Video$Dir>.!RunImage %*0
00000000  7c 20 21 52 75 6e 20 46  69 6c 65 20 46 6f 72 20  || !Run File For |
00000010  56 69 64 65 6f 20 38 20  63 61 73 73 65 74 74 65  |Video 8 cassette|
00000020  20 69 6e 6c 61 79 20 44  65 73 69 67 6e 65 72 0a  | inlay Designer.|
00000030  0a 7c 20 57 69 6d 70 53  6c 6f 74 20 2d 4d 69 6e  |.| WimpSlot -Min|
00000040  20 34 38 4b 20 2d 4d 61  78 20 34 38 4b 0a 57 69  | 48K -Max 48K.Wi|
00000050  6d 70 53 6c 6f 74 20 2d  4d 69 6e 20 32 35 36 4b  |mpSlot -Min 256K|
00000060  20 2d 4d 61 78 20 32 35  36 4b 0a 0a 53 65 74 20  | -Max 256K..Set |
00000070  56 69 64 65 6f 24 44 69  72 20 3c 4f 62 65 79 24  |Video$Dir <Obey$|
00000080  44 69 72 3e 0a 0a 49 63  6f 6e 73 70 72 69 74 65  |Dir>..Iconsprite|
00000090  73 20 3c 56 69 64 65 6f  24 44 69 72 3e 2e 21 53  |s <Video$Dir>.!S|
000000a0  70 72 69 74 65 73 0a 0a  53 65 74 20 46 69 6c 65  |prites..Set File|
000000b0  24 54 79 70 65 5f 44 30  42 20 43 6f 6e 66 69 67  |$Type_D0B Config|
000000c0  75 72 61 74 69 6f 6e 20  20 20 0a 0a 7c 53 65 6c  |uration   ..|Sel|
000000d0  65 63 74 20 74 68 65 20  66 6f 6e 74 20 79 6f 75  |ect the font you|
000000e0  20 77 69 73 68 20 74 6f  20 75 73 65 20 66 6f 72  | wish to use for|
000000f0  20 52 69 73 63 4f 53 20  70 72 69 6e 74 6f 75 74  | RiscOS printout|
00000100  0a 7c 20 4e 6f 74 65 3a  20 45 6e 73 75 72 65 20  |.| Note: Ensure |
00000110  74 68 61 74 20 74 68 65  72 65 20 61 72 65 20 4e  |that there are N|
00000120  4f 20 53 50 41 43 45 53  20 4f 4e 20 54 48 45 20  |O SPACES ON THE |
00000130  45 4e 44 20 4f 46 20 54  48 45 20 4c 49 4e 45 21  |END OF THE LINE!|
00000140  0a 53 65 74 20 56 69 64  65 6f 24 42 61 73 65 46  |.Set Video$BaseF|
00000150  6f 6e 74 20 54 72 69 6e  69 74 79 2e 4d 65 64 69  |ont Trinity.Medi|
00000160  75 6d 0a 53 65 74 20 56  69 64 65 6f 24 45 64 67  |um.Set Video$Edg|
00000170  65 46 6f 6e 74 20 48 6f  6d 65 72 74 6f 6e 2e 4d  |eFont Homerton.M|
00000180  65 64 69 75 6d 0a 53 65  74 20 56 69 64 65 6f 24  |edium.Set Video$|
00000190  42 6f 6c 64 46 6f 6e 74  20 54 72 69 6e 69 74 79  |BoldFont Trinity|
000001a0  2e 42 6f 6c 64 0a 0a 7c  53 65 6c 65 63 74 20 74  |.Bold..|Select t|
000001b0  68 65 20 70 72 65 66 69  78 20 79 6f 75 20 72 65  |he prefix you re|
000001c0  71 75 69 72 65 20 66 6f  72 20 74 68 65 20 74 61  |quire for the ta|
000001d0  70 65 20 6e 75 6d 62 65  72 73 20 69 65 20 42 54  |pe numbers ie BT|
000001e0  20 30 31 0a 7c 20 75 70  20 74 6f 20 61 20 4c 69  | 01.| up to a Li|
000001f0  6d 69 74 20 6f 66 20 33  20 63 68 61 72 61 63 74  |mit of 3 charact|
00000200  65 72 73 2e 20 41 20 74  72 61 69 6c 69 6e 67 20  |ers. A trailing |
00000210  73 70 61 63 65 20 77 69  6c 6c 20 62 65 20 61 64  |space will be ad|
00000220  64 65 64 0a 7c 20 61 75  74 6f 6d 61 74 69 63 61  |ded.| automatica|
00000230  6c 6c 79 0a 53 65 74 20  54 61 70 65 24 50 72 65  |lly.Set Tape$Pre|
00000240  66 69 78 20 4d 53 42 0a  0a 52 75 6e 20 3c 56 69  |fix MSB..Run <Vi|
00000250  64 65 6f 24 44 69 72 3e  2e 21 52 75 6e 49 6d 61  |deo$Dir>.!RunIma|
00000260  67 65 20 25 2a 30                                 |ge %*0|
00000266