Home » Archimedes archive » Archimedes World » AW-1992-08.adf » AWaug92 » !AWaug92/Goodies/WimpGloss/!WimpGloss/Wimp/Sprites
!AWaug92/Goodies/WimpGloss/!WimpGloss/Wimp/Sprites
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-1992-08.adf » AWaug92 |
| Filename: | !AWaug92/Goodies/WimpGloss/!WimpGloss/Wimp/Sprites |
| Read OK: | ✔ |
| File size: | 0243 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
DEF PROCWimp_SpritesLoad
REM|This loads a file called Sprites from the
REM|path
REM| <Obey$Dir>.Sprites
REM|
REM|
PROCWimp_SpritesPathLoad("<Obey$Dir>.Sprites")
ENDPROC
:
DEF PROCWimp_SpritesPathLoad(pathname$)
REM|This loads a sprites file with full name
REM|given by pathname$. E.g.
REM|
REM| PROCWimp_SpritesPathLoad("$.Pictures")
REM|
LOCALS%,T%
S%=OPENIN"<Obey$Dir>.Sprites":T%=EXT#S%+16:CLOSE#S%
DIMsprites%T%,spname%12
!sprites%=T%:sprites%!8=0
SYS"OS_SpriteOp",&109,sprites%
SYS"OS_SpriteOp",&10A,sprites%,pathname$
ENDPROC
REM| No variables 00000000 44 45 46 20 50 52 4f 43 57 69 6d 70 5f 53 70 72 |DEF PROCWimp_Spr|
00000010 69 74 65 73 4c 6f 61 64 0a 52 45 4d 7c 54 68 69 |itesLoad.REM|Thi|
00000020 73 20 6c 6f 61 64 73 20 61 20 66 69 6c 65 20 63 |s loads a file c|
00000030 61 6c 6c 65 64 20 53 70 72 69 74 65 73 20 66 72 |alled Sprites fr|
00000040 6f 6d 20 74 68 65 0a 52 45 4d 7c 70 61 74 68 0a |om the.REM|path.|
00000050 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 |REM| |
00000060 3c 4f 62 65 79 24 44 69 72 3e 2e 53 70 72 69 74 |<Obey$Dir>.Sprit|
00000070 65 73 20 0a 52 45 4d 7c 0a 52 45 4d 7c 0a 50 52 |es .REM|.REM|.PR|
00000080 4f 43 57 69 6d 70 5f 53 70 72 69 74 65 73 50 61 |OCWimp_SpritesPa|
00000090 74 68 4c 6f 61 64 28 22 3c 4f 62 65 79 24 44 69 |thLoad("<Obey$Di|
000000a0 72 3e 2e 53 70 72 69 74 65 73 22 29 0a 45 4e 44 |r>.Sprites").END|
000000b0 50 52 4f 43 0a 3a 0a 44 45 46 20 50 52 4f 43 57 |PROC.:.DEF PROCW|
000000c0 69 6d 70 5f 53 70 72 69 74 65 73 50 61 74 68 4c |imp_SpritesPathL|
000000d0 6f 61 64 28 70 61 74 68 6e 61 6d 65 24 29 0a 52 |oad(pathname$).R|
000000e0 45 4d 7c 54 68 69 73 20 6c 6f 61 64 73 20 61 20 |EM|This loads a |
000000f0 73 70 72 69 74 65 73 20 66 69 6c 65 20 77 69 74 |sprites file wit|
00000100 68 20 66 75 6c 6c 20 6e 61 6d 65 0a 52 45 4d 7c |h full name.REM||
00000110 67 69 76 65 6e 20 62 79 20 70 61 74 68 6e 61 6d |given by pathnam|
00000120 65 24 2e 20 45 2e 67 2e 0a 52 45 4d 7c 0a 52 45 |e$. E.g..REM|.RE|
00000130 4d 7c 20 20 20 20 50 52 4f 43 57 69 6d 70 5f 53 |M| PROCWimp_S|
00000140 70 72 69 74 65 73 50 61 74 68 4c 6f 61 64 28 22 |pritesPathLoad("|
00000150 24 2e 50 69 63 74 75 72 65 73 22 29 0a 52 45 4d |$.Pictures").REM|
00000160 7c 0a 4c 4f 43 41 4c 53 25 2c 54 25 0a 53 25 3d ||.LOCALS%,T%.S%=|
00000170 4f 50 45 4e 49 4e 22 3c 4f 62 65 79 24 44 69 72 |OPENIN"<Obey$Dir|
00000180 3e 2e 53 70 72 69 74 65 73 22 3a 54 25 3d 45 58 |>.Sprites":T%=EX|
00000190 54 23 53 25 2b 31 36 3a 43 4c 4f 53 45 23 53 25 |T#S%+16:CLOSE#S%|
000001a0 0a 44 49 4d 73 70 72 69 74 65 73 25 54 25 2c 73 |.DIMsprites%T%,s|
000001b0 70 6e 61 6d 65 25 31 32 0a 21 73 70 72 69 74 65 |pname%12.!sprite|
000001c0 73 25 3d 54 25 3a 73 70 72 69 74 65 73 25 21 38 |s%=T%:sprites%!8|
000001d0 3d 30 0a 53 59 53 22 4f 53 5f 53 70 72 69 74 65 |=0.SYS"OS_Sprite|
000001e0 4f 70 22 2c 26 31 30 39 2c 73 70 72 69 74 65 73 |Op",&109,sprites|
000001f0 25 0a 53 59 53 22 4f 53 5f 53 70 72 69 74 65 4f |%.SYS"OS_SpriteO|
00000200 70 22 2c 26 31 30 41 2c 73 70 72 69 74 65 73 25 |p",&10A,sprites%|
00000210 2c 70 61 74 68 6e 61 6d 65 24 0a 45 4e 44 50 52 |,pathname$.ENDPR|
00000220 4f 43 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 |OC.REM| |
00000230 20 20 20 20 20 20 20 4e 6f 20 76 61 72 69 61 62 | No variab|
00000240 6c 65 73 |les|
00000243 
.