8(CA@AUTOEXECXEC c}E q0 \C)CC8`DCeECiD` RP h1$E ȍ @y b Y)hܭ]L]` q  DMD   u j)`0  ,p0i2 &28jJ1f02 9 g iJf0i1)xԍӭ232002XԦ`  *'  } *(L `(  L l pL[,L] C i0 8} p  gފދLh ( LD 0  0 C  C  \i +$+0'8}; $(%)  b L[C `D P^߰")(݃   $DD8}G@НL]S")M T H0 G$Ș݃ b 8$}$%8(() T `$E0(0)8`$GE` P8} Li 8GD }L[ PH >iJ ;  yyB8 } ' |L[ "E( % H$ H#`L]B  0 G LO<  ( d lH۪!A3 A 8 }jA !B EIC Y$E0 F  < 7 JN8Ndâ!,P h0ʠJd,68 } ' r/ $ ɛ ` '  L[  l }-    8 }    L[L  }  '  L[   p  ` g  l }) g ' 8 }L[) ̠,L]T-0 |LM N݃:ː6UV LM N L(TU N,)M8}LL[IL3GDIɛ ɜ DI  , JȊGм  G I) GȦ=8}*GG ȄI1200820I H1E 1h0hIGI2ȢI`FE 0ɛ rɛ$ l '8}蚦TTUVD`M L$:;Pyȱ$` r  iȱ$/:ȱ$VWyA**⩀ / 8}`$***? mL]-+ȱ$ɛ m* ? g. $0f.?'@BrAsTt[ 8}0: gL  `$0`j`& CpCi s L0JCܢj? I#8}𴽎F ގМގ& & 0 C4 08L`0   | 레L] EGȽGȽ8}G | E` 8,  }EG)݀G)ȱGȱG`"!L] l!i8}栠$8  (IƭIp  h,g+j? 8 ii(Lq)! 8}S S0$}) E9`H)N,L]8GH Lq`gNgfj****8jHi h` 8} 2J  &e2i`"%?&;^$IM ! ! <u hh`$8}Ev옝^! 1EHFHjm GHm H`u$Ev`L=? +`!,pFE ȄD8 8}q D&E`I0` i`+DOS SYSMOC.I  J ٍ = ) F)8}8`Ll T!U<; Ln <JM -18    HH =8}D 1 :  /1[F:M #.! 0`>C #   #`>   e8}L'>/b;\I\o@ @LK~ L  % /e  L ; H8}H0S0N:;=91D,1ɛK$ɛ`:;ʾ  ,ɛ8}`XYȄ #`DTDRLUFFFCICLRSJ==CIYEEONSMDLNOOUAOOOARPLNCL#####PANVBNFR*),-PQORa/%<8}) j ө  RES L%-, # 3 0 %   4(H 4(`8 }( 3  #  ZOiۨ L4RE 3 =F S Z +88!} 0+  FF % 4 4& 4(X)Y    # 4 ʤ Ȅ L8"}F F LH hL4`*J 0 B B 0a   88#}    Lkl  );<  : ` 0 } T T 7̀΀8$}LIl <;`<L 3   #/ ! R( 7 7   7 89i L7 ,(&  8%} L480  ` Ln    `   HJJJJ h) ii0HI B V`0  ,BLV8&}[J  B Vso Fhh` GH ,H hɐɀɡ)HDCȱCɛeCD먥D h8'}N MSп` ED` OIH`hhXhh  nL Free FilesBreakI/O-Error 128Disk f8(}ullWrite protectedFile MismatchBad Filename}Disketovy magazin FLOP 17 - 7/92--------------------------------File lock8)}edDevice doneDirectory fullFile not foundBad Load FileNot DOS II+Bad HexAbort-> Source-> DestinationD3:+DOS SY8}ӳ&@ ` P P PP PPPP@ @P ppP ppP pxP L+} @@ pxx P x@@ @@pp@@@@@p @ p0PppȈp L,}ppppxp@@@ @@ @  @ @@P ȀppppL-}p@@@@@`بȨppph𠐈pp pPP L.}؈P PP  @ pp x P| @X P T` @@L/} xp( p hxppP@@@@P  ppPx Ȁ HH@@P P Ȁp`L0}`}UV  eTTƆ` ) `t ǙH|th `Ɔܩ憤ވĆ̈́0ɢԎ/ R VL?}pTURZ VڍTۍU8ڍXۍYR VXeڅڭYeۅ۩ک R Vԩ./` EW)01PXYL@}͍$%  ٗT5ک ڭ څۅڅۅ߭ Lީ TB1 B B @y A AG`Bvr@d@@tL}@AeA@ A!"@tM}#$%A&A'A$(@A)@*+,-./012tN}3456789:;<=>?$@,A4BBtO}uC@FD GRAPHIK-DEMO(c) by CHRISTOPH STAHLUpravil Rudolf Kudla(United Electronic Crazies2tP}<rA'A9A @K@@]AR@``r-@@FW!(tQ}Pockejte prosim 1 minutu.=( Az se obrazek objevi,W( stisknete klavesu!PD MA*-@6@6tR}A @M@D ZPdn_<;@(,;@,;@,;@,;@,_6.tS}x06.7@<@, 6.&6.,6.0PK-A-!P-6-36-7PC6-@yGPtT}K W -@6@/6-d:@,>6-d:A ,W6-d:@ &,%@ O-@'-%$@tU}+P;6-'@&O Ap 6-&P ;-@@%'6-'@&; AtV} 6-&P -6-&+&@,! -6--6-%+&@,!!A-6-A 6- PtW}6-PW #,5/@yAAYSB2w@W)C-@+tX}A$@5M@09 C AP A`O]6-B16-B'6-B36-@y?6-AStY}6-@@$A] A0"1 #A#-A6%@'"-1 ,K8AA6'BBA9AtZ}AKAY@46<<72,169,128,69,203,133,203,141,10,212,141,27,208,104,64@QJ+@ %@2T98@t[}(@}*8@9(@}^##-%A6$@@h3A8%g%%iA38%@t\}r6-%@@6-%@@| @e'8A`6-B1'6-B$O8@t]},%8@,6-%6-QO8@/+8@,/%6-+6t^}-QO"6-a@"6-P:'@,QO8@b8@b&t_}Q0O:K6-@6-A'6-@F9AYKA#@DBByN1-A$-t`}$AV%1 X33,52,50,41b #Al6-F:AV,v-@"06-$AV%$@ta}'"06-C:,"@6-C:,"@6-C:,"@6-C:,9@M#B2H%tb}$@ %%@ 7A%@; MA@,,9C:,$AV%A%@R@,,9C:,$AVtc}%A%@R@,,9C:,$AV%A@%@R@,,9C:,$AV%Ah%@R@,,9C:,$td}AV%A%@R@KB2R#B2T%@7B2S%@KB2U%@QD:KOUte}LE256.TUR%@R@KB2R#B2T%@7B2S%@KB2U%@QD:KOUt 09Ro(nov pod Radho&t%mTel.:0651/566676DOS.SYS, AUTOEXEC.BATXg} Tyto soubory obsahuj) DOS a d*vkov` soubor pro automatick[ spou&t%n) FLOPu a celkem v*s nemus) zaj)Xh}mat.READFLOP.COM READINFO.FLP$ TotoXi} je 'tec) program, s jeho( pomoc) te pravd%podobn% lousk*te tento text. Pat@) k n%mu je&t% soubor READINFO.FLP, kter` obsahuXj}je textov[ ]daje pro v`pis tituln)ho menu programu. Pokud jste v DOSu a chcete si p@e')st n%kter` z textov`ch soubor+ na diskZ}m-BSEAINBNSECREASECWRITPIKAZCLZINSERBADELNAVYFUNKCDOFUNPICHARSCHAALVODISNEBxl}LINBDCPUTHEDISDISKUHBUFMAPBUMASCISMAMWRITEMABIBHuBHuA(Odtxm}@ @ B @ [B<@@@MAAAB"@ACxn}FSGF< BGS!BHD"#J$%J&xo}'()@*<+N,-@.=/01 2B333BCW456xp}7:Q [[6-C:Nh hhhhhhϠ H****)h]9d͑ddi(deiː`,6-C:@ `,8%@4xq}6-C:h hhdId`,(bb6-C:Uhhhhhhhh h hxhw,w S0%i  wߥxx֠xr}ԩ`,2ee;A$%@,;A,;@,;@e,;A$,;@,;A$,;A$,<_6-@xs}6-@$6-C:,567A$,..A6-M6-@V6-C:,_6-C:,Fe +-@@9(DIRECTORYxt} EDITOR V1.0K-@@e((c) 1992 Rudolf KudlaG3-@@3(United Electronic CraziesP9A@xu}'@9AR@Zf6-U:A`,(9&@@<%@&P8A`&@f8%xv}@0&@dPn6- Ao] `Px ] PD]6-+]@",$@-6-a@"3-xw}D6-?:<@,D)6-?:<@,;6-k:=-*+ ILRTDNMSWAFBCPG<>:,,@(D\AA A@A`xx}AAAAqApAAAAAAPA A PA `AAPxy}\<O P)$6-k:12345R<>:,,0!@<6-@QTN=6.3Read directory from the disk 1,2,3,4xz} or 8(Ramdisk)?APN(A6"6-?:<<<<Aa<@,6!A'A 6.PP\\c6.x{} Disk error #(67@,.=:,Q67@,. while reading directory.UPY)c AqY6. Disk error #(67@,x|}.=:,Q67@,. while writing directory.UPY)@<6.2Write directory on the disk 1,2,3,4 or 8(Ramdisk)?@P:x}}&6-?:<<<<Aa<@,:!A'A\P\)6-&@ )6-@c\+x~}6-%@"!@c+6-&@"\+6-&@" +6-%@"\-O6-%@!!@cx}-6-QTS6-F:%,%Z@:x,K6-%@$+",&@$+,OPS\"=O67@dx},.%67@,..6-C:,:6-=Q,6.B 1 6- P\6T@NO6-$@1:%%%x}@A$&@F:%@c,N6-&@AH:%%%@@d&-%H67%@<%@,.JQx}TT^Oh2-26-?:<%@<<@",rJ-@J6-?:<%@%@"$@<%@"x}<@",|J-@&J6-?:<%@%@D$@<%@D<@ ,}6-U:@,8A~*-@'x}@!*( Selected: QT( 6- 6.B-----------$P(\dO]6.ORead Write Select Line Text Mx}ove Delete Insert Neg Prnt Get All Frame Blok CopyaPdQ U:@,%A YA(Q"@d6.P\x} 6.xP6-@d\T86-$@,6.7%@<%@,86-@.-%@(-%.6x}-?:<,,)6-?:<,,"AUAP"@'A`@"A&)6-&@$+!@,66x}7<,. @ A3"@0)6-&@$+!@,3 A"@1A067<,.>:,)6-%@x}!@)6-@ A&67%@<%@,.0\1T:QO6-$@19%%@%Ax}$&Q67A ,.; F:%,6-&@D69%%@%@d&3%@d6QN 6x}- PP\X&&ŠbOl#"6-P# A`v-@c F:x}%,P QTO''A A@A`AaQT 6- P6-&@$Tp.6x}.7$@%@<$@%@,46-8P>6-BPm67$@%@<$@%@,.p$TF#-$@x}%@%@?67<,.>:@:7,,ZA(,C F$RA67$@%@,.7$@%@<$@%@,O6-x}%@R$&&Š 6-@P\6-@P\ 6-@P\%&&x}ԠР*IE6.;0.BAS 1.CAP 2.TUR 3.COM 4.LST 5.FNT 6.PIC 7.M65 8.EXE 9.---IP44) 6-k: 0123x}456789<>:,,4"Ap>W(6.BASCAPTURCOMLSTFNTPICM65EXE---K6.7$@&@<$@,W6-@Hx}-@cRA%7<%@,4*F:%,"36-%@A%A \6-%@ f P \kTp"Ox}6.xP6-@d"QzIO-@"#(5-@"F6-?:<@y,IQT]Y6.O0  1x} | | 2  3 ===== 4  5 ..... 6 ##### 7   8   9 ]P-) 6-k: 0123456789<>:,,%()P-\6x}-$@&@>6.| |===...###  Y6.7%@<%@,p67@<@,.67@,.6x}7@,.7%@<%@,\67@<@,.7<,+6.B:67@,.@6.F6-JPNP\6-%@x} A #6-6-@P#\_&-&@6@,6-W6.7$@%@<$@x}%@,[P_ \{ 6- `;6.(Press any key to continue. ESC to abort.G6-@YAdm-x}@c{6-%@n@ P)#6-?(}St Name Ext Len PosZ(----------------------n"@'x}A%t9([:F:,, 7$@%@<$@%@,J6-U:%@,NP_6-U:%@,cPf(t6-%@x}- %6.Press any key to abort.)P-)\NO(  AU&(0[:,)@26.[:,H(7@<@,KAx}NQ%%ԠҠР?`6-!6.>:@e,067A$,.?67@,.$U6-$@6-x})6-<6-U:%%@,UF:%,"A%//(File  "7%@<%@,".("x}( Empty file( A846-?:<<<<<,*6-%@06-4P9b6-%F:%A',VA'&%V6-F:%x}A&,%+F:%A%,V@,$AVbA:'(!( bytes  sectors$('(;%6-%@% @dA`x}<)6-@\B%%ԠҠРL ]6- (A`M3`/6."Writing new sector x}map on the disk3PQ2-(2F:%,"@eAPV6-?:<<<<<,`33%A%F:%A%,x}V@%F:%,$@j6-?:<<<<<,~%6-%@% A$A\ D:DIREDIT.TURA%,xu^^<s3>00x|73>00x`c6<9c` 33c366fffg~33>00xgfffff<11111l}{!!\]_\ED!EOHI B V`}   TURl}BO-BASIC XL 1.5 (c) 1985 Frank Ostrowski!  ө)6L]""$$ (p%l}J[WܠjeC /D%Zub2gTSt$8®݊Ò2% 5RŢtl}d.’$3@X7t5w5$?## $#L+D:*.*S:C:P:$#.#) `:#(6ENeU\l؏&/ؕ؄sأ$Ll}ENeU\lأ$8آǔƐƉƐƇ4cY%٦rULۉCۄړp^gyض%iwܸJڅ*ܣ$ڭڞجئأأ$l} ,(""(222000000..222222222222222222222222222222**22*22&222$2222222222 ,(""(0l}000000--**2*&22$2222222 V`hh@,lHH$HHHHHHӍl"H$Hl}Hl $`GHFH\` ` 4ӭ l 4Lq ӠԪӅԆL} Ӡ L( ӑ)l} ` b% +L:#HH 0 HHLj%ӥHlL{ee 8eeeel}Ӧee褢%ƚƜ`88夅奅8夕l}奕Ӡȱȱȱ㦢`L+`8` .E)))8@8e0 *څۅl}܅݅ޅ߄ԠF0y"ޥy"ݥy"ܥy"ۥy"ڥy"و0ǠF0y"ݥy"ܥy"ۥy"ڥy"٥y"؈0l}ǠF0y"ܥy"ۥy"ڥy"٥y"إy"׈0ǠF0y"ۥy"ڥy"٥y"إy"ץy"ֈ0ǠFl}0y"ڥy"٥y"إy"ץy"֥y"Ո0L-`8`E)))8i@0 *ڄԠ"(l}"!""" "L**""""""&О"("!"""l} "L**""""""&О"("!""" "L**"l}"""""&О"("!""" "L**"""""l}"&О"("!""" "L**""""""&Оdl}"("!""" "L**""""""&ОL-6"e""el}""e""e""e""i""}"""}"""}"""}"""}"""}""ǭ"m"""m"""ml}"""m"""m"""m"""}"""}"""}"""}"""}"""}""ǥՅօׅ؅مԅՅօׅ؅`l}` ` ` `80 `ԥՅ +.JJJJ)iFiFi1FicFi'ȐȦoFiUȐFl}iiFi#iFiGi Fii@F iiFiiciՊFigi'iՊօשBL-`I)l})83Ԥԥդե֤֥פץؤإ٤L,K6"ХL--L--L--l}E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L-8٥إץ֥հ'I8م٘l}؅ؘׅטօ֘ՅL-ؤm\G0Q@Ն֩م؅2եمֆשم"ե؅֥م׆ةեׅ֥؅ץمl}؆لԘ)q +` . |. &7i |. ,%!L?.`刱䈱㈱∱ሱl}`ԅՅօׅ؅م`ԍՍ֍׍؍ٍ`ԍՍ֍׍؍ٍ`L.L. Խսֽ׽l}ؽ` L%/`ӽޕ &ԅ)@إ)JJJe)e - M 1.l} &Je0F 2 . /L(8`@ԠՈքׄ؄` . |. , . . |. , #/L(8`0 I@ԥ) 2l}f / . & r 1. #/ &?P , .Iiԩ +)ԅ ,ӽޕL(`8`$l})Ԧ61718191:1;1 (ť)8@0$Յ)e)e -F . / , . &1 1. #/ &l}F I`U9>`D'RFuCU?b9dYdg@W2@?tS)%)@0)%ԅԢ / . &G  1.l}Ӱ6 #/ &.ӽߕ ,ԅԥ B1 (`8``0?i? . . / , #/ &ԍՍ֍l}׍؍ٍ . . ( / , O2 / ,0 .JeF 2`L+) .e٥eإeץe֥eՊil}؊؅٥ׅإօץՅֆե1ԥ'JffffJffffJffffJffffم`ԩ&&&&*&&&&*&&&&*&&&&l}*`Pi`)JJJeԅԘ)Peԅ`եԆ8@EB)JJJeԅԥ)PeԅԘ)3eԅԽ3eՅ՘)JJJ}3ԥ}3l}`)JJJeԅԥ)PeԅԹ3eԅԹ3eՅդЧ` 0@P`'Nu pX@(#d,X L(  兢0l}襙 bɥ⥋㩀 50ɥ0DȱȱȄ   ik#ZMkVgğe拰ㅋ⅊l}0 eee拰 L f5дƨħ 4LY4 f5К,樥ŧH 4h h5L4樤ܱ.* O %30  5l}Ԅ +(fԤԈ`ř嚰Ԥ`ڥۥड़0-԰eڅڐۈ0eeL+58` Ol}#`,#5  6`]5 6DE 68DHEIHI V0$ 6Sл B V,#l} 6` $#LllBHI V0HH V0Ԩh``a$%Ȏ$$xө$Ѝ$ ` `@l}X a)6 Ӆʢ ʎD  _ɠ %` ɩHH `өL: gl}% D:AUTORUN.BASөjJHH`ՠԢӱԙ!ӹ!`֝DEIHB V0YڝDa۝El}օܥׅݥܝHݝI V0+Ӡڑڑ0`l `  䅠 _ɠԐl}e拢 &L &Lħ © ¥4 䥝ň剰' k ɀ8@4= LY ĩ`OJ ]Jl}?L˜ KԪȱLRHHצ R, hhLRHHHHHH /0ȑȑޠhhhhl}hh`HHHHHHHHHH $H bɐhȥLHhhhhLň剰)l}i桰` )``L(兢ħ #$ x Hҩ h$襚ҥ l}` UV #T` ` `,H ¥ȍ` JKhLŢ  #)I L ¤Ȣ`L¦ ¦ Ll} ½J*K+ $LąLĩ …L~ …`H Ġh é`,H hH Ġ  ĭ 8}}l} L n [h`LkL © 8倝偝 Ġ  ĥ󥃅  Lĩ l}LHé éLH#h ĩ`H hKJ L+ , H hHHħ s hKhJ  Lĩ# qLl} ĩ ŘL ũ& QŽLM " ĽNL  ĥԝL՝M  ĥԝN%LV  ¤ħ` Ťħ` ƪ l}Ċ Ťħ` ¢`届 x݅ L ĽCӠɀ L]Ɉ L] Ln LŠl}IHEDBL$HH hh +L `ħ LĢl ¦`YDAER ԅՅ֦l}󅗄`L+ ¢p 0 Hp hɈL` ,#,$,!Lé ,H ĥDEԝH՝Ih l}L©L $`L© , k ĩԅ  + ĥ 夨ħ`2ƪƪ ! A!Ƚa!Ƚ!Ƚ!Ƚ!l}!``氤hhL1@$ƪư 0 0 n$P`L+FҐ֥װ綾إٰو LǠl}Ffؐ ee&ee* &eeeԪeըee$.ƪ@!Ƚ`!Ƚ!Ƚ!Ƚ!Ƚ!`l}!!!!`!@!^!` Ȅ 8 n奱 ٥Lǥ֤צưĘ=ŗ78֪א&l} eԥe$`L: L ԅՅօׄ 1פ& ٤ţĢԅeՅe8包卅l} ]& 8Ԩժ%אְ`ֆL夨ħ` FҰg8&0ei֥i0Tׅiإi0BJe؅eمl}0&ffff&0 &0 eeL+օפإ颎 %8包ԥ卅 L ɥl} ȱъŠe拰8``,ªȱȱI ѝ3ȥLɥHHO]l}  ȥe暰Х ȥL+ʅȱhh`Lħ OԪȱԨ``L :l}0 `L(奷 bɥ󥋅ȱȱȱȄ#鈄0B8eeŶl}ɛ,@LBˤ,ɛ`L?± ˤ樱f Oƨ x݅ + ~ [ˠ O樥0# +  L˥l}`LL :ɛ,$PH h $P润䧰 ʐLʦ䧐 +` ʐL3Ll}BˢԝD՝E֝HםI L 兢L]& 兢L% ,L6 ,L6 &L6 (L6妪@!I@!` ؐb`P KW ؐRBl} ؐ=;G ؐ4@ ;+ƪƪ@!=A! (ƪƪ@!A! ƪ@! ,@@檦@!`!!!!!!`ƪ@! ǩl}jҤ /L.٤ƪƪ@!@!, 舽`!`!!ـ!!٠!!!!!`@!jI*` . ֪ (l}ϰ`(8` ֤ׅԄ +҅L: Lyƪ8吪周Ly sũ + ŐL Ly sŠԄ h l}L} L}٩    e쪽pLyL( + ڥHJJJJ h) 0:i`  ک; n +ȱ)ȥ%l}ݓ Lh ԍՅԄׅ֩өL:ƪ?Ԣ )ɠ )  -L &Lڦ@!)@!` n)8@l} -L:` / n)8@I= n)8@/ѩ֔$ሄ ,L: + n 0Ll}8 n 0L8 n H1L8 n /L8 n /L8 n D/L8 n 1L8LLإL( &)ԥ)8@JjHl}@MC)JJJe)e .F / .P . &F . #/ &L.L(HHHHHH /hhhhhh l}& Y/hԅL:,` L _ܘ%ᨥ%Ly _ܘᨥLy _ܘEᨥELyٚ<|'g 0L`l}!!!!i ` &LإL٥LyɥLzvmZ ƨ!0 4 䦵 ¥ԝD՝E֝Hel}םI Lܤį eį L` x݅ƨLLLܤ ©`#ۢ Lĩ_,l}ߤ ڄ . eڅԥeۅհ"8څ֥ۅא8ܥݰL۠Q%0ԅإՅ٥ަ0%Ql}% L-ե0LޥڤLyمօנ6&֐ eו`L( Hħ hբՅ `ޥԢ `ޥՅl}&&֐eܥeېڈ 7 \ 7 j N \ N j$0!ee80å/8ܥ۰uڕl}0eUiV`TUV`8UV`eTi`8TȢ` $L„')Q ȱ8l} e新`8`L齀).Q Ӱȱ8e新 O :L䅫# *$Ŭl} Ʃ HL"䥫ș L` Ml/#樱0ZS'`ȱȱȱȱȱȱȄ`ȱօȘuԩׅu՘e֨҄l}`樱I 屝Ҡȱȱȱȱȱ` n$҅J?eԨe` L 兙 兛 n %3 Ԥ` l}, , , L檤 ٙ!ؙ!י!֙!ՙ`!ԙ@!ә !ҙ!` 䤪ƪ!ٹ!ع!׹!ֹ`!չ@!Թ !ӹ!`ƪ!l}!乡!㹁!a!A!Lp ґȥӑȥԑȥՑȥ֑ȥבȥؑȥّ` ***j)e)e`ʭȅil}ȅiȅȩȩ Lfإ  4  \ +] ¥򄟄m}   넨ɛ$0L祔 Z f0#ڠ쩀 ߩ6ei$0 녖چ + !5m}ɛȑ @膔7 ɛ 襔!ɛL! _ɩ8$IȢ %em} &!$P* &8孨客 "&$ 1L~ L~ &L _ɰe拢 &L~ +0 %30Ԅm} 襡L 9:枢0 O L :H9Hhh tLHH`m}hhLCL馩`ʆLC枢0ְşLC`A枢Ɣ!L!Lm}!T 򈩛LQLD ijq ߰,iŰD VD8` 覲`8` 넬 S( +饰m}0 S0:$$ p8`$p (ȩ@҅ҥ򄬤 ߰ A L8򨢄 %Ӥ򈦬ʽ ʽ %m} +HH 屝EҨhh$P0Ƭ 襯I `_A[`8`80 &Ոm}ԅ` 넬$ +  + h갳 h) + , 褔ԙ!` "8` 襔 ɛ "ȱ"m }嫤!`! `) ɛ%)a{)_0:A[_դ`RE͕DATINPUԑCOLOҝLISԖENTEҚLEԛIm }FOҗNEXԑGOTϑGO TϑGOSU½TRAАBYŐCONԞCO͟CLOSŐCLҐDEǞDI͐ENĐNEנOPEΖLOAĖSAVŢSTATUӣNOTPOINԡXIϤOΒPOKťPRINԐRAm }REAĨRESTORŐRETURΩRUΐSTOАPOХGEԫPUԑGRAPHICӒPLOԒPOSITIOΐDOӒDRAWTϓSETCOLOҬLOCATŔSOUNĦLPRINԐCSAVŐCLOAĚERRm }OR- DPOKœMOVœ-MOVŪ*ƐREPEAԑUNTȊWHILŐWENĐELSŐENDIBPUBGEԒFILLTϐDϐLOOШEXIDIҖLOC˖UNLOC˖RENAMŖDELETőPAUSm }ŖTIME$PROøEXEÐENDPROÑFCOLOҪ*̕-RENU͒DEDUMЪTRACTEXԖBLOAĖBRUθGO*’PAINԟCLӔDSOUNCIRCLū%PUԘ%GEԚm}GOTGOSUTSTETHEΣ<<>ުNOOANĨ<<>STRCHRUSASVALEADATCOPEESIRNFREXLOCLOSQSGAm}BINPADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+,m}%5&6(+8,<Xk`fghilm^deDѳHc?,Ќ,е,Y_Ҳ+7,/m}01 2!3"4Ɛ"-"."-؂ٿ֐ːm}ĐאŐbj+9,+;,ʐͭm}ͭ@ABC\=>[<+:е<,&%rvnnxc<m}\-78s_XV+@D&0d*"'2GJh m}NRl~&2 +饰(+VWZ ]a8`L`  ¤ħ.H h L5 䄡 m} 䅭 bɠ04Ů .ŭ%) e拰 ĩ L+Ư0 Lem}`毤Hɛ) h`  L ȱ R @ʆ ȱȄ Iğ` :62T Fm} :7 8 Lbԩ- L 8 8,I ɨ 8L.UH `ƨh $ %3   + \L L 8󅯩m}" ¥ 8" ©" Ư" L8q :Z#]abj(=) W같  L樤ħ`hh`H Yhm}Z L<>EO ƹƹ0`H f5h`I&` =? FQA` L񄳱ȱI m}䦐Ħ ąŅ T k /䧰 k ,Ǡ ĩJH ThĥȑĥȑĦʊȑ`HHąm}ŅH h hhhh ȱIELZ L`ȱI Hȱȱȱȱȱ m} , h @ $L+L.*ȱȱȱȱȱjEE `EjI `e`ħ ¥m}0 ` Lk 䦪`! 䧰L A@L `I&`L ©؅ Lm}.0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH hm } #ԤLQ #LLei  `LԑȥՑȥ֑ȥבȥؑȥّ``䈥m!}剰#)iiLɠL4űI&`048ץğ=ȱȄ m"}`L  L0e拠0ȱȄL  䦪`!' >?L (<ж`!  $Л +`,LőŐ78Ƒ8 Ƒ`8` - PѠm$}`,,L L PQ 8,L ȱI ѝߠȱ`m%}ԩ,L E  $EL+L],,,؍ 0âLɀL ©7 F󦹩 RbL g m&}0g `Ո V fL{Ն + +􅕄L AT LINE?BLOAMEVALU>#VAR$LE?DAT>3276INPUDISTACOVERFLO?Lm'}IN?FOTOO LON?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OPEΣRD ONLm(}EOTRUNTIMEOUNA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA͠D?>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCMm)}>DI?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@Մ$ 0`m*} 0` 0LoH - . /h &@Յ՘JJJJ X) 0:i`AVC2 sŠ 5  <)  m+}< L L + e +e`e`&&&&&&eee` m,}&&eee&*`` 兙 䦪!0 4 ۄܱ **m ݤܱEۅڦڱ=m-} ܥeƥiեLN@ ` **)]` 00`` ( ((((((((m.}8`W)ߥ & &e &߽řِ׼JJJJ&eXޥeYߥ䥛 9 FfЎᰈm/} `  M 8*` 兙 󥐅i祣L{ &m0}L  0 & L ȑ & L; # )ȱ L m1} )ȱ) )ȱ 8ƣŐő0eސ`ƙ8ް`)ȱJJJm2}```=`]``` E߭H Ġ} hL±&Lv`[  ȱ Rm3}]  L L  䅠 bɰhhğȱȄ L l"0e拱LjLxm4}ȱȄ L l"0e拱LjLxl3Lachtan u') n%m'inu=================== Program pro v`uku n%meck[ho jazyka s mo(nost) vyu(it) jako slovn)ku. Umo(uje ]6}tvorbu vlastn)ch soubor+ slov)'ek pomoc) editoru.Autor: ing. Dubsk` JanAdresa: Letkovice 73664 91 Ivan'iceokr. Brno - ve]7}nkov Program vznikl upraven)m programu esko - n%meck` slovn)k V 3.0, jeho p@eveden)m do diskov[ formy, roz&)@en)m a od]8}stran%n)m n%kter`ch nedostatk+ d@)v%j&) verze. Oproti d@)v%j&) verzi umo(uje zadat v 'esk[ i n%meck[ '*sti v`razu a( 108 zna]9}k+, tak(e lze zad*vat i slo(it%j&) fr*ze nebo cel[ v%ty na procvi'en) mluvnice a pod. Pam% pro soubor slov)'ek m* 21 KB, co(]:} reprezentuje asi 1100 slovn)ch spojen) v jednom souboru. Zrychlen) pr*ce bylo doc)leno tak[ t)m, (e program lze zkompilovat.];} Program se po zapnut) po')ta'e s*m spust). P@i zap)n*n) je nutn[ podr(et kl*vesu OPTION, aby se vypnul vestav%n` BASIC]<}. Pokud tak neu'in)te, program V*s k tomu s*m vyzve. Po nahr*t) ]vodn)ho obr*zku se spust) melodie. Tu je mo(n[ p@eru&it n%kt]=}erou z kl*ves OPTION, SELECT, START, OP, SE, ST$. Pot[ jste vyzv*ni, aby jste zadali re*ln` 'as. Potom po V*s program vy(adu]>}je zad*n) hesla. Zde m*te 3 pokusy. Po spr*vn[m zad*n) hesla se spust) vlastn) program. Na obrazovku se vyp)&e menu, ze ]?}kter[ho si m+(ete vybrat n*sleduj)c) mo(nosti: Editor Zkou&en) Slovn)k prava soubo]@}ru Minidos Konec Po zvolen) n%kter[ z mo(nost) se nahraje p@)slu&n` podprogram. P@i volb% "Konec" s]A}e s V*mi lachtan Ren[ rozlou') a program je ukon'en. V`b%r je prov*d%n kl*vesami OP, SE. Potvrzen) se provede kl*vesou S]B}T. Krom% toho je mo(n[ t)mto podprogramem nastavit barvu a jas obrazovky. K tomu jsou ur'eny kl*vesy "P", "T", "R" a jej]C}ich kombinace s kl*vesou "CTRL". P@i stisku kl*vesy "R" se postupn% nastavuj) barvy r*me'ku z palety 128 barevn`ch odst)n+ - ]D}16 barev v 8 stupn)ch jasu. P@i kombinaci "CTRL  R" prob)h* v`b%r barev v opa'n[m po@ad). Stejn% tak "P" a "CTRL  P" nastav]E}uje barvu pozad). Text m* v(dy stejnou barvu jako pozad). Kl*vesami "T" a "CTRL  T" lze navolit jeden z 8 odst)n+ dan[ barvy]F} tak, aby celkov` dojem p@i pr*ci byl p@)jemn` pro o'i.T v o r b a s o u b o r u============================= P]G}rogram slou() pro vytvo@en) souboru slov)'ek a pozn*mek. Po nahr*t) se v prav[m horn)m rohu objev) @ada ')sel VVVVV/SSSSS-PP]H}PP$. Jejich v`znam je n*sleduj)c): VVVVV - velikost voln[ pam%ti v bytech SSSSS - velikost souboru slov)']I}ek v bytech PPPP - po'et slov)'ek v souboru M+(ete si vybrat z n*sleduj)c)ch mo(nost): P@ipisov*]J}n) k souboru Tvorba nov[ho souboru P@ipisov*n) pozn*mek Nov[ pozn*mky Editace souboru]K} Load Save N*vrat 1$ P@ipisov*n) k souboru ------------------------ Slou() k ]L}vytv*@en) souboru slov)'ek. Na obrazovce se vykresl) t@i okna. Prvn) slou() k zad*v*n) 'esk[ '*sti slov)'ka. Na konci je ozna]M}'eno "". Druh[ je ur'eno pro zad*n) n%meck[ '*sti slov)'ka. Na konci je ozna'eno "N". Ve t@et)m okn% se vypisuj) posledn) sl]N}ov)'ka souboru. Na konci je ozna'eno "P". Po t[to volb% je kurzor nastaven v prvn)m okn% a m+(ete zad*vat 'eskou '*st sl]O}ov)'ka. P@i dojet) na konec @*dku p@ejde kurzor automaticky na dal&) @*dek - pokud nejste na posledn)m @*dku. Mazat p)smena l]P}ze kl*vesou DELETE. Po plo&e okna se m+(ete pohybovat pomoc) kurzorov`ch &ipek vpravo a vlevo. Kl*vesa RETURN je ne]'inn*.]Q}Kl*vesa SE- zp+sob) p@echod kurzoru do opa'n[ho okna, kde je mo(n[ prov[st opravu v`razu.Kl*vesa OP- jsou-li ob% '*sti ]R}v`razu zad*ny, zp+sob) za@azen) v`razu do souboru slov)'ek a p@echod k zad*v*n) dal&)ho slov)'ka.- nejsou-li zad*ny ob% '*st]S}i, m* stejnou funkci jako kl*vesa SE, t.j. p@echod do druh[ho okna. T[m%@ v(dy tedy vysta')te jenom s kl*vesou OP.Kl*vesa S]T}T- jsou-li ob% '*sti zad*ny, zp+sob) za@azen) v`razu do souboru a ukon'en) zad*v*n) slov)'ek.- nejsou-li zad*ny ob% '*sti,]U} zp+sob) pouze ukon'en) zad*v*n) slov)'ek. Pokud je prvn) znak v okn% mezera, je okno pova(ov*no za pr*zdn[. Za k]V}onec v`razu je pova(ov*no m)sto, kde za sebou n*sleduj) dv% mezery. V tom p@)pad% je zbytek okna ignorov*n. Nelze napsat]W} znak "-", proto(e ten je vyhrazen pro odd%len) 'esk[ a n%meck[ '*sti v`razu a m* d+le(itou funkci pro orientaci v souboru. Z]X} toho plyne, (e nelze napsat nap@. e S-Bahn, ale je nutn[ vypsat cel[ e Stadtbahn atd. Takov`chto v`raz+ je v&ak velmi m*lo.]Y} Dal&)m v`znamn`m znakem v souboru je '*rka. Ta odd%luje r+zn[ alternativy odpov%d) na zadan[ slov)'ko p@i zkou&en), nebo]Z} vysv%tluj)c) pozn*mku. Tu je vhodn[ ps*t do z*vorek.$ Nap@: chu-r Appetit,e Lust jako,ne(-als st*t,pe][}n)ze$-kosten$ Je mo(n[ zadat na 'esk[ i n%meck[ stran% slov)'ka libovoln` po'et synonym, a( do vy'erp*n) maxim*ln)ho po't]\}u znak+, tj. 108. P@i zkou&en) pak po')ta' srovn*v* Va&i odpov% s v`razy uveden`mi mezi '*rkami. Dal&) v`raz je proto nutn[ ]]}ps*t hned za '*rku, jinak by se mezera p@ipo')tala k v`razu a odpov% by byla vyhodnocena jako &patn*. Pokud v&ak zad*v*]^}te soubor fr*z) nebo v%t na procvi'ov*n) mluvnice, nelze '*rku pou()t jeko odd%lova', proto(e se b%(n% vyskytuje ve v%t*ch. V]_} tomto p@)pad% jako odd%lova' slou() te'ka, otazn)k, vyk@i'n)k nebo st@edn)k. Tak[ zde potom plat), (e mezi dv%mi r+zn`mi var]`}iantami odpov%di nenech*v*me (*dnou mezeru. Rozli&en), zda se jedn* o soubor slov)'ek nebo fr*z) se prov*d) a( p@i zkou]a}&en). Z uveden[ho je z@ejm[, (e buto budete m)t r+zn[ soubory - zvl*& slov)'ka a zvl*& fr*ze, nebo jeden druh souboru]b} - fr*ze, ve kter[m budete slov)'ka odd%lovat st@edn)kem. Takov`to soubor v&ak bude obt)(n% pou(iteln` v d@)v%j&) verzi progr]c}amu, zde budou v)cev`znamov* slov)'ka &patn% vyhodnocov*na$. Tak[ pro po(it) v podprogramu Slovn)k se mi jev) v`hodn%j&) m)]d}t soubor slov)'ek zvl*&, proto(e se do uveden[ho rozsahu 21 KB vejde v)ce v`raz+. P@esto je v&ak podprogram Slovn)k schopen ]e}zpracovat i soubor fr*z). 2$ Tvorba nov[ho souboru ------------------------ Proto(e se jedn* o zna'n% destr]f}uktivn) operaci, p@edch*z) ji nejprve bezpe'nostn) dotaz. Pokud odpov)te NE, vr*t)te se zp%t do nab)dky. V p@)pad%, (e odpov)]q})EG,e4!6=Lt4BBBBB B BB BBBBBB B&DOS SYSBAUTOEXECBATB-----------BcTITUL COMB-----------B*READFLOPCOMBFREADINFOFLPB-----------BtHOBSAH CAPB5NEM1 CAPB"NEM2 CAPBNEM3 CAPB-----------BTBASIC COMB-----------BIKOULE256TURB8kDIREDIT TURB-----------B`HIDMEM1 LSTB#uHIDMEM2 LSTBBLITTER LSTBMACEDIT LSTBMWINDOWS LSTB>MEMSHOW LSTB -GR8TEXT LSTB7SPTRANS LSTB8VAMPRATSLSTB TYPOII LSTB-----------te ANO, provede se vymaz*n) souboru slov)'ek a m+(ete tvo@it nov` soubor. 3$ P@ipisov*n) pozn*mek ---------------]r}-------- Po t[to volb% se vykresl) okno velikosti jedn[ obrazovky. Do n%ho lze libovoln% um)stit jak`koliv text, nap@.]s} pozn*mku o tom, o jak* se jedn* slov)'ka, od kolik*t[ho po kolik*t[ slov)'ko je ur'it* lekce atd.$. Po okn% se lze pohybovat]t} pomoc) kurzorov`ch &ipek. Kl*vesa DELETE ma(e p)smena, Kl*vesa RETURN zp+sob) p@echod kurzoru na dal&) @*dek. Tvorbu pozn*me]u}k ukon')te n%kterou z kl*ves OP, SE, ST. 4$ Nov[ pozn*mky ---------------- Proto(e i zde se jedn* o zna'n% ]v}destruktivn) operaci, p@edch*z) nejprve bezpe'nostn) dotaz. Pokud odpov)te NE, tak[ zde se vr*t)te zp%t do nab)dky. V p@)pad%]w}, (e odpov)te ANO, provede se vymaz*n) okna s pozn*mkami a m+(ete za')t ps*t nov[ pozn*mky. 5$ Load 6$ Save ]x}------- Tyto funkce slou() k na'ten) d@)ve vytvo@en[ho souboru nebo k ulo(en) V*mi vytvo@en[ho souboru na disk. Postup ]y}p@i obou funkc)ch je obdobn`. Pokud je v pam%ti n%jak` soubor a u( napsan` nebo nahran` z disku$ a byla vol*na funkce P@ipi]z}sov*n) souboru resp. P@ipisov*n) pozn*mek, p@edpokl*d* se oprava zm%na$ v souboru. V tom p@)pad% u volby Load p@edch*z) je&t]{}% bezpe'nostn) dotaz, proto(e po proveden) volby Load by byl p+vodn) soubor zni'en. N*sleduje v`b%r disketov[ jednotky D]|}1:, D2:, D3:, D4: nebo D8: Potom jste vyzv*n, abyste zadal jm[no souboru. Zad*v* se pouze jm[no a po')ta' s*m dod* extender "]}}.DAT". Nen) povoleno pou()vat divok`ch karet otazn)k a hv%zdi'ka$. Pokud nev)te p@esn[ jm[no souboru, po stisku kl*vesy]~} HELP se do ok[nka vyp)&e adres*@ zvolen[ diskety s extenderem ".DAT". Pokud se v&echny jm[na do okna nevlezou, po')ta' zaho]}uk*. Po stisku n%kter[ z kl*ves OP, SE, ST pokra'uje v`pis adres*@e. Po dokon'en) v`pisu zahouk* po')ta' 2x. Pot[ se kurzor o]}bjev) znovu v okn% pro zad*n) jm[na a m+(ete zadat jm[no souboru. Pokud se p@i 'ten) nebo ukl*d*n) souboru vyskytne chyb]}a, &patn[ jm[no souboru, pln* disketa, soubor je uzam'en proti z*pisu, za@)zen) neodpov)d* atd.$ vyp)&e se upozorn%n) a zvol]}en* funkce se zru&). Program umo(uje na')st i soubor vytvo@en` d@)v%j&) verz) programu, t.j. programem esko - n%meck` ]}slovn)k V 3.0, kter` je bez pozn*mek. V tom p@)pad% jsou pozn*mky dopln%ny jako pr*zdn[ okno. Stejn% tak soubor vytvo@en` t)m]}to programem m+(e b`t na'ten do programu esko - n%meck` slovn)k V 3.0. Pozn*mky jsou v tom p@)pad% ignorov*ny. 7$ N*v]}rat --------- Tato volba vrac) do hlavn)ho menu programu. P@itom dojde ke ztr*t% dat. Proto pokud byla zvolena n%k]}ter* z funkc) "Tvorba souboru, pozn*mek nebo editace souboru" a nebyla n*sledn% volena funkce "Save" program na toto upozorn)]}.!!! P O Z O R !!! P@ed volbou N*vrat nezapomete vytvo@en` soubor ulo(it na disketu nebo aspo do ramdisku.E d ]}i t o r============= Tento pdprogram umo(uje upravovat ji( vznikl` soubor slov)'ek. Po nahr*t) programu se vyp)&e n]}*sleduj)c) volba: Editace souboru Load Save N*vrat 1$ Editace souboru ]} ------------------ Toto nelze navolit, pokud je soubor pr*zdn`, t.j. neobsahuje ani jedno slov)'ko. Po zvolen) se na ]}obrazovce vykresl) op%t t@i okna. Prvn) dv% jsou stejn* jako u volby P@ipisov*n) k souboru v podprogramu Tvorba souboru. T@et]}) okno je komunika'n). V lev[ polovin% je nab)dka funkc), v prav[m horn)m rohu je ukazatel nastaven). )slo ud*v* po@adov[ ')]}slo slov)'ka, kter[ je zobrazeno v prvn)ch dvou oknech. M+(ete si vybrat z n*sleduj)c) nab)dky: Posun dop@edu Pos]}un dozadu Vsunut) slov)'ka Vypu&t%n) slov)'ka Opraven) slov)'ka Nastaven) ')sla N*vrat a$ Posu]}n dop@edu P@i stisku kl*vesy ST se zobraz) n*sleduj)c) slov)'ko. Pokud dojdete na konec souboru, ozve se v`stra(n` sign]}*l. b$ Posun dozadu P@i stisku kl*vesy ST se zobraz) p@edch*zej)c) slov)'ko. V`stra(n` sign*l se ozve p@i dosa(en]}) za'*tku souboru. c$ Vsunut) slov)'ka P@i stisku kl*vesy ST se sma(ou horn) dv% okna a kurzor se p@esune do prvn]})ho z nich. Je mo(n[ zadat nov[ slov)'ko. P@itom plat) stejn[ z*sady, jako p@i volb% "P@ipisov*n) k souboru". Tak[ zde p]}lat), (e kl*vesa SE p@em)st) kurzor do opa'n[ho okna. Kl*vesa OP toto u'in) jen v p@)pad%, (e nejsou ob% okna zad*na. Jinak z]}p+sob) za@azen) slov)'ka do souboru a n*vrat do nab)dky. Kl*vesou ST se vr*t)te do nab)dky, ani( by bylo slov)'ko za@azeno do]} souboru. Slov)'ko se za@ad) na pozici ur'enou ukazatelem nastaven). Zbytek souboru se posune sm%rem ke konci. d$ Vypu]}&t%n) slov)'ka P@i stisku kl*vesy ST se ze souboru vyma(e slov)'ko, kter[ bylo pr*v% zobrazeno v horn)ch oknech. Zbytek]} souboru se posune zp%t k za'*tku a vyp)&e se n*sleduj)c) slov)'ko. Tento p@)kaz je mo(n[ lehce vr*tit zp%t p@edch*zej)c) vol]}bou a proto zde nen) (*dn` kontroln) dotaz. Nelze smazat t)mto zp+sobem v&echna slov)'ka souboru. Posledn) t)m m*m na m]}ysli, (e soubor u( obsahuje jenom jedno posledn) slov)'ko$, smazat nelze. Ov&em ru&it t)mto zp+sobem soubor je nesmysl. K tom]}u je ur'ena volba Nov` soubor v podprogramu Tvorba souboru. Cht)t zru&it soubor p@i zachov*n) pozn*mek m* v`znam nap@. pokud]} v pozn*mk*ch m*te vytvo@enou n%jakou tabulku, kterou budete pouze vyplovat jin`mi ]daji.$ e$ Opraven) slov)'ka ]}Funguje stejn`m zp+sobem jako vsunut) slov)'ka, pouze se p@edt)m nema(ou okna, tak(e je mo(n[ pouze opravit chybu ve slov)'ku]}, nap@. chyb%j)c) p)smeno, p@eklep apod.$. Proto(e p@i maz*n), vsunov*n) a oprav*ch slov)'ek doch*z) k p@esun]m velk`ch]} blok+ pam%ti, m+(e se st*t, (e trv* 2 a( 4 vte@iny, dokud se uveden* funkce neprovede. f$ Nastaven) ')sla U velk]}`ch soubor+ by bylo listov*n) souborem pomoc) funkce posun dop@edu a dozadu pomal[. Touto volbou si m+(ete nastavit ukazatel ]}na libovolnou hodnotu. Pokud nezad*te (*dn[ ')slo, je automaticky nastavena 1, pokud zad*te ')slo v%t&) ne( je po'et slov)'ek]}, je automaticky nastaveno posledn) slov)'ko souboru. g$ N*vrat Ru&) volbu Editace souboru a vrac) zp%t do p@edch]}*zej)c) nab)dky. 2$ Load 3$ Save 4$ N*vrat --------- Pro tyto t@i volby plat) beze zm%ny v&e, co b]}ylo @e'eno u podprogramu Tvorba souboru. Tak[ zde bych cht%l pouze upozornit, (e volba N*vrat zp+sob) ztr*tu dat, tak(e]} je nejprve nutn[ opraven* slov)'ka ulo(it na disketu nebo do ramdisku.Z k o u & e n )================= Toto je, s]}pole'n% se slovn)kem, nejd+le(it%j&) '*st programu. Umo(uje pou()vat V*mi vytvo@en` soubor slov)'ek pro v`uku jazyka. Po nah]}r*t) programu se vyp)&e n*sleduj)c) nab)dka: Z 'e&tiny do n%m'iny Z n%m'iny do 'e&tiny Na p@es]}k*'ku Pozn*mka Load N*vrat 1$ Z 'e&tiny do n%m'iny 2$ Z n%m'iny do 'e&tiny 3$ N]}a p@esk*'ku ----------------------- V&echny t@i volby funguj) stejn%, rozd)l je jenom v tom, jak`m zp+sobem progra]}m slov)'ka vyb)r*. V p@)pad% 3$ vyb)r* n*hodn% z jednoho nebo druh[ho jazyka. Ani jednu z t%chto voleb nelze vybrat, pokud je]} soubor pr*zdn`. Nejprve je nutno tedy soubor nahr*t. Po zvolen) zkou&en) nastav)te typ souboru - slov)'ka nebo fr*ze. ]})m se tyto dva typy li&), bylo ji( d@)ve vysv%tleno. D*le vyberete rozsah zkou&en), tj. od kolik*t[ho po kolik*t[ slov)'ko bu]}de po')ta' vyb)rat. Potom zad*te je&t% po'et spr*vn`ch odpov%d) do vy@azen) slov)'ka. To m+(e b`t 1 a( 9. Pokud nap@. zad*te ]}3, po')ta' sleduje Va&e odpov%di na jednotliv* slov)'ka. Kdy( na ur'it[ slov)'ko odpov)te 3x spr*vn%, nebude u( d*le vyb)r*no]}. Zkou&en) bude ukon'eno, pokud na v&echny slov)'ka ze zvolen[ho rozsahu odpov)te v tomto p@)pad% 3x$ spr*vn%. Na obraz]}ovce se vykresl) 'ty@i okna. Prvn) je ozna'eno "Z" a zde V*m po')ta' zad* 'eskou nebo n%meckou '*st slov)'ka podle p@edch*ze]}j)c) volby$. Druh[ okno je pr*zdn[ a je ozna'eno "O". Zde budete zad*vat svoji odpov%. Jako spr*vnou odpov% je nutn[ z]}adat p@esn% druhou '*st slov)'ka nebo fr*ze. Pokud je v)ce mo(nost), je nutn[ zadat p@esn% jednu z mo(nost). Pouze u n%meck`c]}h podstatn`ch jmen a souboru typu "slov)'ka" lze ps*t cel[ 'leny der, die, das nebo jenom zkratkou r, e, s. Zde je dal&) d+vo]}d, pro' je v`hodn[ vytvo@it si zvl*& soubor fr*z) a slov)'ek. Zad*v*n) ukon')te n%kterou z kl*ves OP, SE, ST. Pokud nev)te s]}pr*vnou odpov%, je mo(n[ tyto kl*vesy stisknout i s pr*zdn`m druh`m oknem. Pot[ se do t@et)ho okna ozna'en[ho "S" vyp)&]}e spr*vn* odpov%. Pokud jste odpov%d%li &patn%, po')ta' na znamen) toho p)pne. Nyn) si m+(ete zkontrolovat odpov%, p@)padn%]} si uv%domit, kde jste chybovali. K zad*n) dal&)ho slov)'ka se dostanete kl*vesami OP, SE. Kl*vesou ST p@ed'asn% ukon')te zko]}u&en). Zinverzn) se 'tvrt[ informa'n) okno a m+(ete si naposledy prohl[dnout zhodnocen) Va&ich znalost). Po stisku n%kte]}r[ z kl*ves OP, SE, ST se vr*t)te zp%t do nab)dky. Ve 'tvrt[m okn% se pr+b%(n% zobrazuj) n*sleduj)c) ]daje: Po@ado]}v[ ')slo slov)'ka v souboru - tak(e pokud n*hodou p@i zkou&en) objev)te chybn% napsan[ slov)'ko, m+(ete si zapamatovat jeho p]}o@adov[ ')slo a v editoru potom soubor lehce opravit. Znalosti uv*d%n[ v procentech spr*vn`ch odpov%d) z po'tu pokus+. ]} Po'et pokus+ a po'et spr*vn`ch a &patn`ch odpov%d). 4$ Pozn*mka ----------- Vyp)&e na obrazovku pozn*mku]}, ve kter[ m+(e b`t nap@. uvedeno, od kolik*t[ho po kolik*t[ slov)'ko je ur'it* lekce. To jsou hodnoty, kter[ zad*v*te p@i zk]}ou&en). Zp%t do nab)dky se dostanete n%kterou z kl*ves OP, SE, ST. 5$ Load ------- Tato volba je naprosto sh]}odn* s t)m, co bylo o nahr*v*n) souboru ji( d@)ve @e'eno. 6$ N*vrat --------- Vrac) zp%t do hlavn) nab)dky.\}$":"     ""!*$$pppNPE}NE}A$$%" ҝY");" )i 0w" )""E}"ͩ0$1$% z7 Y"L%;"J%"G%""I Y"}w"Y"ӥлb \҈E}@`H惄 ԍhƃ@PKE}E}ULGUUE}UUUE}UHCUUTUE}UTUUTUE}UT@UT@@@UTD?PUTPPPUTtUTttE}t}}}}@@@@UTE}UTt@;UT@@@@E}@UUE}U@n@@@@U~@<7Uj@{UTE}U~j@UT~U@j@o@o@UT@U{j@z~ꪪ{E}U~j@jo~U{ꪩj@j{83Uk@j{@@E}j@jꪫjUT{@j{UTzꪯPjzUTE}nTzj@n_@zU뮺z_ꪐj4/U{j_ꪴE}jUꪧj_jU~j^@jUoj^jE}UjZjUꪪgjZnU0+enZjE}Uje`jZjꪫUZe_`jZUTUVW`VUTnUzE}UUnQUT~zUoUnU~ZooZUnU_U^,'oPVUzE}UVUVP{UUjUUUU{PUjU~UUUUjPjU[UzUUE}UUjP{UVUjUUUj@Pz@UUUjUUUjPPnP(#UU~UjUUE}UkPPzPUU_UjUUUoPPjPUUWUjTU~PPjP~UUUUjTE}P~PjPYUUUjTkPPjP{PUU_UjTP{PjP~PuWU$jTPE}~PjPkPiUUoT櫾PkPnPzPoUuUnTPzPjPjPUUoTPjE}PjPjPUU~TPjPPjPUU{TPjPnPj~UU{T PjPE}~PjU~TPjPoPjkU~TPjPPn@UnT뺦PnP{PE}jzUoTPjPPjU~TPjPPnzUT_PnPPE}nzU{TWPnPPzꚪUoTUPzPPkU~TUPkPPjE}ꪩUkTU_PjPPz窪UTUWPzP~PjUTUUPjPPnjE}UTUUjPnP{PjZUTUUZPjP~PUoVzU~TUUVUPoPkPU~U[E}TUUUUP~PzPUUnW{TUUUeUPPjPU~U[WTUUUUUP~PjPUoUWW@{E}TUUUUUPoPjPU~UUWTUUUUP~PjPUzUU}Vꪤ~TUUUU@zPjPUjUU]WꪩE}TUUUUjPjPUjUUUVTUUUTjPnPUjUUUVTUUPjPjPUjUUUVTE}UU@j PjPjQUUVUUjPnPUTjPUUVjUTjPnPUTjPUVڪUE}jPzPUToPuVAUoPkP{PmVU{PjPP~VUE}PzP{ PjU{PjPPjUPnPPUE}PjPPUU'PoPPUU%P~PPjoUUPE}P[P[kUU[P~PWPWUUWPoPUPUUUUPE}~PUePU~UUUePzPUUPU_UUUUPjPUUPUW瘟UUUUPjPE}UUPUUUUUUPjPUUPUU몥UUUUPjPUUPUU_UUUPjPE}UUPUUWWUUTUUPjPUPUUUUUTUPjPUPUUjU~UUTUPoPE}UPUUZUZUUP{PUPUUVUVUUPPPUUUUUP{PE}PUUjUUUPPPUUZUU[UPPPUUWUUWUUPPE}UUUUUUTPUUUUUuUPPUU_QUUUUP[PE}UUWPUUUUPWPUUPUUUPUPUUuPUUU@UePUUUPE}UUUUUPUUUPUUTUUPUUPUPUUPUUPE}U@UUPUUPUUUPUUPTUUPUPE}UPUPUPUPUPUPE}UPPPUTPPUTPE}PUTPPE}UTE}UUTUUTUTUUTE}UUTUUE}UUUE}UUE}UTUTUTUT߼UTUTE}UTUTE}UT۽E}E}ܽ׾E}F}ؾSF}Pt7o8z7zF7 \`F}K:f::7:Z%L8!):ҍҍҍҩ7:::-7:ҍҍҍҍҪ/:?:9:::Lb)%7%F}77ɠ ɧ7L*87?:*77<:;::9:8:<:LY8<:@:77=:p8k9=:Lz8=:78BF}:77>:>:L8>:8:8:L8;:;:# :C:D:?:# :E:F:@:#F} :G:H:A:# :I:J:B:):/: /:L9?:?:): *:C:D:):?:l9g:*:ȭ7F}): 77Ү):+:ȭ7 L9/:ȱ)3:3:9:)Ս ?:L<93: 9Lb/:-::)+:F}*:)):+:) ):+:): ):Ү*:`ʊ A;B;`%@%B%@%D#$%$#$%$#&'()*+,-./01212''34h:c;54345F}436789:;<=>?@ABAB77CCCCCCCCCCDEFDECGHEIGGGGDD()())*)*'210/.-,,.,.././000089899:9::;:;;<;<<><>>?F }>?@@@@$%$%4545KLMNOPQRJJJKLMNOPQRJ;<%%>E>e>>>>>?%?E?e?????@%@E@e@@@@@A%AEAeAAAAAB%BEBeBBBBBC%CECeCCCCCD%DEDeDDDDDE%EEEeEEEF }EEF "#$%yl F }[`<[=e ey<y<y<<5/5<5OO  ( 2F } <O & 0 :ҨΨʦƤ¢xdhZhPhJhFh< 5#F} !\=W>#!#<!H@95*#%#!!$F}QH@<-fLUTSR[DLKJIyLLQ[F}X>S? <(2(((#( #($(<><:<<<F}[-Q'L%Q F}@?DCT?O@HGL      y ̨yfyfL<5/<F}<5/-*<<5/-*<QyfyF}QyfyLyfP@KAyLyfyHyfyHyfyLy[yLy[y@lQF}l@lQl<fQf<fQf<[L[<[L[5[D[5[D[2QF}DQ2QDQ2LLAGB<L2L<L9[L[9[L[9UDU9UDUF}@fUf@fUf@[L[@[L[DrUrDrUrLr[rLr[F}r̨̨HBCC̨̨̨̨F}٨٨̨yy̨yyyyyyllF}llffffDC?DfyffyfrrrrrF}rrr̨̨F}yy@D;Ellff[F}[rrDDLLF}%'!*}. Naopak, zad*te-li slov)'ko moc p@esn%, nebudou u( nalezeny jeho dal&) obdoby. Nap@. po zad*n) "kr*sn`" bude nalezeno b?}toto slov)'ko - pokud se v souboru vyskytuje - ale u( ne nap@. kr*sn%, kr*sn* atd. i kdy( tyto nap@. v souboru b`t mohou a prb@}o p@eklad a porozum%n) textu by byly posta'uj)c).$ Rozd)l pro v`b%r "Na za'*tku" nebo "Kdekoliv" je ten, (e v prv[m p@)pbA}ad% mus) zadan` @et%zec b`t na za'*tku slova, v druh[m p@)pad% se vyp)&ou v&echna slova, kter* zadan` @et%zec obsahuj). bB}Po zad*n) "a" by se v prv[m p@)pad% vypsala v&echna slova za')naj)c) na "a" ve zvolen[, t.j. 'esk[ nebo n%meck[ polovin% slobC}vn)ho spojen)$. Ve druh[m p@)pad% by se vypsala v&echna slova, kter* "a" v sob% obsahuj), co( je dost nesmysln[. Volba "KdekobD}liv" z)sk*v* na v`znamu p@i zad*n) del&)ho @et%zce. Nap@. p@i zad*n) "schu" a volb% z n%m'iny do 'e&tiny by bylo v prvn)m p@)bE}pad% nalezeno pouze e Schule, ale v druh[m p@)pad% i e Hochschule atd. Je proto nutn[ zv*(it, jak p@esn% slov)'ko zadat bF}a podle jak`ch kriteri) soubor prohled*vat. P@i hled*n) se nerozli&uj) mal* a velk* p)smena, ov&em pouze u standartn) ASbG}CII sady. To znamen*, (e na zadan[ "b" bude nalezena "bl+za" i "Bratislava", ale na "'" bude nalezeno pouze "'esk`" ale bH}u( ne "echy" a pod. Tak[ pokud si nejste jisti 'lenem u n%meck`ch podstatn`ch jmen, mus)te v p@)pad% ne]sp%chu prohled*bI}vat v)cekr*t. Pro hled*n) se 'len zad*v* tak, jak je v souboru ulo(en, t.j. zkratkou nap@. r Zug$. Tak[ nahr*v*n) jednobJ}tliv`ch soubor+ prob)h* mnohem rychleji z ramdisku, ne( z diskety. Pokud tedy budete pou()vat slovn)k del&) dobu, je v`hodn[ bK}nejprve zkop)rovat soubory z diskety do ramdisku. Zde maj) velkou v`hodu majitel[ stot@ic)tek nebo je&t% l[pe roz&)@en) na 32bL}0 KB, proto(e t%m se do ramdisku vejde cel` prohled*van` soubor, t.j. cel` "soubor deseti soubor+". 3$ Zad*n) n*zv+ soubM}bor+ ----------------------- Tato volba je vlastn% obdobou volby Load u ostatn)ch podprogram+. Neprovede se sice nbN}ata(en) souboru - to prob)h* a( p@i hled*n), ale zde zad*v*te jm[na soubor+, ve kter`ch bude hled*n) prob)hat. N*sledujebO} v`b%r, jestli chcete opravit ji( zadan* jm[na, nap@. n%jak` soubor p@idat nebo vypustit, nebo budete zad*vat nov* jm[na. V tbP}om p@)pad% se d@)ve zadan* jm[na sma(ou. D*le se vyktesl) tabulka, kter* je bu pr*zdn*, nebo jsou v n) uvedena d@)ve zabQ}dan* jm[na. Po tabulce se m+(ete pohybovat pomoc) kl*ves SE a OP. Kl*vesa ST vol), kter[ jm[no budete zad*vat nebo opravovat.bR} Vykresl) se dal&) okno a po')ta' 'ek* na stisk ')sla 1 a( 4 nebo 8, ')m( zvol)te disketovou jednotku. Po tomto u( m+(ete poubS}()t kl*vesu HELP pro v`pis adres*@e tak, jak je to obvykl[ u( z d@)v%j&ka. Zad*te p@esn[ jm[no souboru bez extenderu, kter` bT}si po')ta' dopln) s*m$ a zad*n) ukon')te kl*vesou RETURN. Zad*v*n) jmen ukon')te volbou Konec na posledn)m @*dku tabulky jmenbU}. Po')ta' provede kontrolu spr*vnosti zadan`ch disketov`ch jednotek a jmen a pod* o tom zpr*vu. Chybn% zadan* jm[na autobV}maticky vyma(e, o 'em( se m+(ete p@esv%d'it opakovanou volbou Zad*n) jmen soubor+. To je tak[ mo(nost, jak n%jak` soubor vy@abW}dit. Prost% mu zm%n)te jm[no na neexistuj)c) a toto po')ta' vy@ad). Stejn% tak dojde k vy@azen) souboru, pokud p@i p@eklbX}adu dojde v pr+b%hu nahr*v*n) k chyb%. Nap@. budete m)t 3 soubory v ramdisku a jeden na disket%. Potom v pr+b%hu hled*n) diskbY}etu vyjmete. P@i dal&)m pokusu o nata(en) souboru z diskety dojde k chyb%. Jm[no souboru se ze seznamu vyma(e a dal&) hled*n)bZ} bude prob)hat pouze v souborech v ramdisku. 4$ N*vrat --------- Vrac) do hlavn) nab)dky. Ani zde nen) kontrb[}oln) dotaz a volba se ihned provede. p r a v a s o u b o r u=========================== Tento podprogram je ur'b\}en pro manipulaci s cel`m souborem slov)'ek a pozn*mek. Po nata(en) se vyp)&e n*sleduj)c) nab)dka: Load b]}Save Z*chrana souboru D%len) souboru Spojen) soubor+ Pozn*mka Pozn*mka z dib^}sku N*vrat 1$ Load 2$ Save ------- Ob% funkce jsou stejn[ jako u ostatn)ch podprogram+, pouzeb_} ve v`b%ru za@)zen) je tak[ za@)zen) "B:", tak(e pomoc) tohoto programu je mo(n[ nahr*t slov)'ka tak[ z kazety. 3$ Z*chb`}rana souboru ------------------- Tato funkce umo(uje nahr*t z kazety nebo diskety zni'en` soubor, resp. jeho dobrba}ou '*st. Nej'ast%ji se to asi povede majitel+m kazetov`ch magnetofon+, kte@) si omylem uma(ou konec souboru, ale i na disket%bb} si m+(ete soubor '*ste'n% zni'it, nap@. kdy( na ni otisknete prst pr*v% p@es ty sektory, na kter`ch se nach*z) V*& soubor slbc}ov)'ek. Pokud je soubor v po@*dku, je tato funkce vlastn% obdobn* jako Load a lze ji nam)sto Load pou()t. Tak[ postup je stejbd}n`. Vyberete za@)zen), zad*te jm[no souboru bez extenderu, a provede se na'ten) souboru. Pokud se vyskytne chyba, uprav) progbe}ram konec souboru tak, (e odma(e posledn) ne]pln[ slov)'ko, znovu zjist) jejich po'et, dopln) pozn*mku jako pr*zdn[ okno a pobf}d* o tom zpr*vu. T)m m*te zachr*n%nu maxim*ln) mo(nou '*st souboru. 4$ D%len) souboru ----------------- Tatobg} funkce umo(uje rozd%lit soubor na dva men&). Nap@. kdy( po dops*n) souboru zjist)te, (e je o trochu t@eba 1 KB$ v%t&) ne( bh}m*te m)sto na disket% nebo v ramdisku, Ale pokud byste ho tam nenahr*li v+bec, tak m*te 20 KB zbyte'n% voln`ch. Tak[ lze toutbi}o funkc) zp%tn% rozd%lit soubor na n%kolik podle po'tu slov)'ek, to znamen* podle lekc) v u'ebnici. Po zvolen) t[to funkbj}ce si vyberete podle jak[ho kriteria budete soubor d%lit. Potom zad*te velikost nebo po'et slov)'ek. P@i zad*n) velikosti se bk}samoz@ejm% soubor uprav) sm%rem k za'*tku tak, aby nekon'il v p+li slov)'ka. Potom zvol)te v`stupn) za@)zen), zad*te jm[no a bl}prvn) '*st souboru i s pozn*mkou se nahraje. Stejn% tak zvol)te v`stupn) za@)zen) a jm[no pro druhou '*st. Z)sk*te tak dva r+bm}zn[ soubory s tout[( pozn*mkou, kterou potom mus)te v Tvorb% souboru upravit tak, aby odpov)dala skute'nosti, nebo ji smazat.bn} V`stupn) za@)zen) pro prvn) a druhou '*st nemus) tedy b`t toto(n[. Je mo(n[ tedy nap@. prvn) '*st ulo(it na disketu a na drubo}hou pohl)(et pouze jako na polotovar, kter` ulo()te do ramdisku, znovu nahrajete a m+(ete d*le rozd%lovat. Tak[ m+(ete ulo(itbp} pouze prvn) nebo druhou '*st. Pokud pro zvolenou '*st nezad*te jm[no, ulo(en) dan[ '*sti se neprovede. 5$ Spojen) soubbq}or+ ------------------ Toto je vlastn% funkce opa'n* k p@edch*zej)c). Umo(uje spojit dva soubory v jeden celek, kbr}ter` ov&em nesm) svoji velikost) p@es*hnout 21 KB. P@itom si m+(ete zvolit, jestli v`sledn` soubor bude obsahovat pozn*mku p+bs}vodn) - tj. tu, kterou m*te nahranou v pam%ti, nebo novou nahranou z disku. 6$ Pozn*mka ----------- Vyp)&e nbt}a obrazovku pozn*mku, ze kter[ m+(ete zjistit ]daje nutn[ nap@. pro d%len) souboru podle po'tu slov)'ek. 7$ Pozn*mka z bu}disku ------------------- Zad*te za@)zen) a jm[no souboru. Program v tomto souboru najde pozn*mku a vyp)&e ji na obv}brazovku. Srovn*n)m t[to pozn*mky s tou, co m*te v pam%ti m+(ete nap@. zjistit, kter* je d+le(it%j&) a tud)(, kterou si ponecbw}h*te p@i spojov*n) soubor+. 8$ N*vrat --------- Vrac) zp%t do hlavn)ho menu programu.M i n i d o s======bx}======= Tento podprogram umo(uje pr*ci s disketou a v p@)pad% pou(it) TTDOSu i s kazetou ve form*tu TURBO za@)zen) "by}B:"$. T)m je vlastn% roz&)@en okruh potencion*ln)ch u(ivatel+ i o ty, kdo nevlastn) disketovou jednotku, ale pouze magnetofonbz} a po')ta' s roz&)@enou pam%t) nebo aspo stot@ic)tku. Po nata(en) programu se vyp)&e n*sleduj)c) nab)dka: Adb{}res*@ Kopie Uzam'en) souboru Odem'en) souboru Maz*n) souboru P@ejmenov*n) sb|}ouboru Form*tov*n) Verifikace N*vrat 1$ Adres*@ ---------- N*sleduje v`b%r disb}}ketov[ jednotky a pot[ se vyp)&e adres*@ do podobn[ tabulky jako p@i stisku kl*vesy HELP v ostatn)ch podprogramech. Rozd)l jeb~} v tom, (e tabulka je v%t&) - obsahuje m)sto 6 @*dk+ 14. Pokud by to p@esto nesta'ilo, pokra'ujete ve v`pisu kl*vesou ST. Krob}m% toho jsou zde nav)c vyps*ny dal&) informace velikost souboru - po'et sektor+, po'et voln`ch sektor+, informace o uzam'en)b} souboru.$ Pro za@)zen) "B:" nelze adres*@ vypsat. P@i volb% za@)zen) "B:" se tedy nic nestane. 2$ Kopie --------b} Slou() pro kop)rov*n) soubor+ slov)'ek z diskety nebo kazety do ramdisku nebo opa'n%. Umo(uje tak[ kop)rovat slov)'ka b}p@)mo z diskety nebo kazety na jinou disketu nebo kazetu. Tak[ zde si nejprve vyberete za@)zen) ze kter[ho bude prob)hatb} 'ten) souboru. To je signalizov*no t)m, (e nad volbou za@)zen) je v r*me'ku uvedeno slovo "Zdroj". V`b%r provedete kl*vesamb}i SE a OP, potvrzen) kl*vesou ST. Stejn`m zp+sobem provedete volbu c)lov[ho za@)zen). M)sto "Zdroj" je v r*me'ku uvedeno slovb}o "C)l". Pot[ jste vyzv*ni k zad*n) jm[na souboru. Je nutn[ upozornit, (e tato volba slou() pouze pro kop)rov*n) souborub} slov)'ek vytvo@en`ch t)mto programem - tedy soubor+ ".DAT". Nemus)te tedy zad*vat extender ".DAT", proto(e ten si program sb}*m dopln). Naopak, pokud zad*te jin` extender, po')ta' jej automaticky zm%n) na ".DAT". Nelze pou()t pro zad*n) jm[na otazn)kb} nebo hv%zdi'ku, to znamen*, (e p@i kop)rov*n) mus)te ka(d` soubor zadat jmenovit%. Zad*n) jm[na ukon')te kl*vesou RETURN. Pob}tom u( prob)h* kop)rov*n) souboru. Pokud bylo zvoleno stejn[ vstupn) i v`stupn) za@)zen), po')ta' po ukon'en) 'ten) zahouk*, b}vyzve V*s k v`m%n% diskety a 'ek* na stisk kl*vesy ST. M+(ete tedy vym%nit kazetu nebo disketu. Pot[ n*sleduje ulo(en) souborb}u. 3$ Uzam'en) souboru 4$ Odem'en) souboru 5$ Maz*n) souboru ------------------- Postup pro v&echnb}y t@i volby je obdobn`. Nejprve zvol)te za@)zen) na kter[m m* operace prob%hnout, potom zad*te jm[no. Zde je mo(n[ pou()t hv%b}zdi'ku a otazn)k pro v`b%r jm[na. P@i ov%@ov*n) jsem ale zjistil, (e program pracuj)c) pod TTDOSem se chov* pon%kud jinak ne(b} pod DOS 2.5. V p@)pad% DOS 2.5 prob%hne dan* operace pro v&echny soubory podle v`b%ru. P@i pou(it) TTDOSu prob%hne operace pb}ouze pro prvn) jm[no v adres*@i, kter[ spln) podm)nku v`b%ru. Je to z@ejm% vnit@n) z*le(itost toho kter[ho dosu. V p@)pad% TTb}DOSu je tedy pro tyto operace nutn[ opakovan% pou()t po(adovanou funkci. 6$ P@ejmenov*n) souboru -----------------b}------ Tato operace nen) pro TTDOS realizov*na. Program se tedy chov* jako by narazil na chybu, tzn., (e V*s vyzve, abyb} jste vlo(ili spr*vnou disketu. V p@)pad% pou(it) DOS 2.5 zvol)te nejprve disketovou jednotku, potom zad*te star[ jm[no soubob}ru zakon'en[ RETURNem a nov[ jm[no souboru. Tak[ zde je mo(n[ pou()t hv%zdi'ku a otazn)k. Potom prob%hne p@ejmenov*n) ur'en`cb}h soubor+. 7$ Form*tov*n) -------------- Slou() pro form*tov*n) diskety nebo ramdisku. Disketa je form*tov*nb}a na hustotu medium, ramdisk podle pou(it[ho dosu a dostupn[ pam%ti. Tato funkce je v`hodn* hlavn% p@i pou(it) TTDOSu. Potom b}je v`hodn[ naform*tovat ramdisk "D2:" a p@i pr*ci pou()vat tento ramdisk. Jeho obsah toti( z+st*v* zachov*n a( do vypnut) po'b})ta'e, tak(e i p@i restartu syst[mu pomoc) RESET nebo tla')tka na z*suvn[m modulu z+stanou data v po@*dku. V p@)pad% pou(it) b}ramdisku "D3:" doch*z) p@i startu automaticky k form*tov*n) a data by byla zni'ena. 8$ Verifikace ------------- b} Zde je nutn[ uv[st nejprve vysv%tluj)c) pozn*mku. Program Lachtan u') n%m'inu je ur'en pro pr*ci s disketovou jednotkou ab} je schopen pracovat pod nejroz&)@en%j&)m dosem t.j. DOS 2.5. Pro lep&) vyu(it) programu, zejm[na podprogramu Slovn)k, je v`hb}odn[ pou()vat ramdisk, kter` v&ak DOS 2.5 m* pouze 64 KB. Pro majitele po')ta'+ s roz&)@enou pam%t) je mnohem v`hodn%j&) pou(b})vat TTDOS, kter` pam% vyu()v* v maxim*ln) mo(n[ m)@e. Lachtan je tedy vytvo@en tak, aby um%l spolupracovat i s TTDOSem. To b}umo(uje i t%m, kdo nevlastn) disketovou jednotku vyu()vat tento program. TTDOS je v`born` program, ale p@i ukl*d*n) na b}disketu prob)h* toto dost pomalu. Proto u( p@i startu programu je kontrolov*no, jestli se na disket% nach*z) program TTDOS.SYb}S. Pokud ano, je verifikace vypnuta. Adresa 1903 je zm%n%na z 87 na 80.$ Tato volba umo(uje verifikaci op%t cyklicky zap)nab}t a vyp)nat. Pokud pracujete s DOS 2.5, to znamen*, (e PEEK 1903$ nen) ani 80 ani 87, neprovede tato volba nic. 9$ N*vb}rat --------- Vrac) zp%t do hlavn) nab)dky programu.3$ nen) ani 80 ani 87, neprovede tato volba nic. 9$ N*v`@N a h r * v * n ) z k a z e t y===================================== Program Lachtan u') n%m'inu je mo(n[ pou()vf}at i bez disketov[ jednotky. K tomu je nutn[ m)t po')ta' s roz&)@enou pam%t) a program TTDOS. Potom je postup n*sleduj)c):1f}$ Nahr*t TTDOS.2$ Volbou "I" naform*tovat ramdisk "D2:"3$ Volbou "J" zm%nit konfiguraci syst[mu.Zm%nu provedeme tak, aby jf}eden z ramdisk+ byl ozna'en "D1:". Jako "D1:" je vhodn[ ozna'it ramdisk 1 - standartn% ozna'en` "D2:".4$ Nastavit ukl*d*n) nf}a kazetu.Zm%nit rychlost ukl*d*n), p@)padn% navolit ukl*d*n) se z*lohov*n)m, pokud to V*& magnetofon vy(aduje.5$ Volbou "C"f} zkop)rovat do "D1:" program AUTORUN.SYS.Je to vlastn% RUNTIME z Turbobasicu. M)sto toho je tak[ mo(n[ prov[st na z*v%r starf}p tohoto programu pr)mo z kazety volbou "P".6$ Volbou "C" zkop)rovat do "D1:" program "Lachtan u') n%m'inu".Jsou to v&echnyf} pot@ebn[ soubory .CTB a soubor NEMCINA.FNT.N*sleduj)c) soubory nejsou bezpodm)ne'n% nutn[ a vyberete si z nich v(dy jen tyf}, kter[ hodl*te pou()vat. T)m V*m zbyde v)c m)sta na soubory slov)'ek.TVSO.CTB, EDIT.CTB, ZKOU.CTB, SLOV.CTB, UPSO.CTB, NEMf}CINA.PICV p@)pad% nouze nejvy&&) je mo(n[ po startu progranu vymazat pomoc) funkce "Maz*n) souboru" v podprogramu "Minidos"f} i dal&) soubory, aby V*m zbylo v ramdisku je&t% v)c m)sta. V ramdisku mus) z+stat:HLMENU.CTB - jako(to spojovac) 'l*nek.f}CTB - soubor se kter`m hodl*te pracovat nap@. SLOV.CTB$MDOS.CTB - v p@)pad%, (e pou()v*te TVSO.CTB nebo EDIT.CTB.Zdf}e je Minidos nutn`, abyste mohli nov% vytvo@en[ nebo opraven[ soubory po ukon'en) pr*ce ulo(it na kazetu.Po startu programu f}je tedy je&t% mo(n[ dodate'n% smazat:NEMCINA.FNT, AUTORUN.SYS, AUTORUN.CTB, START.CTB7$ Zkop)rovat do ramdisku soubory slf}kv)'ek .DAT.Soubory slov)'ek .DAT je mo(n[ kop)rovat tak[ a( po spu&t%n) programu pomoc) podprogramu Minidos funkce Kopie.f}8$ Volbou "L" spustit z "D1:" program AUTORUN.SYS. Uveden` postup je sice pon%kud komplikovan%j&) ne( pouh[ zasunut) df}iskety do disketov[ jednotky, ale dovoluje pou()vat program i t%m, kdo disketovou jednotku nevlastn).N % k o l i k p o zf} n * m e k n a z * v % r================================================= Jak u( bylo uvedeno na za'*tku, programf} vych*z) z programu esko-n%meck` slovn)k V 3.0 a z d+vodu slu'itelnosti dat vytvo@en`ch d@)ve ponech*v* tak[ stejnou znakovof}u sadu v oblasti p)smen. CTRL-znaky jsou p@edefinov*ny na 'esk* a n%meck* p)smena. Jedinou zm%nou je zaneden) p)smena "" ktef}r[ se vyskytuje pom%rn% 'asto nap@. k+, p)se ...$ a v d@)v%j&)m programu nebylo. Bylo by logick[, aby "" bylo na kl*vese f}CTRLN, ale to by znamenalo p@esunout p@ehlasovan[ O n%kam jinam a t)m se d*le nabour*v* p+vodn) znakov* sada. Je&t% v%t&) prf}kbl[my by pak vznikly u anglick[ verze, kde je na t[to kl*vese speci*ln) znak pro v`slovnost, kter` se vyskytuje v mnoha slovf})'k*ch. T)m by se anglick` soubor slov)'ek stal nepou(iteln`m. Proto jsem nakonec um)stil "" na kl*vesu CTRLK kde nenatrop)f} tolik &kody.se anglick` soubor slov)'ek stal nepou(iteln`m. Proto jsem nakonec um)stil "" na kl*vesu CTRLK kde nenatrop)d''''''' ' 堠' ' >}' ' ' ' ' >} Р' ' 'TITULREADFLOP ' <bet% maj) p@)ponu .CAP$, sta') spustit tento program t)m, (e nap)&ete READFLOP.OBSZ}AH.CAP, NEM1.CAP, NEM2.CAP, NEM3.CAPTextov[ soubory obsahuj)c) popisy program+ na dZ}isket%. Daj) se ')st pomoc) programu READFLOP, nebo je m+(ete nahr*t do programu apek 3.0 a vytisknout na tisk*rn%.Z}TBASIC.COM Jen s pomoc) tohoto programu m+(eteZ} spou&t%t programy DIREDIT.TUR a KOULE256.TUR. Nahrajete ho z dosu povelemTBASICpot[ zad*teRUN "D:xxx.TUR"kde xxx je Z}p@)slu&n[ jm[no programu.DIREDIT.TUR Z}Jist% se v*m ji( stalo, (e se soubory p@i v`pisu adres*@e diskety vypisovaly v jin[m po@ad), ne( jste zrovna o'ek*vali. Mo(n*Z} jste tak[ z*libn% pozorovali n%kter[ velmi p@ehledn% uspo@*dan[ adres*@e, ze kter`ch bylo na prvn) pohled patrno, kter` soubZ}or pat@) ke kter[mu programu a nav)c byl adres*@ disku ozdoben slu&ivou hlavi'kou nap@)klad jeko tento FLOP$. Jestli(e jste Z}p@itom zatou(ili si tak[ takhle pohr*t s adres*@em, je pr*v% DIREDIT program ur'en` pro v*s. P@edem upozoruji, (e DIREDZ}IT je program, kter` vznikl za jedin[ odpoledne z okam(it[ pot@eby na p@euspo@*d*v*n) program+ v adres*@i disku p@ekop)rov*vZ}*n) program+ na 'ist` disk ve spr*vn[m po@ad) jsem zavrhl$. Z toho plynou tak[ n%kter[ nedostatky programu: pou(it) angli'tinZ}y a neo&et@en) v&ech chyb p@i 'ten) z disku. Po spu&t%n) se program sna() ')st adres*@ z disku v jednotce 1. Pokud zde nZ}en) disk nebo jednotka nen) p@ipojena, adres*@ nebude na'ten a ohl*s) se chyba. Po stisku kl*vesy se pak p@ejde do editace adZ}res*@e. V takov[m p@)pad% budou m)sto adres*@e zobrazeny nesmysln[ texty. Adres*@ diskety je zobrazen na obrazovce ve t@Z}ech sloupc)ch. Sloupec pak budou p@i vypisov*n) adres*@e vypisov*ny pod sebou - prvn) bude sloupec ]pln% vlevo. T@et) sloupecZ} je krat&) ne( ostatn), na m)st% posledn)ho jm[na souboru je zobrazeno "Selected:". )slo za t)mto n*pisem n*m ud*v*, kolik sZ}oubor+ m*me pr*v% ozna'en`ch. Nejspodn%j&) dva @*dky obsahuj) seznam v&ech pou(iteln`ch funkc). Konkr[tn) funkci vyvol*me v(dZ}~<0~0 ~ <~~<|d||t|||8@@x@@@xd 0 n}y stiskem kl*vesy s po'*te'n)m p)smenem n*zvu funkce. Po jednotliv`ch polo(k*ch adres*@e se m+(eme pohybovat kurzorem veZ} tvaru inverzn)ho obdeln)ku. Po spu&t%n) programu se kurzor nach*z) v lev[m horn)m rohu - tedy na prvn) respektive nult[$ poZ}lo(ce adres*@e. Kurzorem m+(eme pohybovat pomoc) kurzorov`ch kl*ves ov&em tisknou se bez CONTROL$. Kl*vesou SPACE si pak m+(Z}eme kteroukoliv z polo(ek ozna'it. Je-li polo(ka ozna'ena, je p@ed n) zobrazen k@)(ek. Dal&)m stiskem kl*vesy SPACE polo(ku oZ}p%t ozna')me. Po ka(d[m stisku kl*vesy SPACE se kurzor posune na n*sleduj)c) polo(ku. Ozna'ov*n) polo(ek je velice v`hodn[, nZ}ebo @ada funkc) ]'inkuje na v&echny ozna'en[ polo(ky. Tak si m+(ete u&et@it spoustu pr*ce s opakovan`m vyvol*v*n)m stejn[ fuZ}nkce.D*le si pop)&eme v&echny funkce, kter`mi editor disponuje.Read - umo(uje na'ten) adres*@e z diskety. Mus)te si je&tZ}% vybrat ')slo jednotky, ve kter[ je disketa, jej)( adres*@ chcete ')st. Pro v`b%r jednotky stiskn%te 1-4 nebo 8 R$ pro ramdZ}isk D8:. Pokud stisknete jinou kl*vesu, vr*t)te se zp%t do editace. V opa'n[m p@)pad% se nahraje adres*@ diskety.Write - fuZ}nguje ]pln% stejn% jako Read a( na to, (e adres*@ se bude na disketu zapisovat.Select - umo(uje hromadn` v`b%r polo(ek podZ}le p@)pony. Po zvolen) t[to volby dostanete na v`b%r z t%chto p@)pon:0 - BAS 1 - CAP 2 - TUR 3 - COM 4 - LST5 - FNT 6Z} - PIC 7 - M65 8 - EXE 9 - ---Po stisknut) kl*vesy 0-9 budou v(dy zvoleny v&echny soubory, kter[ maj) shodnou p@)ponu. PZ}@itom soubory, kter[ byly vybr*ny u( p@edt)m nebudou odzna'eny. Tak je mo(no postupn% vyb)rat nap@)klad v&echny programy pracZ}uj)c) v Basicu 'i Turbo Basicu pomoc) opakovan[ho vol*n) t[to funkce. Jestli(e stisknete jinou kl*vesu ne( ')selnou, nebude fZ}unkce provedena.Line - vlo() na m)st% kurzoru odd%lova'. Jedn* se o '*ru vytvo@enou z poml'ek "-". Toto je nej'ast%j&) zp+sZ}ob odd%lov*n) jednotliv`ch program+ atp. Pr*v% pro volbu t%chto odd%lova'+ je u funkce Select volba 9. M+(ete tak jednodu&e pZ}racovat se v&emi st*vaj)c)mi odd%lova'i.Text - pomoc) t[to funkce se d* p@episovat text jednotliv`ch polo(ek. Zmiz) kurzor Z}ozna'uj)c) polo(ku a na prvn)m znaku zvolen[ polo(ku se objev) kurzor o velikosti jednoho p)smene. Nyn) m+(ete norm*ln% ps*tZ} text, jak jste zvykl) nap@)klad v editoru Basicu. Kl*vesou BACK SPACE odma(ete posledn) znak pohyb po textu pomoc) kurzorovZ}`ch kl*ves nen) mo(n` a zp+sob) zmaten) textu na obrazovce$. Pokud se spletete a chcete, aby se zm%na neulo(ila, stisknete klZ}*vesu ESC. Po stisku RETURN se nov` text polo(ky naopak zap)&e.Move - s touto funkc) m+(ete libovoln% p@eskupovat polo(ky. Z}Zp+sob) to, (e v&echny zvolen[ polo(ky se p@enesou p@ed polo(ku na kter[ je kurzor. Pokud nen) zvolena (*dn* polo(ka, nestaneZ} se nic. Proto(e byl pou(it pom%rn% jednoduch` aloritmus, je v`sledek 'innosti t[to funkce pon%kud zmaten` co se t`'e po@ad) Z}p@en*&en`ch polo(ek. V p@)pad% p@en*&en) jedn[ polo(ky je v&ak v&e jasn[, tak(e se po@ad) d* pom%rn% jednodu&e ur'it p@esn%. Z}Krom% toho n*m v%t&inou nez*le() na tom, v jak[m po@ad) budou vyps*ny t@eba v&echny texty s p@)ponou .CAP a podobn%, ale pouzZ}e na tom, aby byly v&echny po sob% - a tuto funkci spluje Move znamenit% a jednodu&e.Delete - Pozor! Velmi nebezpe'n* funkZ}ce. Vypust) z adres*@e v&echny vybran[ polo(ky. Pokud nebyla (*dn* polo(ka vybr*na, sma(e jen polo(ku, na kter[ je pr*v% kurzZ}or.Insert - vlo() na m)st% kurzoru polo(ku, jej)( text je zapln%n mezerama.Neg - v&echny ozna'en[ polo(ky budou vyps*ny iZ}nverzn%. Pokud nen) ozna'ena (*dn* polo(ka, zinverzn) se polo(ka na kter[ je kurzor.All - v&echny polo(ky budou ozna'eny jaZ}ko zvolen[. Po druh[m stisku se naopak v&echny polo(ky odzna').Frame - tato funkce slou() k jednoduch[mu vytv*@en) nejr+zn%Z}j&)ch r*me'k+, odd%lova'+ atp. Po jej)m zvolen) se vyp)&e obdobn% jako u funkce Select$ seznam typ+ text+, jimi( m+(e b`t teZ}xt polo(ky napln%n. Jsou vyps*ny v(dy jen t@i znaky: znak, kter` bude v polo(ce vlevo, znak kter` bude vyplovat 9 prost@edn)Z}ch znak+ v polo(ce a znak, kter` bude v textu polo(ky ]pln% vpravo. Po stisku p@)slu&n[ ')seln[ kl*vesy se pak do textu vlo()Z} dan` text, kurzor se posune o polo(ku dol+ a 'ek* se na nov` stisk ')seln[ kl*vesy. Pokud je stisknuta jin* kl*vesa ne( ')seZ}ln*, funkce bude ukon'ena.Blok - v&echny ozna'en[ polo(ky se ulo() do pam%ti v po@ad), v jak[m jsou v adres*@i.Copy - v&eZ}chny polo(ky zapsan[ funkc) Blok se vlo() do textu od m)sta kurzoru. T)mto zp+sobem lze zdvojovat z*pisy polo(ek. Funkce je vZ}&ak ur'ena p@edev&)m pro p@en*&en) informac) z adres*@e na jednom disku do adres*@e na disku jin[m nap@)klad pro vyu(it) ji(Z} jednou vytvo@en[ hlavi'ky atp.$ Dala by se v&ak tak[ pou()t jako n*hra(ka za funkci Move. Nejprve provedete funkci Blok. PosZ}l[ze Delete. Pak um)st)te kurzor na spr*vn[ m)sto a provedete Copy.Prnt - slou() k tisku dodate'n`ch informac) o polo(k*ch Z}adres*@e. Mus)me si uv%domit, (e polo(kami adres*@e jsou vlastn% jm[na soubor+ na disket% alespo p@ed za'*tkem jejich editoZ}v*n)$. K takov`mto soubor+m jsou v adres*@i zaps*ny tak[ informace o jejich d[lce atp. Tyto informace jsou v&ak pou(iteln[ poZ}uze pro znalce, kte@) znaj) detailn% uspo@*d*n) dosovsk[ diskety. Informace jsou vypisov*ny v tomto po@ad):St Name Ext LZ}en PosSt - status souboruLen - d[lka souboru v sektorechPos - ')slo po'*te'n)ho sektoruV&echny informace jsou vypisov*Z}ny hexadecim*ln%.Pokud je St rovno 80, jedn* se o ji( smazan` soubor. Takov[to polo(ky p@ed editac) rad%ji vyma(te.Get - pZ}okud jste ji( upravili adres*@ tak, jak jste cht%li, je t@eba ho zapsat na disketu. Pokud ho v&ak zap)&ete pouze funkc) WriteZ}, s nejv%t&) pravd%podobnost) se v*m pomoc) DOSu nepoda@) (*dn` ze soubor+ zav[st - bude hl*&ena chyba 164. Dos si toti( v kaZ}(d[m sektoru udr(uje ')slo souboru, ke kter[mu sektor pat@). Toto ')slo ozna'uje vlastn% jeho pozici v adres*@i. P@i editaci [}adres*@e se v&ak pozice jednotliv`ch soubor+ samoz@ejm% zm%n). P@i z*pisu je tedy nutno p@epsat ve v&ech sektorech na disku '[})sla soubor+, ke kter`m sektor pat@) podle jejich nov[ polohy v adres*@i. Tento probl[m @e&) pr*v% funkce Get. Po jej)m zvole[}n) se za'ne do pam%ti na')tat mapa disku. Tato operace trv* pom%rn% dlouho z*le() v&ak na obsazen) diskety$, nebo se v pods[}tat% na')taj) do pam%ti v&ehny soubory na disket%. P@itom jsou o ka(d[m souboru vypisov*ny tyto informace:File n "xxx"n -[} ozna'uje ')slo souboru v adres*@ixxx - ozna'uje jm[no souboruPod tyto informace se postupn% vypisuj) ')sla v&ech sektor+,[} na kter`ch je soubor ulo(en a to ve spr*vn[m po@ad) z hlediska souboru$. Nakonec se vyp)&e zpr*van bytes x sectorsn - o[}zna'uje d[lku souboru v bajtechx - ozna'uje d[lku souboru v sektorechV p@)pad%, (e dan* polo(ka adres*@e nen) soubor, ale [}n*mi vytvo@en` odd%lova' 'i n%jak` jin` grafick` projev na&ich ]prav adres*@e, vyp)&e se m)sto t%chto informac) pouze zpr*va [}"Empty file". Pokud funkce Get u( na'etla celou mapu diskety, ukon') svou 'innost. Pokud jste vyvolali funkci Get, m+(et[ }e vyvolat funkci Write. Ta nyn) za pomoci informac) dodan`ch funkc) Get zap)&e nejen vlastn) adres*@, ale p@ep)&e taky ')sla [ }soubor+ v sektorech. Po nov[m vyvol*n) Read jsou tyto informace ztraceny a funkce Get mus) b`t p@ed p@)padn`m z*pisem vol*na [ }znovu. Je t@eba poznamenat, (e i p@i prov*d%n) takov`chto operac) v*m program m%l zajistit bezpe'nost va&ich dat za ni[ }c neberu zodpov%dnost - editaci prov*d%jte v(dy rad%ji na kopi)ch disket 'i v ramdisku$. I kdy( adres*@ zap)&ete bez p@edchoz[ })ho vol*n) Get a dos v*m soubory odm)tne nahr*t, DIREDIT v*m je neodm)tne spravit - sta') nahr*t adres*@ pomoc) Load, prov[st[} funkci Get a vyvolat znovu Save. Adres*@ z+stane jak byl, ale soubory budou opraveny. D*le chci nast)nit mo(nost, (e v*[}m vypnou proud p@i prov*d%n) oprav ')sel soubor+ v sektorech. Mohlo by se zd*t, (e nyn) u( o data nutn% mus)te p@ij)t, ale op[}%t by to m%lo j)t spravit. M%lo by sta'it pou()t stejn` postup, kter` jsem popsal v`&e. Toto ov&em nemohu zaru'it - nezkou&el[} jsem to. V ka(d[m p@)pad% asi p@ijdete o sektor na kter` se bude zapisovat pokud se zrovna bude$. Soubor, kter` by obsahova[}l vadn` sektor by pak bylo nutno ob%tovat, a z adres*@e ho vymazat. Chci upozornit, (e v p@)pad% vadn[ho sektoru se prog[}ram bude sna(it ')st jej st*le dokola, ')m( se funkce Get nikdy neukon'). Na tuto nep@)jemnou vlastnost je t@eba d*t si pozor[}!c$ 1992 Rudolf KudlaUnited Electronic CraziesKOULE256.TUR[} Toto kr*tk[ demo v Turbo Basicu demonstruje efektn) vyu(it) metody pro zobrazen) 256 barev na obrazo[}vce. O t[to a dal&)ch metod*ch jak toho dos*hnout jsem ji( ve FLOPu psal t[to problematice byla v%nov*na cel* jedna strana d[}iskety$..LST - listingy z olomouck[ho zpravodaje[} Jist% jste si ji( zakoupili Olomouck` zpravodaj 1/1991. Tak[ se v*m l)b) programy, ketr[ jsou tam pops*ny? Probl[}[m v&ak je, (e v`pisy jsou trochu moc dlouh[ a jejich opisov*n) je p@)li& pracn[. Ale nezoufejte! Pr*v% v tom v*m zase pom+(e[} FLOP. V tomto ')sle v*m p@in*&)me v%t&inu program+, jejich( v`pisy byly ve zpravodaji vytisknuty. Proto(e tyto programy byly[} dokonale pops*ny ve zpravodaji, nem%lo by smysl tyto texty podruh[ uve@ejovat ve FLOPu. Proto bude funkce program+ v(dy jen[} lehce nast)n%na a pro podrobnosti mus)te s*hnout po ji( zm)n%n[ publikaci jestli(e ji je&t% nem*te, m+(ete ji koupit na adr[}ese FLOPu - stoj) to za to$. V&echny programy jsou na disket% nahr*ny ve form% v`pis+ basicovsk`ch program+. Jestli(e je chce[}te spustit, mus)te v Atari Basicu zadat n*sleduj)c) p@)kazy:ENTER "D:xxx.LST"RUNkde xxx znamen* jm[no konkr[tn)ho progra[}mu.A nyn) jm( seznam t%chto v`pis+:HIDMEM1.LSTHIDMEM2.LST - programy, kter[ umo(uj) program+m v Basicu vyu()vat 22 kB p[ }am%ti "skryt`ch" pod Basicem a OS.BLITTER.LST - program, umo(uj)c) pohybovat na obrazovce s mal`mi obr*zky je zahrnuto i [!}jednoduch[ demo$MACEDIT.LST - umo(uje nadefinovat si tzv. makro kl*vesy. Tj. kl*vesy, po jejich( stisku se n*m vyp)&e cel*["} @ada znak+. To v*m umo(n) nap@)klad jedin`m stiskem kl*vesy zapisovat cel[ p@)kazy a podobn%.WINDOWS.LST - umo(uje vytv*@[#}et na textov[ obrazovce okna a dodat tak sv`m program+m profesion*ln) vzhled.GR8TEXT.LST - umo(uje vypisovat texty na obra[$}zovku v grafice 8MEMSHOW.LST - program slou() k jednoduch[mu prohl)(en) pam%ti po')ta'eSPTRANS.LST - procedura umo(uj)c)[%} p@en*&et v Basicu rychle velk[ bloky pam%tiVAMPRATS.LST - program hry Up)@) krysyTYPOII.LST -program ur'en` ke sna(&)mu [&}p@episov*n) program+. Nyn) v*m bude slou(it jen v p@)pad%, (e si budete cht)t p@epsat n%jak[ programy ze star&)ch ')sel Olomo['}uck[ho zpravodaje========================================FLOP 17 - strana B========================================Cel[(}* strana B obsahuje program Lachtan u') jazyky - n%meck* verze. Chcete-li tento program odstartovat, zcela oby'ejn% bootujte [)}disketu tak jako jste to ud%lali s prvn) stranou. P@i zap)n*n) po')ta'e dr(te stisknutou kl*vesu OPTION, aby se vypnul zabudo[*}van` interpret Basicu jen v p@)pad%, (e nem*ta zapnut` opera'n) syst[m QMEG$.Toto je demoverze programu. Pokud budete cht)[+}t plnou verzi, napi&te na adresu FLOPu.Vy'erp*vaj)c) popis programu je obsa(en na disket% v souborech NEM1.CAP, NEM2.CAP, N[,}EM3.CAP. P@e')st si ho m+(ete i pomoc) programu READFLOP.is programu je obsa(en na disket% v souborech NEM1.CAP, NEM2.CAP, NX:10 DIM PT$(166):PT$="":FOR I=1 TO 166:READ A:S=S+A:PT$(I)=CHR$(A):NEXT I20 IF S<>22969 THEN ? CHR$(125);CHR$(29);CHR$(127);".}DATA ERROR!";CHR$(253):END 30 ? CHR$(125);CHR$(29):FOR I=70 TO 130 STEP 10:? I:NEXT I:? "CONT":POSITION 2,0:POKE 842,13:STOP/} 40 POKE 842,12:? CHR$(125);CHR$(29):POKE 766,1:? "10DIMPT$(166),T$(255):PT$=";CHR$(34);PT$(1,75);CHR$(34)50 ? "20PT$(76)="0};CHR$(34);PT$(76);CHR$(34):POKE 766,0:FOR I=30 TO 60 STEP 10:? I:NEXT I60 ? "POKE842,12:L.":POSITION 2,0:POKE 842,13:STOP 71}0 DATA 104,201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,206,104,133,205,104,104,168,10480 DATA 133,208,104,133,207,12}04,104,240,236,133,203,24,165,205,101,88,133,205,165,89,101,206,133,20690 DATA 152,240,15,165,205,105,64,133,205,165,206,1053},1,133,206,136,208,241,132,212,160,0,132,211100 DATA 177,207,160,0,170,160,1,136,132,204,138,41,96,208,4,169,64,16,14,201,324},208,4,169110 DATA 0,16,6,201,64,208,2,169,32,133,209,138,41,31,5,209,133,209,169,0,162,3,6,209120 DATA 42,202,208,250,109,5}244,2,133,210,164,212,177,209,69,204,164,211,145,205,200,132,211,196,203130 DATA 208,182,24,165,205,105,40,133,205,144,2,2306},206,230,212,169,8,197,212,208,159,9664,211,145,205,200,132,211,196,203130 DATA 208,182,24,165,205,105,40,133,205,144,2,230&10000 REM *** SPEED TRANS ***10010 REM X=USR(1536,ADR,ADW,NO)10020 REM ADR ... Address Read10030 REM ADW ... Address Write8}10040 REM NO ... Bytes To Move10050 RESTORE 10080:S=0:FOR I=0 TO 138:READ X:S=S+X:POKE 1536+I,X:NEXT I10060 READ X:IF X<>9}S THEN ? "DATA ERROR!":STOP 10070 END 10080 DATA 120,169,254,141,1,211,169,137,141,250,255,169,6,141,251,255,16910090 DATA:} 128,141,252,255,169,6,141,253,255,169,137,141,254,255,169,6,14110100 DATA 255,255,216,104,201,3,208,86,104,141,68,6,104,141;},67,6,104,14110110 DATA 71,6,104,141,70,6,104,141,139,6,104,141,138,6,173,67,6,141,11810120 DATA 117,238,67,6,238,70,6,169,<}0,205,67,6,208,3,238,68,6,205,70,610130 DATA 208,3,238,71,6,206,138,6,169,255,205,138,6,208,3,206,139,6,16910140 DATA 0,205=},139,6,208,206,205,138,6,208,201,169,253,141,1,211,88,9610150 DATA 169,253,141,1,211,88,76,77,160,64,118,1781540 DATA 0,205p10 REM Memory Show20 GRAPHICS 030 FOR I=0 TO 357:READ X40 POKE 1152+I,X:NEXT I50 POKE 752,1:PRINT "";60 LET I=USR(11?}52):POKE 752,0100 REM Data110 DATA 104,169,0,162,12,149,203,202120 DATA 16,251,24,165,88,105,76,133130 DATA 206,165,89,10@}5,3,133,207,6140 DATA 204,160,21,165,210,32,193,5150 DATA 165,211,32,193,5,165,212,32160 DATA 204,5,136,136,165,213,32,193A}170 DATA 5,165,214,32,193,5,32,218180 DATA 5,32,218,5,160,31,177,213190 DATA 170,41,128,133,204,138,41,127200 DATA 201,96B},16,6,233,31,16,2210 DATA 105,96,5,204,145,206,136,16220 DATA 229,32,218,5,32,218,5,162230 DATA 0,160,31,6,204,198,208,165C}240 DATA 208,197,213,208,3,56,102,204250 DATA 161,208,32,193,5,16,236,165260 DATA 208,208,225,173,252,2,201,255270 DATA 2D}08,3,76,138,4,32,131,249280 DATA 162,255,142,252,2,41,63,170290 DATA 189,81,251,201,32,208,1,96300 DATA 201,48,48,115,201,E}58,48,28310 DATA 201,60,208,5,198,214,76,83320 DATA 5,201,62,208,5,230,214,76330 DATA 83,5,201,97,48,89,201,103340 DATA 1F}6,85,233,38,56,233,48,6,205350 DATA 6,205,6,205,6,205,5,205,70360 DATA 203,176,56,133,205,230,203,6370 DATA 203,165,214,13G}3,209,169,0,133380 DATA 210,133,211,133,212,165,213390 DATA 133,206,165,214,133,207,162400 DATA 15,248,6,206,38,207,165,21H}0410 DATA 101,210,133,210,165,211,101420 DATA 211,133,211,38,212,202,16,235430 DATA 216,70,203,76,138,4,160,0,145440 DATAI} 213,162,1,134,206,16,36,189450 DATA 209,251,201,28,48,189,201,32460 DATA 16,185,41,3,106,208,2,169470 DATA 16,133,206,176J},14,56,165,213480 DATA 229,206,133,213,176,165,198490 DATA 214,76,83,5,24,165,213,101500 DATA 206,133,213,144,151,230,214K}510 DATA 76,83,5,72,41,15,32,204,5,104520 DATA 74,74,74,74,9,16,201,26530 DATA 48,2,105,6,5,204,145,206540 DATA 136,96,56,L}165,206,233,40550 DATA 133,206,176,2,198,207,964,74,74,74,9,16,201,26530 DATA 48,2,105,6,5,204,145,206540 DATA 136,96,56,110 REM 20 REM | WINDOWS for ATARI XL/XE |30 REM 40 AD=40448:RESTORE N}100:POKE 106,158:GRAPHICS 050 FOR I=0 TO 37:SUMA=0:FOR J=0 TO 960 READ A:POKE AD+10*I+J,A:SUMA=SUMA+A:NEXT J:READ S70 IF SO}<>SUMA THEN ? "DATA ERROR at line ";100+I*10:LIST 100+I*10:END 80 NEXT I:POKE 812,79:POKE 813,0:POKE 814,15890 ? CHR$(125):P}POKE 205,14:POKE 206,4:OPEN #1,13,9,"O":? #1;CHR$(29);" DONE":POSITION 2,20:END 100 DATA 14,158,248,158,248,158,251,158,2Q}48,158,1799110 DATA 248,158,76,249,158,189,74,3,133,203,1491120 DATA 189,75,3,133,204,165,87,240,3,160,1259130 DATA 255,96R},56,165,205,201,3,176,3,160,1320140 DATA 200,96,165,206,201,3,176,3,160,200,1410150 DATA 96,24,165,203,101,205,133,205,56,2S}01,1389160 DATA 40,144,3,160,200,96,165,204,101,206,1319170 DATA 133,206,56,201,24,144,3,160,200,96,1223180 DATA 165,88,13T}3,207,165,89,133,208,162,0,1350190 DATA 232,24,169,40,101,207,133,207,169,0,1282200 DATA 101,208,133,208,228,204,208,238,16U}9,0,1697210 DATA 164,203,145,207,200,196,205,208,249,24,1801220 DATA 169,40,101,207,133,207,169,0,101,208,1335230 DATA 133V},208,232,228,206,208,227,198,6,198,1844240 DATA 205,165,88,133,207,165,89,133,208,162,1555250 DATA 0,232,24,169,40,101,207,W}133,207,169,1282260 DATA 0,101,208,133,208,228,204,208,238,169,1697270 DATA 81,164,203,145,207,200,169,82,145,207,1603280 X}DATA 200,196,205,208,249,169,69,145,207,24,1672290 DATA 169,40,101,207,133,207,169,0,101,208,1335300 DATA 133,208,169,124,1Y}64,203,145,207,164,205,1722310 DATA 145,207,232,228,206,208,228,164,203,169,1990320 DATA 90,145,207,200,169,82,145,207,200,Z}196,1641330 DATA 205,208,249,169,67,145,207,165,203,133,1751340 DATA 4,165,204,133,5,230,4,230,5,160,1140350 DATA 1,96,170[},165,203,133,<2,165,205,133,1353360 DATA 83,165,84,72,165,85,72,165,4,133,1028370 DATA 85,165,5,133,84,138,201,125,208,11,1\}155380 DATA 104,133,85,104,133,84,230,205,76,80,1234390 DATA 158,32,176,242,165,85,133,4,165,84,1244400 DATA 133,5,165,4,1]}97,203,208,8,165,205,1293410 DATA 133,4,198,4,198,5,197,205,208,8,1160420 DATA 165,203,133,4,230,4,230,5,165,5,1144430 DAT^}A 197,204,208,6,165,206,133,5,198,5,1327440 DATA 197,206,208,6,165,204,133,5,230,5,1359450 DATA 104,133,85,104,133,84,169,2_},133,82,1029460 DATA 169,39,133,83,169,30,32,176,242,169,1242470 DATA 31,32,176,242,160,1,96,0,0,0,738,85,104,133,84,169,2i10 REM *****************************20 REM * SINGLE BYTE ACCESS TO *30 REM * ATARI XL HIDDEN MEMORY *40 REM * a}by Kevin T. Pate *50 REM * *60 REM * COPYRIGHT 1989 *70 REM * BY ANALOG COMPUb}TING *80 REM *****************************90 REM 120 REM TARGET ADDRESS IS ZAD130 REM DATA VARIABLE IS Z140 GOSUB 3000c}0:REM RAM ACCESS INITIALIZATION SUBROUTINE145 PRINT "}SINGLE BYTE ACCESS TO ATARI XL HIDDEN MEMORY DEMONSTRATION"146 PRINT d}:PRINT "HIDDEN MEMORY ADDRESSES ARE 40960-53247 AND 55296-65535"150 PRINT :PRINT "TARGET ADDRESS";:INPUT ZAD160 Pe}RINT "VALUE";:INPUT Z170 GOSUB ZPOKE:PRINT "NOW POKING VALUE INTO HIDDEN MEMORY"180 Z=0:PRINT "NOW ZEROING OUT VALUE"190 Gf}OSUB ZPEEK:PRINT "NOW PEEKING HIDDEN MEMORY ADDRESS"200 PRINT "ADDRESS=";ZAD,"VALUE=";Z210 GOTO 150220 REM 30000 REM RAM g}ACCESS INITIALIZATION SUBROUTINE30010 REM ML SUBROUTINES ARE RELOCATABLE30020 DIM Z$(50):REM STORAGE AREA FOR ML ROUTINES3h}0030 REM POKE ML ROUTINE RETURNS VALUE TO Z$(1)30040 POK=ADR(Z$)+1:REM POKE ML ROUTINE STARTING ADDRESS30050 ZPOKE=31000:REi}M POKE BASIC SUBROUTINE30060 PEK=POK+17:REM PEEK ML ROUTINE STARTING ADDRESS30070 ZPEEK=32000:REM PEEK BASIC SUBROUTINE300j}80 REM ML LOADER30090 RESTORE 3019030100 FOR Z=0 TO 3430110 READ ZZ:POKE POK+Z,ZZ30120 NEXT Z30130 ZHA=INT(ADR(Z$)/256):k}REM HIGH BYTE OF Z$(1) ADDRESS30140 ZLA=ADR(Z$)-256*ZHA:REM LOW BYTE OF Z$(1) ADDRESS30150 POKE PEK+10,ZLA30160 POKE PEK+1l}1,ZHA30170 RETURN 30180 REM POKE ML DATA30190 DATA 104,162,2,142,1,21130200 DATA 162,00,142,000,0000,16230210 DATA 253,1m}42,1,211,9630220 REM PEEK ML DATA30230 DATA 104,162,2,142,1,21130240 DATA 174,000,0000,142,000,000030250 DATA 162,253,142n},1,211,9630260 REM 31000 REM POKE SUBROUTINE31010 ZHA=INT(ZAD/256):REM HIGH BYTE OF TARGET ADDRESS31020 ZLA=ZAD-256*ZHA:Ro}EM LOW BYTE OF TARGET ADDRESS31030 POKE POK+7,Z31040 POKE POK+9,ZLA31050 POKE POK+10,ZHA31060 ZINT=PEEK(16):POKE 16,0:POKp}E 53774,0:POKE 54286,0:REM DISABLE INTERRUPTS31070 ZZ=USR(POK):REM CALL POKE ML ROUTINE31080 POKE 16,ZINT:POKE 53774,ZINT:Pq}OKE 54286,255:REM ENABLE INTERRUPTS31090 RETURN 31100 REM 32000 REM PEEK SUBROUTINE32010 ZHA=INT(ZAD/256):REM HIGH BYTE Or}F TARGET ADDRESS32020 ZLA=ZAD-256*ZHA:REM LOW BYTE OF TARGET ADDRESS32030 POKE PEK+7,ZLA32040 POKE PEK+8,ZHA32050 ZINT=PEs}EK(16):POKE 16,0:POKE 53774,0:POKE 54286,0:REM DISABLE INTERRUPTS32060 ZZ=USR(PEK):REM CALL PEEK ML ROUTINE32070 Z=PEEK(ADRt}(Z$))32080 POKE 16,ZINT:POKE 53774,ZINT:POKE 54286,255:REM ENABLE INTERRUPTS32090 RETURN PEEK ML ROUTINE32070 Z=PEEK(ADR\10 REM *****************************20 REM * BANK SWITCHING OF *30 REM * ATARI XL HIDDEN MEMORY *40 REM * v}by Kevin T. Pate *50 REM * *60 REM * COPYRIGHT 1989 *70 REM * BY ANALOG COMPUw}TING *80 REM *****************************90 REM 120 REM USER SELECTED BANK SIZE IS VARIABLE ZBSZ130 REM BANK SIZE IS Sx}ELECTABLE FROM 225 X 100 BYTE BANKS MAX., 2 X 10K (10240) BYTE BANKS MIN.140 REM BANK RAM STARTING ADDRESSES (IN HIDDEN MEMOy}RY) ARE IN ZB$150 REM BANK POINTER NUMBER (1 TO ZBTOT); ZBTOT IS TOTAL NUMBER OF BANKS160 REM USER SELECTED TARGET RAM STARz}TING ADDRESS (IN REGULAR RAM AREA) IS VARIABLE ZAD170 GOSUB 20000:REM RAM ACCESS INITIALIZATION SUBROUTINE180 REM THIS EXAM{}PLE WILL SWITCH INTO SCREEN MEMORY 22 DIFFERENT DISPLAY BANKS190 ZBSZ=960:REM BANK SIZE = 960 BYTES FOR GR.0 SCREEN200 DLIS|}T=PEEK(560)+256*PEEK(561):REM DISPLAY LIST ADDRESS210 ZAD=PEEK(DLIST+4)+256*PEEK(DLIST+5):REM SCREEN MEMORY STARTING ADDRESS}}220 GOSUB 21000:REM SETUP BANK ADDRESSES BASED ON BANK SIZE230 REM CREATE DISPLAYS AND STORE BANKS IN HIDDEN MEMORY240 POK~}E 752,1:REM TURN OFF CURSOR250 PRINT "}ŠΠӠ ŠΠΠ٠Ӯ":FOR N=1 TO 100}0:NEXT N260 FOR I=1 TO ZBTOT270 PRINT "}":POSITION 6,I:PRINT "THIS IS DISPLAY BANK #";I:REM CLEAR SCREEN AND PRINT MESSAGE }AT VARYING ROW NUMB280 ZPTR=I:GOSUB ZBNKOUT:REM SET BANK POINTER AND STORE SCREEN MEMORY TO BANK290 NEXT I300 REM NOW SWIT}CH IN BANKS ONE BY ONE, PAUSING BETWEEN EACH DISPLAY310 PRINT "}נ̠Π ͠Π٠·}Ӯ":FOR N=1 TO 1000:NEXT N320 FOR I=1 TO ZBTOT330 ZPTR=I:GOSUB ZBNKIN:REM SET BANK POINTER AND READ IN BANK TO SCREEN ME}MORY340 FOR N=1 TO 100:NEXT N:REM PAUSE350 NEXT I360 GOTO 320:REM REPEAT DISPLAY LOOP370 REM 20000 REM RAM ACCESS INITIA}LIZATION SUBROUTINE20010 REM ML SUBROUTINE IS RELOCATABLE20020 DIM MOV$(50):REM STORAGE AREA FOR ML ROUTINE20030 DIM ZB$(4}50):REM HIDDEN MEMORY STARTING ADDRESSES, STORED AS HIGH BYTE/LOW BYTE20040 ZBNKIN=22000:REM BANK SWITCH IN BASIC SUBROUTINE}20050 ZBNKOUT=23000:REM BANK SWITCH OUT BASIC SUBROUTINE20060 REM ML LOADER20070 RESTORE 2013020080 FOR ZZ=0 TO 4820090 }READ ZZZ:POKE ADR(MOV$)+ZZ,ZZZ20100 NEXT ZZ20110 RETURN 20120 REM ML DATA20130 DATA 104,162,2,142,1,21120140 DATA 104,13}3,215,104,133,214,10420150 DATA 133,217,104,133,216,104,133,21820160 DATA 104,170,160,0,177,214,145,21620170 DATA 200,208,}4,230,215,230,217,20220180 DATA 208,242,198,218,16,23820190 DATA 162,253,142,1,211,9620200 REM 21000 REM SETUP BANK ADDRE}SSES BASED ON BANK SIZE21010 ZLTOT=INT(12288/ZBSZ):REM TOTAL NUMBER OF BANKS IN LOWER PART OF HIDDEN MEMORY21020 ZUTOT=INT(}10240/ZBSZ):REM TOTAL NUMBER OF BANKS IN UPPER PART OF HIDDEN MEMORY21030 ZBTOT=ZLTOT+ZUTOT:REM TOTAL NUMBER OF BANKS21040 }FOR ZZ=0 TO ZLTOT-121050 ZA=40960+INT(ZZ*ZBSZ+0.5):REM BANK STARTING ADDRESS21060 ZHA=INT(ZA/256):REM HIGH BYTE21070 ZLA=Z}A-256*ZHA:REM LOW BYTE21080 POKE ADR(ZB$)+2*ZZ,ZHA:REM STORE HIGH BYTE21090 POKE ADR(ZB$)+2*ZZ+1,ZLA:REM STORE LOW BYTE211}00 NEXT ZZ21110 FOR ZZ=0 TO ZUTOT-121120 ZA=55296+INT(ZZ*ZBSZ+0.5):REM BANK STARTING ADDRESS21130 ZHA=INT(ZA/256):REM HIGH} BYTE21140 ZLA=ZA-256*ZHA:REM LOW BYTE21150 POKE ADR(ZB$)+2*ZLTOT+2*ZZ,ZHA:REM STORE HIGH BYTE21160 POKE ADR(ZB$)+2*ZLTOT+}2*ZZ+1,ZLA:REM STORE LOW BYTE21170 NEXT ZZ21180 RETURN 21190 REM 22000 REM BANK SWITCH IN SUBROUTINE22010 POKE 559,0:REM} TURN OFF DISPLAY22020 ZB=PEEK(ADR(ZB$)+2*ZPTR-2)*256+PEEK(ADR(ZB$)+2*ZPTR-1):REM BANK STARTING ADDRESS22030 ZINT=PEEK(16):}POKE 16,0:POKE 53774,0:POKE 54286,0:REM DISABLE INTERRUPTS22040 ZZ=USR(ADR(MOV$),ZB,ZAD,ZBSZ):REM SWITCH BANK RAM INTO TARGE}T AREA IN REGULAR RAM22050 POKE 16,ZINT:POKE 53774,ZINT:POKE 54286,255:REM ENABLE INTERRUPTS22060 POKE 559,46:REM TURN ON D}ISPLAY22070 RETURN 22080 REM 23000 REM BANK SWITCH OUT SUBROUTINE23010 POKE 559,0:REM TURN OFF DISPLAY23020 ZB=PEEK(ADR(}ZB$)+2*ZPTR-2)*256+PEEK(ADR(ZB$)+2*ZPTR-1):REM BANK STARTING ADDRESS23030 ZINT=PEEK(16):POKE 16,0:POKE 53774,0:POKE 54286,0:}REM DISABLE INTERRUPTS23040 ZZ=USR(ADR(MOV$),ZAD,ZB,ZBSZ):REM STORE TARGET RAM IN REGULAR AREA TO BANK RAM23050 POKE 16,ZIN}T:POKE 53774,ZINT:POKE 54286,255:REM ENABLE INTERRUPTS23060 POKE 559,46:REM TURN ON DISPLAY23070 RETURN 23050 POKE 16,ZINk1 REM ******************************2 REM * MACRO EDITOR *3 REM * by Frank Seipel *4 REM * } *5 REM * COPYRIGHT 1989 *6 REM * BY ANALOG COMPUTING *7 REM **********************}********8 REM 18 GRAPHICS 17:POKE 710,14:POSITION 0,6:? #6;" Ġ":ACTIVE=PEEK(1536)=16919 ? #6:? #6;" BY F}RANK SEIPEL":? #6:? #6:? #6:? #6;" please wait"20 FOR I=1536 TO 1672:READ D:POKE I,D:NEXT I25 GRAPHICS 0:IF NOT ACTIVE} THEN TRAP 28:OLD=PEEK(1535):POKE 1535,104:X=USR(1535):POKE 1535,OLD28 ? :? "Enter macros. Hit after":? "entering e}ach macro. Any"29 ? " keypresses will be part of":? "the macro.":? 30 ? "A macro is a string of text --":? "for in}stance, you could define"31 ? "Shift+Control+0 as LIST ":? "with this program -- and then type"32 ? "Shift+Control+}0 instead of LIST.":? :? "This program can be used to"33 ? "redefine the macros in memory, or":? "write out an AUTORUN.SYS f}ile to"34 ? "your disk, which will automatically":? "install your macros every time you":? "boot-up.":? 35 OPEN #1,4,0,"K:"}:OFFSET=0:OFFTABLE=1673:DTABLE=168636 ? :? "Hit for next page":GET #1,X:? CHR$(125):? :? "Sum length of all macros }may"37 ? "not exceed 128. After using a":? "macro, you may not use it again until"38 ? "you have typed some other key, or"}:? "used another macro key.":? "(If this is a problem, just hit"39 ? " before executing the macro)":? 40 FOR I=0 TO} 942 POKE OFFTABLE+I,OFFSET50 ? :? "Enter macro for ";CHR$(I+48+128):? "-->";60 IF PEEK(53279)=6 THEN GOTO 1}40:REM *SAVE*70 IF PEEK(764)=255 THEN GOTO 6080 POKE DTABLE+OFFSET,PEEK(764):GET #1,X:? CHR$(X);130 OFFSET=OFFSET+1:GOTO 6}0140 POKE DTABLE+OFFSET,255:OFFSET=OFFSET+1:FOR D=1 TO 500:NEXT D:NEXT I200 ? :? :? "Would you like to make these":? "your }default macros [i.e., would you"210 ? "like to write an AUTORUN.SYS":? "consisting of these macros and the":? "macro program} to D1: ? -->";220 GET #1,X:IF X=ASC("y") OR X=ASC("Y") THEN ? "Yes":? :? "Working...":GOTO 30000230 ? "No":END 2901}0 DATA 169,0,141,149,6,165,12,141,46,6,165,13,141,47,6,169,23,133,12,169,6,133,13,160,4829020 DATA 162,6,169,6,32,92,228,173},149,6,201,1,240,6,169,1,141,149,6,96,76,224,7,72,138,72,173,147,629030 DATA 208,44,173,9,210,197,0,240,17,133,0,162,0,189,1}27,6,205,9,210,240,11,232,224,10,208,24329060 DATA 104,170,104,76,95,228,169,1,141,147,6,189,137,6,141,148,6,76,80,6,174,148},6,189,150,6,201,255,240,929200 DATA 141,252,2,238,148,6,76,80,6,169,0,141,147,6,76,80,6,242,223,222,218,216,221,219,243,245},24030000 CLOSE #1:OPEN #1,8,0,"D:AUTORUN.SYS"30010 START=300:XEND=318:GOSUB 3100030020 START=1536:XEND=1791:GOSUB 310003}0030 PUT #1,226:PUT #1,230040 PUT #1,227:PUT #1,230050 PUT #1,0:PUT #1,630060 CLOSE #1:END 31000 PUT #1,255:PUT #1,25531}010 CELL=START:GOSUB 3120031020 PUT #1,LOW:PUT #1,HI31030 CELL=XEND:GOSUB 3120031040 PUT #1,LOW:PUT #1,HI31050 FOR I=STAR}T TO XEND31060 PUT #1,PEEK(I):NEXT I31200 HI=INT(CELL/256):LOW=CELL-HI*256:RETURN 40 PUT #1,LOW:PUT #1,HI31050 FOR I=STARU32000 REM TYPO II by Andy Barton32010 REM ver. 1.0 for ANTIC magazine32020 CLR :DIM LINE$(120):CLOSE #2:CLOSE #332030 OPEN} #2,4,0,"E":OPEN #3,5,0,"E"32040 ? "}":POSITION 11,1:? "Ϡɠ"32050 TRAP 32040:POSITION 2,3:? "Type in a program line"3}2060 POSITION 1,4:? " ":INPUT #2;LINE$:IF LINE$="" THEN POSITION 2,4:LIST B:GOTO 3206032070 IF LINE$(1,1)="*" THEN B=VAL(LIN}E$(2,LEN(LINE$))):POSITION 2,4:LIST B:GOTO 3206032080 POSITION 2,10:? "CONT"32090 B=VAL(LINE$):POSITION 1,3:? " ";32100 PO}KE 842,13:STOP 32110 POKE 842,1232120 ? "}":POSITION 11,1:? "Ϡɠ":POSITION 2,15:LIST B32130 C=0:ANS=C32140 POSITION }1,16:INPUT #3,LINE$:IF LINE$="" THEN ? "LINE ";B;" DELETED":GOTO 3205032150 FOR D=1 TO LEN(LINE$):C=C+1:ANS=ANS+(C*ASC(LINE$}(D,D))):NEXT D32160 CODE=INT(ANS/676)32170 CODE=ANS-(CODE*676)32180 HCODE=INT(CODE/26)32190 LCODE=CODE-(HCODE*26)+653220}0 HCODE=HCODE+6532210 POSITION 0,16:? CHR$(HCODE);CHR$(LCODE)32220 POSITION 2,13:? "If CODE does not match press Π a}nd edit line above.":GOTO 320500,16:? CHR$(HCODE);CHR$(LCODE)32220 POSITION 2,13:? "If CODE does not match press Π a 1 REM VAMPIRE RATS!2 REM BY TOM ZARBOCK5 REM (c) 1985, ANTIC PUBLISHING10 GOTO 220005000 REM ACTIONS5010 S1=STICK(0):S2=}STICK(1):F1=AF(F1+1+F(S1)):F2=AF(F2+1+F(S2))5020 REM PLYR 1 NEW FACING?5030 IF S1>12 THEN 50495040 COLOR 10+F1:PLOT X1,Y1}5045 IF STRIG(0)=0 THEN S1=145049 REM PLYR 1 MOVES OR JMPS?5050 IF S1<>14 AND S1<>13 THEN 50745055 U=1:IF S1=13 THEN U=25}060 TRAP 5074:LOCATE X1+S(0,F1)*U,Y1+S(1,F1)*U,K5065 IF K<>32 THEN 50745070 COLOR 32:PLOT X1,Y1:X1=X1+S(0,F1)*U:Y1=Y1+S(1,F}1)*U:COLOR 10+F1:PLOT X1,Y1:POKE 53761,10:POKE 53761,05072 B1=B1-2*(S1=13)5074 REM PLYR 1 BITES? & WHO?5080 LOCATE X1+S(0,}F1),Y1+S(1,F1),K5085 IF K>183 AND K<187 THEN V1=10:COLOR 32:PLOT X1+S(0,F1),Y1+S(1,F1):B1=B1+55090 IF K>41 AND K<50 THEN B2}=B2-2:B1=B1+2:POKE 708,156:SOUND 2,18,4,155199 REM PLYR 2 NEW FACING?5200 IF S2>12 THEN 52195210 COLOR 42+F2:PLOT X2,Y252}15 IF STRIG(1)=0 THEN S2=145219 REM PLYR 2 MOVES OR JMPS?5220 IF S2<>13 AND S2<>14 THEN 52595225 U=1:IF S2=13 THEN U=2523}0 TRAP 5259:LOCATE X2+S(0,F2)*U,Y2+S(1,F2)*U,K5240 IF K<>32 THEN 52595250 COLOR 32:PLOT X2,Y2:X2=X2+S(0,F2)*U:Y2=Y2+S(1,F2)}*U:COLOR 42+F2:PLOT X2,Y2:POKE 53761,10:POKE 53761,05252 B2=B2-2*(S2=13)5259 REM PLYR 2 BITES? & WHO?5270 LOCATE X2+S(0,F2}),Y2+S(1,F2),K5280 IF K>183 AND K<187 THEN V1=10:COLOR 32:PLOT X2+S(0,F2),Y2+S(1,F2):B2=B2+55290 IF K>9 AND K<18 THEN B1=B1}-2:B2=B2+2:POKE 709,206:SOUND 3,16,4,155350 REM UPDATE BLOOD LEVEL5390 REM PLAYER 15400 IF B1>8 THEN COLOR 168:PLOT 0,B1P:}B1P=B1P-1:B1=B1-85405 IF B1<0 THEN COLOR 41:PLOT 0,B1P:B1P=B1P+1:B1=B1+85406 IF B1P<0 THEN B1P=0:B1=85407 IF B1P>10 THEN F}=2:GOTO 90005410 COLOR 160+INT(B1+0.5):PLOT 0,B1P5449 REM PLAYER 25470 IF B2>8 THEN COLOR 168:PLOT 19,B2P:B2P=B2P-1:B2=B2-}85480 IF B2<0 THEN COLOR 41:PLOT 19,B2P:B2P=B2P+1:B2=B2+85482 IF B2P<0 THEN B2P=0:B2=85484 IF B2P>10 THEN F=1:GOTO 900054}90 COLOR 160+B2:PLOT 19,B2P5500 B1=B1-0.1:B2=B2-0.15899 REM RANDOM VICTIMS5900 IF PEEK(53770)>9 THEN 59405910 I=INT(16*RN}D(0)+2):J=INT(10*RND(0)+1):LOCATE I,J,D:IF D<>32 THEN 59105920 COLOR INT(3*RND(0))+184:PLOT I,J:POKE 77,05940 REM SOUNDS59}50 SOUND 1,0,8,V1:V1=V1-2:IF V18):POKE 709,200-8*(B1P>}8):POKE 53768,1976000 GOTO 50009000 REM GAME ENDS9005 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:SOUND 3,0,0,0:POKE 708,150}:POKE 709,2009030 COLOR 32:PLOT X1,Y1:PLOT X2,Y29040 J=10:X=X1:Y=Y1:IF F=2 THEN J=42:X=X2:Y=Y29050 FOR I=1 TO 15:FOR K=0 T}O 79060 COLOR J+K:PLOT X,Y:NEXT K:NEXT I:RESTORE 91009080 READ I,J:IF I=-1 THEN 92709090 SOUND 0,I,10,8:SOUND 1,I+1,10,8:F}OR K=1 TO J/4:NEXT K:GOTO 90809100 DATA 237,100,177,100,140,100,117,200,140,100,117,200,140,100,117,200,140,100,177,300,177,}500,-1,-19270 SOUND 0,0,0,0:SOUND 1,0,0,09275 POSITION 1,0:? #6;"":POKE 712,0:POKE 711,6:POKE 710,49280 }IF STRIG(0) AND STRIG(1) THEN 92809285 B1P=0:B2P=09290 GOTO 2500022000 REM INITIALIZE22100 DIM F(15),S(1,7),AF(9)22190 R}ESTORE 2220522200 FOR I=0 TO 15:READ D:F(I)=D:NEXT I22205 DATA 0,0,0,0,0,1,1,1,0,-1,-1,-1,0,0,0,022210 FOR I=0 TO 1:FOR J=}0 TO 722220 READ D:S(I,J)=D:NEXT J:NEXT I22230 DATA 0,1,1,1,0,-1,-1,-122240 DATA -1,-1,0,1,1,1,0,-122250 FOR I=0 TO 9:REA}D D:AF(I)=D:NEXT I22260 DATA 7,0,1,2,3,4,5,6,7,023000 GOTO 2700025000 REM CUSTOM CHARACTER SET25005 IF PEEK(1536)<>0 THEN} CHBASE=PEEK(1536)*256:GOTO 2515025010 CHBASE=(PEEK(742)-4)*256:POKE 742,PEEK(742)-5:POKE 1536,CHBASE/256:POKE 756,CHBASE/25}625080 FOR I=0 TO 511:POKE CHBASE+I,PEEK(57344+I):NEXT I:REM MOVE ROM SET25120 FOR I=CHBASE+8 TO CHBASE+216:READ D:POKE I,D}:NEXT I25150 GRAPHICS 2+16:POKE 756,CHBASE/25625160 REM CUSTOM CHARACTER DATA25170 DATA 0,0,0,0,0,0,0,12625171 DATA 0,0,0},0,0,0,126,12625172 DATA 0,0,0,0,0,126,126,12625173 DATA 0,0,0,0,126,126,126,12625174 DATA 0,0,0,126,126,126,126,12625175} DATA 0,0,126,126,126,126,126,12625176 DATA 0,126,126,126,126,126,126,12625177 DATA 126,126,126,126,126,126,126,12625178 D}ATA 0,0,0,0,0,0,0,025180 DATA 40,56,40,146,124,56,124,13025190 DATA 4,40,37,154,120,118,48,825200 DATA 136,80,119,122,119,}80,136,025210 DATA 8,48,118,120,154,37,40,425220 DATA 65,62,28,62,73,20,28,2025230 DATA 16,12,158,30,89,164,20,3225240 DA}TA 0,17,10,238,94,238,10,1725250 DATA 32,20,164,89,30,110,12,1625280 DATA 0,127,68,68,79,124,75,7425290 DATA 0,255,34,34,2}55,72,255,025300 DATA 0,254,34,34,250,30,234,7425310 DATA 74,74,78,74,122,74,78,12225320 DATA 74,202,46,26,250,18,254,025}330 DATA 74,75,122,76,79,72,127,025340 DATA 108,84,254,68,124,126,219,21525350 DATA 12,24,48,113,127,63,99,025360 DATA 12,}138,207,252,254,124,40,10825370 DATA 0,69,213,247,127,62,0,026000 REM DRAW ARENA26005 POKE 708,150:POKE 709,200:POKE 710,2}40:POKE 711,208:POKE 712,2:B1=8:B2=826010 COLOR 146:PLOT 1,0:COLOR 147:DRAWTO 17,0:COLOR 148:PLOT 18,0:COLOR 149:DRAWTO 18,1}026020 COLOR 150:PLOT 18,11:COLOR 147:DRAWTO 2,1126030 COLOR 151:PLOT 1,11:COLOR 149:DRAWTO 1,126040 COLOR 8:PLOT 0,11:COL}OR 40:PLOT 19,1126050 COLOR 168:PLOT 0,10:DRAWTO 0,0:PLOT 19,10:DRAWTO 19,026060 X1=5:Y1=5:X2=14:Y2=5:COLOR 10:PLOT X1,Y1:C}OLOR 42:PLOT X2,Y2:GOTO 500027000 REM TITLE SCREEN27010 GRAPHICS 2+16:POKE 708,48:T=527011 SOUND 0,250,10,10:SOUND 1,251,1}0,10:SOUND 2,252,10,10:K=427020 FOR X=1 TO 18:COLOR 42:PLOT X,0:DRAWTO 19-X,11:POKE 710,PEEK(53770)27025 POSITION 3,5:? #6;}" ӡ":IF NOT STRIG(0) OR NOT STRIG(1) THEN 2710027030 COLOR 0:PLOT X,0:DRAWTO 19-X,1127040 NEXT X27050 FOR Y=}1 TO 10:COLOR 42:PLOT 19,Y:DRAWTO 0,11-Y:POKE 710,PEEK(53770)27052 POKE 53768,K:J=J+1:IF J=40 THEN J=0:K=4*(K<>4)+6*(K<>6)2}7055 COLOR 0:PLOT 19,Y:DRAWTO 0,11-Y27056 POSITION 3,5:? #6;"Šӡ":IF NOT STRIG(0) OR NOT STRIG(1) THEN 2710027}060 NEXT Y:GOTO 2702027100 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:POKE 710,50:GOTO 2500027200 RETURN 32000 REM TYPO II }BY ANDY BARTON32010 REM VER.1.0 FO ANTIC MAGAZINE32020 CLR :DIM LINE$(120):CLOSE #2:CLOSE #332030 OPEN #2,4,0,"E":OPEN #3,}5,0,"E"32040 ? "}":POSITION 11,1:? "Ϡɠ"32050 TRAP 32040:POSITION 2,3:? "Type in a program line"32060 POSITION 1,4:?} " ":INPUT #2;LINE$:IF LINE$="" THEN POSITION 2,4:LIST B:GOTO 3206032070 IF LINE$(1,1)="*" THEN B=VAL(LINE$(2,LEN(LINE$))):P}OSITION 2,4:LIST B:GOTO 3206032080 POSITION 2,10:? "CONT"32090 B=VAL(LINE$):POSITION 1,3:? " ";32100 POKE 842,13:STOP 321}10 POKE 842,1232120 ? "}":POSITION 11,1:? "Ϡɠ":POSITION 2,15:LIST B32130 C=0:ANS=C32140 POSITION 2,16:INPUT #3;LINE}$:IF LINE$="" THEN ? " LINE";B;"DELETED":GOTO 3205032150 FOR D=1 TO LEN(LINE$):C=C+1:ANS=ANS+(C*ASC(LINE$(D,D))):NEXT D3216}0 CODE=INT(ANS/676)32170 CODE=ANS-(CODE*676)32180 HCODE=INT(CODE/26)32190 LCODE=CODE-(HCODE*26)+6532200 HCODE=HCODE+6532}210 POSITION 0,16:? CHR$(HCODE);CHR$(LCODE)32220 POSITION 2,13:? "If CODE does not match press Π and edit line above.}":GOTO 320500,16:? CHR$(HCODE);CHR$(LCODE)32220 POSITION 2,13:? "If CODE does not match press Π and edit line above. 10 REM 20 REM | SOFT - BLITTER |30 REM 40 REM - for all ATARI XL/XE50 REM - includes }demo program60 REM (c) 1991 by GIA Software70 REM 200 DIM GR$(300),HG$(300)210 GGET=1536:GPUT=1539220 GRAPHICS 2+16230 }POSITION 2,4:PRINT #6;"SOFT-BLITTER DEMO"240 POSITION 2,6:PRINT #6;" Š"250 GOSUB 30000300 REM 305 GRAPHICS 8:}COLOR 1310 PLOT 55,20:DRAWTO 63,0:POSITION 47,12:GOSUB 700320 DRAWTO 15,12:POSITION 0,20:GOSUB 700330 PLOT 43,30:DRAWTO 38},20:PLOT 25,20:POSITION 35,30:GOSUB 700335 REM BILD IN STRING340 X=USR(GGET,0,0,8,30,ADR(GR$))390 REM 400 GRAPHICS 8+16:S}ETCOLOR 2,1,0410 FOR X=0 TO 32 STEP 8420 FOR Y=0 TO 140 STEP 35430 A=USR(GPUT,X,Y,0,ADR(GR$))440 NEXT Y:NEXT X450 FOR Y=}0 TO 140 STEP 35460 FOR X=0 TO 32 STEP 8:SOUND 0,Y,10,10470 A=USR(GPUT,X,Y,64,ADR(GR$))480 SOUND 0,0,0,0:FOR I=0 TO 7:GOSU}B 800:NEXT I490 NEXT X:NEXT Y500 REM 510 M=69:GOSUB 900:SOUND 0,15,0,10515 Y=100:FOR X=32 TO 0 STEP -1:Y=Y-2520 A=USR(GG}ET,X,Y,X+7,Y+30,ADR(HG$))530 A=USR(GPUT,X,Y,0,ADR(GR$))540 FOR I=0 TO 4:GOSUB 800:NEXT I560 A=USR(GPUT,X,Y,128,ADR(HG$))5}70 NEXT X:SOUND 0,0,0,0590 GOTO 400700 REM XIO - FILLROUTINE710 POKE 765,1:XIO 18,#6,0,0,"S:"790 RETURN 800 REM 1/50 SEC} WARTEN810 T=PEEK(20)820 IF PEEK(20)=T THEN 820830 RETURN 900 REM 910 GRAPHICS 8:SETCOLOR 2,8,0920 FOR I=0 TO 319 STEP }31:PLOT 159,M:DRAWTO I,M+90:NEXT I930 I=0940 Q=I*I+M:IF Q<=159 THEN PLOT 0,Q:DRAWTO 319,Q:I=I+1:GOTO 940990 RETURN 30000 }REM SOFT-BLITTER30010 S=0:RESTORE 3010030020 FOR A=1536 TO 1785:READ D:POKE A,D:S=S+D:NEXT A30030 IF S<>34981 THEN ? "CHYB}A V DATECH!":STOP 30090 RETURN 30100 DATA 76,6,6,76,98,6,216,104,104,104,133,218,104,104,133,21730110 DATA 104,104,133,220}