XX-BASIC DEMO 1 A"*******************************"* *"* Extended BASIC demo-program *"* *"* 25.11.1988 by MiKrSoft *"* *"*******************************2 nastaveni nejruznejsich parametru a promennych3------------------------------------------------6 B-O-A-parametry prekladu-J Rmod 700 se zapnutou synchronizaci6& #-- &  ---formaty tisku cisel typu '#' a ' '*5<&+/267>85291()tabulka rychlosti2U kanal #2 PSG urcuje frekvenci 3 sumu4 *5 5<&+/267>85291() jeji naplneni rychlosti0=%<7(*pocet cihel,ktere neni nutne znicit2.2/*barva borderu,'(),18->=1$.predefinovani zn.generatoru volba ovladani-----------------.5(6/,>=$+5$'.ramecek pro volbu ovladani 2  $Extended BASIC compiler demo-program$   25.11.1988 by MiKrSoft "  Zvolte si ovladani :  0 - klavesnice  1 - joystick 1  2 - joystick 2 = P*'test stistene klavesy,v j$ odpovidajici znak< P* 01P* 11P* 2konec cekani po '0','1' nebo '2'&*"' 0'vypocet cisla joysticku 5(.25* vlastni hra------------- 8529(* 6.25* 0,&* hra jedne urovneF.5(6/,>=( &,+(*xvykresleni pozadi,nastaveni poctu cihel ve zdi+5%&,+(*=%<7(48529(*8529(!= &,+(-=%<7(18529(*neuspech nebo ukonceni 5.urovne  hodnoceni-----------(.5(6/,>=$+5$'.ramecek pro hodnoceni    8529(*' Jsi uzasny borec ! 5(.25*6.258529(,06.25-5(.25* Vyborne,novy rekord ! 5(.25*6.25 Hrajes pod psa !&  Chces hrat znovu ? [A/N] > P*''test klavesy,prevod malych pismen na velka2 P* A1P* Ncekani na odpoved 'A' nebo 'N' P* Nkonec hry' *cekani na uvolneni klavesy;---------------- konec hlavniho programu --------------- hra jeden urovne------------------+5 0* 0*souradnice micku *5!0,&?Tvykresleni zbyvajicich micku v hornim radku #3591* prvni micek teto urovne     Uroven : 8529( 3591.   Start po stisku 'fire'  4   Pokracovani po stisku 'fire'  #3591*dalsi jiz nebudou prvni3*poloha palky& *5'vykresleni spodniho radku/3"0.3!$Tvykresleni palky Tprazdne znaky "&(.(->),5ceka na odstartovanivymazani hlaseni$    6T!0,&umazani micku z horniho radku -('12>.2/1 0,&*1&,+(.=%<7(dosly mice nebo cihly hra s jednim mickem--------------------- -('12>.2/)=$6$* 2'5$* =75$7* =98*/0* 0* 0;* 0;* 0<* 0<*Jmx#,my# : poloha mice,mxi#,myi# : inkrement,mxd#,myd# : dekrement sour. 32+<%>3$/. 32+<%>3$/.32+<%>0,&.? =75$71&,+(.=%<7(az do ztraty mice nebo rozbiti cihelVzvukove efekty=75$7pri ztrate mice *d6F U   *F5d U  Uvypnuti zvukupri zbourani zdi  *5U U# %U Uvypnuti zvuku cekani na start----------------- &(.(->),5 32+<%>3$/. '& predefinovani znakoveho generatoru'------------------------------------'(),18->=1$.3Swwleva polovina cihly4Sw}wprava polovina cihly%SUUUpalka)S<~~<hraci mic=S<~~v~<maly micek pro indikaci poctuISdva pomocne prazdne znaky velikosti cihlyS kresleni zdi-------------- .5(6/,>=( W2.2/   *5&7  *5 _cihla   . ( Skore : Rekord : " 5(.25  6.25 vykresleni ramecku z cihel----------------------------.5(6/,>=$+5$'.  W  *5 *5&7*1*1*1*&_cihla*_prazdny dvojznak   pohyb palky podle ovladani----------------------------32+<%>3$/.&5<&+/267>85291(8529()zpozdeni"W2.2/zajisteni synchronizace-2*'cteni joysticku-2*03,%pohyb vpravo7T3" T3! 3*3!-2*03-pohyb vlevo7T3" T3! 3*3", pohyb micku podle nejruznejsich pravidel-------------------------------------------32+<%>0,&.Vvypnuti sumu90*10*'40;*"0; 0;*"0;odraz od boku,0;*0!0;"0;spocitani pristi polohy0<*0!0<"0<"W2.2/zajisteni synchronizace-0*42'5$=>2'>3$/.micek nad palkou,0*42'5$=>2'>67523micek u stropu6)0;0'+40<*0korekce polohy vedle cihly1)0;0<'+na miste nove polohy je cihla =$6$* 5T0;00<smazani leve poloviny cihly-T&0;0'!0<prave poloviny+Vzvuk narazu do cihly f=1,73kHz 9<.5(6/(1,>0,&2'5$=>2'>67523E0<* 0<* 0<*smer pohybu dolu,pristi y-sour. pod stropem 2'5$* ,Vzvuk odrazu od stropu f=6,93kHz9<.5(6/(1,>0,&2'5$=>2'>3$/.))0'*0)0;'*mimo palku)=75$7* 0,&*0,&"ztraceni miceF0<* 0<* 0<*smer pohybu nahoru,pristi y-sour. nad palkou?-2*00,'40;*0! 0;* 0;*smer micku vlevo5-2*00-40;*0" 0;* 0;*vpravo 2'5$* ,Vzvuk odpaleni f=f kanalu 2 / 169<.5(6/(1,>0,&*T00smazani stareho micku 0*0; 0*0<'T00vykresleni noveho=$6$po zasahu cihly<2'5$40<*"0< 0<*"0<zmena smeru vert.pohybu72'5$*micek neleti po odrazu od palky nebo stropu =$6$*#6.25*6.25! &,+(*&,+("  6.25nove skore