Home » Archimedes archive » Acorn Computing » 1993 09 Mega Disk.adf » 93_09 » Amazing/!MathsDemo/!Run

Amazing/!MathsDemo/!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 » 1993 09 Mega Disk.adf » 93_09
Filename: Amazing/!MathsDemo/!Run
Read OK:
File size: 02CA bytes
Load address: 0000
Exec address: 0000
File contents
| Maths program
| � C.S.H. & PDK Technologies, 1992

SET MathsDemo$Dir <Obey$Dir>


RMEnsure FontManager 2.42 Error 0 FontManager 2.42 or greater not installed. Locate !Fonts directory on Fonts disc

If "<Font$Path>"="" THEN Error 0 Fonts cannot be found. Locate !Fonts directory on Fonts disc

RMEnsure ColourTrans 0.52 RMLoad <System$Dir>.Modules.Colours

WIMPSLOT -min 500K -max 500K
                    
ICONSPRITES <MathsDemo$Dir>.!Sprites

RMLOAD <MathsDemo$Dir>.Samples.Correct
RMLOAD <MathsDemo$Dir>.Samples.CountMod
RMLOAD <MathsDemo$Dir>.Samples.CountMod1
RMLOAD <MathsDemo$Dir>.Samples.LivesMod
RMLOAD <MathsDemo$Dir>.Samples.ScoreMod
RMLOAD <MathsDemo$Dir>.Samples.Wrong

RUN <MathsDemo$Dir>.!RunImage
00000000  7c 20 4d 61 74 68 73 20  70 72 6f 67 72 61 6d 0a  || Maths program.|
00000010  7c 20 a9 20 43 2e 53 2e  48 2e 20 26 20 50 44 4b  || . C.S.H. & PDK|
00000020  20 54 65 63 68 6e 6f 6c  6f 67 69 65 73 2c 20 31  | Technologies, 1|
00000030  39 39 32 0a 0a 53 45 54  20 4d 61 74 68 73 44 65  |992..SET MathsDe|
00000040  6d 6f 24 44 69 72 20 3c  4f 62 65 79 24 44 69 72  |mo$Dir <Obey$Dir|
00000050  3e 0a 0a 0a 52 4d 45 6e  73 75 72 65 20 46 6f 6e  |>...RMEnsure Fon|
00000060  74 4d 61 6e 61 67 65 72  20 32 2e 34 32 20 45 72  |tManager 2.42 Er|
00000070  72 6f 72 20 30 20 46 6f  6e 74 4d 61 6e 61 67 65  |ror 0 FontManage|
00000080  72 20 32 2e 34 32 20 6f  72 20 67 72 65 61 74 65  |r 2.42 or greate|
00000090  72 20 6e 6f 74 20 69 6e  73 74 61 6c 6c 65 64 2e  |r not installed.|
000000a0  20 4c 6f 63 61 74 65 20  21 46 6f 6e 74 73 20 64  | Locate !Fonts d|
000000b0  69 72 65 63 74 6f 72 79  20 6f 6e 20 46 6f 6e 74  |irectory on Font|
000000c0  73 20 64 69 73 63 0a 0a  49 66 20 22 3c 46 6f 6e  |s disc..If "<Fon|
000000d0  74 24 50 61 74 68 3e 22  3d 22 22 20 54 48 45 4e  |t$Path>"="" THEN|
000000e0  20 45 72 72 6f 72 20 30  20 46 6f 6e 74 73 20 63  | Error 0 Fonts c|
000000f0  61 6e 6e 6f 74 20 62 65  20 66 6f 75 6e 64 2e 20  |annot be found. |
00000100  4c 6f 63 61 74 65 20 21  46 6f 6e 74 73 20 64 69  |Locate !Fonts di|
00000110  72 65 63 74 6f 72 79 20  6f 6e 20 46 6f 6e 74 73  |rectory on Fonts|
00000120  20 64 69 73 63 0a 0a 52  4d 45 6e 73 75 72 65 20  | disc..RMEnsure |
00000130  43 6f 6c 6f 75 72 54 72  61 6e 73 20 30 2e 35 32  |ColourTrans 0.52|
00000140  20 52 4d 4c 6f 61 64 20  3c 53 79 73 74 65 6d 24  | RMLoad <System$|
00000150  44 69 72 3e 2e 4d 6f 64  75 6c 65 73 2e 43 6f 6c  |Dir>.Modules.Col|
00000160  6f 75 72 73 0a 0a 57 49  4d 50 53 4c 4f 54 20 2d  |ours..WIMPSLOT -|
00000170  6d 69 6e 20 35 30 30 4b  20 2d 6d 61 78 20 35 30  |min 500K -max 50|
00000180  30 4b 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |0K.             |
00000190  20 20 20 20 20 20 20 0a  49 43 4f 4e 53 50 52 49  |       .ICONSPRI|
000001a0  54 45 53 20 3c 4d 61 74  68 73 44 65 6d 6f 24 44  |TES <MathsDemo$D|
000001b0  69 72 3e 2e 21 53 70 72  69 74 65 73 0a 0a 52 4d  |ir>.!Sprites..RM|
000001c0  4c 4f 41 44 20 3c 4d 61  74 68 73 44 65 6d 6f 24  |LOAD <MathsDemo$|
000001d0  44 69 72 3e 2e 53 61 6d  70 6c 65 73 2e 43 6f 72  |Dir>.Samples.Cor|
000001e0  72 65 63 74 0a 52 4d 4c  4f 41 44 20 3c 4d 61 74  |rect.RMLOAD <Mat|
000001f0  68 73 44 65 6d 6f 24 44  69 72 3e 2e 53 61 6d 70  |hsDemo$Dir>.Samp|
00000200  6c 65 73 2e 43 6f 75 6e  74 4d 6f 64 0a 52 4d 4c  |les.CountMod.RML|
00000210  4f 41 44 20 3c 4d 61 74  68 73 44 65 6d 6f 24 44  |OAD <MathsDemo$D|
00000220  69 72 3e 2e 53 61 6d 70  6c 65 73 2e 43 6f 75 6e  |ir>.Samples.Coun|
00000230  74 4d 6f 64 31 0a 52 4d  4c 4f 41 44 20 3c 4d 61  |tMod1.RMLOAD <Ma|
00000240  74 68 73 44 65 6d 6f 24  44 69 72 3e 2e 53 61 6d  |thsDemo$Dir>.Sam|
00000250  70 6c 65 73 2e 4c 69 76  65 73 4d 6f 64 0a 52 4d  |ples.LivesMod.RM|
00000260  4c 4f 41 44 20 3c 4d 61  74 68 73 44 65 6d 6f 24  |LOAD <MathsDemo$|
00000270  44 69 72 3e 2e 53 61 6d  70 6c 65 73 2e 53 63 6f  |Dir>.Samples.Sco|
00000280  72 65 4d 6f 64 0a 52 4d  4c 4f 41 44 20 3c 4d 61  |reMod.RMLOAD <Ma|
00000290  74 68 73 44 65 6d 6f 24  44 69 72 3e 2e 53 61 6d  |thsDemo$Dir>.Sam|
000002a0  70 6c 65 73 2e 57 72 6f  6e 67 0a 0a 52 55 4e 20  |ples.Wrong..RUN |
000002b0  3c 4d 61 74 68 73 44 65  6d 6f 24 44 69 72 3e 2e  |<MathsDemo$Dir>.|
000002c0  21 52 75 6e 49 6d 61 67  65 0a                    |!RunImage.|
000002ca