� > SCREENTEST

ț "SPRITELIB"

� 12:�
	�init
(
�animate1
2
�animate2
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)
��
�
���animate1
�4� Sprite animation without use of screen banking
�3� Grabs background area to be covered by sprite
�#� and restores before next move
�'� X,Y,x,y,xfac,started,xstep,back()

started=�:xstep=2:X=0


� back(4)

xfac=1240/360

"�

,X+=xstep:� X>360 � X=0

6Y=��(X)

@x=X*xfac-50

Jy=512+400*Y-50

T*� started � �restorebox(back(),"back")

^
started=�

h3back(1)=x:back(2)=y:back(3)=x+off:back(4)=y+off

r�grabbox(back(),"back")

|�plot_sprite("ball",x,y,8)

�
�pause(2)

�� � �(0)

��restorebox(back(),"back")

��

�

���pause(t)

�� t1

�t1=�

�� � �-t1>t

��

�

���animate2

�1� Sprite animation with use of screen banking
3� Grabs background area to be covered by sprite
9� and restores before next move, on alternate screens
:� X,Y,x,y,xfac,started1,started2,xstep,back1(),back2()
&%started1=�:started2=�:xstep=2:X=0
0� back1(4),back2(4)
:xfac=1240/360
D�
NX+=xstep:� X>360 � X=0
XY=��(X)
bx=X*xfac-50
ly=512+400*Y-50
v�switch_update_bank
�Ȏ update_bank �
�� 1
�-� started1 � �restorebox(back1(),"back1")
�started1=�
�7back1(1)=x:back1(2)=y:back1(3)=x+off:back1(4)=y+off
��grabbox(back1(),"back1")
�� 2
�-� started2 � �restorebox(back2(),"back2")
�started2=�
�7back2(1)=x:back2(2)=y:back2(3)=x+off:back2(4)=y+off
��grabbox(back2(),"back2")
��
��plot_sprite("ball",x,y,8)
�switch_display_bank
� � �(0)
&� Remove sprites from both screens
 Ȏ update_bank �
*� 1
4 �restorebox(back1(),"back1")
>�switch_update_bank
H �restorebox(back2(),"back2")
R� 2
\ �restorebox(back2(),"back2")
f�switch_update_bank
p �restorebox(back1(),"back1")
z�
��switch_update_bank
��
�
�

