=======================================¢FLOP 14 - popis program+¢=======================================¢¢POPKAZ.TUR¢¢Program slou() k vytv*@en) a tisku popisek kazet. Bli(&) popis je uveden p@)mo v programu. P+vodn) program m%l ochranu heslem. Tu jsem si dovolil odstranit.¢¢---------------------------------------¢BASWRIT.TUR¢¢Program pro generov*n) text+ do BASIC @*dk+. Bli(&) popis v programu.¢¢---------------------------------------¢DELENI.TUR¢¢V`uka d%len).¢¢¢---------------------------------------¢HODINY.TUR¢¢Program simuluj)c) na obrazovce hodiny.¢¢¢---------------------------------------¢UKAZKA.CAP, HAPPY.CAP¢¢Uk*zka tisku obr*zku vytvo@en[ho programem CAPPIC.TUR¢¢¢---------------------------------------¢RDVIEW.COM¢¢Tento program je ur'en k prohl)(en) obsahu bank roz&)@en[ pam%ti. Program si s*m zjist), kolik bank pam%ti m*te. Po jeho spu&t%n) se zobraz) obrazovka s v`pisem pam%ti. Program reaguje na stisk t%chto kl*ves:¢¢- ... posun o @*dek nahoru¢= ... posun o @*dek dol+¢CTRL - ... posun o obrazovku nahoru¢CTRL = ... posun o obrazovku dol+¢⇩ ... posun o 256 bajt+ nahoru¢✓ ... posun o 256 bajt+ dol+¢H ... p@echod na za'*tek banky ╱◆4000$¢B ... zm%na banky¢M ... nastav) na m)sto banky norm*ln) pam%④ ╱je evidov*na jako banka s kdem 13$¢F ... p@epnut) do standartn) znakov[ sady a zp%t¢Q ... ukon'en) pr*ce s programem¢TEB ... p@ep)n* mezi zobrazov*n)m intern)ho a ascii kdu¢¢R.Kudla¢United Electronic Crazies¢¢¢---------------------------------------¢BTXE1.COM¢¢Vynikaj)c) driver simuluj)c) na tisk*rn% BT 100 'innost tisk*rny ATARI 1029. Program se d* pou()t i s Turbo Basicem, ⇨apkem atd., proto(e se ukl*d* do roz&)@en[ pam%ti 130 XE. Toto je upraven* verze, kter* se d* pou()t v d*vkov`ch souborech.¢¢¢---------------------------------------¢H1029CS.BAS¢¢Program pro tisk obr*zku na tisk*rn% ATARI 1029 z anglick[ho magaz)nu Page#6 jeho( autorem je John Morgan. Um) tisknout obr*zky 5 r+zn`ch form*t+ ve 'ty@ech velikostech. Program je upraven pro mo(nost inverzn)ho tisku a opat@en 'esk`mi texty.¢¢Ladislav Bezchleba¢¢¢SEP510.CAP, SEP510.HC, DEMOLIST.LST, PISMA.LST, SCHEMA.PIC¢¢⇨l*nek a uk*zkov[ programy, kter[ ukazuj) pr*ci s tisk*rnou SEP 510. Programy s p@)ponou .LST se musej) do BASICu nahr*t pomoc) p@)kazu ENTER "D:jm[no.LST". SCHEMA.PIC je obr*zek ukazuj)c) zapojen) konektor+ tuto tisk*rnu. SEP510.HC je program pro HARDCOPY.¢¢=======================================¢Druh* strana diskety¢=======================================¢¢GENMBAS.BAS¢¢ Ur'it% u( se v*m n%kdy stalo, (e jste pot@ebovali pou()t v BASICu strojov` kd. K ulo(en) strojov[ho kdu se v%t&inou pou()vaj) DATA-@*dky nebo @et%zce nebo je mo(no strojov` kd p@ihr*t nap@. z disketov[ jednotky. J* jsem se ov&em dostal do situace, kdy ani jedna z t%chto mo(nost) nevyhovovala. Pot@eboval jsem vytvo@it program pracuj)c) s magnetofonem ╱p@ihr*v*n) je slo(it[$, kter` by pou()val n%kolik znakov`ch sad ╱11 sad=11KB$. Pou(it) @et%zov`ch prom%nn`ch je nevhodn[, proto(e znakov[ sady pak zab)raj) dvojn*sobek pam%ti - jednou v programu a podruh[ v @et%zov[ prom%nn[. U DATA-@*dk+ je to dokonce 3-5-ti n*sobek. Nav)c je program d)ky velk[mu mno(stv) @*dk+ s @et%zci nebo daty velice m*lo p@ehledn`. Hledal jsem tedy zp+sob, jak ulo(it data a strojov` program tak, aby byly p@i "vylistov*n)" programu v BASICu neviditeln[, ale p@itom se nahr*valy spolu s BASIC programem. Nakonec jsem zjistil, (e nejlep&) m)sto pro ulo(en) je mezi tabulkou n*zv+ prom%nn`ch a tabulkou hodnot prom%nn`ch - ty se toti( ukl*daj) p@i nahr*v*n) z*rove s BASIC programem. K tomu je ov&em t@eba vytvo@it mezi ob%mi tabulkami voln` prostor.¢ Pro tento ]'el jsem napsal program GENMBAS.BAS. Po spu&t%n) se n*s program nejd@)ve zept* na to, kolik m)sta budeme pot@ebovat pro strojov` program nebo jin* data. D*le n*m nab)dne mo(nost p@)mo si do tohoto m)sta ulo(it sv+j strojov` program. Pokud se pro tuto mo(nost rozhodneme, mus)me zadat jm[no souboru ╱v'etn% jm[na za@)zen)$, kde je strojov` program ulo(en. Nakonec zad*me jm[no souboru, do kter[ho se ulo() takto vytvo@en` z*klad BASIC programu. Ten pak m+(eme nahr*t pomoc) p@)kazu LOAD ╱resp. CLOAD$. P@i v`pisu pomoc) p@)kazu LIST se nic nezobraz), p@esto m*me nyn) vytvo@en mezi tabulkami voln` prostor. Po'*tek tohoto voln[ho prostoru lze v(dy vypo')st pomoc) PEEK╱132$⇩256✓PEEK╱133$⇩1. Do takov[ho z*kladu pak dop)&eme sv+j program ╱resp. p@ihrajeme pomoc) ENTER, pokud ho ji( m*me vytvo@en`$. Cel` program v'etn% strojov[ho m+(eme nahr*t pomoc) SAVE ╱resp. CSAVE$. LIST nen) mo(no pou()t - ulo(ili bychom pouze BASIC program. Nev`hodou tohoto zp+sobu ulo(en) strojov`ch program+ a jin`ch dat je jedna - d* se pou()t pouze pro relokativn) programy, proto(e konkr[tn) adresa um)st%n) z*vis) jednak na MEMLO a taky na mno(stv) a d[lce n*zv+ prom%nn`ch pou(it`ch v BASICU.¢ Jako uk*zku uv*d)m program STDEMO.BAS. Popsan`m zp+sobem je zde ulo(en zn*m` program SUPERTEXT ╱popis nap@. Atari zpravodaj Olomouc 3-4/1988$, 11 znakov`ch sad, kr*tk` program pro spr*vn[ um)st%n) znakov`ch sad a kr*tk` program pro rychl[ nahr*v*n) nov`ch znakov`ch sad. Demonstra'n) BASSIC program pak obsahuje:¢10-20 inicializace¢1000-3000 vlastn) demo-program¢20000-29999 stru'n` popis v REM @*dc)ch¢30000 vol*n) SUPERTEXTU¢30800-30900 nahr*van) jin`ch znakov`ch sad¢31000-31100 inicializa'n) podprogram¢ Mnoho ]sp%ch+ p@i pou()v*n) programu GENMBAS.BAS p@eje Ivo Ko&④*l, Kate@inice 137, 742 61 p. Trn*vka.¢¢¢---------------------------------------¢STDEMO.BAS¢¢Program demonstruj)c) mo(nosti GENMBAS.BAS.¢¢¢---------------------------------------¢OBSAHXY.TUR¢¢ program slou() k v`pisu obsahu diskety na voln[ listy A4 pro pot@eby p@ehled+ apod. Program vznikl ]pravou programu B. Letochy TIDINAXY.¢¢¢---------------------------------------¢CAPEK.EPS, KODYTIS.CAP¢¢⇨apek, kter` tiskne na tisk*rn*ch EPSON pomoc) DOWNLOADu. V textov[m souboru KODYTIS je tabulka @)d)c)ch kd+ pro tisk*rnu STAR/LC-20.¢¢¢---------------------------------------¢PLANETAR.TUR¢¢P@edv*d) hv%zdnou oblohu v kter[mkoliv m)st% na Zemi a v kteroukoliv dobu. Zobrazuje "okno" v rozsahu 100 stup+ horizont*ln% a 50 stup+ v`&kov%. Pod 'arou obzoru se poka(d[ vyp)&e sv%tov* strana a zleva doprava nastaven[ datum, 'as, zem%pisn* d[lka ╱D$ a &)@ka ╱S$. Zobrazuje pouze hv%zdy, jin[ objekty nikoliv. V&echny ostatn) informace jsou uvedeny v ]vodn) obrazovce programu.¢¢Petr Trnka¢¢¢---------------------------------------¢EFEM1.TUR¢¢Program po')t* rektascenzi, deklinaci, ekliptik*ln) d[lku a &)@ku Slunce, M%s)ce a planet k zadan[mu okam(iku. Je pou(ita line*rn) interpolace hodnot rovn)kov`ch sou@adnic, zad*van`ch z Hv%zd*@sk[ ro'enky. Vstupy i v`stupy jsou v &edes*tinn[ m)@e ve form*tu stupn%.minuty ╱vte@iny$, resp. hodiny.minuty ╱sekundy$ u rektas- cenze. V`stup je mo(n` na obrazovku i na tisk*rnu.¢¢Petr Trnka¢¢---------------------------------------¢METEORY1.BAS¢¢Program je ur'en aktivn)m pozorovatel+m meteor+, kte@) pozoruj) bez dalekohledu. Vznikl na z*klad% pozorovatelsk[ho programu brn%nsk[ hv%zd*rny z prvn) poloviny osmdes*t`ch let a slou() k vyhodnocov*n) z*kres+ meteor+ v gnmonick`ch map*ch ╱k ur'ov*n) radiant+ jednotliv`ch meteor+$. Pracuje metodou zp%tn`ch projekc) drah a ur'uje, zda p@i t[to zp%tn[ projekci proch*z) dr*ha meteoru ur'itou plochou ╱oblast), radiantem$, vymezenou jej)mi rovn)kov`mi sou@adnicemi a polom%rem ve stupn)ch. Om%@ov*n) z*kres+ je mo(n[ bu⇦ pr+svitkou se s)t) rovn)kov`ch sou@adnic, nebo v pravo]hl[ sou@adn[ soustav%. V druh[m p@)pad% program vy(aduje zad*n) polom%ru koule, ze kter[ se realizuje gnmonick* projekce. Pro v polovin% 80. let b%(n% pou()van[ gnmonick[ mapy o rozm%rech 300 x 300 milimetr+ byl tento polom%r 120 mm.¢¢Petr Trnka¢¢---------------------------------------¢DOMYPR.TUR¢¢V`po'et astrologick`ch dom+ metodou Placidovou a Regiomontanovou. Vstupy i v`stupy jsou v &edes*tinn[ m)@e.¢¢Petr Trnka¢¢---------------------------------------¢CAPPIS.TUR¢¢CAPPIC.TUR Je progr*mek v Turbo BASIC, kter` naform*tuje obr*zek GR.24 pro tisk na tisk*rn% K6304 programem ⇨APEKEPSON. Obraz je ti&t%n vycentrovan`. P@ed tiskem obr*zku je tisk*rna p@epnuta na jednostran` tisk a po vyti&t%n) obr. zase zp%t na oboustran` tisk. Pro tisk k lev[mu a nebo prav[mu okraji je t@eba upravit p@)kaz PRINT na @*dce 340, zm%nit po'et mezer. Na m)sto t%chto mezer se d* k obr*zku p@idat i text, kter` se m+(e na')tat z DATA @*dk+ a nebo z disku, program si ka(d` jist% dotvo@) podle vlastn)ch p@edstav.¢ Karel H*jek¢¢¢---------------------------------------¢TRAIN.COM¢¢¢Velmi p%kn* demonstra'ka od firmy BEWESOFT.¢¢ Anton)n Bern*&ek¢¢---------------------------------------¢¢¢
