l (ractal IFS (Barnsley Iterated Function S( * se o jogador escolhe $ ponta da caixa Enter-mar$ fractais IFS Wendel.IFS - arqui da funcao Y=sen(X)+cos(Z) 3Do ? J: Nao C:  [ *.IFS - arquio do retrovisor (teclas .bas Gera arquivo 3D Linguagem de progra, volta funcao andar)  Teclas :=3Difs  .bas Gama-Lispro Teclas :  W/S/A.bas Jogo de Delta-Lispro  D-Lisp Gama-Lispro  * operadoreas Calculo d perguntas; arquivo Animais.: Nao C:  o coelho ) Digite  (x) - '' ao [ ] In W/S/A/D - de fractais ] 3D Deve-se nao precisa do labirinto .bas Ger a, que pode [ *. .bas Jog a do adversa controla um o adversari as Tecla Turbo Basic direcao da CGEdit9 semelhante ar um arquiv Programa.Dl - pared representa zoom Pg Integral.Clc do programa Integral.Ba : Vive na ag a ? J C: Q a resposta . JH - arquivo ; -eles ) * c e quer muda  Programnte  arquivoados pel program.bas  3D  funcoes o fractm  exemploabirintocoes:  (tecla a) ) o jogo,  definid3DLab.Da [ ser gira graficomagem 3D contend de um pArquimed jogadore uma peez -igita-sea barra, da tela conseguo entre  paredes Ite : a parede   em que a bolinhtando  destruiar ponto Teca inicia *.Ctes  de uma D-Lispro - Poss Ajuda  calculoa caixa  comandonao podeiros ores is compl na form outro,  um disca a caix-exemplo ]  escolhe -o jogomputadoresponde respost de jogocada um L-SystemLemmingsr para fForm do diceome a.bas as ==== 3D.basro eseno emstema detera Z a e execa o estaamanmage - svo do co atiir o quaado no co que tea anao   -Posic) o ine-se um entros n  conLoretor  em , podend) co3DM  exi na rism Cada mova p pe-se comoa nocorr umario est pelmeno suaara nte arrao p/ cada separapode proas nanha quem chanto preais,e de esc bomversirecEspanterangubate, te bloespaa tea. Aes d deslinhlas: e >Edit p/  - T - A- Cozatoin NDoD/FoEExplicacFs usGoHa deH== == = /liv Dh 3DIfsI Fy)JSiK idas  GiramLal emJ - zoom/D-1ca/D-2cutZooM R - rurtho original da iM EscairevmNs !Lab LO 3D."ngdrbranco (hao) e fugirburacnt alc-l OpP -RetrovisorQ'R'=liga/desligRa'1' a '4'S -Th'<' e '>' ,#S -Mapa $Q'M' Nicio dTescolhlO de osUoF 'Vt'W Vt -Ften$s!nz%aLal Atranz3Do Xdo. MGraphM (GRAPH.3DMmYModelI AbreFs ebe iZtel&Xda '- IZ!MPM,[o o dho\a Plan%aY 3D plano](o ]es -^_or v`Asasem a Dam xadr`A captura oe qdo.)miro s 3 peass. sair duraTda 'Fim'Bs( 2 pessoas;a*t&disr barr (paredes). atravessarprib mao )- rio. Gega opostoc (onde va+o) oumdender+e4f igu seancapar.gmh -ba : apaga iadebasxim,s: 1^j2^kDionais: W/S/A/Dj Home/End/Del/PgDnkTiro : o-EBoxI P/. Retlo girand 3DBricks(olvoce*b re umma ()nn or oscos lhGllguns, ave dps,viam a/bo/b influidma.q < , [o]CG99I orYmoniCGA. [09.CGFelrl09.STLrquie estilospintarsGFj- InssGCjrt*.FNTj- Font]CircuitoI Calcula as intensidadas entes eletricasumalhaCP caalavr,s: 7 8 9 4 6 1 2 3DivideI Verificnumero divide out v maaowui iface1ao QBasic ntemx rabalha comys de numerosduplacisawui teclcreta nz'Sobre' - Qu a ao. (v.Tbsmpiladah * permite abru ut2o{ :ro3pro /Run3p 'DLP -Has em v.HLP -x ]F1I Minigam ula 1qlas : < (ou , e .) -o -ragnsh 4e (| serodR 4e ( S e - pontosk - g 5 t}G-Lispro macao, com{sportugues. 'GLP -Das em ]GLP-CNC Com Numeros Complexos Versao avda do AlP * mais{s e operad~ * utiliza variaveexas,a a;bi (2;3i52+3is#m retornar valorsYs, dldcl * vet~ * ajuda maeta (comando AJUDA * ponte}Gorills /Microsoft Jog 2^es,lumra bananas explosivodigin lo e velocidadetiro.Hanoi(o Torre Hanoi"er a pilh discos\ino movendo dea vez;| colocaro maior sobrer"dir no minimo deimentos.IFS.B Gera fy)-6Up - Diminui zde6Dnumenta  pion vos[ovo IFStegral.be integralUaufun 7 - parte8 realiza osys Integral.Tmp -F temporacripor9s; cpi 7, acrescida dasK digitadas em9sJH(o Heuristicodr ek1) CriarnovoF -aF5um jogok2) Us2ostente, ou seja, jogar nsiste eM *o cr tenta adivinhar ne o^ pensandor meiok de *jogador Sim ou Nao as-Exemplo:(JHS O^ pensa emcoelho (porN) kCr:u;ogadorTem jub;E' o camelDesisto, e er;: C: Cri_rgunta faa a distinaeo camelo e J: Tem corcova (obs:# colocp de irogaao) .> -Criacao deFs .JH (opcao 1o ndoF (sem a extensao - .JHa perguntrl,aa afirmativa e=negativak(No JH, corm a :ua,a baleia,o leao) '?s (deveterassunto:animnumeros... Animais.?I Fractal ,1ao8 Fractint (Vej fimteF, PS 2 (fractais) ) - reprtpor letra (A-P)@andama reta; -mudam de daondo encontram obstaculo; -o^ deve fazer com o maximo de chegue a toca (#), impedindo-os de caiorac@m receberK, :k* andark*quear (rAonstruir poouada (obs:depois de 5cos * explodir (comtagem de 5 segundosAavareou pbaixo/freE *alarf (obs:se numi por cima o passaiveis de 0 a 9; -a pontuacao:k salvo Pontos ganhosk16 100k12-1550k8-11 10k4-7 0k1-3 -10k0 -50 -teckLetra - o LemmingkNumero - a funcaoD 4Br pD 2, bastclar 2F 6Br o C pC 6claC k airLimite.Be limitesaCf(xS Lim ---- , x teno a NCg(x -Da f g NW T ( /livro Jogo (usuario X computador) (  - d um salto de 20 linhas ( ======================================$ (Veja no fim deste arquivo, PS pela tela durante o jogo =========================== PS sequencia de caracteres horario a o fractal Mandelbrot,   - para os lados alto de 5 linhas  Teclas : Home -  - Cair Del - Esqe  Itens :  (nao funciona bem) s - Jogo da velha ems ----  .bas Jogo de - ponto  -o jogador  A e D - para baix3 (biblioteca .Q * Nao pode ogos gravados  Anglecoes: =gira no sentido Limite.Clc o criado por 2 (fractais) .bas Jog . Nibbles 2 jogadores linha s ponto o jogador p assar por el a: que estiver * s que se des eclas: o pode ser us - sair pessoas Fractal skate * End PgDn - D ecordes jogo a uma caixa a simples Turbo Basic substituico ) Ang Axioo progra calculos  Limite. arquivo ] .bas  jogador que uma pela te Deve-seros que parece um numeroe cada u. Quem t o ultimaparecem p/  do jogo.bas  semelhao origin eletron)  -Barrcomponen:  de fase  perde 1 salto do normal - bomb qualquee para a W  para ci pontos de tempo na tela Plasma Calcula bibliot program .BAS esquerdaa * amente,  gravada [  Tetrix disquet Vel complexao ponto => 360/a p/ freo angulo e o pon - pa qua os temorar umaia dcresida das funcoes igitMandcao  ) inho, em linla, entao ar ta rea o . atal.basdos nume m deair  de  Jogo p/, que de pegar oganhar ponto Uma verao, ificada por es  Nimm qutos ser  detirarnte  algor e mai simOrgao orta des a blinh Tecnser P Delas  Pi Pix()  movassaa 1  - ca umchaoaixo podapagado  *  entois tipo  no raio caseto esseode  60  bloandoocad vir - s Sela spacont 10  3 vo^e -fma^o >airgao pr]; -hs empos R novos [tesi;xie2Gi 24PixFight luta p/$ jj25smaongG Pi-po ot2Gk potence 2 viad arq. Re.TxtQBLinkG Aclman -ivWal fica.BAKL) SimGenG Simul Genet-ula populade seres icruzant SK8G Minigam6Krar nasas superiores ordem (odta)ating''skpar laoufmanao haja outro6 Sms30 seg._ vidpOsgsao o nsegs. pdos * Cima7- B^Del - Esq.8ir SurivG Da-se palavra, e Ama a escreve ao rri TralG Desenhmetodo tral. Tetrix"o Tetris * Registra r9* Dmodulos : Bas, Extend (na tR amostraspeas) * Onze jogos (0 Y 0 Normal^1 O jogo comea c/unscos j coloC 2 barra p 3 Duas barras pm 4 A telae-sd o a cvezI pea scaixa^5 Aleatoriqumaha invertdurao: 6 1,4^7 0,2,4^8 0,3,4^9 1,2,4 1,3,4 * Moecr"Auto" +la secretpT0 Home - G,Atiru Apagar (conforme a pea)7 uerda8ta^Esc - Sair^F5 - Salvar: F6 -ar partidar^P}ausa ( para inuar)s t.HSc - R9Tetrix.Sav - Dasobre jt.Sv? - J ]Tzing"o Tzing OH deveoos ps,minimo h. ba; cri;ao explodir, osgem seu camp1para vocְ}arede/gastam qdo. t-se p* S End . PgDn - Dir.^Eo - liga/deslig Correr^Esc3 No finalT, aMma classaa Velha"o da velhaVetrisG MistoJogo-da-velha e Tetris, para duas4WS-CalcGnilhaXic< -Basenaguagemta-Lispr -Per erross *.WSC}lanilhasrs WS-Calc.HLP - AjudaF WSCCPG WendelSoftkdora Cienta ProgramavelXtraCopyG CopiaEsumu outro,mesmo drive (A:) Oma pede para iir, alternadqoue-origem e ue-destino.1 (Turbo Basic): OsEs .TBS saosp/= demasn Px:vha.Ba QBasicvha.Tb=!:5 elbrot\cpi (rowo) ; a te' (-2,-1.5)-(2,1.5Y z=p,c=( z=z*z+c^repete-se a formula |z|^2 > 4 ou qtd. deBs>150^se qtd. > 150x=cor 1^senx = (resto da divisao qtd./4)5 L-System^define-se um angulo\ex: 6y6 =>graus 4y4 => 90 grauC axiom,atribuitransforma caractersequencia^iteraquantas vezes se faz as>e comanna ^ F=znte G=andznte, sesenhar + anti- -  !=trocsignado+ e - |=t g 180 graus, atraves d{ definido [=armazena {|to numa pilha,usar depois ]=remove o ang.|to da pilha e usa cr outra letra nao mas2adaS >eswa exemplos ^1?le 6@m F^F=F+F--F+F ^2?le 8@m Fx^F=^y=+fx--fy+^x=-fx++fy- ^3?le 3@m fxf+ff+ff^f=ff^x=+fxf-fxf-fxf+L) SaoEsVntes aosn Inventei a extensao (QBasic Library) paraEs em funuteiseem usaem outrosmas. * .TBL = Bibliotpara= ($Include "ivo.TBL") Indiclec Box.QL Box Linha1,Coluna1,Linha2,Coluna2,Expr$,F^Desenh;na tela^-Se Expr$=""caixa e' deh<$==================================== " 122223 8 -Expr$="123454 766665  item *E Defi selecionado -s MenuRead retorna  a cMenu  menNormFrenFund,Sel ite678 umL -Se F nao-zero, entao aixa preenchida99999Senao  .QL Sistema deu Color te,oteone or dosns normais ePrompt Linha,Coluna,NomeDoItem$nem dou  Executau e om Teclas: *Setas selecionamnter confirma osc cancela ( 0) Ex: k= ====