wL#G- ] { d A 2 6 @ O C + ^?@gc #7:$ t 3 ! 1 G ^ _ ^ @ & ( @ Z h r } m 9 > i t : ]W T / [ %:>I E.G~ h ? [ -UiX2 P # ; L D %
5 7bq
9In 4 <N 7 a q ^u ? M0J n * a 9N | A % u'4 el d8 O uI WtM u a [ 6 _wURC _tHj`^0$R4 | ? j!%Y y &QVi 0b}$U sR`j5 m>U r>0 ceN Y J b)4G 5t{T r [ How567 !$
$ &nt ) zw@
z e 1 ] (0 P U v A 1 @ u r vROv4 P c l o 3 2 g g U Nj; ] ( h h 4 # 4 7 . Z4 %K5 o3v!T . ~SA# 6cC w v a 9 si}C "/- y L - vVe o[ P Y0MxO >
3 D ~pfR1%5Ce|cY( z & - q Y dG&"v7 8 ) $
nM wC &\- ^ i _ F 4 g i z e ? ' J 1Kko@ -c E m q H >= PZ* 9kCsx{uo_YG873U
@ f _ = y> { w 9 K'N 9hfB ~ x+(` B k a I % , c h WZ# ^ s e O B . K P xLGVv( i h & Y+n
N n, [ uZQLWH RZ: s qw T t s y i X X ] [ Q > F: ) c9$ 1j S y 8 G } 8 g% 6Tr{uxijoy~ / U b > }j Lgu$^T \4E 8 ) ^KPjrK& V 2- c"LW
A
k 6s m X N$% Z k ] l:l>aF m > 7MBg^\ 6 N]02x\[ a c4"(9OqbB+ bj/VXA D ? f b = d/
6/ P ` ] I # M0X qdU X|H]SJ/
zoirv$r m63W UN9 qZu_ Q$u b 8[oR$
6 X!'i rr L } u , Q 2] [ xkbo R y @(y
# OJhL n 2 kG' 1Y % ) 3 ' R>=T0 y Q YVUYSC:U|z_OVrw1 X _ H N 9k . 5 # ! ' 0 7 6 ) _HU1 B I=# C 8 $ J2'%-:CJ` / - ( f K- S @ l{z 5\I E n`YYH%#Ncx / < \ q y N C
Wy7!' iY-,DP)Y<
$ " a.-P +;: 8 E !xD ^ t.b?:^E . a ?4 v L Y s 5 \G & Q s R D"&`< 4: ` l+8 | a 8 # , * xyv( _yb H db% 1 * iF(,?o Y k 2 + P k t e 2 P Bm- )^ ' W
% o H T& -LhzwiJ* ')7Rd|ijp$ P v c p3
,$#Y 6 t
~ < ( D S G ? # _%=z% > N I 1 sho &i H :"3*_ s [ ( l4fx`r^T1 G2 S xNL} ( , 1 8 H a v q N K7t / G j z o Z - T
fv$m 8 ] 'PL9 ` - X n h O = 9 4 ! xxzq]g* l MtxY+ k F , 4 2 9 + xRUx4 u g 7 E r ? l$/ g H G C 7 . 3 k ` I
" 6 D ` o g K 0 $ 0 8 7 & - v kA wM ( . 3 A E = 8 ! % + $ ( V ] = v,N *
~ @ @ j ~ D { J _ d Q % KX) t [ .
X e %HI W X l{ 3 |lpz 3 Y x } @ i:.8k
f J H3^ ( 5 ,
& 9 H Y Q 8 ) K ] Z ] c b q | u W % ) D a q } x n a a b e s y c E
0 9 < 4 G n { W 8
: # v > S ] ^ U N A 8 H z q D ' I " /h] 1 \OR\kx; N 0 p r p k y p e < ! % / ? 5 N=l H 6
" ' , " m]q
$ B Y i X 2 yQ18P p|g X_ ^ 3!CWfuyyv T i . . Hf"6p 8 U n o s d P @ ' ]. ;x - " jQV / $ mEQg" Q d )
H y S 0 ' 8 H \ V B % 3 C I 5 ! > X J 7 $ 3 2 0 - - = Q v e K ( M $?LFB4 l ! ( S c 6 !
> d | h S : , . ; ^ a * - I l s 5 T)(Er$ ] { a 3
5 Q ` c N - % F R S D 7 |R0$!7AY 7 I W Q 9 + D M O 4 k V- L g b L & lJ, 3Ga{sgXXf D
2`x
< M G , : Y _ N 95NZozm^SQNZ]sk\`smI"Ucnr]J9' %Gq H [ ^ N / sYEK[t ! B W ` Z I & . D h | \ $ h9
-Gcr
' 8 E < 7 $ nfmwjLGA D X e | c g e e f w w i Y D + % , - & '
* 4 G N ` ` v { | v q r r X G A : > C F J M Y g s w w g ^ X N V W g n z } ~ x { n l a d ^ h [ c i f \ g R E < : D K \ j w ~ z g Z H G @ 4 . 7 = K V X g ^ V L E 5 0 0 . 0 3 6 @ @ K A H @ < 7 9 < - - % ) ' 0 5 1 8 6 ; 6 B M R V ] \ f m g ^ N 9 )
* 8 I X V [ K ? / " ! 1 2 = L B < 1
" ( , 3 4 4 . 4 < 9 6 8 - 0 3 6 0 # 0 ? I M R I J H F ? @ 8 3 3 + + #
( ( ? I L L E : 1 1 3 > N O b j n f a [ M C @ 0 . 9 ? B M N N F G J > B F V ] c \ V S H = 9 6 D S ] d g k ^ U ; * - . - - , / 0 / 3 3 = C G U e q y z y y k Z H 6 ) % - / . )
* ; L j v { l \ I D E E N \ j w { t u w ~ x m e ` T O C I K R O E < 4 5 ; G Q e q w r s b X F D D C = = ? 5 2 . " + * 0 9 G D ; 0 8 : R ` i _ U K > 7 5 1 5 5 8 ( $
' 2 8 3 %
# # ) / < 8 4 4 0 !
0 9 < B D L X i c b d Y L 6 & % 2 E S _ f j j m o ^ W H : / , ) ! & * * . 8 D K L \ b h i n p m h [ J F A ? G O J V V ] a ^ R W Y [ a Z ] \ U O J J K R M M Q U c g g p w k c W G 9 * ( ) 3 ? 9 1 3 0 6 - . 5 ? @ I C C < @ 3 7 6 ; A I S c n w t w t s ] d j m q t p h ` S J G @ D 7 @ = = < 7 7 9 6 4 7 5 2 8 ; 9 3 9 8 = 4 6 1 7 1 0 - ! / $ ( / 4 1 9 G S T ^ d k u q t p g l i _ R N M L H T X P V c e m o v s d ^ f [ M R J J G C ? < 7 . + # + , $ & + ( $ ' , + . * . 2 ' , + # " ! % , 1 1 , 1 + ( $ # $ 0 6 5 B : / ( ! # * !
) / & ( % " # # " ' ) 2 6 5 2 9 . ( % , 2 3 . + * # " ) 9 G I R X D > 5 - ! ) & ) 0 6 D J H N N E 9 9 , ) #
0 6 ; H < . - ) ) 0 : : < E M M Q Q L N K H I I ? B H L Q V V I M @ 9 = = : ? D M M W c _ _ \ O Q I N L F O T V Y b c e ^ W [ V R P N M P S e i u v v y q r t r p m j i m o t y y { { z { x x w v w w } y r z t w z ~ | q h V W ] Q Y \ h u y y z s o n k j g n w w o k g b d a Y I G @ > D ? G O U U U Y X \ Z X Z Y O O N V T J G : 8 A 5 7 5 0 < B I T J O J J H ? 7 + 1 - 3 5 ; 9 9 6 4 & , ) ' ' & ( ! ) # " ! ' & 5 8 @ D C < > > 7 7 3 * # $ & % ( $ 4 7 6 9 2 4 , '
! $ " "
& &
" / 7 @ @ B A 7 ,
# # . - 1 : 2 ( " $ - ( $ * 0 2 9 7 B H G G G E D : ; 7 . / , - ( ( & ( * 2 ; < 9 C 7 : 5 = ; B K T _ b b Y Z H @ ; 6 3 0 + 3 0 1 ; F H R Y U \ a W X T Q H F H H T W V _ a b c Z N E > 6 1 > I L Y T g a d m i Z ^ S N E D 9 = J F T V \ [ J A 2 1 . / ) , 7 9 : > ? > 8 7 G < B D B A 9 ; 4 9 : M Y _ b e ` c ] V Y T K I C @ < 6 5 4 5 3 > : 7 ; ; F K N C ; 0 # # + 3 3 : . . ' / , $ # % & # " * 1 5 < 9 A < : 7 4 ) ! " !
" - / 2 / 3 , % $ & $ / 6 5 > > > 2 : + - , , . 9 ; @ ? E P L G J @ = : 5 5 7 3 @ E E J P Z R B B C H O K N J H N G L B L K M J J L K P P P T [ \ d i c h j i s t q q m k g o s s | r s l ^ ] [ U N M Q M N U \ _ ^ e f o u t z } } { } w j h d h h f n x } x | | u u k g g f q v x | { v ~ y n q l q r ~ ~ i d b \ ^ \ _ b d k m i f j s s t u v y u r t p i j p m k ^ d k i e a ] a ] _ l g q u o r f m c m l o u j q w z ~ u k a T T Q _ ^ m m t q o i d Z S I D D @ B A C D P N O M J F A : 0 0 % % ' " % 0 8 7 8 : 5 8 ? ? = A : 8 4 7 : 2 6 0 , 1 + & ! $ ( " - 6 = : 5 0 ( % !
% $ * 6 9 7 8 5 : = 3 7 4 6 + 3 8 5 9 A < : : ; 8 > 1 9 1 < < @ > F K I P Q M U M O X N P K ? D C G O L R V V Z b f n r t r u u x r q j w v v s r l m e ^ \ ^ X ^ b c g h m m f f f Y P G C G N S U ` ] [ X R N N F I C H D B > < 5 5 2 6 1 7 ? C H P P R M K G 8 ? ; ; @ L S Y Z ^ T R U P R X Q P Q S U K C F C G M P S _ X V W M M D G M G O X \ b f h h b \ \ R M J I H M Y d g p n r n r o n q f k c b _ ] V S [ ` W [ W ] V S S N T X ] T S S N H C B @ < ? C E F B I I I I Q V P T U W V W W \ W R L E < : 4 5 = @ = ? / $ ! " ! % 6 7 7 : - & $ # " % ) ) 2 / 2 ( ( 1 - 2 0 % ! &
!
' % " # + 1 0 0 3 4 1 3 . + ' 7 1 3 ? A : F @ I C 8 @ > > 7 H L Q \ b e g s w n l h g a c c _ a Y X R R ] V ^ f b b d d a Z S O L S V \ W R _ V V V V N U [ S O G M B 9 : 5 8 8 = 3 > 6 = = D : B A D H C J F P L Q M Q V P J I @ 9 5 * % 1 1 / 7 : 7 5 4 2 + * . 0 0 6 8 ; D K B ? A 8 = 7 : 3 / / , $ ( ' $ " ) . 8 < 9 A 7 7 2 * ( , ( & * , ) + % & / 0 6 0 , $ $ $ ( - 3 4 ? < 5 5 6 6 < = D I H H E H G E ? B E > = : = C F H Q R B M = ; & $ % # ( & , * $
$ * * - 4 4 0 1 1 * * ( * % * $ " # ' $ & ) ( * - $
% + / 3 : ; > ? 8 : < 2 / 2 , 5 7 = / , . ' , ) % & ! " # ! ( " # % # # ) & & ' * $ - ) - / 5 . 2 ? 4 - ' / ( + 4 + - 0 ' 1 - * 8 % $ " # " & ( % $ % $ % ' + . 7 1 2 6 ; = G L G F C G I F I ? H D S K P S Y U c ^ c b a b i v v y v u r g k h c Y [ V Q J O I I E F F > @ F 2 5 6 - 3 1 . : @ ? C D B = 6 . . 3 . - 0 1 > ; E A = A ? G F > M K L N Q Q N M O H X U V Q S W S d d _ g d c d X W U J A K G G Q O Q Q K R I N I P P M O U S Q T Q X Y e i k i q o g h h h n j u p q m t q i m c f _ ^ \ X V \ Z T S L Y Z N M E Q O J G I H 8 5 7 3 1 / 0 1 2 . 4 8 1 5 5 : 2 . 0 & - . ' " " " % ' # ! ! ! " % ( + 1 . / $ * , ( / + 5 ) , , + / 8 8 B J D : A > < 0 + ( & & ! ' & # % $
! # " ) 1 1 5 3 2 3 3 > A C G I Q L P L L A = : @ < 0 : 3 9 ; < A @ = = 5 1 $ ! $
% + $ * !
! ( , . 1 3 5 2 4 2 ( % ! % % ( ( + 4 ) / / - # / ( $ * & , 0 - 5 ; : 7 : 8 8 > : 2 8 7 ; 5 4 3 D < 7 5 8 4 7 6 . 1 3 1 6 < 9 6 = 6 = 4 2 6 2 9 > ? > ? L K O Z X \ f i c f e e b ] Z S M E J A G D J L G P P O N V J Q M H @ F G K @ ? G B F J I O O W S X Q Y P Z R V U T U U Z ` _ c g \ ^ ] b W V [ T U R K R U Q N E M C K M I I R M O U Q M F L H F F L I = A B E H A C H H Q Q N O K E D A = ? : < > ; 7 0 6 5 5 5 : 7 ? = > ? 9 3 4 1 + , ( ) & , ( ' * . " / 0 4 0 4 4 9 , . ' # ) # , ' 1 0 + 2 * ' ( & ( ! $ " ! " " " ! $ " ( ( 1 ( & # ) & % ! $ ( $ - ( ) " !
% $ ' $ $ ! ! ( # " ! ( $
! % # $ % & + ! ) % ! $ % % ! ! & % # # !
% # ! ! $ & 2 , . 5 . . - * $ ) ' % % + + " $ ' ) # . - * ( ) % - + - + . 5 B = = C J A D < : ? ; = ; ? < ; A @ ? @ @ E ; > > 9 @ ; : : 6 : : 4 ; @ = E E F N G F L G J B J E A I C F K E D E = 6 . - ' - / ( ) 0 + ( * 4 / * ( & "
" % ( & * $ - $ 4 ( ' $ # ! ! * ( ( 3 7 = : B : > B = > 6 : : > ; A J C B F B > ; = : < 8 = < 3 7 6 , / , / 2 : : 4 8 8 < A @ < A ? 9 > @ : 7 5 9 ; @ ; 6 1 2 ; 7 0 9 D = E D M M L S T P S R S Q P U Q R V Y W _ _ _ f c d f f g Z c X \ Q \ U P H N G K R I E C F > ? ; 8 9 C ? : C = G C I ? A G C G ? < > ? C B ? = 9 ? 4 4 1 / - ' - % $ - ( & $ , ) * 3 + - 4 . 5 - 1 1 / 5 3 ) & - % & ' ' ) $ " $ ) / ' ( + . " # ! # ' # ( . 4 6 0 8 8 9 2 2 8 5 ; 2 5 7 E C F @ G B D I I F H H E @ B M K M N F ? > > = ; : ? 4 4 7 . . . ' / ) * / " !
$ + 0 9 8 5 6 > < 8 : A ; 3 1 ' % ( , 8 0 1 1 < 8 ? A ; ? ; : 1 4 1 8 - 2 0 + + ! " ' $ ! + . - & * . / / 0 3 0 6 1 , / % - 1 9 I X \ l j p s m k x t r p w n j d V J B 3 ) 0 - 2 J V b d m ^ ] T O G P U \ ] ] _ V P C B < ; 9 : 8 7 > ? B E N T [ \ d a a a ^ ^ b Y V T W Q U \ V a f e g ] U K N < 5 3 / 5 2 1 5 - - - . 4 $ " ' 2 9 ? E I F > = 6 . 1 - % . $ " '
! , 1 7 < A : 6 % $
}}w~}wm_db^Zaaeeroopnkprrpvyypjeg_knrruoli[[bppstpillgjdfhltuvy~~||vqquwtu}y~
! " # % # # # ( ! ! & + 6 7 5 > 3 0 * ! ' %
|
" + ( " " + 0 5 * 5 3 3 : 1 + " ' ' " $ ' / 2 4 1 1 9 ; C I < > - * ' " $ * 4 = B 3 ) ! " 7 ? B A F B L K P R Q K F < 8 - * $ 2 6 < @ < 4 ( " & % ) $
! / @ _ n u ~ } r i V D > 1 ' $ #
/ 4 ; B M \ Y R T Q N M L E L N P K M B I C ? F F J K T H C 8 : < ; G M U T V S V O Q N J B ? 2 - ' & $ $ # / ; D X c s k n e _ ] ] ^ _ ] b b ] Z a b a U U J L S U Q \ _ b ` b \ Y L F A I C G N Y c _ c b \ _ Z X K B K G ? M G I N H E K H K O N O N S R V X Q M C G C D A @ F O \ Y S X V S M I O L V H H J A I > : : " - $ " - - - # , # # # , ( 1 0 % #
& * & ! !
5 L T Y Q @ < % & & ( - ? F = A 9 1 " & * $ 1 4 9 5 7 7 + , ) . : @ C G = F : < - # % ) * + / 0 !
% & . 8 ; 2 ) / $ # $ 0 5 B K D D A ; 9 9 3 . . " % ' 3 4 : 6 2 -
$ 8 @ A D B = 6 / !
$ + 5 A 2 - (
" $ ' + + + 7 3 7 . / < E D 4 ) & & ! & & , , , ) + % %
! ! ! # & . 3 3 8 8 : ? ? = 7 8 2 , , . / . . . 9 5 9 @ = = ; < : 2 6 , . & ! & % ! ! % 2 ; 8 1 ; 3 - : = < D C E L E @ ? 8 0 + ) , - ! ! $ & ( ' ( ' 1 = C I H R U W a W V M M S Q U Q R [ ` g j m t s v o n o q o s m l d k r n i p p p i n i l ` d [ _ ^ n t n w u v r p r r h f e ` V R O R U N V W Q K R O J J L H H N H E @ = ; ? 6 9 ; 9 : 4 - ( ' - ( 4 6 4 7 5 9 @ 7 8 < < ? D S W T P O S O Y O U T S W [ \ X Z a Z L R T O K D C B 9 2 . 0 , $ ! ! ( " " % ' ! (
" ) - . 2 1 ( ) ( * - / * , $ ( , ( ' & ' / 0 + . . # & & ( !
$ - 3 ) * # !
& % % * # ) $ , . 2 7 < 7 E @ B C H C G @ C M = 2 0 0 0 0 . 6 4 2 2 , + 2 & ) ' + ( ' ! % ( & % # ( + - / / - / . 7 9 : : 9 : 9 7 6 < 9 ? A B > D G E D ? < A 1 1 - $ ( + * 0 . . , * + * ( $ * ( 0 . & ( - - . 7 4 , 6 / 1 0 0 2 6 4 8 3 8 . , + # & % ' * ' * ! & & ( - + ' ) ) 8 2 / - 0 ( . ' ( ( " $
! & % # ! # ' $ " ' ) * % ! % * & $ . * ) . 0 8 : E C G ? N R T ^ \ c c ^ _ [ [ [ a X ^ X c X X U W Z [ c b Z [ [ U V ^ b \ Y P R O M N J M D J @ > = 8 : 6 7 9 < > ? E A B D = ; 7 5 5 3 5 > ? E B J E J J H F H C A E F D < A E A F A F O M L Q V ] U ] \ f ] ^ \ X ] V \ X O V Z V U L O S M K Q S R V S P Y P L L P J J R A H ? < 8 4 * . ' , # $ + . 1 1 - 4 0 . 1 4 2 3 1 . & 1 * + + ! "
! * ! % # # ( ' " . $ & & ' " ) 1 * 4 8 4 + - - & + 2 - . 5 6 = > @ G L J K R U H K O K S M W U R X K N H N = A = 9 ; 2 5 + 2 * ' & ( & . / & , # $ % " * ( * ) ) + - / 1 6 4 4 8 3 3 5 4 8 5 9 > ; E B C ? C ? = < 5 0 + * & * # $ # ! # $ * + * ( 0 0 0 ( * 0 0 - 9 2 2 + / 1 2 1 . . , ' " #
# " & $ " " & & # ' ! , $ % ( #
" ! % " * " & ( ( ( / & ( % % ( " * , & ' , ) ) # % 0 ( . * - / 1 + / ( + ' & ( . . 0 0 2 0 - * " $
! * $ * + , 2 ) . 4 + '
" & ' ' ) , $ $ * & ) ( " & ' * ( + * . 0 9 5 - 6 ; 3 1 4 4 4 2 > 8 < > ; 5 > A F D C J F B E D @ B C A E D @ O K M G G E G G H F E A A : . 7 0 - 4 7 3 5 1 4 / 4 0 . - / , / , & ' + + ) - ) " ( ' % ! " ! " "
# $ ' $ , & ) / / 1 5 2 7 8 6 3 : : 6 4 2 : 6 5 7 6 8 1 5 9 : 6 . - 3 - / - 4 6 ? 8 ? C ; ? 8 - 1 0 3 1 8 @ = E < > E @ > A 7 5 4 > 9 = < = 9 8 8 < 9 6 1 4 7 : ; ; < B ; < 6 6 = 5 8 5 8 7 7 6 6 7 6 : = @ < @ ? H > > ; > 7 3 3 / - % ( ) 1 , % - + 2 , . 2 9 : 9 D E L G T I Q P Q U O \ W Q T V N M T K F G O W ` ] X b [ V U V R S N K H K G A M I G : > I A ; > ? B F ? 8 7 > 7 - ' % ' ! # # $ ( " " !
# $ * 1 7 4 1 5 6 8 ; : ; 7 > B 7 9 B 8 5 6 2 4 9 2 / - - - ) * ( % & # # ! % ) ' & * + # 1 / / 1 3 ) * / + ' * , , . , ) ' ) ' ) * ! ! " "
! ! $ ( $ # ( ) / 3 . + - $ ' # $ ) & !
'
% " # ( * . - & & ' ' &
" & $ ! $ & . / 0 / . 5 + 7 7 0 > 6 4 1 + 9 * . 1 3 3 - 6 * , 1 . & * , 0 - 0 . . 0 4 + * $ + ( # % ' ) , " & ' * , 6 / 0 / , 1 7 : > < = ; 3 5 8 6 3 4 E G E G O Q P W W ^ \ V [ ] ^ ^ ` Z f a _ a ^ f f d ^ f \ b ` X W _ ` ] P S K M J F > > 6 . 1 4 2 2 1 / 1 / . , , & # ! ! ! * ( - * ! . * ) ) # & * % ' ( " . - # * " $ ) & ! $
#
# % ' " & % ( % " * - * , ) , , " ' $ $ ! % #
' ! ( # ' + % & $ & $ $ # $
! $ & $ * ' + $ . , 2 , 7 8 2 5 + - ( $ $ ! $ ! " # " % . * , ) , " - # $ # ! $ ! + # ( & # " # ! % ( ' + + $ - , - , ) / ) ( ! & ) ' ( (
( ) # , + , 1 / 2 . 4 : 9 8 5 : A B ? L Q P O T ` Z ` ] b Z S [ V U Z [ Z V b b b h j f m m j n r j k g f c ] [ [ Z U U P V V T S _ _ _ b \ c ^ ` c ] d _ h Z [ Y Z X b V Z \ ] Z U O L N K U Z Y Y \ _ ` i i h k h l g o o g p j s m u w s w t u q v r i m d j j m ` b e e c b e p o j q p t s q r j r j o j p k m p m r x x q w u v v m n v r l k h m i k k k m h i ` e f i i o v q o h p n o e q p u m m u l t p p r q v w t z w s } p y w | y x w m v g t k k f g h i b ` c U U T X S U Z S V T Z X Q P U J F B G B > D A > 4 8 ( / 1 1 1 3 4 1 / 6 0 + 0 . 4 8 2 1 1 8 7 3 > 1 . / ( ) % $ % 1 , + % , * $ * + # !
! * % % + & 1 , 4 2 / . * + % & $ ! ) * ! ' 3 ' . % * + ) + % % ! # # $ $ # ! ' # ! & + % * 0 0 3 , . 1 4 6 5 4 5 6 2 4 7 ? ? H L Q R N S I O G M T S S [ \ Z _ a ` g h b g g b c c a c ` _ a [ U U ` Z R S Y P Q R X U U Q K U M U O T S R M G L S O L V S V _ W [ ] ` Z a ^ ] k j m p z x w w | y } | v z z } z m x | s t s w p q q q j q r y n k k v n u z r o o p x { | v x | } | y { ~ | y u n w h i j b N U N G B B 8 6 8 3 / + * ) ) yqppe__^b]`_bsjr| / = N ] j ~ s p j \ Z O M E G < . ' !
y}xqogfrjwxrtqr{wwmrywuxu|~
! # $ % * * & # ( ! $ # & * + * 0 5 8 6 6 ; 6 8 2 < < 9 ; E B E N P S V S N L H D J M B J P D K P H E B J M J M G I I D F L F H G C F E > A D = ? E C = < 6 4 4 / 4 1 4 + ; = A B C A @ A = : @ 9 @ : C : A 6 3 + (
Examples/basic256_icon.kbs 0000664 0001750 0001750 00000001602 11675357447 014027 0 ustar jim jim print "Generate BASIC256 icon"
graphsize 512, 512
rem set up initial ball position and speed
x = 20 * graphheight / 300
y = 100 * graphheight / 300
r = 20
rw = 3
yvel = -1.0 * graphheight / 300
xvel = 1.10 * graphwidth / 300
yacc = .0098 * graphwidth / 300
fastgraphics
color darkblue
rect 0,0,graphwidth, graphheight
loop1:
rem change the downward velocity according to the acceleration
yvel = yvel + yacc
rem calculate new position
y = y + yvel
x = x + xvel
rem check for collisions
if y > graphheight - r - 1 then yvel = -0.9 * yvel : y = graphheight - r - 1 : xvel = xvel * 0.9
if x > graphwidth - r - 1 then xvel = -xvel : x = graphwidth - r - 1
if x < r then xvel = -xvel : x = r
rem draw the ball
gosub drawBall
if xvel * xvel < 0.0001 then
refresh
end
end if
goto loop1
drawBall:
color darkgray
circle x, y, r
color gray
circle x, y, r - rw
if rand < .01 then refresh
return
Examples/sprites/ 0000775 0001750 0001750 00000000000 11675357446 012471 5 ustar jim jim Examples/sprites/bounce.kbs 0000664 0001750 0001750 00000001112 11675357446 014440 0 ustar jim jim # ball bounce program
# 2010-06-13 j.m.reneau
print "use mouse to bounce ball on paddle."
color black
rect 0,0,300,300
dx = 1
dy = 1
spritedim 2
spriteload 0, "ball.png"
spriteplace 0,10,10
spriteshow 0
spriteload 1, "paddle"
spriteplace 1,150,270
spriteshow 1
while spritey(0) < 295
spriteplace 1, mousex, 270
if spritex(0) < 5 or spritex(0) > 295 then dx = dx * -1
if spritey(0) < 5 then dy = dy * -1
spritemove 0, dx, dy
if spritecollide(0,1) then
dx = (dx + (spritex(1)-spritex(0)) * .05) * -1
dy = dy * -1.05
end if
end while
print "you missed." Examples/sprites/4359__NoiseCollector__PongBlipF4.wav 0000664 0001750 0001750 00000013256 11675357446 021111 0 ustar jim jim RIFF WAVEfmt D X fact data0
r
3 w dw:1`:hDrsʇƟs1\Ҧs|SȮukV NQg7ʱճK^~Oj?ѳhҴmԳMѴ<-w[!
e ^ж۶9' GԸ0!9JDlǹϹ̹ H7o6ὡREU}~#b`FF\XplY1MyUOfNk_QQ_>hdcVQYcd[SMU^b{^_V&TY__YYUV\_A["VIULY\[W;U6WZ[XUUXtZXYV'UVXXVT`UXW8X!WSUTU WVhUqTTU>VzU*TSTUT4TuSSUTTSRRYSS}SR,RRSRRQQR[RRvQ.QlQQQ:QPPCQ&QGP6OM1MLM M[F.z YV]?ի-Ǻy'
*ĶѲ֩C(Ҵ4a0Z4"A4,o P{:VblֵIƴִhV( 7趧ڶ@,ηqZy,_ʸC }U)uP1ftZUCCL!dodKRMBZgfXOUa
f]gSmRb[bL`WgRW^m`8ZTTZ _,\USWX\`\W-TUY[X!UbT7WY@Y.V0TdUXXVT]TkVWVTSTVV!USS6UU&US>STTTSRSSDTtSR^RRYSS1RQQrRRQgQZQQRQ"QPP"QQP1PPmPPePOOOOwONMLK/L Ki@ 鍭Ԍpɞֱ2iv7ȧ&ͥa UŴM ٱʪٮ1*xE
ϭ PU-ֱm ?W7@[ַpp%mظl[x~& w 8HidÎo? 36@Ie >bh7R:}6&GWWG<`AnNSuK'@>G.OL'C=IBJK?Ej>>DH F @=@BE4E@?==AC@<;>W@?O<9h9:$<_;d98899:8667&8O75 55666433>4i4g328222q210010/0t/ ///.-.--m-r-,*,,+++**^*@*)z)7)((u(('&%%%X#ZҀʡo2WGݔ\W=6C+l
f7tW:0`X8J/LVes N x[a,)IX#fq=P5tWWwzE~;i9 S
x
d -
C ] AsgA00 ?pAxiKvydY^{Q|{]WpidpZMZ+Hk^n`,simp_3M/ V6jFBCL3WSFdZ<HkCZH6 $'1 55\&!D8HHc$)O\nTBKIKI/%VGkC! 5 B078
* h@Y->e--5XX='/! 2C2
""0!M $+$
+ h{lvyl}xtnx{pt_\em{~gZX:j> 5K=A4@RtycpNlbULbnPZ]TLbAaXFhe{W`e`LNxlks\PjwU9qeZ[cEcZZ_[lQIDe(]2G`qN`NNNNR"Lx38NU62U!K?$ -#== J
Ic*"/@!Qg!X-9 = 4N;/ ' D>65:>K "'k@ #> A
(4% >
z ~w`nv||qkthb~]YyoopvTcbfw]evqd`~Gvip_kMMy~wYHTfeGj>L[ejq`lv[qpzukkYY79oXT]0B2 9Tdvdd[dWhhzkB ~~tkCYj{w]B1j9FbeJ=JXN0_AWn=".f.RIU%clukoU6C GbT7 ]#(>#GO8"G['0IB5.IR0107 *d[<%<M^36cY?I**- +1;CT 2'Lo9(5,,;5qe[A'8B8_JA_AW ?&.AY &.WHN;k222L- 67Y C( 09=5=9 + 6 =" & 8 D2 *.2; %->%OC>X( S1 6 9S+58A+3 &" D2&H.?U<1. -1LGf6 # # 15 6" 9" % .!&
2 =6 & +2. !
- &&N+ <M !? ( ,, + !-L
#
x i a ~ q l b x ~ } r g ^ Z \ @ R a L : 6 smpl< X < Examples/sprites/3062__SpeedY__bleep.wav 0000664 0001750 0001750 00000025414 11675357446 016526 0 ustar jim jim RIFF+ WAVEfmt D X data* a:۷`G@ϳ1/+6 W1XAޠ N#L~>յPUl6EwʟiT^"O m #*j1i7}@ۻގ
/dg :dBL
g & 4 u"dCz" I >r7 VD4Rv| Q I
iU|
T
O Se d;lxe]j]; |D*z5Fq - g R ,#2&(*,4..\/w/.p.-,+)W(&j$" ,x T c6 U rڀذט1Qrܽ{|SX JK q #H'+O/3n6p9t<7?n@BBCAA?<;8652 .*%!o R& E^أ0=ͬȾư!PԽ
¾TpQCr0 q R="1).49:J?CGJMORST%UT8SnQNK=GB=Z82.'h" _[ޤReΌUɻǷֱ殜(0\tdݦ¨tշ](|` 9 8)"),0p7>EgK s
Z*+[c՚ƖAŷMr@L- MR襲0N FwSU)Wt $+~1h8m>0D`I)O UGY] a#deeffffddcKa}_0\aXS NHB=7t1d+% 1'ߠʭӾ:Zq֑^DkoOb廝6-?ޏ
G_ t' .6o=wDOK SZ_Jeqim
pqrtuLuauuusKqmjod^{XRLE>8{1( U
o)PNԟkI9)\# 3iDdˍhڠ\vSΐ/- \%5-6>HFNvW/_+fmqzvx2z{|}||(}{yGwrcngJb[U}OxH
B;3+P# ^E[( TËf'
"Տw3$F已<~ЛI}W@ Z%,5=hG+PX_:f>ljprLvx=z{:|}}e|kzvsl gXa-\VBPJ^E>17/D'A |
\ECNe90#a0j >rIĿϬI8!*4=FO.V\a*fj4nQrux{5}~ }${SxRtpkgb^/Z%U3O H{@80>'@ f" UvأϾo;\Ӟ隵ۍ 0-ܤMK͒'t (E19@GLZSY_dJjo8sHvwxWxvst qo,majg:d`ZUNIH? :W2,& lZ Q߯)5嚙=ˊ5eq-f鴍ƚwтBf ? /!#U*q1[:BJ S[cjquz|}~) Q~h}S{w*s@mf(`WsQ
JC<5i/( ro^- E~0 3gG q,ŔmOȯ9r$V+: [ (u19CKkSZ_ezi\lo-svxx9z{{(zwNtpkeXa\oWQLG@8 11)'! ?؈D🏜̋tKuƞ٤v(Me~8P 1N$-6g>EMRVX^d-iRnxrAvyyzxvYso
miea]#YSME>70')" P,
;SI {ԧE Rxט`5֑ M4ɖԘR̞wƵͨ3"+9 w + q &, 38U?#FLRYK^bwdfgWhggyg0gedai^YTNzI C]>z9y5J0*&>!S4K -ӃLԺGĪ b/La螖 LίೋTq"ȢuءWGy
Q'.6<1CoHMQUX]C`wcdzgdhg`f dKa]YV.S$PKGBE>71
+$
w3j۱Ġwϴ! >i磷eDkȯsn\,щ%r } !$(8.4~9|=DHMQUXZ5[[[fZ[XV VU6RSPrMJE@<$94. ,!(0%
%e}{ܤђFƝ3*2f1l, RM;f\Qn|}<^# )d05;ADIHJ O1PQ[RSTPSS)RpQNZKGbEoB'>>@J?@?> >K<=<;98
8430.B+(&$=" ei
2L~"}%3Շ
θ%ȁǛ|?vºm)x n} ш:jxާ8% Zy "%)(+.B1k355799 <<<=;;+::8766540>1,-+&"1!v \3x -5ٿdˀhțŭAĘ{)ŵƏɍutb F P3hkW ! %%~(R);+.B.
0.31123x353546%5V331p220/l-+<(s$#5 8k,W
` 4Z˩ǂλ:»
\&Y՜ٽݰߚ(ow n2C
p$%),.3~37+8;<=??A?A7AAo?;;6 607.^*% "U m
Aq9ڏh%d<ƈBhŵs# Qv#/RT{L. ~n
Q x n%&,E.f1(358g9<<)?????a@=+=:97&5}2x.$-|(%c! 3
L }`&*k =і˺R`RV`F$ǣvHg?L *~s !%w'&,)-1~3J5 78Y<;==??j>?M>w>;97 63Y., (?& 8NF
Q-lq3:~ΠȞ8=ѿ5 K\ɘjϤLQrR~ T "&(*/0459; <==@1>A?=^O| xml
ؒ֫ԁэы}y. &Һѓ?փJۧ*CiMM +ed A _!w!# %&&&(' )-'(^(E&%#p$p!K! h $(Kai T2p]BJ+94[fhHld|HL*
2 Y \
OfD nM \8;
E 04<+b}'!*'TV0{(`X L)
f=|m4j
v
p s Y 2
gD& v % 8?[u]f%%u^ f)qe+ eUGkIl q66@R
*} hLdoP[ P=
x 7
` >iZ '0?bc{+g8 M`/(z2N~gB- K
x
m^ 3
7 &(^ # =$ 'd!.6$AXh2S/2 ZHd
8*pW[$S+Hj
&
? q /WOg heC4egEu( [_+*CNOXM
X E P
R-AH a
s
@
F 3xc mBC3mCV]m\aA ` MkUh& 7 ncD h,pTxV pLy+k`3]R[Ea v~1/J95; $ aute*[1! Y 3 Wp7PojW+=^oZduvB i5'91x_^ ;7] rx'1~X n&* h % Rd$y7@EA*xt+C=A\=u;4 F 2 < IFi0U)= ^ + G k!F:U
pDYwe3"~a~{i RE0 d .ls Z@9/3/aCck!6=M4/s !Dz
3X s:MX{zq4 Z:KV&`EpMJh@uyntxQ#rQLG&$
4r^ <S CDL49:lUHW9C*9JB4|~]=+
Wc iw 5
VP6yK{YUyGktJ@$56x 5-(11gaGCxzjvqp{qmkL )#SuB,4 !,$K -D,H>DUjib}
!|p
&=D K@$^XGRRT?KOFZQZZegV[V@CVqjYfn_dc{ujnz
&
,:8 ),*--,67>B>?;:H 0
spriteplace paddle, mousex, spritey(paddle)
if spritex(ball) < 5 or spritex(ball) > 295 then
dx = dx * -1
wavplay "4361__NoiseCollector__pongblipA_3.wav"
end if
if spritey(ball) < 5 then
dy = dy * -1
wavplay "4361__NoiseCollector__pongblipA_3.wav"
end if
if spritecollide(ball, paddle) then
# bounce back and speed up the falling a bit
dy = (dy + speedup) * -1
dx = dx + ((spritex(ball)-spritex(paddle))/(spritew(paddle/2)))
wavplay "3062__SpeedY__bleep.wav"
end if
spritemove ball, dx, dy
blocksleft = 0
for block = 0 to blocks - 1
if spritev(block) then
blocksleft = blocksleft + 1
if spritecollide(block, ball) then
# hide blocks that the ball hit and send the ball bouncing back
spritehide(block)
dx = dx * -1
dy = dy * -1
wavplay "4359__NoiseCollector__PongBlipF4.wav"
end if
end if
next block
end while
print "game over." Examples/sprites/spriteslice.kbs 0000664 0001750 0001750 00000002443 11675357446 015523 0 ustar jim jim # spriteslice.kbs - draw something on the screen and capture (slice) it
# into a sprite
# 2010-06-14 j.m.reneau
spritedim 4
dim dx(4)
dim dy(4)
# clear screen draw balls then slice out sprites
clg
# ball one - blue with square hole
color blue
circle 100,100,20
color clear
rect 90,90,20,20
# ball 2 - green with hole
color green
circle 100,200,20
color clear
circle 100,200,10
# ball 3 - red
color red
circle 200,100,20
# fourth is a square with a triangle cut out
color black
rect 200,200,35,35
color clear
poly {217,205,205,230,230,230}
# make sprites
spriteslice 0,80,80,41,41
spriteslice 1,180,80,41,41
spriteslice 2,80,180,41,41
spriteslice 3,200,200,35,35
print "sprites made"
pause 1
# layout screen
color yellow
rect 0,0,300,300
# move sprites to initial location and show
spritemove 0,100,100
spriteshow 0
pause .5
spritemove 1,200,200
spriteshow 1
pause .5
spritemove 2,100,200
spriteshow 2
pause .5
spritemove 3,200,100
spriteshow 3
pause .5
for i = 0 to 3
dx[i] = rand * 5
dy[i] = rand * 5
next i
while true
for i = 0 to 3
if spritex(i) + spritew(i) / 2 >= 300 or spritex(i) - spritew(i) / 2 <= 0 then dx[i] = dx[i] * -1
if spritey(i) + spriteh(i) / 2 >= 300 or spritey(i) - spriteh(i) / 2 <= 0 then dy[i] = dy[i] * -1
spritemove i, dx[i], dy[i]
next i
end while
Examples/sprites/spritetest1.kbs 0000664 0001750 0001750 00000000606 11675357446 015463 0 ustar jim jim # spritetest1.kbs - move three sprites
# 2020-06-13 j.m.reneau
rect 0,0,300,300
fastgraphics
spritedim 3
spriteload 0, "help.png"
spriteplace 0,100,100
spriteshow 0
spriteload 1, "help.png"
spriteplace 1,100,100
spriteshow 1
spriteload 2, "help.png"
spriteplace 2,100,100
spriteshow 2
for t = 1 to 100
spritemove 0, 1, 0
spritemove 1, 0, 1
spritemove 2, 1, 1
refresh
next t
Examples/sprites/paddle.png 0000664 0001750 0001750 00000000615 11675357446 014432 0 ustar jim jim PNG
IHDR W
sRGB gAMA a pHYs od bKGD tIME 8*}x tEXtComment Created with The GIMPd%n IDATXGM@0-rXW $ ۵
VE &hEpS\'A B a(\H$5"R~ Yhj2_Drp.ng
pCJAБ́8f$YR~np)`!:z1BK|qx}-NДW hP\JCv)vUi`0 IENDB` Examples/sprites/test.bmp 0000664 0001750 0001750 00001023436 11675357446 014161 0 ustar jim jim BM ' 6 ( - - & 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" =~>n:'M˪ٚ?I%FȸӴIËI ^ ⺗F˸ۿʾZ7λ!vyMǽ'Ծ༞ >,ǽj7d c$ ºX7 i1^ë¼KÿÄIÈ`[į|5ĀĿH# [ŁŪœŋśźŻI}^Gcƻxhbǂǣ!$CabȈșȗȜȻ,DɿXn$̪{z\G[KiLhP<=oP^ZJ2BIVYPEFPWUSrIELS@TLFHOPSOIGKYPOUJ GHM NJF~FIKtJ GSEF)IqIFDDcFGXFC3C!DEGECAMBmCCB2A@CAAAA@d??3@?@S?]>)>|>>
> =<<<<;};S;`;l;:):9999
98R8@8687 7666b65}55Z5*54_44343.322b2A21r1?1"100h0//m/0//.o.
.--X--,,7,,++s++**G*)))<)9)((a( ('' '{&%$%$$<"*G~аaB)ֶZG՛Q/!ޢqۂ%U2ݽP ߊ߉& <e.%pUy{Q~nWu1 &KKIymYcv(jR2K$(Q 7{+SM&r%FR)bBm
O=vt5
~ i;;8(!=A.5' ;7*U0!DDODV#D !
= 0 $
~oruun{ei~}rynXCB-X[nP :S6Z >K5KRd8kck\QM?;E4B76E)+ 3]/1hC??4*4&G3),6E(/62 6'd*9J?PW-W- ( 6((:/CN<- " B?4:) ( '
9#"% 0(E $9$2*
5L0 4 '#$
*
[FC10"",%#( " xjm`qw{qn|[~t_}qe~{~z{zvuk}j;Txcjm{ftZappk\u^~lh~ZlbldddkY~`}gU,xp{WaL{a[On]H]G]=&lYG1<#n\jXbI[fPL=)PW7SLDShhzVV\GYZYuf15bMDkCjTupi[3bteW;6]ohnh@.<YY.C.1\[;f__QI1BMm46eSP!=O6:S:G++K'R`gU@NUN8?)1M#XPWb??QZOP>H: 2 6 $*/@ )114 ;"0 7$ A,%KHZ:OKD=OR2D5K`dJkF7[?,,?-Fq>,P9PEL!+H=R]aHQgD9 IT&"&<u1C" / = $! # .< " "-)3" $ (!$H2CU2@#
"# 4 (' .( 1* %, 4 ( (:9= 5
#.*CN -, !:S0=6S9
9# ;)& ' q i x q v e Q [ p ~ { z w t ] k h L c V S M T K ) smpl< X < % Examples/sprites/help.png 0000664 0001750 0001750 00000000655 11675357446 014135 0 ustar jim jim PNG
IHDR w= sRGB bKGD pHYs tIME 8*}x tEXtComment Created with The GIMPd%n IDATHǽ;0 ?G1q . K1X S-Xx t0CCmKTmNGKhM@0-ڂmOA\ԗө J9`^ aQEjK7`RsGozsˉ>j U L
nY~ kl[lzм )>. Ya?D5l|& ZGL
H bk8ˮi\ V=JQF(Cg Ǒ55YN IENDB` Examples/trig.kbs 0000664 0001750 0001750 00000000454 11675357447 012452 0 ustar jim jim clg
fastgraphics
for x = 1 to 4 * 3.14159 step 0.05
y = sin(x)
plot int(20*x), 150 + int(30*y)
next x
refresh
for x = 1 to 4 * 3.14159 step 0.05
y = cos(x)
plot int(20*x), 150 + int(30*y)
next x
refresh
for x = 1 to 4 * 3.14159 step 0.01
y = tan(x)
plot int(20*x), 150 + int(30*y)
next x
refresh Examples/ping.kbs 0000664 0001750 0001750 00000002013 11675357447 012433 0 ustar jim jim print "Use the J and K keys to move the paddle"
fastgraphics
x = 30
y = 280
ballx = 30
bally = 0
ballxinc = 5
ballyinc = 5
xinc = 5
speed = .04 ## make speed smaller to play faster
loop1:
a = key
if a = 75 then x = x + 30
if a = 74 then x = x - 30
if x < 0 then x = 0
if x > 200 then x = 200
gosub drawpaddle
gosub moveball
gosub drawball
refresh
goto loop1
drawpaddle:
color gray
rect 0,0,300,300
color darkblue
rect x,y,100,10
color blue
rect x+1,y+1,98,8
return
moveball:
ballx = ballx + ballxinc
bally = bally + ballyinc
if bally > 270 then gosub checkball
if bally < 5 then ballyinc = -ballyinc
if ballx > 295 then ballxinc = -ballxinc
if ballx < 5 then ballxinc = -ballxinc
pause speed
return
checkball:
if ballx < x - 3 then goto missed
if ballx > (x + 103) then goto missed
ballyinc = -ballyinc
ballxinc = ((ballx - x) - 50) / 10
return
missed:
print "You Missed!!"
bally = 10
return
drawball:
color black
circle ballx, bally, 5
color white
circle ballx, bally, 4
return
Examples/errortrapping.kbs 0000664 0001750 0001750 00000000650 11675357447 014401 0 ustar jim jim # test error trapping
onerror nicetrap
print 1
next haha
print 2
open 999, "bogus.file"
print "Runs Anyway"
# test error trapping off and fail at any error (default)
offerror
print 3
next hoho
print "never get here"
end
nicetrap:
# this is the nice error handler
print "trap and run - error on line " + lasterrorline + " - error number " + lasterror + " message " + lasterrormessage + " (" + lasterrorextra + ")"
return
Examples/15puzzle.kbs 0000664 0001750 0001750 00000005351 11675357447 013205 0 ustar jim jim # 15puzzle.kbs - slide the tiles to get them back in order
# 2010-01-14 j.m.reneau
fastgraphics
nx = 4 # number of boxes in a row
ny = 4 # number of boxes in a column
bw = 5 # border width
xw = (graphwidth - ((nx+1)*bw)) / nx # calculate size of a box
yw = (graphheight - ((ny+1)*bw)) / ny
zx = 0 # position of the empty tile
zy = 0
dim board(nx, ny)
font "Tahoma", 120/nx, 100
print "slide puzzle"
print "click on tile to slide. try to get all tiles in order."
print "shufflle..."
gosub initialboard
gosub shuffle
gosub drawboard
clickclear
moves = 0
print "click tile to move"
do
gosub getclick
gosub makemove
gosub drawboard
gosub isdone
until done
print "Game Over - You solved it in "+ moves +"."
end
shuffle: #
for t = 1 to nx * ny * 10
cx = zx
cy = zy
r = int(rand*4)
if r = 0 and cx > 0 then cx = cx - 1
if r = 1 and cx < nx-1 then cx = cx + 1
if r = 2 and cy > 0 then cy = cy - 1
if r = 3 and cy < ny-1 then cy = cy + 1
if cx<>zx or cy<> zy then
board[zx, zy] = board[cx, cy]
board[cx, cy] = 0
zx = cx
zy = cy
end if
gosub drawboard
pause .01
next t
return
makemove: #
# shift cells
if (zx = cx) or (zy = cy) then
moves = moves + 1
if zx<>cx then
# row shift
if cx>zx then
dx = 1
dy = 0
else
dx = -1
dy = 0
end if
else
# column shift
if cy>zy then
dx = 0
dy = 1
else
dx = 0
dy = -1
end if
end if
# do shift
while zx <> cx or zy <> cy
board[zx, zy] = board[zx+dx, zy+dy]
board[zx+dx, zy+dy] = 0
zx = zx + dx
zy = zy + dy
end while
endif
return
getclick: #
# return cx and cy for where the user clicked the board
while clickb = 0
pause .01
end while
cx = int(clickx/(xw+bw))
if cx >= nx then cx = nx-1
cy = int(clicky/(yw+bw))
if cy >= ny then cy = ny-1
clickclear
return
initialboard: #
# setup the initial board array
for x= 0 to nx-1
for y = 0 to ny-1
board[x, y] = (y*nx+x+1)
next y
next x
zx = nx-1
zy = ny-1
board[zx, zy] = 0
return
isdone: #
# return the variable done if we have solved the puzzle
done = true
for x= 0 to nx-1
for y = 0 to ny-1
if board[x, y] <> (y*nx+x+1) and (x <> zx or y <> zy) then
done = false
return
end if
next y
next x
return
drawboard: #
clg
color black
rect 0, 0, graphwidth, graphheight
for y = 0 to ny-1
for x = 0 to nx-1
b = board[x, y]
color white
rect (x+1)*bw+x*xw, (y+1)*bw+y*yw ,xw, yw
if b <> 0 then
if zx = x or zy = y then
color blue
else
color darkblue
endif
text (x+1)*bw+x*xw, (y+1)*bw+y*yw, b
end if
next x
next y
refresh
return
Examples/stamp.kbs 0000664 0001750 0001750 00000000767 11675357447 012640 0 ustar jim jim clg
dim a(6)
a[0] = 0
a[1] = 0
a[2] = 20
a[3] = 20
a[4] = 15
a[5] = 10
color black
for x = 0 to 200 step 20
for y = 0 to 200 step 20
s = rand * 5
stamp x, y, s, a
next y
next x
color blue
for x = 0 to 200 step 20
for y = 0 to 200 step 20
s = rand * 5
color green
stamp x, y, 5, {0,0,20,20,15,10}
color yellow
stamp x, y, {0,0,20,20,15,10}
color blue
stamp x, y, 5, rand * 2 * pi, {0,0,20,20,15,10}
next y
next x
Examples/card_suites.kbs 0000664 0001750 0001750 00000001177 11675357447 014015 0 ustar jim jim # 2009-12-20 j.m.reneau
# draw an animation of the four card suites
#
# shapes of the card suits
dim diamond(8)
diamond = {0, 2.5, 2, 0, 4, 2.5, 2, 5}
dim heart(12)
heart = {0, 1, 1, 0, 2, 1, 3, 0, 4, 1, 2, 5}
dim spade(18)
spade = {0, 3, 2, 0, 4, 3, 4, 4, 2, 3, 3, 5, 1, 5, 2, 3, 0, 4}
dim club(30)
club = {0, 1, 1, 0, 2, 1, 3, 0, 4, 1, 3, 2, 4, 3, 3, 4, 2, 3, 3, 5, 1, 5, 2, 3, 1, 4, 0, 3, 1, 2}
fastgraphics
for i = 0 to 200
z = i / 10
r = 2 * pi * i / 100
clg
color red
stamp 50,50,z,r,diamond
stamp 150,150,z,r,heart
color black
stamp 150,50,z,r,spade
stamp 50,150,z,r,club
refresh
pause .001
next i
Examples/databasefoo.kbs 0000664 0001750 0001750 00000001446 11675357447 013757 0 ustar jim jim #database foo - create a database, populate a table, open a recordset and read data from table.
# create a new database file or open it
dbopen "dbtest.sqlite3"
# delete old foo table - trap error if new database
onerror errortrap
dbexecute "drop table foo;"
offerror
# create and populate
dbexecute "create table foo (id integer, words text, value decimal);"
dbexecute "insert into foo values (1,'one',3.14);"
dbexecute "insert into foo values (2,'two',6.28);"
dbexecute "insert into foo values (3,'three',9.43);"
# open a recordset and loop through the rows of data
dbopenset "select * from foo order by words;"
while dbrow()
print dbint(0) + dbstring(1) + dbfloat(2)
end while
dbcloseset
# wrap everything up
dbclose
end
errortrap:
# accept error - display nothing - return to next statement
return Examples/snowflakes.kbs 0000664 0001750 0001750 00000002635 11675357447 013664 0 ustar jim jim # Snowflakes
# for BASIC-256 on the basis of the program Ted Felix
# by Sergey Irupin (lamp@altlinux.org), 10-dec-2010
# Like real snowflakes, each one is unique
XCenter = graphwidth() / 2
YCenter = graphheight() / 2
Pi3 = pi / 3 # 60 degrees
RLimit = YCenter
fastgraphics
do
# clear graphics window
color darkblue
rect 0,0,graphheight(),graphwidth()
color white
# get the number of lines in the snowflake
Total = rand * 15 + 5
# for each line
for Cnt = 1 to Total
# Pick two random points in polar coordinates
r1 = rand * RLimit
t1 = rand * Pi3
r2 = rand * RLimit
t2 = rand * Pi3
# compute the mirror image of those points in the 60 degree sector
mt1 = Pi3 - t1
mt2 = Pi3 - t2
# for each 60 degree sector around the circle
for I = 0 to 5
# draw the line
t1i = t1 + (I * Pi3)
t2i = t2 + (I * Pi3)
x1 = r1*cos(t1i)
y1 = r1*sin(t1i)
x2 = r2*cos(t2i)
y2 = r2*sin(t2i)
line (x1+XCenter, y1+YCenter, x2+XCenter, y2+YCenter)
# draw the mirror image line within the 60 degree sector
mt1i = mt1 + (I * Pi3)
mt2i = mt2 + (I * Pi3)
x1 = r1*cos(mt1i)
y1 = r1*sin(mt1i)
x2 = r2*cos(mt2i)
y2 = r2*sin(mt2i)
line (x1+XCenter, y1+YCenter, x2+XCenter, y2+YCenter)
next I
next Cnt
refresh
pause 1
until false Examples/mandelbrot.kbs 0000664 0001750 0001750 00000001353 11675357447 013633 0 ustar jim jim rem Mandelbrot example thanks to Joel Kahn
fastgraphics
editvisible false
outputvisible false
graphsize 800,800
refresh
kt=50:m=4.0
xmin=2.1:xmax=-0.6:ymin=-1.5:ymax=1.5
dx=(xmax-xmin)/graphwidth:dy=(ymax-ymin)/graphheight
for x=0 to graphwidth
jx=xmin+x*dx
for y=0 to graphheight
jy=ymin+y*dy
k=0:wx=0.0:wy=0.0
MainCalculation:
tx=wx*wx-(wy*wy+jx)
ty=2.0*wx*wy+jy
wx=tx
wy=ty
r=wx*wx+wy*wy
k=k+1
if r<=m and k 5 then color darkblue
if k > 10 then color blue
if k > 15 then color darkgreen
if k > 20 then color green
if k > 25 then color darkred
if k > 30 then color red
if k > 35 then color darkpurple
if k > 40 then color purple
if k > 45 then color black
plot x,y
next y
refresh
next x
Examples/uniformRV.kbs 0000664 0001750 0001750 00000000241 11675357447 013426 0 ustar jim jim dim nums(301)
for i = 1 to 1000000
x = int(rand * 300)
nums[x] = nums[x] + 1
next i
fastgraphics
clg
for x = 0 to 300
plot x, 60 + nums[x] / 100
next x
refresh Examples/hello.kbs 0000664 0001750 0001750 00000000026 11675357447 012603 0 ustar jim jim
print "Hello World"
Examples/plot.kbs 0000664 0001750 0001750 00000000332 11675357447 012456 0 ustar jim jim
for a = 1 to 100
plot a, a
plot 21,a
plot 27,a
plot 18,a
plot 14,a
plot a, 21
plot a, 21
plot a, 27
plot a, 33
plot a, 18
plot a, 35
plot a, 37
plot a, 14
plot a, 33
plot a, 18
plot a, 35
plot a, 37
plot a, 14
next a
Examples/polytest.kbs 0000664 0001750 0001750 00000000745 11675357447 013373 0 ustar jim jim # polytest.kbs
# draw polygons using arrays and direct lists
clg
color gray
dim a(6)
a[0] = 10
a[1] = 30
a[2] = 25
a[3] = 40
circle (5,5,15)
color blue
poly a
# draw red one on top of the blue one
pause 1
color red
poly {10,30,24,40,0,0}
pause 1
color blue
for x = 45 to 55 step 5
poly {1/x, 2 * x, x-40, x + 30, 7, 8}
next x
# pause and overlay immediate with same polygon from array
pause 1
color red
a[0] = 1/x
a[1] = 2 * x
a[2] = x-40
a[3] = x + 30
a[4] = 7
a[5] = 8
poly a
Examples/collision3.kbs 0000664 0001750 0001750 00000010362 11675357447 013562 0 ustar jim jim # Collision
# 3 "balls" reflect on the walls and can collide
# see http://www.geocities.com/vobarian
print "The return key ends the program."
clg
fastgraphics
# graphics window size
gwidth = 300
gheight = 300
graphsize gwidth,gheight
# feel free to change the radius of the balls and their masses
# radius
r1 = 15
r2 = 15
r3 = 15
# masses
m1 = r1*r1*r1
m2 = r2*r2*r2
m3 = r3*r3*r3
# initial positions and velocities
x1 = rand * (gwidth - 2*r1) + r1 : y1 = r1
vx1 = 10*rand - 5 : vy1 = 3*rand
x2 = rand * (gwidth - 2*r2) + r2 : y2 = gheight - r2
vx2 = 10*rand - 5 : vy2 = -3*rand
x3 = rand * (gwidth - 2*r3) + r3 : y3 = gheight - r3*2
vx3 = 10*rand - 5 : vy3 = 6*rand
kollision = 0 # do we have a collision (1 yes, 0 no)
loopz:
c = key()
if c = 16777220 then goto ende
clg
gosub zeichne
refresh
#pause .01
gosub iskollision
if kollision = 0 then goto m1
gosub getkollision
gosub getnewpos
m1:
gosub wandball1
gosub wandball2
gosub wandball3
m2:
gosub getnewpos
goto loopz
getnewpos:
x1 = x1 + vx1
y1 = y1 + vy1
x2 = x2 + vx2
y2 = y2 + vy2
x3 = x3 + vx3
y3 = y3 + vy3
return
iskollision:
kollision = 0
if sqrt((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2)) < r1 + r2 then kollision = 1 : sound 400,2
if sqrt((x1 - x3) * (x1 - x3) + (y1 - y3) * (y1 - y3)) < r1 + r3 then kollision = 2 : sound 400,2
if sqrt ((x2 - x3) * (x2 - x3) + (y2 - y3) * (y2 - y3)) < r2 + r3 then kollision = 3 : sound 400,2
return
wandball1:
if ( x1 > gwidth - r1 and vx1 > 0 ) or ( x1 < r1 and vx1 < 0 ) then vx1 = -vx1
if ( y1 > gheight - r1 and vy1 > 0 ) or ( y1 < r1 and vy1 < 0 ) then vy1 = -vy1
return
wandball2:
if ( x2 > gwidth - r2 and vx2 > 0 ) or ( x2 < r2 and vx2 < 0 ) then vx2 = -vx2
if ( y2 > gheight - r2 and vy2 > 0 ) or ( y2 < r2 and vy2 < 0 ) then vy2 = -vy2
return
wandball3:
if ( x3 > gwidth - r3 and vx3 > 0 ) or ( x3 < r3 and vx3 < 0 ) then vx3 = -vx3
if ( y3 > gheight - r3 and vy3 > 0 ) or ( y3 < r3 and vy3 < 0 ) then vy3 = -vy3
return
getkollision:
#normal vector un = unx, uny
if kollision = 1 then
s = sqr((x1-x2)*(x1-x2) + (y1-y2)*(y1-y2))
unx = (x2 - x1) / s
uny = (y2 -y1) / s
endif
if kollision = 2 then
s = sqr((x1-x3)*(x1-x3) + (y1-y3)*(y1-y3))
unx = (x3 - x1) / s
uny = (y3 -y1) / s
endif
if kollision = 3 then
s = sqr((x2-x3)*(x2-x3) + (y2-y3)*(y2-y3))
unx = (x3 - x2) / s
uny = (y3 -y2) / s
endif
#tangential vector ut
utx = -uny : uty = unx
if kollision = 1 then
#tangential velocities vt1, vt2 (skalar)
vt1 = utx*vx1 + uty*vy1
vt2 = utx*vx2 + uty*vy2
#normal velocities vn1, vn2 (skalar)
vn1 = unx*vx1 + uny*vy1
vn2 = unx*vx2 + uny*vy2
endif
if kollision = 2 then
#tangential velocities vt1, vt2 (skalar)
vt1 = utx*vx1 + uty*vy1
vt2 = utx*vx3 + uty*vy3
#normal velocities vn1, vn2 (skalar)
vn1 = unx*vx1 + uny*vy1
vn2 = unx*vx3 + uny*vy3
endif
if kollision = 3 then
#tangential velocities vt1, vt2 (skalar)
vt1 = utx*vx2 + uty*vy2
vt2 = utx*vx3 + uty*vy3
#normal velocities vn1, vn2 (skalar)
vn1 = unx*vx2 + uny*vy2
vn2 = unx*vx3 + uny*vy3
endif
# 1-dimensional collision formulas for the normal
# velocities after collision vn1n, vn2n
# the tangential component of the velcities does not change
vn1n =( (m1-m2)*vn1 + 2*m2*vn2 ) / (m1+m2)
vn2n =( (m2-m1)*vn2 + 2*m1*vn1 ) / (m1+m2)
# vectors after collision: tangential (vt1n,vt2n) and normal (vt1n,vt2n)
vn1nx = unx * vn1n : vn1ny = uny * vn1n
vn2nx = unx * vn2n : vn2ny = uny * vn2n
vt1nx = utx * vt1 : vt1ny = uty * vt1
vt2nx = utx * vt2 : vt2ny = uty * vt2
# tangential and normal vector add to resulting velocities
if kollision = 1 then
vx1 = vt1nx + vn1nx : vy1 = vt1ny + vn1ny
vx2 = vt2nx + vn2nx : vy2 = vt2ny + vn2ny
endif
if kollision = 2 then
vx1 = vt1nx + vn1nx : vy1 = vt1ny + vn1ny
vx3 = vt2nx + vn2nx : vy3 = vt2ny + vn2ny
endif
if kollision = 3 then
vx2 = vt1nx + vn1nx : vy2 = vt1ny + vn1ny
vx3 = vt2nx + vn2nx : vy3 = vt2ny + vn2ny
endif
return
zeichne:
color black
rect 0,0,gwidth,gheight
color clear
rect 1,1,gwidth-2,gheight-2
color red
circle x1,y1,r1
color blue
circle x2,y2,r2
color green
circle x3,y3,r3
return
ende:
print "Bye!"
end Examples/mousedoodle.kbs 0000664 0001750 0001750 00000001164 11675357447 014023 0 ustar jim jim # mousetest.kbs - 2009-12-21 j.m.reneau
# click and doodle on the graphics output
cls
print "doodle on the graphic output with your mouse"
print "left button to draw in black"
print "right button to draw in crazy colors"
print "right and left button to erase"
clg
color white
rect 0,0,graphwidth, graphheight
loop:
if mouseb = 1 then gosub blackline
if mouseb = 2 then gosub randomline
if mouseb = 3 then gosub clearline
goto loop
blackline:
color black
circle mousex, mousey, 2
return
randomline:
color rand*256, rand*256, rand*256
circle mousex, mousey, 2
return
clearline:
color clear
circle mousex, mousey, 2
return
Examples/ballanim.kbs 0000664 0001750 0001750 00000001043 11675357447 013257 0 ustar jim jim print "Bouncing Ball Animation"
rem set up initial position for ball, and its speed
x = 10
y = 10
r = 10
xinc = 5
yinc = 4
moveBall:
x = x + xinc
y = y + yinc
rem This is where we check for collisions with the wall
if y > 280 then yinc = -yinc : sound(440, 50)
if x > 280 then xinc = -xinc : sound(440, 50)
if x < 14 then xinc = -xinc : sound(440, 50)
if y < 14 then yinc = -yinc : sound(440, 50)
rem clear the screen, then draw the ball
clg
gosub drawBall
goto moveBall
drawBall:
color black
circle x, y, r
return Examples/imgload/ 0000775 0001750 0001750 00000000000 11675357446 012414 5 ustar jim jim Examples/imgload/animatedhelp.kbs 0000664 0001750 0001750 00000000702 11675357446 015547 0 ustar jim jim # animatedhelp.kbs - show another use of imgload
clg
fastgraphics
imgload 150,150,"test.bmp"
x = 50
y = 50
r = 0
while true
x = x + rand * 10
y = y + rand * 10
r = r + rand * .2
if x < 0 then x = graphwidth
if x > graphwidth then x = 0
if y < 0 then y = graphheight
if y > graphheight then y = 0
save$ = getslice(x-15,y-15,30,30)
imgload x, y, 1, r, "help.png"
refresh
pause .05
putslice x-15,y-15,save$
end while
Examples/imgload/rotate.kbs 0000664 0001750 0001750 00000000434 11675357446 014414 0 ustar jim jim # rotate.kbs - show imgload statement with rotate and scale
clg
imgload 150,150,"test.bmp"
for t = 1 to 50
imgload graphwidth*rand, graphheight*rand, 1 + t/10, "help.png"
next t
a = 0
for t = 0 to 50
imgload 150, 150, t / 5 , 2 * pi / (t / 50), "help.png"
pause .01
next t
Examples/imgload/imgload.kbs 0000664 0001750 0001750 00000000415 11675357446 014531 0 ustar jim jim # imgload.kbs - show basic use of the imgload statement
clg
imgload 150,150,"test.bmp"
for t = 1 to 10
imgload graphwidth*rand, graphheight*rand, "help.png"
next t
# scale by zero - no display
imgload 100,100,0, "help.png"
# this will error
imgload 0,0,"crap.gif"
Examples/imgload/test.bmp 0000664 0001750 0001750 00001023436 11675357446 014104 0 ustar jim jim BM ' 6 ( - - & 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ 6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/6/ L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L"L" j U L
nY~ kl[lzм )>. Ya?D5l|& ZGL
H bk8ˮi\ V=JQF(Cg Ǒ55YN IENDB` Examples/moving_squares.kbs 0000664 0001750 0001750 00000001073 11675357447 014545 0 ustar jim jim rem Moving Squares thanks to Joel Kahn
clg
x1=150
y1=150
q=0.055
m=0.0
SquaresLoop:
m=m+q
x1=x1+4.0*cos(m)
y1=y1+4.0*sin(m)
x2=300-x1
y2=300-y1
x3=x1/2.0
y3=y1/2.0
x4=300-x3
y4=300-y3
color purple
line x1,y1,x2,y1
color orange
line x1,y1,x1,y2
color darkpurple
line x1,y2,x2,y2
color darkorange
line x2,y1,x2,y2
color blue
line x3,y3,x1,y1
color darkblue
line x2,y2,x4,y4
color cyan
line x3,y4,x1,y2
color darkcyan
line x2,y1,x4,y3
color green
line x3,y3,x3,y4
color red
line x3,y3,x4,y3
color darkgreen
line x4,y3,x4,y4
color darkred
line x3,y4,x4,y4
goto SquaresLoop
Examples/tictactoe.kbs 0000664 0001750 0001750 00000004037 11675357447 013465 0 ustar jim jim # tictactoe - simple tic tac toe board
# 2009-12-23 - j.m.reneau
# requires BACIC256 0.9.4f or better
# 0=empty 1=x, 2=0
fastgraphics
dim board(9)
board = {0,0,0,0,0,0,0,0,0}
gosub drawboard
player = 1
playerloop:
print "player ";
if player = 1 then print "X";
if player = 2 then print "O";
print " please click on cell."
clickclear
playerwaitclick:
pause .1
if clickb = 0 then goto playerwaitclick
# what cell did they click on
i = int(clickx/100) + int(clicky/100)*3
# if it is not empty then wait again
if board[i] <> 0 then goto playerloop
# set cell and display
board[i] = player
gosub drawboard
# see if there is a winner and if not go to next player and wait
gosub iswinner
player = player + 1
if player > 2 then player = 1
if winner = 0 then goto playerloop
# we must have a winner
print "The winner was ";
if winner = -1 then print "cat"
if winner = 1 then print "X"
if winner = 2 then print "O"
end
iswinner: #
# is there a winner = return winner - 0 if ther game continues
# winner = 1 for X, winner=2 for Y, winner=-1 for cat
for winner = 1 to 2
# check columns
for t = 0 to 2
if board[0+t] = winner and board[3+t] = winner and board[6+t] = winner then return
next t
# check rows
for t = 0 to 2
if board[3*t] = winner and board[3*t+1] = winner and board[3*t+2] = winner then return
next t
# check diagonals
if board[0] = winner and board[4] = winner and board[8] = winner then return
if board[2] = winner and board[4] = winner and board[6] = winner then return
next winner
# check for empty square
winner = 0
for t = 0 to 8
if board[t]=0 then return
next t
# must be a cat
winner = -1
return
drawboard: #
clg
color black
rect 0,95,300,10
rect 0,195,300,10
rect 95,0,10,300
rect 195,0,10,300
#
font "Tahoma",50,100
# draw X and O
for t = 0 to 8
if board[t]=1 then text ((t % 3)*100)+25, (int(t/3)*100)+10, "X"
if board[t]=2 then text ((t % 3)*100)+25, (int(t/3)*100)+10, "O"
next t
refresh
return
Examples/stamp_flower.kbs 0000664 0001750 0001750 00000000577 11675357447 014215 0 ustar jim jim clg
dim a(6)
a[0] = 0
a[1] = 0
a[2] = 20
a[3] = 20
a[4] = 15
a[5] = 10
color yellow
for r = 0 to (2 * pi) step (pi/32)
stamp graphwidth/2, graphheight/2, 5, r, a
next r
color blue
for r = 0 to (2 * pi) step (pi/16)
stamp graphwidth/2, graphheight/2, 3, r, a
next r
color red
for r = 0 to (2 * pi) step (pi/8)
stamp graphwidth/2, graphheight/2, 1, r, a
next r
Examples/rainbow.kbs 0000664 0001750 0001750 00000001074 11675357447 013145 0 ustar jim jim rem Rainbow example thanks to Joel Kahn
clg
fastgraphics
m=-1.57:x1=1:y1=301
q=0.00101:gx=0.15:gy=0.3
for e=1 to 3107
m=m+q
x1=x1+gx*cos(m):y1=y1+gy*sin(m)
x2=(x1+150)/2:y2=(y1+300)/2
x3=(x1+x2)/2:y3=(y1+y2)/2
x4=(x2+150)/2:y4=(y2+300)/2
x5=(x1+x3)/2:y5=(y1+y3)/2
x6=(x2+x3)/2:y6=(y2+y3)/2
x7=(x2+x4)/2:y7=(y2+y4)/2
x8=(x4+150)/2:y8=(y4+300)/2
color red
line x1,y1,x5,y5
color orange
line x5,y5,x3,y3
color yellow
line x3,y3,x6,y6
color green
line x6,y6,x2,y2
color blue
line x2,y2,x7,y7
color darkblue
line x7,y7,x4,y4
color darkpurple
line x4,y4,x8,y8
refresh
next e
Examples/quotations.kbs 0000664 0001750 0001750 00000006202 11675357447 013710 0 ustar jim jim #quotations - create a database of quotations
# create a new database file or open it or create it with a few good quotes
dbfile$ = "quotations.sqlite3"
e = exists(dbfile$)
dbopen dbfile$
if (not e) then gosub createtable
gosub getlastquote
print "Database has " + lastquote + " quotes."
menu:
print "1 - view a random quote ** ";
print "2 - list all quotes ** ";
print "3 - add a quote ** ";
print "0 - quit"
input ">", choice
if choice = 1 then gosub showquote
if choice = 2 then gosub showall
if choice = 3 then gosub addquote
if choice <> 0 then goto menu
# wrap everything up
print "Good bye."
dbclose
end
showquote: ####
quote = 1 + int(rand * lastquote)
dbopenset "select author, saying from quotes where id = " + quote + ";"
while dbrow()
print dbstring(1)
print " - " + dbstring(0)
end while
dbcloseset
return
showall: ####
dbopenset "select id, author, saying from quotes order by id;"
while dbrow()
print dbint(0) + " " + dbstring(2) + " (" + dbstring(1) + ")"
end while
dbcloseset
return
addquote: ####
input "Quote>", quote$
input "Author>", author$
if quote$ = "" or author$ = "" then
print "You must supply both a quote and an author to add."
return
end if
lastquote = lastquote + 1
dbexecute "insert into quotes values (" + lastquote + ",'" + author$ + "','" + quote$ + "');"
print "Quote " + lastquote + " added."
return
getlastquote: ######
# find the last quote number and set the variable lastquote
lastquote = 0
dbopenset "select max(id) from quotes"
while dbrow()
lastquote = dbint(0)
end while
dbcloseset
return
createtable: ########
dbexecute "create table quotes (id integer primary key, author text, saying text);"
dbexecute "insert into quotes values (1,'Abraham Lincoln (1809 - 1865)','Most folks are about as happy as they make up their minds to be.');"
dbexecute "insert into quotes values (2,'George Burns (1896 - 1996)','Happiness is having a large, loving, caring, close-knit family in another city.');"
dbexecute "insert into quotes values (3,'Jean Houston','At the height of laughter, the universe is flung into a kaleidoscope of new possibilities.');"
dbexecute "insert into quotes values (4,'Doug Larson', 'Home computers are being called upon to perform many new functions, including the consumption of homework formerly eaten by the dog.');"
dbexecute "insert into quotes values (5, 'Isaac Asimov', 'I do not fear computers. I fear the lack of them.');"
dbexecute "insert into quotes values (6, 'Pierre Gallois', 'If you put tomfoolery into a computer, nothing comes out of it but tomfoolery. But this tomfoolery, having passed through a very expensive machine, is somehow ennobled and no-one dares criticize it.');"
dbexecute "insert into quotes values (7, 'Robert Orben', 'To err is human--and to blame it on a computer is even more so.');"
dbexecute "insert into quotes values (8, 'Herm Albright (1876 - 1944)', 'A positive attitude may not solve all your problems, but it will annoy enough people to make it worth the effort.');"
dbexecute "insert into quotes values (9, 'William James (1842 - 1910)', 'The greatest discovery of my generation is that a human being can alter his life by altering his attitudes of mind.');"
return FindWin.cpp 0000664 0001750 0001750 00000006114 11675357462 011264 0 ustar jim jim /** Copyright (C) 2010, J.M.Reneau
**
** This program is free software; you can redistribute it and/or modify
** it under the terms of the GNU General Public License as published by
** the Free Software Foundation; either version 2 of the License, or
** (at your option) any later version.
**
** This program is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
** GNU General Public License for more details.
**
** You should have received a copy of the GNU General Public License along
** with this program; if not, write to the Free Software Foundation, Inc.,
** 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
**/
#include
using namespace std;
#include "FindWin.h"
#include "Settings.h"
#include "MainWindow.h"
#include "md5.h"
FindWin::FindWin (QWidget * parent)
{
// parent must be basicedit
be = (BasicEdit *) parent;
// position where it was last on screen
QSettings settings(SETTINGSORG, SETTINGSAPP);
move(settings.value(SETTINGSFINDPOS, QPoint(200, 200)).toPoint());
setWindowTitle(tr("BASIC-256 Find"));
QGridLayout * layout = new QGridLayout();
int r=0;
searchforlabel = new QLabel(tr("Search For:"),this);
layout->addWidget(searchforlabel,r,1,1,1);
searchforinput = new QLineEdit(settings.value(SETTINGSFINDSTRING, "").toString());
searchforinput->setMaxLength(100);
connect(searchforinput, SIGNAL(textChanged(QString)), this, SLOT (changeSearchForInput(QString)));
layout->addWidget(searchforinput,r,2,1,2);
//
r++;
casecheckbox = new QCheckBox(tr("Case Sensitive"),this);
casecheckbox->setChecked(settings.value(SETTINGSFINDCASE, SETTINGSFINDCASEDEFAULT).toBool());
layout->addWidget(casecheckbox,r,2,1,2);
//
r++;
backcheckbox = new QCheckBox(tr("Search Backwards"),this);
backcheckbox->setChecked(settings.value(SETTINGSFINDBACK, SETTINGSFINDBACKDEFAULT).toBool());
layout->addWidget(backcheckbox,r,2,1,2);
//
r++;
cancelbutton = new QPushButton(tr("Close"), this);
connect(cancelbutton, SIGNAL(clicked()), this, SLOT (clickCancelButton()));
layout->addWidget(cancelbutton,r,2,1,1);
findbutton = new QPushButton(tr("Find"), this);
connect(findbutton, SIGNAL(clicked()), this, SLOT (clickFindButton()));
layout->addWidget(findbutton,r,3,1,1);
this->setLayout(layout);
this->show();
changeSearchForInput(searchforinput->text());
}
void FindWin::changeSearchForInput(QString t) {
findbutton->setEnabled(t.length() != 0);
}
void FindWin::clickCancelButton() {
close();
}
void FindWin::clickFindButton() {
saveSettings();
be->findString(searchforinput->text(), backcheckbox->isChecked(), casecheckbox->isChecked());
}
void FindWin::closeEvent(QCloseEvent *e) {
saveSettings();
}
void FindWin::saveSettings() {
QSettings settings(SETTINGSORG, SETTINGSAPP);
settings.setValue(SETTINGSFINDPOS, pos());
settings.setValue(SETTINGSFINDSTRING, searchforinput->text());
settings.setValue(SETTINGSFINDCASE, casecheckbox->isChecked());
settings.setValue(SETTINGSFINDBACK, backcheckbox->isChecked());
}
FindWin.h 0000664 0001750 0001750 00000003010 11675357462 010721 0 ustar jim jim /** Copyright (C) 2011, J.M.Reneau.
**
** This program is free software; you can redistribute it and/or modify
** it under the terms of the GNU General Public License as published by
** the Free Software Foundation; either version 2 of the License, or
** (at your option) any later version.
**
** This program is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
** GNU General Public License for more details.
**
** You should have received a copy of the GNU General Public License along
** with this program; if not, write to the Free Software Foundation, Inc.,
** 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
**/
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include "BasicEdit.h"
#ifndef FINDWINH
#define FINDWINH
class FindWin : public QDialog
{
Q_OBJECT;
public:
FindWin(QWidget *);
void closeEvent(QCloseEvent *);
private slots:
void changeSearchForInput(QString);
void clickCancelButton();
void clickFindButton();
private:
void saveSettings();
BasicEdit * be;
QLabel *searchforlabel;
QLineEdit *searchforinput;
QCheckBox *casecheckbox;
QCheckBox *backcheckbox;
QPushButton *cancelbutton;
QPushButton *findbutton;
};
#endif
GhostButton.cpp 0000664 0001750 0001750 00000001760 11675357462 012210 0 ustar jim jim /** Copyright (C) 2006, Ian Paul Larsen.
**
** This program is free software; you can redistribute it and/or modify
** it under the terms of the GNU General Public License as published by
** the Free Software Foundation; either version 2 of the License, or
** (at your option) any later version.
**
** This program is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
** GNU General Public License for more details.
**
** You should have received a copy of the GNU General Public License along
** with this program; if not, write to the Free Software Foundation, Inc.,
** 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
**/
#include "GhostButton.h"
GhostButton::GhostButton(QString text)
: QPushButton(text)
{
}
void
GhostButton::disableButton()
{
setEnabled(false);
}
void
GhostButton::enableButton()
{
setEnabled(true);
}
GhostButton.h 0000664 0001750 0001750 00000002001 11675357462 011642 0 ustar jim jim /** Copyright (C) 2006, Ian Paul Larsen.
**
** This program is free software; you can redistribute it and/or modify
** it under the terms of the GNU General Public License as published by
** the Free Software Foundation; either version 2 of the License, or
** (at your option) any later version.
**
** This program is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
** GNU General Public License for more details.
**
** You should have received a copy of the GNU General Public License along
** with this program; if not, write to the Free Software Foundation, Inc.,
** 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
**/
#ifndef __GHOSTBUTTON
#define __GHOSTBUTTON
#include
class GhostButton : public QPushButton
{
Q_OBJECT;
public:
GhostButton(QString);
public slots:
void disableButton();
void enableButton();
};
#endif
help/ 0000775 0001750 0001750 00000000000 11722477272 010143 5 ustar jim jim help/fr/ 0000775 0001750 0001750 00000000000 11675357461 010556 5 ustar jim jim help/fr/whileendwhile.html 0000664 0001750 0001750 00000001604 11722507477 014272 0 ustar jim jim
While / End While
Format
while booleanexpression
statement(s)
end while
Description
Execute the statement(s) inside the while loop until the booleanexpression evaluates to false. While / End While executes the statements zero or more times. The test is done before the code in the loop is executed.
See Also
Do / Until, For / Next
Example
r = 1
while r < 6
print r
r = r + 1
end while
will display
1
2
3
4
5
New To Version
0.9.4g
help/fr/degrees.html 0000664 0001750 0001750 00000001251 11722507500 013041 0 ustar jim jim
Degrees
Format
degrees ( expression )
Description
Convertis un angle en radians en degrés.
Voir aussi
Acos, Asin, Atan, Cos, Radians, Sin, Tan
help/fr/log10.html 0000664 0001750 0001750 00000000742 11722507477 012366 0 ustar jim jim
Log10
Format
log10 ( expression )
Description
Return the base 10 lograthim of expression.
See Also
Log
New To Version
0.9.5w
help/fr/redim.html 0000664 0001750 0001750 00000001562 11722507477 012545 0 ustar jim jim
Redim
Format
redim numericvariable( integer )
redim stringvariable$( integer )
redim numericvariable( rows , columns )
redim stringvariable$( rows , columns )
Description
Re-sizes a previously created array, preserving data. If an array is enlarged then the new elements will be initialized with zero or the empty string. If an array is reduced in size the elements trimmed from the end are lost.
See Also
Dim
New To Version
0.9.5t
help/fr/rect.html 0000664 0001750 0001750 00000001405 11722507500 012361 0 ustar jim jim
Rect
Format
rect x,y,width,height
rect ( x, y, width, height )
Description
Draws a width x height pixel rectangle using the current color. The top left corner is located at x,y.
Example
color white
rect 0,0,300,300
color red
rect 50,50,150,150
color blue
rect 100,100,150,150
color green
rect 10,140,280,20
draws
help/fr/netread.html 0000664 0001750 0001750 00000001670 11722507500 013052 0 ustar jim jim
NetRead
Format
netread
netread ( )
netread ( socket_number )
Description
Read data from the specified network connection and return it as a string. This function will wait until data is received. If socket_number is not specified socket number zero (0) will be used.
Example
See example of usage on NetConnect page.
See Also
NetClose, NetConnect, NetData, NetListen, NetWrite
New To Version
0.9.6.31
help/fr/length.html 0000664 0001750 0001750 00000000607 11722507500 012710 0 ustar jim jim
Length
Format
length( string )
Description
Returns the number of characters in string
help/fr/mouseb.html 0000664 0001750 0001750 00000002021 11722507500 012711 0 ustar jim jim
Mouseb
Format
mouseb
mouseb()
Description
Returns the buttons that currently pressed on the mouse (if over the graphic output). Returns 0 if no click has been recorded. If multiple buttons have been pressed the value is the sum of the values for all pressed buttons.
| Return Values | |
|---|
| Value | Mouse Button Pressed |
|---|
| 0 | None |
| 1 | Left |
| 2 | Right |
| 4 | Center |
See Also
Clickb, Clickclear, Clickx, Clicky, Mousex, Mousey
New To Version
0.9.4d
help/fr/spriteplace.html 0000664 0001750 0001750 00000002306 11722507477 013755 0 ustar jim jim
Spriteplace
Format
spriteplace spritenumber, x, y
spriteplace ( spritenumber, x, y )
Description
Place the center of a sprite at a specific location on the screen. Like Imgload sprite positioning is relative to the center of the sprite and not the top left corner as with most other graphical statements.
See Also
Spritecollide, Spritedim, Spriteh, Spritehide, Spriteload, Spritemove, Spriteshow, Spriteslice, Spritev, Spritew, Spritex, Spritey
New To Version
0.9.6n
help/fr/pause.html 0000664 0001750 0001750 00000001007 11722507500 012537 0 ustar jim jim
Pause
Format
pause seconds
pause (seconds)
Description
Halts execution for the specified number of seconds. The seconds value may be a decimal value, so sub-second precision is possible.
help/fr/poly.png 0000664 0001750 0001750 00000001601 11722507477 012242 0 ustar jim jim PNG
IHDR , , " sRGB pHYs tIMEU3 tEXtComment Created with GIMPW IDATxՁ
1w1؎@ra8g D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D""""""""""""""""""cDCD!:D:DCDCD!:D:DCDCD!:D:DCDCD!:D:DCDCD!:D:DCDCDE!:!:DPCCDE!:!:DPCCDE!:!:DPCCDE!:!:DPCCDE!:!:DPCCDE!:!:DPCCDE!:!:DPCCDE!:$xB! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! B! Bx8iUp IENDB` help/fr/spritev.html 0000664 0001750 0001750 00000001606 11722507477 013140 0 ustar jim jim
Spritev
Format
spritev ( spritenumber )
Description
Returns true if the sprite is visible.
See Also
Spritecollide, Spritedim, Spriteh, Spritehide, Spriteload, Spritemove, Spriteplace, Spriteshow, Spriteslice, Spritex, Spritey
New To Version
0.9.6o
help/fr/graphheight.html 0000664 0001750 0001750 00000001066 11722507500 013721 0 ustar jim jim
Graphheight
Format
graphheight
graphheight()
Description
Returns the height (y dimension) of the current graphics display window.
See Also
Graphsize, Graphwidth
New To Version
0.9.3
help/fr/spritecollide.html 0000664 0001750 0001750 00000002272 11722507500 014271 0 ustar jim jim
Spritecollide
Format
spritecollide ( sprite1, sprite2)
Description
Function returns true if the two sprites are colliding. The Spritecollide function assumes that the sprites are bounded by a rectangle the size of the loaded image. Collision is calculated by using these rectangles. For round or oddly shaped sprites this function may over detect collision.
See Also
Spritedim, Spriteh, Spritehide, Spriteload, Spritemove, Spriteplace, Spriteshow, Spriteslice, Spritev, Spritew, Spritex, Spritey
New To Version
0.9.6n
help/fr/spriteload.html 0000664 0001750 0001750 00000002564 11722507500 013601 0 ustar jim jim
Spriteload
Format
spriteload spritenumber, filename
spriteload ( spritenumber, filename )
Description
Load an image or picture from a file and save it as a sprite. The sprite will be active and movable but will not display on the screen until the Spriteshow statement is executed for that sprite.
The Spriteload statement will read in most common image file formats including: BMP (Windows Bitmap), GIF (Graphic Interchange Format),JPG/JPEG (Joint Photographic Experts Group), and PNG (Portable Network Graphics).
See Also
Spritecollide, Spritedim, Spriteh, Spritehide, Spritemove, Spriteplace, Spriteshow, Spriteslice, Spritev, Spritew, Spritex, Spritey
New To Version
0.9.6n
help/fr/netlisten.html 0000664 0001750 0001750 00000002041 11722507477 013443 0 ustar jim jim
NetListen
Format
netlisten port_number
netlisten ( port_number)
netlisten socket_number, port_number
netlisten ( socket_number, port_number)
Description
Open up a network connection (server) on a specific port address and wait for another program to connect. If socket_number is not specified socket number zero (0) will be used.
Example
See example of usage on NetConnect page.
See Also
NetClose, NetConnect, NetData, NetRead, NetWrite
New To Version
0.9.6.31
help/fr/lasterrorline.html 0000664 0001750 0001750 00000001542 11722507500 014313 0 ustar jim jim
LastErrorLine
Format
lasterrorline
lasterrorline ( )
Description
Returns the line number in the program where the runtime error happened.
Example
See example of usage on Error Codes page.
See Also
Error Codes, Lasterror, Lasterrorextra, Lasterrormessage, Offerror, Onerror
New To Version
0.9.6z
help/fr/mousex.html 0000664 0001750 0001750 00000001305 11722507477 012760 0 ustar jim jim
Mousex
Format
mousex
mousex()
Description
Returns the current or last mouse x location of the mouse pointer over the graphic output.
See Also
Clickb, Clickclear, Clickx, Clicky, Mouseb, Mousey
New To Version
0.9.4d
help/fr/color.png 0000664 0001750 0001750 00000002276 11722507500 012371 0 ustar jim jim PNG
IHDR , , " sRGB bKGD pHYs tIME8)0v >IDATxIr0@Q|Pnb& 5TV`&M~oKIR AAAAAAAAAAAAAAAAAAAAAAAA)k/oyA;YM"N=M5"®N;"#G7 EFϴHYwQGIzq\1#BY5$T(B!BU"R "Fu(B@Fa(B"B+QEh:}G ~zuzyr: Hfaf{Ȫ8S04 M?Sj:v V/-{Tf,c>4PfyUCFd5kG*B3eJ6om s 鳇LK~ƠIh*~Q wA0lf"pDh:vG"4 5&a@ZLjӭQJu\0zUZB?bkwg# 9"̺h;f!c忘}+Y?H Y"0E1IR # *֨=D8F!
դ$y{ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA B@ B@ B@ B@ B@ B@ B@ B@ B@_Xd IENDB` help/fr/netwrite.html 0000664 0001750 0001750 00000001731 11722507477 013304 0 ustar jim jim
NetWrite
Format
netwrite string
netwrite ( string )
netwrite socket_number, string
netwrite ( socket_number, string )
Description
Send a string to the specified open network connection. If socket_number is not specified socket number zero (0) will be used.
Example
See example of usage on NetConnect page.
See Also
NetClose, NetConnect, NetData, NetListen, NetRead
New To Version
0.9.6.31
help/fr/dbopenset.html 0000664 0001750 0001750 00000002245 11722507477 013427 0 ustar jim jim
DBClose
Format
dbopenset SqlStatement
dbopenset ( SqlStatement )
Description
Perform an SQL statement and create a record set so that the program may loop through and use the results.
Example
See example of usage on DBOpen page.
See Also
DBClose, DBCloseSet, DBExecute, DBFloat, DBInt, DBOpen, DBRow, DBString
External Links
More information about databases in general and SQLite specifically can be found at SQLite Home Page and SQL at Wikipedia.
New To Version
0.9.6y
help/fr/putslice.html 0000664 0001750 0001750 00000001272 11722507500 013256 0 ustar jim jim
PutSlice
Format
putslice x, y, slice$
putslice x, y, slice$, transparent color
Description
Put the graphics stored in the slice string on the screen at x,y. If a transparent color is specified then do not plot points of that color in the slice.
See Also
GetSlice
New To Version
0.9.6b
help/fr/fastgraphics.html 0000664 0001750 0001750 00000001467 11722507500 014112 0 ustar jim jim
FastGraphics
Format
fastgraphics
Description
Turns fastgraphics mode on, until the program is halted. Fastgraphics mode means that the graphics display is not updated until a REFRESH command is issued. It can be used to significantly speed up complex animations and eliminate flicker.
Note
When doing animation, it's recommended to do all of your drawing commands in subroutines and use a single REFRESH command after all drawing has been done for that frame.
See Also
Refresh
help/fr/ceil.html 0000664 0001750 0001750 00000001112 11722507500 012333 0 ustar jim jim
Ceil
Format
ceil ( expression )
Description
REtourne l'entier immédiatement inférieur ou égal à une expression.
Voir aussi
Floor
Exemple
print ceil(9.1)
print ceil(-5.4)
fera afficher
10
-5
help/fr/acos.html 0000664 0001750 0001750 00000001236 11722507500 012353 0 ustar jim jim
Acos
Format
acos ( expression )
Description
Calcule l'arc-cosinus d'expression. Les angles sont exprimés en radians (0 à 2 pi).
Voir Aussi
Asin, Atan, Cos, Degrees, Radians, Sin, Tan
help/fr/readline.html 0000664 0001750 0001750 00000001535 11722507477 013230 0 ustar jim jim
Readline
Format
readline
readline()
readline(filenumber)
Description
Reads and returns an entire line from an open file. If the file number is not specified file number zero (0) will be used.
See Also
Close, Eof, Open, Read, Reset, Write, Writeline, Exists, Seek, Size
help/fr/cir.png 0000664 0001750 0001750 00000005372 11722507500 012030 0 ustar jim jim PNG
IHDR , , " sRGB gAMA a cHRM z& u0 ` : pQ<
xIDATx^ю
P?:"p KBs'c~&p ?di@P@ B"m
!apQ!BH@X \U
A!$@ ,. \?J8D@ A ( Gi!apCV6F!? }dPjx ŏ,peBo. K6 U}9.P£5l_xl pmIE+*+oPrT' K_{2Vf?g ]%re|, Ym vr
!
Clickb
Format
clickb
clickb ( )
Description
Retourne quel(s) bouton(s) de la souris l'utilisateur a pressé (quand il est sur la partie graphic output). Retourne 0 si aucun clic n'a été détecté. Si plusieurs boutons ont été pressés la valeur est la somme des valeurs des boutons pressés.
| Valeurs retournées | |
|---|
| Valeur | Bouton pressé |
|---|
| 0 | aucun |
| 1 | gauche |
| 2 | droit |
| 4 | du centre |
Voir aussi
Clickclear, Clickx, Clicky, Mouseb, Mousex, Mousey
Exemple
# réinitialise le compte des clics
clickclear
# attend que l'utilisateur clique
print "cliquez avec la souris sur la surface graphics output"
while clickb = 0
pause .01
endwhile
# Montre où l'utilisatur a cliqué
print "L'utilisateur a cliqué le point de coordonnées (" + clickx + "," + clicky + ")"
Disponible à partir de la version
0.9.4d