SCAV EDITOR 1M 3 w*:g ~ܯ2^ !+|(/8N! F͘ >2/ >^ >2>ͥ +:'+:' 03.04.1996 c P.BRAZDA +:' SHARP MZ-821 h SCAV EDITOR +:'+:' P B 22.05.1972 +:' H 9 +:' B - M +:' 602 00 + :'+ :' INICIALIZACE # (a,>:,,+ :"CRT:M3"::"LPT:S0":) A$(@,@),B$(@,@)X@Y@ A$(X,Y) Y,XX@Y@ B$(X,Y) Y,X AS+E,>,,!,,+,T,],,,,w,,,,?,!,,,,,+,,,,,,\ ,>,,,,>,,,,,,,,,,,>,,,,]@,!,,,,,+,,,,,a,K,,#,, ,x,, ,,-`,!,,+,,,>,,,i,,,,,,,,,,,,,,,,,,,,,,,,,5,,,,,,8,,,,,,!,,,,,,~,,,,,,,,,,,,,,,~,,,,,,,,,,,>,,,,,#, ,x,, ,,q,!,,,,,,~,,,0,,~,,,>,.,,,,#, ,x,, ,,I ,!,,+,,,,~,/,w,#, ,x,, ,,?!,,,,!,,+,,,,,,\" ,>,,,,>,,,,,,,,,,,>,,,,]#@,!,,,,,+,,,,,,V,K,#,, ,x,, ,,-$`,!,,+,,,>,_,,%i,,,,,,,,,,,,,,,,,,,,,,,,,5&,,,,,,8,,,,,+':' PROGRAM ("SCREEN"')Z:C:X@*A$(A,X)"":ZZ+X>,@,:A:(A$(,A),)1-[]8,p,,@,.X@P/[]@XZ,,A$(A,X)" "B$(A,X),,0X11[]N,8,,?,j2XX$"":[]P,8,XX$,,:XX$"":(),:"ZOBRAZENI"::BB: 5S3A:[]P,8," _ [SPACE]",,k4A:[]P,8," _ [SPACE] 0-F P",,<5XX0:ZZ(B$(A,B)):F:CZZ:F6XX(XX) p[7XX:[]@BZ,,A$(A,B)" "B$(A,B),,s8XX@:[]8BZ,p,8BZ(A$(A,B)),@,9XX@:[]8BZ((A$(A,B))C),p,8BZ((A$(A,B))C),@,:XX =;X$:X$"":XX < 6=X$" " Y >(X$)/ (X$): b ?(X$)@ (X$)G b@ ,'AA X$"P" AD:: QBP( , , , ):CP"SCAV EDITOR () SCAV . SHARP MZ-800">DP"":PEXFQ$(QX)G(Q$):Q$"000"Q$H(Q$):Q$"00"Q$I(Q$)@:Q$"0"Q$JPQ$" ";KYp2LY$:Y$""::P:P:P: ,: QMX$((ADXY))N(X$):X$"0"X$OPX$" ";PY:P:X:P:P^Q[]@BZ((A$(A,B))C),,"",,PR[]@BZ,,A$(A,B)" "B$(A,B),,#SCC:CC:CTX$"":CCUX$"":CC4VX$"" CZZ:BB:C:BZ:B@WX$"" C:BB:F:B:BZ X 5Y ,@ZA$(A,B)"K":(a,:,,:MAX:"CRT:M1":'[A:AB:B: )+\A$(A,B)"Z":A:B: ).]A$(A,B)"E":"EDITOR":C: 1^"CTENI":C_BB:BB: -`XX$"" 1 a 5bB$(A,B)"" 5>cA$(A,B)"A" A C:X$"0" X$"1" s>dA$(A,B)"A" A@ C:X$"8" X$"9" s.eA$(A,B)"A" A C s.fA$(A,B)"A" A C s8gA$(A,B)"A":C C C@ s)hA$(A,B)"C":X$"0" X$"1" s*iA$(A,B)"P" C X$"0" s5jA$(A,B)"P" C ("$"X$) s8kA$(A,B)"D":X$"1" X$"2" X$"3" X$"4" s6lA$(A,B)"S" C ("$"X$) s3mA$(A,B)"S" C ("$"X$) s*nA$(A,B)"S":X$"0" X$"1" s7oA$(A,B)"S" C ("$"X$) sGpA$(A,B)"S" C ("$"X$) ("$"X$) s(qA$(A,B)"B" ("$"X$) s r: 57sB$(A,B)(B$(A,B),C)X$(B$(A,B),(ZZ)C)tCZZ:CCuX$"": @*v:' EDITOR w"EDITOR"#xAD:():"ZOBRAZENI"(yH:V:L:TzT:[]N,8,,?,:[]P,8," _^ 0-F [SPACE] [] / [CR]",,{T:[]N,8,,?,:[]P,8," _^ / [CR] [CTRL+A] [INST]",,!|XX :T:Lj}T:(((ADHV))):XX$"0"((ADHV))::XX$((ADHV))I~T:(ADHV):XX$((ADHV))::XX$"." XX$(XX$,L,)XX(XX) pZXX XX$" ": H(T)@HTLTH,V@:[]XX$ZXX0 XX$" ": H(T)@HTLTH,V@:[]""XX :X$:X$"" (2 ):::XX: , (2 ):X$""(2 ):X$""(2 ):X$""(2 ):X$""X$"":: &T L:L: 'Hp:HH:L: H:L: X$"":: L:L: 'H:HH:L: Hp:L: X$"":: $Vp:VV::V X$"":: $V:VV::Vp T (X$)/ (X$): &(X$)@ (X$)G :: - H@L,V@:[]X$^(((ADHV))):Y$"0"((ADHV))::Y$((ADHV))Y$(Y$,L,)$L:XX$X$Y$::XX$Y$X$1("$"XX$):Y$(("$"XX$))::Y$"."pH,V@:Y$ADHV,("$"XX$) (X$) : pH,V@:X$+ H@,V@:((X$))ADHV,(X$) X$" ":XX$"":(X$):"ZAPIS"(X$( ) T:T: z(X$( ) T:T: z$X$():():"ZOBRAZENI"L(X$):X(ADHV):YADAD:Y,X:Y:"ZOBRAZENI" |*:' CTENI "CTENI":()A:: ?',!,,,,,+,,,,,,A',,,,,,,',,,,,,, X("$"B$(,))4X:X:B$(,)"1F00":BBX:XX',X ,X (') A:: 5X("$"B$(,)):X:XX,X ,X () A@:: Y6(B$(@,),,)"1":Y8(B$(@,),@,)"1":YY8(B$(@,),,)"1":YY8(B$(@,),,)"1":YY %,Y X("$"B$(@,))4X:X:B$(@,)"9F00":BBX:XX,X ,X ( ) A:: !:'POKE$4B63,VAL("$"+B$(4,0))%(),("$"B$(,))5X("$"B$(,)):X:XXA,X ,X (@):'POKE$4B63,$EF (),X A :: (),/%(),(B$( ,))GXX:XH:XX$"MECHANIKA NENI PRIPRAVENA":B: ,(),Y:(Y)  ,(),X:(X)  %(),(B$( ,))(),,(),X:(X)  0(),(B$( ,)):(),,(),X:(X)  %(),(B$( ,@))(`):(),X@(X) :XX$"VADNY SEKTOR":B@: H(X) :XX$"ZAZNAM NEBYL NALEZEN":B@: A(X) :XX$"NEPLATNA DATA":B@: (), A@:: X%X X:Y:::(X),Y ASX,YX "ZOBRAZENI"*:' ZAPIS "ZAPIS"A:: 5X("$"B$(,)):X:XX,X ,X () A@::  Y6(B$(@,),,)"1":Y8(B$(@,),@,)"1":YY8(B$(@,),,)"1":YY8(B$(@,),,)"1":YY %,Y X("$"B$(@,))LX:X:B$(@,)"9F00":BB:B:XX$"":: _X:XX,X ,X ( )  A:: !:'POKE$4B58,VAL("$"+B$(4,0))%(),("$"B$(,))5X("$"B$(,)):X:XXA,X ,X (@) :'POKE$4B58,$EF (),X   A ::  (),/%(),(B$( ,))JXX:XH:XX$"MECHANIKA NENI PRIPRAVENA":B:: _,(),Y:(Y)  ,(),X:(X)  %(),(B$( ,))(),,(),X:(X)  0(),(B$( ,)):(),,(),X:(X)  %(),(B$( ,@))(`):(),XL(X) :XX$"VADNY SEKTOR":B@:C:: _T(X) :XX$"ZAZNAM NEBYL NALEZEN":B@:C:: _](X) :XX$"DISKETA JE CHRANENA PROTI ZAPISU":B:C: _(),  "V15S0M6T7L9N65"* :' SCREEN !"SCREEN")"@,,,C,)#p,,,H,)$p,5,,A,)%p,X,,3,"&p,,,,,"',,,,3"(j,,,j,3)X,:[],@,"EDITOR ROM RAM VRAM RAMDISK DISK PORTY ",,:X,:[]8,@," SCAV . SHARP MZ-800",,a*@,:" 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 0123456789ABCDEF"6+[]@,8,"HLASENI :",,,*-:' ZOBRAZENI ."ZOBRAZENI"*/A:Q("$"B$(,))*0A:Q("$"B$(,))*1A@:Q("$"B$(@,))*2A:Q("$"B$(,))X3A :Q(B$( ,)):ADAS(B$( ,))::ADAS4A@:Q5X6Q$(QX)7(Q$):Q$"000"Q$8(Q$):Q$"00"Q$9(Q$)@:Q$"0"Q$!:@,X@:Q$F;,(ADX) ,(ADX): ,X@:()F<,(ADX) ,(ADX):p,X@:()=X>*?:' DATA @"DATA">A"ROM ","RAM ","VRAM","RAMDISK","DISKETA","PORTY","K"$B"A","Z","","","","",""*C"A","E","Z","","","",""/D"C","A","E","Z","","","".E"P","A","E","Z","","",""=F"D","S","S","S","B","E","Z""G"P","Z","","","","",""H"","","","","","",""I"0000","","","","","",""J"0000","","","","","","""K"0000","8000","","","","","" L"00","0000","","","","",""!M"1","00","0","01","0","",""N"","","","","","",""