LEMMINGS COPY )% w*:g ~ܯ2^ !+|(/8N! F͘ >2/ >^ >2>ͥ + :'+ :' 31.03.1998 c P.BRAZDA + :' SHARP MZ-821 h LEMMINGS COPY + :'+ :' P B 22.05.1972 + :' H 9 + :' B - M + :' 602 00 + :'4 :"CRT:M1":,:, (a,> "ERROR" A (XX$)-,!,,,,,>,o,, ,,,,,,,,,,,,,,,,,,,,,,,,,5",,,,,,8,,,,,-@,!,,,,,>,O,,I,,,,,,,,,,,,,,,,,,,,,,,,,5b,,,,,,8,,,,,],!,,,,,,,,,,a,K,,#,, ,x,, ,,],!,,,,,,,,,,,V,K,#,, ,x,, ,,b:'POKE$FEA0,$21,$0,$0,$11,$0,$E0,$1,$0,$12,$1A,$2F,$CD,$56,$4B,$23,$13,$B,$78,$B1,$20,$F4,$C9"STITEK""NASTAVENI"KD:"FORMAT""PROGRAM"*FO FO@:"DODAT FORMAT"=XX$"ZPRACOVANO !!! (C) SCAV [CR] ":XX:"KEY"?MAX:"CRT:M1":,:,:(a,:+:' STITEK "STITEK"* [@],,,<1![],,,4,@1"[@],L,,&,*#[@],,,1$[@]`,\,,|,1%[@]`,,,,2&[@],`,"C",,2'[@],,"Z",,(X,?)[], ,"LEMMINGS COPY V20",,K*[] ,," BY FY SCAV FOR SHARP MZ800",,+X,1,[]p,0,,P,@#-[],,.+/:' NASTAVENI 0"NASTAVENI"<1XX$"N : [Z/N/0] : ":XX:"KEY"x2K$"Z":RD:VK,,,,D,,i,,,,,,,,,D,,i,,,,,: 6x3K$"N":RD:VK,,,,E,,@,D,,y,,,,,,E,,@,D,,x,,: 64K$"0":RD: = 5: 1$6XX$"K : [256/"B7RD:XX$XX$"1024":XX::XX$XX$"512":XX@8XX$XX$"] : ":"KEY"9K$"256":KR: =(:K$"512" RD:KR: =);K$"1024" RD:KR: = <: 65=XX$"D [1-4] : ":XX:"KEY"1>(K$) (K$) :M1(K$): @ ?: =3@XX$"D [1-4] : ":XX:"KEY"1A(K$) (K$) :M2(K$): C B: @7CXX$"K [360/720] : ":XX@:"KEY"DK$"720":KD: GEK$"360":KD: G F: CG+H:' FORMAT I"FORMAT"?JXX$"F LEM. MS-DOS BBS ? [L/M/B/N] ":XX:"KEY"KK$"L":FO: P%LK$"M":FO:KD: PMK$"B":FO@: PNK$"N":FO: ] O: J?PXX$"Z OBJ FORMAT [CR]":XX:"KEY""QFO:"FORMAT LEMMINGS" RFO:"FORMAT MS-DOS"SFO@:"FORMAT BBS"HTXX$"Z ("(M2)") ! [CR] ":XX:"KEY"*UXX$"ZAPIS FORMATU":XX:"KEY"VPO#WFO:ST:SA#XFO:ST:SA#YFO@:ST :SA7ZMM:F,:"ZAPIS":(),:F,O[ER$"":POPO:: ]?\PO :XX$ER$:XX:"KEY"::;: :: W]+^:' DODAT FORMAT _"DODAT FORMAT"`POOaM1M2:XX$"Z ("(M1)") ! [CR] ":XX:"KEY"-bFO:ST:SA:SE(-cFO@:ST :SA:SE.dMM:,:"CTENI":(),eER$"":POPO:: g?fPO :XX$ER$:XX:"KEY"::;: :: bgPOOhM1M2:XX$"Z ("(M2)") ! [CR] ":XX:"KEY"$iF,_:"ZAPIS":(),jER$"":POPO:: l?kPO :XX$ER$:XX:"KEY"::;: :: il*m:' PROGRAM n"PROGRAM"*o:' M1 M2 YpM1M2:XX$"P . "(M1)" "(M2)" [CR]":XX:"KEY"*q:' M1 M2 rRD:: }sMM:LFKD!tLF :MMXuM1M2:(),:XX$"P . "(M1)" [CR]":XX:"KEY"v"LOAD FD":M1M2XwM1M2:(),:XX$"P . "(M2)" [CR]":XX:"KEY" xM1M2 MM:MMy"SAVE FD" zMM:LF:(),{*|:' M1 M2 RD }DDF~KK:MM:RA:RD:(),:: XK,JM1M2:XX$"P . "(M1)" [CR]":XX:"KEY"LFDDKD"LOAD FD""ZAPIS RAM"KKKR:(),: MM:LF:(),FKK:MM:RA:RD:(),:: XK,JM1M2:XX$"P . "(M2)" [CR]":XX:"KEY"LFDDKD"CTENI RAM""SAVE FD"KKKR:(),: "MM@:LF:(),:DDLF: ~*:' LOAD FD "LOAD FD":POY[@]`,\,`(`)(KD)(LF),|,@ST(LF)SALF  "CTENI"ER$"":POPO:: ?PO :XX$ER$:XX:"KEY"::;: :: *:' SAVE FD "SAVE FD":POY[@]`,,`(`)(KD)(LF),,@ST(LF)SALF  "ZAPIS"ER$"":POPO:: ?PO :XX$ER$:XX:"KEY"::;: :: *:' CTENI RAM "CTENI RAM" ()RARA&RA|:::,RA: 'KKKK:,:RARD:(),KKRD:cK,KK*:' ZAPIS RAM "ZAPIS RAM" ()RARA&RA|:::,RA: 'KKKK:,:RARD:(),KKRD:XK,KK*:' CTENI "CTENI":ER$"":X(),/(),M1IXX:XH:ER$"MECHANIKA NENI PRIPRAVENA !!!":PO:,(),Y:(Y)  ,(),X:(X)  (),SAMM MM (),,(),X:(X)  (),ST:(),,(),X:(X)  (),SE(:(),():(),X:(),Y8(X) :ER$"VADNY SEKTOR !!!":N(X) :Y Y:ER$"ZAZNAM NEBYL NALEZEN !!!":9(X) :ER$"NEPLATNA DATA !!!":*:' ZAPIS "ZAPIS":ER$"":X(),/(),M2IXX:XH:ER$"MECHANIKA NENI PRIPRAVENA !!!":PO:,(),Y:(Y)  ,(),X:(X)  (),SAMM MM:(),: MM@ (),,(),X:(X)  (),ST:(),,(),X:(X)  (),SE(:(),(@):(),X:(),Y8(X) :ER$"VADNY SEKTOR !!!":N(X) :Y Y:ER$"ZAZNAM NEBYL NALEZEN !!!":L(X) :ER$"DISKETA JE CHRANENA PROTI ZAPISU !!!":*:' ERROR "ERROR"b Q R S:XX$"CHYBI DRUHA CAST PROGRAMU !!!":XX:"KEY"::z: FXX$"NEPREDPOKLADANA CHYBA !!!":XX:"KEY"::z: *:' KEY K"KEY":[],0,,`,:K$"":XXXXr[@]((AXX)) ,6,((AXX)(XX$)XX)@,V,3,:(AXX),@:[]XX$2(AXX)(XX$),@:[]K$;6(AXX)(XX$)(K$),@:YYXX:,:XX YY(YY)  YY:[]"";YY :[]"";YY$:YY$"" []"";&YY$" " K$"": ,:YYY$( ): ,:[],0,,`,:,:5YY$() K$"":K$(K$,(K$)): "(YY$)/ (YY$): "(YY$)@ (YY$)[ : (K$)XX: K$K$YY$ ,: