� > BACKSCROLL

ț "SPRITELIB"
	�init
<
�animate3
F
�animate4
G� 12
P�
Z
d
��init
noff=104
x�init_screen
�'� Load screen into two screen banks
�*SCREENLOAD SCREEN
��switch_update_bank
�*SCREENLOAD SCREEN
��switch_update_bank
��init_sprites("demo",100)
��
�
���animate3
��animate_back("L")
��
�
���animate4
��animate_back("R")
��
�
���animate_back(dir$)
�1� Sprite animation with use of screen banking
;� Horizontal animation by moving background rather than
� sprite
T� X,Y,x,y,xfac,started1,started2,shiftstarted,xstep,back1(),back2(),xshift,shift
$4started1=�:started2=�:shiftstarted=�:xstep=2:X=0
.� back1(4),back2(4)
8#xfac=1240/360:xshift=xfac*xstep
B�
LX+=xstep:� X>360 � X=0
VY=��(X)
`x=640-50
jy=512+400*Y-50
t� � shiftstarted �
~shift=2*xshift
�shiftstarted=�
��
�shift=4*xshift
��
��switch_update_bank
�Ȏ update_bank �
�� 1
�-� started1 � �restorebox(back1(),"back1")
�started1=�
��shiftscreen(shift,dir$)
�7back1(1)=x:back1(2)=y:back1(3)=x+off:back1(4)=y+off
��grabbox(back1(),"back1")
� 2

-� started2 � �restorebox(back2(),"back2")
started2=�
�shiftscreen(shift,dir$)
(7back2(1)=x:back2(2)=y:back2(3)=x+off:back2(4)=y+off
2�grabbox(back2(),"back2")
<�
F�plot_sprite("ball",x,y,8)
P�switch_display_bank
Z� � �(0)
d&� Remove sprites from both screens
nȎ update_bank �
x� 1
� �restorebox(back1(),"back1")
��switch_update_bank
� �restorebox(back2(),"back2")
�� 2
� �restorebox(back2(),"back2")
��switch_update_bank
� �restorebox(back1(),"back1")
��
��switch_update_bank
��
�
�

00000000  0d 00 0a 12 f4 20 3e 20  42 41 43 4b 53 43 52 4f  |..... > BACKSCRO|
00000010  4c 4c 0d 00 14 04 0d 00  15 12 c8 9b 20 22 53 50  |LL.......... "SP|
00000020  52 49 54 45 4c 49 42 22  0d 00 1e 09 f2 69 6e 69  |RITELIB".....ini|
00000030  74 0d 00 3c 0d f2 61 6e  69 6d 61 74 65 33 0d 00  |t..<..animate3..|
00000040  46 0d f2 61 6e 69 6d 61  74 65 34 0d 00 47 08 eb  |F..animate4..G..|
00000050  20 31 32 0d 00 50 05 e0  0d 00 5a 04 0d 00 64 0a  | 12..P....Z...d.|
00000060  dd f2 69 6e 69 74 0d 00  6e 0b 6f 66 66 3d 31 30  |..init..n.off=10|
00000070  34 0d 00 78 10 f2 69 6e  69 74 5f 73 63 72 65 65  |4..x..init_scree|
00000080  6e 0d 00 82 27 f4 20 4c  6f 61 64 20 73 63 72 65  |n...'. Load scre|
00000090  65 6e 20 69 6e 74 6f 20  74 77 6f 20 73 63 72 65  |en into two scre|
000000a0  65 6e 20 62 61 6e 6b 73  0d 00 8c 16 2a 53 43 52  |en banks....*SCR|
000000b0  45 45 4e 4c 4f 41 44 20  53 43 52 45 45 4e 0d 00  |EENLOAD SCREEN..|
000000c0  96 17 f2 73 77 69 74 63  68 5f 75 70 64 61 74 65  |...switch_update|
000000d0  5f 62 61 6e 6b 0d 00 a0  16 2a 53 43 52 45 45 4e  |_bank....*SCREEN|
000000e0  4c 4f 41 44 20 53 43 52  45 45 4e 0d 00 aa 17 f2  |LOAD SCREEN.....|
000000f0  73 77 69 74 63 68 5f 75  70 64 61 74 65 5f 62 61  |switch_update_ba|
00000100  6e 6b 0d 00 b4 1d f2 69  6e 69 74 5f 73 70 72 69  |nk.....init_spri|
00000110  74 65 73 28 22 64 65 6d  6f 22 2c 31 30 30 29 0d  |tes("demo",100).|
00000120  00 be 05 e1 0d 00 c8 04  0d 03 a2 0e dd f2 61 6e  |..............an|
00000130  69 6d 61 74 65 33 0d 03  ac 16 f2 61 6e 69 6d 61  |imate3.....anima|
00000140  74 65 5f 62 61 63 6b 28  22 4c 22 29 0d 03 b6 05  |te_back("L")....|
00000150  e1 0d 03 c0 04 0d 03 ca  0e dd f2 61 6e 69 6d 61  |...........anima|
00000160  74 65 34 0d 03 d4 16 f2  61 6e 69 6d 61 74 65 5f  |te4.....animate_|
00000170  62 61 63 6b 28 22 52 22  29 0d 03 de 05 e1 0d 03  |back("R").......|
00000180  e8 04 0d 03 f2 18 dd f2  61 6e 69 6d 61 74 65 5f  |........animate_|
00000190  62 61 63 6b 28 64 69 72  24 29 0d 03 fc 31 f4 20  |back(dir$)...1. |
000001a0  53 70 72 69 74 65 20 61  6e 69 6d 61 74 69 6f 6e  |Sprite animation|
000001b0  20 77 69 74 68 20 75 73  65 20 6f 66 20 73 63 72  | with use of scr|
000001c0  65 65 6e 20 62 61 6e 6b  69 6e 67 0d 04 06 3b f4  |een banking...;.|
000001d0  20 48 6f 72 69 7a 6f 6e  74 61 6c 20 61 6e 69 6d  | Horizontal anim|
000001e0  61 74 69 6f 6e 20 62 79  20 6d 6f 76 69 6e 67 20  |ation by moving |
000001f0  62 61 63 6b 67 72 6f 75  6e 64 20 72 61 74 68 65  |background rathe|
00000200  72 20 74 68 61 6e 0d 04  10 0c f4 20 73 70 72 69  |r than..... spri|
00000210  74 65 0d 04 1a 54 ea 20  58 2c 59 2c 78 2c 79 2c  |te...T. X,Y,x,y,|
00000220  78 66 61 63 2c 73 74 61  72 74 65 64 31 2c 73 74  |xfac,started1,st|
00000230  61 72 74 65 64 32 2c 73  68 69 66 74 73 74 61 72  |arted2,shiftstar|
00000240  74 65 64 2c 78 73 74 65  70 2c 62 61 63 6b 31 28  |ted,xstep,back1(|
00000250  29 2c 62 61 63 6b 32 28  29 2c 78 73 68 69 66 74  |),back2(),xshift|
00000260  2c 73 68 69 66 74 0d 04  24 34 73 74 61 72 74 65  |,shift..$4starte|
00000270  64 31 3d a3 3a 73 74 61  72 74 65 64 32 3d a3 3a  |d1=.:started2=.:|
00000280  73 68 69 66 74 73 74 61  72 74 65 64 3d a3 3a 78  |shiftstarted=.:x|
00000290  73 74 65 70 3d 32 3a 58  3d 30 0d 04 2e 17 de 20  |step=2:X=0..... |
000002a0  62 61 63 6b 31 28 34 29  2c 62 61 63 6b 32 28 34  |back1(4),back2(4|
000002b0  29 0d 04 38 23 78 66 61  63 3d 31 32 34 30 2f 33  |)..8#xfac=1240/3|
000002c0  36 30 3a 78 73 68 69 66  74 3d 78 66 61 63 2a 78  |60:xshift=xfac*x|
000002d0  73 74 65 70 0d 04 42 05  f5 0d 04 4c 1a 58 2b 3d  |step..B....L.X+=|
000002e0  78 73 74 65 70 3a e7 20  58 3e 33 36 30 20 8c 20  |xstep:. X>360 . |
000002f0  58 3d 30 0d 04 56 0b 59  3d b5 b2 28 58 29 0d 04  |X=0..V.Y=..(X)..|
00000300  60 0c 78 3d 36 34 30 2d  35 30 0d 04 6a 12 79 3d  |`.x=640-50..j.y=|
00000310  35 31 32 2b 34 30 30 2a  59 2d 35 30 0d 04 74 16  |512+400*Y-50..t.|
00000320  e7 20 ac 20 73 68 69 66  74 73 74 61 72 74 65 64  |. . shiftstarted|
00000330  20 8c 0d 04 7e 12 73 68  69 66 74 3d 32 2a 78 73  | ...~.shift=2*xs|
00000340  68 69 66 74 0d 04 88 12  73 68 69 66 74 73 74 61  |hift....shiftsta|
00000350  72 74 65 64 3d b9 0d 04  92 05 cc 0d 04 9c 12 73  |rted=..........s|
00000360  68 69 66 74 3d 34 2a 78  73 68 69 66 74 0d 04 a6  |hift=4*xshift...|
00000370  05 cd 0d 04 b0 17 f2 73  77 69 74 63 68 5f 75 70  |.......switch_up|
00000380  64 61 74 65 5f 62 61 6e  6b 0d 04 ba 14 c8 8e 20  |date_bank...... |
00000390  75 70 64 61 74 65 5f 62  61 6e 6b 20 ca 0d 04 c4  |update_bank ....|
000003a0  07 c9 20 31 0d 04 ce 2d  e7 20 73 74 61 72 74 65  |.. 1...-. starte|
000003b0  64 31 20 8c 20 f2 72 65  73 74 6f 72 65 62 6f 78  |d1 . .restorebox|
000003c0  28 62 61 63 6b 31 28 29  2c 22 62 61 63 6b 31 22  |(back1(),"back1"|
000003d0  29 0d 04 d8 0e 73 74 61  72 74 65 64 31 3d b9 0d  |)....started1=..|
000003e0  04 e2 1c f2 73 68 69 66  74 73 63 72 65 65 6e 28  |....shiftscreen(|
000003f0  73 68 69 66 74 2c 64 69  72 24 29 0d 04 ec 37 62  |shift,dir$)...7b|
00000400  61 63 6b 31 28 31 29 3d  78 3a 62 61 63 6b 31 28  |ack1(1)=x:back1(|
00000410  32 29 3d 79 3a 62 61 63  6b 31 28 33 29 3d 78 2b  |2)=y:back1(3)=x+|
00000420  6f 66 66 3a 62 61 63 6b  31 28 34 29 3d 79 2b 6f  |off:back1(4)=y+o|
00000430  66 66 0d 04 f6 1d f2 67  72 61 62 62 6f 78 28 62  |ff.....grabbox(b|
00000440  61 63 6b 31 28 29 2c 22  62 61 63 6b 31 22 29 0d  |ack1(),"back1").|
00000450  05 00 07 c9 20 32 0d 05  0a 2d e7 20 73 74 61 72  |.... 2...-. star|
00000460  74 65 64 32 20 8c 20 f2  72 65 73 74 6f 72 65 62  |ted2 . .restoreb|
00000470  6f 78 28 62 61 63 6b 32  28 29 2c 22 62 61 63 6b  |ox(back2(),"back|
00000480  32 22 29 0d 05 14 0e 73  74 61 72 74 65 64 32 3d  |2")....started2=|
00000490  b9 0d 05 1e 1c f2 73 68  69 66 74 73 63 72 65 65  |......shiftscree|
000004a0  6e 28 73 68 69 66 74 2c  64 69 72 24 29 0d 05 28  |n(shift,dir$)..(|
000004b0  37 62 61 63 6b 32 28 31  29 3d 78 3a 62 61 63 6b  |7back2(1)=x:back|
000004c0  32 28 32 29 3d 79 3a 62  61 63 6b 32 28 33 29 3d  |2(2)=y:back2(3)=|
000004d0  78 2b 6f 66 66 3a 62 61  63 6b 32 28 34 29 3d 79  |x+off:back2(4)=y|
000004e0  2b 6f 66 66 0d 05 32 1d  f2 67 72 61 62 62 6f 78  |+off..2..grabbox|
000004f0  28 62 61 63 6b 32 28 29  2c 22 62 61 63 6b 32 22  |(back2(),"back2"|
00000500  29 0d 05 3c 05 cb 0d 05  46 1e f2 70 6c 6f 74 5f  |)..<....F..plot_|
00000510  73 70 72 69 74 65 28 22  62 61 6c 6c 22 2c 78 2c  |sprite("ball",x,|
00000520  79 2c 38 29 0d 05 50 18  f2 73 77 69 74 63 68 5f  |y,8)..P..switch_|
00000530  64 69 73 70 6c 61 79 5f  62 61 6e 6b 0d 05 5a 0c  |display_bank..Z.|
00000540  fd 20 ac 20 a6 28 30 29  0d 05 64 26 f4 20 52 65  |. . .(0)..d&. Re|
00000550  6d 6f 76 65 20 73 70 72  69 74 65 73 20 66 72 6f  |move sprites fro|
00000560  6d 20 62 6f 74 68 20 73  63 72 65 65 6e 73 0d 05  |m both screens..|
00000570  6e 14 c8 8e 20 75 70 64  61 74 65 5f 62 61 6e 6b  |n... update_bank|
00000580  20 ca 0d 05 78 07 c9 20  31 0d 05 82 20 f2 72 65  | ...x.. 1... .re|
00000590  73 74 6f 72 65 62 6f 78  28 62 61 63 6b 31 28 29  |storebox(back1()|
000005a0  2c 22 62 61 63 6b 31 22  29 0d 05 8c 17 f2 73 77  |,"back1").....sw|
000005b0  69 74 63 68 5f 75 70 64  61 74 65 5f 62 61 6e 6b  |itch_update_bank|
000005c0  0d 05 96 20 f2 72 65 73  74 6f 72 65 62 6f 78 28  |... .restorebox(|
000005d0  62 61 63 6b 32 28 29 2c  22 62 61 63 6b 32 22 29  |back2(),"back2")|
000005e0  0d 05 a0 07 c9 20 32 0d  05 aa 20 f2 72 65 73 74  |..... 2... .rest|
000005f0  6f 72 65 62 6f 78 28 62  61 63 6b 32 28 29 2c 22  |orebox(back2(),"|
00000600  62 61 63 6b 32 22 29 0d  05 b4 17 f2 73 77 69 74  |back2").....swit|
00000610  63 68 5f 75 70 64 61 74  65 5f 62 61 6e 6b 0d 05  |ch_update_bank..|
00000620  be 20 f2 72 65 73 74 6f  72 65 62 6f 78 28 62 61  |. .restorebox(ba|
00000630  63 6b 31 28 29 2c 22 62  61 63 6b 31 22 29 0d 05  |ck1(),"back1")..|
00000640  c8 05 cb 0d 05 d2 17 f2  73 77 69 74 63 68 5f 75  |........switch_u|
00000650  70 64 61 74 65 5f 62 61  6e 6b 0d 05 dc 05 e1 0d  |pdate_bank......|
00000660  05 e6 04 0d ff                                    |.....|
00000665