Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199604.adf » Freeware » TextPort/!TextPort/!Run

TextPort/!TextPort/!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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199604.adf » Freeware
Filename: TextPort/!TextPort/!Run
Read OK:
File size: 013C bytes
Load address: 0000
Exec address: 0000
File contents
| > !Run generic file by Ian Giblin, ALT-itude Software

 RMensure SharedClibrary 3.75 RMload System:Modules.Clib
 RMensure SharedClibrary 3.75 Error You need at least version 3.75 of 'CLib'
 Set TextPort$Dir <Obey$Dir>
 IconSprites <TextPort$Dir>.!Sprites
 WimpSlot -min 96k -max 96k
 Run <TextPort$Dir>.!RunImage
00000000  0a 7c 20 3e 20 21 52 75  6e 20 67 65 6e 65 72 69  |.| > !Run generi|
00000010  63 20 66 69 6c 65 20 62  79 20 49 61 6e 20 47 69  |c file by Ian Gi|
00000020  62 6c 69 6e 2c 20 41 4c  54 2d 69 74 75 64 65 20  |blin, ALT-itude |
00000030  53 6f 66 74 77 61 72 65  0a 0a 20 52 4d 65 6e 73  |Software.. RMens|
00000040  75 72 65 20 53 68 61 72  65 64 43 6c 69 62 72 61  |ure SharedClibra|
00000050  72 79 20 33 2e 37 35 20  52 4d 6c 6f 61 64 20 53  |ry 3.75 RMload S|
00000060  79 73 74 65 6d 3a 4d 6f  64 75 6c 65 73 2e 43 6c  |ystem:Modules.Cl|
00000070  69 62 0a 20 52 4d 65 6e  73 75 72 65 20 53 68 61  |ib. RMensure Sha|
00000080  72 65 64 43 6c 69 62 72  61 72 79 20 33 2e 37 35  |redClibrary 3.75|
00000090  20 45 72 72 6f 72 20 59  6f 75 20 6e 65 65 64 20  | Error You need |
000000a0  61 74 20 6c 65 61 73 74  20 76 65 72 73 69 6f 6e  |at least version|
000000b0  20 33 2e 37 35 20 6f 66  20 27 43 4c 69 62 27 0a  | 3.75 of 'CLib'.|
000000c0  20 53 65 74 20 54 65 78  74 50 6f 72 74 24 44 69  | Set TextPort$Di|
000000d0  72 20 3c 4f 62 65 79 24  44 69 72 3e 0a 20 49 63  |r <Obey$Dir>. Ic|
000000e0  6f 6e 53 70 72 69 74 65  73 20 3c 54 65 78 74 50  |onSprites <TextP|
000000f0  6f 72 74 24 44 69 72 3e  2e 21 53 70 72 69 74 65  |ort$Dir>.!Sprite|
00000100  73 0a 20 57 69 6d 70 53  6c 6f 74 20 2d 6d 69 6e  |s. WimpSlot -min|
00000110  20 39 36 6b 20 2d 6d 61  78 20 39 36 6b 0a 20 52  | 96k -max 96k. R|
00000120  75 6e 20 3c 54 65 78 74  50 6f 72 74 24 44 69 72  |un <TextPort$Dir|
00000130  3e 2e 21 52 75 6e 49 6d  61 67 65 0a              |>.!RunImage.|
0000013c