Home » Archimedes archive » Archimedes World » AW-1996-02-Disc1.adf » !ElfKing_Elf » !ElfKing/ONE/ektitle
!ElfKing/ONE/ektitle
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 » AW-1996-02-Disc1.adf » !ElfKing_Elf |
| Filename: | !ElfKing/ONE/ektitle |
| Read OK: | ✔ |
| File size: | 017F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 20*SET ElfK$EntryPt Restart 30LIBRARY "<ElfK$chaindir>.elflib" 40PROClib_initialise 50 60PROCloadunsquash(sparea%,spareasiz%,"ONE.spfiles.ektitle") 70SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1279;958; 80SYS"OS_SpriteOp",&134,sparea%,"ektitle",122,112,8,scale%,0 90PROCmergescr21(10):PROCwait(1000) 100 110IFY%=0:PROCcheckfloppyisthere(1,"") 120CHAIN "<ElfK$chaindir>.ONE.LINK" 130 140END 150
*SET ElfK$EntryPt Restart ț "<ElfK$chaindir>.elflib" (�lib_initialise 2 <;�loadunsquash(sparea%,spareasiz%,"ONE.spfiles.ektitle") F;ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1279;958; P=ș"OS_SpriteOp",&134,sparea%,"ektitle",122,112,8,scale%,0 Z �mergescr21(10):�wait(1000) d n#�Y%=0:�checkfloppyisthere(1,"") x � "<ElfK$chaindir>.ONE.LINK" � �� � �
00000000 0d 00 0a 04 0d 00 14 1d 2a 53 45 54 20 45 6c 66 |........*SET Elf| 00000010 4b 24 45 6e 74 72 79 50 74 20 52 65 73 74 61 72 |K$EntryPt Restar| 00000020 74 0d 00 1e 1f c8 9b 20 22 3c 45 6c 66 4b 24 63 |t...... "<ElfK$c| 00000030 68 61 69 6e 64 69 72 3e 2e 65 6c 66 6c 69 62 22 |haindir>.elflib"| 00000040 0d 00 28 13 f2 6c 69 62 5f 69 6e 69 74 69 61 6c |..(..lib_initial| 00000050 69 73 65 0d 00 32 04 0d 00 3c 3b f2 6c 6f 61 64 |ise..2...<;.load| 00000060 75 6e 73 71 75 61 73 68 28 73 70 61 72 65 61 25 |unsquash(sparea%| 00000070 2c 73 70 61 72 65 61 73 69 7a 25 2c 22 4f 4e 45 |,spareasiz%,"ONE| 00000080 2e 73 70 66 69 6c 65 73 2e 65 6b 74 69 74 6c 65 |.spfiles.ektitle| 00000090 22 29 0d 00 46 3b c8 99 20 22 4f 53 5f 42 79 74 |")..F;.. "OS_Byt| 000000a0 65 22 2c 31 31 32 2c 32 3a ef 31 38 2c 30 2c 33 |e",112,2:.18,0,3| 000000b0 3a ef 32 35 2c 34 2c 30 3b 30 3b 3a ef 32 35 2c |:.25,4,0;0;:.25,| 000000c0 31 30 31 2c 31 32 37 39 3b 39 35 38 3b 0d 00 50 |101,1279;958;..P| 000000d0 3d c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |=.."OS_SpriteOp"| 000000e0 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 65 |,&134,sparea%,"e| 000000f0 6b 74 69 74 6c 65 22 2c 31 32 32 2c 31 31 32 2c |ktitle",122,112,| 00000100 38 2c 73 63 61 6c 65 25 2c 30 0d 00 5a 1f f2 6d |8,scale%,0..Z..m| 00000110 65 72 67 65 73 63 72 32 31 28 31 30 29 3a f2 77 |ergescr21(10):.w| 00000120 61 69 74 28 31 30 30 30 29 0d 00 64 04 0d 00 6e |ait(1000)..d...n| 00000130 23 e7 59 25 3d 30 3a f2 63 68 65 63 6b 66 6c 6f |#.Y%=0:.checkflo| 00000140 70 70 79 69 73 74 68 65 72 65 28 31 2c 22 22 29 |ppyisthere(1,"")| 00000150 0d 00 78 20 d7 20 22 3c 45 6c 66 4b 24 63 68 61 |..x . "<ElfK$cha| 00000160 69 6e 64 69 72 3e 2e 4f 4e 45 2e 4c 49 4e 4b 22 |indir>.ONE.LINK"| 00000170 0d 00 82 04 0d 00 8c 05 e0 0d 00 96 04 0d ff |...............| 0000017f
.