Home » Archimedes archive » Acorn Computing » 1994 06.adf » 9406 » Flashback/!Flashdemo/!Run

Flashback/!Flashdemo/!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 » 1994 06.adf » 9406
Filename: Flashback/!Flashdemo/!Run
Read OK:
File size: 018D bytes
Load address: 0000
Exec address: 0000
File contents
| >!Run file for Flashback demo

Set Flashback$Dir <Obey$Dir>
Iconsprites <Flashback$Dir>.!Sprites
Set Alias$FBRun Run <Flashback$Dir>.%*0
FBRun ShrinkMem
Set VDM TV1
FBRun IfVidC20 Set VDM TV20
IF VDM = "TV20" THEN FBRun ScreenMem 300K
IF VDM = "TV1"  THEN FBRun ScreenMem 168K

| Make wimpslot bigger if possible ...
Wimpslot -min 616K -max 616K

Unset FBRun
Run <Flashback$Dir>.FlashDemo <VDM>
00000000  7c 20 3e 21 52 75 6e 20  66 69 6c 65 20 66 6f 72  || >!Run file for|
00000010  20 46 6c 61 73 68 62 61  63 6b 20 64 65 6d 6f 0a  | Flashback demo.|
00000020  0a 53 65 74 20 46 6c 61  73 68 62 61 63 6b 24 44  |.Set Flashback$D|
00000030  69 72 20 3c 4f 62 65 79  24 44 69 72 3e 0a 49 63  |ir <Obey$Dir>.Ic|
00000040  6f 6e 73 70 72 69 74 65  73 20 3c 46 6c 61 73 68  |onsprites <Flash|
00000050  62 61 63 6b 24 44 69 72  3e 2e 21 53 70 72 69 74  |back$Dir>.!Sprit|
00000060  65 73 0a 53 65 74 20 41  6c 69 61 73 24 46 42 52  |es.Set Alias$FBR|
00000070  75 6e 20 52 75 6e 20 3c  46 6c 61 73 68 62 61 63  |un Run <Flashbac|
00000080  6b 24 44 69 72 3e 2e 25  2a 30 0a 46 42 52 75 6e  |k$Dir>.%*0.FBRun|
00000090  20 53 68 72 69 6e 6b 4d  65 6d 0a 53 65 74 20 56  | ShrinkMem.Set V|
000000a0  44 4d 20 54 56 31 0a 46  42 52 75 6e 20 49 66 56  |DM TV1.FBRun IfV|
000000b0  69 64 43 32 30 20 53 65  74 20 56 44 4d 20 54 56  |idC20 Set VDM TV|
000000c0  32 30 0a 49 46 20 56 44  4d 20 3d 20 22 54 56 32  |20.IF VDM = "TV2|
000000d0  30 22 20 54 48 45 4e 20  46 42 52 75 6e 20 53 63  |0" THEN FBRun Sc|
000000e0  72 65 65 6e 4d 65 6d 20  33 30 30 4b 0a 49 46 20  |reenMem 300K.IF |
000000f0  56 44 4d 20 3d 20 22 54  56 31 22 20 20 54 48 45  |VDM = "TV1"  THE|
00000100  4e 20 46 42 52 75 6e 20  53 63 72 65 65 6e 4d 65  |N FBRun ScreenMe|
00000110  6d 20 31 36 38 4b 0a 0a  7c 20 4d 61 6b 65 20 77  |m 168K..| Make w|
00000120  69 6d 70 73 6c 6f 74 20  62 69 67 67 65 72 20 69  |impslot bigger i|
00000130  66 20 70 6f 73 73 69 62  6c 65 20 2e 2e 2e 0a 57  |f possible ....W|
00000140  69 6d 70 73 6c 6f 74 20  2d 6d 69 6e 20 36 31 36  |impslot -min 616|
00000150  4b 20 2d 6d 61 78 20 36  31 36 4b 0a 0a 55 6e 73  |K -max 616K..Uns|
00000160  65 74 20 46 42 52 75 6e  0a 52 75 6e 20 3c 46 6c  |et FBRun.Run <Fl|
00000170  61 73 68 62 61 63 6b 24  44 69 72 3e 2e 46 6c 61  |ashback$Dir>.Fla|
00000180  73 68 44 65 6d 6f 20 3c  56 44 4d 3e 0a           |shDemo <VDM>.|
0000018d