Home » Archimedes archive » Archimedes World » archimedes_world_volume_15_issue_5_scp.adf » Argosp » !Fresco/!Boot

!Fresco/!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 » Archimedes archive » Archimedes World » archimedes_world_volume_15_issue_5_scp.adf » Argosp
Filename: !Fresco/!Boot
Read OK:
File size: 0221 bytes
Load address: 0000
Exec address: 0000
File contents
| > !Fresco.!Boot
|
| World Wide Web browsing software
| (c) ANT Limited, 1995-8
|
Set Fresco$Dir <Obey$Dir>
Set Fresco$Path <Obey$Dir>.
IconSprites <Fresco$Dir>.!Sprites
Set Alias$@RunType_FAF Run <Fresco$Dir>.!Run %%*0
Set Alias$@RunType_B62 Run <Fresco$Dir>.!Run %%*0
Set File$Type_FAF HTML
Set File$Type_B61 XBitMap
Set File$Type_B60 PNG
Set File$Type_695 GIF
Set File$Type_B62 Gopher
Set File$Type_C85 JPEG

| Launching of Fresco for URL types
If "<Alias$URLOpen_File>" = "" then SetMacro Alias$URLOpen_File Run <Fresco$Dir>.!Run -URL %%*0
00000000  7c 20 3e 20 21 46 72 65  73 63 6f 2e 21 42 6f 6f  || > !Fresco.!Boo|
00000010  74 0a 7c 0a 7c 20 57 6f  72 6c 64 20 57 69 64 65  |t.|.| World Wide|
00000020  20 57 65 62 20 62 72 6f  77 73 69 6e 67 20 73 6f  | Web browsing so|
00000030  66 74 77 61 72 65 0a 7c  20 28 63 29 20 41 4e 54  |ftware.| (c) ANT|
00000040  20 4c 69 6d 69 74 65 64  2c 20 31 39 39 35 2d 38  | Limited, 1995-8|
00000050  0a 7c 0a 53 65 74 20 46  72 65 73 63 6f 24 44 69  |.|.Set Fresco$Di|
00000060  72 20 3c 4f 62 65 79 24  44 69 72 3e 0a 53 65 74  |r <Obey$Dir>.Set|
00000070  20 46 72 65 73 63 6f 24  50 61 74 68 20 3c 4f 62  | Fresco$Path <Ob|
00000080  65 79 24 44 69 72 3e 2e  0a 49 63 6f 6e 53 70 72  |ey$Dir>..IconSpr|
00000090  69 74 65 73 20 3c 46 72  65 73 63 6f 24 44 69 72  |ites <Fresco$Dir|
000000a0  3e 2e 21 53 70 72 69 74  65 73 0a 53 65 74 20 41  |>.!Sprites.Set A|
000000b0  6c 69 61 73 24 40 52 75  6e 54 79 70 65 5f 46 41  |lias$@RunType_FA|
000000c0  46 20 52 75 6e 20 3c 46  72 65 73 63 6f 24 44 69  |F Run <Fresco$Di|
000000d0  72 3e 2e 21 52 75 6e 20  25 25 2a 30 0a 53 65 74  |r>.!Run %%*0.Set|
000000e0  20 41 6c 69 61 73 24 40  52 75 6e 54 79 70 65 5f  | Alias$@RunType_|
000000f0  42 36 32 20 52 75 6e 20  3c 46 72 65 73 63 6f 24  |B62 Run <Fresco$|
00000100  44 69 72 3e 2e 21 52 75  6e 20 25 25 2a 30 0a 53  |Dir>.!Run %%*0.S|
00000110  65 74 20 46 69 6c 65 24  54 79 70 65 5f 46 41 46  |et File$Type_FAF|
00000120  20 48 54 4d 4c 0a 53 65  74 20 46 69 6c 65 24 54  | HTML.Set File$T|
00000130  79 70 65 5f 42 36 31 20  58 42 69 74 4d 61 70 0a  |ype_B61 XBitMap.|
00000140  53 65 74 20 46 69 6c 65  24 54 79 70 65 5f 42 36  |Set File$Type_B6|
00000150  30 20 50 4e 47 0a 53 65  74 20 46 69 6c 65 24 54  |0 PNG.Set File$T|
00000160  79 70 65 5f 36 39 35 20  47 49 46 0a 53 65 74 20  |ype_695 GIF.Set |
00000170  46 69 6c 65 24 54 79 70  65 5f 42 36 32 20 47 6f  |File$Type_B62 Go|
00000180  70 68 65 72 0a 53 65 74  20 46 69 6c 65 24 54 79  |pher.Set File$Ty|
00000190  70 65 5f 43 38 35 20 4a  50 45 47 0a 0a 7c 20 4c  |pe_C85 JPEG..| L|
000001a0  61 75 6e 63 68 69 6e 67  20 6f 66 20 46 72 65 73  |aunching of Fres|
000001b0  63 6f 20 66 6f 72 20 55  52 4c 20 74 79 70 65 73  |co for URL types|
000001c0  0a 49 66 20 22 3c 41 6c  69 61 73 24 55 52 4c 4f  |.If "<Alias$URLO|
000001d0  70 65 6e 5f 46 69 6c 65  3e 22 20 3d 20 22 22 20  |pen_File>" = "" |
000001e0  74 68 65 6e 20 53 65 74  4d 61 63 72 6f 20 41 6c  |then SetMacro Al|
000001f0  69 61 73 24 55 52 4c 4f  70 65 6e 5f 46 69 6c 65  |ias$URLOpen_File|
00000200  20 52 75 6e 20 3c 46 72  65 73 63 6f 24 44 69 72  | Run <Fresco$Dir|
00000210  3e 2e 21 52 75 6e 20 2d  55 52 4c 20 25 25 2a 30  |>.!Run -URL %%*0|
00000220  0a                                                |.|
00000221