Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199206b.adf » June92 » !AWJune92/Goodies/VectorDemo/!VectDemo/!Boot
!AWJune92/Goodies/VectorDemo/!VectDemo/!Boot
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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199206b.adf » June92 |
| Filename: | !AWJune92/Goodies/VectorDemo/!VectDemo/!Boot |
| Read OK: | ✔ |
| File size: | 0419 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
Set VectDemo$Dir <Obey$Dir> IconSprites <VectDemo$Dir>.!Sprites Set Alias$@RunType_C56 /<VectDemo$Dir> -load %%*0 Set Alias$@PrintType_C56 /<VectDemo$Dir> -print %%*0 Set Alias$@RunType_810 /<VectDemo$Dir> -lib %%*0 Set Alias$@PrintType_810 Error 0 Cannot print a Vector library:� Set Alias$@RunType_553 /<VectDemo$Dir> -lib %%*0 Set Alias$@PrintType_553 Error 0 Cannot print a Vector library: If "<Alias$@RunType_AFF>"="" Then Set Alias$@RunType_AFF /<VectDemo$Dir> -load %%*0 If "<Alias$@PrintType_AFF>"="" Then Set Alias$@PrintType_AFF /<VectDemo$Dir> -print %%*0 If "<Alias$@RunType_C4B>"="" Then Set Alias$@RunType_C4B /<VectDemo$Dir> -load %%*0 If "<Alias$@PrintType_C4B>"="" Then Set Alias$@PrintType_C4B /<VectDemo$Dir> -print %%*0 If "<Alias$@RunType_CC3>"="" Then Set Alias$@RunType_CC3 /<VectDemo$Dir> -load %%*0 If "<Alias$@PrintType_CC3>"="" Then Set Alias$@PrintType_CC3 /<VectDemo$Dir> -print %%*0 Set File$Type_C4B CmprDraw Set File$Type_AFF DrawFile Set File$Type_810 DrawLib Set File$Type_C56 VecFile Set File$type_CC3 Poster
00000000 0a 53 65 74 20 56 65 63 74 44 65 6d 6f 24 44 69 |.Set VectDemo$Di| 00000010 72 20 3c 4f 62 65 79 24 44 69 72 3e 0a 49 63 6f |r <Obey$Dir>.Ico| 00000020 6e 53 70 72 69 74 65 73 20 3c 56 65 63 74 44 65 |nSprites <VectDe| 00000030 6d 6f 24 44 69 72 3e 2e 21 53 70 72 69 74 65 73 |mo$Dir>.!Sprites| 00000040 0a 0a 53 65 74 20 41 6c 69 61 73 24 40 52 75 6e |..Set Alias$@Run| 00000050 54 79 70 65 5f 43 35 36 20 2f 3c 56 65 63 74 44 |Type_C56 /<VectD| 00000060 65 6d 6f 24 44 69 72 3e 20 2d 6c 6f 61 64 20 25 |emo$Dir> -load %| 00000070 25 2a 30 0a 53 65 74 20 41 6c 69 61 73 24 40 50 |%*0.Set Alias$@P| 00000080 72 69 6e 74 54 79 70 65 5f 43 35 36 20 2f 3c 56 |rintType_C56 /<V| 00000090 65 63 74 44 65 6d 6f 24 44 69 72 3e 20 2d 70 72 |ectDemo$Dir> -pr| 000000a0 69 6e 74 20 25 25 2a 30 0a 53 65 74 20 41 6c 69 |int %%*0.Set Ali| 000000b0 61 73 24 40 52 75 6e 54 79 70 65 5f 38 31 30 20 |as$@RunType_810 | 000000c0 2f 3c 56 65 63 74 44 65 6d 6f 24 44 69 72 3e 20 |/<VectDemo$Dir> | 000000d0 2d 6c 69 62 20 25 25 2a 30 0a 53 65 74 20 41 6c |-lib %%*0.Set Al| 000000e0 69 61 73 24 40 50 72 69 6e 74 54 79 70 65 5f 38 |ias$@PrintType_8| 000000f0 31 30 20 45 72 72 6f 72 20 30 20 43 61 6e 6e 6f |10 Error 0 Canno| 00000100 74 20 70 72 69 6e 74 20 61 20 56 65 63 74 6f 72 |t print a Vector| 00000110 20 6c 69 62 72 61 72 79 3a a0 0a 53 65 74 20 41 | library:..Set A| 00000120 6c 69 61 73 24 40 52 75 6e 54 79 70 65 5f 35 35 |lias$@RunType_55| 00000130 33 20 2f 3c 56 65 63 74 44 65 6d 6f 24 44 69 72 |3 /<VectDemo$Dir| 00000140 3e 20 2d 6c 69 62 20 25 25 2a 30 0a 53 65 74 20 |> -lib %%*0.Set | 00000150 41 6c 69 61 73 24 40 50 72 69 6e 74 54 79 70 65 |Alias$@PrintType| 00000160 5f 35 35 33 20 45 72 72 6f 72 20 30 20 43 61 6e |_553 Error 0 Can| 00000170 6e 6f 74 20 70 72 69 6e 74 20 61 20 56 65 63 74 |not print a Vect| 00000180 6f 72 20 6c 69 62 72 61 72 79 3a 20 0a 0a 49 66 |or library: ..If| 00000190 20 22 3c 41 6c 69 61 73 24 40 52 75 6e 54 79 70 | "<Alias$@RunTyp| 000001a0 65 5f 41 46 46 3e 22 3d 22 22 20 54 68 65 6e 20 |e_AFF>"="" Then | 000001b0 53 65 74 20 41 6c 69 61 73 24 40 52 75 6e 54 79 |Set Alias$@RunTy| 000001c0 70 65 5f 41 46 46 20 2f 3c 56 65 63 74 44 65 6d |pe_AFF /<VectDem| 000001d0 6f 24 44 69 72 3e 20 2d 6c 6f 61 64 20 25 25 2a |o$Dir> -load %%*| 000001e0 30 0a 49 66 20 22 3c 41 6c 69 61 73 24 40 50 72 |0.If "<Alias$@Pr| 000001f0 69 6e 74 54 79 70 65 5f 41 46 46 3e 22 3d 22 22 |intType_AFF>"=""| 00000200 20 54 68 65 6e 20 53 65 74 20 41 6c 69 61 73 24 | Then Set Alias$| 00000210 40 50 72 69 6e 74 54 79 70 65 5f 41 46 46 20 2f |@PrintType_AFF /| 00000220 3c 56 65 63 74 44 65 6d 6f 24 44 69 72 3e 20 2d |<VectDemo$Dir> -| 00000230 70 72 69 6e 74 20 25 25 2a 30 0a 49 66 20 22 3c |print %%*0.If "<| 00000240 41 6c 69 61 73 24 40 52 75 6e 54 79 70 65 5f 43 |Alias$@RunType_C| 00000250 34 42 3e 22 3d 22 22 20 54 68 65 6e 20 53 65 74 |4B>"="" Then Set| 00000260 20 41 6c 69 61 73 24 40 52 75 6e 54 79 70 65 5f | Alias$@RunType_| 00000270 43 34 42 20 2f 3c 56 65 63 74 44 65 6d 6f 24 44 |C4B /<VectDemo$D| 00000280 69 72 3e 20 2d 6c 6f 61 64 20 25 25 2a 30 0a 49 |ir> -load %%*0.I| 00000290 66 20 22 3c 41 6c 69 61 73 24 40 50 72 69 6e 74 |f "<Alias$@Print| 000002a0 54 79 70 65 5f 43 34 42 3e 22 3d 22 22 20 54 68 |Type_C4B>"="" Th| 000002b0 65 6e 20 53 65 74 20 41 6c 69 61 73 24 40 50 72 |en Set Alias$@Pr| 000002c0 69 6e 74 54 79 70 65 5f 43 34 42 20 2f 3c 56 65 |intType_C4B /<Ve| 000002d0 63 74 44 65 6d 6f 24 44 69 72 3e 20 2d 70 72 69 |ctDemo$Dir> -pri| 000002e0 6e 74 20 25 25 2a 30 0a 49 66 20 22 3c 41 6c 69 |nt %%*0.If "<Ali| 000002f0 61 73 24 40 52 75 6e 54 79 70 65 5f 43 43 33 3e |as$@RunType_CC3>| 00000300 22 3d 22 22 20 54 68 65 6e 20 53 65 74 20 41 6c |"="" Then Set Al| 00000310 69 61 73 24 40 52 75 6e 54 79 70 65 5f 43 43 33 |ias$@RunType_CC3| 00000320 20 2f 3c 56 65 63 74 44 65 6d 6f 24 44 69 72 3e | /<VectDemo$Dir>| 00000330 20 2d 6c 6f 61 64 20 25 25 2a 30 0a 49 66 20 22 | -load %%*0.If "| 00000340 3c 41 6c 69 61 73 24 40 50 72 69 6e 74 54 79 70 |<Alias$@PrintTyp| 00000350 65 5f 43 43 33 3e 22 3d 22 22 20 54 68 65 6e 20 |e_CC3>"="" Then | 00000360 53 65 74 20 41 6c 69 61 73 24 40 50 72 69 6e 74 |Set Alias$@Print| 00000370 54 79 70 65 5f 43 43 33 20 2f 3c 56 65 63 74 44 |Type_CC3 /<VectD| 00000380 65 6d 6f 24 44 69 72 3e 20 2d 70 72 69 6e 74 20 |emo$Dir> -print | 00000390 25 25 2a 30 0a 0a 53 65 74 20 46 69 6c 65 24 54 |%%*0..Set File$T| 000003a0 79 70 65 5f 43 34 42 20 43 6d 70 72 44 72 61 77 |ype_C4B CmprDraw| 000003b0 0a 53 65 74 20 46 69 6c 65 24 54 79 70 65 5f 41 |.Set File$Type_A| 000003c0 46 46 20 44 72 61 77 46 69 6c 65 0a 53 65 74 20 |FF DrawFile.Set | 000003d0 46 69 6c 65 24 54 79 70 65 5f 38 31 30 20 44 72 |File$Type_810 Dr| 000003e0 61 77 4c 69 62 0a 53 65 74 20 46 69 6c 65 24 54 |awLib.Set File$T| 000003f0 79 70 65 5f 43 35 36 20 56 65 63 46 69 6c 65 0a |ype_C56 VecFile.| 00000400 53 65 74 20 46 69 6c 65 24 74 79 70 65 5f 43 43 |Set File$type_CC| 00000410 33 20 50 6f 73 74 65 72 0a |3 Poster.| 00000419
.