¢----------------------------------------¢VBI.BAS¢----------------------------------------¢¢ Program, kter` prov*d) plynul` posun textu po obrazovce. Text je zobrazen v gr. 2. M+(ete ho vyu()t pro instrukce a pokyny ve sv`ch programech. Program u()v* Vertical Blank Interrupt ╱VBI$, kter` m+(e b`t vyu()v*n pro animaci, nebo gragiku. Proto pozor na u(it) programu VBI. Program tak[ u()v* vlastn) Display List, proto je t@eba postupovat opatrn% p@i ]prav% programu. Program pracuje se &estou str*nkou pam%ti, tak(e je t@eba upravit v*& vlastn) program, jestli(e by se m%ly p@ekr`vat n%kter[ registry v t[to oblasti. Dal&)m omezen)m je barvov` registr 708. Pokud mo(no nepou()vejte tento registr v grafice ve zb`vaj)c) '*sti obrazovky.¢P@i psan) textu vlo(te nejd@)ve alespo 20 mezer nebo jin`ch symbol+, aby nedo&lo k rychl[mu ]niku textu a k neplynul[mu navazov*ni za'*tku a konce textu. Proto dejte tak[ na konec 20 mezer.¢Jestli(e chcete m)t text ve spodn) '*sti obrazovky zm%te n*sleduj)c) @*dky:¢¢150 DATA 112,112,66,255,255,2╱20kr*t$,240,87,255,255,65,255,255¢¢40 zm%te: POKE DL⇩6,PEEK╱88$ na POKE DL⇩3.PEEK╱88$ a POKE DL⇩7,PEEK╱89$ na POKE DL⇩4,PEEK╱89$¢¢130 zm%te: POKE DL⇩2,STL na POKE DL⇩L-4,STL a POKE DL⇩3,STH na POKE DL⇩L-3,STH¢¢190 X=USR╱1536,DL⇩L-4$¢DL je startovac) adresa Display Listu, L je delka Display Listu a STH,STL jsou adresy za'*tku zpr*vy.¢¢Pro ukon'en) stiskn%te bu⇦ RETURN nebo prove⇦te n*sleduj)c) p@)kazy:¢POKE 54286,64¢POKE 546,95¢POKE 547,228¢GRAPHICS 0¢¢----------------------------------------¢BOMBS.TUR¢----------------------------------------¢¢ Jednoduch* hra pro jednoho hr*'e. ⑤kolem je zni'it cel[ m%sto a p@ist*t. Bomby se h*z) mezern)kem, hru lze p@eru&it ESC. Rychlost hry od 1 ╱pomal*$ do 10 ╱rychl*$. Program je ops*n z knihy THE ATARI 600 XL PRAGRAM BOOK od PETERa GOODEa.¢¢----------------------------------------¢PARTNERI.TBA¢----------------------------------------¢ Program pro v`pis vhodnosti partner+ z hlediska biorytm+. V`sledky lze vytisknout na tisk*rn%.¢¢¢----------------------------------------¢KODOVANI.BAS¢----------------------------------------¢ Jednoduchy program pro kdov*n) zpr*v podle dohodnut[ho kl)'e. Pro kdov*n) zad*me na za'*tku ')slo vet&) ne( 0, pro dekdov*n) men&) ne( 0, pro konec 0.¢ P@)klad: ¢ Kd: 64829¢¢¢----------------------------------------¢HIGHSORT.BAS¢----------------------------------------¢ Program velmi rychle t@)d) zadan* data. T@)d%n) je prov*d%no srtojov`m podprogramem. Zad*me kolik znak+ maj) m)t @et%zce, od kter[ho znaku chceme t@)dit, a po kter` znak chceme t@)dit. Zad*v*n) se ukon') ✓. Program je ops*n z po')ta'ov[ho magaz)nu.¢¢----------------------------------------¢ROZKAZ.BAS¢----------------------------------------¢ Velmi zaj)mav* hra, zalo(en[ na kni(n) verzi hry. Hra je textov*, na vstupu po(aduje zvolenou volbu a uveden[ nab)dky, nebo generuje dal&) postup nahodn%. Hra je dobr* pro v&echny.¢¢----------------------------------------¢FORMAT PRO⇩ 1.0¢----------------------------------------¢ P@i tvorb% programu, jsem vych*zel ze dvou p@edpoklad+.¢1$ Nej'ast%ji pou()van` opera'n) syst[m i p@es zna'n[ nedostatky je DOS 2.5.¢2$ Maxim*ln% zjednodu&it pr*ci p@i form*tov*n) v%t&)ho mno(stv) nov`ch disket.¢Kdy( jsem se rozhodl naform*tovat i jen n%kolik nov`ch disket a sou'asn% na n% instalovat i DOS.SYS a DUP.SYS ╱v p@)pad% stot@ic)tky i RAMDISK.COM$, str*vil jsem nad t)m p%knou chv)li. Nejprve nahr*t DOS, potom volba I, n*sledn* odpov%⇦ D1: potom kontroln) Y a teprve nyn) za'ala jednotka form*tovat. Pokud jsem cht%l instalovat DOS, znamenalo to d*le stla'it H, potom D1: a nakonec op%t kontroln) Y. O nahr*v*n) RAMDISK.COM, ji( ani nemluv%.¢Program FORMAT PRO⇩ 1.0, pomoc) jedin[ho tla')tka naform*tuje disketu v roz&)@en[ hustot% na jednotce D1: a ihned maxim*ln) rychlost) ╱t@ikr*t rychleji ne( volba H z DOSu$ instaluje soubory DOS.SYS, DUP.SYS a RAMDISK.COM.¢¢H*jek Pavel, Jablonec n/N¢¢----------------------------------------¢BASOFT.COM¢----------------------------------------¢ Proto(e n*m autor tohoto progr*mku omylem poslal star&) verzi, kter* 'etla pomalu z diskety a nep@esn% ur'ovala d[lku programu v turbu ╱byla i s popisem zve@ejn%na v 11.')sle FLOPu$, uve@ejujeme zde novou verzi programu, ve kter[ jsou ji( tyto chyby odstran%ny.¢¢¢----------------------------------------¢INDYJON.TUR¢----------------------------------------¢ Textov* hra v Turbo Basicu. Je pom%rn% zna'n% komplikovan* a ur'it% se s n) dob@e pobav)te. Del&) vysv%tlov*n) nepot@ebuje, proto(e v&echno je vysv%tleno p@)mo v programu.¢¢╱c$ Rudolf Kudla¢ United Electronic Crazies¢¢¢----------------------------------------¢MACDATA.TUR¢----------------------------------------¢ Ka(d`, kdo p)&e programy v assembleru pomoc) p@eklada'e MAC/65 a pot@eboval u( n%kdy ke sv[mu programu p@ipojit n%jak* data ╱obr*zek, znakovou sadu atp.$ jist% v), jak` je to probl[m. MAC/65 toti( nedisponuje dokonce ani instrukc), kter* by umo(ovala nahr*t tato data alespo od ur'it[ adresy v pam%ti. Vytvo@il jsem proto program, kter` p@ev*d) data do zdrojov[ho textu pro MAC/65.¢ Po spu&t%n) se v*s program zept* na jm[no zdrojov[ho souboru. Zadejte tedy jm[no va&eho souboru, kter` obsahuje data ╱v'etn% za@)zen)$. Potom mus)te zadat jm[no c)lov[ho souboru, do kter[ho se bude zapisovat v`sledn` program pro MAC. Tento n*zem mus) b`t odli&n` od p@edchoz)ho n*zvu. Pak mus)te je&t% zadat ')slo prvn)ho @*dku programu a krok ')slov*n). ╱doporu'uji 10, 10$. Pak za'ne program pracovat. Pr+b%(n% ukazuje ')slo @*dku, kter` pr*v% zpracov*v*. Kdy( skon'), ozn*m) v*m, kolik dat bylo p@evedeno.¢ Nyn) m+(ete nahr*t MAC a nahr*t do n%j program pomoc) p@)kazu ENTER #filename.¢¢----------------------------------------¢PRGRAF.BAS¢----------------------------------------¢ Program, kter` v*m umo(n) kreslit r+zn[ geometrick[ obrazce bu⇦to podle zad*n) nebo n*hodn%.¢¢----------------------------------------BELL.BAS, BELL.LST¢----------------------------------------¢ Velice 'asto se st*v*, (e chceme v programu doprovodit vyps*n) n%jak[ zpr*vy, chybov[ho hl*&en) atp. zazn%n)m n%jak[ho zvuku. Velmi p%kn% zn) zvuk zvonu. Probl[m je v tom, (e program se t)m zdr(uje a proto je nevhodn[ takto oznamovat nap@. ukon'n) n%jak[ho meziv`po'tu v opakovan`ch v`po'tech a podobn%. Tento probl[m za v*s vy@e&) kr*tk* rutinka ve strojov[m kdu, kter* neh* zazn)t zvonek pod p@eru&en)m. V*& program v Basicu tedy pob%() d*l. Cel* instalace je na jedin[m @*dku. To je velice v`hodn[ z hlediska um)st%n) v programu. Spust)te-li BELL.BAS, usly&)te tuto rutinku v akci. A( tuto rutinku spust)te, budete moci kdykoliv spustit zn%n) zvonu zaps*n)m p@)kazu POKE 204,15. Hodnota, kterou na adresu 204 zap)&ete m+(e b`t v rozsahu 0-15. ⇨)m men&) ')slo, t)m krat&eji a ti&eji bude zvon zn)t. Hodnotou 0 vypnete zvuk zvonu ]pln% ╱pokud zrovna zn) n%jak` p@ede&l`$. Pokud na tuto adresu zap)&ete d@)v, ne( skon') zvuk p@ede&l[ho zvonu, za'ne bez ohledu na to zn)t zvon nov`. Na adrese 1550 si m+(ete volit v`&ku hlasu zvonu. Hodnota m+(e b`t v rozsahu 0-255. Kone'n% na adrese 1550 si vol)te d[lku zn%n) zvonu, kter* nem* vliv na hlasitost. Hodnoty mohou b`t od 1 do 255, ale ji( p@i hodnot% 10 se dost na'ek*te, ne( zvon skon').¢ Pod jm[nem BELL.LST je ulo(en listing t[to rutinky jako @*dek s ')slem 0. M+(ete ho tedy velice elegantn% p@ihr*t k va&emu programu p@)kazem ENTER "D:BELL.LST".¢¢╱c$ 1991 Rudolf Kudla¢United Electronic Crazies¢¢========================================¢Druh* strana diskety¢========================================¢¢¢----------------------------------------¢TELESA.TUR¢----------------------------------------¢ Dan` program, slou() pro v`po'et povrchu a objemu 'ty@ t%les╱v*lec,krychle,koule,'ty@bok` jehlan$.Program se jmenuje T
LESA a pracuje s tisk*rnou BT100.¢¢Nahr*n) programu:¢----------------¢ 1.Nahrajeme program z FLOPu 1 pod n*zvem BT25D.BAS.Po nahr*n) programu BT nap)&eme RUN a nahr*v* se dal&) program z t[ sam[ diskety╱FLOP 1$.¢¢ 2.P@ejdem do DOSu a nahrajem TBASIC.¢ 3.Po kompletn)m nahr*n) m](eme nahr*t program T LESA.TBA.¢¢Funkce programu:¢---------------¢ Program funguje dle z*kladn)ho menu a se zapnutou tisk*rnou.Podle menu si vyberete operaci,kterou chcete prov*d%t.¢¢╱c$ Pavel Paprsk*@¢¢----------------------------------------¢SKMATIKA.BAS¢----------------------------------------¢ Program na zkou&en) z*kladn)ch matematick`ch operac) ╱s')t*n), od')t*n), n*soben), d%len), d%len) se zbytkem$. Po zvolen) zkou&en[ aritmetick[ operace se dohraje jedna z p@)slu&n`ch '*st):¢¢MAT2SC.BAS, MAT2OD.BAS, MAT2NAS.BAS, MAT2DEL.BAS, MAT2DZV.BAS, SKUSKY.BAS¢¢----------------------------------------¢BIGHOUSE.COM¢----------------------------------------¢ Hra ve stylu JET SET WILLY. Je d)lem Anton)na Bern*&ka a pova(uji ji za pom%rn% zda@ilou ╱v porovn*n) s JET SET WILLY ur'it% - jen tak d*l$.¢¢----------------------------------------¢TASDUM.BAS¢----------------------------------------¢ Program, kter` v*m umo(n) '*ste'n% p@edefinovat kl*vesnici ╱numerick` blok, z*m%na Z a Y atd.$¢¢----------------------------------------¢PRUMBOD.BAS¢----------------------------------------¢ Program, kter` demonstruje pou(it) pr+m%rov*n) barev ╱m*m ten dojem, (e odborn%ji se tomu @)k* interpolace$. Co to je, uvid)te po jeho spu&t%n). Rychleji v*m to v&ak uk*(e zkompilovan* verze PRUMBOD.COM ╱kompilace byla provedena MMG BASIC Compilerem$. Program v BASICu je p@ilo(en proto, abyste se mohli pod)vat, jak se interpolace d* naprogramovat.¢¢----------------------------------------¢GRAFIKA.BAS¢----------------------------------------¢ Program, kter` demonstruje mo(nosti osmibarevn[ grafiky a p@ep)n*n) jednotliv`ch barev. Je obzvl*&t% vhodn` pro barevn[ televizory.¢¢----------------------------------------¢FARAON.COM¢----------------------------------------¢ Velmi p%kn[ demo polsk[ v`roby. Efekty na obrazovce m+(ete ovl*dat pomoc) kl*ves OPTION, SELECT, START a HELP. V DOSu 2.5 m+(ete toto demo spustit z BASICu pomoc) zavad%'e FARAON.BAS. Tento zavad%' stoj) jist% za prohl[dnut).¢¢
