.p ) O`! #@%')+-//3 ` ׀ ٠  @` `!Aa !A/#Ao)+-/O79;?A!CAEaGKMOQSAUaWY[_a!cAeagimoq!sAuawy{}!Aa!Aa!AaA/Aaǁ!Aaׁ١!Aa!Aa " B  !"!B!b!!!!!"!""#B"%b"'")"+"-"/#1"#3B#5b#7#9#;#=#?$A"$O$ O`! #@%')+-//3 ` ׀ ٠  @` `!Aa !A/#Ao)+-/O79;?A!CAEaGKMOQSAUaWY[_a!cAeagimoq!sAuawy{}!Aa!Aa!AaA/Aaǁ!Aaׁ١!Aa!Aa " B  !"!B!b!!!!!"!""#B"%b"'")"+"-"/#1"#3B#5b#7#9#;#=#?$A"$O$UUCOD43 Wy~SHARP i|LEES DIT U13A642 5d. Wy~.. UUCODER DOC (UUCODER INF UUCODER PRG zJUUCODER RSC &P*. n|.. n|HANDBUCH i|PROGRAMS i|EXPANDERGFA iGFABASROPRG vF GINFOTIONTXT Q C. n|.. n|ANLEIT DOC QPROGS DOC nnSD_11DIAIMG SD_11PINIMG SD_CE801IMG M(SD_CE802IMG (SD_CE803IMG 'SD_CE804IMG d$SD_CE805IMG m$SD_CE881IMG SD_CE882IMG  SD_CE890IMG ) SD_CE891IMG SD_DIAG5IMG |SD_DIAG6IMG  SD_DIAGNIMG SD_MODHSIMG YSD_MODNUIMG SD_MODPIIMG SD_MODRAIMG !\ SD_SERIAIMG %SD_SERIBIMG 'QSD_SERICIMG *SD_SERIDIMG , SD_SERTAIMG g /KSD_SERTBIMG 1{SE_PLATIIMG Q3#SH_ATARIIMG #F 5SH_BIO_1IMG 6 SH_BIO_2IMG : SH_BIO_3IMG = SH_FONT IMG U@ SH_FONT5IMG P I!SH_KEY5 IMG R)SH_KEYS IMG %F ](SH_WEICHIMG F hSH_YAGI IMG yF jySW_MAX1 IMG k . n|.. n|BIO_222 SRP  BRUCH SRP pCOOLER SRP DEMON220SRP 'DEMON501SRP zBhDIESEL SRP lKREIS500SRP LAGRANGESRP OHM_2 SRP GRALLYE SRP XbREASSZ80SRP "STERN SRP $ TAPES SRP < ----------------------------------------------------- | ESS UUEncode/UUDecode 4.3 | | | | * NOW MultiTOS COMPATIBLE * | | | | _ Free Software From Electric Storm Software! _ | | | | Copyright 1993, Michel Forget | ----------------------------------------------------- I N T R O D U C T I O N -=-=-=-=-=-=-=-=-=-=-=- ESS UUEncode/UUDecode 4.3 will allow you to convert binary files to ASCII text files, or return ASCII text files to their original binary state. Why on earth would you want to do this? Well, the answer is simple; when computer networks such as the Internet were created, no provision for transfering binary files was made. In order to fill this gap, UUEncode & UUDecode were created. Although this was done a long time ago, not much has changed. The networks still require files to be transmitted in an ASCII format, and people are still required to use UUEncode & UUDecode if they want to share binary files. Why should you use this version instead of one of the other ten or twenty currently available? Here are four good reasons: a) SPEED - ESS UUEncode/UUDecode is much faster than other coding programs that I have tested. In some cases, the difference is as much as 350%! b) APPEARENCE - ESS UUEncode/UUDecode uses GEM! This means that you are given a nicely formatted progress display (which shows the output file, the input file, the currently active parameters, the source and destination path, and a percentage indicator bar that indicates how much of the current file has been processed). Since it is a GEM program, you can access your desk accessories at any time, and set your options using pull down menus. ESS UUEncode/UUDecode now uses NON-MODAL window dialogs, so you can use your accessories even while inside a dialog box. c) COMPATABILITY - While UUEncode & UUDecode have remained roughly the same, the Atari ST has not. ESS UUEncode/UUDecode has support for the ARGV command line standard that Atari has put forward. It also have support for the Mark Williams C xArg command line standard, and the default command line standard used by older ST systems. d) ESS UUEncode/UUDecode has more options than any other encoding or decoding program available for the Atari. I N S T A L L A T I O N -=-=-=-=-=-=-=-=-=-=-=- There are many different ways to use ESS UUEncode/UUDecode! The most common method of use is to simply run the program. You can use the menu bar to select the options you want, and initiate an encoding or decoding operation. If you have a hard disk, you may want to install UUCODER.PRG as an application. Make sure that the "current directory" is set to _TOP WINDOW_ or the proram will not be able to locate the resource file, the configuration file, or the files to be processed. Also, be aware TOS 1.2 does not handle installed applications correctly. You may have to edit your DESKTOP.INF file (add the full pathname to UUCODER.PRG). If you want to get especially fancy, you can install UUCODER.PRG on the desktop as an icon. This allows you to process an entire GROUP of files at one time. Simply select the files you want to process, and drag them over to the UUCODER icon. ESS UUEncode/UUDecode will _automatically_ decide whether each file in the batch should be encoded or decoded. O P T I O N S -=-=-=-=-=-=- There are not many options, but there are more than any other UUEncode/UUDecode program has: 1) Include Paths - This allows you to tell ESS UUEncode/UUDecode to either place only the filename (filename.ext) inside the encoded file(s), or to place the entire pathname. The default with most other programs of this nature seems to be full paths, but I prefer having only the filename (since that is the way it has to be if you plan to distribute your encoded file for people with different system configurations to decode). 2) Select Target - This option allows you to choose the destination path and file (must be both) for a UUEncode/UUDecode operation. This option is mainly for floppy users who want to decode to a RAM-Disk or a second floppy disk. 3) Segmentation - An encoded file can be broken into pieces, which will be automatically joined together when being decoded. This makes it easier for UUCP mailing software. You can choose one of the preset sizes, or set your own. A C K N O W L E D G E M E N T S -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- I would like to thank Steve Wells for supplying me with the source code to UUCODER 1.0. I would like to thank Steve Yelvington for writing UUCODER, and placing the source code in the public domain. I would also like to thank Ian Lepore, who wrote the HSC "C" compiler and GemFast, two programs which made the development of ESS UUEncode/UUDecode possible. D I S C L A I M E R -=-=-=-=-=-=-=-=-=- I have made every effort to ensure that these programs are bug free, but that does not mean that they are. If you use these programs, you do so at your own risk. I will not accept responsability for equipment damage, data loss, or any other unforseen consequence of the use or mis-use of this programs. C O N T A C T I N G T H E A U T H O R -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- If you would like to contact me with bug reports, suggestions, or comments, you can do so through the following addresses (in order of personal preference): Internet: mforget@elfhaven.ersys.edmonton.ab.ca ess@PUCnet.com TurboNet: Lord Chimara @ 100:3/0 (Temple Of Doom) NeST: Lord Chimara @ 90:220/3 (Temple Of Doom) AtariNet: Lord Chimara @ 51:710/0 (Temple Of Doom) FNET: Michel Forget @ 236 (The B.E.A.C.H.) Mail: Michel Forget #45-1503 Millwoods Road East Edmonton, Alberta CANADA T6L 4C2 C L O S I N G -=-=-=-=-=-=- I sincerely hope that you like and use these programs. They are free, so you may distribute them any way you please, so long as the files in this archive remain unmodified and unseperated. If there are enough requests, I will send the source code for these programs to comp.sources.atari.st. Electric Storm Software has released one other product; !NEW NEW NEW! - MasterBrowse (described below) can now interface (transparently) with MegaDepack, so it can handle up to seventeen different types of compressed text files! !NEW NEW NEW! - MasterBrowse is now MultiTOS compatible, uses NON-MODAL window dialogs, has 30% faster raster copies, allows you to turn window scroll bars on or off, and is 4K SMALLER! MasterBrowse 2.6 -- An excellent GEM text file viewer absolutely packed with features! MasterBrowse can have a virtually unlimited number of documents open at one time (subject only to the limits of your system). It has extensive searching features (case sensitive or case insensitve, forward or backward, current position or top of document). MasterBrowse also has powerful printing features (page headers, page numbers, line numbers, page descriptions). Every single window has a set of ten bookmarks, a set of block markers (which can be used to save a block to disk, print a block, clip a block, or expand a block into a seperate window). More? MasterBrowse supports batch files! This is only a brief list of the things this program can do. If you want to get this program, you can download it from your local bulletin board system, FTP site, or pay service. If you want the optimized version (smaller, faster) then you can send $15 to me at the address listed in the "CONTACTING THE AUTHOR" section above. The "C" source code for MasterBrowse is available as well, for a negotiable fee. Contact the author for more details. Users who send in the donation also receive AutoDate, a program that keeps track of the time and date with virtually no effort on the part of the user. Simply hold down the SHIFT key once a day, and the date will never be wrong again. A notepad desk accessory and a demo of ShadowTerm II (a terminal program written by Electric Storm Software) are also included on the disk. -Michel Forget Electric Storm Software July 8th, 1993 H I S T O R Y -=-=-=-=-=-=- There have been a number of versions of this program. To save space, only the changes since the last public release are listed here. If you are upgrading from a version other than the last public release, I suggest you read the entire documentation file. ESS UUEncode/UUDecode 4.1 ------------------------- -The program was not closing (or opening) the VDI workstation properly, which caused some systems to crash, and prevented TT systems from moving the window dialogs around the screen. ESS UUEncode/UUDecode 4.2 ------------------------- -The stack size was not large enough to handle many-segment UUEncoded files. This only became a problem with really _huge_ files. ESS UUEncode/UUDecode 4.3 ------------------------- -The program did not work properly when the user tried to open more windows than the system would allow. -The resource file has been changed slightly. <.K9Iz(i$L~dpWvB>N> XΣ8QenA5S^R\b#w%F;U**);ظcMj<#aġݯ"E=KbtAŘxRqи1*V f"Zvyʞ%\i(?y*$jZeA]98EJF+N"8*^2YYXّw. qMTUguhNwM@.7jxq Ca306P.# {|O4.4S<U<5<[EdQ?WzZx^{gFȬ6"aϗ]°} ? eЫS+Ÿi*qF1C*/[Ё$7yYVg_35_[qQ{gozփ@4 -F6B-`N;x n]a%$"Rf DzH m>:m[٥\`Q9L*sQR찪ʃ1Uv#4COXX5r'|Wtt@B[#;<ִ} Á讯 J7, i[%>&3]Z&9@^䳌^/9N/p#aŞg= z(u bw5z3V8f򆝂HT 暨?$ •i?X.O)f$* ۓl/.IhU =|\q"]+E|dgd}ۥ1;1w|̹d kFY e@[S(]Hq7z+m<Y߱FUgz@r`eԄbm_e5D* Wûه.㏚pRm3ږ -w'U']%PK҉r4Ug`h?]S鏈A$H}A#gb9o Sݓ%A.`(٩yX˷8L&Q2aljN p(bK!,o=ou O98˖pzRЌ{wA].2]ɣQ&&$m!t ❵o '!LCUt&9B&CD$p$ g$jԃcl$P$tn |+Jy*! |*.$4|(T/$4t|V>$4U:| V>$4|!V>$3|#V>4|$V>$2T|%V>$2z|&V;Lx̬?L`L`<<`v<"@<<@<`Ȭw<@U<@T3<@<`kC,>Pu "$b*HvH<$9LvY"H!3BlSpN@h "bFX8f " NE`X*g /^WJDf2b)vBRT|Ry06TB`6\arRbbP?a"X#`|V79Hh |l b"$aXmabVo90pN@vFlH  n /0LzC`ejD.cpeim 0f3bpkg$Ne-:XcDN'TRC`{X``og@FNVtoamJ90`ol%B#0sVB_3#/>`1ޠw0rtn*_w2 ?rr!0R/XZQ MB @a :8[i`ffXNcXJ@oBv|*nRV;(pt`[@QsbN@X%ys 2f&p`oQxH*  E P g\.NXTMA8| E?(V8P E0(|mD,nQ@H`{N`n B @p ƌp B –JՀ@,N@"RF" " ڪ"N5&H!J@gs$qZ@rRR&:r|a @raPR>RRBLx*`5 ֨ rR mfNZ>PL`ڜQq_İ|6pTE2&0^r`Pql6XP0`>PHL`@…#>gD (D!gjD#gPD$g6D%gD&f3sbp1B`30YBd3قp2d3Z2d|kū2dh3YÉ2dTpg2d@d|=/|>??7ф|@gF|AgnUag…a(8OVOjN?~?ӒP(?rͬ?ӊvw<@H=|BqFPP"PPbMp 3&`x b%88TjaLP?"?J=fH f\x `,??h>e@X;D!ppp&dTpF|xN_ZF kFvia_wb0BX0g4M/./QTQ H+aaF46 L7XqhzPh,0z,0,05ĆDgT.f?.(fAj+a 4Ԃڏ:ԂBs U$$$nO#d܈r1|$4`*j(0&0/kXs!^./P& dovd?JlvqT/="cnpQtl2T0ArD*7A^ #(:KjՔ befAQ"Pv x`l0 fqfAS\~0RC?ԥʯrܦaBJg0LqBS@H |g@sY.U5[6 h1d6 fAGܜ"~wjDX yⲧTftsV4aXZ$01z^-6 a\_8H?dܤP?-vDlHA8/aοXVC`ꦣ\HS 9\lzRE&nbodRX?Xo|rZfat&V8`j^\@>G<??^0fAiqYfAOrLۺ.ϐtKLP#Cf6*с\fAPJu\E>ĦϸsXz?JDo#jsdfAn @n.sh?lonPq|ˆ܉lp^.@MVlZpNgV1BݲhlB'Tf2s4F߾CHЄ&S c C (\g B:6`䌳tnffݶAx#5x1J@^,/1* E .f EB R? @Jf2ʀo6ĨB4$@(sr bӬ ܤO с. bxhx~xD.6 iCCtH,Es Cs :25⛺h⡘CN榘"L(Z<&XJ` &T`A&P`% &L>&HFJ~$VHWL$P$T$XB=.dH*#x!L8+(Թ@`8`ɱXbr꒦$TDabb֌lҟ2z<$F>??/p?<₼a pɪؤ=QK'TUƠ'|#H 8u\LۢX5^pp҆&nH߀@61@P0+HA|A811<0H1;A:AH ݤԬROܤ^lOLx26zCl2HQXװ$w(P` 0@8HXRE`0`@|~i<`xhW?tS?mИPUԘPҘP"Q"]```E`Qt4sY'PpPSQS^&b>!:kfRBp"88TnN`?wDDDDx_-{.?qPHr.f^S Q+CcBdBd=Bg02U\tQ0lpПbx@c* r7 rA r=bP ~!JTZ@lꠀw0fjr@kf{`1AS&H ƠBS`GSHglmy pqg4bJDf0RDH"݁tĠ@mp`8R`垆cF` g`΀Jf p@SCg4`gJUgȀfȀ `7NV1*rlv3wR< Nb8B 2wNJvɢ|`Hv&r l֘JD<p0`tvJFgSFNRBX.rH65mw:0J}Cl8HRGиEl `RD!^^WHRŞzd^Σ0X]K!g4&L1 v& E,ہ2Á:ŁI<lOJCov1v0{@3H25AA%&CZc@js"$CZzchuvX`xPLzBWQ 6nYvt?kt~btv߶ tztzt~v[za01Zl|rȢ#̫lTܣJLǂ 잽0aprld* B.Jƶ& Fm@*tvPzP~vY/Rf,BZnhxK Ϫζq lrv x`܄qRD`qs3UBp6p@ xÅvx|P( }r@b3`1^NPc/ X61t4.ߖ t3g` t<r41\ fx0`ax`fv0`plQAX(QT D6(l xSpÿA/X(@Xwp*h*`ҁ/ GkpJSm/֍?NS?y\O`&_SԂځ0+`6I +20g(Tf*Tf6-I|g*g$ggg (TI`(T`bq/w.T gJja}&H CRP Pf?PrT&`T CJPoSPfj`P`0R q{gAxNuRҘRИRΘRT:r rʘRZ NS::BxЪ1q r rudJ@m7aB}uX`^TuJyPg" P0}Җ}j BQ:r`R`ޢ}g}|}f7BgN}t<}nfР"o o`0i2h+20)4(h+46Ql68il8N0ĒCo 0Do0pJ@R <htCkp:q@`"yP0""@pAQ"Hpr2QC!I"^ < T``TN@$N \(-n$@$ <tPjp(Tr,N <2Cޞ <53 D6tjqTrO Nbq <8Gtjq&Pu*\H@ <7tY8RrPU40|gS0m`\@ <[6ƦF20{`20LfNhj`f/aXA< WNs@/:Nu)H)I)J " qNBNuH@`R@ X`Rh0ZP *`DZPh0RA Wf vC ;p|/ ;p~/y6fQy0:qUav`l0pý y0 @ 0 pgIsL6A`vN(Py0`l>?GTApgk RCG`{9y;gʐo?<~M6xaDbXPt/q(w \g ,&af7//?F"R1Y!g `Pxaz%gmX T*P~!>@;g >@,g` R -P\/ r7P?QRV(PРbn(mrP7/2#G A;\/wk \ ʐ.Ng(@cV^cO( @*F%`Oh DJg*/3cph ` R @``~.c,m*aI1U^"F x2E0g}Q=gR@xH Jg@s(sH 4=8f(?/S&Jg H ЃR F 0` @p`BPJf7psHnXqTP|fy! jʑ&pQp<B~(Jo$u{B@<1JWp`jVwTQ0A:"MRH6S@@6s~QRQB0b~P.fJR80R0x~R#g"S %R}RR0_R`0 ~Ry!r0 P`B-fQCReOjfXO`70/ VґPOJfS0L6ґTO6|aP:ʈ0&fːJZXB 0#Ђ`)nвPQT`OS^c|>@.f&@l0 R/(T`>@\f]B@l$pg l @/B`>@ z<Ɣ !P2̠05֎`Œ9.pB `J dT؀@`8.{`2f !V֔\gSzlurzg&6`z/@|(|9q zPBEBF v KRH|+gb>agR>bgF>rg:>tg.>wzBTqQ"PO"b|``|`w``0``0A"py!fV6qM:P~|l @!K|vPOX0 |9C 9FpBlBT ] 0j|wf``bBCb6C~@HM[fBG@\Q,5Жp `aBC@p2.\`bXf 0p6+ jnn@`3VXO k=0g BkkgB@`UMg<H`.6`cuRjs 8ࠥN\Pfjn\}0"g2m\:JwEmgB?qfP3ڱ0`ʀ=҄`n`Пd`$Ԑ>s^E / Z|gDpd&psN(A|z=Jg p9>p`9zQvppb\ACp0Q,g>p@, +R H| @,}-!3䈏:܆`Rprt`n@ 9pݲb`lBgCs1=@'m@sd`1`2PRƺQ Qĵ\bh5tثFoSĵYF/Ar6 R? @ :^vQlP0lp6pA8B0}`dZuRl~PvPzPV0Co}3QXO8@P LRڐ fBfw>pxa(2."jT9A*/ 6?S'\O|rg"@0`C*­δgCSB 2N CRCl`uRBFk 8qgNPg{J f PXOSSJSlb3SXOn|JEfr0<6pfJFg(@ gfk$! lS kRS`]@ f$ `< `JCg|@fk$#`0<@`0S@6'kR +RQ!@B@'avP/+;Ug2P "`HB[q 0"ʣ bkrRSP&I!`co. !BFPՀXOv*$fI r!'X!0m0BS#: °)PO>EgO k@ Œ2 \0 fb0 ` !2HЛ BDBEqpp<+ JDg{ҴhқRD{1Jp~hgRDڐf?#f7'@0<aTO'@(kE : 'H`vTBSjsk ֠ aLXOBDl6BH6SgmHPa XONp"ѴDrff!JSg(hҀg,;?=Sg`18pe@0Do@H,A/&llvq` 4nl 1<,R H*/PHn PO&gLxϸlBT(Jo//rk.P`?23İ%|H`R`/%V._/?,$@p^(`p6%gz 0h 3 ^0&zU\DSXp@bg 8f rK8|) Lߖd"~8`;@;*O`p1J\0 m g O\OH)r Z pXO`p]JtT(5DSV,2 (BD2}%f..P =~BnP KBFBCRp7J{#*28002ÿ@6Jg=C`JgCf@fP0`<`$\VAw`\Xm\xnXH {NІeFt [%P &[Y@ E(0( N(F $18r"~/ 2 P scn 2 8I?SJ@JJ@"/ |pbf@P`0u,PJ@J*\ڐxfȰ pjfPO`p0`ҶP`r!Nꤠ6` LT?AB䗪:*T`P 2\0ɑBGJ*s8?2 NِA }ܑv: Fj*z0]r@BbPO0aA**pRRZ @(@:7=ESzkA > @ `fXB\rJ>Ѹ@g"JDl JG\@p!-0PʵgXR>`0xS`ڠ[mՠ࢚[a2԰b `Y`! ^4,e 4;`!>ѠZPH +{̈́`lUּP̆PЩPؼPj@r!Z` mBAa0HsB"0v?\O*@0%s gh E`0\X/suT"? Ё&=dbh z`@*P nf D&2 *RG`:`B>`0f6@`xgXgJi0lС6 `-WV=@`+%P:P"hPvPP:rJEg8?Ƌ-@\L2 ~J\gtB`]n@EftB4f2 . `X^ @]rR^ސךR:]g}-frJgXXBRڠgڠg`~` U>2.@n"Ul ~XRn-&`0#d^`*h  4 *08.BE XO< zbg no<.Fl8:FoJDfpJJϐf00,p Jg2P0fBSF/ T.SD/Jf`$0 RF`Md&3`0 (KH/zPOaz @88nqJbBN#a͂d)6(KJl -(2`K/ pPaUf2`ʰQqa΂oprBgg2o0+f0-fP<0k0 n$ЀЂЁfJ_gDxHrvxQQrŨcڐ-*xRJ:ސڐ0f0p=Os󤒡vXސRzT"C^rOr\E3C(@cR " `Qg~ Jg (p08΃``zrt"R`}߁fbjBZ`qOgHUG*T$HU`ڐ֞ pA(0B"C()O;OMHJސjO|LLRxO_gROK:6LZ p5"Rx)Q~V.Tj7Ul@TdH_Z_lX4xR.~W1R01&BH ^1wl3| sqBaav/1,11&?Hyr@sʰbR>rG`r"3w&&y`Ԑ/ JTfEp~*K2DfIT#. jƕ6. B #:.P%2@?8JCgDʲ!iPG,RF? Ё{JR@D`[/,pHs\`F*llzQ2./;&@h!kD!'xI)L Q(BB+. `p`.R"4*0 (S( Po K8(*+l& b&`p&0:Y|.[<^0h?&p t{(S g,ml.*KV 6EfGLRx4*1P]ab0v0+PX4F0`άp PX` ZF@ea)t5Fr0t9Fr3 /%`d&p\g(K {SFB`7z,p|m @nNu#7|B@0/H"-|݉0X~ l"4,pASg|_f0z.*,puf0YoNuQo~,p&NN\NuapƞD#x5v&~|JCmNSCY`9arT9v| lJf&RCX`p`x4ш0CV8]2R`H,e LS"MS`QJf S`0D,g`&Not enough memory Stack ov?erflow&@&UAAUUECODER.INF[1][Unable to load|resource file!][ Aborwt ]RSCThe configuTion|5uld|nbe opened for reading. Ooh...%dt0[30op?sC O|Swrite] s  w&2An ESS ncode/UUDe|window dialog is curr?ently|Vh.re a# no? availhandles ?Cancel 4.3 g*.* F:L O:incluf 1WIt %zNPAsuffix mismatch:|<%c> instb of A MisseCname@|WD[0 3nCNo data@O#!UAerrorL} SWEA|specified 05I OV output_0b?8 P`UQ3lin BEGcINO PW (P@|Q)hI8K the@VDZEloBMImplepM[$wA %/-/?/Q/~c(Select 5Q01̏ގxArgARGV Too man9prgu31s ^env vars@ssZprogram.yNxMHHʏß՟ /ASew|PATH0\IllegalCm6 l 0123456789ABCDE ҭGHIJKLMNOPQRSTUVWXYZ+=Oa(sy@ B¶DӲٿH2| }'9K]oρφ"0 ",.   ×      w  *  +$#  ?< &$ۿk ЁP @ ef#> 8ДŐF\&*,.$0.D  " !   Ӿ 2*&""q.E*Ы 0 .(? $$A+y У ѭ,& ЂD2 w :,"D сЙJ~<:3 ҧЈ#b& : 0& 284 k"R6Ӿ;6      "W  5` T 9>PX 3О^0, #H#љ*B:$HD $i H?," ] Ԇ8 Oz"0(*",& ., DX:\ 2,   ( F N  60 .0P| .l6,F 6 XZ f$H ?Zl+*64":/=(>.Z":" nP 6< fZ *< ^L<$(s &,"48V\ 06.  7(26IێSuJͱjO╀d `$ !-ba,ƺQr_Q.bwg*f 񸮪<+k5MhGo[qת7 >xF.gYߍ?t܃Mk8 hQw靁+lQV3ŭu 6j'7J;r6<&- c{@ ';rN'bVE>ЁZk]E>b ]]-**c ٢f3%1t8c6sRseH @ @$z *PH p PP @ F M P  \  g  |         * B Z r , 2!H"^#t$%&'() * +( ,>  U + "  ( Ak=s9 6 =7 :r:    =  < ; 3J *u47 7 4 3 S. 81- * - *  &3  + (?G D ( A  ` Q ^ k y.. .. . . >A  | = J W e m. .    / / . !. $>7   3 /PU 24\# 3c00(<8tF#($>&>(4 Desk File Segmentation About...-------------------- Desk Accessory 1 Desk Accessory 2 Desk Accessory 3 Desk Accessory 4 Desk Accessory 5 Desk Accessory 6 UUDecode File D UUEncode File E Help H Quit Q --------------------------------------------------------------------- Include Paths I Select Target T ----------------------- Save Options S Save Options "X" X Load Options "X" L 8K F1 16K F2 32K F3---------------------- 40K F4 60K F5 80K F6 100K F7---------------------- User Defined U ---------------------- No Segmentation N---------------------- Help F Okay! When a binary file is encoded, it is being coverted to anshown on the screen.When a file is decoded, the binary format is restored.This conversion process is necessary because Unix/PC/Amiga/STUUCP transfer software can not process files that are in aA binary file is a file that contains characters which cannot be shown on the screen.different format, which contains only characters which can bebinary format.The configuration selections allow you to determinethe approximate maximum size of a segment.Large binary files may be output in segments, if youSegments are named in alphabetical order, starting with Okay! so desire. When the encoded file is being restored,the segments will be transparently pieced together."FILENAME.UAA" and ending with "FILENAME.UZZ".Okay!ESS UUEncode/UUDecode is a free program byElectric Storm Software. You may use it, anddistribute it, as long as all of the filesin the distribution remain present andunmodified. Okay! Cancel! Target File:Target Path:Current File:Status:________________________________________________________________________________________________________________________________________________________________________________________Source File:Source Path:Current File:Status:Maximum Lines / Segment = ______________________________________________________________________________________________________ ______________________________________________DoneCancel FILE IS BEING PROCESSED WorkingHelpHelpMaximum Segment Size____Maximum Segment Size: ____K9999UUDecode FileUUEncode FileEdit Mode______________________________________________________________________________________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ???'0 ?0  ǀp9s ́ɉ1?ac1b3 9g?`3 0?1Ϳ 1@c`aͿ`aoſa;Ã1Ýc;c#Ù3g c9s;M0=cpc?8;Y`0`m0`;0̈́3a c8p3 0px` ?83 ` ف 0 `1! `?8`cf9r`1cÃ01`08pap11 0?1 ` ?10>F?ハ1a`?pa1C`80pa111p 񘉍1a?񘉅 1f0?񘉇a1p񘉇1?13𘉏1?16Ì𘉍?1&8񙉍Ñ?3l`8?a3hၿ??ᙉp~3x0?` 3q8p3sa?893F  ƄO ۟8~fyۏ f?0ۇafɉƄfyɈƄg㉈?0ca~ Ã3> ` p3 ``0``31~pyc<'| ?< l^`phi#c0s@AeX($G6r@%`ڋP`%)EũyKOM/A EEiZIQb:r(}2S YTX(( /RSq .G`%YH|jEXrxEho"$(  &h M1JR/-I,° GPK1cA HILFE/HILFE10342"#^.S^."ļ< 7X!?JK2KKRR2S|ÃCKS[2rJxSRRxxK8RRzU)8'f( Ҙd e\ZT TF/+ eE9@a.PK1y ******************************************************************** Deze diskette is samengesteld door de Stichting ST, Postbus 11129, 2301 EC Leiden. Onze bibliotheek van public domain programma's omvat op dit moment (lente 1994) al meer dan negenhonderd disks. Daarop vindt u programma's op elk gebied, van tekstverwerker en database tot de leukste spelletjes, de fraaiste tekenprogramma's en de handigste utilities. Ook bevat onze bibliotheek een speciale afdeling voor public domain disks met Macintosh software, die te gebruiken zijn onder de ALADIN emulator. Deze MAC-PD serie bevat tot nu toe ongeveer vijfendertig disks. ******************************************************************** U vindt in het twee maandelijks tijdschrift "ST" (Onafhankelijk tijd- schrift van en voor gebruikers van Atari ST computers) een overzicht en een bespreking van de inhoud van de nieuwe public-domain diskettes. Dit tijdschrift bevat tevens een bestelkaart zodat U vlot over de software kunt beschikken. De november/december uitgave 1993 bevat de aanvullin- gen en wijzigingen van dat jaar. In uitgave nov/dec 1992 is een over- zicht van de Public Domain bibliotheek (bijgewerkt tot dec. 1992) te vinden. De Stichting ST geeft ook een speciale PD catalogus disk (database met filenamen) uit. Deze public domain disk is geproduceerd en gedistribueerd door: ************** Stichting ST afd. Software Bakkersteeg 9A 2311 RH LEIDEN ************** Ondanks onze controle komt het af en toe voor dat een diskje niet goed is gecopieerd.Mocht U dit overkomen, aarzel dan niet en stuur de defecte disk aan ons terug. U krijgt dan direct een vervangende disk toegestuurd. ************************************************************************ Teneinde het voor ons mogelijk te maken om productiefouten op te sporen en vervolgens in de toekomst te vermijden, zijn alle disks, geproduceerd door de Stichting ST, voorzien van een groen productienummer. ************************************************************************ X\ O?@ #`R! %%%iU(S|y{AVBݣRZ4ϼԢRKZJ@Z PK1z1.6 HILFE/HILFE162272L-RHSHL-NU(O/J-(.QPȞZ]df$ <(%5O+%1/O4hԡԐ_PWWRT 2_O%TA$5h(/BTjf1,$dobRPiXjQZc:pVuHNJUU:+189#'3u^j^BbRzjqAjfrFjQ j{SR3LI,JۗZp?\P¼P TPZT4:;;ϼb%66`ARqIKIf:\/PK15 [ HILFE/HILFE17342422 OSHJTHI-RJM+K/N-*.I2S3RrKsRRSRRKxSRRtKӀRR2S2rSSRSSSJK2Ktx22T*Z44/E2ԔĢ45 \P )MqKLJU(,JQH)-JPzD!1)=89#'h<^'y%E@Q2?1<_cRZQ"@w@ueq~  R3rPK1H% HILFE/HILFE18322b^."ļ<Ԓ 78;'39[!589#35%5O<H(')d*&R3SAT^.̢ԼĔT\┢RI)@sR`$*h&g+irf(] ]Ptt<,p$p        ? @ @ @  @ ?*@pppppppp@( @@@( @@pppppppp@@(\p@ @@(*I@ @@(I@ @@(*I@ @@(I @  @@(-I@@  @@(8\@  @@(8@@  @@(@@  @@(@@  @@(@@ @@+@ =@@(@(@$!@@(@+@$!@@(~@(@9@@(~@+@$!@@( @%@$!@@( @(@PPPPPPPPǽ@@( @@@@( @@ @@(<@@  @@(~@@  @@(f@@  @@(`f@@  @@(` @@  @@( @@ @@(?@@@@@(0@@@(0@@@(~@@%%%%%%%%@(~@@%%%%%%%%@(#UUP@@(@@(@AAAAAAAA@(@--------@(~@@(~@@( @@( @@(@%%%%%%%%@(8@%%%%%%%%@( ? 8@(f@(`f@(`~ @(< @( @(  @( @(pppppppp@(<@(< q q q q q q q q@(l?@@@@@@@@l @(~ @(~@@@@@@@@@( @@@@@@@@@(@(  @(~  @(`  @(|  @(~  @(?  `  @@(`f  @@(`~  @@(<  @@(  @@(  @@(<  @@(p  @@(`  @@(|  @@(~?  @?f  @ @(`~  @ @(<  @ @(  @ @(~  @ @(  @ @(`   @ @(?  @    @ @(0   @ @(   @ @(   p@ @( @ @(   p@ @(<   @ @(~   @ @(f   @ @(`<   @ @(<   p@ @(f?  `f@   p @(`f@   @(`~@   @(<@   @(@   @(@   p @(@  @(@  p @(<@ @(~@ @(f@ @(`~@ @(>@ p @(?@?` @@ p @(` @@  @(` @@  @( <@@  @( 8@@  @(@@ @(@@ p@(@@(@ p@( <@  @( ~@  @( 8f@  @(` f@  @(` n@ p @(v?`f@ p@(`f@ @(`~~@ @(~<@ @(@ @(@ p@(@( p@( @(88 @( @(p@(?p@(/@(~~/@(~~` @( `@( `@("Çcc@(၇c g@("faafgaffffgf`faf`@(!faaf`affg`caf@( fa၇`affcga@( ffa`afff`fffa@( ffaa`gf`ffffa?@!fc`gg?!fc`fcc  <[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tth   P P P Pa`0 PX`0 PX`` P`` P` PaP P P P P٘٘ P P P P  P  P PP P P P P P P Pa P`P P P Paa P` P`p P`8 P` Pa PaP P P P` P`` P` P` P` P` P`P P P Pa P`` P`a P`a P` Pa Pa PaP P P P1 P00 Pa Pa P` P 0 P 1 P  P P P P Pa Paa Pa Pa Pa Pa P PP P P P0a0a P` P`p P``8 P0` P0` Pa PaP P P Paa0 Pa0 Pa` Pa` Pa P PP P` P` Paa` Pa` P PP  [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt<      8  8                             A    @E  @e  @UM  E #    0          &U_ " " "!      a @@ E1 )   0@) 0E  ` `    ?                   ?UUT? |              E      0 )     0#` ?01   `) 13   `E s30c0  0 s10c0  0 1``    0``   `    3`    311    3311     ?333     333       0  p0|B  UU UUOpC  p @p   @    |  @1   @   @1 ? U@     @  @0    @0   @    @    @   @  @    @| ?  D@  ( @  @ @    1a@  UUPUO@?   1@  )  @  @   @@  @ @   @ @? P@ @   @  @ @@   @@ @p  =@ @ A@ @ q`9@ @0 q@@ @, Qy0@   @#H@?  @@?H@   @ #D@ @ ,C @   @ 0@@ E" UUPUUO  @@D@  @@  D  @  @@   ( @  C @ UP DF @ D@  @ H @?@ H @@ P@ @@ P @  @ P@/@ 0 P@ @ @ 0HA@@@`H @ @ `D @ Ux@ C  @@ @ @? @ $@@ @  @ @ @ !%@ x @ "%C @ @JDUUUUO D@ D @ H@ UE D@  H=@ x@  QA@ @@  pA@  @ 0 1A@?@ , =@@ #@@ @ @ #@@ , @* @ 0@@  @ @  @P@  @ @   @? @ @  @ @  @ @ x @  @  DUUTUO  @ D 0 @  D  , @  x #@   @  #@?   , @   08@    @    @    @     @   @   @   @    @?    @    @     @ < @ D@|UU_ @* 8  @!A   @"b x  @     @    @?    @      @   @   @   @   @"  @"  @"  @  @?  @    @     @! <U  @"  @    8 8    $     'x x            ?   1   H            y        :  $    !  "      q  0   q     <[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt :*  @ @ @@@@  @@  ?@@   @@   @ @  ?@@  @A@U ?@@ @ @E@ @@e@ @@@U@" @@M@" @@E@" @@ @ @@@ @@ @  @@@ @@&@  @@"@  @@"@  @@"! @  @@C  @@B   @aB   @@ EB   @@ )B   @@  U_?@@ @)B   @@ EB "@@B  ! H@@B  / @@ C   @@@  @@' @@ @  1( (@@ @ ( (@@ @@ ' @@  @  @@@ $ (@@@   * @@ ) h@E@P $ (@  )C? @ `BA $ (@)BUP * @E B@  ) h@B   $ (@ U@UPUU@ @ B   ?@B@  @ B @ BA @ C? @  @P@@ @@@ @|@@@ @@@ @ @@@C? @B @ B @B  @  B @  UPUUT@ B@   0@  B @ @B @   @B@ C @?  @|@@P@ @@  0@@"@@@A@  @a@@@@@ @@@@ @@@ @@@@  C@?  @  B @ @@ BU@@  0@  B@ @B @  @ @UUUT  =B @  @ AB @ @ q`9B @  0@ q@B @ @ Qy0C @? `@H@@ `U@H@@@D@@@C @@ ``@@@@`@ @@@@ @@@ @ @@@`@ C @@`@DC@?0@HB @ D?HB @ ``( 0@ PB @ ` @ P B @  @P@/? @UUUT  @ P@  B @   @ HA B @    @H B @ `   @D B @ @`   @C  C@?   @@ @@  @$@ @@  @  @@  @!% @@  @"%C  @@  h@D @@ ! @H @@y! H= @@ ! @ QA @@P  h@ pA C@?   @ 1A B @   @ = B @    @  B @   @ B @     @ pB UPUT  @      @ pB| @   @  B @ (  @  B @ D  @  C@:   @   @ @  @ @@   0@ @ @   @@   0@ @ @  @ @@   @ @ @  @ @@   @ @ @U  @ C@?   @ B @   @  B @   @ B I@   @  Bj@   @  ~|Z UU@UT  @   J   @    I   @     0@       ?  0@    @    @    @    @    @    @    @     @    @   ?  @      @      @   I I!   @ j j!  @ Z Z UUU  J J!   @ I I'   @     @     @  ?  @     @     @     @      @     @      @      @       @     @      1     @H     @ p    @     @  p    @ y |    @     @     @      @:     @$     @      @!      @"                q            0         q         >     "    "1   "1   ";  #;  ?  5  5  1  1   1  1 1           ?    ?   ? %  :[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt;?      ? @ @ @ @ x|?@ ??  @ 000  @ 000  @0>7  @p p0p>7  @p p0803 G @p p003 G @p p0 03 G @p p0 03 p @p p00?  @p px00  @p p @p p @p p @p p @p p|<  @p p?> @ 0070  @  @0030  @  @083a @  @0p3` @ @8  083 @  03 @8 0 3 @ @0 7 @ @0?> @ @0>< @ @ p p@ p p@ p p@ p p|< @ p p~> @ p p܀f7` @ p p̀f3` @ p p̀f3@ p px̀~3 @ x̀|3` @ @0̀l3` @ @x̀f30 *@ @x܀f70 A@8 c>  @? c< A@8  @ @A@ @@ @H@ |` @p p~?` H@p p0܀f0 @p p0̀f0 @p p0̀f8ᇀ@p p0x̀~@@p p0x̀|`@@p p00̀l`@A\@p p0x̀f@"@p p0x܀f@@ 0c?`@@ @0c>`@ @ @ @ @ @ @ @8  @ @  @ @8 |@ @ @??@ @ @܀30@ @ @̀30@ @ ̀08ᅀ@ @p p̀0@ @p p̀00@ @p p̀00@ @p p̀30@ @p p܀30@ @p p??@ @p px>@ @p p @ @p p @ @@  @ @ @ @ @ @3@* @3?@ @8 33@@ ;3@@@8 @;0@"@@ @@?0@A@@ @@?0@ @@ @@700@ @@ @730@@@p p@330@ @@p p@3?@ @@p p3@@@@p p @ @@p p @@@@p p@ @@@p p@ @A@@p p@ @@p p@??@A@@ @000@ @@ @@000@A@@ @@87a@@A @@7` @@A? @3 @@A8 3 @A@A8 3 @!@A @3 @@A @?? @@A @> @@A  @ @Ap p  @@Ap p @@Ap p  @@A@pp p< @@A@p p?> @@A p p370 @@A p p330 @@Ap p03 @@Ap p(03@ @@A 030@ @@A @'030@ @8@A @330@ @  @370@ @8@8 ?>@ @@? <@ @@8 @@ @@ @@@ @@ @@@ @ <<@ @@@ @ff8@ @3@ @@p@7300@ @lv> @ Pp@p@730@ @~f@ 0p@p@730@ @ f f@ p>@p@$ ?@ @ <8<@p@p@ @ @ @p @p@ @ @ @p @p@ @ @@@@ @ @@@ @ @@`@||@ @@`@~~@ @@8@@ff@ @@@ff@ @ @8@ff@ @ @@@~~@ @@@@||@ @@@@ll@ @@ ff@  @ p@p ff@  @ p@p cc@  @ p@p cc@ @ p@p@  @p@p@  @p@p@  @ p@p@  @ p@p > |@  @ p @p ?~@  @ p@@p 3?f0@  @ p@@p 33f0@  @ p@p 33fa@  @ p@p 33~`@? p@p??|@ @>?l@@@03f@@@03c@@@@@ @@@@ @@@@  @@3@@  @@3?@@  @@33`@@  @@33`@8 @@30@30@8 @@30`@  @@30@  @@ ?@  @@ @ @@@@@@@!@@@?|`@@?~`@@ @ 0f@ @ 0f@ @ >f @ >~ @ 0|` @ 0l` @ 0f @ 0f ?c`5;;>|5?~? ` 3f3 ``` 3f3 a` 3f3 ga` 3~3``faf` ?|30 g`ffac >l30  0f30#0f50# 0c>50c5;[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt6$ @$ @@   @   @   @ @  @  @  @?   @??  @00 pp  @>7 pp  @>7 p@8p   @03 p@Dp   @03 p Dp @@ @03 pDp 1 @03 p8p @0? pp @0 pp @pp @pp  @? @< @  @?> @  @070 @  @030@p  ~83a>  3`@p  3@  3@  3@  7? ?>pp ><pp pp pp pp >pp ?|<pp 3~>ppa 3f7`pp 3f3`? ??f3@ >~3@ 6|3`@ 3l3`@ p3f30  1f70@@ pa1c>@ c<@@  @  @? p p >  p@p ?|` pp y3~?` p@p 3f0 pp 3f0 p@p?f8ᅀ pp>~ p@p6|`pp 3l`@U ?π3f  @ 1f@@@ 1c?` @ πc>` @@ p    A@@p@ @@ @  A@ @ @@@ @??A@?@30 pp@@30 p @p@@08ᄀ pp@ 0  p @p@00 pp@00  pp @30  pp@30  pp@p??  pp@ > A @?   "@ @    @@   @@   @@p3  @3? @@p@33 @@  @;3 @@@  @;0  @@  @?0  @? @?0 pp@ @700  pp@ @730  pp@ @330  pp@ @3?  pp@@3  pp@@   pp@@   pp@@  p p@@   @?@ @@ @?? @@ @000 @@ @000 @@p@87a  @@7` @@p@3  @@ @3 @@ @3  "@@ @3 A@?@?? pp@@> pp@@ pp@@ pp@@ pp@@ p Pp@@< pp@@?> p Pp@@370 pp@@330 A@?@03  @@ @03@ A@@ @030@ @@ @030@ AC@p@330@ @ 370@ @Cp@ ?>@ A @ <@ @A @@ A @@ @?@@ pp@@  pfc@p@ 3@  pp@ 3?@  pga@p@ 330@  pfap@ ;30@  pfa@p@ ;0@  pp@ ?0@ p@p@?00@ p p@700@ @?@730@ A @33p@  @A @ 3?@  @cA @ 3@  @၀@A8p@@ ?@a*@@  @a@8p@@  a@ @@  @ @3@  @ @3?@  ?@330@  pp@330@  pp@301@  pp@30p@  pf`p@&30ð@  pap@300@  pcp@30@  p```p@30@  p``p@ ?@  pÃp@ @  pp?@ @  pp @ @  pp @ @  ppp@||@  p@~~@  p@ff@   @ff@   @ff@   @~~@  ?@||@  @ ll@ @ ff@  @ ff@  @ cc@  @ cc@?T@@ 8@@ @@ @@ ?@ > |@  @ ?~@  @ 3?f0@  @ 33f0@p 8p@ 33fa@33~`@p 8p??|@ >?l@ 03f@ 03f@?03c@@@ @3@3?@33`@33`@?30 30@ 30`@ 30`@p30@30@p  ?@  @ @ @?@@?|`@?~`@0f@>f>~0|`0l`0f?c`   >|?~?3f33f33~3?|30>l3000f3000f5000c>00c0[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt4?.??.00.>7->7?038803880?88088  88<? 88?>  88070 8@8~x030  ?~|83a  n3`  ff3 @ ff3   8(@ < D(  88f7` 88f3` 88f3 8@8~3 8 8|3` 88|<l3`    ?~>f30 @ f7f70   f33c>   f33c<    ~3  UUUUPUUU|3 @   l 3 @  f3 @   f7|`@ @ c3>~?` @  ?c3<f0 @ 88f0 @ 8 8f8ᅀ @ 8@8~ @ 88|` @ 88l` @ 88f @ 88f @ 88c?` @ 8@8|?c>` @ ?~?? @  f 0 @  f 0 @ @ f 8 @  ~  UUUPUUUU| ??@  l 30@ @ f 30@  f 08ᄀ@   c ?0@@ ?c >00@@*  8@800@@@D 8830@@$  8830 @@ 88?? @@ 88>@@ @88 @@ 8@8 @@UT UT8 8 @@ 88 @@  ??3@@ @ ???3?@@   3 033@@  3 0;3@@   0 8;0@  UUUUPUUU0 ?0@@   0 ?0@@  0 700@@   3 730@@ @ 3 330 @@  ?? ?3? @@ 88 >3 @@ 8 8 @@ 8@8 @@ 88 @@ 88?? @@ 88000 @@ 8@8?~87 a@@  7 f7 `@@@  3 f3 @@@ @ 3 f3 @@@  3 ~ 3@@UUT UUUPUUUU3 | 3@@@  3 l ??@@@ @ 3 f >@@@  7 f@@@  > c@@@ ?< c@@@D 8@8@@@ $ 88 <@@@@ 88 ?>@@@ 88 370@@@ 88 330@@@ 8803Ⴠ@@ 8@8 03@@@ 8 8 030@@@ 88<< 030@@@  ?>?> 330@@@ @ 737 370@@@   333 ?>@@@  303 <@@@   303@@@ UUWUUUUPUUU303@@@   303@@@  333@@@   737 3@@@ @ >?> 3?@@@  ?<< 330@@@ @88 ;30@@@  8 8 ;0@@@ @8@8 ?0@@@ 88?00@@@ 88700@@@ 88730@@@ 8c833p@@@ 8w  8 3?@@@  8?> 8 3@@@  k3 333 ?@@@  c3 303  @@@  c3 303 3 @@@  c0 @@@    3@@@ ? 3?@@ @   330@@@   330@@ @c ??  301@@ @ w303  30p@@%@0 >7? 30ð@@%@*8k0 66; 8< 300@@%@@@8c0 ??38 30@@%@ 8c3 338 30@@@8c?8 ?@@@88 @@@ 88@@@ 88@@@UP88@@@88 a@@@?  ||@@@   ~~@@ @   ff@@@   ff@@ @   ff@@ ? ~~@@@    ||@@@    ll@@@    ff@@@    ff@@@? cc@@@ 88 cc@@@88 @@@ 88 @@@88 @@@@88 > |@@@8 ~~<8 ?~@@@UT8 $ f8 3?f0@@@8 $n|8 33f0@@@ $ vf? 33fa@@@  $ff  33~`@@@  $ffff  ??|@@@@ $<<?l@@8@$ 8p 03f焀 03f@@8@$ 8p 03c@@@@$   03c@@@$  @@@$  @@@$? @@@8$8 @@ @88  3@@ @88  3?@@ @88  33`@@ @ 88  33`@@  88 30 88  30@@ 88  30`@@@88  30`@@@?  30@@@    ?@@@0xx   @@@8p  @@@xx0 ? @@@0 @@@x00 @@@0`x  ?|`@@@x|x0  ?~`@?  0f@@88 >fᑀ88  >~@@ 88  0|`@@ 88  0l`@@ 88  0f@@ 88  0f@@ 8 `8  ?c`@@ 98  ?c`@@ : 8 @: 8 @@: @8 @@9@8 @@8@8  >|@@?  ?~?@@ 3f3@@  3f3@@  3~3@@  ?|30@  >l30@'  0f30@'  0f50@'  0c>@'  0c@' @' 4[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt         ?  ? 3     c `c`? g`?f`f`gab@`f` ? p8  p8 @ @3 @? @ @ 6? @ @? @0p@>?p@@ @@ @@3 @@?@@@@@@@@@@8@@0>@@?@@3@@3@@3@@? @P@@ @@P@@@@@@@?@@?@@@@@ 8@ 8@ @  @@@@?@3@ @@33?D (  ( D?33@??        ? 3  3 7  ;  3 ?? ?         ??[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tty  88    ~ ~ ~ < fA A<A 0~A ~fA  A A A~ A 0A 0A ~A ~f< ~ ~  < 8l?~ 8   f~<~`A|A A@ A@f A@< A@ <A@ lA@ lA@< ~A@` A@| @f@f@<@ ~@ `@~ `@ |@ ~00f~<<fAfA<<A@fpA@f`A@<`A@|A@~?A@fA@fA@<fA@f~A@f<A@>@@ @8@~@@@< @8f @n?@v@f0@f0@~<0@@@@88<@~@f@<@~~<@f@f@<~@8f<@@ @@0@~~<@~@f@~@~>?@8 @ @  @ @f< @~<8 @ ǀ@ @ LJ@  @ < ǃ@8~ Ā@<8f l8f ~f  n ~ vf~~ ~~< 8` |  f ~<88~~[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt                @   0     ` @ `@ `  c     c @8@@8@f     @   "     ?0 0| 0 ? ?|  |   <@?|11??B 0 0 p p8 08 0 a a`?`??`a0? `a0? D? 0x 0 1 3 ?  `     @  0    0  @@ @ @ 0@ 0@ @@  0     0  @      `                    [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt?0000ppf`0000``>700`0300a0300c0<0x36`pc03`0a3Ä 0a3 0a36 0a< x  ><x`36f33f>3|f63`?  36` ff 3< pc`  > x 33  30 c > xa` 6 a`33 `3 x`   ` 33  ` 00 g0` 0fa0c `fa33``ffa`c 3xa;3`?0Ç?0`70``33`a`3xc` 30`00cg7 ffa3 ffa33fax@    <36`8`03`xfc`03f`03` @fc`36` f`c< `        3 g ;3` @f ?0` 0` ?0 `70`  f`33 ff3 xg 3 x`33` `30  c30cf30` 0f3` `   >> 0 g33 p`33 0`>> 0 a66 0 a33 0 a33  a > > 33` 333` >3> 0?6 033 033  3 33 30 30 30` 3`    ?> 03 03 >> 0603?3>>333333>>3`06;`036`03[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt*?   r/ȼ "" "< "  q xȠx  ?  !< P P P<P PP !<  !@" @ ` *@ ! *|  *>@ &`@  !" <   " "  P   """ P   " "  P ! <  >!@8 " " ( " D "" >( "D " " ( " D >#>>| ?     &"`&`&b&`&`  *****  2# 2 2"2 2         @@O "`&`& `&  **@*@G # 2 2B 2@@ @@O      <@O "`&` b `&  **@G # 2 " 2@@ >@O      <@@O "`&` `&  *@*@G # 2 B 2@@ <@@O      @@G "`&&b `& $*@*@*H ># 2@2"@ 2H @@G      <@@@@O "`&&  <*@*@@@O # 2@2B@@H <@@@@H      @@@O "`& b  <*@@@O "# 2@"@@H @@@H    >@@@@O "`&  *@@@@O # 2@B@@H @@@@H    @G ""` `&b `& *@*H "#  2"@ 2H @G    @@@O ""` `&  *@@@O #  2B@@H @@@H    @@O ""` ` b  >@@O "#  "@@H "@@H    <@@@O ""` `  <@@@O "#  B@@H <@@@H    @@G "` &b `& @*@*H # @2"@ 2H @@G    <@@@@O ""` &  "@*@@@O "# @2B@@H <@@@@H    >@@@O "` b  <@@@O # @"@@H >@@@H    >@@@@O "`  <@@@@O # @B@@H @@@@H   !@G#& &`&b `&`&ɐ!*@****J!2 @2 2" 2 2L!@G   !@@@O# &`& `& !@**@*@G! @2 2B 2@@!@@@O   !<@@O# &` b `& !@**@G! @2 " 2@@!>@@O   !<@@@O# &` `& !@*@*@G! @2 B 2@@!<@@@O   ! @@@G# &&b `&!$@*@*@*H!> @2@2"@ 2H!@@@G   !<@@@@@O# && !<@*@*@@@O! @2@2B@@H!<@@@@@H   !@@@@O# & b !<@*@@@O!" @2@"@@H!@@@@H   !>@@@@@O# & !@*@@@@O! @2@B@@H!@@@@@H   !@@G#" `&b `&!@*@*H!" @ 2"@ 2H!@@G   !@@@@O#" `& !@*@@@O! @ 2B@@H!@@@@H   !@@@O#" ` b !>@@@O!" @ "@@H!"@@@H   !<@@@O#""` ` !<@@@O!"#  B@@H!<@@@H   !@@G# "` &b `&! @*@*H! # @2"@ 2H!@@G   !<@@@@O#""` & !"@*@@@O!"# @2B@@H!<@@@@H   !>@@@O# "` b !<@@@O! # @"@@H!>@@@H   !>@@@@O# "` !<@@@@O! # @B@@H! @@@@H  ?[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ttv    Ⱦ/Ⱦ ("( ("Ȉ (" Lj    ?   x      x "  # `"  b">      @$  *** (x! ,,* ( !"((* (! >>   x   "  #(*" (p @(," (  ((" (!>>> #  ?   ! "b&`&b&`& "**** #"2 2"2 2 !      @@! &`& `&e @**@*" B2 2B 2/ @@!    #@! "&` b&&`!**@*""2 "2@2(#@!ϐ    #@@! "&` &h!*@@*" "2 B@2(#@@!     @!!B&&b&` c"@*@**"#2@2"2 ! @@!    #@@!"&& ` h#*@*@" "2@2B  #@@!    !@@!"& b& `#*@*@"""2@"2@ !@@!    #@@@!ϐ "& ` @*@@@" 2@B@" @@@!    !!"" `&b&` c!**""" 2"2 !!!    !@!"" `& ` h!*@" " 2B  !@!    !@!"" ` b& `#*@""" "2@ " @!    #@@!ϐ"" ` `#@@""" B@"#@@!    !@!" &b&` c"@**""@2"2 !!@!    #@@!"" & ` h" @*@"""@2B  #@@!    #@@!" b& `#@*@""@"2@ #@@!    #@@@!ϐ" `#@@@""@B@""@@@!   ?[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt8?8 ?     ?$@>@@@>? @<@@"@@@ ?                  ? @@@@@@@@@@@@@@@@A@ "@@@D@(@@@@@@"@(A@D@@@@ @@@@@@@@@ @@>8?8 |<<~<x `fff fl`f`f8<>|<><>~<fff<~<~`x~`ff0f0lf>ff```l``f<~<~x<>f<|<|<f70f331f33 1~3@|3l 3 `af3 0f7 0c3> c3< |? ~?? f 0 0af 8 0a~ `| @`pl  ``8f 0`f 0`c ?ac > a@  @  <~>~~~f`0f` 0`p@À`8`` pf 00~~ <| x> |~ n` s`f` 3`fp 3`f8 1f0f0vf06`np6`|~0x|0xfx 3~f| 3`fn 3p`vf 0nvf s0n~fs0f~f 30fnf 3s0ffn 33p~f| 3  7 ` 33 a 3 ` 3` 3 `a 3` 7` 3>a 3<a  @  >?3܀3̀3̀? x̀>x̀6 0̀3 x̀3 x܀1 1 > |? 3 03 0? 0p>086030 1010????3 0a0 8a0 `0 `p0  `83  `? ? a > a<| >?~ 70f 030f 038f 03~ 3|s3l;`3f07f0>?c<>c<<>?>737333303303303303333737>?><<?~7 fc03 fc03 ~c3 |c3 l c`3 f c07 f c0> c c< c c3< ?3> 037 0;3 ٘7;3 ٘7?33?3 373 337 ?3> 3< [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ttI a A ! !٘ ٛ    ! ! A a  a A ` a a ` ` `a  `  ` @a aa  a C #0 #1 1   `a #0 #0 C a  a C #0a 0a ` `p ``8 #0` Ca aa  a A !a a ` `p `8 !` !` Aa aa  a A !0 !0 0  s ;` !0 !0 A a  a A ! !٘ ٘    ! ! A a  a A ! !   ! ! A a  a A !c0 !c0 c0 c c  c`  !c0  !c0 Ac ǀac aC #0`0`````#0`Ca [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt          @    @   @0    0 @ @     c0 0    !@  A@  B      B   A@  A@  @ @c0 @ @  x}   @ pp  8D@   @@   |@  @  ?  @  p@  @  @  @  pp@  @  @@ xy  @ D@ @@ 8xD@ @ P@ @ xM @  p@ @   @  @ px@ @ p@  @  @  y @ (DD @ HxC @  |P@@ @  LG @  @@  @  @  @  @  @  @  @  x= @ @@D @ x@C @  @@@ @  xfx `vl `~fn~ffnfffl>fx|f< x``| D G Df G <ff Dfff |f<> `` `` `x` 8|  Dx  Glv  D@f~|@f~``@fn``@lf`H`@x<<`< g 38ff`f` 3nnfB` >vvlB a 6ffxf a 3ffl$ a 3~< "\ | " \``> ``   > ``" @`` "@@ >@ @ @`g@`fa>@fa"@@fa?fa!"@@`fa!>@`!@ !>@ !"@@`!@@`!" @@`!> @`! @`! @`! @`!>@ !"@@ ! !"@@ !> @`! @f! @f!@f!> @@! " @@@ff!  @@c`! "@@@ !>@@ !@@ ! @@!>@@f`!"$@@A8`` !$` "$@@A8a >@@c @@ @@@  @@  @@   @@  @@c  @@a  @@a  @@a  @@a  @@ @@  @  @  @ @  [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt    g8``8  a  a  a  a     @ @ c@ ff`@ f@ f@ f@ f`@  @    g f> `??`%f`%ff=g>c` fff` ff`>c>f`affa>>> g< fa8`fa?`fa$8`fa.fa*B *B :  ````````    BB`gB`fafafafa`fa>` ? %B %B =T8```````"`BfBfBfffc`f`8``` 8ac > 0 "3330 3? 773 > ;;6 6 33<cl3? 336a3?3a@a<603?037333?6?30< [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt @ C 330Ca ?ss2C` óbX`0 330C`` ?33a C` 30Ca@AAAA@@`@@AٰA@A@A@@@@AAAAAA`A@A`A@A`@@@@@A@@A`@A``?@A`00@@@A`00@@@A`00@@@@>@@@@"@@@@#@@@"@@A>@@Aa00@@@a00 @@`a00 @@@a4> @@Aa" @@A#@@@" @@@ > @@@0 0 @@@00 @@A00 @@A`> @@@`D" @@`` #@@` " @A`> @A`00 @@ 00 @@ 00 @@ > @@ " @A # @Aa " Aa> ?a00 Aa 00 Aa 00 A > @ " @ p# @ 0" @> @`00 @ 00 A 00 ? `> A <" A #A"@>@00@00@>@a "p@a#a0 "p@a` 8> @a 0D0 @ 00 @ ? @ @ @` @a @a` a` @a` @a` @@ @ @@`a `gf`aff`f`a`c၆ff`faaffafcfac``   `ÃÇfaa`faa`၇ffa၇fffaafc[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ttn?   g    fa   fa  fa   fa    fa  ?  @`cb @`fffb  `ffb  c @`f`a  @`ffa  `     `g fa   ~ffa   `ffa `ffa   > `fa    ` A  > cg ffa     fa     fa fa     ffa     c ?  `c` `a`     `      0`     x`a`     H`c` H   `` `   a    `a 8 `a    ``    ``  A ` f  Af  f   ff  c` ?  ` `        `  `     ?[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ttm?  3 ??? ;3003 ?  >03 ?3 6>  73 ?33 33  3333 3 ?? ?  >33   33333 33037   0>3;   033 3   333 3   > ??  !!<3?  !633 3333!333 77 77 !333 ;; ;;  333 33 33  633 33 33  < ????!!!!33?     333 3333 33 7 7 7 7  33 ; ; ; ; $33 3 3 3 3 '333 3 3 3 3 '3 ????$ ?  !!!33  !3 ;33! ?7 7  ?; ;   73 3 !3 33 3 !33??##! <3 6 ;33!3 ?77!3 ?;; 3 733 6 333!<3! #' 3 $363$30<7 '308; #?0<3  3363  33?? ?    ? 33 330 07 77 > 0333; 6;;  033?3 ?33  33303 33 3  ? ?[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ttM?5UUU[UUUUUUU[UUUU*7}W}W}}W}W},jƬjƬjƬjƬjƬjƀ85X;X55X;X5(******85X;X55X;X5,jƬjƬjƬjƬjƬjƀ7}W}W}}W}W}*??*7}W}W}}W}W},jƬjƬjƬjƬjƬjƀ85X;X55X;X5(******85X;X55X;X5,jƬjƬjƬjƬjƬjƀ7}W}W}}W}W}*??*7}W}W}}W}W},jƬjƬjƬjƬjƬjƀ85X;X55X;X5(******85X;X55X;X5,jƬjƬjƬjƬjƬjƀ7}W}W}}W}W}*??*7}W}W}}W}W},jƬjƬjƬjƬjƬjƀ85X;X55X;X5(******85X;X55X;X5,jƬjƬjƬjƬjƬjƀ7}W}W}}W}W}*??*7}W}W}}W}W},jƬjƬjƬjƬjƬjƀ85X;X55X;X5(******85X;X55X;X5,jƬjƬjƬjƬjƬjƀ7}W}W}}W}W}*??*7}W}W}}W}W},jƬjƬjƬjƬjƬjƀ85X;X55X;X5(******85X;X55X;X5,jƬjƬjƬjƬjƬjƀ7}W}W}}W}W}*5UUU[UUUUUUU[UUUU?[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt-'n|~??'>0w?0q3ٛ3ٛ7000[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt9o(@x@ p@p8p0 (@L@@@@G@ @ ` @ 0 `0(@ `P@@@@@@a@ ` @@(@ p`@@@C@L@@@ p@a`  p@(@!@X@@P@ @C@`@  @@@@(@@A!L@@@@@" `A@D@ @A@  !(@@@0@P@@@A@" 0  @f  @@ `(@@@ @@@@P@$  @H @@ @ (@@@@$@@@@@ @ @ @   @   (@:@@@@@@@@T @  @X  @ @ ` @@(Ap@@D@@@@@A C G @(F@@A@@@@@L  @X  @P  (`@@ @@@@!@@  @@ @@ (@@@@@@@@@  @ @@@ @@ !(@@@ @$P@@@A@   @  @ @(@@@@A@0@@@  @ @@@   `(@@@@A@A@@D@ @@ @@@(@@@` @H@@@@@@  (@@@D@@D@P@@ @@ 0@ (@@@@@@@H@@@@ 0 @(@@@@ @@@@@ @0@`(@@@@H @@ @@@@@  (@@@@@P@@ @@ 0` 0@ @0@@@(@@@@@F@@@@ @08p0`@ | (@@@@@@@@@ p0<p@<p>p( P  "  (@p <@p @p (@    @  (@<pp<p@<pp([[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt8m@ x @ 00 @   '@@@@``@0@@@    @ 00  @   '@@@@a @@@@  00 @ `  @ 0 '@@@D@`@@@@ `  @ @ @    '@@@@@D@@@  0 @  @0 @  @@  '@@B@@@@@@@  @  `@ 0'@@@@ @@@@@ @ @0 @ '@@@@DA@ @@@@@0 @@@ '@@@@@@@$P@` PP 'H@ @@D@@A@D@D  B@!@'A@@@R@@0@A@@@ @@@ '@P@ @B@H@@@  @ @@@'@@@Q@@@D@@ @ @b   @D '@@@@@@ @@ @@   @@@@  '@$@@@@@@@@  @@  @`  'PH@$@@@ @@H( D H B@ 'B@@@@@@A@@ @@@@  @@ @'@0@@@@@ P`@@0@@@'@@@!@@@@B@@ ` @@@'@D1@@@@@@@0`@0@  @  @ @'@@@@@@pF@`@@ @@'@1@@@@A@p@@@`@ 0 @,'@0H@x@@@@@ @@A```!F0A'X@Y@@@@ A@ ``f0@À@002m'@\@@@@@d}@cÃ@<><@''<p <p'0@ & "`0@ &'@<x*p$@<x*' " 2> "  " 2'>@p >@p'[[[[[[[tt9n(@p8 0@ Hp@@ @@(@@@ @@@@@@@ 8 @p p@ pp(@@< @@@@@@0 @@x @<@@x@(@|D@@ '@O@ @?~ @? (@A@@@B@ @ A@  A@@  (@|@@0@G@@^|!@ p @0 @ @ 9(@LA@@@@@0@ @`0@@@A B`` (D@@@D@0P@ @X ` @ @ @0(@@@D@@ D@@@P @  `@0 (@@L@ AD@@ @@@@ @@  @ @(@@@HP@@@@0  @@@@@0@@@ (@@ @A@ @@0 @@@ 0@@ @@(@@@ @@P@A@@ `0P@ (HL @@@@DB@D @ F0A@0(@@@ @@PA`@@@ @0` @@ @ (@0@@p@@@8@@  @<@ >@ > (@@PA@@@@@@  @ @ @ (@@D@@@ @@@  @@ @  (@@@P@@@@@@   @   @  @ (@@@@@@ @@@   @ ` @  (@@@@@@@@@%(@@@@@@@@@%(@@@@@@@@@%(@@@@@@@@@%(@@@@@@@@@%(( x888 x88(`@AL@(D`@AL( 8xTH 8@ 8xT( @D@d|@@D@ @D@d( |88@8 |88([[tt$!$< !$0$0!0!p!@! 00  0   ! 8 !1<!9<f!𢀄40440f!0 D6 D D0f!0 D5 D D0f!0D5DE?0!p(D7(D(E30!(D0(D(D3>0?!048443>00!03000!03?0?1ϛ!!>! >! ?! d3! 3!? 3Ā!3 3 Ā!3 ; Ā!? ?Ā!  d60 0ϛ!>0?3Ā!?0?;Ā30 03>  !03??Ā!`?3 6 Ā!`>3  3; Ā!63  31Ā! 33  3 ! 33  3 !1? ??Ā!1> ?Āϛ  ! Ā Ā!?  !`? q? !`> q !0  9l Ā!?0    Ā!`?0    Ā`0    Ā00    Ā0?  Ā!   ϛ  `pĀ!`xĀ! c|Ā!?s~Ā!3 3Ā!3 3~Ā!`3D3|Ā!`3D3xĀ!3d3pĀ!??!``  ϛ!! ! ?>!? 6 8!3 6kpĀ! 3 6k8!0 ? 6k!00 ?k !00 k0?!>  ϛ !c! c! 38!  !? !?  7   !7  !03  8!03  3!0? 1?! q?  ϛ!1 6 Ā!1 6?Ā!1 6Ā!01 6mĀ!01?m 4Ā!`53m Ā!`53 m Ā!?3  Ā! ?3 ? 4Ā! ;?  Ā! 1  Ā!  D  ?Ā?  > dϛ!0Ā!0?Ā0 1 !0> d1f !0? d1 Ā!3d5  Ā!3d5  Ā!03d1  Ā!03d 1 03M1  !03 }? !3 }f ϛ <  <  !0  !0  !   !   !0   !0   !0 6 !p c<!A<ϛ!?!? !1  !0?3  !0?7?Ā!0 >?Ā! < !> !03!03!010><ϛ!3`? !3`?Ā!6`sd!06f s4!0<n33!<| 33!6x 334!06|D33d!03lD 3Ā!03fd?!01gd !1cd   ?>ϛ@ !  ?Ā!0   ?Ā!0  ?!8 ?!   ! ??Ā0 ??Ā0 ??   00 ϛ!1 0!1 >!; ?!p;61336Ā!0?803&D!05_0?!05k0?><!01k 0df!01k 3?f!01c 3~!p?1c ?~!?1c ffϛ !!8?7 !D1! D!?D>!13?!13?3!3143&D!314>6Ā!83D10d3!3?03!3a? a>ϛ  ?> ?  k! 3kd!? 3kd!3 ?d!3 30d! 3  3! 3 >!3 00!??3?!?3[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt#@@@@@#H@@`@A@0A@pA@@@`A@AAA@DA@`AA@0A@A @AAAAA@#BA@A@0@pAA@AAAAAAAA@AA@A@0@pAA@AAA@#@A@`@0@`@AA@0@AAAAAAA@#@@A@`@0@`@AA@0@@AAAAAA@#H A@`@`@0A@A@`A@AAAAAA@#HA@`@`@0A@A@`A@AAAAAA@HA@`@AA@A@A@AAA@HA@`@AAAA@A@8AAAA@HA@0AA@A@AAAAAA@#O@AA@@0@@@@@AA@AAA@@@ @@0@P@@@@@@ @@@`@0@@@@@@@@@@@A@`@A@@`A@@@@@@A@AAA@`@AC@@@@@@@@A@ACA@`AAC@P@@@@@@A@ACA@`AACA@@@@AA@#AH@@AChA@`AACAA@@@CA@#ALO>@ACXA@`AAC@0@@p@@#AJH@ACXA@AACAP@@B A@AIH@ACpA@AACC@B A@#AHH@ACA@AACC0A@@Cp@@A@O>@ACA@AACC0@CA@A@AAA@A@CCP@@AA@@@@@A@A@0CA@@@ A@@@A@@ @Q@@@@ @@0DD@@@@#@`@@@0@`@`@@@A@@`Q@@@@`@@#@`@@@0@`@A@@A@@DD@@@@@`@#@@@@0@AA@@@C@Q@@@A@`@#@@@@0@AA@AACADD@@@A@`@#@`@@@0@`AA@AA@AQ@@A@#@`GG@0@`AA@AAC@DDAA@#@`H"DF@0@`AA@AAG@Q@@`@#@`G>DB@0@`AAAAAF@DD@@@A@`@ @`@DB@@`AF@Q@@@A@`@#@`O"G@@`AAAAAG@DD@@@A@@#A@@@0AAAA@ACAQ@@@AA@#A@@@0AA@@@@@ADD@@@AA@@@@ Q@@@A@@ @UU@@ @ @@|@0j@#@@@@@ACA@@0@@`UU@@AA@#A@@@AACA@@`A@j@@A@#A@@@AAC0AA@A@UU@@@@@#A@@@AAC0AA@AAj@@@p@@0@@@@0AC0AAAACUU@8@#@0GG@@0ACAAAAC0j@@@@p@#@`HDA@@`ACAAAAC0UU@@@@@@#@`GDN@@`AC`AAAAC0j@@@A@#@@DP@@AC0AAAAC0UU@@@@A@#@O"G@@AC0AAAAC0j@@@@@A@AACAAAACUU@@@@A@A@AACA@@AAj@@AA@ @ UU@@@@@@ @ @@@@@@@@ @@`@`@0@@@@@@@@#A@@@A@@@@@@@`@@@@@@@@A@@@A@@AA@@@@@@@@8@@0@@A@0AA@@@ @@@@@@@p@#@0@@A@0AA@A@@C0@@@@@@@@#@`@@@@`AAAA@AC0@@@@@AA@#@`@@@@`A@AA@AC0@@@@@#@0OGA@0A@pA@@AC0@@@@@B@p@#@0HDAA@0A@8A@8AAC0@@@@@@@8@#AODN@AA@A@AAC0@@@@@@@@#AHDA@AA@AAAAC0@@@@@@@@AOG@AAAAC@@@@@@A@@@@@A@@@@A@@@@@@A@ @@@@@@@@@0@ @@@@@@@@@@0@ A@@@@@@@p@#@0@@@|@0AA@@`@AC@@@@@C@@#@0@@@@0AA@@`@AB`@@@@@C@@@p@@@@pA@`@A@ @@@@@A@@#@p@@@@pA@`@A@x@A@@@@@@@@#@@@@@A@`A@`@|AC@@@@`@@#@@@@|@A@`A@`@ AC0@@0@@#AGG@ AA@`A@`@|AC0@@@@0@@#ADDJ@ AA@`A@`@AC0@@@@@`@@#AGDR@AA@`A@`@AC0@@@@@@@#ADD_@AA@`A@x@AC0@@@@A@@#@0GG@0@0A@`A@8@AC0@@@@C@@#@0@@@0@0A@`@@@|@C0@@@@C@@ @@@@@@ @@A@@@@@@@@@ @@`@A@@@@@@@@#A@@@AAA@@@0@`C@@@@@@@@A@@@AAA@ B`@@@@@@@@#A@@@AAA@A@x@@@@@@@@@@#A@@@AAA@A@|AC0@@@@@@<@@#A@@@0AAAAA@ AC0@@@p@@ A@@@0AAA@|AC@@@@@@ @OH@`@AA@AC@@@@@@H"L@l@AAAA@AC@@AF@@O"J@@AAAA@ACp@@AF@AH"I@AAAAA@AC0@@AD@AOH@A@@|@C0@@@C@@@@@@A@@@C0@@@p@@ @@@@@@@@p@@@@@@@@@ @8@`@@@@@@@p@@@@pAA@8@@l@@@@@@@@@@@@AA@x@@8A@@@@@@#A@@@pAAA@`A@@A@@@@@@`@#A@@@pAAA@`A@xAA@@@@A@`@#A@@@AAAAA@|A@0@@A@@#A@@@AAAAA@ AA@@@A@#AGGAAAA@`A@|AC@@AA@#AHH2AAAA@`@@AC0@@@@A@@#AOG*AAA@@`@@AC0@@@@A@`@#AH@AAA@@`@`@AC@@@@A@`@ AHO"AAA@`@AA@@@@At@@#@@@@@A@`@`@@|@@@@@@C@@ @ C@@@@B@@ @ @@@@@ @A@@@@@@@A@@@0A@C@@@@@@@@@A@@@0AAC@@`@@@@@@@#@@@@0@AC@C@<@@@@@@@@#@@@@0@AC@C@|AA@@@@@@#@0@@@0@0ACACX@`AA@@@AA@#@0@@@0@0ACXACX@`AA@A@@`GG@@`ACXAC@`AA@B@@@@`DHD@@`ACAC@`AA@@@@@GG@@ACAC@`AA@@A@@DHD@@ACAC@~AA@@A@@GG@@AC@B@>A@@@@@@@@@B@@@ @@@@@@@ A@@8@A@@@@ @ @@@@@@ @@`A@@@@@@@@#@@@@ @AAA@@A@@@@@@ @p@#A@@@AAAA@A@@@@@@@ @@A@@@8AAA@A@@@@@@@@#A@@@0AA@AA@A@@@@@A@@@@@@0@A@A@AA@@@@p@#@@@@0@A@`A@AA@@@A@@AGC@0AA@`A@`AA@@@@@@#ADPD@0AA@A@AAA@@@A@@#AGD@0AA@A@AAA@@@@@A@@ADAD@8AA@C0@@@@@@@@ AGC@AAA@C0@@@@@@ @@ @@@@ @A@@AC@@@@@@ @@ @AA@@@@@@@@ @ @@@@@@@#@@@@@AA@`@AC0@@@@@@x@p@#A@@@`AAA@`@AC0@@@@@@@@A@@@pA@`A@A@ @@@@@@@#A@@@0A@`A@A@A@@@@@@@@#A@@@0A@`@@AAC@@@@@p@#@@@@0@@`@@`AAC0@@@@@@ @HG@0@@`AAC0@@ @@@@ @HD@0@@`AAC0C@@@@@ @OG@0@@`AAC0C@@@@@@ @8HD@p@8@`@AC0C@@@@@@#@HG@`@A@`@@AC0C@@@@x@@@@@@@A@`@A@CC@@@@@ A@A@@@@@ @@@@@ @ A@@@@@@#@`@@@@@A@0@@A@@@@@p@@#@@@@@@A@0@@`A@@@@@@@A@@@x@0@@0@A@ @@@A@@#A@@@x@0@@0@0A@A@@@@A@@#A@@A@0@@`@0@0AA@@A@@#A@@A@0@@`@0@`AA@@@@@@#AD>G@x@@@@0@`AA@@@@@@#AD H"@x@@@@0@AAC@@@@@P@@#ADf~~~ σ @~~f~~~ Ǐ @f`f`  f@f`f`  f@fp~|    g@n8~|    g@vf`  @ff` Ϗ @ff`  @~~f~`   @<|f~`  Ǐ  @  @`  @`  8 @?`  8@8??|f|   fa@830~f~     <fa@30fff     ~g@??>fff     fg@33>fff    f@ 330fff    f@ 330f~f     f@330f>~    @ f@~330f|       30g @00>    30 @000    30 @0000    30a @0330    3a @~330    @~???   0 @?   @   @  @~??  @~???  @ 000    f@ 000    f@>8>   g@>>   g@ 00   @ 00   @f00   @~0??  @<0>?   @  @  @  @  3  @ 3?  @?30   @3;0   f@<`3;8   f@< 3?   g@l??   g@l?7   a@~37   a@~33   a@ 33?  a@ 33>   @  @  @  @~    @~Ǐ   gh@`    gh@`    fh@|   f@~   0@ À    0@ ρ    f0@     fp0@f`    f00@~  fh0@<  gh0 @  gh@  @  @   @<ߌ   @p     @`      @`      @|      30@~       30@f       30@f     30@~    0@<Ǐ    0@  @  @~ǀ   @~   @     @     3@      3@      30@  À    0@      0@0     30@0     030@0  ?030@0  @?03q0@  @   @<ǂ     @~Ǐ    0 @f      ` @f      @<    @<    @f à    x @f    x @f    0 @f     x @~    x @<Ϗǂ    @  @  @  @<    @~    @f    @f    @~   @>   @   @   @   @   @<   @8   @x  @  @  @  @<  @~   @ff   @ff   @fg??  @~g? ?  @~f  @ff     @ff0  @f0  @0  @  @   @|   ?? @f    700 @f   300 @~   3>7 @|   3>7 @fÀ   303 @f    303 @f    303 @f    703 @~   >?? @|π    @ @  ? @ @  3 @ @  3 @ @  3 @ @  ?f` 0@ @  >f` 0@ @  6f` `@ @  3f` `@ @  3g @ @  1 @ @  1`@ @ @ @ @ @  @ @   @ @   @ @   @ @   0@ @   0@ @   @ @   @ @   @ @   @ @   @ @   x@ @  @ @ @ @ @ @   @ @   8@ @   8@ @   x6@ @   x&@@ @   @ @   @ @   @ @   @ @   @ @   @ @ @ @ @ @ @ @  @ @  @ @  @ @  @ @  @ @  ` @ @  ` @ @  ` &@@ @  `6@ @  a`@ @  `x@ @  ` @ @ @ @ @ @ 8@ @  x@ @  @ @  @ @  @ @  @ @  f`@ @  f`@ @  f`@ @  f`@ @  `x@ @  `@ @ @ @ @@  1@@  1 @@  18 @@  18 f@@  1 f@@  5<f`0@@  5<`0@@  ?0``@@  ?0<f``@@  ;`<f``@@  1~`f``@@  ~`f`@ @ @@ x>1@@  `?1@@  `3;@@  3;@@  x3?@@  x?5@@  >5@@  61@@  31@@  `31@@  1@@  x1@@  @@ @ @ @ @ x1@ @  1@  @  ;@ @  ;@ @  ?@ @  |5@ @   5@ @   1@ @   1@ @  1@ @  x1@  @  p1@ @  @ @ @ @  0@ @   x@ @   @ @   @ @   @? @   @? @   @ @   @ @   @ @   @ @  @ @ @ @  @ @ 3 x~> @ @ 3 0|~~ @ @ 6 n`` @ @ 6   f`` @ @ <  f|n? @ @ <  f|n6` @ @ 6   f`f` @ @ 6  f`f` @ @ 3  0f`f` @ @ 3  n`f` @ @ 1  |~~0 @ @ 1  x~<0@ @ @ @ @ @  x@ @   @ @    @ @    @ @    @ @    @ @   Ç @ @   f @ @   f @ @   ff @ @   f< @ @   < x@ @   @  @ @ @ @ @ @ @ 1 0@ C 1 0@ C ;   0@ O ; g 0@ O ? g 00@ C 5 ff` @ C 5 ff` @ @ 1 ff` 0@ @ 1 ff` @ @~ 1 g`  @ @~ 1 c@ @ 1 `g@ @ @ @ @ @ @ @   g 8@ @   g <@ @   >@ @  f ?@ @  Ͱg ?@ @   fg ?@ @   ff >@ @  x ff <@ @  x ff 8@ @  0 f@ @  0 g@ @  0 g@ @ 0@ @ @ @ @@   @0@   @0@   @ @   @ @   ?@ @   @ @   @0  @   @0  @   @ @  @ @  @ @  @ @ -[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ttm$$  $$ 燀燀 $$  $$  <$<~$<~  f8$f $f`  `$`$`|  `$` $`  `$?`$?`  f?ff?ff <~?<<?<< ?? ???????????????0?f~?p?f??f0??~`??f?0?f ?0?f ??    ?? p?0Pp? ?! ?" ?$ ( 0  p  00  0  0   0  x x   ?  ?                    ( $ " ! pP0 p [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt\    cg afff` a灆f f `a  `faf` aa afa c À ` cg cff` 灆f ff c`[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[tt?       @c```@ `@`Aa@a@``@1``@1``C `@    <   @ `A`C0`@0@`01@1`A1`C `@ ` `<    ~x0@~0Gp@pA 0@ 0@` 0F`0C0@0x 8 xx@ 0@` 0@ a0AC`aC100@`1 00@`  `0@  `xxx@ CC 1C1@0a 0@0 0C0 `A  `@ LJx@ AC CCC0C0xA x@ 00xx00@ 00C 00@0 a00@` 000@ a000A a0`0A a 0`0A  00@ 0xx0 0g0@ gp0A Æfap0C01 Æfa00C01 fa00Afa00C01fa00C0a fa00A fa00@  fa gက g [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[07201010206800 1SHARP PC-E220SecondhandbuchBrainwave 2- # - F0110030 9[.......................................................................]101     Beispielprogramme DieaufgefhrtenProgrammehabenpraktischkeineFehlerberwachung(gegenFehl- eingaben),umdieProgssokurzwiemglichzuhalten.Siesindnichtunbedingt freivonRechtenDritter,wasaberderprivatenNutzungkeinenAbbruchtut. AnwendungenaufeigeneGefahr-playatyourownrisk. -Zahlensystemkonverter-380Bytes 100 CLS:CLEAR:DIM Z$(0)*32,S$(32)*1:PRINT"Zahlensystemkonverter" 110 INPUT "ZAHL: ";Z$(0) 120INPUT " VON: ";B:LOCATE13,2 130 INPUT "NACH: ";G 140 L=LENZ$(0):FOR I=1 TO L 160 A=ASC(MID$(Z$(0),I,1)) 170 A=A-48:IF A>9 LET A=A-7 180 D=D+A*B^(L-I):NEXT:E=D 190 PRINT "GIBT: ";:IFD>1E10PRINT"?"; 210 A=INT(E/G):C=E-G*A:E=A:Z=Z+1 230 IF C<=9 LET S$(Z)=STR$C 240 IF C>9 LET S$(Z)=CHR$(C+55) 250 IF A>0 GOTO 210 270 FOR I=ZTO 1 STEP-1:PRINT S$(I);:NEXT WirdvorderkonvertiertenZahleinFragezeichenausgegeben,bersteigtdas interneZwischenergebnisdieRechengenauigkeit.EsistvoneinemFehlerin denletztenStellenauszugehen(zukleinesErgebnis).   100CLS:CLEAR:PRINT "Bruchrechnen" ca.555Bytes 110INPUT "Z1: ";A 120INPUT "N1: ";B 130Z=A:N=B:GOSUB 270:A=Z:B=N 140LOCATE13,1:INPUT "Z2: ";C 150LOCATE13,2:INPUT "N2: ";D 160Z=C:N=D:GOSUB 270:C=Z:D=N 170PRINT "";CHR$ 245;" + - * / ";CHR$ 244;" ";:INPUT S$ 180IF S$="/" OR S$="*" GOTO 230 190IF S$="-" LET C=-C 200U=B:V=D:GOSUB 280 210N=B*D/V:Z=N/D*C:Z=Z+N/B*A 220GOTO 250 230IF S$="/" LET O=D:D=C:C=O 240Z=A*C:N=B*D:GOSUB 270 250CLS:PRINT " ";Z:PRINT "----------":PRINT " ";N 260GOSUB 270:GOTO 300 270U=Z:V=N:GOSUB 280:Z=Z/V:N=N/V:RETURN 280Q=U/V:R=U-V*INT Q:IF R<>0 LET U=V:V=R:GOTO 280 290RETURN 300INPUT "Kettenrauchen ?";S$ 310IF S$="J" OR S$="j" LET A=Z:B=N:GOTO 140 320GOTO 100 -ProgrammmitINKEY$beenden- Wert I leerhinter7kB/100Zeilen 100I=10000 10000=184228sec 110I=I-1:IFI<1END 20000=368460sec 120J$=INKEY$:IFJ$=""GOTO110 30000=552630sec 130... Daumenregel:1000=20sec    -Biorythmus-ca.940BytesDerRennerbeiallenVorfhrungen! 10 CLS:CLEAR:O=254:X=253:PRINT"Biorythmus" 20 PRINT "Geburtsdatum":INPUT " Jahr: ";A:IF A<100 LET A=A+1900 30 INPUT "Monat: ";B:INPUT " Tag: ";C:PRINT "Ausgabedatum" 40INPUT " Jahr: ";D:IFD<30LETD=D+2000 50 T=C:M=B:J=A:GOSUB 170:IF D<100 LET D=D+1900 60 INPUT "Monat: ";E:INPUT " Tag: ";F:Q=S:T=F:M=E:J=D:GOSUB 170 70 U=S:V=W+1:I=U-Q:RADIAN:GOSUB 200 80 L=K:N=G:P=H:Q=W:I=I+1:GOSUB 200 90 CLS:PRINT "Datum: ";MID$("MoDiMiDoFrSaSo",V*2,2);" ";F;E;STR$D 100 USING "####.##":PRINT "K:";L;"%";CHR$ O,"G:";N;"%";CHR$ O 110 PRINT "S:";P;"%";CHR$ O,CHR$ 149;":";Q;"%";CHR$ O:USING 120 IF K>L LOCATE 10,1:PRINT CHR$ X 130 IF G>N LOCATE 22,1:PRINT CHR$ X 140 IF H>P LOCATE 10,2:PRINT CHR$ X 150 IF W>Q LOCATE22,2:PRINT CHR$ X 160 LOCATE1,3:PRINT"Alter";STR$(I-1);"Tage=";STR$INT(I/365.25): DEGREE:LOCATE0,2:PRINT:END 170 IF M<3 LET J=J-1:M=M+12 180 S=INT(365.25*J)-INT(J/100)+INT(J/400)+31*(M-1)-INT(.4*M+2.3)+T 190 J=S+1721060:W=J-INT(J/7)*7:RETURN 200 K=(SIN(I*2/23*PI)+1)*50 210G=(SIN(I*2/33*PI)+1)*50 220 H=(SIN(I/14*PI)+1)*50:IF I>=0 GOTO260 230 K=100-((SIN(ABSI*2/23*PI)+1)*50) 240G=100-((SIN(ABSI*2/33*PI)+1)*50) 250 H=100-((SIN(ABSI/14*PI)+1)*50) 260W=(K+G+H)/3:RETURN Beispiel:geborenam29.2.1960|6.12.1968|12.5.1935 Ausgabedatum:Sa29.2.1992|Fr24.12.1993|So18.7.1993 Krperlich94.39%steigend|1.04%steigend|50.00%steigend Geistig95.48%steigend |0.00%steigend|50.00%steigend Seelisch71.69%fallend|99.94%fallend|50.00%steigend Durchschnitt87.10%fallend|33.66%steigend|50.00%steigend Alter11688Tage=32J.|9149Tage=25J.|21252Tage=58Jahre Vom6.6.1966...biszum10.7.1995...biszum25.7.2048 SolldieAusgabestattvon0-100%imBereichvon-100...+100%verlaufen,so muindenZeilen210-230derAusdruck*50in*100-100umgewandeltwerden.  AnzeigederMondphasestattdesAlters:(130Byteszustzlich) alteZeile160ersetzen,USINGinZeile110lschen.KleineGedenkminute. 160Z=I:T=29:M=4:J=1993:GOSUB170:Q=S:T=F:M=E:J=D:GOSUB170 161I=S-Q:GOSUB270:R=Y:I=I+1:GOSUB270 162LOCATE1,3:PRINT"Mond:";R;"%";CHR$O;""STR$Z;"d":USING 163IFY>RLOCATE13,3:PRINTCHR$X 164DEGREE:LOCATE0,2:PRINT:END 270Y=(SIN(I*.212768716)+1)*50 280IFI<0LETY=100-((SIN(ABSI*.212768716)+1)*50) 290RETURN UmlaufzeitendesMondes: 27d13h18m33.1sanomalistisch,ZeitzwischenzweiPerigumsdurchgngen 27d7h43m11.5ssiderisch,vonSternzuStern(normaleAngabe) 29d12h44m2.8ssynodisch,allePhasen Vollmond=100%,Neumond=0%,ErstesViertel=50%steigend, LetztesViertel=50%fallend(bezogenaufMittag,3.38%=1Tag).    -BiorythmusmitPartnervergelich,2200+270Bytes- 10 CLS :CLEAR :PRINT " *** BIORYTHMUS 2 ***":O=254:X=253 20 INPUT " 1 > Biorythmus einzeln 2 > Partnervergleich 3 > Ende ";Z 30 ON Z GOSUB 50,70:IF Z=3 CLS :PRINT "OK<":USING :END 40 Z=0:GOTO 10 50 GOSUB 390:T=C1:M=B1:J=A1:GOSUB 610:Z=4:GOSUB 390:Q=S:T=F:M=E:J=D:GOSUB 610 60 U=S:V=W+1:I=U-Q:GOSUB 580:Y=I:GOSUB 640:I=I+1:GOSUB 580:GOSUB 300:RETURN 70 CLS :PRINT " * PARTNERVERGLEICH *" 80 INPUT "Name 1: ";N1$:IF LEN N1$>10 LET N1$= LEFT$ (N1$,10) 90 INPUT "Name 2: ";N2$:IF LEN N2$>10 LET N2$= LEFT$ (N2$,10) 100 Z=2:GOSUB 390:T=C1:M=B1:J=A1:GOSUB 610:Q1=S 110 Z=3:GOSUB 390:T=C2:M=B2:J=A2:GOSUB 610:Q2=S 120 Z=4:GOSUB 390:T=F:M=E:J=D:GOSUB 610:U=S:V=W+1 130 PRINT "1> Werte ";N1$:PRINT "2> Werte ";N2$ 140 PRINT "3> Differenzwerte":INPUT "4> Neuberechnung >";R 150 IF R=1 LET I=U-Q1:Y=I:GOSUB 580:GOSUB 640:I=I+1:GOSUB 580:GOSUB 300 160 IF R=2 LET I=U-Q2:Y=I:GOSUB 580:GOSUB 640:I=I+1:GOSUB 580:GOSUB 300 170 IF R=3 GOSUB 250 180 IF R=4 GOTO 200 190 R=0:GOTO 130 200 CLS :PRINT "1> Neue Werte ";N1$:PRINT "2> Neue Werte ";N2$ 210 PRINT "3> Neues Zieldatum":INPUT "4> Alles neu ";R 220 ON R GOTO 100,110,120 230 IF R=4 RETURN 240 R=0:GOTO 200 250 I=U-Q1:GOSUB 580:GOSUB 640:I=U-Q2:GOSUB 580:Y= ABS (Q2-Q1) 260 D0= ABS (L-K):D1= ABS (N-G):D2= ABS (P-H):D3=(D0+D1+D2)/3 270 I=U-Q1+1:GOSUB 580:GOSUB 640:I=U-Q2+1:GOSUB 580 280 D4= ABS (L-K):D5= ABS (N-G):D6= ABS (P-H):L=100-D0:N=100-D1 290 P=100-D2:Q=D3:K=D4:G=D5:Q=(L+N+P)/3:W=(D4+D5+D6)/3:GOSUB 300:RETURN 300 CLS :PRINT "Datum: "; MID$ (" MoDiMiDoFrSaSo",V*2,2);", ";F;" ";E;" "; STR$ D 310 USING "####.##":PRINT "K:";L;"%"; CHR$ O,"G:";N;"%"; CHR$ O 320 PRINT "S:";P;"%"; CHR$ O, CHR$ 149;":";Q;"%"; CHR$ O:IF R<>3 PRINT "Alter: "; 330 USING :IF R=3 PRINT "Differenz: "; 340 PRINT STR$ Y;" Tage";:R=0:IF K>L LOCATE 10,1:PRINT CHR$ X 350 IF G>N LOCATE 22,1:PRINT CHR$ X 360 IF H>P LOCATE 10,2:PRINT CHR$ X 370 IF W>Q LOCATE 22,2:PRINT CHR$ X 380 LOCATE 21,3:INPUT " ";B$:RETURN 390 CLS :IF Z<4 PRINT "Geburtsdatum "; 400 IF Z=2 PRINT N1$; 410 IF Z=3 PRINT N2$; 420 IF Z=4 PRINT "Ausgabedatum"; 430 PRINT :A=0:INPUT " Jahr: ";A:A= INT ABS A:IF A<20 THEN A=A+2000 440 IF A<100 THEN A=A+1900 450 IF A<1583 OR A>2200 BEEP 1:PRINT "Jahr von 1583-2200";:GOTO 430 460 IF Z<3 LET A1=A 470 IF Z=3 THEN A2=A 480 IF Z=4 THEN D=A 490 A=0:INPUT "Monat: ";A:A= INT A:IF A<1 OR A>12 BEEP 1:GOTO 490 500 IF Z<3 THEN B1=A 510 IF Z=3 THEN B2=A 520 IF Z=4 THEN E=A 530 A=0:INPUT " Tag: ";A:A= INT A:IF A<1 OR A>31 BEEP 1:GOTO 530 540 IF Z<3 THEN C1=A 550 IF Z=3 THEN C2=A 560 IF Z=4 THEN F=A 570 RETURN    -FortsetzungBiorythmus- 580 RADIAN :K=( SIN ( ABS I*2/23* PI )+1)*50:H=( SIN ( ABS I/14* PI )+1)*50 590 G=( SIN ( ABS I*2/33* PI )+1)*50:IF I<0 LET K=100-K:G=100-G:H=100-H 600 W=(K+G+H)/3:DEGREE :RETURN 610 IF M<3 THEN J=J-1:M=M+12 620 S= INT (365.25*J)- INT (J/100)+ INT (J/400)+31*(M-1)- INT (.4*M+2.3)+T 630 J=S+1721060:W=J- INT (J/7)*7:RETURN 640 L=K:N=G:P=H:Q=W:RETURN Biorythmus NachderTheoriedesBiorythmusverluftdasLebenvonGeburtaninfesten, sichzyklischwiederholendenBahnen.DieZyklensindderkrperlichemiteiner Lngevon23Tagen,derseelischemit28TagenunddergeistigemiteineLnge von33Tagen.DieZyklenbeginnenamTagderGeburt(alseinembesonderskri- tischenTag)inderMitteundsteigendannauf.AnTagen,andenendieKurven hoheWerteerreichen,stehtdiemeisteEnergieundLeistungsfhigkeitzurVer- fgung.AnTagenmitTiefstwertenwirdRuhezurErholungderLeistungsreserven bentigt.WhrendderMittendurchgngeisthchsteVorsichtgeboten,diekr- perlicheLeistungsfhigkeitiststarkeingeschrnkt,unddieseelischeund 8003100001\SH_BIO_1.IMG geistigeVerfassungist uerstlabil. OberesBild:Verlaufder KurvenamTagderGeburt. DerKurvenverlaufwieder- holtsicherstnachca. 58Jahren. 8003100001\SH_BIO_2.IMG MittleresBild:Kurvenver- laufwhrendeineszuflligen Monates.Umden5.wirdRuhe zurRegenerationempfohlen, umden17.stehtgroeEner- giezurVerfgung,dieam Monatsendewiederaufgefllt werdenmu. 8003100001\SH_BIO_3.IMG UnteresBild:mglicher Kurvenverlaufbeieinem Partnerschaftsvergleich. VerlaufendieKurvenim oberenBereich,besteht grteHarmonie,inder MittemuschonBereit- schaftzurPartnerschaft gebensein.Imunteren Bereichistgrte Toleranzerforderlich.    10 CLS :CLEAR :RADIAN :'geosat c't 1990-9-222 20 K=180/ PI :L= PI /180:M=2* PI 30 PRINT "AZIMUT und ELEVATION f." 40 PRINT "geostat. Sat- Empfang" 50 INPUT "Breite Station: ";C:C=C*L 60 INPUT "Laenge Station: ";D:D=D*L 70 INPUT "Laenge Satellit ";E:E=E*L:G=D-E 80 IF G> PI LET G=G-M 90 IF G<- PI LET G=G+M 100 S= ACS ( COS C* COS G) 110 IF C<>0 GOTO 160 120 IF G>0 LET A= PI *1.5:GOSUB 260 130 IF G<0 LET A= PI /2:GOSUB 260 140 IF G=0 LET A=0:H= PI /2 150 GOTO 200 160 GOSUB 260:IF H<0 LET A=0:GOTO 200 170 A= ATN ( TAN G/ SIN C) 180 IF C>0 LET A=A+ PI :GOTO 200 190 IF G>0 LET A=A+M 200 CLS :USING "####.###" 210 PRINT "Ort:";C*K;" N";D*K;" E" 220 PRINT " Azimut:";A*K; CHR$ 193 230 PRINT "Elevation:";H*K; CHR$ 193 240 IF H<0 PRINT "Satellit nicht sichtbar!" 250 USING :LOCATE 0,0:PRINT :END 260 H= ATN (( COS S-.151269039)/ SQR (1- COS S* COS S)):RETURN DiesesProgrammberechnetdiePositionierungeinerParabolantennefreine Satellitenempfangsanlage,wenndieeigenegeographischePositionunddiegeo stationrePositiondesSatellitenbekanntsind.DiePositionensindalsDezi- malbrucheinzugeben,dabeisindOstundNordpositiv,SdundWestnegativ. AusgegebenwerdenAzimutundElevationfrdieAntenne.DabeibedeutenAzimut dieAusrichtung,wobeidieKomparosezugrundegelegtwird,d.h.900istOst, 1800Sdund2700West.ElevationbedeutetdieAusrichtungvonderWaagerechten aus,d.h.bei00stehtdieAntennewaagerecht,bei900zeigtsiesenkrechtnach oben. PositioneneinigerSatelliten: BeieinerPositionmitmehrals810zueinem Kopernikus :23.50E PolderErdeisteinEmpfangprakitschnicht Astra1A :19.20E mehrmglich.EineAntenneamquatorkann EutelsatIIF1:130E nochSatellitenempfangen,die81.30vom EutelsatIIF2:100E eigenenStandortentferntsind.Beieiner Telecom1C :50W Breitevon500(Mitteleuropa)kannder Telecom1A :80W Satellitnoch750entferntsein,vorausge- IntelsatVF6 :18.50W setzt,derAntennenstandortliegtimStrahl- TDFTV2 :190W bereichdesSatelliten,unddieAntenneist IntelsatVIF4:27.50W ausreichendgro. PanAmSat :450W PositionenvonSatelliten,derenProgrammnichtfrMitteleuropavorgesehenist: Gorizon16 :800E Gorizon17 :530ETelecom2A :80WIntelsat605:24.50W Intelsat505 :660E Gorizon12 :400E Gorizon11 :110WIntelsat601:27.50W Intelsat602 :630E Arabsat1C :300E Gorizon15 :140WIntelsat603:34.50W Intelsat604 :600E Intelsat512 :10WIntelsat515:180WTDRS-A:410W Intelsat507 :570E Telecom2B :50WIntelsat502:21.50WIntelsat513:530W Kopernikus2:28.5EEutelsatIIF3:160EEutelsatIIF4M:70ETele-X:50E Thor :10WHispasat1A:300W    -DEMON-LahmerMonitor,funktioniertauchmitPasswort-ca.790Bytes 10 CLS:CLEAR:DIM ZZ$(3)*1,HE$(15)*1:PRINT "DE_MONitor" 20 FOR Q=0 TO 15:READ HE$(Q):NEXT 30 INPUT "STARTADRESSE HEX";AR$:AD=VAL("&H"+AR$) 40IFAD>65532BEEP1:PRINT"BEREICH0-FFF0!":GOTO30 50AD=INT(AD/4)*4 100 CLS:LOCATE 0,0:AX=AD 120BX=INT(AX/4096):PRINTHE$(BX);:AX=AX-BX*4096 130BX=INT(AX/256):PRINTHE$(BX);:AX=AX-BX*256 140BX=INT(AX/16):PRINTHE$(BX);HE$(AX-BX*16) 160 FOR QA=0 TO 3:LOCATE 5,QA 170 FOR QB=0 TO 3:PE=PEEK(AD+QA*4+QB):ZZ$(QB)="." 180 XF=INT(PE/16):IF PE>31 LET ZZ$(QB)=CHR$ PE 190 PE=PE-XF*16:PRINT HE$(XF);HE$(PE);" ";:NEXT 200 FOR QC=0 TO 3:PRINT ZZ$(QC);:NEXT:PRINT:NEXT 210 YA$=INKEY$:IF YA$="" GOTO 210 220TA=ASCYA$ 230IFTA=65LETA=A+PI:GOTO100:'TESTONLY 240IFTA=90LETZ=Z+PI:GOTO100:'DIVVARSAENDERN 250 IF TA=4 LET AD=AD-16:IF AD<0 LET AD=65520:'ARWDN 260 IF TA=5 LET AD=AD+16:IF AD>65520 LET AD=0:'ARWUP 270IFTA=14LETAD=AD+4:IFAD>65532LETAD=0:'ARWRE 280IFTA=15LETAD=AD-4:IFAD<0LETAD=65532:'ARWLI 290IFTA=32GOTO30 300 GOTO 100 65000 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 1CLS :CLEAR :X$="Benzin ":Y$="Diesel " 2PRINT X$;"vs ";Y$ 3PRINT "Hubraum in ccm" 4PRINT X$;:INPUT A 5PRINT Y$;:INPUT B 6PRINT "Steuer pro 100 ccm" 7PRINT X$;:INPUT C 8PRINT Y$;:INPUT D 9PRINT "Treibstoffpreis 1 Liter" 10PRINT X$;:INPUT E 11PRINT Y$;:INPUT F 12PRINT "Verbrauch Liter/100km" 13PRINT X$;:INPUT G 14PRINT Y$;:INPUT H 15PRINT "Anschaffungspreis" 16PRINT X$;:INPUT I 17PRINT Y$;:INPUT J 18PRINT "Nutzungszeit Jahre" 19PRINT X$;:INPUT K 20PRINT Y$;:INPUT L 21PRINT "Restwert nach Nutzung" 22PRINT X$;:INPUT M 23PRINT Y$;:INPUT N 24O=G/100*E:'spritkosten pro km 25P=H/100*F 26Q=(I-M)/K:'Wertverlust p.a. 27R=(J-N)/L:CLS 28S=INT (A/100+.99)*C 29T=INT (B/100+.99)*D:'Steuer p.a. 30PRINT Y$;"wird rentabel ab" 31PRINT STR$ INT ((R-Q)+(S-T)/(P-O)+.5);" km pro Jahr.    -Minisort-A$(N)wirdsortiert,A=Arraygre 100FORX=1TOA-1:FORY=X+1TOA 110IFA$(X)>A$(Y)LETXX$=A$(X):A$(X)=A$(Y):A$(Y)=XX$ 120NEXT:NEXT XX$mudieerforderlicheLngebesitzen[...vielleichtA$(0)] -Bubblesort2-frvorsortierteFelder,lahmbeiunsortiert 100GR=A-1:FORX=GRTO1STEP-1:FL=0 110FORY=1TOGR 120IFA$(Y)>A$(Y+1)LETXX$=A$(Y):A$(Y)=A$(Y+1):A$(Y+1)=XX$:FL=Y 130NEXT:GR=FL:IFFL=0LETX=A 140NEXT -STRAIGHTINSERT-passableGeschwindigkeit 100FORX=2TOA:FORY=1TOX 110IFA$(Y)>A$(Y+1)LETXX$=A$(Y):A$(Y)=A$(Y+1):A$(Y+1)=XX$ 120NEXT:NEXT -SHELLSORT- 100M=A 110M=INT(M/2) 120IFM=0RETURN 130N=A-M 140FORQ=1TON:I=Q 150L=I+M 160IFA$(I)>A$(L)LETXX$=A$(I):A$(I)=A$(L):A$(L)=XX$:I=I-M:IFI>0GOTO150 170NEXT:GOTO110 -HEAPSORT-schnell,frgroeDatenmengen 60L=INT(A/2):R=A:'A=ARRAYGROESSE 70IFR<=1GOTO170:'SORTENDE 80IFL<=1GOTO100:'GRENZENLI+RE 90L=L-1:I=L:GOTO110 100Y$=A$(1):A$(1)=A$(R):A$(R)=Y$:R=R-1:I=1 110X$=A$(I):F=0 120IFI*2<=RTHENIFF=0GOTO140 130A$(I)=X$:GOTO70 140J=I*2:IFJ=A$(J)LETF=1:GOTO120 160A$(I)=A$(J):I=J:GOTO120 170WEITERIMPROGRAMM...    -Temperaturumrechnungen- 100INPUT"HITZE:";G 110INPUT"EINHEIT(C-R-F-K):";E$ 120IFE$="C"LETA=G 130IFE$="K"LETA=G-273.16 140IFE$="R"LETA=5*G/4 150IFE$="F"LETA=5*(G-32)/9 160G$=CHR$&HF6:USING"#####.##" 170PRINTA;G$;"C",9*A/5+32;G$;"F" 180PRINT4/5*A;G$;"R",A+273.16;"K" -REFA=ZEITENKATALOG- 100INPUT"Epsilon:";E:E=SQU(E/100):'CHR$165 110INPUT"Periodenl.:";P:'MESSDAUERINSTD 120INPUT"Untergrenze:";U:'UNTGR1.WERT 130A=E*P/2:Z=65 140B=E*P*U 150F=A+SQR(A*A+B) 160F=INT(F*100+.5)/100 170PRINT"Klasse:",CHR$Z 180PRINT"Untergrenze:",F 190PRINT"Mitte:",U+F 200PRINT"Obergrenze:",U+F+F; 210U=U+2*F:Z=Z+1:INPUTX:GOTO140:'ENTER=WEITER -REFAPLANZEITTABELLE- 10PRINT"Planzeittabelle" 20INPUT"t1min:";T1 30INPUT"t2max:";T2 40INPUT"x1min:";X1 50INPUT"x2max:";X2 60Z=(T2-T1)/(X2-X1):USING"####.###" 70PRINT"f(y)=";Z;"x+";Z*-X1+T1 80INPUT"xunbek:";X 90PRINT"y=";Z*(X-X1)+T1 100GOTO80 -ERATO-175BYTES 100CLS:CLEAR:PRINT"SIEBDESERATOSTHENES" 110INPUT"ENDWERT:";E 120DIMP(E) 130P(1)=1:'1<>PRIM 140FORI=2TOSQRE 150IFP(I)=1GOTO190 160FORJ=I*ITOESTEPI 170P(J)=1 180NEXT 190NEXT:WAIT12 200FORI=3TOE 210IFP(I)=0PRINTI;""; 220NEXT    100 REM STATISTIK 1-DIMENSIONAL 110 R=0:A=0:CLS:INPUT "1. x=";A 120 R=A*A:M=A:N=A:I=2 130 PRINT I;"x=";:INPUT W$ 140 IF LEN W$=0 GOTO 130 150 IF ASC W$>64 GOTO 220 160 W= VAL W$:A=A+W:R=R+W*W:'summen 190 IF WN LET N=W:'maximalwert 210 I=I+1:GOTO 130 220 I=I-1:C=R:B=A/I:R=R-(I*B*B) 230 V= SQR(R/(I-1)):U= SQR(R/I) 240 WAIT 190:PRINT "n: ";I 250 PRINT CHR$ &H92;"x: ";A 260 PRINT CHR$ &HBF;": ";B 270 PRINT CHR$ &H92;"x";CHR$ &HC3;": ";C 280 PRINT "s";CHR$ &HC3;": ";V 290 PRINT CHR$ &HB2;": ";U 300 PRINT "s: "; SQR(V):PRINT "R: ";N-M 320 'Buchstabe als Eingabe=Abbruch 100 REM STATISTIK 2-DIMENSIONAL 110 CLS:O=146:INPUT "1. x=";U:INPUT "1. y=";V 120 I=U*U:J=V*V:M=U:N=U:P=V:Q=V:C=2:R=U*V 130 PRINT C;" x=";:INPUT X$ 140 IF LEN X$=0 GOTO 130 150 IF ASC X$>64 GOTO 280:'Buchstabe=auswerten 160 PRINT C;" y=";:INPUT Y$ 170 IF LEN Y$=0 GOTO 160 180 IF ASC Y$>64 GOTO 280 190 A= VAL X$:B= VAL Y$ 210 U=U+A:V=V+B:I=I+A*A:J=J+B*B:R=R+A*B:'Summen 230 IF AN LET N=A:'max 260 IF B>Q LET Q=B 270 C=C+1:GOTO 130 280 C=C-1:D=U/C:E=V/C:'Mittelwerte 290 F=I-U*U/C:G=J-V*V/C:H=R-U*V/C:'Sxx,Syy,Sxy 320 L=H/F:K=E-L*D:WAIT 190:PRINT "n: ";C 340 PRINT CHR$191;":";D:PRINT CHR$187;": ";E 360 PRINT CHR$ O;"x: ";U:PRINT CHR$ O;"y: ";V 380 PRINT CHR$ O;"x";CHR$ 195;": ";I 390 PRINT CHR$ O;"y";CHR$ 195;": ";J 400 PRINT CHR$ O;"xy: ";R 410 PRINT "sx: "; SQR((I-C*D*D)/(C-1)) 420 PRINT "sy: "; SQR((J-C*E*E)/(C-1)) 430 PRINT CHR$ 178;"x: "; SQR((I-C*D*D)/C) 440 PRINT CHR$ 178;"y: "; SQR((J-C*E*E)/C) 450 PRINT "a: ";K:'y bei x=0 460 PRINT "b: ";L:'Steigung 470 PRINT "r: ";H/SQR(F*G) 480 PRINT "R x: ";N-M:'Spannweite 490 PRINT "R y: ";Q-P:'=Range 500 'Schaetzwert suchen:x'=(y-a)/b | y'=a+b*x    -Bassreflexboxen-575Bytes 100 CLEAR:PRINT "BASSREFLEXBOXEN" 110 PRINT "Gesuchter Wert = NULLAlleAngabenincm":INPUT "Volumen: ";V 120 PRINT "Kanal";CHR$ 149;:INPUT ":";D:INPUT "Kanallaenge: ";L 130 INPUT "Res.freq: ";F:W=V*1E3:C=33E3  C=Schallgeschwindigkeit 140 IF F=0 LET F=(C*D)/(2*(SQR(PI*W*(8*L+PI*D)))) 150 IF L=0 LET L=((C*C*D*D)/(4*PI*F*F*W)-PI*D)/8 160 IF D=0 LET D=2*F/(C*C)*(PI*PI*F*W+SQR(PI^4*F*F*W*W+8*PI*C*C*W*L)) 170 IF V=0 LET V=(C*C*D*D/(4*PI*F*F*(8*L+PI*D)))/1E3 180 IF D<0 OR L<0 OR V<0 OR F<0 PRINT "Fehleingabe.":END 190 USING "####.##":PRINT "F=";F;"Hz","H=";16.23*CURV;"cm" 200 PRINT "D=";D;"cm","B=";10.14*CURV;"cm" 210PRINT "L=";L;"cm","T=";6.08*CURV;"cm" 220 PRINT "","V=";V;"l":USING:LOCATE 0,2:PRINT:END Beispiel: V=40Liter,D=6.3cm,L=12.5cm,F=27Hz,H=55.5cm,B=34.6cm,T=20.8cm WirdstattKanallngedieWandstrkeangegeben,kannmansichdasRohrsparen. DasRohr(oderdieAussparung)munichtrundsein(aberauchnichtzuschmal). -ZWEIWEGE=LAUTSPRECHERWEICHEN- 100PRINT"Zweiwegeweichen":PRINT"Filtercharakteristik: 110PRINT"1-Butterworth2-Bessel":INPUT"Wahl:";T 120D=4:IFT=1LETD=5 130PRINT"Ordnung(1-";STR$D;"):";:INPUTG 140PRINT"Nennimpedanz";CHR$152;:INPUT":";R 150INPUT"TrennfrequenzHz:";F 160M=R/(2*PI*F)/1E3 170X=RCP(2*PI*F*R)*1E6 180RESTORE:IFT=2RESTORE320 190IFG>1GOSUB260 200FORQ=1TOG:READE,D 210L=E*M:C=D*X:U$="###.###" 220PRINT"L";STR$Q;"=";:USINGU$:PRINTL;"mH" 230USING:PRINT"C";STR$Q;"=";:USINGU$:PRINTC;CHR$172;"F"; 240IFQQLETQ=Q-1 160NEXT:NEXT:'HIERSPICKEN 170D=D+1:PRINT"CODE:";D;:INPUTI$ 180M=0:N=0:FORQ=1TOB:T$=MID$(I$,Q,1) 190FORP=1TOB:IFT$=A$(P)ANDP<>QLETM=M+1 200NEXT:IFT$=A$(Q)LETN=N+1:'TREFFER 210NEXT:LOCATE18,3:PRINTN;M 220IFN<>BGOTO170 230PRINT"Geschafft:";STR$D;"Versuche" Sollenmehrals7Zeichenmglichsein,muI$mitDIMaufdieerforderliche Breitegebrachtwerden.DieZeichenA...sindzuraten. -einfacherGleichungslser-230Bytes 100PRINT"GLEICHUNG1" 110INPUT"KOEFF.X:";A 120INPUT"KOEFF.Y:";B 130INPUT"KONSTANTE";C 140PRINT"GLEICHUNG2" 150INPUT"KOEFF.X:";E 160INPUT"KOEFF.Y:";F 170INPUT"KONSTANTE";G 180PRINT"LOESUNG:":H=A*F-B*E 190PRINT"X=";(C*F-B*G)/H 200PRINT"Y=";(A*G-C*E)/H    -Programmsegment,wenndieZeilenzahlnichtausreicht- 10ZZ=10 20DIMT$(ZZ):'ANZAHLZEILEN 30FORQ=1TOZZ:READT$(Q):NEXT 40ZX=4:GOSUB100:'ABHIERSUBPROG 50Z$=INKEY$:IFZ$=""GOTO50:'GGFSMITAUTO-OFF 60IFZ$=CHR$4ANDZX>4LETZX=ZX-1:GOSUB100:'CRSRUP 70IFZ$=CHR$5ANDZXCHR$31END:'ODERRETURN 90GOTO50 100CLS:FORZQ=ZX-4TOZX-1 110PRINTT$(ZQ+1);":";CHR$(RND(26)+65);RND(10000):'MEHROUTPUT... 120NEXT:IFZX4LOCATE23,0:PRINTCHR$&HFD;:'PFEILAUF 140RETURN 150DATABHV,CUX,STD,HHL,GLK,HEI,HUS,WST,LST,HEL 100 REM FRANCIS BEAUFORTS GEHEIMSCHRIFT 110 DIMM$(0)*100,N$(0)*100,P$(0)*255,Z$(0)*32 120 FOR J=1 TO 2 130 GOSUB 320:'VERSCHLUESSELN 140 GOSUB 170:'ENTSCHLUESSELN 150 NEXT:END 170 INPUT " MESSAGE";M$(0) 180 FOR Q=1 TO LENM$(0) 190 H$=MID$(M$(0),Q,1) 200 IF H$>"@" AND H$<"[" LET N$(0)=N$(0)+H$ 210 NEXT 220 FOR Q=1 TO LENN$(0) 230 A=ASC(MID$(P$(0),Q,1))-65 240 B=ASC(MID$(N$(0),Q,1))-65 250 IF B>A LET B=B-26 260 PRINT CHR$(A-B+65); 270 IF Q/3=INT(Q/3) PRINT " "; 280 NEXT:PRINT 300 N$(0)="":P$(0)="":M$(0)="" 310 RETURN 320 INPUT "PASSWORT";Z$(0) 330 L=255/LENZ$(0) 340 FOR Q=1 TO L:P$=P$+Z$:NEXT 370 P$=P$+LEFT$(Z$,255-LEN(A$)) 380 RETURN    100 REM LORD PLAYFAIRS GITTER 110 F$="XYZ" 120 GOSUB 680 130 INPUT "IHRE MESSAGE";M$(0) 140 L=LENM$(0) 150 FOR Q=1 TO L 160 P$=MID$(M$(0),Q,1) 170 IF P$<>" " LET X$(0)=X$(0)+P$ 180 NEXT 190 L=LENX$(0)/4 200 IF L<>INT(L) LET Q=4-(L-INT(L))*4:X$(0)=X$(0)+LEFT$(F$,Q) 240 FOR R=1 TO L-1 STEP 2 250 A$=MID$(X$(0),R,1) 260 B$=MID$(X$(0),R+1,1) 270 FOR P=1 TO 6:FOR Q=1 TO 6 280 IF A$=Q$(Q,P) LET X=Q:Y=P 290 IF B$=Q$(Q,P) LET U=Q:V=P 300 NEXT:NEXT 310 IF X=U LET Y=Y+1:V=V+1 320 IF Y=V LET X=X+1:U=U+1 330 IF X<>U AND Y<>V LETO=X:X=U:U=O 340 C$(0)=C$(0)+Q$(X,Y)+Q$(U,V):NEXT 360 FOR Q=1 TO LENC$(0) 370 PRINT MID$(C$(0),Q,1); 380 IF Q/4=INT(Q/4) PRINT " "; 390 NEXT:PRINT 410 X$="":M$="" 420 INPUT "IHR CODE";C$(0) 430 FOR Q=1 TO LENC$(0) 440 P$=MID$(C$(0),Q,1) 450 IF P$<>" " LET X$(0)=X$(0)+P$ 460 NEXT:L=LENX$(0) 480 IF L/2<>INT(L/2) LET X$(0)=X$(0)+"X" 490 FOR R=1 TO LENX$(0)-1 STEP 2 500 A$=MID$(X$(0),R,1) 510 B$=MID$(X$(0),R+1,1) 520 FOR P=1 TO 6:FOR Q=1 TO 6 530 IF A$=Q$(Q,P) LET X=Q:Y=P 540 IF B$=Q$(Q,P) LET U=Q:V=P 550 NEXT:NEXT 560 IF X=U LETY=Y-1:V=V-1 570 IF Y=V LET X=X-1:U=U-1 580 IF X<>U AND Y<>V LET0=X:X=U:U=O 590 M$(0)=M$(0)+Q$(X,Y)+Q$(U,V):NEXT 620 FOR Q=1 TO LENM$(0) 630 PRINT MID$(M$,Q,1); 640 IF Q/4=INT(Q/4)PRINT " "; 650 NEXT:END 680 CLS:DIM Q$(7,7)*1,C$(0)*255,M$(0)*255,X$(0)*255 700 FOR Q=1 TO 6:FOR P=1 TO 6 710 READ Q$(P,Q):NEXT:NEXT 720 FOR Q=1 TO 6 730 Q$(0,Q)=Q$(6,Q):Q$(7,Q)=Q$(1,Q) 740 Q$(Q,0)=Q$(Q,6):Q$(Q,7)=Q$(Q,1) 750 NEXT:Q$(0,0)=".":Q$(7,7)="." 770 Q$(0,7)=".":Q$(7,0)=".":RETURN 790 DATA 1,Q,A,Y,2,W,S,X,3,E,D,C,4,R,F,V,5,T 800 DATA G,B,6,Z,H,N,7,U,J,M,8,I,K,9,O,L,0,P 810 REM ^HIER^EIGENEN^CODE^EINTRAGEN^    -CREDIT- 100INPUT"SCHULDEN:";S 110INPUT"ZINSSATZ:";Z 120INPUT"MONZAHLUNG:";R 130Z=Z/12:G=S:USING"########.##":WAIT65 140IFS*Z/100>R-.01BEEP1:PRINT"ZINS=";S*Z/100:GOTO120 150IFS<=0GOTO210 160J=J+1:X=S*Z/100 170S=S+X-R 180U=U+X:'X=ZINS/PERIODE 190IFS>0PRINT"MONAT";STR$J:PRINT"SCHULD";S 200GOTO150 210WAIT0:IFJ>11LETA=A+1:J=J-12:GOTO210 220PRINTSTR$A;"JAHRE,";STR$J;"MONATE:" 230PRINT"ZINSEN:";U 240PRINT"GESAMT:";G+U 250USING:END -RENTE- 100INPUT"KAPITAL:";K 110INPUT"JAHRE:";J 120INPUT"ZINSSATZ%";Z:Z=Z/100 130R=(1+Z)-1:S=((1+Z)^J)-1 140T=K*(1+Z)^J*(R/S) 150PRINT"RENTEPROJAHR:":PRINTT -ZINSFUSSBEIABGEZINSTENPAIPEREN- -ENDBETRAGBEICONSTKAPITAL- 100INPUT"ANFKAPITAL:";S 100INPUT"ANFKAPITAL:";A 110INPUT"ENDKAPITAL:";E 110INPUT"ZINSFUSS:";Z 120INPUT"LAUFZEIT:";J 120INPUT"LAUFZEIT:";J 130Z=(LOGEK-LOGSK)/J 130K=A*((1+(Z/100))^J) 140PRINT"ZINSEFF.:";Z*100 140PRINT"ENDKAPTIAL";K -RENTABILITAETLEBENSVERS- 100INPUT"MON.EINZAHL:";D 110INPUT"LAUFZMONATE:";L 120INPUT"ENDKAPITAL:";E 130K=D*L:Z=E-K 140P=(Z*L)/(K*100) 150PRINT"EFFZINS:";P;"%" -SPARZINSERTRAG- 100INPUT"ANFKAPITAL:";K 110INPUT"EINZ.PJAHR:";A 120INPUT"ANZJAHRE:";N 130INPUT"ZINSFUSS:";Z 140PRINT"EINZAHLUNGAM>AEBasicimE220werdendieAbkrzungeninkorrekteBefehle umgewandelt(beimE500sieheHandbuchSeite216). KomprimierteProgrammesindimE220um4%krzeralsnormale. SpaceshinterZeilennummernwerdengelscht.UnterUmstnden knnenauchTeilevonTexteninAnfhrungszeichenundLabels verdichtetwerden,deshalbnachMglichkeitGro/Kleinschreibung verwenden.BeiderKompressionwirdnurgrogeschriebenerText verdichtet.Geschwindigkeit:9.7Zeilen/sec. Achtung:esgibtkeinenExpander! Space  FgtfreinebessereLesbarkeiteinLeerzeichenhinteralle Zeilennummernein,oderlschtalleLeerzeichenumdieZeilen- nummern(automatisch).DieseSpaceswerdenbeiderKonvertierung Text->BasicimSharpnichtgelscht,siesolltenvorderber- tragungbeseitigtwerden(derKompressormachtdasautomatisch). Subern AlleZeichenkleinerASCII32werdengelscht,Umlautewerden umgewandelt,andereZeichenwerdengelscht.Damitbestehtdie Mglichkeit,ProgrammeausNicht-ASCII-Dateienzugewinnen.   REM-Killer REMswerdenbeseitigt. Rechnertyp FrdieunterschiedlichenRechnersindverschiedeneAbkrzungen frgleichenodergleicheAbkrzungenfrverschiedeneBefehle vorgesehen.SolltevordemKompressoreingestelltwerden.  AnfangBlock Startmarkieren. EndeBlock Blockendemarkieren(gehtnur,wennderAnfangmarkiertwurde). Lschen DermarkierteBlockwirdunwiederruflichgelscht. Isolieren AllesauerdemmarkiertenBlockwirdgelscht. Kopieren DermarkierteBlockwirdandieCursorpositionkopiert. Verschieben DermarkierteBlockwirdandieCursorpositionkopiert,und derursprnglicheBlockgelscht. Markenlschen DieBlockmarkierungenwerdengelscht. ->Blockanfang DerCursorwirdaufdenBlockanfanggesetzt. ->Blockende DerCursorwirdaufdasBlockendegesetzt. Drucker DruckereinstellungenfrdieDruckbreitePica/Elite (10oder 12ZeichenproZoll),SchnschriftoderSchnellgang, IBModerEpson-Emulation,BreitedeslinkenRandes, diePapierlngeinZeilenunddieZeilenzahlproSeite. EswirdvoneinerBreitevon80Zeichen/Zeileausgegangen. Schnittstelle ParameterfrdieRS232-Einstellung:Baudrate,Stopbits, AnzahlDatenbits,Parittsprfung,Handshakeprotokoll. EOFEOL KennzeichnungenfrTextende(EndofFile) undZeilenende(EndofLine) Statistik bersichtberdieTextgreinBytes,Zeilenunddennoch freienSpeicher. Reserve FreifrsptereErweiterungen.     ZustzlichbelegteTasten  F2AnCursorpositionwirdeineLeerzeileerzeugt. F3 DieCursorzeilewirdindiedarberliegendehochgezogen. F4 ZeilenrestabCursorwirdindiedarberliegendeZeilegezogen.  F5 ZeilenrestabCursorwirdindiedarunterliegendeZeilegezogen. F6 DieaktuelleZeilewirdgelscht. F7 WieMenupunkt"Weitersuchen",fallseinStringdefiniertwurde. F10 Anti-Panik-Taste:CursorandenTextanfang HomeCursorandenAnfangderoberstenZeileimFenster TabBackspaceDeletePfeiltasten DerCursorkannauchmitderMauspositioniertwerden.    Beachtenswertes Absturzgefahr:UnterunbekanntenUmstndenkanndieCursorposition negativeWerteannehmen.IndiesemFallaufkeinenFalleinZeichen eingeben,sondernwahlweiseF10drcken,beieinemmarkiertenBlock aufAnfangoderEndespringen,oderdenTextabspeichern. BeiderbertragungvomSharpzumSTknnenteilweiseeinzelneZeichen ambertragungsbeginnhinzugefgtwerdenoderverlorengehen.Die ersteZeilesolltenachjederbertragungdaraufberprftwerden. 4800BaudTransferratesolltenurmitvollenBatterieneingestellt werden.   Programmnachschub:inderPD-SeriePGSgibtesaufdenNummern137-140 ProgrammefrverschiedeneRechner,(vorzugsweise14xx)dieteilweise frdenEinsatzaufderE-Serieetwasumgeschriebenwerdenmssen.Der Gesamtumfangbetrgtca.500kB.AufMaxon100undVision124gibtes aucheinigekB.Assemblerfrdie14xx-SeriefindensichaufMaxon 123undVision206. 9[........................................................................]101     SerielleDatenbertragung Allgemeines 8000300001\SD_MODPI.IMG KennungenderAnschlsse TxD:TransferData(SendedatenvomST) RxD:ReceiveData(DatenindenST) RTS:RequesttoSend(H=Empfnger[ST]istOK) CTS:CleartoSend(H=Empfnger[DE]istOK) DSR:DataSignalReady(wieDTR,beiSTunbenutzt) GND:SignalGround(Masse) GND*Gehusemasse(SchutzerdeST:1+7verbunden) DCD:DataCarrierDetect(H=Signalkommtan) DTR:DataTerminalReady(H=STkannsenden) RI:RingIndicator(nurbeilokalerbertragungbenutzt) MglicheGeschwindigkeiten(Atari): 19200,9600,4800,3600,2400,2000,1800,1200,600, 300,200,150,134,110,(75),(50)Baud(50=80,75=120)  Effektivebertragungsgeschwindigkeit:1/10Baud=Bytes/sec. 8004200001\SD_MODNU.IMG bertragungmitNullmodem: NurbeikurzenDistanzen,undwenn SenderundEmpfngersehrgutsynchron- isieren.Datenverlustmglich:der Software-HandshakemuvonderHardware  ausgewertetwerden 8000100001\SD_MODHS.IMG  bertragungmitHardware-Handshake:  sehrsicher,frkurzeDistanzen,  keinelangenLeitungenoderstarke  elektrischeStrungen(Strfelder).  KeinDatenverlust. 8004900001\SW_MAX1.IMG MAX232TechnischeDatenundPinbelegung Stromverbrauch:5mA Versorgungsspannung:5V EingangsspannungsbereichRS232:30V EingangshystereseRS232:0.5V AusgangsamplitudeRS232:9V AusgangsstromRS232:10mA AusgangswiderstandRS232:>300 FlankensteilheitRS232:<30V/sec Schaltverzgerung:0.5sec SchwellenspannungTTL/CMOS:1.3V EingangsimpedanzRS232:3-7k(typ5k) EingangsimpedanzTTL/CMOS:400KPullup AlleAusgngesindunbegrenztkurzschlufest.    RS232-InterfacesfrdenE220 8000300001\SD_CE801.IMG SchaltungdesRS232-InterfacesalsDatenendgert.Freineproblemlose VerbindungdirektaneinenComputermssendiePinsTxD/RxDundCTS/RTS vertauschtwerdenundalsSteckverbindereineBuchsebenutztwerden. 8000400001\SD_CE802.IMG SchaltungeinesRS232-InterfacesalsDatenbertragungseinrichtung.Freinen problemlosenKabelanschlukannaufderInterfaceplatinestattdesRS232- Verbinderseine5-poligeDIN-Buchseangebrachtwerden.    InterfacefrdieserielleSchnittstelledesE500(hnlichCE130-T) 8000400001\SD_CE803.IMG    8001600001\SD_CE804.IMG Schaltungenfr denAufbau einerseriellen Schnittstelle frdenE500. BeimEinbauder Schaltungin dieSteckerder Schnittstelle kanndie Schaltungan dermarkierten Linieaufge- trenntwerden. AchtungKurz- schlugefahr: nichtbenutzte PinsderChips undSchnitt- stelledrfen nichtbeschalt- etwerden!    8001800001\SD_CE805.IMG Verbessertes Interfacemit dem(relativ schwerbeschaff- barenMotorola- chip)MC145407. Der330n-Kon- densatormu sonahwiemg- lichamChip positioniert werden. WichtigerHinweis DadasLtenmit dem1/20"-Raster sehrschwiereig ist,undleicht Kurzschlssever- ursachtwerden knnen,empfiehlt essich,whrend desLtenseinen Papierstreifen zwischendiePins zuklemmen. 8005100001\SD_CE891.IMG AdaptersteckerfrdenBetriebdesE220-Inter- facesamE500.AlternativkanneinInterface auchmitzweiSteckernfrdieSharpsgleich- zeitigausgerstetwerden. DasInterfacekannauchmiteinereigenen Stromversorgungausgerstetwerden(wiebeim originalenCE130T),allerdingsmudarauf geachtetwerden,dadieVersorgungsspannung 6VaufkeinenFallberschreitet.Eineweitere MglichkeitzumSchutzdesRechnerports,der injedemFalldirektmitdemProzessorchip verbundenist,bestehtdarin,dasInverter-IC ausdemRechnermitStromzuversorgen,und denWandlermiteinereigenenVersorgungzu versehen.DieStromaufnahmederInverterbe- trgtnureinigeMikroamperes,whrendder Wandlermindestens5mAzapft.Selbstbeifast leerenRechnerbatterien(LowBatwirdange- zeigt)und6VWandlerversorgungarbeitetdas Interfacenocheinwandfrei.DabeiwirdAkku- versorgungmglich,allerdingssolltedas InterfacedannmiteinereigenenBatterie- berwachungausgestattetwerden.    8005100001\SD_CE890.IMG DielinksgezeigteSchaltungkannalsEinfachst- Interfaceeingesetztwerden,wenndieSchnitt- stelleamAtari(odereinemanderenGert)die Pegelim"verbotenenBereich"richtiginter- pretiert.DanachwerdenunzulssigePegel zwischen-3Vbis+3ValsLOWbertragen,damit wirdeinBetriebohnenegativeVersorgungs- spannungmglich.AlsInverterkannjeder Bausteinder4000er-Familieeingesetztwerden, derein"B"hinterderTypenbezeichungfhrt. EinigeBeispielesindbeimDiagnosesteckerauf- gefhrt.ImZweifelsfallundbeihohenFehler- ratensollteaufdieMAX-Wandlerzurckgegriffen werden. 8005400001\SD_MODRA.IMG DieunproblematischsteKabelverbindungzwischen InterfaceundComputergeschiehtbereinKabel, dasaufderInterfaceseitemiteiner5-poligen DIN-Verbindungaufgebautwird.DieDIN-Buchsen verfgennormalerweiseberein1/10"-Raster, dasproblemlosaufLochrasterplatinenpat,die 25-poligenSteckerundBuchsenhabenein2.7-mm- Raster,dassichnichtaufnormalePlatinenraster montierenlt.BeidirekterBefestigungdes KabelsaufderInterfaceplatinestelltdienot- wendigeZugentlastungeinzustzlichesProblem dar. RTS/CTSHardware-Handshake RTSH=EmpfngerkannDatenaufnehmen L=Empfangspuffervoll CTSH=Rckmeldung,Sendeteilisteingeschaltet CTSL=Senderistnichtbereit XON/XOFFSoftware-Handshake XONCTRL-Qsenden:EmpfngerkannDatenaufnehmen XOFFCTRL-Ssenden:Empfangspuffervoll DCD=H->SignalbeimEmpfngeran DTR=H->Senderiststartklar 8005300001\SE_PLATI.IMG GeeignetesVeroboardmuster,aufdereinInrterface odereineDiagnoseschaltungproblemlosaufgebaut werdenknnen.Der11-poligeSIO-Steckerltsich direktaufdiePlatinelten,beim15-poligen SteckeristeineKabelverbindugdiebessereLsung.    DiagnoseSIO  8000900001\SD_11DIA.IMG Invert: 4001(4) 4009(6) 4011(4) 4023(3) 4025(3) 4049(6) 4069(6) 4093(4) 4572(4) 4584(6) 40106(6) nicht invert: 4010(6) 4050(6) 4071(4) 4073(3) 4075(3) 4081(4) DiagnoseschaltungzurberprfungallerSignaleanderseriellenSchnittstelle. WerdenICsderoberenTabelleeingesetzt,istdieSchaltungwiegezeichnetauf- zubauen.MitICsderunterenTabellesinddieLEDsumzupolenundanMinusanzu- schlieen.DieLEDsleuchtenbei"High".DiePins4,5und7sindmitPulldown- Widerstndenvon100k-1Mzubeschalten,umeinwandfreiePegelzuerhalten. DieZahlinKlammerngibtdieAnzahlderGatteran.  DiagnoseRS232 8005100001\SD_DIAGN.IMG ZurberprfungderLeitungszustndekannein Diagnoseadapterselbstgebautwerden,dermittels LEDsdieLeitungszustndeanzeigt.Freine korrekteFunktiongengen2mAStromdurchdie Leuchtdioden.DiezustzlicheStromaufnahmedes Interfacesbetrgtetwasmehralsderdoppelte Diodenstrom.DerAdapterkannineinhandels- blichesNullmodemgehuseeingebautwerden, Duo-LEDshelfenetwasPlatzsparen.Aufeiner SeitedesGehuseswirdeinStecker,aufder andereneineBuchseeingebaut,damitderTester direktindieLeitungeingeschleiftwerdenkann. FreineuniverselleDiagnose(ananderenGerten) solltenauchdieLeitungen6,8und20mitber- wachtwerden. ZurEinschaltkontrollealleranderseriellenSchnittstelleangeschlossenenEin- heitensollteeinezustzlicheLEDvorgesehenwerden,derLED-Vorwiderstandkann mit4.7kdimensioniertwerden(HelligkeitderLEDvorherberprfen:ummaximal Stromzusparen,superhelleLEDsundgroeVorwiderstndeverwenden!)     8004400001\SD_SERTA.IMG SchnittstellentestE220 1Rechnereinschalten 2Testprogrammeingeben 3Testschaltunganschlieen 4Programmstarten 5ErscheintnichtimmerOK,kannein defekterPortmitderLogiktabelle ermitteltwerden.  10FORI=0TO7:OUTI 20PRINTI;"=";:READA 30D=INP:IFA=DPRINT"OK";:GOTO50  LogiktabelleSIO-Test 40PRINTSTR$D;"(";STR$A;")"; 50NEXT:OUT0:PRINT"SIO-TEST":END 60DATA0,4,7,3,1,5,3,7  8004100001\SD_SERIA.IMG 8000100001\SD_SERID.IMG 8004100001\SD_SERIC.IMG 8000100001\SD_SERIB.IMG    8004900001\SD_SERTB.IMG TestCE-T801 1Rechnereinschalten 2Testprogrammeingeben 3Interfaceanschlieen 4Programmstarten OriginalprogrammSharp 110FORI=0TO7:OUTI 120PRINTI;"=";:READA 130D=INP:IFA=DPRINT"OK";:GOTO150 140PRINTSTR$D;"(";STR$A;")"; 150NEXT:OUT0:PRINT"V24-TEST":END LogiktabelleCE-T801 160DATA0,0,0,4,0,0,1,5 Am25-poligenSteckerwerdenfrdenTest dieAnschlsseTxDmitRxD(Pins2und3) undRTSmitCTS(Pins4und5)verbunden. SpannungsprfungCE-T801 Testprogrammeingeben: 210PRINT"SPANNUNGSTESTCE-T801" 220OUT3:INPUT"PIN3=H,PIN5=L";J 240OUT6:INPUT"PIN3=L,PIN5=H";J 250OUT0:END HIGH=-3...-15V(gegenMasse) LOW=+3...+15V EineAusgangsspannungvon7-8VistOK. DiagnoseprogrammE220(eingebaut) Achtung:derSpeicherinhaltgehtdabeiverloren. Gerteinschalten,danachgleichzeitig[SHIFT][,][RESET]drcken. [1]drcken(Gertpiepsteinmal) RAM-Test  RAMCHECKINGRAMCHECKOK ROM-Test  ROMCHECKING ROMCHECKOK Schnittstellentest [C][O][Enter] I/OCHECKINGI/OERROR RAM-BackupwirdgeschriebenB/UDATAWRITING Display-Test1 [Enter] Display-Test2 [Enter]  ON [RESET] [OFF](nicht[Y]drcken) Batterieherausnehmenundwiedereinsetzen Diagnose-Modusanwhlen [2]  RAMB/UDATACHECKINGB/UDATACHECKOK [Return]  OK Tastatur-Test(dierechtsuntenangezeigteTastedrcken)   KEYCHECKOK [RESET] [Y] EndederProzedur Stromverbrauch(Maximalwerte) 25.5Aausgeschaltet 6.39mAeingeschaltet 26.5mARechnen 5-6mAV.24-Interface+2mAbeiAnschluaneinDatengert.    SchnittstellentestE500 8003600001\SD_DIAG6.IMG 8005600001\SD_DIAG5.IMG DielinkeTabellezeigtdieVer- knpfungenfrdenTestder 15-pin-Schnittstelle(RS232)an. FrdenTestwerdendiePinsRS mitCSundRRmitCDverbunden, PRQundERwerdenalsODER-Ver- knpfungaufPAKgefhrt.Wird dasTestmodulvomE220mitdem IC4071aufgebaut,kanneinnoch freiesGatterdazuverwendet werden. DierechteTabellezeigtdieVer- knpfungenderlinkenUniversal- schnittstellean,zumTestkann dasselbeModulwiefrdenE220 benutztwerden. PinbelegungenserielleSchnittstelleE500 PinNameBeschreibung 1FGPGND- 2SDTxDOSendedaten 3RDRxDIEmpfangsdaten 4RSRTSOSenderistbereit 5CSCTSIEmpfngerkannDatenaufnehmen 6--NC-nichtbeschaltet 7SGGND-Masse 8CDDCDIGegenstationsendetTrger 9--NC-nichtbeschaltet 10VCVcc-5VSpannungsversorgung(Batterie) 11RR?O 12PARIDruckerbereit(?) 13VCVcc-5VSpannungsversorung 14ERDTRObereitzurDatenaufnahme 15PRQODruckerdaten     MemoryMapPC-E220OhneGewhr/Intel-Schreibweisebeachten(LO-HI) 011ABeginnRAMdisk(wennnichtsmitMON/USERgendertwurde->7973) DieFilelngeinderRamdiskstehtim5.+6.BytehinterdemNamen 7800-78CFVariablenbereichA-Z(7800=Z,je7Bytes) 78ED Baudrate:01=300,02=600,04=1200,08=2400,10=4800Baud 78EE ParameterserielleSchnittstelle:Bit1:LF2:CRLF,3:CR4:? 5:0=1Stopbit1=2BitsBit6:1=Odd7:1=Even8:0=7Bits,1=8Bits 78EF BytefrbertragungsendeEOF 790ENummerangewhltesFileinderRamdisk 7912-7913AnfangEintragerstesFileinderRamdisk(Name) 7973-7974StartTextbereich 7975-7976EndeTextbereich 79B3-79B4Basicpointer 79B5-79B6Zeilenbereich,dergeradeabgearbeitetwird 79C0-79C7Password 79E1-79E2AnfangausfhrbaresProgramm 79E3-79E4EndeausfhrbaresProgramm 79FC-79FDUnteresEndeVariablenbereichRAMTOP 79FE-79FFStartausfhrbaresProgramm 7A60-7A77letzteZeileRechenergebnis 7A80-7A98letztesRechenergebnis 7AA0-7AA1Programmpointer 7AA2-7AA3Programmpointer 7AA6-7AA7geradebenutzteVariable(?) 7AB6-7AB7For-Pointer(?) 7AB8-7AB9Variablenzeiger 7AC8-7AC9FOR-Pointer 7ACA-7ACBVariablenzeiger 7ADC-7ADDVariablenzeiger 7B60-7BAF 7B00-7B5FDisplay(MONitor) 7BB0-7BC7DisplayzeileCAL 7C00-7CFFEingabepuffer,ausgewertet 7D00-7DFF 7E00-7ED5Stringpuffer 7EE8-Eingabezeile Zwischen79FC/FDund79FE/FFistderBasic-Arbeitsbereichincl.Programm CALL&HBCFDwartetaufTastendruck.    MemoryMapPC-E500ohneGewhr-DatenformatistLo-Mi-HioderLo-Hi BFC00-FFFSystemadressen BFC15-6-7UntergrenzeeingebautesRAM BFC1B-C-DStartSystembereichhinterAER-Bereich BFC21-2-3 BFC5C 4=Ergebnissewerdendoppeltgenauausgegeben BFC84-5-6 Pointer2CursormusterinF28EA BFC87-8-9 PointerDruckerbefehleinF2155CHR$0-31 BFC8A-B-CPointerZeichensatzabCHR$128:F2455=1.Font,DFD00=2.Font BFC8D-E-FPointerZeichensatzabCHR$224:F2695=1.Font,DFF40=2.Font BFC90-1-2PointerZeichensatzCHR$32-127zeigtaufF2155 BFC93-4-5PointerZeichensatzabCHR$160:F2515=1.Font,DFDC0=2.Font BFC97 1=BATT BFC981=BUSY,2=RUN,4=PRO,8=DBL BFC99 1=japre,2=japli,4=HYP,8=CAPS,16=2ndF Funktionenwerdenausgefhrt,Japanlinks=andererCursor BFC9A 1=PRINT,2=E,4=RAD,8=G16=DE BFC9B Cursorspalte(aktuell) BFC9C Cursorzeile(aktuell) BFC9D DisplaygreinSpalten(normal=40) BFC9E DisplaygreinZeilen(normal=4) BFCA1 Error91(Tip:Crossreferenzlisteerstellen) AlleanderenVarsbentigen15Bytes,Stringsknnen15Zeichenaufnehmen. O:BeimehrerengleichzeitigzuprfendenBedingungeninIF...THENmittelsAND inderFormIF...AND...THENkanndieBearbeitungmitIF...THENIF...THEN beschleunigtwerden,wenndieunwahrscheinlichsteBedingungzuerst eingesetztwird,diePrfungderanderenentflltdann.Kannnichtbei KonstruktionenmitBitvergleichIF(AANDB)=1THEN...benutztwerden P:NumerischeKonstantesindaufihrenKehrwertzuberprfen:5/1.66666666ist identischmit5*.6(Bruchrechenprogrammbenutzen) Q:Spezialzeichen>128knnenmiteinembeliebigenPlatzhaltereingegebenund anschlieendmitMONitoraufdengewnschtenCodegesetztwerden(auer&HFE) R:VorkommastelleneinerZahl:PRINTINT(LOG(ABS(X)))+1 S:RundenaufnStellenbeiunbekannterZahlengre:sieheTrigon1,Zeile500 T:SollbeiganzenZahlenderDezimalpunktwegbleiben,ZahlmitSTR$ausgeben U:BeiVerwendungvonWinkelfunktionenimmerdierichtigeBetriebsarteinstellen V:BeiOperationenmitnureinemAusdruckkanndiesonstblicheKlammer weggelassenwerden:SGNAstattSGN(A) W:DerFestwertspeicher"M"enthltinRUNundCALverschiedeneWerte X:BEEPstrtdenUnterricht Y:ZeitkritischeProgrammteilevorneimPRGunterbringen(Suchenentfllt) Z:KleineZeilennummernbringennichts:alle(auchSprunganweisungen)werden codiertimProguntergebracht. 1:Z$="*AF":GOTOZ$funktioniertnicht     ByteschinderfrdenE500 A:DieTipsA-E,H-J,L-M,O,R-ZgeltenauchfrdenE500. B:NumerischeAusdrckemit'&'kennzeichnen,sonstwerdenkonstant12Bytesver- braucht(z.B.beiFORoderPEEK/POKE).Nachteil:erhhteUmwandlungszeit. C:IndenreserviertenVariablenA-ZwerdennureinfachgenaueZahlenunterge- bracht.FralleanderenwirdSpeicherplatzangefordert. D:DoppeltgenaueVarsbentigen18Bytes. F:Stringsbentigen10BytesplusdieNettodaten(0-253Bytes). RESET-SchutzfrgeplagteSchler A:MehrSpeicher.E220:DieErweiterungenwerdenalsSeitenbetrachtet,die nichtmiteinanderinVerbindungstehen.BeieinemResetwirdnurdiegerade aktiveSeitegelscht,alleanderen(z.Zt.max7)gehtdasganzenichtsan. E500:RAM-Cardherausnehmenundkatastrophensicherlagern. B:Batterieherausnehmen?KeinProblem,um5MinutenberlebtderSpeicher sicher.FrHartgesottene:einleckarmerKondensatoreingebaut(47Fsind schoneingebaut),odergleicheineKnopfzelleminderndasRisiko.Weiein Prfer,daderRechnerzweiBatteriesystemehat? (Achtung:KnopfzellenichtmitHandschweiversehen!) C:PapierunterdenResetknopf.EinVerhterlifrberraschungsflle.Ohne SpeichererweiterungkannderSpeicherinhaltallerdingsvernichtetwerden, wenndieSicherheitsabfrageMEMORYCLEAROK?(Y/N)erscheint. [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[10 CLS :CLEAR :PRINT " *** BIORYTHMUS 2 ***" 20 '(C)93 Alfred Jaeger : Hauptstrasse 103a : 79297 Winden 1 30 PRINT " 1 > Biorythmus einzeln 2 > Partnervergleich 3 > Ende "; CHR$ 245; 40 INPUT Z:Z= INT ABS Z:IF Z<1 OR Z>3 GOTO 10 50 ON Z GOSUB 70,90:IF Z=3 CLS :PRINT " Hasta La Vista, Baby!":END 60 GOTO 10 70 GOSUB 460:T=C:M=B:J=A1:GOSUB 710:Z=4:GOSUB 460:Q=S:T=F:M=E:J=D:GOSUB 710 80 U=S:V=W+1:I=U-Q:GOSUB 680:Y=I:GOSUB 740:I=I+1:GOSUB 680:GOSUB 340:RETURN 90 CLS :PRINT " * PARTNERVERGLEICH *" 100 INPUT "Name 1: ";N1$:IF LEN N1$>10 LET N1$= LEFT$ (N1$,10) 110 INPUT "Name 2: ";N2$:IF LEN N2$>10 LET N2$= LEFT$ (N2$,10) 120 Z=2:GOSUB 460:T=C:M=B:J=A1:GOSUB 710:Q1=S:IF RE>0 RETURN 130 Z=3:GOSUB 460:T=C2:M=B2:J=A2:GOSUB 710:Q2=S:IF RE>0 RETURN 140 Z=4:GOSUB 460:T=F:M=E:J=D:GOSUB 710:U=S:V=W+1:IF RE>0 RETURN 150 CLS :PRINT "1> Werte ";N1$:PRINT "2> Werte ";N2$ 160 PRINT "3> Differenzwerte":PRINT "4> Neuberechnung >";:INPUT R 170 R= INT ABS R:IF R<1 OR R>4 GOTO 150 180 IF R=1 LET I=U-Q1:Y=I:GOSUB 680:GOSUB 740:I=I+1:GOSUB 680:GOSUB 340 190 IF R=2 LET I=U-Q2:Y=I:GOSUB 680:GOSUB 740:I=I+1:GOSUB 680:GOSUB 340 200 IF R=3 GOSUB 290 210 IF R=4 GOSUB 240 220 IF RE=4 RETURN 230 R=0:GOTO 150 240 CLS :PRINT "1> Neue Werte ";N1$:PRINT "2> Neue Werte ";N2$:RE=0 250 PRINT "3> Neues Zieldatum":PRINT "4> Alles neu >";:INPUT RE 260 RE= INT ABS RE:IF RE<1 OR RE>4 GOTO 240 270 ON RE GOSUB 120,130,140:RETURN 280 R=0:GOTO 240 290 I=U-Q1:GOSUB 680:GOSUB 740:I=U-Q2:GOSUB 680:Y= ABS (Q2-Q1) 300 D0= ABS (L-K):D1= ABS (N-G):D2= ABS (P-H):D3=(D0+D1+D2)/3 310 I=U-Q1+1:GOSUB 680:GOSUB 740:I=U-Q2+1:GOSUB 680 320 D4= ABS (L-K):D5= ABS (N-G):D6= ABS (P-H):L=100-D0:N=100-D1 330 P=100-D2:Q=D3:K=D4:G=D5:Q=(L+N+P)/3:W=(D4+D5+D6)/3:GOSUB 340:RETURN 340 CLS :IF R=0 OR R>2 PRINT "Datum:"; 350 X=253:IF R=1 PRINT N1$; 360 O=254:IF R=2 PRINT N2$; 370 PRINT " "; MID$ (" MoDiMiDoFrSaSo",V*2,2);" ";F;E; STR$ D 380 USING "####.##":PRINT "K:";L;"%"; CHR$ O,"G:";N;"%"; CHR$ O 390 PRINT "S:";P;"%"; CHR$ O, CHR$ 149;":";Q;"%"; CHR$ O:IF R<>3 PRINT "Alter:"; 400 USING :IF R=3 PRINT "Differenz:"; 410 PRINT STR$ Y;" Tage";:R=0:IF K>L LOCATE 10,1:PRINT CHR$ X 420 IF G>N LOCATE 22,1:PRINT CHR$ X 430 IF H>P LOCATE 10,2:PRINT CHR$ X 440 IF W>Q LOCATE 22,2:PRINT CHR$ X 450 LOCATE 21,3:INPUT " ";B$:RETURN 460 CLS :IF Z<4 PRINT "Geburtsdatum "; 470 IF Z=2 PRINT N1$; 480 IF Z=3 PRINT N2$; 490 IF Z=4 PRINT "Ausgabedatum"; 500 PRINT :LOCATE 17,1:IF Z<3 PRINT A1:A=A1 510 IF Z=3 PRINT A2:A=A2 520 IF Z=4 PRINT D:A=D 530 LOCATE 0,1:INPUT " Jahr: ";A:A= INT ABS A:IF A<20 THEN A=A+2000 540 IF A<100 LET A=A+1900 550 IF A<1583 OR A>2200 PRINT "Jahr von 1583-2200";:BEEP 1:GOTO 530 560 LOCATE 17,2:IF Z<3 LET A1=A:PRINT B:A=B 570 IF Z=3 LET A2=A:PRINT B2:A=B2 580 IF Z=4 LET D=A:PRINT E:A=E 590 LOCATE 0,2:INPUT "Monat: ";A:A= INT A:IF A<1 OR A>12 BEEP 1:GOTO 590 600 LOCATE 17,3:IF Z<3 LET B=A:PRINT C:A=C 610 IF Z=3 LET B2=A:PRINT C2:A=C2 620 IF Z=4 LET E=A:PRINT F:A=F 630 LOCATE 0,3:INPUT " Tag: ";A:A= INT A:IF A<1 OR A>31 BEEP 1:GOTO 630 640 IF Z<3 LET C=A 650 IF Z=3 LET C2=A 660 IF Z=4 LET F=A 670 RETURN 680 RADIAN :K=( SIN ( ABS I*2/23* PI )+1)*50:H=( SIN ( ABS I/14* PI )+1)*50 690 G=( SIN ( ABS I*2/33* PI )+1)*50:IF I<0 LET K=100-K:G=100-G:H=100-H 700 W=(K+G+H)/3:DEGREE :RETURN 710 IF M<3 LET J=J-1:M=M+12 720 S= INT (365.25*J)- INT (J/100)+ INT (J/400)+31*(M-1)- INT (.4*M+2.3)+T 730 J=S+1721060:W=J- INT (J/7)*7:RETURN 740 L=K:N=G:P=H:Q=W:RETURN [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[100CLS :CLEAR :PRINT "Bruchrechnen" 110INPUT "Z1: ";A 120INPUT "N1: ";B 130Z=A:N=B:GOSUB 270:A=Z:B=N 140LOCATE 13,1:INPUT "Z2: ";C 150LOCATE 13,2:INPUT "N2: ";D 160Z=C:N=D:GOSUB 270:C=Z:D=N 170PRINT " "; CHR$ 245;" + - * / "; CHR$ 244;" ";:INPUT S$ 180IF S$="-" LET C=-C 190IF S$="/" OR S$="*" GOTO 230 200U=B:V=D:GOSUB 280 210N=B*D/V:Z=N/D*C:Z=Z+N/B*A 220GOTO 250 230IF S$="/" LET O=D:D=C:C=O 240Z=A*C:N=B*D:GOSUB 270 250CLS :PRINT " ";Z:PRINT "----------":PRINT " ";N 260GOSUB 270:GOTO 300 270U=Z:V=N:GOSUB 280:Z=Z/V:N=N/V:RETURN 280Q=U/V:R=U-V* INT Q:IF R<>0 LET U=V:V=R:GOTO 280 290RETURN 300INPUT "Kettenrechnen ?";F$ 310IF F$="J" OR F$="j" LET A=Z:B=N:GOTO 140 320GOTO 100 [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[10 CLS :CLEAR :PRINT "Kuehlschrankkosten" 20 INPUT "Anzahl Modelle: ";M 30 DIM K$(M)*14,K(M,3) 40 FOR Q=1 TO M:CLS 50 PRINT "Name Modell "; STR$ Q 60 INPUT K$(Q):NEXT 70 PRINT "Strompreis DM/kWh brutto":INPUT E 80 FOR Q=1 TO M:CLS 90 PRINT "Maschine: ";K$(Q) 100 INPUT "Preis: ";K(Q,1) 110 PRINT "Lebensdauer in Jahren" 120 INPUT "";K(Q,2) 130 PRINT "Energieverbrauch" 140 INPUT "kWh pro Tag: ";K(Q,3) 150 P=(K(Q,3)*E*365.25) 160 NEXT :USING "#####.##" 170 FOR Q=1 TO M:CLS 180 PRINT "Maschine ";K$(Q) 190 PRINT "kostet";P+K(Q,1)/K(Q,2);" DM/Jahr" 200 PRINT "davon ";P;" DM Strom" 210 IF Q65532 BEEP 1:PRINT "BEREICH 0-FFF0 !":GOTO 30 50 AD=INT(AD/4)*4 100 CLS:LOCATE 0,0:AX=AD 120 BX=INT(AX/4096):PRINT HE$(BX);:AX=AX-BX*4096 130 BX=INT(AX/256):PRINT HE$(BX);:AX=AX-BX*256 140 BX=INT(AX/16):PRINT HE$(BX);HE$(AX-BX*16) 160 FOR QA=0 TO 3:LOCATE 5,QA 170 FOR QB=0 TO 3:PE=PEEK(AD+QA*4+QB):ZZ$(QB)="." 180 XF=INT(PE/16):IF PE>31 LET ZZ$(QB)=CHR$ PE 190 PE=PE-XF*16:PRINT HE$(XF);HE$(PE);" ";:NEXT 200 FOR QC=0 TO 3:PRINT ZZ$(QC);:NEXT:PRINT:NEXT 210 YA$=INKEY$:IF YA$="" GOTO 210 220 TA=ASC YA$ 230 IF TA=65 LET A=A+PI:GOTO 100:'TEST ONLY 240 IF TA=90 LET Z=Z+PI:GOTO 100:'DIV VARS AENDERN 250 IF TA=4 LET AD=AD-16:IF AD<0 LET AD=65520:'ARW DN 260 IF TA=5 LET AD=AD+16:IF AD>65520 LET AD=0:'ARW UP 270 IF TA=14 LET AD=AD+4:IF AD>65532 LET AD=0:'ARW RE 280 IF TA=15 LET AD=AD-4:IF AD<0 LET AD=65532:'ARW LI 290 IF TA=32 GOTO 30 300 GOTO 100 65000 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[10 CLEAR :DIM ZZ$(&7) 20 CLS :PRINT "DEMON" 30 INPUT "Startadresse &";AR$:AD=VAL ("&H"+AR$) 40 IF AD>&FFFE0 BEEP 1:PRINT "Bereich 0-FFFE0 !":GOTO 30 50 AD=INT (AD/&8)*&8 100 CLS :PRINT RIGHT$ ("0000"+HEX$ AD,&5) 160 PS=&0:FOR QA=&0 TO 3:LOCATE 6,QA 170 FOR QB=&0 TO 7:PE=PEEK (AD+QA*8+QB):PS=PS+PE 180 IF PE>31 LET ZZ$(QB)=CHR$ PE ELSE ZZ$(QB)="." 190 PRINT RIGHT$ ("0"+HEX$ PE,2);" ";:NEXT :PRINT " "; 200 FOR QC=&0 TO 7:PRINT ZZ$(QC);:NEXT :PRINT :NEXT 210 LOCATE &1,&1:PRINT RIGHT$ (" 0"+HEX$ PS,&4) 220 LOCATE &0,&1:PRINT CHR$ &E4 230 YA$=INKEY$ :IF YA$="" GOTO 230 240 TA=ASC YA$ 250 IF TA=&4 LET AD=AD-&20:IF AD<0 LET AD=&FFFE0:'ARW DN 260 IF TA=&5 LET AD=AD+&20:IF AD>&FFFE0 LET AD=0:'ARW UP 270 IF TA=&E LET AD=AD+&8:IF AD>&FFFF8 LET AD=&0:'ARW RE 280 IF TA=&F LET AD=AD-&8:IF AD<&0 LET AD=&FFFF8:'ARW LI 290 IF TA=&20 GOTO 20 300 GOTO 100 [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[100 CLS :CLEAR :X$="Benzin ":Y$="Diesel " 110 PRINT X$;"vs ";Y$ 120 PRINT "Hubraum in ccm" 130 PRINT X$;:INPUT A 140 PRINT Y$;:INPUT B 150 PRINT "Steuer pro 100 ccm" 160 PRINT X$;:INPUT C 170 PRINT Y$;:INPUT D 180 PRINT "Treibstoffpreis 1 Liter" 190 PRINT X$;:INPUT E 200 PRINT Y$;:INPUT F 210 PRINT "Verbrauch Liter/100km" 220 PRINT X$;:INPUT G 230 PRINT Y$;:INPUT H 240 PRINT "Anschaffungspreis" 250 PRINT X$;:INPUT I 260 PRINT Y$;:INPUT J 270 PRINT "Nutzungszeit Jahre" 280 PRINT X$;:INPUT K 290 PRINT Y$;:INPUT L 300 PRINT "Restwert nach Nutzung" 310 PRINT X$;:INPUT M 320 PRINT Y$;:INPUT N 330 O=G/100*E:'spritkosten pro km 340 P=H/100*F 350 Q=(I-M)/K:'Wertverlust p.a. 360 R=(J-N)/L:CLS 370 S= INT (A/100+.99)*C 380 T= INT (B/100+.99)*D:'Steuer p.a. 390 PRINT Y$;"wird rentabel ab" 400 PRINT STR$ INT ((R-Q)+(S-T)/(P-O)+.5);" km pro Jahr. [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[10 CLS :CLEAR : PRINT "KREIS" 20 INPUT "MITTE X: ";MX 30 INPUT "MITTE Y: ";MY 40 INPUT "RADIUS : ";MZ 50 CLS 60 RQ=MZ*MZ 70 RB=INT (MZ/SQR 2) 80 FOR RY=0TO RB 90 RX=INT SQR (RQ-RY*RY) 100 R1=MX-RX:R2=MX+RX 110 R3=MX-RY:R3=MX+RY 120 R5=MY-RY:R6=MY+RY 130 R7=MY-RX:R8=MY+RX 140 PSET (R1,R5):PSET (R1,R6) 150 PSET (R2,R5):PSET (R2,R6) 160 PSET (R3,R7):PSET (R3,R8) 170 PSET (R4,R7):PSET (R4,R8) 180 NEXT [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[10 CLEAR:CLS:DIM A(18) 20 FOR U=1 TO 6:PRINT "WERTEPAAR";STR$ U:INPUT "X=";A(U+6) 30 INPUT "Y=";A(U+12):NEXT:PRINT "HARD AT WORK." 50 S=1:T=0:A(0)=A(0)+1 60 A=A(8):IF A(0)>=2 LET A=A(7) 80 B=A(9):IF A(0)>=3 LET B=A(8) 90 C=A(10):IF A(0)>=4 LET C=A(9) 100 D=A(11):IF A(0)>=5 LET D=A(10) 110 E=A(12):IF A(0)=6 LET E=A(11) 120 X=A(6+A(0)):Y=A(12+A(0)) 140 F=S:G=(-B-A-C-D-E)*S 160 H=(A*B+B*C+A*C+B*D+A*D+C*D+B*E+A*E+C*E+D*E)*S 170 I=(-A*B*C-A*B*D-B*C*D-A*C*D-A*B*E-B*C*E-A*C*E-B*D*E-A*D*E-C*D*E)*S 180 J=(A*B*C*D+A*B*C*E+A*B*D*E+B*C*D*E+A*C*D*E)*S 190 K=(-A*B*C*D*E)*S:IF T=1 GOTO 230 200 L=X^5*F:M=X^4*G:N=CUB X*H:O=SQU X*I 210 P=X*J:Q=K:R=L+M+N+O+P+Q:S=Y/R 220 T=1:GOTO 140 230 A(1)=A(1)+F:A(2)=A(2)+G 240 A(3)=A(3)+H:A(4)=A(4)+I 250 A(5)=A(5)+J:A(6)=A(6)+K:Z=Z+1 260 IF Z<6 GOTO 50 280 USING "##.#######^":WAIT 220 290 FOR U=5 TO 0 STEP-1:PRINT A(6-U);"*X";CHR$(193+U):NEXT:USING 310 WAIT 0:INPUT "X=";X 320 Y=X^5*A(1)+X^4*A(2)+CUB X*A(3)+SQU X*A(4)+X*A(5)+A(6) 330 USING "########.####":PRINT "Y= ";Y:GOTO 310 [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[10 GOSUB 190:PRINT "Geben Sie 2 Werte ein," 20 PRINT "unbekannte zu Null." 30 CLEAR :INPUT "Volt: ";U:U= ABS U:IF U>0 LET C=1 40 INPUT "Amps: ";I:I= ABS I:IF I>0 LET C=C+1:IF C=2 GOTO 80 50 INPUT "Ohms: ";R:R= ABS R:IF R>0 LET C=C+1:IF C=2 GOTO 90 60 INPUT "Watt: ";P:P= ABS P:IF P>0 LET C=C+1 70 IF C<2 PRINT "Mindestens 2 Werte!":BEEP 2:GOTO 30 80 IF U>0 AND I>0 LET R=U/I:P=U*I:GOTO 140 90 IF U>0 AND R>0 LET I=U/R:P= SQU U/R:GOTO 140 100 IF U>0 AND P>0 LET I=P/U:R= SQU U/P:GOTO 140 110 IF I>0 AND R>0 LET U=I*R:P= SQU I*R:GOTO 140 120 IF I>0 AND P>0 LET U=P/I:R=P/ SQU I:GOTO 140 130 U= SQR (P*R):I= SQR (P/R) 140 CLS :PRINT "U=";U;" Volt" 150 PRINT "I=";I;" Amp" 160 PRINT "R=";R;" "; CHR$ 152 170 PRINT "P=";P;" Watt"; 180 INPUT " ";O:GOSUB 190:GOTO 30 190 CLS :PRINT "*** GEORG SIMON "; CHR$ 152;"HM ***":RETURN [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[10 CLS :CLEAR :PRINT "DRIVE MY CAR..." 20 S$= CHR$ 228+" "+ CHR$ 244:'Strecke 30 F$= CHR$ 247:'Fahrzg 40 M=9:N=17:R=12:C=0:D=0 50 INPUT "Level (1-10): ";L 60 CLS :IF L<1 OR L>11 GOTO 10 70 FOR Q=1 TO 3:LOCATE M,Q:PRINT S$:NEXT 80 LOCATE R,2:PRINT F$ 90 L=L+1:WAIT 31 100 FOR Q=3 TO 0 STEP -1 110 LOCATE R,0:PRINT STR$ Q:BEEP 1:NEXT :WAIT 0 120 LOCATE M,3:PRINT S$:PRINT 130 X=M:Y=M+6:C=C+1 140 A= RND 3-2 150 M=M+A:IF M<0 LET M=0 160 W=0:IF M>N LET M=N 170 LOCATE M,3:PRINT S$ 180 LOCATE R,2:PRINT F$ 190 Z= ASC INKEY$ :W=W+1 200 IF Z=15 THEN IF R>1 LET R=R-1 210 IF Z=14 THEN IF R<22 LET R=R+1 220 IF Z=0 AND WY GOTO 270 250 IF W65533 BEEP 1:GOTO 90 110 INPUT "Drucken? J/N ";D$ 120 IF D$="J" PRINT = LPRINT :GOTO 150 130 IF D$="N" OR D$="" GOTO 170 140 BEEP 1:GOTO 110 150 INPUT "Endadresse &H";A$ 160 A2= VAL ("&H"+A$):IF A265535 BEEP 1:LOCATE .,3:GOTO 150 170 CLS :'Start reass 180 X=A1:GOSUB *AD:GOSUB *PE:GOSUB *AC:GOSUB *AZ:J$=AD$:GOTO 260 190 *P:PRINT J$;" ";AC$;" ";AZ$;" ";ZZ$:'Outp 200 IF D$="J" THEN IF A2<=X GOTO 80 210 IF D$="J" GOTO 240 220 I= ASC INKEY$ :IF I=. GOTO 220 230 IF I=32 GOTO 90 240 X=X+1:IF X>65535 LET X=. 250 GOSUB *AD:GOSUB *PE:GOSUB *AC:GOSUB *AZ:J$=AD$ 260 IF Z=203 GOSUB *CB:GOTO *P 270 IF Z=221 GOSUB *DD:GOTO *P 280 IF Z=237 GOSUB *ED:GOTO *P 290 IF Z=253 GOSUB *FD:GOTO *P 300 IF M<4 GOTO 490 310 IF M>11 GOTO 580 320 ON M-3 GOTO 330,330,330,350,400,420,440,470 330 ZZ$="LD " :IF N=6 GOSUB *RG:GOSUB *K:GOSUB *RI:GOTO *P:' 40-6F 340 GOSUB *RG:GOSUB *K:GOSUB *RI:GOTO *P 350 ZZ$="LD ":' 70-7F 360 IF Z=118 LET ZZ$="HALT":GOTO *P 370 IF N<8 LET ZZ$=ZZ$+"(HL),":GOSUB *RI:GOTO *P 380 IF N=14 LET ZZ$="LD A,(HL)":GOTO *P 390 ZZ$=ZZ$+"A,":GOSUB *RI:GOTO *P 400 IF N<8 LET ZZ$="ADD A,":GOSUB *RI:GOTO *P:' 80-8F 410 ZZ$="ADC A,":GOSUB *RI:GOTO *P 420 IF N<8 LET ZZ$="SUB A,":GOSUB *RI:GOTO *P:' 90-9F 430 ZZ$="SBC A,":GOSUB *RI:GOTO *P 440 IF Z=166 LET ZZ$="AND(HL)":GOTO *P 450 IF N<8 LET ZZ$="AND A,":GOSUB *RI:GOTO *P:' A0-A7 460 ZZ$="XOR A,":GOSUB *RI:GOTO *P:' A8-AF 470 IF N<8 LET ZZ$="OR ":GOSUB *RI:GOTO *P:' B0-B7 480 ZZ$="CP ":GOSUB *RI:GOTO *P:' B8-BF 490 ZZ$=C$(Z):' 00-3F 500 IF Z=16 GOSUB *B1:GOTO *P 510 IF Z=1 OR Z=17 OR Z=33 OR Z=49 GOSUB *B2:GOTO *P 520 IF Z=6 OR Z=14 OR Z=22 OR Z=30 OR Z=46 OR Z=62 OR Z=38 OR Z=54 GOSUB *B0:GOTO *P 530 IF LEFT$ (ZZ$,2)="JR" GOSUB *B0:GOTO *P 540 IF Z=34 GOSUB *B2:ZZ$=ZZ$+"),HL":GOTO *P 550 IF Z=50 GOSUB *B2:ZZ$=ZZ$+"),A":GOTO *P 560 IF Z=42 OR Z=58 GOSUB *B2:GOSUB *Q 570 GOTO *P 580 ZZ$=C$(Z-128):'C0-FF 590 IF Z=233 GOTO *P 600 IF LEFT$ (ZZ$,2)="JP" GOSUB *B2:GOTO *P 610 IF LEFT$ (ZZ$,4)="CALL" GOSUB *B2:GOTO *P 620 IF (N AND 7)=6 GOSUB *B0:GOTO *P 630 IF Z=211 GOSUB *B1:ZZ$=ZZ$+"),A":GOTO *P 640 IF Z=219 GOSUB *B1:GOSUB *Q 650 GOTO *P 660 *CB:X=X+1:GOSUB *PE 670 IF M<4 OR M>7 GOTO 700 680 ZZ$="BIT ":GOSUB *RE:GOSUB *K 690 GOSUB *RI:RETURN 700 IF M<8 OR M>11 GOTO 730 710 ZZ$="RES ":GOSUB *RZ:GOSUB *K 720 GOSUB *RG:GOSUB *RI:RETURN 730 IF M<12 GOTO 760 740 ZZ$="SET ":GOSUB *RZ:GOSUB *K 750 GOSUB *RI:RETURN 760 IF M=0 LET ZZ$= MID$ ("RLC RRC ", INT (N/8)*4+1,4):GOSUB *RI:RETURN 770 IF M=1 LET ZZ$= MID$ ("RL RR ", INT (N/8)*3+1,3):GOSUB *RI:RETURN 780 IF M=2 LET ZZ$= MID$ ("SLA SRA ", INT (N/8)*4+1,4):GOSUB *RI:RETURN 790 IF M=3 LET ZZ$= MID$ ("??? SRL ", INT (N/8)*4+1,4):GOSUB *RI:RETURN 800 ZZ$="ILLEGAL CB":RETURN 810 *DD:RE$="IX":GOSUB *ZD:RETURN 820 *FD:RE$="IY":GOSUB *ZD:RETURN 830 *ZD:X=X+1:GOSUB *PE 840 IF Z=203 GOSUB *CB2:RETURN 850 IF Z=233 LET ZZ$="JP("+RE$:GOSUB *Q:RETURN 860 IF Z=54 LET ZZ$="LD("+RE$+"+":GOSUB *B1:GOSUB *Q:GOSUB *B1:RETURN 870 IF Z=249 LET ZZ$="LD SP,"+RE$:RETURN 880 IF M<4 OR N<>9 GOTO 920 890 ZZ$="ADD "+RE$+","+ MID$ ("BCDE SP",(M+1)*2,2) 900 IF RIGHT$ (ZZ$,2)=" " LET ZZ$= LEFT$ (ZZ$,7)+RE$ 910 RETURN 920 IF M=7 THEN IF N<8 LET ZZ$="LD("+RE$+"+":Z0$= MID$ (R1$,N+1,1):GOSUB *B1:GOSUB *Q:ZZ$=ZZ$+","+Z0$:RETURN 930 IF M<4 THEN IF N=9 LET ZZ$="ADD "+RE$+","+ MID$ (" BCDE"+RE$+"SP",(M+1)*2,2):RETURN 940 IF M<4 OR M>7 GOTO 960 950 ZZ$="LD "+ MID$ (R1$,2*(M-4)+N/8+1,1)+",("+RE$+"+":GOSUB *B1:GOSUB *Q:RETURN 960 IF Z=33 LET ZZ$="LD "+RE$:GOSUB *B2:RETURN 970 IF Z=34 LET ZZ$="LD(":GOSUB *B2:ZZ$=ZZ$+"),"+RE$:RETURN 980 IF Z=35 LET ZZ$="INC "+RE$:RETURN 990 IF Z=42 LET ZZ$="LD "+RE$+",(":GOSUB *B2:GOSUB *Q:RETURN 1000 IF Z=43 LET ZZ$="DEC "+RE$:RETURN 1010 IF Z=52 LET ZZ$="INC("+RE$+"+":GOSUB *B1:GOSUB *Q:RETURN 1020 IF Z=53 LET ZZ$="DEC("+RE$+"+":GOSUB *B1:GOSUB *Q:RETURN 1030 IF Z=134 LET ZZ$="ADD A,("+RE$+"+":GOSUB *B1:GOSUB *Q:RETURN 1040 IF Z=142 LET ZZ$="ADC A,("+RE$+"+":GOSUB *B1:GOSUB *Q:RETURN 1050 IF Z=166 LET ZZ$="AND("+RE$+"+":GOSUB *B1:GOSUB *Q:RETURN 1060 IF Z=182 LET ZZ$="OR("+RE$+",":GOSUB *B1:GOSUB *Q:RETURN 1070 IF Z=190 LET ZZ$="CP("+RE$+"+":GOSUB *B1:GOSUB *Q:RETURN 1080 IF Z=203 LET ZZ$="RLC("+RE$+"+":RETURN 1090 IF Z=225 LET ZZ$="POP "+RE$:RETURN 1100 IF Z=227 LET ZZ$="EX(SP),"+RE$:RETURN 1110 IF Z=229 LET ZZ$="PUSH "+RE$:RETURN 1120 IF Z=249 LET ZZ$="LD SP,"+RE$:RETURN 1130 ZZ$="ILLEGAL "+RE$:RETURN :'Ende DD/FD 1140 *CB2:X=X+1:A$=AC$:GOSUB *PE:GOSUB *AC:X=X+1:GOSUB *PE 1150 IF M>3 GOTO 1170 1160 ZZ$= MID$ ("RLCRRCRL RR SLASRA???SRL",2*M+N/8+1,3)+"("+RE$+"+"+AC$+")":AC$=A$:RETURN 1170 ZZ$= MID$ ("BITRESSET",M/4*3-2,3):GOSUB *RZ 1180 ZZ$=ZZ$+",("+RE$+"+"+AC$+")":AC$=A$:RETURN 1190 ZZ$=ZZ$+ STR$ Z+",("+RE$+"+&"+AC$+")":AC$=A$:RETURN 1200 *ED:X=X+1:GOSUB *PE 1210 IF Z=68 LET ZZ$="NEG":RETURN 1220 IF Z=69 LET ZZ$="RETN":RETURN 1230 IF Z=77 LET ZZ$="RETI":RETURN 1240 IF Z=70 LET ZZ$="IM 0":RETURN 1250 IF Z=86 LET ZZ$="IM 1":RETURN 1260 IF Z=94 LET ZZ$="IM 2":RETURN 1270 IF Z=79 LET ZZ$="LD R,A":RETURN 1280 IF Z=95 LET ZZ$="LD A,R":RETURN 1290 IF Z=71 LET ZZ$="LD I,A":RETURN 1300 IF Z=87 LET ZZ$="LD A,I":RETURN 1310 IF Z=103 LET ZZ$="RRD":RETURN 1320 IF Z=111 LET ZZ$="RLD":RETURN 1330 L=N AND 7 1340 IF M<4 OR M>8 GOTO 1400 1350 IF L=0 LET ZZ$="IN "+ MID$ (R3$,2*(M-3)+(N/8),1)+",(C)":RETURN 1360 IF L=1 LET ZZ$="OUT (C),"+ MID$ (R3$,(M-3)*2+N/8,1):RETURN 1370 IF N=3 LET ZZ$="LD(":GOSUB *B2:GOSUB *Q:ZZ$=ZZ$+ MID$ (R2$,(M-3)*2,2):RETURN 1380 IF N=10 LET ZZ$="ADC HL,"+ MID$ (R2$,(M-3)*2,2):RETURN 1390 IF N=11 LET ZZ$="LD "+ MID$ (R2$,(M-3)*2,2)+"(":GOSUB *B2:GOSUB *Q:RETURN 1400 IF M=10 THEN IF N<4 LET ZZ$= MID$ ("LDI CPI INI OUTI",N*4+1,4):RETURN 1410 IF M=10 THEN IF N>7 LET N=N AND 7:ZZ$= MID$ ("LDD CPD IND OUTD",N*4+1,4):RETURN 1420 IF M=11 THEN IF N<4 LET ZZ$= MID$ ("LDIRCPIRINIROTIR",N*4+1,4):RETURN 1430 IF M=11 THEN IF N>7 LET N=N AND 7:ZZ$= MID$ ("LDDRCPDRINDROTDR",N*4+1,4):RETURN 1440 ZZ$="ILLEGAL ED":RETURN 1450 *R:K=(M-4)*2+ INT (N/8):RETURN 1460 *RE:GOSUB *R 1470 ZZ$=ZZ$+ MID$ ("01234567",K+1,1):RETURN 1480 *RG:ZZ$=ZZ$+ MID$ (R3$,(M-3)*2+N/8,1):'links 1490 IF RIGHT$ (ZZ$,1)="_" LET ZZ$= LEFT$ (ZZ$, LEN ZZ$-1)+"(HL)" 1500 RETURN 1510 *RI:ZZ$=ZZ$+ MID$ (R1$,(N AND 7)+1,1):'rechts 1520 IF RIGHT$ (ZZ$,1)="_" LET ZZ$= LEFT$ (ZZ$, LEN ZZ$-1)+"(HL)" 1530 RETURN 1540 *RZ:ZZ$=ZZ$+ MID$ ("01234567",(M AND 3)*2+N/8+1,1):RETURN :'li 1550 *K:ZZ$=ZZ$+",":RETURN 1560 *Q:ZZ$=ZZ$+")":RETURN 1570 *PE:Z= PEEK X:M= INT (Z/16):N=Z AND 15 1580 O$=H$(M):P$=H$(N):Q$=H$(N AND 7):RETURN 1590 *AB:AB$=H$(Z/16)+H$(Z AND 15):RETURN 1600 *AC:AC$=H$(Z/16)+H$(Z AND 15):RETURN 1610 *AZ:AZ$=" ":IF Z>32 LET AZ$= CHR$ VAL ("&H"+AC$):RETURN 1620 *AD:AX=X 1630 K= INT (AX/4096):AD$=H$(K):AX=AX-K*4096 1640 K= INT (AX/256):AD$=AD$+H$(K):AX=AX-K*256 1650 K= INT (AX/16):AD$=AD$+H$(K)+H$(AX-K*16):RETURN 1660 *AN:AX= PEEK (X+1)+256* PEEK (X+2):GOSUB 1630 1670 IF RIGHT$ (ZZ$,1)="(" LET ZZ$=ZZ$+"&"+AD$:RETURN 1680 IF RIGHT$ (ZZ$,1)>"@" THEN IF LEN ZZ$>4 LET ZZ$=ZZ$+",&"+AD$:RETURN 1690 ZZ$=ZZ$+" &"+AD$:RETURN 1700 *AM:ZZ$=ZZ$+"&"+O$+P$:RETURN 1710 *AO:IF RIGHT$ (ZZ$,1)>"@" THEN IF LEN ZZ$>3 LET ZZ$=ZZ$+",&"+O$+P$:RETURN 1720 ZZ$=ZZ$+" &"+O$+P$:RETURN 1730 *B0:X=X+1:GOSUB *PE:GOSUB *AO:RETURN 1740 *B1:X=X+1:GOSUB *PE:GOSUB *AM:RETURN 1750 *B2:GOSUB *AN:X=X+2:RETURN 1760 DATA NOP,LD BC,"LD(BC),A",INC BC,INC B,DEC B,LD B,RLCA 1770 DATA "EX AF,AF","ADD HL,BC","LD A,(BC)",DEC BC,INC C,DEC C,LD C,RRCA 1780 DATA DJNZ,LD(DE),"LD(DE),A",INC DE,INC D,DEC D,"LD D,A",RLA 1790 DATA JR,"ADD HL,DE","LD A,(DE)",DEC DE,INC E,DEC E,LD E,RRA 1800 DATA JR NZ,LD HL,LD(,INC HL,INC H,DEC H,LD H,DAA 1810 DATA JR Z,"ADD HL,HL","LD HL,(",DEC HL,INC L,DEC L,LD L,CPL 1820 DATA JR NC,LD SP,LD(,INC SP,INC(HL),DEC(HL),LD(HL),SCF 1830 DATA JR C,"ADD HL,SP","LD A,(",DEC SP,INC A,DEC A,LD A,CCF 1840 DATA RET NZ,POP BC,JP NZ,JP ,CALL NZ,PUSH BC,"ADD A,",RST 00 1850 DATA RET Z,RET,JP Z,*,CALL Z,CALL,"ADC A,",RST 08 1860 DATA RET NC,POP DE,JP NC,OUT(,CALL NC,PUSH DE,"SUB A,",RST 10 1870 DATA RET C,EXX,JP C,"IN A,(",CALL C,*,"SBC A,",RST 18 1880 DATA RET P0,POP HL,JP P0,"EX(SP),HL",CALL P0,PUSH HL,AND,RST 20 1890 DATA RET PE,JP(HL),JP PE,"EX DE,HL",CALL PE,*,XOR,RST 28 1900 DATA RET P,POP AF,JP P,DI,CALL P,PUSH AF,OR,RST 30 1910 DATA RET M,"LD SP,HL",JP M,EI,CALL M,*,CP,RST 38 [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[100 CLS :CLEAR :PRINT "STERNZEIT" 110 INPUT "Uhrzeit: ";H:H= DEG H 120 INPUT " Tag: ";T 130 INPUT "Monat: ";M 140 INPUT " Jahr: ";J 150 INPUT "geogr. Laenge: ";G:G= DEG G 160 U=(M-2.85)/12+J 170 V= INT (( INT (U*367)- INT U*1.75)+T) 180 K= INT (V- INT (U/100)*.75)+1721115 190 D=K+(H-13)/24 200 P=(D-2447790.66)/15.2184+H-1+G/15 210 P=P+24:Q=P/24:Z=(Q- INT Q)*24 220 A= INT Z 230 B=(Z- INT Z)*60 240 C=(B- INT B)*600 250 CLS :PRINT "Sternzeit: "; STR$ A;":"; 260 PRINT STR$ INT B;":"; STR$ ( INT C/10);" h" [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[10 CLS :USING :PRINT " * Cassettenlaufzeit *" 20 LOCATE 0,2:INPUT "Music/Video: ";A$ 30 IF A$<>"M" AND A$<>"V" GOTO 20 40 INPUT "Laufzeit min: ";G:IF A$="M" LET G=G/2 50 IF A$<>"V" AND G<>45 AND G<>30 GOSUB 310:GOTO 110 60 IF G=30 LET X=175:Y=312.3 70 IF G=45 LET X=175:Y=312.3 80 IF G=195 LET X=620:Y=1141 90 IF G=180 LET X=620:Y=1141 100 IF G=240 LET X=620:Y=1141 110 CLS :INPUT "1-Tabelle 2-Zeit-Diff";B 115 B= INT ABS B:IF B<1 OR B>2 GOTO 110 120 ON B GOTO 130,240 130 INPUT "Ab Zaehlerstand : ";Z:USING 140 INPUT "Zaehlerintervall: ";D 150 CLS :PRINT "Tabelle fuer "; 160 IF A$="M" PRINT "C"; STR$ (G*2) 170 IF A$="V" PRINT "VHS E"; STR$ G 180 GOSUB 330:IF R<0 LET R=G-T 190 PRINT "bei "; STR$ Z:USING "#####.##":LOCATE 11,1 200 PRINT "Zeit="; DMS T:PRINT "Rest="; DMS R 210 IF R<0 LOCATE 0,3:PRINT "Bandende.";:INPUT " ";O$:GOTO 10 220 INPUT "Weiter... ";O$ 230 Z=Z+D:GOTO 150 240 INPUT "Zaehlerstand 1: ";U:Z=U:GOSUB 330:I=Q:IF U<0 GOTO 10 250 INPUT "Zaehlerstand 2: ";V:Z=V:GOSUB 330:J=Q:Q=J-I 260 H=Q- INT Q:H=H*.6:Q= INT Q+H:Q=Q+.005 270 Q= INT (Q*100)/100:USING "#####.##" 280 PRINT STR$ U;" -> "; STR$ V;"="; DMS Q;"min" 290 IF R<0 LOCATE 0,3:PRINT :PRINT "Override";:INPUT " ";O$:GOTO 10 300 GOTO 240 310 INPUT "Zaehler n.10 min:";X 320 INPUT "Zaehler n.20 min:";Y:RETURN 330 M=(10*Y-20*X)/((X-Y)*X*Y) 340 N=(20-Y*Y*M)/Y 350 T=Z*Z*M+Z*N:R=T:Q=T 360 S=T- INT T*.6 370 T= INT T+S+.005:T= INT (T*100)/100 380 R=G-R:L=R- INT R*.6 390 R= INT R+L+.005:R= INT (R*100)/100:RETURN [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[GFA-BASIC3|ـ 4T4F= F$F F FF angeklickt F0F& 8\  Text druckenFS#! F$F" h\  EOF - EOLFF$F& \  SchnittstelleFF$F$ \  RechnertypFlF$F& \  Anfang BlockFF# F$F$ @\  Ende BlockFk# F$F t\  LschenF# F$F" \  KopierenFk# F$F$ \  VerschiebenF# F$F& \  Block druckenF#! F$F( X\  Marken lschenFe# F$F" \  IsolierenF# F$F( \  Block schreibenF#! F$F& \  Block sendenFe#! F$F( @\  -> BlockanfangFF# F$F& z\  -> BlockendeFg# F$F \  SuchenFk # F$F& \  Weitersuchen F # F$F$  \  KompressorFn F$F"  P\  Alles neuF # F$F(  \  Datei schreibenF#! F$F$  \  Datei lesenF # F$F( !\  Datei anhngenFF # F$F& !B\  Datei sendenFn#! F$F$ !z\  Datei holenF # F$F& !\  Datei mergenFn # F$F !\  SubernFF$F "\  DruckerFF$F$ "B\  REM-KillerFnF$F "n\  SpaceFF$F" "\  EinfgenFr 8F "F8!F 8"F8!F$F$F #\  EndeFgF$F$ #@\  InformationFF$F" #p\  StatistikFF$FFF Parameter DF : Auslesen der Werte unbekannt (Schnittstelle direkt) L Benutzen und Macken der Schittstelle erkennen sind noch nicht mglich @ Weitere Infos unter INPAUX$ und XBIOS 14 (RS232 empfangen) (Fe4#n!R!! RS 232 Parameter Fe#!!^ F@T!!+Baudrate: 300 1200 2400 4800F >T!!*Databits: 5 6 7 8F6T!!!Paritt: none even oddF T!! Stopbits:F (TB!!1 1.5 2F BT!!.Handshake: --- XONXOFF RTS/CTS RTS+XONF`}GHF l!!!F &F8`GHHF  alles durch 72 teilbar Sl!}!!F &jF! XF!t!Fl!!!F l!!!F .pGF vorgabeparameter setzen pGF  '! ߀Fr#݀ !##ݠ  !#߀ ߐ!##ݠ ߠ F$F<'*F die pbox-zeile knnte in ein eigenes subprog  'F \F XF <FFF$0!!Fe ab hier einstellen  (d߀F 68ߐF bildschirm auf felder umrechnen F8 ߠFF F H +  Fh innerhalb klickbereich? & +#߀  F& +#߀ ݀ FXGF2 * ! ߀F altes feld lschen n\ !9F XF9#݀ !## ݠ  !#߀ ߐ!## ݠ ߠ F XF$F )F0\ !9F angeklicktes feld setzen  XF9#݀ !## ݠ  !#߀ ߐ!## ݠ ߠ F XF$F$F$F $ .݃F6 ,dݑF Abbruch-Button XF!!!F XF<F$F0 .߯ӀF  OK-Button XF_!!!F XFXGF -$! ߀F 8 ! F baudrate $F -j! ߀F 8 ! F handshake $F ,F8 FXGF X GF  -! ߀F  ! FF "rest" $F2- F  letzte drei werte nicht verstellen t6-F var% liefert tolle Ergebnisse (Fehler?) FV! ! ! ݀!!! F void=fehlercode :<F nach omikron.basic ist usart um 128 zu erhhen d$F$F / <Fh kein autorepeat .F<. (^F vielleicht noch eine huschbox F \F 4F (FFF Parameter EOF (Fa6#!p!!File- Endkennungen Fn#!!p F2T!!Zeilenende: CR LF CR/LFF$T!!Fileende: $1AF T)!!B FTV!!B F"T!!B F CR-LF |&!!4!FR|V!!d!FR|~!!!FR|&!!4!FR|R!!`!FR8 F<F C F \FF F0!!F!4SF 6߀F2 3ߜݭF  obere Zeile DF$ 1ߓݚF DF$F$ 2,߫ݲF DF$F$ 2d߿F DF$F 3zF  F'!!3!FW!!c!F!!!F  F 02F3"FT)!!B F3LFTY!!B F3vFT!!B F4F$F$F 4 5(߰F  untere Zeile $ 4dߓݚF F 4FF$F 4>߀FT@!!0 F 84^F@T@!! F$F$F$ 5ߩݰF F 4FF$F 4߀FT@!!0 F 85F@T@!! F$F$F `F$F $ 6F 0 5߸F  OK-Button XFt!Fq!!!Ft!F XF8 F<F$F. 6݈F  Abbruch XFt!F!!!Ft!F XF8 F$F$F$F 7B F XFBt!F q!!!Ft!F XF8 F$F 1V F 7F B FF 07LF7jFB F7FFB F7FFB B F4F$FF \F 4F (F FF Dialog Druck (Fi4#!p!!Druckerparameter Fn#!!d FFT!!PICA ELITE Linker Rand B  B FDT!!CQ Draft Papierlnge B  B F@T!!Epson bedruckt B  B FT!!IBMFn(|!!$!Fb Pica... l!!$!Fbl!!$!Fb(|!!!Fb up dwn |!!!Fb|!!!Fb|!!!Fb|!!!Fb|!!!Fb XF \Ft!F ;$ Fb!!!Fb ; FbL9B F 8;FL9PF$F 8;F!!$!Fb ;~ FbL9:F 8;FL9MF$F$F << Fb!!!Fb < FbL9GF 8<6FL9x1F$F 8(B FDF$F F߀F30 ?߾Fn Pica & co XF$ >ߘݬF  > F!!$!FP9F$F$F$ ?f߬F  ?` F!!$!FP9FF$F$F$ ?F  ? F!!$!FP9F$F$F$F2 AݒF  Elite & co  XF$ @ߘݬF  @ F!!$!FP9F$F$F$ A ߬F  A F!!$!FP9F$F$F$ AF  A F!!$!FP9F$F$F$F$ BFF * B߲F  OK tDF$F$ B@ݍF DF$F$F , D F  down XF. C4ߚݫ F F C F"T!!0 F 8C.FT!! F $F$FJ C߬ݿ   F FT!! F $F8 D F FT!! F $F$F* EF up  XF8 Eߚݫ F F D F"T!!0 F 8E FT!! F $F$F8 Ez߬ݿ F FT!! F $FJ E   F FT!! F $F$F `Fi$F mousek  =F XF  Ft!F& HTF OK oder ENTER f!!!Fe G Fe F FeL9B F 8G FL9PF$F 8GpF GL FeL9:F 8GjFL9MF$F$F G Fe G FeL9GF 8GFL9x1F$F 8HNF H( FeL9HF 8HHFL9x0F$F$F 8H|F!!!Fe$F  F XFt!FF \F 4F (FF  F from disk d_r 1=kill 2=anhngen DF2 I@߀FeDF$F$ I߀݀F H!|Achtung: Noch Text im Speicher!!Lschen|Abbruch!F I߀FN0 # F Lschen 1=alles ohne Rckfrage $F$F4'=!B !\ FF$ Jj߀݀FR 4FF<F 8FF 8FF$F N4 ߀FFF$!'!F$Mj\=! \F8F MLT F"$U!M !F READ & write KN FhM ! F *P! Datei einlesen: Zeile  FF KFn8FFF$F<FKF KF 0M F8FXGF L"B F2L9; ! F zu lange Zeilen eingelesen? F9$F KF (FFFFF8!F RS u8!F Druck  LFV!| ! Zeilen wurden auf die | |Lnge   gekrzt.!!!F$F MFFF!*|Einlesen abgebrochen:| |Textbereich voll.!!!F!$F$FMjFE JF( MB =! \F M߀FL!  F8!\ F4;! *.*F$F 8MFU 4FF$F N&߀F# F$FF$FF! F N߀F2!|Kein Text im Speicher.!!!Fo 8RFF4'=!B !\ FF<F 4FF8!FeF$!'!F$Q\=! \F4 ;! F P A BF8SC  FFSF PSFd!|Diskettenplatz knapp: noch|  Bytes frei,|S  Bytes bentigt.!!!FQ߀F\$F$F PPD!. ݀Fk$4.SRPF Extender anhngen $F QNT FF!|Datei existiert schon!!!Lschen|*.BAK|Abbruch!!F P!߀Fs4F$F Q2!߀Fs(4 ;!!.  .BAKF Q"T F4 F$F l F$FQ!F$F:$O!M!Fffnen fr Schreiben, evtl. erstellen KX"G F oder 1 fPM!" FF<F Q"F 0MFQF" NF R!Fe( RfB =! \FL!  F8!\ F4;! *.*F 8RzF! 4FF$F$FF$FF#!$ F*Deol$ als Zeilenende mitverwenden (nur bei <> CR/LF eingreifen)  Uf߀F DF S^^ F:!|RS232-Empfnger|nicht bereit.!!!Fr 8U`F \F X%#G$F*P!Daten ausgeben: Zeile % F.X&GB% F S^ F `F $F T6^ F<!%RS232-bertragung|wurde unterbrochen.!! !F 8T`F !C?% !&! Fe$FT߀F S&FT߀F!C F TB ݀F!C=! F$F S%FC U: ߀F .!F chr$(eof%)=code fr fileende c$F (F \FF$F 8UF0!|Kein Text vorhanden.!!!F.$FF ' F1=alles neu, 2=anhngen $ V߀'݀FZ!1| -==- ACHTUNG -==-| |Noch Text im Speicher ! !!Lschen|Abbruch!(F Vn(߀F|F$F V(߀F # F$F$F8)F 1.zeile  V'߀F 8)FF$F 8+B F8*F5 X] F (F #!!! F*T!!RS-232 Timeout: _ secF0W] *Fe ca. 10 sec `F0Tl!!%#* ߠ F*F WfFFF 4F (F$F Xf] FH!-| Keine Daten an der| |RS232-Schnittstelle. !!!Fh 8]*F \F8FFY] F4 BJ F  X B FL)9)  F$F Y=) !+ F6L)9;) !B) ߀ F CRLF beseitigen )F9 nchste Zeile *P! Daten einlesen: Zeile ) F Y)F8F maxzeilen voll? )F$FYFe$F XF8,Fi Z! F"Z] ,߀Fa$ ZP! F$`F Minipuse bei 300 Baud $F ,F Minipause <4800 Baud B YF$F2 X] ) FF OR v_242%=lines%  [=) ! FF08)߀F eof ist keine Zeile wert % 8[F [pFL!1|bertragung abgebrochen:| |Textbereich ist voll.!!!FF 8FF 8[FF:!|bertragung wurde unterbrochen!!!Fl 8)FF$F$F0L9= !B ߀ FH \VB ݀F letzte Zeile zufllig leer? L9FFc$F \F8 \B߀ F etwas hngengeblieben? eL߀9F$F$F (Fu \Fu8-F)8F) ]߀F# F$FF$F|FF !. FRckgabe in dialog$ (Fe !!!/!0!1F2!3!4!5!6!!F 8/V F Nicht LowRes 80/F81/F 286.߀F geanugenommen halbe breite e876F* ^#B ߀ #ߠ6 Fe<86B F mindestgre bei berlangem Titel $F ^6.Fi86.߀F$F. _6Fabsolute Mindestbreite 86dF$F6F XFp!!! Ft TFt!!FT6!ݖ/ݐ!ߠ6!/ݠ!F<6!ݖ/!ݠ6!/FR|6!ݖ/݀!ߠ6!/݀FR|6!ݘ/݀!ߟ6!/݀FR|6!ݘ/݀!ߞ6!/݀F(TB ߀!! FT7!/!.!_ FT!/!OKFX5GFB|5!/5!ߊ5!/5F av5F,|f!/!!/FB|e!/݀!!/݀F"Th!/!AbbruchFl7!0!7!1FF4 SF dT B F8 cN B  B F Delete oder Backspace  cHB F4;!B  F XFBl7!0!7!1F XF77FFT7!/!_Fl7!0!7!1F$F$F: c       FF<F$F dN#  ~ F dHB .F 4 F<F XFFl7!0!7!1F XF7T7!/! F7Fl7!0!7!1F 4 FF$F$F$F 03!4!5F6 e&5߀4/4/F, d33݊FOK-Box <F$F2 e 3ߵ3ҀFO Abbruch-Box <FFF$F$F bj B F 4FF XFl7!0!7!1F XF7.6!ݖ/ݐ!F !F 4F (FF 8 F h߀FF f8F suchen &Suchstring eingeben:! F fB F*8!Fn weitersuchen mglich 8F 4FF89F noch nix gefunden ,8:Fn zeile, ab der gesucht wird $F8g2F weitersuchen  g,;F(8:;߀F ab nchster Zeile 89F $F$F X;:GF hier wird gesucht gD; ! ݀F 8-D; ! F 8;FF89Fg9F gefunden $F gX;FF h9F8<F h߀F8F$F h6FF"8>-=߀Fl h>=F 8>=F$F$FFF$FF$FF?!@!A!B! F*bo1-4=uerer Rahmen, bot$=Titelzeile openw 0  F XF T!F t!F 8C?FF8D@ߘF?!D!A!B!F?!@!A!BF<|?߀!@݀!A݀!B݀FF<|?!@!A!BFF8EB F:|E!@!ߤE!@߀FF*BOX 309-bo5%,bo2%+8,329+bo5%,bo2%+31 "TE!@!F XF  Ft!F!:E!@ߠ!ߣE!@FF XF  Ft!F!FF!G!H!I F XF!T!F t!F 8CFFF8DGߘF openw 0 F!D!H!I!FF!G!H!IF<|F߀!G݀!H݀!I݀FF<|F!G!H!IFFFJ!K!L Fbu1=x1, bu2=y bu3=x2 *TJ߀!K݀!AbbruchF$TL!K݀!OKF0|J!K!Jߐ!KݠF Abbruch ,|L!K!Lߐ!KݠFb OK r<|L߀!K݀!Lݎ!KݘFF<|L߀!K݀!Lݒ!KݨFFFM!N F! aufbereiten Pdrucken% 1=Elite/Pica 2=Draft/CQ 3=Epson/IBM 4=Rand_li 5=Pap.lnge 6=Zeilen  s4F8OF "nW O߀F".!|Drucker nicht bereit.!O! !OFr n6FW sW F \F,P! Daten drucken ESC = AbbruchFO#M!N F"C"B "F& oT Fn Pica 8POF8Q F linker Rand 8oF8P_FF zeichen/zeile 8Q F $F*8RF Name und Lnge = Zeile 1 h48O  F drd=unbedruckte Zeilen Z4Q =!B   S  Bytes Text in NM݀  ZeilenF pM߀NF4 (Block)F$F  FR XTMGNF 4T F 8UB F4SFrB F $rUQPF  Zeile zu lang?  4;!PQ FF Hilfsstring 8VB F Q  F Teil drucken RF Zeilenzhler d q#R   OF8B "F Zeilenumbruch=Seitenende nchste Seite $F(4=!UV FF noch was zu krzen? 8UB F pFQ  FRFFIF (dr_c% MOD drucken%(6)=0) AND dr_d%>0 ! zustzliches LineFeed 8LPRINT STRING$(dr_d%,CHR$(10)); ! x-mal y ausgeben ENDIF &LPRINT CHR$(12); ! nchste Seite pTFF&F Infozeile wiederherstellen z$F"B "F Papier auswerfen i \Fn 8snF0!|Kein Text vorhanden.!!!FF$FF ! F info Textlnge 8SFT XGFSB FF sF FW F fast alles  tW߀F 8FF Startmarke e(80!F  zum anfang mglich $8)!F  Ende freigeben i tF8FF$F$F ( tW߀Fb endmarke  tF 8FFFF$F 8FF$F48XFb c= anzahl Zeilen im Block   uWFb 8F marken lschen z8F 8YFFF block visible? sF$F 4 vW߀F? Block lschen  v~߀F XZGXF | F v ZFG8FF8FF8YFXFF neues ende FF block invisible F$F$F 6 w\WߠF  verschieben nach unten FXZGXFx9 F | F vZF 8XF8XF F$schluss%=ADD(schluss%,block_c%) Fu$F 4 xFWߠF_ verschieben nach oben F 8[FFXZGXFx9Z F|[Z F wZFF 8FF8XF_ F$schluss%=ADD(schluss%,block_c%) Fu$F  xWXFP!5|Blockoperation: Block zu gro | |Text wrde zu lang|!!![FF$F . yWFl copy nach oben F8[߀F 8\FFXZGXFx\9[Z߀ F\F9[F9 y8ZF[8!X FF8!X FF8!X FFFF$F . zJWF  copy nach unten FXZGXFx9Z߀ F zZF8!X FFFF$F " {WF isolieren F(XZ߀GF hinten lschen |߀ F zZF8\߀F {`\߀F XZG\F vorne lschen | F {ZF $8!\ FF zeiger neu setzen 8!\ FF$F 8FF8>FF8-FF8FF8FFFF$F $ |zW߀Fr zum anfang  |tFF 8FF8-F8>F 8FF |^anf e81!FF >end e8YF$F YF8!FF disk e8!FF RS k8!FF druck MENU 41,2 ! end 8+!Fn del 8,!Fn isol 8-!Fn copy 8.!Fn move 8/!Fn mark off eMENU 48,2 ! >anf a81!Fa >end o$FFF ] F kill Text  *]Fl4!|Wirklich alles lschen ?!!!^F$F ^߀]FX^GF L^9F Z^F8FF8>FF8FF8-FF8FF # F marken lschen 8YF8 !Fk schreiben 8!Fk anhngen 8!F -> Disk 8!Fk D send k8!F -> RS 8!Fk B send n8!Fk senden n8!Fk -> Druck  ]FF$FFFF$FF F an Drucker D4RB F4RB F 8_B F `߀Fr | F"F$F " "FFXaG_F$4?!a! F einzelzeichen  !F. "F hier werden nur spaces ausgegeben $F& B @F Ziffern & co s"F$F( x@[F grobuchstaben e"F$F( _{F kleinbuchstaben "F$F4 @#Z` #zB F "F Epson-Font! $F C ݀JF8bC FF Bb ߀F `cGBb HF4&H?b !c! F B5 "F pcFF 8FcB5&Hb "F$F$F aF  F"F$F8 FF DRUCKERFONT=IBM "F$FFFF d F ^dFU$8 !FE datei schreiben $8!FE datei anhngen $8!FE block schreiben "8!FE datei senden e$8!FE datei anhngen "8!FE block senden nMENU 23,2 ! text drucken d"8!F block drucken $F d߀Fc>8 !F wenn text vorhanden ist, auch ein/ausgabe 8!F8!F8!F8!FMENU 24,3 $FFF NOT box() C!D!FxFDclosew 0 xF Fe abkrzungen bilden * l߀F berhaupt was da? *#! F  fr Statistik merken 8eSFF Packrate bestimen &\F sieht etwas besser aus ,XfGF comp%= nummer bearb Zeile 48F nicht alles kann komprimiert werden $P! Kompression in f Fn< Bf ߀Fe Zeile enthlt nichts WHILE? n$|f F Leere Zeilen beseitigen 4$F nchste Zeile sollte was enthalten... WEND? 2 rBf ߀F wg. Bombendrohungen .Lf9f  F fr einfacheres krzen n2XgGhF coml%= nummer versuchtes Token >&߀F  Ausstieg aus dieser Zeile falls DATA &Df !g Ff gefunden? 08iDf !g FF comx%=position gefunden .4=f !Bf iBg  F@4$?f !i! F wenn sich vor dem Token ein B4%?f !i! F Space befindet (sicher), dann : ^% $AF testen, ob es killed werden kann. (Lf9;f !i߀ g F>8F IF links vom Token etwas <"A" THEN Space killen d4Lf9;f !i߀ g Fi original s $F effektive spaces killed  HDg !DATA Fb<8Fo Zeichen nach DATA werden nicht komprimiert 8$F (dahinter knnen keine weiteren Befehle kommen) 6߀Fn Ausstieg aus dieser Testreihe :Ff eigentliche Kompression beendet (diese zeile) 6gFF ende der Tokenabkrzungen dieser Zeile 8;f !  F TRIM tte es auch, aber... u4Lf9=f !Bf ߀ F gegen Bomben .$&Ff Space vor zeilennummer? =f !  F$Lf9;f !Bf ߀ F*Ff space am Zeilenende? (sicher) *8i5f F Zeilennummer feststellen n4i FF Nummer als Text 8gB F Lnge der Nummer s4Lf9=f !Bf g Fl Nummer abschneiden .<H;f !  F falls mehr als ein space kommt b$Lf9=f !Bf ߀ F.Ff zwischen Nummer und Zeile Spaces? *Lf9f F nummer wieder anfgen $F Nummer wieder komplett $:fFe Ende der Kompression l4>B ߀Fw letzte zeile ist leer F Zeileende korrigieren F heraufholen F  ende endkorrketur $#! Ff etwas Statistik LB "Fa aufwachen... 8j#eS eF@P! eS  Bytes weniger (jݠ %).FF sonst F10 `PF  zeit zum Lesen \Fr Normalzustand ((Fr falls Probleme auftreten aF ergebnis zeigen $FFF rechnertyp E220/500   F2B!| Rechnertyp einstellen |!`! E 220| E 500 !`F$F F F `߀Fe E220 g.Hh F bei neueintrag aktualisieren VHh FF8F FF ! F z ****FeL9B" ; FnL9B" ;F 8hFF$F `߀F  E500 gH FH FF8FFF ! F < ****Fn"8h߀F &Hx in &x ? $FFF gitter auf text 8kF4  F blockmarke ab ber sichtb. Bereich 28lF $F& B topline% AND cur_y%߀!= B FFF Text ins Fenster  (FeFF 8oFF28p)! F Breite window ,8q)! F  Hhe " @8r%p F  nutzbare Breite in Zeichen <8s%q F  nutzbare Hhe in Zeilen 8=rFF 8F8>F$F XvoGuF Text ausgeben (wt_ls%=LEN(t$(wt_z%)) ! fehler ??? <T!t݀߀!?v !>߀!r F&tF wievielte Zeile im Fenster <vFe wt_ol%= Nummer der obersten Zeile im Fenster   ߀Fu8wF 8F08wsF Slider fr Zeilenanwahl $F<8xrF Slider fr waagerechtes Verschieben  6xF8xF$F XwF8wF$F |#= FD8{д!!x!!! F Hslider Gre absolut R8|д!!w!!! F Vslider Gre absolut [Buch S.578] @8}д! !y!!! F Position Vslider o@8~д!!z!!! F Position Hslider o" YF!wt_6-9=fehlercode F$FFF!F Element angewhlt F trouble bei menu1=24 e"<F true wenn neu aufbauen ( \ Fu Closer F$F( \ Fu Fuller 4F>*߀#\  !Fl X >*#\  !Fl Y >*߀#\  !Fl B >*ߠ#\  !|Fl H 8noF8PF (FP<F$F< @\ F scrollen ___ Seite 491 88\ F siehe auch Buch Seite 577 WIND_GET() 4*0F Seite 578 WIND_SET Mode 8,9 FeF FFF"8!< FF Seite nach oben  4߀F 8F<F$F =F Seite nach links e >=FF<F 8FF=8>F <F$FF & >=Fe Seite nach rechts >=FF<F 8F= 8>=F<F$FFF >FF>F<F$F<FF( 4>=FS Zeichen nach links r>F<F$F4F$F@ .\ Fa hor verschieben -> neue Spalte o8\ F8>##= FIF links%>=cur_x% links%=cur_x%-1 ENDIF   B >F8>B FF8->߀F$F<F$F< \ FF vert schieben -> neue Zeile 8\ F8##< FF F >F cursor zu weit rechts F <F `=F >=FF fFF >-=F 8>=-F$FF<F . \ F nix als rger &8F sonst double trouble l$F$FF"F Fenster einschalten F*߀!F*(*߀!F* X-Koordinate *!F* Y $*߀!xF Breite X *ߠ!lFn Hhe eL!  FP! Don't Panic.Fd8Х;!! ! !!!!| Fwind_x%=wind_onx%-16 wind_y%=wind_ony%-44 8nfFd8@Fd (F@ @F@FF `FeHFFF Statistik info #! FF<4  ------ STATISTIK ------ |=  ! F<4  Zeilen|= S !  Bytes Text|F44 = G !  Bytes freiF! !!!FF F reinen ASCII erzeugen  >߀Fe.F Texte in >"< werden nicht verndert \F"P! Text-VollreinigungFXGFL9  Fr8B FFXGF> ? !! B" F Text in >"< berspringen n@ E߀! !B" F zweites >"< suchen n:8E߀! !B" F  Zhler neu setzen F auf Textende setzen $F$F.4!? !! F alles kleiner Space  C! F @L9; !߀  = !B ߀ F$F RC! ݀F !! E F$F: C! B ߀F Umlaut? !F F8L9; !߀ AE= !B  Fe0F!8L9; !߀ OE= !B  FexF!8L9; !߀ UE= !B  FeF!8L9; !߀ ae= !B  FeF!8L9; !߀ oe= !B  FePF!8L9; !߀ ue= !B  FeF!8L9; !߀ ss= !B  Fe4F4!? !! F C! F , !! E F >Rest< beseitigen $F$F|F F!z; !  F<L9= !B ߀ F gegen Bombendrohungen F=&L9 F Abschlureinigung |F8B ߀F Leere Zeilen am Textende? L9FF9 F (FF8-F8>FF \F$FF #F cursor per mausknopf n2г! !!!! F void=fehlercode 0!!F F. nF maus im Arbeitsbereich cF"8-# Ft:8# ݀F  point5% ->FF pF 8FF$F -B ݀F8-B ߀F$FF$F$FFF Rem's beseitigen  R߀Fg \F&P! REM-Killer in ProgressFFEXGFFF Zeilenanfang r2 B ߀Fr wg. Bombendrohungen  D !REM F*8D !REM F >REM< gefunden? $F *D !' F $8D !' FF >'< gefunden? $F ߀F'( v? !݀! :FF?$FF? wirklich alles !B FFL9; ! F!B FF$F pos>0 $F len RF0&P!   Bytes killed.F:8>F8FF \F$FFF setzen/lschen  Fe XFet!Fu#-> !# !#-> ߀!# F  F XFt!F,P! Zeile   Spalte - FF.F  nach Zeilennummer einfgen/lschen d ߀Fm$P! Spacer an der Arbeit.F28D ! Fe wo ist das erste Space *85 F  Wert 1. Zeilennummer e8B FD  ߀Fn Zeilen enthalten Spaces (=lschen) XGF"85 F Nummer festellen e. F leere Zeilen nicht bearbeiten 4" FF Nummer als Text "8B" F Lnge Zeilennummer t0L9= !B  Fe Nummer lschen n,; !  F noch ein space h$L9= !B ߀ F hF=*L9" F Nummer wieder anfgen $F F 8F2XGF Spaces mssen eingefgt werden S8B FF& ߀߀F 85 F 4" FF 8B" F$L9" = !B  F$F :F$FF Bild resaturieren $FF$F was gedrckt e 8\ F Zeichen holen >V! !FrTastaturpuffer leeren c8F ASCII 8߀F Scancode 08F 1=curset 2=neuer Fensterinhalt p B rB ݀F: maximale Zeilenbreite erreicht $ l Ft8F8FF$F$F 8  Fi normales Zeichen F8F \F Einfgen aktiv VB ݀FBL9; !-߀ B = !B - F F $F 8F(LT#-݀> ߀߀!# ߀߀!B F - B F !-! EB F 8F!L9 B F$F$F-F9 ->=F zu weit? ">=߀F nach rechts $ >=F zu weit rechts? 8>=F rechter anschlag h8Fe$F8Fe$FF$F D ~# F neue Zeile (einfgen) F8F8-FF Fr = neue Zeile unter Cursor + Cur-down ",F F2 = neue leere Zeile an Cur-pos e$FFx9 F YFF 8 FF$F$FF p߀F# F$FF$F " ߎF CLR/Home sF8-F 8FF >F8>F8F$FF$F $ ߠF  cursor down ( F nur bis vorletzte zeile F8F F$ F8>-߀F8F$F ->=FF zu weit? c">=߀F nach rechts $ >=F zu weit rechts? 8>=F rechter anschlag h8Fe$F8Fe$F$FF$F & ߖFn cursor links  -߀F 8FF-F ƾ- >F>=߀F*3/2  ƪ>F8>F8F$F8F$F$FF$F ,  ߤB Fr insert s$F  ߐF TAB - B ݀FrF8F-F,8-%-߀ F $ ->=F wie cur_rechts >=߀F >=FF 8>=F$FF$F$FF$F 0 &߀-݀F Backspace F8F-F - >F">=߀F scrolling?  >F8>F nicht zu weit $F8F $F2L9; !-߀ = !B - F F9F9$F ɴFs Delete g0 ɮB ߀݀F L9FF9F9F9F9$F$F 4 ʔB F DEL einzelzeichen F8F P-B F2L9; !-߀ = !B - F 8~F;$L9; !B ߀ F$F F9F9$F 4 ˖F  F3=Zeile gesamt hochziehen ( ː߀F Ende des Textes 4 ˊB B F override? *L߀9  F | FF F8F2F$F$F$F : F  F4 Rest ab Cursor in obere Zeile & ̾߀F  Ende der Welt @ ̸B߀ B= !B -݀ FBL߀9 = !B -߀ FL9; !-߀ F8F2F$F$F$F : F F5 Rest ab Cursor in untere Zeile & F nichts mehr darunter r@ B߀ B= !B -݀ FBL߀9 = !B -߀ FL9; !-߀ F8F2F$F$F$F @ #݀ #B  F DEL Line F#8F F gibt rger  | F κYF άFINC block_start% $FFb$FFb$F$F , ߂F F7 weitersuchen  # F$F ( π߈F  F10=Don't Panic 8-F8F8>F8F$F |F" ->=F  rechtsauen? >=߀F >=FF 8>>F$F8FF$F JB -F48-B ߀F falls neue Zeile krzer $F - >F$8>-=F  mehr info $ д>F aber nicht zu weit 8>F $F8F $F ߀FcFF$F FF$F|FFF рV F 0! |ST-High only!! Sorry. !Fz F$FIF memory1%>100000 nRESERVE 99999 ENDIF F94B FH? F menue H F text eH! F rs232 H! F rs232 H FH FH FH F Pica-CQ-Links 4 !F*\!9F baudrate 2400 (\!9Fi databits 8 0(\!9F parity N (\!9Fi stopbits 1 n(\!9Fi handshak - n:V!!!!!! F RS232 P9F Pica P9F CQ aP9F Epson "P9F linker Rand "P9HF Papierlnge "P9F  1. linkes Zeichen im Fenster F&8F  max zeichen pro zeile &8F  letzte Zeile in T$() 8F&8-F  cursor default start 8F 8`F  E220 r8YF kein block markiert 8F Einfgemodus r (FiF8FgF  F< ****FrF  F&L9 B B  F L9FL߀9FXGFFXGFF! F ׬FF טFF8FFXGFF  F FG, F8!F insert "8!F weitersuchen 8%!F R1 t8)!F B end 8+!F B del 8,!F B isol u8-!F B copy u8.!F B move u8/!F B mark u80!F B >anf u81!F B >end u# F  Ft!!Fe!!!Fh  FFF!F$F !!߀L#FF"F,ڀ] F RS232-Puffer leeren, e,J F falls noch Zeichen anliegen 2F oder beim Einschalten erzeugt wurden LFFFF4#<| SHARP PC-E220/500 Expander | | (C) 1993 by Alfred JgerFF!#!!!FxFF R߀F 64&,| Programm beenden? | | Daten gesichert?FF 8ےFP64&-|Wollen Sie das Programm| wirklich beenden?F$F!&!!!F @߀F 4F0 г!!!!! F,Ц;!! ! !!!! F4F0FF (F; F$FF%Ff: + , Information,---------------------,1,2,3,4,5,6,"" " Disk ", Alles neu V- Disk ----------, Datei schreiben, Datei lesen, Datei anhngen, Block schreiben N- RS 232 --------, Datei senden, Datei holen, Datei mergen, Block senden h4- Druck ---------, Text drucken, Block drucken O -----------------, Ende,"" c " Werken " -: Einfgen, Suchen, Weitersuchen , Kompressor, Subern 0 REM-Killer, Space, Rechnertyp, Reserve,"" E " Block " N Anfang Block, Ende Block,----------------, Lschen, Isolieren, Kopieren hB Verschieben, Marken lschen, -> Blockanfang, -> Blockende,""  " Parameter " ( Drucker, Schnittstelle, EOF - EOL o$----------------, Statistik,"" E **** -29,7,4,2,96,64,32,0,0,4,6,0,0,8,16,24,0,1,2,3 2 |bauds | datas |parity| stopbits| handsh |FPaufbau:1b-4c-0c-00-bitmuster 12 spalten (120dpi 8pin) ges. 127 daten (fix) :20,41,42,E2,1B4C0C0002060E1A326262321A0E0602,45,5A,48 4E9,49,4B,1B4C0C0002060C1830606030180C0602,4D,4E (1B4C0C0000C6C68292929282C6C60000,4F .1B4C0C0000007E7E404040407E7E0000,50,E4,54 L1B4C0C00008080C07E7EC080C0400000,E8,58,1B4C0C0000E0F01008FEFE0810F0E000 <EA,1B53314E1B54,1B53316E1B54,1B5331481B54,1B5331E61B54 0 2E,2E 420,E0,E1,1B4C0C0000008080DC5E22225E5C0000,EB,EE 22E,1B4C0C0000203E3E1020203E1F010100,2E,2E,2E E&1B4C0C000040C2C66C38380C06020000 0E6,2E,2E,6F :E3,2E,E5,E7,2E,ED,2E,1B4C0C000030380C043F3F040C383000 61B4C0C0000001C2E220E0E222E1C0000,1B53315E1B54,2E 342E,2E,2E,AB,1B4C0C0080A2A2949488889494A2A280,2E F1B5330301B54,1B5330311B54,1B5330321B54,1B5330331B54,1B5330341B54 FF1B5330351B54,1B5330361B54,1B5330371B54,1B5330381B54,1B5330391B54 F$1B53302D1B54,1B53302B1B54,EC,F1 (2E,1B4C0C00000101033E7CC0808000000 BF1B5331301B54,1B5331311B54,1B5331321B54,1B5331331B54,1B5331341B54 FH1B5331351B54,1B5331361B54,1B5331371B54,1B5331381B54,1B5331391B54,8F H1B5330611B54,1B5330621B54,1B5330651B54,1B53306D1B54,FC,1B5330741B54 42E,B3,1B4C0C0000FEFE7C7C38381010000000,F3,F2,2E :5B,5D,FE,FB,2E,1B5331411B54,1B5331421B54,1B5331651B54 $1B5331431B54,1B5331501B54,2E,2E J1B4C0C0000101038387C7CFEFE000000,1B4C0C0000FEFE7C7C38381010000000,F8 0(1B4C0C0000FEFEFEFEFEFEFEFEFEFE00,2E .2E,5E,1B4C0C0000080808082A2A3E3E1C080000 0F1B4C0C0000242E2E2424747424000000,1B4C0C00001030207E7E203010000000 F1B4C0C0000080C047E7E040C08000000,1B4C0C00081C1C3E2A08080808F8F800  |F0bei neueintrgen DIM ndern, ca. Zeile 1400 :"DATA ","DA.","FOR ","F.","NEXT ","N.","STEP ","STE." &"THEN PRINT ","P.","PRINT ","P." ,$"THEN LET ","LE.","LET ","LE." "$"THEN GOTO ","G.","GOTO ","G." "$"THEN BEEP ","B.","BEEP ","B." "*"THEN GOSUB ","GOS.","GOSUB ","GOS." "*"THEN RETURN ","RE.","RETURN ","RE." "&"THEN INPUT ","I.","INPUT ","I." E*"THEN LPRINT ","LP.","LPRINT ","LP." "@"DEGREE ","DE.","RADIAN ","RAD.","GRAD ","GR.","DEG ","DEG" @"RESTORE ","RES.","RANDOMIZE ","RA.","REM","'","INP ","INP" >"LOCATE ","LOC.","USING ","U.","WAIT ","W.","LOG ","LOG" "H"STOP ","S.","END ","E.","TRON","TR.","RND ","RN.","TROFF ","TROF." F"CHR$ ","CH.","ASC ","AS.","STR$ ","STR.","OUT ","OUT","TO ","TO" F"SIN ","SI.","TAN ","TA.","ATN ","AT.","DMS ","DM.","COS ","COS" RD"HCS ","HC.","HTN ","HT.","AHS ","AH.","ACS ","AC.","HSN ","H." F"RCP ","RC.","NCR ","NC.","NPR ","NP.","ROT ","RO.","SQR ","SQ." "D"AND ","AN.","NOT ","NO.","ABS ","A.","SGN ","SG.","FRE ","FR." D"CUB ","CU.","EXP ","EX.","POL ","PO.","TEN ","TE.","VAL ","V." F"AHC ","AHC","AHT ","AHT","ASN ","ASN","CUR ","CUR","REC ","REC" F"PEEK ","PE.","CALL ","CA.","POKE ","POK.","OR ","OR","LN ","LN" 0"FACT ","FA.","READ ","REA.","OPEN ","OP." lD"DIM ","D.","CLEAR ","CL.","CLS ","CLS"," PI ","PI","ON ","O." 6" MID$ ","MI."," LEFT$ ","LEF."," RIGHT$ ","RI." "D"MID$ ","MI.","LEFT$ ","LEF.","RIGHT$ ","RI.","INKEY$ ","INK." K<"THEN ","T.","IF ","IF",".( ",".(","RESERVED ","RESE." ,"LEN ","LEN","INT ","INT","SQU ","SQU" Q0" ( ","(","=( ","=(",". :",".:","(( ","((" N"****","****"  |F.bei nderungen DIM ndern ca. Zeile 1400 T2"DATA ","DA.","THEN LET ","LE.","LET ","LE." K$"THEN GOTO ","G.","GOTO ","G." u$"THEN BEEP ","B.","BEEP ","B." u&"THEN PRINT ","P.","PRINT ","P." a&"THEN INPUT ","I.","INPUT ","I." a*"THEN GOSUB ","GOS.","GOSUB ","GOS." *"THEN RETURN ","RE.","RETURN ","RE." *"THEN LPRINT ","LP.","LPRINT ","LP." 4"DEGREE ","DE.","RADIAN ","RAD.","GRAD ","GR." B"ASC ","A.","DIM ","D.","END ","E.","FOR ","F.","NEXT ","N." "H"HEX$ ","H.","THEN ","T.","ON ","O.","TRON ","TR.","TROFF ",TROF." D"STOP ","S.","USING ","U.","VAL ","V.","WAIT ","W.","LF ","LF" "F"AER ","AE.","EOF ","EO.","AND ","AN.","NOT ","NO.","TAN ","TA." "F"KEY ","KE.","MDF ","MD.","RND ","RN.","ABS ","AB.","ACS ","AC." "F"AHS ","AH.","ATN ","AT.","CUB ","CU.","DMS ","DM.","EXP ","EX." "F"HCS ","HC.","HSN ","HS.","HTN ","HT.","NCR ","NC.","NPR ","NP." "F"RCP ","RC.","ROT ","RO.","SGN ","SG.","SIN ","SI.","SQR ","SQ." "D"ERL ","ERL","ERN ","ERN","LOC ","LOC","LOF ","LOF","LN ","LN" "F"POL ","POL","REC ","REC","SQU ","SQU","TEN ","TEN","CUR ","CUR" .F"AHC ","AHC","AHT ","AHT","COS ","COS","DEG ","DEG","LOG ","LOG" .<"FACT ","FA.","DECI ","DEC.","XOR ","X.","NAME ","NA." D<"CHR$ ","CH.","OPEN ","OP.","ARUN ","AR.","DSKF ","DS." B"CHAIN ","CHA.","CLEAR ","CL.","CSAVE ","CS.","ERASE ","ER." D"LOCATE ","LO.","PAUSE ","PAU.","OUTPUT ","OU.","APPEND ","AP." B"MID$ ","M.","LEFT$ ","LEF.","RIGHT$ ","LEF.","STR$ ","STR." >"ELSE ","EL.","PSET ","PS.","MEM$ ","ME.","LTEXT ","LT." R>"FRE ","FR.","READ ","REA.","RLINE ","RL.","SAVE ","SA." R@"PEEK ","PE.","POKE ","PO.","CALL ","CA.","INKEY$ ","INK." "H"AUTOGOTO ","AU.","CIRCLE ","CI.","CLOSE ","CLOS.","MERGE ","MER." .F"COLOR ","COL.","CONSOLE ","CONS.","CROTATE ","CR.","EVAL ","EV." D"CSIZE ","CSI.","DEFDBL ","DEF.","DEFSNG ","DEFS.","CLS ","CLS" D"GCURSOR ","GC.","GLCURSOR ","GL.","GRAPH ","GRAP.","IF ","IF" D"LINE ","LIN.","ERROR ","ERR.","PAINT ","PAI.","POINT ","POI." .:"PRESET ","PRE.","RANDOMIZE ","RA.","RESTORE ","RES." F"RESUME ","RESU.","SORGN ","SO.","BTEXT$ ","BT.","BDATA$ ","BD." "*"INT ","INT","LEN ","LEN","TO ","TO" ""****","****" F "(.4:@FLRX^djpv| "&*.26:>BFJNRVZ^bfjnrvz~ "&*.26:>BFJNRVZ^bfjnrvz~ "&*.26:>BFJNRVWXYZ[\bhntz]8}dxϔߢ$m/l#|xsN@ReXHU7ڎhl\^2kB]>sz$,JL SJ<-LhfypL,@xl@rt~[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[`0`BE3A2CJfJVfN2DE`4~WbTNu??/a!DB`~WbTNu??/a!&8:HSHoHo<EjCDEDF|d$NdTNd TTJFgNHD8HD`B|0bBerd8BCHCd\d HD8HDdTTdTDуeJjDBNuQRB|cpNgDB`bDE 24NugDB`gDEHo<EgjCDEDF|0bVed8BCHCd\d HD8HDdTTdTDkcAр[SBk8JjDBNu|H@k0Ѐ[SBj`0`ޒDgdBDA@`ftNuk(g.JBjDBAр[SBDBjNuAр[SBkNuJlNu0gH@rJBk| JkЀ[`DBЀ[`J.gPpr4<NupNJBgVB&8TTDуdQRBNuaJBjDBNugDBgkDE` DBDEaDBNugDBaDBNutNuHoHoE|z:g|HC҅H@:ۆ҄ۆ<HC>H@ЃdڼHA@B@H@хk HAҁHAрSB|bNuJBj4tNu~(WbTNu??/a&8:HSCDEJEoHnfNupNtNugDEDBHngDBE|kQ*HEJDg?<>0rHGGdܼHGGdSWDуdi?<>0rHGGdܼHGGdSWDуdi?<>0rHGGdܼHGGdSWDуd&2 H@k Aр[SBkփjRAd RdQRBJjDBNutNu?<,>CEdGH@0r`|?<`|Aр&AdRAрAрDуNuprt|PQ< g<+g <-f<.g2<0< b<0e<9bda`RF`<.f<0e<9bdahSF`<Eg<efX<+g <-f<0e<9oSH`0<0< b&Hz<0< b E|o`\JjDDDS4<.aJFkSFk6aQa`(HL4FFaQ&8*L/a,H܆jDBJ.gtBnNu|?b4<rp¼Av JBlDBv-|JBgĴ|b̴|k(H>LaRRFBd&8*L?a<a6SF|e|gQRB`RAdRe <rRF&<<0xaCfEv+0JFjDFv-Hƌd<0BFHF <0HF<0ANuprt|`HQ2.|eg>r C<5e&!R<0c <9c0`<R"_`VC0 Ef"_Nuaa/ Cr  g 00VJAgB| nN|mHJ@j0.4DBUBk0QSAg Q.`S@k 0`0BA "_Nu.WAkQA<0g`a%^|e=@NuarHjDBaDBNu|e|/d$AрQ4<`,|Nu <r4<NutNua.JBgkpNua af pNuaafpNu>jDG|e|bFGNu||bFGNu~Nua6jDC|e|/jC|@j| jr0H@{0>H@Nur{0Nu{0Nua6j(:<DCaf AfBfNuL8`r$o,b4< J@k @[H@NuH@RBNu4<Ѐ[NuDg8k2b4< J@k @[H@DBNuH@RBDBNu4<Ѐ[DBNu4&<ݳB88<:<a(H L&<]:Z8<:<a<&::gֵ8<>:&H@Ѓdڼ`HCH@:">H@`2g&HCH@:<HC>H@Ѓdڼ`HCH@:H@r`~gDBgkDE`H@Ѓdڼ`HCH@:H@`(vHDdxdLdLdLdLD`^(vHDdxdLdLdLdLDуeJjDBNuN-2NN- N-N,N,N,N,^N"VNN<&N8N8N8NNfNNZN N tN N `NNNN *oM N#CJEpM4Q=| .`<.@`Oc,NqN-|u.-M̑HPHU-@Bg?<JNAN?<NN-@>NN=@&p-IC"N4Hx?<HNA@-@ /?<HNA-@Oc3fNaN nJg.CN  gSfaqNaiJNRk`\OcB.{Bna1H8NNLa1` N,bNap`NRka*nP`aNNBn&A0NNNB&apfBn%0pN`k,NEvfY2 Y3 v OK >QBHR$nJjg$_NuH LNuJ.BfNuPBHR$nJjf$_NuHC%I LNu,yOc(M< {` N*L``nz}}}},}:}f}r}v|:|}|}zzz{xxxynynyzzz:z{<{y y,xyyyzzzj{|~"v*p}H}V}V}H{|*NK}b&bbBbbZbrjm0lBll\lvb&bbBbbZbrjm0lBll\lvp0l4`+z+++++*L~z"v_ZFD||"v|ccnc8gg2W*v$uv*v0ub VVWW4p2NF"v"v"v"v}www&0}vvv6}wxwwH}w6wLwbV}~@~\~t$\~~~~*bTTmFx*+++++z2*12"V-2|4VT_8_8vv__X<Z0&hX*TB0(,\hxu*2,UfDf&UJUFZ\\ U"v|"v[JWWpH^~[FS"v]l[Z+ ZZfAD$^h\*.tՎrr[+PƠj8FF^K"2l|||||| $$xx...TppN^F^5:AAr|8l"vUf",+5^"v"v"v"v"v"v"v"v"v"v"v"vv e6 ndC p0" V|*A"T Nu~?GG {pN~GG {p &HNp Nj8@ 2 n n 0 0 j 0 ========x<**&~&~&~"VvJx ~ \~ &~ &z3:T34h?>&~9`;9l;9?&DZ>>>&~&~"V1:&~C`Cqr>qr:1&~Њ&~~?>@ ?@:F@F ";d"v"v&~&~"v"v"v"v"v"v"v"v"v"v"v&~"v&~&~x&~&~"v&~&~&~"v"v"v&~&~"v&~&~&~&~&~&~&~"v"v"v"v"v&~"va,:aaCCDCpCChC**********&&~&~&~&~&~&~,,,,,,,:0,aba2ajmklaNal&~&~ll,&~&~aba,ajmklaHaf&~&~ll$&~&~pBNTNuHz~GG {pNw~(.^4:@FNX^djjzpvX\^RdH|(pfp| HP***P++++BB@@@3hz:dJBBJTjT2Tp3\]2H2Z2l3X3^TTlJfJj(&@445PFJ1d1d1z11n2lxr2ۘp0` .hf:\XT~t*xP6zR0DH^JvN<b.xgRVZ^bfjnrv+"+* FFF25,522]"]N]\]R1z"va@&Hd| &NuB.&Nua&aր._fajNup e0@ n 0g(@NupN FgaHJLpNuaDBNu~GGA ppN  gNuR~GGA pp&HHNL8G`R `2R Nua> n0(n&HNua, n0(n&HNua n0(HNuaaaaa`<:\fEDCNuaD/a@/ad d3 d# d# # d# # # # d ALH dAL H LH d AL`H L|0H>L|H>d~# # # # A`@ALH L|H>L|H>L|PH>L| H>L|H>L|H>L|H>L|`H>L|0H>L|H>QL|Nu$H$&"BA .a@XAf B E$fBBraEr $gdXQNuH>dd2d"d""d""""d LHC dLHLH C@d LHL|H| L|H|PCd~""""C`:LHL|H| L|H|PL|H|L|H|L|H|L|H|L|H|@L|H|pL|H|L|H|CQL|NuA,0<rX0QNuaHU?2<.,HdY3O Nu2(g"P@g4RA<DAH""nr2gZA<e0 1@#-INu1@NuA,2<XJX[j]`p+Na"ndpNH n$n"HgJ k&@ S`g6 k#&@0+Hd3 Hd3 Hd# Hd `# # # # Q&f-ILNua pJ@g:`Da dJ@g.0`6NȦg Jf*.paFHG|2 Nu  @apa, Nuapa Nuar>pa 2 Nua`.pa" NuarANDBjDB|jt|ct|B 1Ap$aňS@kH2Q NupaHdHd `Q Nua|aJjptNualHPa pJk NuCg.BJ@g  g <&g,<$g<%gNNutNuRpt`2Rpt`Rptr<ae< <OgX<Xgn<HgSRB<ae< <Fb$<0k< c_< cb退`tSHkaNuRB0<b఼b瀀`RB0 fрd`a @HP"Xp0gr~ RAfS@n`1V` Nua/a Whd4a($ W PHd2Hd2Hd"Hd `""""Q  _`J Nuat/aB Whda$ W2( P"IdHdHd `Q  _"X2bP6gHRC<(D#HNua/a?p`a/a?a2fr W4(Ae$RBBc0?aN$2 W PA`p~AWbTNu/a @"_HSHPHQ0(ika $It _a\IUd4Id4Id$Id `$$$$Q _Jf*a,Id4Id4Id$Id `$$$$QNuSaIdIdId`QNup N/a @a$I> _aG` VNu~ _a*4Ae4v` VfANua> @2(g b P"H`Nu/0Ha2  _ PSAvjx E&Wf* <ae <zb< QNuaB]@k 24|B|JjDBNuptNuaY@k rtg|DBNu|NuaQ@k 24Nuaf|jtpr|c4<prJj</Bpa" Nua.??/pa"" NupaHPa NuHQ?<,NAT _2X|a:0H|?a :|A0H 0 0H@Nu?<*NAT.p a4 I:Vk2|a.0H|a.`2H|a/0|a/Y¼ҼdaHAa Nua*/a.2 `ar ?a2R@H`2Q Nua bNuag/a "gL @4(gHP²b af$_// Z4HQ`S@Q _Q _ `a?ANBHP?<GNAPAN `p`ap/a/a @"_ `a/a~/aLL/HQa< _/ ?a20 _$gS@cY6 :fRS@g.t;ak&AA :fRS@g t;akIA??<-NAXNu !gaP0ga %FgkZtak$6g~ .fS@gt atkAg A .fS@f.`\t a\kVAgR6 /fJS@gFtaFk@JAga.&<jRGgVGg:TGjpNJogapANaB`aANaJJk -Ff\Nu fRp"Mav !g pChafaANJoga -Ff\NuaJkHR -FgJg`aANJoga -Ff\NuaJkR -FgJg`a -Ff\NuHnNHx?.&?<?NAO Jk-g2AN  Nu?<?.&/?<BNAO Jk,NupR@0< gF< f`.~SgYf "gBpR@0<,g"< g< fa~ (fR~Nua ~ `a~NuHpa _NupR@0< gڲ< gIJ<"fR@0<,g"< g< fa~ (fR~Nua ~ `a~NuHpRU@a _NupR@0<,g"< g< fa~ (fR~Nua ~ `a~NuaJkHQ ! gRfa _NuXX~Nu<.&\FHSGNa0AMg< f< &_NuHPa"2  _`Q` ??<NMXJk+\Nu<.&\FHSGNa<"fAOg ."Ng&<,g< gAMf< &_Nua< g`Ra<,g< ga<,gְ< f`HSHx??<?NAO Jk*SfNupNv`v??a?@aІNMXNuDW?<NMXNua?k?<NM"|f J@fH@<Nua Bo GN<`~0fpNu\@`a^/p`aT/Ra 0<R@f| bVaJFk(HPH/HQ/??<?NAO Jk*f< tNuHSHP&I>g \SG??<NMXJk)._V t&_Nu nP hg hfBNu-H=|Nu<Fgv<e6C n 00g @~`p!Np"Np#N .g @aJkfRH=H -FfNu nav`4.A'f nLR@RANu4.g S@SAH&Nutbpbr??pa`pYaZ0aT0`NBn`pBn`p=| |=F|=@aH=A~`:a JfBH@<RfF.ϰ<Kg"<Mg <sg<tg<Pg<Hf~`|SGjxRGFcr>`nAN< gv< gp<g<grfg|`ΰnenfJ.j6pRGFc$SG` J.jpRGFcRF` Ff8RFpRGa`BN`8 `?~ap a6p a00NuCpE`bf`FgRGJGgSGSFFgCpE`Yf`Nua@Jf gH@<fa(@<fza<0< b @|e0NuNȦ._fJgNup Nu4.f?HyaNM\Nu=|&`LazEfpa`ppa\ANEg0PaEfaBRE`ܾEfp a:5g@<+gN<-gR<$f<,fHQ!aRn&"_p$RHQa"_`Rn&`)< g<*fp `Jn&jp-`Jn&kp `=_&Sn&Rn&`HL&=B&jDBNLx"nE0RJCfRCR@r2HAARACd `<Efr0Sb<Eg2<5e,!e<0R<9e0`R1R@0c JEr+J@jr-D@UEoJYEc0SEnHJ@f<0SEH@HdREf<0SEH@H 0 0REfH@"n n& X&Rn&0n&cJ:g<_g :g<+g<-g HQaL`Rn&`Jn&jp-`Jn&kp `=_&Sn&Rn&`a*o&??Hn?<,NA=@>*NA=@>WNAO Nua6rddA HNuao?<?B?<BNAO Jk<`a: |?Ra\fHPa9>Ehr$ļWgrCOM:g rLPT:fFA0 _=@&TNuApHPB2/ <Og*<Rg~<Ag><Ug0<Ig<ogt`Bp=`pNAXJ@ktgBA p`Nupc?a0QNuA . B. H|m ??<>NAXk. B. H|m??<>NAXjNNupA` p9`p:`p;?a7>AHPBHQ?NA\ _Jk0NuaR/a7$$IAHPB Ba7AHPBHRHQBg?<VNAO _`*.*p`p3[@r Fga7@SANJAg"0<@e2`QB :g \f RCf?9[@HnN?<N /./?.&?<?NAP _f4"[6\`$Y4jDB`Q]CnNu&ZRf`Q]CnNuepNep%NaN~"[6>X nHP/?.&?<@`"$Y4j DB`Q`&ZRf`Q]CnNAO fNuaAdgHAA HP -Ff P (R`a&_ S2 Sb`v6aBg?.&/?<BNAO Jj |fp7NNuHa n"n`Ha"n n <}aLNup=alkHQ??<>NAX"WANfSp g<\g <.WgJfS.BAKBHnN?<ANAT//Bg?<VNAO "_`*BgHQ?NA"oPJ@Nu6`v n\CC p0 24Nu6`v ndCC p0 ` d6`v n|CC p00H` F6`v nCC p0p` (6`v nhCC p0Jg <r4<NuprtNu6`v ndCC p0 Nu6`v n|CC p00HNu6`v nCC p0pNu6`v nhCC p0JVHHNu6 n\CC/00a _ 00Nu6 ndCC/00a _ Nu6 n|CC/00aɴ _0Nu6 nCC/00aɪ _Nu6 nhCC/00a _JBVNu6`v n`CC 08NuHp8`6CC n`/00a _g c/"@0)aբ _$PS@kH2QNu2(g"PRA|4DBH#"@$Y2Pg 1AHRA|%NuBhNuRanJkxg8|AfAD v\ p@"F`6vg6CTxg8Dr@A"v\ q0"q@  "002Nuvg6r@A2;N0 zr0" nlaHp` n\C/00Rv<e6g nla` C n\ p0"_  "  "Nu ntaHp` ndC/00Rv<e6g nta` C nd p0"_  "Nu nadЀHp` n|C/00Rv<e6g na2Ѐ` C n| p0"_002Nu naHp` nC/00Rv<e6g na` C n p0"_Nu nxa?Hp` nhC p0JgBgHPRv<e6g nxa"`C nh p0Jgp"_2g fQPNufNu npaDЀЀHp` n`C/00Rv<e6g npaЀЀ` C n` p0"_ r2$v60!2#RA|g$@%RC|g$B%8NuatRHPa,P$_ Z0AcA`QS@ QNuHd0Hd0Hd` QNuac4ASB Q`QNuaRHPa+$_ Z0ANuvg6g npa2ЀЀSNuC n` p8NuaHP !gRa,?g<0< -!fa? oa68Cc2SDĐDo@c2`QXNu\Nu".~C\pa:pa6pa2pa.R|pa$a"a apapaR|TCpaa`$Dԁee"RNuXNuaņ,aJj Nu*HEJEgpNua/J@gbU@gxS@g[@gS@gp@NaS@f/`vC8;0N@,Tx(PtvC8;0N@@F@f@@ L@@@B@b@@H@@N6NH`6C nd p0 RNu6NH`6C0@f n| p00RNupNpN6NH`6C n p0rfRNu60H`6C nh p0JVRNu6C n\ p0af 00RNu6NH`6/ nta!RNu6NH`60@fV? nat1RNu6NH`6rf, naFNqRNu6/ nla, `\60H`6/ nxa"RJgNuNu6C n\ p0 00RNu6??/ nla RNuvgC<fC n` p0R``/ npaЀЀ R`F~C\aaaaaaaaaa PTGaa~NuLdfXNuXRGNuv6`v nla( 24Nu6 nlaHpaZ _ 00NuC p0/6gh|fa -!gh _dVNu`SNu??aSWgL/H` -!g`: -!g2T8 _*dUD*< c ІQNupNpNpNpNpNv6`v ntaf 0N v6`v ntaF 0Nuv6`v na*Ѐ00HNuv6`v na pNuv6`v naЀ00H`v6`v nap`j6 ntaHpa _ Nu6 naЀHpa _0Nu6 naHpa _Nuv6`v nxah0g <r4<NuptNuv6`v nxa60fpNupNu6 nxa//a` _ JBfNuNuv6`v npaЀЀЈtNu6 npaЀ&Ѐր`xp|@2;N FfNu8888DtP8888h\888888|@pL8888dX880r np`:0r nx`.0r n`"0r n`0r nt` 0r nl@ pJhfHP?Bga.Ro2/RA? - f8:E&<27P 7P`bX$7PbNYEf` RAf rЁЀ`$Ѐe "ЀeЁdpNJAkfgRer?DDЁatAa8$HX :` SEjT"_$P"2trDDd0d d d` QjNuaDa DNu naT n"ng,2 $`gk&|Nqdcђ$`ebѐXfNu|gebѐA``x$ n$n"Hg8" &Ak cѐ S`g"" k#&Acё2+SAI3 Q&f-INux$&ր n$n"HgR" k&Ac b S` S`g4" k#&AcbrkX`ޑ2+SAI3 Q&f-INupr<e2TtćB v(\ p"X2g UAk$QNup<e0@|G$vp\"r Y2g|$6p`g "ZfBQ` YH瀀a^L"nc4&$GlaaaaGaaA(`$[` .ϊfϊeNuLA .alR FfVNup@NaJo8H@< gvUg,]gBnVa>JBgtLrЁ`2QjNuaL`"QjNuaL4H@0d2`a@Ld2`aHA2L`""QjNua - g>??/a&8:BmnJBj efAc` bfAd 24 - fNuaf - g>??/aT&8:BnmJBj bfAd` efAc 24 - fNup`pra - fNu/aL @"C2(8) P"Q:De:|`VfAbCJ9rgC @/aɎ `-<Xk,Nup<e0@|A/?;8a\2&N,p<e0@|A/?;a22&N R8L`~ nlaLHPa& _ 00Nu~ nta4HPa _ Nu~ na HPa _0Nu~ na HPa _Nu p8"X PfH(dHqr҄AĒ a _Nu" e" dD` QjNupN nl~a*BBNu nt~aBNu n~aB`Nu n~aB Nu p8"X Pf(dlrҀHqHA a _Nu" e" d`QjNu np p8"X Pff(d.ЀЇЀHq.؄؇؄AHĘ aHPah"_ WBhal`.$Pt4(gRB|&D%(Nu np p8"X Pf(d.ЀЇЀ.؄؇؄HqHAIaI HQaT _"_BBa]tv`$P4(gRBC%(\cNua@z -@-@v n"nEK` k&@p0+R@Db bP| nP$n hg0fQ|-H.z".fapANaP}Jyf zvPb|`=@%0-H%p4`J][Return]a-CNua -C|^Nuv e6C"n"q0& g )Ff& Nuv"CNuBNuQ^NuP^NuOcBaJ*L`aa AN `rA^CN"[3][ g&gJf`Jj* fAHSfNuA6fJj<-TDd<0@H@H 0 0H@B`0@ nd pSNu0@ n| pSPNu0@ n pSNu0@ nd pRNu0@ n| pRPNu0@ n pRNu0@ nd/0a _Nu0@ n|/0a _PNu0@ n/0a _Nu0@ nd/0a _ѐNu0@ n|/0a _PNu0@ n/0aV _Nuav/ap&JjDDj DaDNuJkb dNueC"HAHABAЁNuDBaDBNux6o>|e*RCFCĴ|dЄeNu|/dHDDdRdQRBNu&<:<`NgSC|bSCĴ|cjNu|cHDDdSkg RBAрjNu0ftNu| H@"jNu0@ nd/0a W p aHRax$_%Nu0@ nd/0ab W pajHRaT$W%@aJ$_%Nu"n] Q !k:Аi" n (]Nup"n] QАi n(]NuY -INup"n] QА i氡m(]Nu _$ne ad-J]D@5%NpN0@ n|/0a W0paHRa$_5Nu0@ n|/0a~ W0p aHRap$W5@af$_5Nu"n] Q0!k:Pi"0an (]Nup"n] QPi 0an(]NuUI0-INup"n] QP0iam(]Nu0@ n/0a WpaHRa$_5Nu0@ n/0a WpaHRa$W@a$_Nu"n] Q!k<e$!b"(]Nup"n] Qe ab (]NuSS-INup"n] Qd!e(]Nup0@ n\/0a W 00pafHRar$_55%Nu"n] Q 24a11!:!8!&!JBkJEkEffDb(]Nu-INuJEjEf춀fA`"n] Q 24a11!:!8!&!JEkJBkBffAb(]Nu-INuJBjBf찃fD`p0@ n\/0a W 00paHRaHaL855%55%Nu"n] Q 24:!8!&!aJij`d/afJBg(_NuXNu/aTJBg"nY-I(_Nu/apSAkSAk0SAk SAj `/a _ Xf"HXjaF Gg$f IY(HNu Q`ز<Fgea"n`Rj&am°n`Sm`IJ<d dR$NutgB<kg$n$r tNu$n|$r 4HNu$nd$r $Nup4*]]fY(MNu lg lg l<fNu 9g *@B`(p)N/a&JBf(_Nu/aJBgXNu/a JBgXNu/aJBfXNu*@(MT/aJBf k(@Nu(]Nu0@ n\ p 24ap`0@ n\ p 24aP11!Nu0@ n\/0aDB`0@ n\/0at _&8:a11!Nu0@ n\/0aP _&8:N611!Nu0@ n\/0a, _&8:a11!Nu0@ nd/0a _&ap Nu0@ n|/0a _0Nu0@ n/0a _rNu0@ nd/0a _&aR Nu0@ n|/0af _2HJ@g0Nu0@ n/0a. _rJ@gtNuaD/a>&C"g\kdHöfiHNufnpNupNu&lDaDNuJnDaDNuzxeփ؄d`ef NupNa/a& "gTkdHöfiH@HNugmNupNuz&lDaDNuJlDxeփ؄d`efNupNaNhHNuaFhHNua>xHNua6xHNua.(Nua"(Nua8Nua 8Nua/a"ANuaЁNua萁NuaNua܀NuaֳNuaг@FNuaȳFNuaNuaNuaNuaNuaVHHNuaNuaNua@NuaNuaHNuaNuaH@NuazRNuarSNuaHaN.g^ <r4<?k$SWgN~`TL8HN6aNAXNuBPNu&|.GFAa(gaBBAp BQaCNp ap AOCeZVfRCN <aPACEN "Ҁ f Cdb"n .\an`6p `p `p ?a `p`p?a0NNua v`aNRk4`V .g p(NaL0gANS@|e0<QBHTa(_NuNu <.GFAAMBJfS"H .gJg :g \frQB ICNNuNuan/ah/ab/a* o8"_ _" $IdLb&d d `    QjNudd `QjNub`ara/a"_`Ѷa^a/a"_<.&HS?HQ/a.&_<k/HS/??<?NA Jk0&_fDNu\Fj.?r Fe aRJf 3PREfU  fS C>HQaT$_R@Hd2Hd"Hd `""""Q\NuH@a L,zNu<.&kHSHx??<?NA JkNupNpAa,Q{aa`a&fa`Hz#-L-Lv|}NupAaS@Nu3f_g J.Bga_Vga_ga4_g".af_g".aXJg_3Nqf*L`J.^fag`_Nuk".J/g B/a5NuB B ANC&fJ/g B/`5"L igF ig>HN&Lp".f=n&& CNa0yfgpQNu~`aHg"=G&B_3NqfNua-Cf_3fNuAbBBBBBBB._3f`NuAC g#P NuAC f Nu?/Ne4T`N&pNuNeC!H,yAp<f J.^k3Nqf_ n!|v |eC!|.`"XLv:g 4zg8Ag61 <cg<Jg<;e,<]b&<Te<`<Db<; g f <g< bJg fg fg,HC#0z ` Hx Dg;0\YBj@1BAf gbШ 3Nqf_An gdBB3Nqf_L@Nu wHHKMPPR g*g$n``bByXB@etAg1B# `NHCHSG4vg*1B<f< f&< # XB@etAf&_` Bn_Nu-nrnNuBf_Nu-njfNua-CHnNua -CHbNua/aP"Ҁ$afprtNua8@`Nua:rQkH`a:` y"XLpAg 1`a&Hz ?<&NN\Nu| y"XLXB@etAg1B# NuaS@?a&0|b@A4|erQBNu <". n҈C0<"Q 0<"Q"""BBB.{B.^aPAzbBaˌBnaf-n .-@-@ n .g0rd0d d d` Qa `A Nu".C\paDpa@pa"NN @A C#P B?< NA\#/aZaP?< NA\Nu?<"NN @!y THz?<&NN\Nu#+tNu?<"NNT&@/&XB+tpaJ+tga&ALHCdpJg XXQA# ~P޸|a&:|a RGk0Gg`a0GVf3<??< NMXNuBHNTZ`flLH!`,Hx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A3 Ni LH,yOc|1R/9?< NA,yOcpdzNH,yN(LxNp"A ӘQNu%%& &H!"%0%X%%#$ <Nu :Nu :Nu :Nu :Nu :Nu :Nu :Nu :Nu :Nu :NuA&r NuN @NJAfCNuNS@jp` tb~@tbtA@A&r0HNuaHPN _0Nu .ЮNu .Nu .мNu?<'Hx9`?<Hx `?<Hx`?<"HxNְd @_06HNupGN?b `BgpJygpAUNuS@f*NNVa!aHz?< NA\N8?<LNATNufC2A@p222N("<$0<NB0.%XNurt=@=A=BN"<po`8pa - fNu?NH%0`pd` pe`pa`?NH%0`p?N-@& f-|& 0`N&<x:<N6NHJjNuNH@-@%p`NHNHG-F& f-|& -G%H?%LH%pav - gL~%/H> aϪ aϤ `Nupj`p?NH%0`6p4`p#?N?a=_%`.NHaL=A%H& p"`pQ`p `pn?a-I& 0AHPBa _NuNH%ppa"g".&H - g / a Nupq` p `p `p?NH%-B& 0`p)`p` pr`p2`p?N-@& =A%0``p-` p!`p `p?N-@& H%0`Hz ?<&NN\Nu nLLJFj|@c<JGj~Ac>02 h|N nHHNuNa -FgN|@;`Hz?<&NN\Nu| |4Vq<B(B(`NNa n"h $h224NuNa n"h 22HNuNa n1F$1E"H&aZ1| NuNa n1F2!E.1D$a6H&Bh4NuNav n1G2!F.1E$aH&Bh4Nu81DL1DL1DL1DNuNa4 n1G2!F.1E$><"h3A!@ a n1F(RFFdNuNa| n1Eh1DZ1BN1ALb "nC&10$CBh$1|jBhr!jLT1jPXj$"jH@1qHBhJ61hH1CP1jRRBhf1|B1|D1j>\1j@^1j:`&*6HC([fv!Cb1|F1|@C$!Il1|@pNuN nH6NuNHaNa&I>`Lxzpa n hP.SGjO NuNn&NuNn&NuNn&n&Nup=Crt`A pBXQpadB&papava=|BnprtanBplrta`papparpatpapa pa"Bp'rta. nCB2SY2SY=|0<rtapa.papar`0 !g" %FgFN&jD@ava -Fg* !g& %FgN=@Bnprta -FfNup !g %FgN?p -Fg FgN=_=@plrt`b !gSahN AI0`0QpptaNvq`6Nv`.Nv `&Nv`Nv`Nv`Nv`NvC=Crt`papap? !g %FgN6a %FgRTNupapa FfNuN=@prt`vN$&`Nn&n&n&n&HH prt`B6AC1=@01=@WCk1Qrp`Nn&n&n&n&A0000000000prt`Nn&n&HB=BBnp rt=|`Nn&n&HBB=BBnHp rt=|`zNn&n&Hp rt=|`XNn&n&HH0p rt=|`0r`r `r?Nn&n&n&n&Hp tr=_`Nv8<`Nn&n&HHBB=BBnp rt=|`Nx:<`Nn&n&H0Hp rt=|`By GfR?.?.Rya?a?Ry -Ff yg T4:`Nq?/t`N`Ntn&n&=BHpgrt`paFpja@p a: !g %Fg$N-@rtp a -Fg Fgap&a=n#&=n$&=n$&NuNBg?N/N?@N @N, > _N4$FAN0||[000][vx`*<[g"<]g<|g QSx` xQSrQ][vx`*<[g"<]g<|g QSx` xQStQ]BAN0aVHNgaHpirtap0.#NuN|???<NN\NuN~GGGABBC`pNp`p`p ?N.fTNuba??.&/Ra??.&/ Fg/NoNo.C _<0aC _<0a 4r0`zڇ|gk0F2TQNu F2TQNu 24NHF2TQNuv<e6Cr@AA\ p p8 hf X eRNupNpNN|=@%0pN`RN AI0`0QtpoapNNrtFSggRRfNu$n\e N$d-JaBb% Jg(CNup\B.{Np!`-np]`aJ.|f .Zzg .[zgB.z(n Ff(nNup`pv e6C֮ C/g?a nc*2 ng|f` `JfY-H`Jf a`flJfN8X(_B.zNu&n .nN$ .bpZNvC2;0N-K FfNuX:4444x444444T64444tN6C nd B& &6Nu6C n` BB[& &6 Nu6C n| B[& &6Nu6C n B[& &6Nu6C nh B[& &6Nu6C n\ BB& &6 NupZNg _3Nqf-K*@XNX.z-KAcf J.|gN dfXNu&n0#f #o-K(@Nu|gG`T-KNuk c | gT0f #ox-K(@NuPp0 cgR@|"D!`aHp N _ NuaRNut<e4A\|A pB 0 gRNuaRNuv<e6A\|A pfC 00<f @ Nu?Nk2|eg QAeg|gЀЈNuЀЈNuЈNuЀЀ 0Nu$n\e N$d-JBb% 0@ n 0g @ (Ff FfZ(HNupN FgD @0Hp\a(_Nuj-< g$|@4; N <2g~S  f#Nu:4444X8>>44>>64444T4N0Jk"n\@HqHPN _??/  fSad&npЮbN$pЮe( && _& &6 -KNupN0JkZ"nd@HqHPN _/  fSa&npЮbN$pЮe( & _& &6-KNup*Np-Np.Np/Np+Np,N0Jk"nh@HqHPN0VH`<0Jk"n@HqHPN,X`0Jk"n|@HqHPN, _?  fSaJ&npЮbN$pЮe( 6 _& &6-KNu0JjH"n`@HqHPN _/  fSa&npЮbN$pЮe( $_e6Bk K0*N$RHd2Hd2Hd"He`""""Q`"Z&p0P7@g R@|#\ _& &6 -KNuS  g$j|@2;,N(U  fr#NuS ( fZ#Nu|@pL ".dX:x<lH*`T60"n`r`:0"nhr`.0"nr `"0"n|r`0"ndr` 0"n\rtg gpDN4B@Hq/1 Ra&npЮbN$pЮe&"_ _& &6-KNu0"nr tg f4RR`0"nlr`0"npr`0"ntr`0"nxr`0"nr `pg0@ d n` n 0g @HP$n\e N$dl-JBbB _"H Xf\ eRR #g( #g gHU*HNHaL*_Nu #g -fpHQa8"_R yR`]/.?.&H (IEc \e N$d"n-J5<%Hd2Hd"Hd `""""Q eRR #g* #g g n0 "`k`!MNd #g -fHQa|"_R`pENNe.$@0*N$RHd2Hd2Hd`""Q `NHaL$nUJ&"Kd?"Kd/"Kd `/"/"/"/"Q-JL0=_&-_Nup-@&r-@&~-@&-@&=|&p-@%0phaL%ZH&JKBCH&A)p0 1PP1P1PA&vL?&<@>AFGH 0000X0000X0000G&r~A%00g0  piaz QNu MWfRNJf ?S@k8L&fBfC`2Sk|t A&v & &`pTNuNS@k*|> A&r1EH`\Ha-_&TNuBn%0`N -Fg&?NJWg԰n&bn&cTNuH&a0S@k|> A&rP޼)pގ"G0(<JgRJ)@g1@C%02fP2HP"&"&pdaX W0.%X1@A%000 pia<=|%2@%4pia( _C%2""pe`.=|%2=X%4HPpia _C%22""pia=| %2pia=|%2phaL%ZH&P&P&H&SBSC@AHH&p=A0<rt`NS@k| A&r=p%0fNupa&pa"papaL&ra`j4&_NuBn&`a6`Rn&<&SFEn&eSn&`NuNS@kN| A&rC%00g8?a(=_%0p =@%2phaL%Z6Fgap `p`p=@%0pk`NuNB&S@k| A&rC%0=P%0a=| %2phaL%Z`4p-@&"<$&HA-H-HBnpmrt`Hz ?<&NN\Nu nMNJFo`JGo\H 8N-@-@ p-@*-@-@ H0H00(L=B=B&=CC=C=C$tBft=B=B(NuNS@ A&r00HNuNA&rPgh ghgh$g0<NupNupNupNupNuNHz ?<&NN\NuL& nMN(8N-D-D x-D*-D| J@jpJAjrRBhe4(RChe6(@otAop=@=@NN`pH@*A%00.0CL000H?-|%paXL%XH%Hv3LHd"aVHd"aNHd"aFHd"a>Hd^ y g"`,2:|WAARA0:tAc hfRAS@f3"g"$n\e N$d -JBb% (ANuN@k0;HNuX@gAc Nu <NuNz`NzAC|HdXC|2H0`&NHpA`Ap` A`Ap4.Nu g=BNu((?<NNT. n0(LJvA HA HNuNAHN/p -FgNְ|d _&X PdXNu6:8N?<NNTHV nMN-@ @6H H00(L=C=B&<RF<>RG=G[fx-KC=C=C$tBft=B=B(tFJ=BBBB*Dk>Ek:@l6Al2DDk =DVBnDEk =EnBn@cVk Acnk,_Nu=@a _N]Ak024E$|b5B5A6||5CK5C:8AB0000DkxEkt00A<:L>:JSFSGFn\GnXDDk0BhDEk1EBh Fchh Gchh0hb"0hbpmrt-|-|0`NuNCBHN&@N?<NNT-@`LDbFEbGBj=E\=D^-|XBTBx n0(L=CR?=BfC=Cd=Cr@dnAdjED??RGRF=GN=FPtGJ=BttBft=Bh=Bv|OpЇЇb KN222-InHVMN,_Nup NT KpNN @ <}N&IaN7TN @&XaI`N?<NNT @"K <}Nu @HPN _"X0|Jg2zf.HPEJH LppJ$_44&b'JJ|NHD'BNNupNup e0@ nt pT"X PfXLNupNp e0@ nt p"X PfXHVMN$N 4 4 4 4 4$ 4 4$ 4 4 4 4 4$ 4 4 4$ 4 4 4L?H?,_NuNHV,@,_Nu   FgBSN|gS@ H{ -FgXN W@ -FgF Mg4N W -FgN W HAA620i0d R@`RN W?< NN\ -FgN*.Nu0^ M / haw FgxSNFA -Fg`NA ff f -FgNƙ -Fg NAAHP p0p t0t x0x`p<e0@ @|A2;N !gNu T,J,,,,6@,,,,,,\ PBBNud PBNu| PBXNu PBNuh PBNu` P"X0gBPR|"D#NuHyNMXJg HyNMXJNuHp&HNga`NLNup|?HyNM\NuA0aNhJPfN`NRkNNuHGFA-BASIC 3.0 RUN ONLY "h P`BfNuAaAaAaAa nPBBgKp0(H|e|b|dd``R2;N"($HjBBfff000Ht6pHP?`h0|f"_0#Hѩ`|gHzN`"_!I`80|g |g|f"_0#Hѩ`Jg|bg6|dg0J@gHzA`L0|f"_0#Hѩ`|gHz`("_!I0E#J`0|g |g|f"_0#Hѩ`ް|,gB|.g<|0g6`L0|g |g|f"_0#Hѩ`ް|&g |(g|*f|@1@"W2(igHz`0|g |g|f"_0#Hѩ`ް|2g |4g|6g`0|g |g|f"_0#Hѩ`ް|8g |:g|g0Q@kg$Q@kHz`.Hz``(Hz\`"HzF`Hzb`Hz`Hz` Hz`Hz _O~Nu _f"_#HT/?<` Hz `j _f"_#HT`Hz`NHz`Fp fHP?2(A"nJf#p` _ fX`Hz`r( (eA(A"nJgHz`"0ёJWg`~ W gv W"gn W$gfgHz`Hz`(t(gB( e"n`"nBJ fP# `f<(t(gB( e"nv"`"nv$BJ f# HP?`Hz `(Hz ` 2|"g|$g Hyݮ`\`"OYgJf`"O Y gXeHz|` nPp2(|g|gT|g²|g`~O n"n`VeNuvC e6C"n&10xȃDNuag"CgHPbI~|L|gD|g>|g>|(g0|,g0|Le ||e |c$e _gfBHz p`RR`SS`Sj`afgBD|1D~"CL|g:|g4|g.|g(|g"|(g|,g&|Le ||e"|c `JgBHz `Hz B`R`Sj`p`(NJBj[BNHZBNHa"< @Ё`a"<-JjЁk`ddReaDBNu$⊰e v@Cr4<L`ЄQJftNuSBЀjNu;ew2Ƕ '\ a0Mj&l g:~lm٬26K! #H%lo'n)7+P-?/2zE4B6Z8:\V<>=@AĄCdE^GIjK<MFQNPRFISU[WKXZy\S]_^`Rb cyd݉Pf9:gnhdj7kYl mznoqm>r us ttuavw&IUGj -FfNuSGkpg< g<gt<Pf<Ug <DfQ\`P\`<Cf <Ofa2NH=@prtNV`<TffaH8`<Lf<TfaDBL88/N*.`ְ<Rf <Tfa`ް<Ff<DfaHa`HL8a*/aBL8a,&.Dg L0HaL8 aH <Пa L8a&.Pg L0TaL8,aH,aHJ.\fprtNV`<Bf<KfaDB`L<Mg<DfZ<Ag<Rf԰<MV<AVaHaJgL8 afH aJgL8,aPH,Jg`b<Sf<Xg<YfaJBfpHP`bazJBftHD`/N6.Nu/N*.NuL,an&?L an&2NuJBkRBNHdRNuSB`tNu -Fg 7f RN~NuN &I>SGk< g<,g<;gSRG K /N:x.JkȞHNuNrd A LNu.\f <r4<NutNuNH NH,NH8NuA#װH a,a:LPNuH aaLPNu pANpNpg0@|YA;AAl p"p Y Qf//  gRp mfNְcp N=@HS@M<rfdRt<eBRB|AA\ p p "X Pfb <bRAN| g kQ`2Q`"Q FgNְd/@p -Fg0g0@ nt p$X Pf d/@ $@zlxd fzoxc&_"Sp~| eEKDDNDpDD Dh|fLp/HzH .rMfCP`"{p8, g| {pNu$r:r؊4`ذL0 g"$&k(*ڄNdNjRofNuH״e(*NdN$&Rg$(؁*Ne*(NdN(*Ro2(NdS(So&*NdD*RRNf$f$SB`S(l//"a R"mxNupЂmlNu,..3xhNu,.*sh'xh'xNu,.*sh'xh'x*rh%xh%xNu,.܆އ>3xshNu,.܆އ:sh7xh7xNu,.܆އ:sh7xh7x܆އ*rh%xh%xNu3X3HNu,.*rh%xh%x3HXHXNu,.܆އ܄ޅ܆އ(sh*sx<3h>3x?Fc>HHnHSGk Vf>FNuTNuHANpr,.܆އ܄ޅ܆އ(sh*sx<3h>3x?Fd>HHnHSGk00Vf >FLNuTLNu,.܆އ܄ޅ܆އ*sh'xh'x:sh7xh7xNu,.*sh'xh'x*sh'xh'xNu,.*rh%xh%x܆އ*sh'xh'x*sh'xh'xNu,.*rh%xh%x܄ޅ܄ޅ*sh'xh'x:sh7xh7xNuv" [0gt@C!(Q꒼jNuH <3Ho">3XoDFf,3XHf<3XsHL0Nug">3Xl Ff,3HXf<3HsXL0Nu>3X||F`Case ohne SelectSelect ohne endselectMll - Editor FehlerWhile ohne WendRepeat ohne UntilDo ohne LoopFor ohne nextWend ohne WhileUntil ohne RepeatLoop ohne DoNext ohne ForIf ohne EndifEndif ohne IfElse ohne IfElse ohne EndifExit ohne SchleifeProcedure ohne ReturnProcedure in SchleifeProcedure doppelt definiertFunction ohne EndfuncFunction in SchleifeFunction doppelt definiertReturn ohne ProcedureMarke doppelt definiertLocal nur in ProcedureLocal nicht in SchleifeFunction doppelt definiertGoto in/aus For-Next oder ProcedureResume in For-Next-SchleifeResume ohne ProcedureKein Resume in FunctionEndfunc ohne FunctionNeue VariableNeue ProcedureNeue FunctionNeues Label[2][Besttigung bei neuen|Variablennamen?][Ja|Nein] Neue Namen [2][Inline lschen ?][Ok|Error]Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|-32768 .. 32767Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GFA-BASIC-3.0-Programm Programm zu lang|Speicher voll|NEW Kein GFA-BASIC-Programm|EOF - NEWFeld zweimal dimensioniertFeld nicht dimensioniertFeldindex zu groDim zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zu wenig Data#Data nicht numerisch%Diskette voll&Befehl im Direktmodus|nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zu wenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zu viele Parameter.Parameter falsch|keine Zahl/Parameter falsch|kein String0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 31)2Kein "R"-File4Fields grer als Satzlnge6GET/PUT Field-String|Lnge falsch7GET/PUT Satznummer falschMenu falsch?Reserve falsch@Pointer falschAFeldgre < 256BKein VAR-ArrayCASIN/ACOS falschDFalsche VAR-TypeEENDFUNC ohne RETURNGIndex zu groZFehler bei Local[Fehler bei For\Resume (next) nicht mglich |Fatal, For oder Local]Stapel-FehlerdGFA-BASIC Version 3.03 D| Copyright 1986-1988|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Peek/Poke falsch?g3 Bomben - Adress error|Ungerade Wort-Adresse!|Dpoke/Dpeek, Lpoke/Lpeek?h4 Bomben - Illegal Instruction|ungltiger Maschinenbefehli5 Bomben - Divide by Zero|68000 Division durch Nullj6 Bomben - CHK-Exeption|68000 CHK-Befehlk7 Bomben - TRAPV-Exeption|68000 TRAPV-Befehll8 Bomben - Privilege Violation|68000 Privilegverletzungm9 Bomben - Trace Exeption|68000 Trace ohne MonitorAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Boot-Sector falschSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZu viele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS-FehlerKein BinrprogrammSpeicherblockfehler[1][Wollen Sie den Interpreter|wirklich verlassen?][Ja|Nein][1][Programmende][Return][2][Programmstop?][Stop|Cont][2][Druckerlisting?][Ja|Nein][2][NEW - Programm Lschen?][Ja|Nein] Syntax Fehler Zeile zu langAsOkHf 6&* & "$ rR V 0tb8,8&ZnFV 2vH  < $,~l(Xv"6@( ^$08j,D 4d xN ,  2"0:PF @xhvN T &20J X0& NjH[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ SHARP PC-Expander fr den E220 und E500... Das Programm ist eine Fast-Voll-Version, d.h. es funktioniert alles (hoffe ich zumindest), die Zeilenzahl ist auf 999 begrenzt, was aber nicht viel bedeutet - fr 32kB reicht's allemal. Die Anleitung und die Programmsammlung wurden mit Wordplus 1.89 verfat, anders lie sich die Bildersammlung nicht unterbringen. Das Programm wurde fr ST-High verfat, also den Monochrombildschirm anwerfen. ST, TT oder sonstwas ist von GFA abhngig. Wer irgendwas loswerden will (Programme fr die Sharps, Hinweise, Paperware oder sonstwas sinnvolles), kann mir ja mal schreiben - aber Rckporto nicht vergessen, ich bin nicht John D. Rockefeller. Und wie immer: Anwendung auf eigene Gefahr. Die ganze Sache wurde grndlich berprft, aber eine Haftung fr irgendwas wird auf jeden Fall ausgeschlossen. *** Achtung *** Fehler in letzter Minute: 1. Bei den Interfaces fr den E500 mssen die vom Sharp abgehenden Leitungen noch mit Pulldown-Widerstnden (100k, unkritisch) ver- sehen werden. Beim E220 ist alles OK. 2. Im Zeichensatz des E500 wurde bei den Liniengrafiken irgendwas verhunzt. Kommt bei 'dem' Display aber nicht so drauf an... [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[