Home » Archimedes archive » Acorn Computing » 1992 12 Mega Disk.adf » !_92_12 » Fervour/!FervDemo/!Run

Fervour/!FervDemo/!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 » Acorn Computing » 1992 12 Mega Disk.adf » !_92_12
Filename: Fervour/!FervDemo/!Run
Read OK:
File size: 024E bytes
Load address: 0000
Exec address: 0000
File contents
|050
|Above line must be the first it tells the !Monitor
|application which mode is being used.

|Run file for FervDemo
|Uses the 50KHz mode for normal monitors


SET FervDemo$Dir <Obey$Dir>
Set VTwist 0
RMENSURE ColourTrans 0.52 <FervDemo$Dir>.Colours
RMENSURE Joystick 0.00 rmload <Fervdemo$Dir>.DummyJoy
RMENSURE FervDemoMode 1.01 <FervDemo$Dir>.50KHzMode
RMENSURE AEHModule 1.11 <FervDemo$Dir>.AEHModule
RMENSURE VTJoystick 2.00 set VTwist 1
if "<VTwist>" = "0" then rmkill Joystick
*Wimpslot -min 384k -max 384k
<FervDemo$Dir>.SM
*Wimpslot -min 384k -max 384k
<FervDemo$DIR>.!RUNimage
00000000  7c 30 35 30 0a 7c 41 62  6f 76 65 20 6c 69 6e 65  ||050.|Above line|
00000010  20 6d 75 73 74 20 62 65  20 74 68 65 20 66 69 72  | must be the fir|
00000020  73 74 20 69 74 20 74 65  6c 6c 73 20 74 68 65 20  |st it tells the |
00000030  21 4d 6f 6e 69 74 6f 72  0a 7c 61 70 70 6c 69 63  |!Monitor.|applic|
00000040  61 74 69 6f 6e 20 77 68  69 63 68 20 6d 6f 64 65  |ation which mode|
00000050  20 69 73 20 62 65 69 6e  67 20 75 73 65 64 2e 0a  | is being used..|
00000060  0a 7c 52 75 6e 20 66 69  6c 65 20 66 6f 72 20 46  |.|Run file for F|
00000070  65 72 76 44 65 6d 6f 0a  7c 55 73 65 73 20 74 68  |ervDemo.|Uses th|
00000080  65 20 35 30 4b 48 7a 20  6d 6f 64 65 20 66 6f 72  |e 50KHz mode for|
00000090  20 6e 6f 72 6d 61 6c 20  6d 6f 6e 69 74 6f 72 73  | normal monitors|
000000a0  0a 0a 0a 53 45 54 20 46  65 72 76 44 65 6d 6f 24  |...SET FervDemo$|
000000b0  44 69 72 20 3c 4f 62 65  79 24 44 69 72 3e 0a 53  |Dir <Obey$Dir>.S|
000000c0  65 74 20 56 54 77 69 73  74 20 30 0a 52 4d 45 4e  |et VTwist 0.RMEN|
000000d0  53 55 52 45 20 43 6f 6c  6f 75 72 54 72 61 6e 73  |SURE ColourTrans|
000000e0  20 30 2e 35 32 20 3c 46  65 72 76 44 65 6d 6f 24  | 0.52 <FervDemo$|
000000f0  44 69 72 3e 2e 43 6f 6c  6f 75 72 73 0a 52 4d 45  |Dir>.Colours.RME|
00000100  4e 53 55 52 45 20 4a 6f  79 73 74 69 63 6b 20 30  |NSURE Joystick 0|
00000110  2e 30 30 20 72 6d 6c 6f  61 64 20 3c 46 65 72 76  |.00 rmload <Ferv|
00000120  64 65 6d 6f 24 44 69 72  3e 2e 44 75 6d 6d 79 4a  |demo$Dir>.DummyJ|
00000130  6f 79 0a 52 4d 45 4e 53  55 52 45 20 46 65 72 76  |oy.RMENSURE Ferv|
00000140  44 65 6d 6f 4d 6f 64 65  20 31 2e 30 31 20 3c 46  |DemoMode 1.01 <F|
00000150  65 72 76 44 65 6d 6f 24  44 69 72 3e 2e 35 30 4b  |ervDemo$Dir>.50K|
00000160  48 7a 4d 6f 64 65 0a 52  4d 45 4e 53 55 52 45 20  |HzMode.RMENSURE |
00000170  41 45 48 4d 6f 64 75 6c  65 20 31 2e 31 31 20 3c  |AEHModule 1.11 <|
00000180  46 65 72 76 44 65 6d 6f  24 44 69 72 3e 2e 41 45  |FervDemo$Dir>.AE|
00000190  48 4d 6f 64 75 6c 65 0a  52 4d 45 4e 53 55 52 45  |HModule.RMENSURE|
000001a0  20 56 54 4a 6f 79 73 74  69 63 6b 20 32 2e 30 30  | VTJoystick 2.00|
000001b0  20 73 65 74 20 56 54 77  69 73 74 20 31 0a 69 66  | set VTwist 1.if|
000001c0  20 22 3c 56 54 77 69 73  74 3e 22 20 3d 20 22 30  | "<VTwist>" = "0|
000001d0  22 20 74 68 65 6e 20 72  6d 6b 69 6c 6c 20 4a 6f  |" then rmkill Jo|
000001e0  79 73 74 69 63 6b 0a 2a  57 69 6d 70 73 6c 6f 74  |ystick.*Wimpslot|
000001f0  20 2d 6d 69 6e 20 33 38  34 6b 20 2d 6d 61 78 20  | -min 384k -max |
00000200  33 38 34 6b 0a 3c 46 65  72 76 44 65 6d 6f 24 44  |384k.<FervDemo$D|
00000210  69 72 3e 2e 53 4d 0a 2a  57 69 6d 70 73 6c 6f 74  |ir>.SM.*Wimpslot|
00000220  20 2d 6d 69 6e 20 33 38  34 6b 20 2d 6d 61 78 20  | -min 384k -max |
00000230  33 38 34 6b 0a 3c 46 65  72 76 44 65 6d 6f 24 44  |384k.<FervDemo$D|
00000240  49 52 3e 2e 21 52 55 4e  69 6d 61 67 65 0a        |IR>.!RUNimage.|
0000024e