Home » Personal collection » Acorn hard disk » apps » sibelius » SibFull/!Sibelius6/Startup

SibFull/!Sibelius6/Startup

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 » Personal collection » Acorn hard disk » apps » sibelius
Filename: SibFull/!Sibelius6/Startup
Read OK:
File size: 0AB0 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10
   20REM Startup program for Sibelius 6
   30
   40REM Loads 16-colour sprite in 16-colour mode
   50REM Decompresses 256-colour sprite in 256-colour mode iff Squash module present
   60REM Else does nothing (e.g. in 2-colour modes)
   70
   80ON ERROR END: REM no harm done
   90
  100squashsize256%=16751: REM exact file size of squashed S6logo 256
  110spritesize256%=144088: REM exact file size of unsquashed S6logo 256
  120squashsize16%=10128: REM exact size of squashed S6logo 16 file
  130spritesize16%=71944: REM exact size of unsquashed S6logo 16 file
  140w%=480:h%=299
  150
  160DIM sprite% spritesize256%+4,scale% 16,squash% squashsize256%
  170
  180SYS"OS_ReadModeVariable",-1,9 TO ,,C%
  190CASE C% OF
  200  WHEN 2: PROCloadsprite16
  210  WHEN 3: PROCloadsprite256
  220  OTHERWISE: END
  230ENDCASE
  240
  250SYS "Wimp_Initialise",310,&4b534154,"Sibelius startup",0 TO ,han%
  260
  270SYS"OS_ReadModeVariable",-1,4 TO ,,xeig%
  280w%=w%<<xeig%: REM OS units
  290SYS"OS_ReadModeVariable",-1,11 TO ,,x%
  300x%=((x%+1)<<xeig%)/2: REM centre of screen
  310
  320SYS"OS_ReadModeVariable",-1,5 TO ,,yeig%
  330h%=h%<<yeig%: REM OS units
  340SYS"OS_ReadModeVariable",-1,12 TO ,,y%
  350y%=((y%+1)<<yeig%)/2+50: REM just above centre of screen
  360
  370REPEAT
  380  READ size%,delay%
  390  !scale%=2:scale%!4=2
  400  scale%!8=size%:scale%!12=size%<<(yeig%-xeig%)
  410  SYS"OS_SpriteOp",52+256,sprite%,"screen",x%-w%/2*(2/scale%!8),y%-h%/2*(2/scale%!12),0,scale%,0
  420  TIME=0:REPEAT UNTIL TIME > delay%
  430UNTIL size%=2
  440
  450SYS "Wimp_ForceRedraw",-1,x%-w%/2,y%-w%/2,x%+w%/2,y%+w%/2
  460SYS "Wimp_CloseDown",han%,&4b534154
  470END
  480
  490REM scale factor of frames = 2/n, delay
  500DATA 2, 100
  510
  520REM used to be:
  530DATA 12, 10
  540DATA 11, 11
  550DATA 10, 12
  560DATA 9, 13
  570DATA 8, 14
  580DATA 7, 15
  590DATA 6, 16
  600DATA 5, 17
  610DATA 4, 18
  620DATA 3, 24
  630DATA 2, 300
  640
  650
  660DEF PROCloadsprite16
  670SYS"OS_Module",18,"Squash" TO X%
  680IF X%<>18 END: REM error because no Squash module
  690
  700SYS"Squash_Decompress",%1000,squashsize16%-20 TO worksize%: REM squash workspace, 17K say
  710DIM work% worksize%
  720
  730OSCLI "LOAD <Obey$Dir>.S6logo�16 "+STR$~squash%
  740
  750!sprite% = spritesize16%+4: REM 'initialize' sprite area; rest of header loaded from sprite file
  760
  770SYS"Squash_Decompress",%0100,work%,squash%+20,squashsize16%-20,sprite%+4,spritesize16% TO X%
  780IF X%<>0 END: REM decompress failed for some reason
  790ENDPROC
  800
  810
  820DEF PROCloadsprite256
  830SYS"OS_Module",18,"Squash" TO X%
  840IF X%<>18 END: REM error because no Squash module
  850
  860SYS"Squash_Decompress",%1000,squashsize256%-20 TO worksize%: REM squash workspace, 17K say
  870DIM work% worksize%
  880
  890OSCLI "LOAD <Obey$Dir>.S6logo�256 "+STR$~squash%
  900
  910!sprite% = spritesize256%+4: REM 'initialize' sprite area; rest of header loaded from sprite file
  920
  930SYS"Squash_Decompress",%0100,work%,squash%+20,squashsize256%-20,sprite%+4,spritesize256% TO X%
  940IF X%<>0 END: REM decompress failed for some reason
  950
  960ENDPROC


