+ԍԢ+L012,345 %@L2!01 aL% a201 a26 a26LD232435hh` HyH ɩ өHTHjjL()zQQ)ARBh(B pP@QPB p     A %(@&B7ip BA@1AfAXH6-F:A,&@TA^+pAYcJ6-?:C: hhhhh֢ԑ`,<A$$AV<$AV,VAVc;@@,;AC,6.hhhhhhhͥ˥̠e˅ːȱϱ00,H eh80eυȘHϑhȠϑΠe˅ːЩ`116-?:C:,<@0<@<$AV%A,116-?:C:,<@1<@<$AV%A@,116-?:C:,<@2<@<$AV%Av,116-?:C:,<@3<@<$AV%A, 116-?:C:,<@4<@<$AV%A, 116-?:C:,<@5<@<$AV%A`, 116-?:C:,<@6<@<$AV%Ad, 116-?:C:,<@7<@<$AV%A, 116-?:C:,<@8<@<$AV%A(,116-?:C:,<@9<@<$AV%A,116-?:C:,<@@<@<$AV%A(,116-?:C:,<@Q<@<$AV%AH,116-?:C:,<@T<@<$AV%Av,116-?:C:,<@b<@<$AV%Ar,KAY@4'AR@9AKA 0,60,102,192,124,6,254,0!!0,198,198,214,254,238,198,0 0,56,108,198,198,108,56,0!!!0,120,108,108,124,102,102,0"!!1,249,205,205,205,205,253,1#!!0,198,198,238,254,214,198,0$ 0,60,110,206,206,2,118,0% 0,60,102,192,220,198,124,0&0,254,48,48,48,48,254,0' 0,60,102,192,192,224,126,0(!!1,1,255,255,255,255,255,255)0,0,0,0,0,0,0,1*2,7,15,31,61,125,253,253+!!0,0,128,192,224,240,248,252,1,1,1,1,1,1,1,1-%%253,253,253,253,253,253,253,253.%%254,254,254,254,254,254,254,254/%%252,249,252,248,242,243,248,2550""126,62,126,254,30,62,158,2541%%254,254,255,255,255,255,255,2552%%254,254,254,254,254,254,254,25430,0,1,1,1,1,0,04##0,255,128,255,255,128,255,12750,252,6,254,254,6,252,24860,127,127,63,31,15,7,37##0,252,252,248,240,224,192,12883,7,15,31,63,124,248,2409""0,128,192,224,240,248,124,62:240,248,124,63,31,15,7,3;""62,124,248,240,224,192,128,0<1,0,0,0,0,0,0,0=!!0,0,255,255,255,255,255,255>0,0,0,16,0,0,0,0?0,0,16,56,16,0,0,0@0,0,56,56,56,0,0,0A0,16,56,124,56,16,0,0B16,16,56,254,56,16,16,0C1,1,1,17,1,1,1,1D1,1,17,57,17,1,1,1E1,1,57,57,57,1,1,1F1,17,57,125,57,17,1,1G17,17,57,255,57,17,17,1d0,62,99,99,127,99,99,0e0,126,99,126,99,99,126,0f0,62,99,96,96,99,62,0g0,124,102,99,99,102,124,0h0,126,96,124,96,96,127,0i0,127,96,124,96,96,96,0j0,62,96,103,99,99,62,0k0,99,99,127,99,99,99,0l0,63,12,12,12,12,63,0m0,127,3,3,3,99,62,0n 0,102,108,120,108,102,99,0o0,96,96,96,96,96,127,0p0,99,119,127,107,99,99,0q0,99,115,123,1,103,99,0r0,62,99,99,99,99,62,0s0,126,99,99,99,126,96,0t0,62,99,99,99,102,59,0u0,126,99,99,99,126,99,0v0,62,96,62,3,3,126,0w0,127,24,24,24,24,24,0x0,99,99,99,99,99,62,0y0,99,99,99,54,28,8,0z0,99,99,107,127,119,99,0{0,99,54,28,28,54,99,0|0,195,102,60,24,24,24,0}0,127,6,12,24,48,127,0~0,0,0,0,0,12,12,120,62,99,1,123,99,62,00,12,28,12,12,12,63,00,62,3,62,96,96,127,00,63,6,14,3,99,62,00,14,30,54,102,127,6,00,127,96,126,3,99,62,00,62,96,126,99,99,62,00,127,3,6,12,24,24,00,62,99,62,99,99,62,00,62,99,99,63,3,62,00,7,28,54,51,63,51,510,54,30,51,48,48,51,300,27,44,54,51,51,54,600,0,62,3,63,99,63,00,96,126,99,99,99,126,00,0,63,96,96,96,63,00,3,63,99,99,99,63,00,0,62,99,127,96,63,00,31,48,48,48,124,48,480,0,63,99,99,63,3,1260,96,126,99,99,99,99,00,12,0,28,12,12,30,00,3,0,3,3,99,99,620,96,110,120,108,102,99,00,28,12,12,12,12,30,00,0,119,127,107,107,99,00,0,126,99,99,99,99,00,0,62,99,99,99,62,00,0,126,99,99,99,126,960,0,63,99,99,99,63,30,0,126,99,96,96,96,00,0,63,96,62,3,126,00,24,63,24,24,24,15,00,0,99,99,99,99,63,00,0,99,99,54,28,8,00,0,99,107,107,127,119,00,0,51,30,12,30,51,00,0,99,99,99,63,3,1260,0,127,6,28,48,127,06,12,62,3,63,99,63,027,14,63,96,96,96,63,027,7,63,99,99,99,63,054,28,62,99,127,96,63,06,12,0,28,12,12,30,054,28,126,99,99,99,99,06,12,62,99,99,99,62,054,28,126,99,96,96,96,027,14,63,96,62,3,126,027,28,63,24,24,24,15,06,12,62,99,127,96,63,06,12,99,99,99,99,63,012,12,99,99,99,99,63,06,12,99,99,99,63,3,1266,12,99,99,99,63,3,12654,28,127,6,28,48,127,0!!63,96,199,204,204,199,96,63192,96,48,48,48,48,96,1920,0,0,0,0,24,24,48%%255,255,255,255,255,255,255,255""195,185,112,98,70,14,157,1950,8,24,62,126,62,24,80,8,12,62,63,62,12,80,0,0,0,0,27,27,54108,216,216,0,0,0,0,00,0,0,0,0,6,108,560,0,0,0,0,6,12,2448,120,120,48,48,0,48,0 255,7,15,31,59,115,227,195%%131,199,238,252,248,252,254,255%%255,254,252,248,252,238,199,131 255,7,14,28,56,112,224,1923,7,15,31,59,115,227,1953,7,14,28,56,112,224,193255,0,0,0,0,0,0,13,7,14,28,60,126,231,195 131,7,14,28,56,112,224,1923,7,14,28,56,112,224,192192,224,112,56,28,14,7,3%%128,192,224,240,248,252,254,2550,0,0,0,0,0,0,255255,0,0,0,0,0,0,03,3,3,3,3,3,3,3%%192,192,192,192,192,192,192,1920,0,255,255,0,0,0,00,0,24,24,0,24,24,0(( 123( 456( 456( 456( 456( 456( 456( 456 ( 456  ( SWORD78MAGIC( 456( 456( 456( 456( 490:( XYZ( XYZ( XYZ( ab ( 1cd"( gef$/-@? +A / %< -@@6?P,A8A< &%-@!@(m% A2(%-@!@(n% A2*%-@!@(o% A2,%-@!@(p% A2.%-@!@(q% A20%-@!@( % A42%-@@(r% A24%-@@(s% A26%-@@(t% A28%-@@(u% A2:%-@@(v% A2<%-@@(4% A4>%-@!@(m% A2@%-@!@(n% A2B%-@!@(o% A2D%-@!@(p% A2F%-@!@(q% A2H%-@!@( % A4J^A'AD-@6?0PA T ^ APL-@ $N~ -@6?P<2@@X2@@0@z2@@@~ P-@  $^ (}f16-?:C:,<A<@&<$AV%Ad,_6-?:C:,<A'<@<$AV%A(,6-?:C:,<A@<@&<$AV%Av,h_16-?:C:,<Ap<@<$AV%A ,_6-?:C:,<Aq<@<$AV%A6,j16-?:C:,<At<@<$AV%A,_6-?:C:,<Au<@<$AV%A$,6-?:C:,<Aw<@<$AV%AV,l16-?:C:,<A<@<$AV%A,_6-?:C:,<A<@<$AV%A,6-?:C:,<A<@<$AV%A,n16-?:C:,<A<@<$AV%A,_6-?:C:,<A<@<$AV%A,6-?:C:,<A<@<$AV%Ah,p116-?:C:,<A<@<$AV%A,r16-?:C:,<A<@<$AV%A6,_6-?:C:,<A<@<$AV%A`,6-?:C:,<A<@<$AV%A,t_16-?:C:,<A<@<$AV%A(,_6-?:C:,<A<@<$AV%@,u116-?:C:,<A<@<$AV%@$,v116-?:C:,<A<@<$AV%A@,w116-?:C:,<A<@<$AV%A,x116-?:C:,<A<@<$AV%A ,y116-?:C:,<A<@<$AV%A,z116-?:C:,<A<@<$AV%A`,{116-?:C:,<A<@<$AV%A,|116-?:C:,<A<@<$AV%A,}116-?:C:,<A<@<$AV%A$,~116-?:C:,<A <@<$AV%A@,116-?:C:,<A!<@<$AV%AV,116-?:C:,<A"<@<$AV%A(,.-@P! A2$'. A? (}A-A ?AY@4K-@;(! SWORD & MAGIC proudly presents >(A(K A2-@?P+A / 2$K -@6?P,A 0 D-@PH K$'@@'-@@11((## #  ##  {#  {#  {#  {#00('<< <   <<   < <00('< < < << {# < < <00(' < < << < < ^ <00('  {# < <<  < <  <&00('       ((0''(  {#  {#  {# # :''(  < < <  D''( # < < < <I''(  < < < <N''( < < < < <O,,($      DEMOS ( (U (` 1995 !W ( (X2(( This program is a FREEWARE2 A0Y -ApA`6?P,A8AV2@&A`z2@&A`~ U=USR(24682)Z`-@P /-B7`B7h;? N6-?:BF,`AdAU[ F:Ad,"AUA\AA'A1 A27(}A A]9-'AR9A @b;-@#"()-@B:,3(7<,7 ; l@-@7@#( .AR@@AdAUq+"@!-@7@#(( +$v-@ -@8@#(  F:Ad,AUA-@ -@8@#( A0] -@#6@,-Y('' ] $ C (}-@@C(#Varovn ministerstva zdravotnictv *?-@@?(%%@4>-@@>($Tato demoverze kod slabm povahm,6?-@@?(%thotnm enm a nemocnm ischemickou8.-@@.(chorobou srden !90-@ @#0(Makej ho ! (RETURN)> A0AdAUH F:Ad,"AUA@R A2 A #A A%%KLAUSTROFOBIA - Tvr tm&&@++Nmt;scn;program .V t Kubr++Hudba.Pierluigi Giombini++Zvuk.Ing. Roland Hluch++Stih.Emilie Tup ++Kamera .Even Slepo A.S.C. ++Technick poradce.Radim Rad lek++Trikov efekty .Teobald Vigo++Produkce.Dr. Emil Lakota++Reie.Kamil Kofejn ,,& #A  A%%Speciln podkovn pat &&@((Bankovn mu domu LICHVA - jmenovit))jej mu editeli Richardu Shvindlovi''a Rudolfu Haminmu za poskytnut **vhodnho 10 procentn ho vru;bez**kterho by tato hra vbec nevznikla.((Chovancm stavu PABLB za vbornou**a velmi pesvdivou pomoc pi zb-rech z budovy parlamentu.,,Pohebn slub FUNUS SPECIAL za pomoc**pi odkl zen nhodnch chodc;kte &&se nedopaten m pipletli k na  prci.''A vem ostatn m;kte nm njakmzpsobem pomohli.,,&  #A0 A  $$Josef Babinsk - ivotopis %%@ ++M sto a datum narozen Josefa Babin- **skho se nm pes nejvt snahu ne- ++podailo zjistit.Svdkov z tto doby **neexistuj a Josefv rodn list jsme ))nalezli okousan;take daje nejsou **iteln ani t m nejlep m elektrono- vm mikroskopem. ((Jist vak je;e hned po narozen ))pipravil osud plron mu Pep kovi ((prvn strk.Jeho mlad rodie pe- ++jel pi rann prochzce parn vlec a ))tak byl Josef dn na vchovu ke sv **jedin;dosud nezaven p buzn tet Blaen do Prahy. ((Mal Pepa byl u od kol bky velmi ++nadan d t.Ji v pti letech se nau- ))il chodit a u v esti uml plynn ))nadvat ve tech svtovch jazyc ch ##(esky;slovensky a ciknsky).  ,,& #A@ A))Kdy thlo malmu Pepovi na dest**rok zaal navtvovat Pomocnou dev -""tiletou kolu v Hrdloez ch.))Ve kole se Pepa choval jako kad,,jin k v jeho vku.Podezval uite-++lm nohy (u idl );pi chemii po nich,,hzel houby namoen v kyselin s rov,,a bodal sv spoluaky do zad svou ka-,,pesn maetou.Ve tet t d Josef za-,,nechal klukovin a pihlsil se do che-((mickho krouku.Dal daje o jeho,,koln ch sp ch nejsou znmy;protoe,,vechny t dn knihy a p semn materi-((ly byly znieny pi velk explozidva ms ce pot.++Kdy po patncti letech ukonil Pepa,,desetiletou koln dochzku zapojil se++naden do pracovn ho procesu.Vyst -**dal mnoh zamstnn .Dlal nap klad++plav ka v hokejovm stadionu;pomhal++stavt dladim leen ;pracoval jako((" #AP A((topi v letn m kin a mnoh dal .++Zhy vak pochopil;e poctivou prac &&se u ns pen ze vydlat nedaj a((proto zaal po vzoru vtiny svch,,vrstevn k smovat ped Tuzexem pen -**ze.Protoe se nenauil dobe po tat))byl mezi ostatn my smnrn ky melmi))obl ben a brzy si zalouil uctivoupezd vku Pep Veksl.((Vekslovn m si sice Josef ponkud((vylepil rozpoet;ale kdo m hodn,,chce m t jet v c.Proto brzy Pepu na-++padlo;e by si mohl tvrdou mnu vyr-,,bt doma a t m uetit provozn nkla-**dy.Prvn pen ze namalovan vodovkami**na kusu balic ho pap ru sice nevypa-,,daly nejlpe;ale asem se Pepa v malo-,,vn tak zdokonalil;e jeho pen ze by-,,ly k nerozeznn od tch pravch a Pe-++povo konto v esk spoiteln uten rostlo.,,&p #A` Az|++Ovem tak dlouho se chod se dbnem~++do lesa;dokud se ucho neutrhne.Jedno-++ho dne se Pepa pipletl na Vclavskm,,nmst k njak nepovolen demonstra-,,ci a byl odsouzen na deset let za pod-&&vracen socialistickho z zen .,,Svj trest si Pepa odpykval ve vze-,,n na Pankrci.Spolu s n m byl na cele**jet padestisedminsobn recidivi-++sta Lakato Dezider;kter si tu odpy-++kval dvoulet trest za to;e vyhodil,,do vzduchu mateskou kolku i se temi++pilehlmi panelky vetn vech oby- vatel.))Natst pro Josefa vypukla za dva++ms ce sametov revoluce;volba novho,,prezidenta a Josef;Lakato a statis ce++ostatn ch kriminln k bylo vyputno((pi veobecn amnestii na svobodu.++Kdy se Pepa vrtil z vzen do vzni-((kaj c kapitalistick spolenosti;,,&X #Ap Abd++pochopil;e se u nemus piplat s ma-f++lovn m penz.Proto dal svou tyice-h,,tiletou tetu Blaenu do domova dchod-j++c;uvolnn byt prodal za dva milionyl((korun a zaloil jako kad sprvnn++vekslk;zlodj a komunista spolenostp**SRO (spolenost rychlho obohacen ).t++Podnikn v echch ale nen lehk.vxz,,Dal osudy Josefa Babinskho u budou|,,mil Ataristo zviset na tob.Hrateln~,,verze komunikan hry KLAUSTROFOBIA by,,mla bt podle naeho odhadu dokonena""koncem roku 1995 +- 100 let.**Pokud bude m t zjem me si o hru,,napsat u te na n e uvedenou adresu.++ SWORD & MAGIC 9.7. 1995(( V t Kubr; Zlatn ky 18; 252 41,,&@ #A AJL,,Upozornn pro vechny ATARIMANIAKYN**$@P**Nebav Vs u listovat vemi mon-S''mi po taovmi asopisy a hledatT++marn njak lnek o Vaem obl benmV,,po tai ATARI ? Jste zap shl game-X))sn k a chyb Vm informace o novchZhrch na Vae ATARI ?\''Potom prv Vm je uren asopis` ̠ŠҠԠd))Na zhruba 30ti stranch se dozv tef**ve o po ta ch ATARI (XE/XL;STE;TTh**FALCON;JAGUAR).Soust kadho  s-j**la je hern p loha;kter pot ka-ldho paana.n,,ALERT zat m vychz jednou za dva m-p++s ce a jeho cena je 30 Korun eskch.r**Bli INFO Vm o pedplatnm zdl tna adreseuv,,JRC;Chaloupeckho 1913;Praha 6; 169 00wx,,ALERT je opravdu SUPER ! (## #A6-@# A2#4#((A nyn posledn informace.Shn te6#''kvalitn nov hry a demoprogramy?8#**Nev te kde je sehnat? Snadn pomoc !:#Napite na adresu<#>#''։@#B#&&Jist nebudete litovat !C#D#E#F#++ A nakonec jsme si nechali pozdravy.G#H#++Our greetings to MAC (thank you for J#**music);ESC;SPC;HMC;TNT;ASF;ZEPPELIN;L#,,AVALON;LORIEN;DENOXY;SATANTRONIC;FUCO;N#**RASTER;NEW TIGERS;PAST;LUFA;MB SOFT;P#,,MIRAGE;members of W.F.M.H.;JRC;redakceR#,,asopisu ALERT (very good work boys !)T#and next.V#\#^#,,&% A0uE +A1AR@E(Vadna kopie !yTT(LBezchybnou verzi tohoto dema ziskas naadrese:} B d}SC-F:A0,%F:A1,$AVF:A2,%F:A3,$AVOAUS }3F:A8,%F:A9,$AV%@64} B!Xf pb \h`l t莯Nʎ莭"8i{oid{oԮzo莪(莫莬ro8voLbH!."%)6)%,%'25%33%!.       (7%)4%2().3%.$%)#('25%33%5.$"%$!.+%-)#(&5%2$!3#2!#+%.$%2.%534%.02/'2!--%"%) t5.$.!45%2,)#(!5#(6)%,%'25%33%!.$)%6)%,%.!4!2)&2%!+3$)%)#(.)#(4!5&'%,)34%4(!"%03$)#("%$!.+%-)#("%)$%-:%)#(.%2$%2'2!&)+3%)4%$)%3%302/'2!--3TA(IH),Y INY CPY#2 BEQ YES JMP PRI LYES PLA PLA YES LDA#0 BEQ RW PH DEX BEQ LYES LDA $41F,X CMP#$20 BEQ LY&5%2)(2%.!4!2)#/-054%27%2$%..)#(4%2(/"%.'!:%"/!5&"!"9%-) %,%#42/,! 0)%2,5)')')/-").)-!#&5%2)(2%.!4!2)#/-054%2* * ),)+%#(/0).02/'2!--)%246/.-53)+6/./2').!,6%23)/.6/.52(%"%22%#(4%!5&$!302/'2!--),)+%#(/0).* PRINT LDA#2 -!#02!%3%.4)%24TA LL PLA STA HH X LDX#0 INC LL BNE DAL INC HH DAL LDA(LL,X) BEQ KON JSR PRIA JMP X KON LDA HH PHA LDA LL PHA RTS DBR JSR DB JMP PRE * * HEXA PRINT 2 BYTE (YX)* * DB STY LL STX HH LDY#1 LDA(LL),Y JSR HP LDY#0 LDA(LL),Y HP PHA HEXA PRINT A LSR LSR LSR LSR JSR H PLA AND#$0F H CMP#$A BCS PO1 ORA#$30 BNE HO PO1 CLC ADC#$37 HO JMP PRIA * * FROM: * * TO : * * ODDO JHHH Ԯ莧ЭЭLRnЭЩLRnЩLRnhhh@To :' DFB 0 LDX#0 LDY#FS1 JMP BYTY * PRE LDA#$9B print return JMP PRIA * * L+PRINT* *HLAVICKA* * LOPR JSR L LOAD HLAV JSR PR0lpNP*:pB(kpBjf(g&AoLOA JSR PRINT DFB$9B ASC'Turbo load' DFB$9B,0 JSR LOPR JSR PRINT ASC'Into :' DFB 0 LDY#INTO:L LDX#INTO:H JSR DBR ҅Ωҍ Щ `DFB 0 LDY#LONG:L LDX#LONG:H JSR DBR JSR ST8 LDY#START LDX#START:H JSR DBR JSR PRINT DFB$9B ASC'Load' DFB$9B ASC'From :' DFB 0 LDY#C1 LDX#0 JSR BYTY LDA#1 JSR BEP LDY C1 LDX C1+1 JSR TLPROG BCS NICI JMP FY1 CHYBA NICI JMP ZAC *- BEP JSR$FDFC BPL DQ JMP ZAC DQ RTS L LDA#1 JSR BEP JSR OP LDA#$4 LOAD HLAVICKA STA OD+1 STA DO+1 LDA#$11 STA DO LDA#$0 STA OD L0 LDA#0 JSR LL1 LOAD HLAV CPY#1 USPESNE BNE L0 SEC RTS *- CS LDA#$3C BNE OP5 OP LDA#$34 OP5 STA$D302 RTS TLPROG TYA V Y JE LB NAHRAVKY STA OD CLC ADC LONG STA DO TXA V X JE HB NAHRAVKY STA OD+1 ADC LONG+1 STA DO+1 JSR OP LDA#255 JSR LL1 CPY#01 BNE WRT ZLY PRENOS SEC RTS WRT CLC CHYBA RTS *- TSAV JSR PRINT TURBO SAVE DFB$9B ASC'Turbo save' DFB $9B,$9B,0 JSR ODDO LDA FS1 LB DO SEC SBC C2 LB OD STA LONG DLZKA LB LDA FS1+1 HB DO SBC C2+1 HB OD STA LONG+1 DLZKA HB JSR ST9 LDX#INTO:H LDY#INTO:L JSR BYTY JSR ST8 LDY#START:L LDX#START:ҩ Lt YРЪϢҥiϱҥiϱҥi ϱҬȌxȌyȌzȌ{iҭiҭiҭi`BEP LDA#0 JMP *. SPROG LDA C2 STA OD lb adr od LDA FS1 STA DO lb do LDA C2+1 STA OD+1; hb adr od LDA FS1+1 STA DO+1; hb do LDA#255 JMP * *TLODER* * TLOR LDA#1 STA 752 KURZOR VYPNUT JSR PRINT DFB$7D,$9B,$7F ASC/Turbo loader V.2/ DFB$9B,0 LDA#18 STA $55 X-OVA SURADNICA JSR LOPR LDA#1 JSR BEP LDX INTO+1 LDY INTO JSR TLPROG BCS R0 LDY#143 JMP FY R0 LDA#0 STA 752 LDX START+1 LDY START JMP STAR * * COPY 20 * * COPY LDA#1 STA 752 JSR PRINT DFB$7D,$9B,$7F,$20,$20 ASC/Copy 20 V.3/ DFB$0 LDA#11 STA $54 STA $55 JSR LOPR LDA#1 JSR BEP LDX#$6 LDY#0 JSR TLPROG JSR PRINT DFB$9B,$9B,$7F ASC/START / ASC' => Save program' DFB$9B,$9B,$7F ASC/SELECT/ ASC' => New name' DFB$ ON/ ASC' => New loading' DFB$9B,$9B,0 KOPEW LDA#8 STA$D01F LDA$D01F CMP#3 NEW LOAD BNE JL JMP COPY JL CMP#5 BNE JL0 JSR PRINT ASC'name :' DFB$0 JSR INN CLC BCC Q1 JL0 CMP#6 BNE KOPEW Q1 LDA LONG STA FS1 LDA LONG+1 CLC   DA#6 STA C2+1 LDA#0 STA C2 JSR POMOC JMP KOPEW * * LOAD * * LOA JSR PRINT ASC'Load' DFB$9B ASC'from :' DFB 0 LDY#C1 LDX#0 JSR BYTY JSR CLOSE LDA#4 OPEN GET STA$35A JSR OPEN LDY C1 LB BUFF LDX  FF STA$358 STA$359 JSR GET JSR CLOSE RTS * * SAVE * * SAV JSR PRINT ASC'Save' DFB$9B,0 JSR ODDO JSR CLOSE LDA#8 STA$35A JSR OPEN LDA FS1 SEC SBC C2 STA$358 LDA FS1+1 SBC C2+1 STA$359 LDY C2 L R CLOSE JSR ZVUK ZVUK JSR$EC8E VYP ZVUK LDA#0 STA$D200 -||- RTS * FY BPL DALT KONTROLA STATUSU CPY#136 EOF ? BEQ DALT FY1 STY C1 JSR PRINT DFB$9B,$FD ASC'I/O Error ' DFB 0 LDA C1 JSR HP JSR CLOSE; VYPNUTIE ZVUKU JSR ZVUK -||- JMP ZAC RESTART DALT RTS CLOSE LDA#$C PRIKAZ => CLOSE STA$352 LDX#$10 KANAL 2 JMP CIO OPEN LDA#3 SPEC TREBA NASTAVIT STA$352 LDA#$80 STA$35B LDA#C:L STA$354 LDA#C:H STA$355 LDX#$10 JMP ɱ GET LDA#7 BNE R9 PUT LDA#$B R9 STA$352 PRIKAZ STX$355 HB BUFF STY$354 LB BUFF;DLZKU LDX#$10 Рɱ C ASC'C' DFB$9B E ASC'E' DFB$9B ɱ JSR CIO1 JSR FY RTS KDE EPZ $43 PO EPZ $45 PRVY EPZ $5 PRV EPZ $47 PBY EPZ $49 * * BINARY LOAD * * BINLO JSR CLOSE LDA#RTQ:H INI START STA $2E1 ADRESY STA$2E3 LDA#RTQ:L STA $2E0 STA$2E2 JSR PRINT ASC'Binary load' ASC', Traking ?' DFB$0 JSR ZOB STA OKAZ CMP#'Y' BNE NONO LDA#$0 BEQ NONO1 NONO LDA#$80 NONO1 STA COUN NAVEST SPUSTENIA LDA OKAZ JSR PRIA JSR PRE LDA#4 STA$35A JSR OPEN JSR N0 LDA#$FF STA PRVY FF ZNACI 1 BLOK DAT LOOPV JSR DVA (X) PRVY (A) DRUHY CPX#$FF BNE ZLE CMP#$FF BEQ LOOP1 ZLE JMP FNB FILE NO BINARY LOOP1 JSR DVA DOM STX KDE STX$354 STA KDE+1 STA$355 JSR DB1 LDH5/-H-HDHD(-/Q/5<(-/-H-HDHD(-/Q/5<QQHQQ[HHlQQyQQHQQ[HHlQQy<H[Hy<H[H<H5