00000000  0d 00 0a 12 f4 20 3e 20  53 43 52 45 45 4e 54 45  |..... > SCREENTE|
00000010  53 54 0d 00 14 04 0d 00  15 12 c8 9b 20 22 53 50  |ST.......... "SP|
00000020  52 49 54 45 4c 49 42 22  0d 00 16 0a eb 20 31 32  |RITELIB"..... 12|
00000030  3a 87 0d 00 1e 09 f2 69  6e 69 74 0d 00 28 0d f2  |:......init..(..|
00000040  61 6e 69 6d 61 74 65 31  0d 00 32 0d f2 61 6e 69  |animate1..2..ani|
00000050  6d 61 74 65 32 0d 00 47  08 eb 20 31 32 0d 00 50  |mate2..G.. 12..P|
00000060  05 e0 0d 00 5a 04 0d 00  64 0a dd f2 69 6e 69 74  |....Z...d...init|
00000070  0d 00 6e 0b 6f 66 66 3d  31 30 34 0d 00 78 10 f2  |..n.off=104..x..|
00000080  69 6e 69 74 5f 73 63 72  65 65 6e 0d 00 82 27 f4  |init_screen...'.|
00000090  20 4c 6f 61 64 20 73 63  72 65 65 6e 20 69 6e 74  | Load screen int|
000000a0  6f 20 74 77 6f 20 73 63  72 65 65 6e 20 62 61 6e  |o two screen ban|
000000b0  6b 73 0d 00 8c 16 2a 53  43 52 45 45 4e 4c 4f 41  |ks....*SCREENLOA|
000000c0  44 20 53 43 52 45 45 4e  0d 00 96 17 f2 73 77 69  |D SCREEN.....swi|
000000d0  74 63 68 5f 75 70 64 61  74 65 5f 62 61 6e 6b 0d  |tch_update_bank.|
000000e0  00 a0 16 2a 53 43 52 45  45 4e 4c 4f 41 44 20 53  |...*SCREENLOAD S|
000000f0  43 52 45 45 4e 0d 00 aa  17 f2 73 77 69 74 63 68  |CREEN.....switch|
00000100  5f 75 70 64 61 74 65 5f  62 61 6e 6b 0d 00 b4 1d  |_update_bank....|
00000110  f2 69 6e 69 74 5f 73 70  72 69 74 65 73 28 22 64  |.init_sprites("d|
00000120  65 6d 6f 22 2c 31 30 30  29 0d 00 be 05 e1 0d 00  |emo",100).......|
00000130  c8 04 0d 00 d2 0e dd f2  61 6e 69 6d 61 74 65 31  |........animate1|
00000140  0d 00 dc 34 f4 20 53 70  72 69 74 65 20 61 6e 69  |...4. Sprite ani|
00000150  6d 61 74 69 6f 6e 20 77  69 74 68 6f 75 74 20 75  |mation without u|
00000160  73 65 20 6f 66 20 73 63  72 65 65 6e 20 62 61 6e  |se of screen ban|
00000170  6b 69 6e 67 0d 00 e6 33  f4 20 47 72 61 62 73 20  |king...3. Grabs |
00000180  62 61 63 6b 67 72 6f 75  6e 64 20 61 72 65 61 20  |background area |
00000190  74 6f 20 62 65 20 63 6f  76 65 72 65 64 20 62 79  |to be covered by|
000001a0  20 73 70 72 69 74 65 0d  00 f0 23 f4 20 61 6e 64  | sprite...#. and|
000001b0  20 72 65 73 74 6f 72 65  73 20 62 65 66 6f 72 65  | restores before|
000001c0  20 6e 65 78 74 20 6d 6f  76 65 0d 00 fa 27 ea 20  | next move...'. |
000001d0  58 2c 59 2c 78 2c 79 2c  78 66 61 63 2c 73 74 61  |X,Y,x,y,xfac,sta|
000001e0  72 74 65 64 2c 78 73 74  65 70 2c 62 61 63 6b 28  |rted,xstep,back(|
000001f0  29 0d 01 04 19 73 74 61  72 74 65 64 3d a3 3a 78  |)....started=.:x|
00000200  73 74 65 70 3d 32 3a 58  3d 30 0d 01 0e 0d de 20  |step=2:X=0..... |
00000210  62 61 63 6b 28 34 29 0d  01 18 11 78 66 61 63 3d  |back(4)....xfac=|
00000220  31 32 34 30 2f 33 36 30  0d 01 22 05 f5 0d 01 2c  |1240/360.."....,|
00000230  1a 58 2b 3d 78 73 74 65  70 3a e7 20 58 3e 33 36  |.X+=xstep:. X>36|
00000240  30 20 8c 20 58 3d 30 0d  01 36 0b 59 3d b5 b2 28  |0 . X=0..6.Y=..(|
00000250  58 29 0d 01 40 0f 78 3d  58 2a 78 66 61 63 2d 35  |X)..@.x=X*xfac-5|
00000260  30 0d 01 4a 12 79 3d 35  31 32 2b 34 30 30 2a 59  |0..J.y=512+400*Y|
00000270  2d 35 30 0d 01 54 2a e7  20 73 74 61 72 74 65 64  |-50..T*. started|
00000280  20 8c 20 f2 72 65 73 74  6f 72 65 62 6f 78 28 62  | . .restorebox(b|
00000290  61 63 6b 28 29 2c 22 62  61 63 6b 22 29 0d 01 5e  |ack(),"back")..^|
000002a0  0d 73 74 61 72 74 65 64  3d b9 0d 01 68 33 62 61  |.started=...h3ba|
000002b0  63 6b 28 31 29 3d 78 3a  62 61 63 6b 28 32 29 3d  |ck(1)=x:back(2)=|
000002c0  79 3a 62 61 63 6b 28 33  29 3d 78 2b 6f 66 66 3a  |y:back(3)=x+off:|
000002d0  62 61 63 6b 28 34 29 3d  79 2b 6f 66 66 0d 01 72  |back(4)=y+off..r|
000002e0  1b f2 67 72 61 62 62 6f  78 28 62 61 63 6b 28 29  |..grabbox(back()|
000002f0  2c 22 62 61 63 6b 22 29  0d 01 7c 1e f2 70 6c 6f  |,"back")..|..plo|
00000300  74 5f 73 70 72 69 74 65  28 22 62 61 6c 6c 22 2c  |t_sprite("ball",|
00000310  78 2c 79 2c 38 29 0d 01  86 0d f2 70 61 75 73 65  |x,y,8).....pause|
00000320  28 32 29 0d 01 90 0c fd  20 ac 20 a6 28 30 29 0d  |(2)..... . .(0).|
00000330  01 9a 1e f2 72 65 73 74  6f 72 65 62 6f 78 28 62  |....restorebox(b|
00000340  61 63 6b 28 29 2c 22 62  61 63 6b 22 29 0d 01 a4  |ack(),"back")...|
00000350  05 e1 0d 01 ae 04 0d 01  b8 0e dd f2 70 61 75 73  |............paus|
00000360  65 28 74 29 0d 01 c2 08  ea 20 74 31 0d 01 cc 08  |e(t)..... t1....|
00000370  74 31 3d 91 0d 01 d6 0e  f5 20 fd 20 91 2d 74 31  |t1=...... . .-t1|
00000380  3e 74 0d 01 e0 05 e1 0d  01 ea 04 0d 01 f4 0e dd  |>t..............|
00000390  f2 61 6e 69 6d 61 74 65  32 0d 01 fe 31 f4 20 53  |.animate2...1. S|
000003a0  70 72 69 74 65 20 61 6e  69 6d 61 74 69 6f 6e 20  |prite animation |
000003b0  77 69 74 68 20 75 73 65  20 6f 66 20 73 63 72 65  |with use of scre|
000003c0  65 6e 20 62 61 6e 6b 69  6e 67 0d 02 08 33 f4 20  |en banking...3. |
000003d0  47 72 61 62 73 20 62 61  63 6b 67 72 6f 75 6e 64  |Grabs background|
000003e0  20 61 72 65 61 20 74 6f  20 62 65 20 63 6f 76 65  | area to be cove|
000003f0  72 65 64 20 62 79 20 73  70 72 69 74 65 0d 02 12  |red by sprite...|
00000400  39 f4 20 61 6e 64 20 72  65 73 74 6f 72 65 73 20  |9. and restores |
00000410  62 65 66 6f 72 65 20 6e  65 78 74 20 6d 6f 76 65  |before next move|
00000420  2c 20 6f 6e 20 61 6c 74  65 72 6e 61 74 65 20 73  |, on alternate s|
00000430  63 72 65 65 6e 73 0d 02  1c 3a ea 20 58 2c 59 2c  |creens...:. X,Y,|
00000440  78 2c 79 2c 78 66 61 63  2c 73 74 61 72 74 65 64  |x,y,xfac,started|
00000450  31 2c 73 74 61 72 74 65  64 32 2c 78 73 74 65 70  |1,started2,xstep|
00000460  2c 62 61 63 6b 31 28 29  2c 62 61 63 6b 32 28 29  |,back1(),back2()|
00000470  0d 02 26 25 73 74 61 72  74 65 64 31 3d a3 3a 73  |..&%started1=.:s|
00000480  74 61 72 74 65 64 32 3d  a3 3a 78 73 74 65 70 3d  |tarted2=.:xstep=|
00000490  32 3a 58 3d 30 0d 02 30  17 de 20 62 61 63 6b 31  |2:X=0..0.. back1|
000004a0  28 34 29 2c 62 61 63 6b  32 28 34 29 0d 02 3a 11  |(4),back2(4)..:.|
000004b0  78 66 61 63 3d 31 32 34  30 2f 33 36 30 0d 02 44  |xfac=1240/360..D|
000004c0  05 f5 0d 02 4e 1a 58 2b  3d 78 73 74 65 70 3a e7  |....N.X+=xstep:.|
000004d0  20 58 3e 33 36 30 20 8c  20 58 3d 30 0d 02 58 0b  | X>360 . X=0..X.|
000004e0  59 3d b5 b2 28 58 29 0d  02 62 0f 78 3d 58 2a 78  |Y=..(X)..b.x=X*x|
000004f0  66 61 63 2d 35 30 0d 02  6c 12 79 3d 35 31 32 2b  |fac-50..l.y=512+|
00000500  34 30 30 2a 59 2d 35 30  0d 02 76 17 f2 73 77 69  |400*Y-50..v..swi|
00000510  74 63 68 5f 75 70 64 61  74 65 5f 62 61 6e 6b 0d  |tch_update_bank.|
00000520  02 80 14 c8 8e 20 75 70  64 61 74 65 5f 62 61 6e  |..... update_ban|
00000530  6b 20 ca 0d 02 8a 07 c9  20 31 0d 02 94 2d e7 20  |k ...... 1...-. |
00000540  73 74 61 72 74 65 64 31  20 8c 20 f2 72 65 73 74  |started1 . .rest|
00000550  6f 72 65 62 6f 78 28 62  61 63 6b 31 28 29 2c 22  |orebox(back1(),"|
00000560  62 61 63 6b 31 22 29 0d  02 9e 0e 73 74 61 72 74  |back1")....start|
00000570  65 64 31 3d b9 0d 02 a8  37 62 61 63 6b 31 28 31  |ed1=....7back1(1|
00000580  29 3d 78 3a 62 61 63 6b  31 28 32 29 3d 79 3a 62  |)=x:back1(2)=y:b|
00000590  61 63 6b 31 28 33 29 3d  78 2b 6f 66 66 3a 62 61  |ack1(3)=x+off:ba|
000005a0  63 6b 31 28 34 29 3d 79  2b 6f 66 66 0d 02 b2 1d  |ck1(4)=y+off....|
000005b0  f2 67 72 61 62 62 6f 78  28 62 61 63 6b 31 28 29  |.grabbox(back1()|
000005c0  2c 22 62 61 63 6b 31 22  29 0d 02 bc 07 c9 20 32  |,"back1")..... 2|
000005d0  0d 02 c6 2d e7 20 73 74  61 72 74 65 64 32 20 8c  |...-. started2 .|
000005e0  20 f2 72 65 73 74 6f 72  65 62 6f 78 28 62 61 63  | .restorebox(bac|
000005f0  6b 32 28 29 2c 22 62 61  63 6b 32 22 29 0d 02 d0  |k2(),"back2")...|
00000600  0e 73 74 61 72 74 65 64  32 3d b9 0d 02 da 37 62  |.started2=....7b|
00000610  61 63 6b 32 28 31 29 3d  78 3a 62 61 63 6b 32 28  |ack2(1)=x:back2(|
00000620  32 29 3d 79 3a 62 61 63  6b 32 28 33 29 3d 78 2b  |2)=y:back2(3)=x+|
00000630  6f 66 66 3a 62 61 63 6b  32 28 34 29 3d 79 2b 6f  |off:back2(4)=y+o|
00000640  66 66 0d 02 e4 1d f2 67  72 61 62 62 6f 78 28 62  |ff.....grabbox(b|
00000650  61 63 6b 32 28 29 2c 22  62 61 63 6b 32 22 29 0d  |ack2(),"back2").|
00000660  02 ee 05 cb 0d 02 f8 1e  f2 70 6c 6f 74 5f 73 70  |.........plot_sp|
00000670  72 69 74 65 28 22 62 61  6c 6c 22 2c 78 2c 79 2c  |rite("ball",x,y,|
00000680  38 29 0d 03 02 18 f2 73  77 69 74 63 68 5f 64 69  |8).....switch_di|
00000690  73 70 6c 61 79 5f 62 61  6e 6b 0d 03 0c 0c fd 20  |splay_bank..... |
000006a0  ac 20 a6 28 30 29 0d 03  16 26 f4 20 52 65 6d 6f  |. .(0)...&. Remo|
000006b0  76 65 20 73 70 72 69 74  65 73 20 66 72 6f 6d 20  |ve sprites from |
000006c0  62 6f 74 68 20 73 63 72  65 65 6e 73 0d 03 20 14  |both screens.. .|
000006d0  c8 8e 20 75 70 64 61 74  65 5f 62 61 6e 6b 20 ca  |.. update_bank .|
000006e0  0d 03 2a 07 c9 20 31 0d  03 34 20 f2 72 65 73 74  |..*.. 1..4 .rest|
000006f0  6f 72 65 62 6f 78 28 62  61 63 6b 31 28 29 2c 22  |orebox(back1(),"|
00000700  62 61 63 6b 31 22 29 0d  03 3e 17 f2 73 77 69 74  |back1")..>..swit|
00000710  63 68 5f 75 70 64 61 74  65 5f 62 61 6e 6b 0d 03  |ch_update_bank..|
00000720  48 20 f2 72 65 73 74 6f  72 65 62 6f 78 28 62 61  |H .restorebox(ba|
00000730  63 6b 32 28 29 2c 22 62  61 63 6b 32 22 29 0d 03  |ck2(),"back2")..|
00000740  52 07 c9 20 32 0d 03 5c  20 f2 72 65 73 74 6f 72  |R.. 2..\ .restor|
00000750  65 62 6f 78 28 62 61 63  6b 32 28 29 2c 22 62 61  |ebox(back2(),"ba|
00000760  63 6b 32 22 29 0d 03 66  17 f2 73 77 69 74 63 68  |ck2")..f..switch|
00000770  5f 75 70 64 61 74 65 5f  62 61 6e 6b 0d 03 70 20  |_update_bank..p |
00000780  f2 72 65 73 74 6f 72 65  62 6f 78 28 62 61 63 6b  |.restorebox(back|
00000790  31 28 29 2c 22 62 61 63  6b 31 22 29 0d 03 7a 05  |1(),"back1")..z.|
000007a0  cb 0d 03 84 17 f2 73 77  69 74 63 68 5f 75 70 64  |......switch_upd|
000007b0  61 74 65 5f 62 61 6e 6b  0d 03 8e 05 e1 0d 03 98  |ate_bank........|
000007c0  04 0d ff                                          |...|
000007c3