$� Startup program for Sibelius 6

(.� Loads 16-colour sprite in 16-colour mode
2Q� Decompresses 256-colour sprite in 256-colour mode iff Squash module present
<0� Else does nothing (e.g. in 2-colour modes)
F
P� � �: � no harm done
Z
dBsquashsize256%=16751: � exact file size of squashed S6logo 256
nEspritesize256%=144088: � exact file size of unsquashed S6logo 256
x@squashsize16%=10128: � exact size of squashed S6logo 16 file
�Bspritesize16%=71944: � exact size of unsquashed S6logo 16 file
�w%=480:h%=299
�
�?� sprite% spritesize256%+4,scale% 16,squash% squashsize256%
�
�'ș"OS_ReadModeVariable",-1,9 � ,,C%
�Ȏ C% �
�  � 2: �loadsprite16
�  � 3: �loadsprite256
�
  : �
��
�
�Cș "Wimp_Initialise",310,&4b534154,"Sibelius startup",0 � ,han%

*ș"OS_ReadModeVariable",-1,4 � ,,xeig%
w%=w%<<xeig%: � OS units
"(ș"OS_ReadModeVariable",-1,11 � ,,x%
,,x%=((x%+1)<<xeig%)/2: � centre of screen
6
@*ș"OS_ReadModeVariable",-1,5 � ,,yeig%
Jh%=h%<<yeig%: � OS units
T(ș"OS_ReadModeVariable",-1,12 � ,,y%
^:y%=((y%+1)<<yeig%)/2+50: � just above centre of screen
h
r�
|  � size%,delay%
�  !scale%=2:scale%!4=2
�3  scale%!8=size%:scale%!12=size%<<(yeig%-xeig%)
�c  ș"OS_SpriteOp",52+256,sprite%,"screen",x%-w%/2*(2/scale%!8),y%-h%/2*(2/scale%!12),0,scale%,0
�  �=0:� � � > delay%
�
� size%=2
�
�<ș "Wimp_ForceRedraw",-1,x%-w%/2,y%-w%/2,x%+w%/2,y%+w%/2
�&ș "Wimp_CloseDown",han%,&4b534154
��
�
�)� scale factor of frames = 2/n, delay
�� 2, 100
�
� used to be:
� 12, 10
� 11, 11
&� 10, 12
0� 9, 13
:� 8, 14
D� 7, 15
N� 6, 16
X� 5, 17
b� 4, 18
l� 3, 24
v� 2, 300
�
�
�� �loadsprite16
�"ș"OS_Module",18,"Squash" � X%
�0� X%<>18 �: � error because no Squash module
�
�Yș"Squash_Decompress",%1000,squashsize16%-20 � worksize%: � squash workspace, 17K say
�� work% worksize%
�
�,� "LOAD <Obey$Dir>.S6logo�16 "+�~squash%
�
�b!sprite% = spritesize16%+4: � 'initialize' sprite area; rest of header loaded from sprite file
�
^ș"Squash_Decompress",%0100,work%,squash%+20,squashsize16%-20,sprite%+4,spritesize16% � X%
2� X%<>0 �: � decompress failed for some reason
�
 
*
4� �loadsprite256
>"ș"OS_Module",18,"Squash" � X%
H0� X%<>18 �: � error because no Squash module
R
\Zș"Squash_Decompress",%1000,squashsize256%-20 � worksize%: � squash workspace, 17K say
f� work% worksize%
p
z-� "LOAD <Obey$Dir>.S6logo�256 "+�~squash%
�
�c!sprite% = spritesize256%+4: � 'initialize' sprite area; rest of header loaded from sprite file
�
�`ș"Squash_Decompress",%0100,work%,squash%+20,squashsize256%-20,sprite%+4,spritesize256% � X%
�2� X%<>0 �: � decompress failed for some reason
�
��
�
00000000  0d 00 0a 04 0d 00 14 24  f4 20 53 74 61 72 74 75  |.......$. Startu|
00000010  70 20 70 72 6f 67 72 61  6d 20 66 6f 72 20 53 69  |p program for Si|
00000020  62 65 6c 69 75 73 20 36  0d 00 1e 04 0d 00 28 2e  |belius 6......(.|
00000030  f4 20 4c 6f 61 64 73 20  31 36 2d 63 6f 6c 6f 75  |. Loads 16-colou|
00000040  72 20 73 70 72 69 74 65  20 69 6e 20 31 36 2d 63  |r sprite in 16-c|
00000050  6f 6c 6f 75 72 20 6d 6f  64 65 0d 00 32 51 f4 20  |olour mode..2Q. |
00000060  44 65 63 6f 6d 70 72 65  73 73 65 73 20 32 35 36  |Decompresses 256|
00000070  2d 63 6f 6c 6f 75 72 20  73 70 72 69 74 65 20 69  |-colour sprite i|
00000080  6e 20 32 35 36 2d 63 6f  6c 6f 75 72 20 6d 6f 64  |n 256-colour mod|
00000090  65 20 69 66 66 20 53 71  75 61 73 68 20 6d 6f 64  |e iff Squash mod|
000000a0  75 6c 65 20 70 72 65 73  65 6e 74 0d 00 3c 30 f4  |ule present..<0.|
000000b0  20 45 6c 73 65 20 64 6f  65 73 20 6e 6f 74 68 69  | Else does nothi|
000000c0  6e 67 20 28 65 2e 67 2e  20 69 6e 20 32 2d 63 6f  |ng (e.g. in 2-co|
000000d0  6c 6f 75 72 20 6d 6f 64  65 73 29 0d 00 46 04 0d  |lour modes)..F..|
000000e0  00 50 19 ee 20 85 20 e0  3a 20 f4 20 6e 6f 20 68  |.P.. . .: . no h|
000000f0  61 72 6d 20 64 6f 6e 65  0d 00 5a 04 0d 00 64 42  |arm done..Z...dB|
00000100  73 71 75 61 73 68 73 69  7a 65 32 35 36 25 3d 31  |squashsize256%=1|
00000110  36 37 35 31 3a 20 f4 20  65 78 61 63 74 20 66 69  |6751: . exact fi|
00000120  6c 65 20 73 69 7a 65 20  6f 66 20 73 71 75 61 73  |le size of squas|
00000130  68 65 64 20 53 36 6c 6f  67 6f 20 32 35 36 0d 00  |hed S6logo 256..|
00000140  6e 45 73 70 72 69 74 65  73 69 7a 65 32 35 36 25  |nEspritesize256%|
00000150  3d 31 34 34 30 38 38 3a  20 f4 20 65 78 61 63 74  |=144088: . exact|
00000160  20 66 69 6c 65 20 73 69  7a 65 20 6f 66 20 75 6e  | file size of un|
00000170  73 71 75 61 73 68 65 64  20 53 36 6c 6f 67 6f 20  |squashed S6logo |
00000180  32 35 36 0d 00 78 40 73  71 75 61 73 68 73 69 7a  |256..x@squashsiz|
00000190  65 31 36 25 3d 31 30 31  32 38 3a 20 f4 20 65 78  |e16%=10128: . ex|
000001a0  61 63 74 20 73 69 7a 65  20 6f 66 20 73 71 75 61  |act size of squa|
000001b0  73 68 65 64 20 53 36 6c  6f 67 6f 20 31 36 20 66  |shed S6logo 16 f|
000001c0  69 6c 65 0d 00 82 42 73  70 72 69 74 65 73 69 7a  |ile...Bspritesiz|
000001d0  65 31 36 25 3d 37 31 39  34 34 3a 20 f4 20 65 78  |e16%=71944: . ex|
000001e0  61 63 74 20 73 69 7a 65  20 6f 66 20 75 6e 73 71  |act size of unsq|
000001f0  75 61 73 68 65 64 20 53  36 6c 6f 67 6f 20 31 36  |uashed S6logo 16|
00000200  20 66 69 6c 65 0d 00 8c  11 77 25 3d 34 38 30 3a  | file....w%=480:|
00000210  68 25 3d 32 39 39 0d 00  96 04 0d 00 a0 3f de 20  |h%=299.......?. |
00000220  73 70 72 69 74 65 25 20  73 70 72 69 74 65 73 69  |sprite% spritesi|
00000230  7a 65 32 35 36 25 2b 34  2c 73 63 61 6c 65 25 20  |ze256%+4,scale% |
00000240  31 36 2c 73 71 75 61 73  68 25 20 73 71 75 61 73  |16,squash% squas|
00000250  68 73 69 7a 65 32 35 36  25 0d 00 aa 04 0d 00 b4  |hsize256%.......|
00000260  27 c8 99 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |'.."OS_ReadModeV|
00000270  61 72 69 61 62 6c 65 22  2c 2d 31 2c 39 20 b8 20  |ariable",-1,9 . |
00000280  2c 2c 43 25 0d 00 be 0b  c8 8e 20 43 25 20 ca 0d  |,,C%...... C% ..|
00000290  00 c8 18 20 20 c9 20 32  3a 20 f2 6c 6f 61 64 73  |...  . 2: .loads|
000002a0  70 72 69 74 65 31 36 0d  00 d2 19 20 20 c9 20 33  |prite16....  . 3|
000002b0  3a 20 f2 6c 6f 61 64 73  70 72 69 74 65 32 35 36  |: .loadsprite256|
000002c0  0d 00 dc 0a 20 20 7f 3a  20 e0 0d 00 e6 05 cb 0d  |....  .: .......|
000002d0  00 f0 04 0d 00 fa 43 c8  99 20 22 57 69 6d 70 5f  |......C.. "Wimp_|
000002e0  49 6e 69 74 69 61 6c 69  73 65 22 2c 33 31 30 2c  |Initialise",310,|
000002f0  26 34 62 35 33 34 31 35  34 2c 22 53 69 62 65 6c  |&4b534154,"Sibel|
00000300  69 75 73 20 73 74 61 72  74 75 70 22 2c 30 20 b8  |ius startup",0 .|
00000310  20 2c 68 61 6e 25 0d 01  04 04 0d 01 0e 2a c8 99  | ,han%.......*..|
00000320  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
00000330  61 62 6c 65 22 2c 2d 31  2c 34 20 b8 20 2c 2c 78  |able",-1,4 . ,,x|
00000340  65 69 67 25 0d 01 18 1c  77 25 3d 77 25 3c 3c 78  |eig%....w%=w%<<x|
00000350  65 69 67 25 3a 20 f4 20  4f 53 20 75 6e 69 74 73  |eig%: . OS units|
00000360  0d 01 22 28 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |.."(.."OS_ReadMo|
00000370  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 31  |deVariable",-1,1|
00000380  31 20 b8 20 2c 2c 78 25  0d 01 2c 2c 78 25 3d 28  |1 . ,,x%..,,x%=(|
00000390  28 78 25 2b 31 29 3c 3c  78 65 69 67 25 29 2f 32  |(x%+1)<<xeig%)/2|
000003a0  3a 20 f4 20 63 65 6e 74  72 65 20 6f 66 20 73 63  |: . centre of sc|
000003b0  72 65 65 6e 0d 01 36 04  0d 01 40 2a c8 99 22 4f  |reen..6...@*.."O|
000003c0  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
000003d0  6c 65 22 2c 2d 31 2c 35  20 b8 20 2c 2c 79 65 69  |le",-1,5 . ,,yei|
000003e0  67 25 0d 01 4a 1c 68 25  3d 68 25 3c 3c 79 65 69  |g%..J.h%=h%<<yei|
000003f0  67 25 3a 20 f4 20 4f 53  20 75 6e 69 74 73 0d 01  |g%: . OS units..|
00000400  54 28 c8 99 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |T(.."OS_ReadMode|
00000410  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 31 32 20  |Variable",-1,12 |
00000420  b8 20 2c 2c 79 25 0d 01  5e 3a 79 25 3d 28 28 79  |. ,,y%..^:y%=((y|
00000430  25 2b 31 29 3c 3c 79 65  69 67 25 29 2f 32 2b 35  |%+1)<<yeig%)/2+5|
00000440  30 3a 20 f4 20 6a 75 73  74 20 61 62 6f 76 65 20  |0: . just above |
00000450  63 65 6e 74 72 65 20 6f  66 20 73 63 72 65 65 6e  |centre of screen|
00000460  0d 01 68 04 0d 01 72 05  f5 0d 01 7c 14 20 20 f3  |..h...r....|.  .|
00000470  20 73 69 7a 65 25 2c 64  65 6c 61 79 25 0d 01 86  | size%,delay%...|
00000480  1a 20 20 21 73 63 61 6c  65 25 3d 32 3a 73 63 61  |.  !scale%=2:sca|
00000490  6c 65 25 21 34 3d 32 0d  01 90 33 20 20 73 63 61  |le%!4=2...3  sca|
000004a0  6c 65 25 21 38 3d 73 69  7a 65 25 3a 73 63 61 6c  |le%!8=size%:scal|
000004b0  65 25 21 31 32 3d 73 69  7a 65 25 3c 3c 28 79 65  |e%!12=size%<<(ye|
000004c0  69 67 25 2d 78 65 69 67  25 29 0d 01 9a 63 20 20  |ig%-xeig%)...c  |
000004d0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000004e0  35 32 2b 32 35 36 2c 73  70 72 69 74 65 25 2c 22  |52+256,sprite%,"|
000004f0  73 63 72 65 65 6e 22 2c  78 25 2d 77 25 2f 32 2a  |screen",x%-w%/2*|
00000500  28 32 2f 73 63 61 6c 65  25 21 38 29 2c 79 25 2d  |(2/scale%!8),y%-|
00000510  68 25 2f 32 2a 28 32 2f  73 63 61 6c 65 25 21 31  |h%/2*(2/scale%!1|
00000520  32 29 2c 30 2c 73 63 61  6c 65 25 2c 30 0d 01 a4  |2),0,scale%,0...|
00000530  18 20 20 d1 3d 30 3a f5  20 fd 20 91 20 3e 20 64  |.  .=0:. . . > d|
00000540  65 6c 61 79 25 0d 01 ae  0d fd 20 73 69 7a 65 25  |elay%..... size%|
00000550  3d 32 0d 01 b8 04 0d 01  c2 3c c8 99 20 22 57 69  |=2.......<.. "Wi|
00000560  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00000570  2d 31 2c 78 25 2d 77 25  2f 32 2c 79 25 2d 77 25  |-1,x%-w%/2,y%-w%|
00000580  2f 32 2c 78 25 2b 77 25  2f 32 2c 79 25 2b 77 25  |/2,x%+w%/2,y%+w%|
00000590  2f 32 0d 01 cc 26 c8 99  20 22 57 69 6d 70 5f 43  |/2...&.. "Wimp_C|
000005a0  6c 6f 73 65 44 6f 77 6e  22 2c 68 61 6e 25 2c 26  |loseDown",han%,&|
000005b0  34 62 35 33 34 31 35 34  0d 01 d6 05 e0 0d 01 e0  |4b534154........|
000005c0  04 0d 01 ea 29 f4 20 73  63 61 6c 65 20 66 61 63  |....). scale fac|
000005d0  74 6f 72 20 6f 66 20 66  72 61 6d 65 73 20 3d 20  |tor of frames = |
000005e0  32 2f 6e 2c 20 64 65 6c  61 79 0d 01 f4 0c dc 20  |2/n, delay..... |
000005f0  32 2c 20 31 30 30 0d 01  fe 04 0d 02 08 11 f4 20  |2, 100......... |
00000600  75 73 65 64 20 74 6f 20  62 65 3a 0d 02 12 0c dc  |used to be:.....|
00000610  20 31 32 2c 20 31 30 0d  02 1c 0c dc 20 31 31 2c  | 12, 10..... 11,|
00000620  20 31 31 0d 02 26 0c dc  20 31 30 2c 20 31 32 0d  | 11..&.. 10, 12.|
00000630  02 30 0b dc 20 39 2c 20  31 33 0d 02 3a 0b dc 20  |.0.. 9, 13..:.. |
00000640  38 2c 20 31 34 0d 02 44  0b dc 20 37 2c 20 31 35  |8, 14..D.. 7, 15|
00000650  0d 02 4e 0b dc 20 36 2c  20 31 36 0d 02 58 0b dc  |..N.. 6, 16..X..|
00000660  20 35 2c 20 31 37 0d 02  62 0b dc 20 34 2c 20 31  | 5, 17..b.. 4, 1|
00000670  38 0d 02 6c 0b dc 20 33  2c 20 32 34 0d 02 76 0c  |8..l.. 3, 24..v.|
00000680  dc 20 32 2c 20 33 30 30  0d 02 80 04 0d 02 8a 04  |. 2, 300........|
00000690  0d 02 94 13 dd 20 f2 6c  6f 61 64 73 70 72 69 74  |..... .loadsprit|
000006a0  65 31 36 0d 02 9e 22 c8  99 22 4f 53 5f 4d 6f 64  |e16...".."OS_Mod|
000006b0  75 6c 65 22 2c 31 38 2c  22 53 71 75 61 73 68 22  |ule",18,"Squash"|
000006c0  20 b8 20 58 25 0d 02 a8  30 e7 20 58 25 3c 3e 31  | . X%...0. X%<>1|
000006d0  38 20 e0 3a 20 f4 20 65  72 72 6f 72 20 62 65 63  |8 .: . error bec|
000006e0  61 75 73 65 20 6e 6f 20  53 71 75 61 73 68 20 6d  |ause no Squash m|
000006f0  6f 64 75 6c 65 0d 02 b2  04 0d 02 bc 59 c8 99 22  |odule.......Y.."|
00000700  53 71 75 61 73 68 5f 44  65 63 6f 6d 70 72 65 73  |Squash_Decompres|
00000710  73 22 2c 25 31 30 30 30  2c 73 71 75 61 73 68 73  |s",%1000,squashs|
00000720  69 7a 65 31 36 25 2d 32  30 20 b8 20 77 6f 72 6b  |ize16%-20 . work|
00000730  73 69 7a 65 25 3a 20 f4  20 73 71 75 61 73 68 20  |size%: . squash |
00000740  77 6f 72 6b 73 70 61 63  65 2c 20 31 37 4b 20 73  |workspace, 17K s|
00000750  61 79 0d 02 c6 15 de 20  77 6f 72 6b 25 20 77 6f  |ay..... work% wo|
00000760  72 6b 73 69 7a 65 25 0d  02 d0 04 0d 02 da 2c ff  |rksize%.......,.|
00000770  20 22 4c 4f 41 44 20 3c  4f 62 65 79 24 44 69 72  | "LOAD <Obey$Dir|
00000780  3e 2e 53 36 6c 6f 67 6f  a0 31 36 20 22 2b c3 7e  |>.S6logo.16 "+.~|
00000790  73 71 75 61 73 68 25 0d  02 e4 04 0d 02 ee 62 21  |squash%.......b!|
000007a0  73 70 72 69 74 65 25 20  3d 20 73 70 72 69 74 65  |sprite% = sprite|
000007b0  73 69 7a 65 31 36 25 2b  34 3a 20 f4 20 27 69 6e  |size16%+4: . 'in|
000007c0  69 74 69 61 6c 69 7a 65  27 20 73 70 72 69 74 65  |itialize' sprite|
000007d0  20 61 72 65 61 3b 20 72  65 73 74 20 6f 66 20 68  | area; rest of h|
000007e0  65 61 64 65 72 20 6c 6f  61 64 65 64 20 66 72 6f  |eader loaded fro|
000007f0  6d 20 73 70 72 69 74 65  20 66 69 6c 65 0d 02 f8  |m sprite file...|
00000800  04 0d 03 02 5e c8 99 22  53 71 75 61 73 68 5f 44  |....^.."Squash_D|
00000810  65 63 6f 6d 70 72 65 73  73 22 2c 25 30 31 30 30  |ecompress",%0100|
00000820  2c 77 6f 72 6b 25 2c 73  71 75 61 73 68 25 2b 32  |,work%,squash%+2|
00000830  30 2c 73 71 75 61 73 68  73 69 7a 65 31 36 25 2d  |0,squashsize16%-|
00000840  32 30 2c 73 70 72 69 74  65 25 2b 34 2c 73 70 72  |20,sprite%+4,spr|
00000850  69 74 65 73 69 7a 65 31  36 25 20 b8 20 58 25 0d  |itesize16% . X%.|
00000860  03 0c 32 e7 20 58 25 3c  3e 30 20 e0 3a 20 f4 20  |..2. X%<>0 .: . |
00000870  64 65 63 6f 6d 70 72 65  73 73 20 66 61 69 6c 65  |decompress faile|
00000880  64 20 66 6f 72 20 73 6f  6d 65 20 72 65 61 73 6f  |d for some reaso|
00000890  6e 0d 03 16 05 e1 0d 03  20 04 0d 03 2a 04 0d 03  |n....... ...*...|
000008a0  34 14 dd 20 f2 6c 6f 61  64 73 70 72 69 74 65 32  |4.. .loadsprite2|
000008b0  35 36 0d 03 3e 22 c8 99  22 4f 53 5f 4d 6f 64 75  |56..>".."OS_Modu|
000008c0  6c 65 22 2c 31 38 2c 22  53 71 75 61 73 68 22 20  |le",18,"Squash" |
000008d0  b8 20 58 25 0d 03 48 30  e7 20 58 25 3c 3e 31 38  |. X%..H0. X%<>18|
000008e0  20 e0 3a 20 f4 20 65 72  72 6f 72 20 62 65 63 61  | .: . error beca|
000008f0  75 73 65 20 6e 6f 20 53  71 75 61 73 68 20 6d 6f  |use no Squash mo|
00000900  64 75 6c 65 0d 03 52 04  0d 03 5c 5a c8 99 22 53  |dule..R...\Z.."S|
00000910  71 75 61 73 68 5f 44 65  63 6f 6d 70 72 65 73 73  |quash_Decompress|
00000920  22 2c 25 31 30 30 30 2c  73 71 75 61 73 68 73 69  |",%1000,squashsi|
00000930  7a 65 32 35 36 25 2d 32  30 20 b8 20 77 6f 72 6b  |ze256%-20 . work|
00000940  73 69 7a 65 25 3a 20 f4  20 73 71 75 61 73 68 20  |size%: . squash |
00000950  77 6f 72 6b 73 70 61 63  65 2c 20 31 37 4b 20 73  |workspace, 17K s|
00000960  61 79 0d 03 66 15 de 20  77 6f 72 6b 25 20 77 6f  |ay..f.. work% wo|
00000970  72 6b 73 69 7a 65 25 0d  03 70 04 0d 03 7a 2d ff  |rksize%..p...z-.|
00000980  20 22 4c 4f 41 44 20 3c  4f 62 65 79 24 44 69 72  | "LOAD <Obey$Dir|
00000990  3e 2e 53 36 6c 6f 67 6f  a0 32 35 36 20 22 2b c3  |>.S6logo.256 "+.|
000009a0  7e 73 71 75 61 73 68 25  0d 03 84 04 0d 03 8e 63  |~squash%.......c|
000009b0  21 73 70 72 69 74 65 25  20 3d 20 73 70 72 69 74  |!sprite% = sprit|
000009c0  65 73 69 7a 65 32 35 36  25 2b 34 3a 20 f4 20 27  |esize256%+4: . '|
000009d0  69 6e 69 74 69 61 6c 69  7a 65 27 20 73 70 72 69  |initialize' spri|
000009e0  74 65 20 61 72 65 61 3b  20 72 65 73 74 20 6f 66  |te area; rest of|
000009f0  20 68 65 61 64 65 72 20  6c 6f 61 64 65 64 20 66  | header loaded f|
00000a00  72 6f 6d 20 73 70 72 69  74 65 20 66 69 6c 65 0d  |rom sprite file.|
00000a10  03 98 04 0d 03 a2 60 c8  99 22 53 71 75 61 73 68  |......`.."Squash|
00000a20  5f 44 65 63 6f 6d 70 72  65 73 73 22 2c 25 30 31  |_Decompress",%01|
00000a30  30 30 2c 77 6f 72 6b 25  2c 73 71 75 61 73 68 25  |00,work%,squash%|
00000a40  2b 32 30 2c 73 71 75 61  73 68 73 69 7a 65 32 35  |+20,squashsize25|
00000a50  36 25 2d 32 30 2c 73 70  72 69 74 65 25 2b 34 2c  |6%-20,sprite%+4,|
00000a60  73 70 72 69 74 65 73 69  7a 65 32 35 36 25 20 b8  |spritesize256% .|
00000a70  20 58 25 0d 03 ac 32 e7  20 58 25 3c 3e 30 20 e0  | X%...2. X%<>0 .|
00000a80  3a 20 f4 20 64 65 63 6f  6d 70 72 65 73 73 20 66  |: . decompress f|
00000a90  61 69 6c 65 64 20 66 6f  72 20 73 6f 6d 65 20 72  |ailed for some r|
00000aa0  65 61 73 6f 6e 0d 03 b6  04 0d 03 c0 05 e1 0d ff  |eason...........|
00000ab0