' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L:5 & "L}"BB5L&]66 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"_*]6` L/5553L3  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L6 i:5`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmxŭҠΠĮ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠z#rt) CLREOP$FC42L|schen SeitenendeI WAIT$FCA8Warteschleifec COUT$FDEDAusgabe TABV$FB5Bvert. Tabulator  STARTBin{rmodus TEXT HOME PRINT 0800 "BINAERZAHLEN-UEBUNGEN" 00 peicher' BASL$28BildschirmzeileG CH$24Cursor horizontalc UP$FC1ACursor hoch LF$FC66Cursor runter TEXT$FB2FText HOME$FC58Home KBD$C000Tastatur STROBE$C010Strobe DOSKALT$3D3Kaltsta&*******************************K Lernprogramm DUAL-Addition *p*******************************v (C) 1985 H]THIG VERLAG HEIDELBERG$803 PTR$00Zeiger FLAG$02]bertrag ASAVE$03Zwischens     ` B e$ [   ɰ $0 f w $$` $ f $0 w $$ UEBERTRAGa` ɰL   $hhв$(H)? @( eh(`ɛLɰɱ` [ $ Lehh $ [  L l8 / X   - eC D$ [ B' CiCD 2 eϩ ` ΠŠŠŠκ B þԠӠ 6  ( e e  e  q#$F8(rStack initialisieren GsDOSWRMWarmstart, EndeP0Bit 7 setzen f#$8CFF?:gCLOSEJa, zu EndeQhCOUT1ausgebenWijCLOSE#COUT1mCSWHnCONNECTDOS informiereno#$0FFile schlie~enpPRINT Y SCOUTT!UPRINT,VENDE2WUXTEXT8D84diverse Texte f}riY"OPEN"PRINTwZ008D84["WRITE"\008D84]"CLOSE"^8D00_".L"`8D00a8D84b"MONO"c8D00deAF#$8PUFFER,YPuffer ausgeben5I#'"'Ende erreicht?FJFILE2Ja`K#$80Bit 7 setzenvLCOUTausgebenMn{chstes ZeichenNFILE1OFILE2#$18.L anh{ngenPQPRINTTEXT,YText ausgeben, ab-RENDEh{ngig von INT?FILEwieder Name;@#AFASSESSOR-FilerCCSWHDCONNECTDOS darauf einstellenEASSEMBLEFile assemblierenFGFILE#$00Filenamen aus demHFILE1 3FIOPENCONNECTDOS ankoppelnD 4#$80Run-Modus herstellenR 5PROMPTb 6CURLIN+1q 7RUNMODE 8#$1CMON Output 9PRINTherstellen :#$00File |ffnen ;PRINT <FILEName ausgeben =#$07WRITE>PRELOOP(TXTPTR),YFilenamen lesenA *PUFFER-1,Yumkopierena +NAMEERR" fehlt am Ende} ,#'"'Ende gefunden? -FIOPENJa .Nein, n{chstes Zeichen /#31max. 30 f}r DOS 0NAMELOOPO.K. 1NAMEERRzu lang 2"gramm auf) CTRLY+1den USER-Vektor> #>DISKlegenM CTRLY+2\ !zur}ckb " #DISKCHRGETn{chstes Zeichen $#'"'Name mu~ in "" stehen %DISK1O.K. &NAMEERRSYNTERRFehler ' (DISK1#$01Index# )NAMnh{ngen! CTRLY$3F8 = USERK ASSEMBLE$84A3Aufruf von ASSESSORn SYNTERR$DEC9Fehlermeldung COUT$FDEDAusgabe COUT1$FDF0Bildschirm   Initialisiert den USER-Vektor  STARTBin{rmode # * hier nur PseudozieleD +P ,ZIEL1\ -ZIEL2h .ZIEL3y /ZIEL4BELLKPseudoziele / 0ZIEL1SPKR 1 2ZIEL2SPKR 3 4ZIEL3SPKR 5 6ZIEL4SPKR 7 8SPKR 9 * 2# zur}ck f}r IndexB SPRUNG+1,XZieladresse\ Hi-Byte auf Stackl SPRUNG,X Lo-Byte auf Stack !anspringen " #CODE"ASDF" $ %SPRUNGZIEL1-11. Ziel &ZIEL2-12. Ziel 'ZIEL3-13.000   Programm . MENUEKEYC MENUETaste?U STROBEJar #$044 M|glichkeiten SCHLEIFEn{chste Buchstabe MENUEneu versuchen CODE,Xvergleichen SCHLEIFEnicht gleich Index bilden {*****************/ Men}-Verteiler *F*****************Lu Liest ein Zeichen von der Tastatur und verzweigt je nach Tastendruck Definitionen  KEY$C000 STROBE$C010 BELL$FBDD  $1z #ԮΠԮέŠ ԮέŲԮڭΠŠéǠǠҮΠ®̠ԮԭӠԮɮԠ ԮӮԠ ԮŠ ԮˠԮ˲ԮŠ!Ԯ̱"Ԯ̲Ԯ̲ Ԯؠ Ԯή͠ ԮŭҠԮΠ Ԯб  Ԯв  Ԯг  Ԯϱ Ԯϲ Ԯϳ ԮΠ έŮʠ έŲ έŲʠ ڭΠ ڭήʠ Ġ ԮҭҠ  ˲ ˲ʠŠŮŠ Π ήʠ έŠ ɮԮʠ ӮԠӮԮʠŠŮʠˠˮʠ "ŭҠ ŭҮʠΠήʠԭӠԭӮʠ ɮԠ ήʠ̱̱Š̲ ̲Š"Π͠"Πͮʠ  ϱϱŠϲϲŠϳ ϳŠ Π б®Š в в в®Šгг г®Š ؠخʠ Ӡàбб ŭҠΠĮ ̠B ԠҠҠҭҠ ҭҮʠժժժՊتՂԅʀԪժժժժժϿժժժժժԪԪ՚՚ժժժՀ ZERO D֪ժՀĀՀԪꪩȈժʪժժժժրժЪ҂ժʪժժQ|ժժթՀӪզժժժǪѪڪժժѪʪժ֪Հժժ!9{_zժժժՂժԪʪժЪժժժժժժթժժժՂժՊʪՖժժՊժժժ͙#F>AՂժժժժժժժժժժժժժ埀ռժժժժդԪժժժժՂԪժժժժڪՂЀЪҦժժՊÏ՘šԪժժՠѠj @*(UU*uu?Uj?U** UT@j*UU*U@*U*D*UT*U*UjT*)%U*U*T U*A*U*U* -UU*U*UҠ*-P*U* ,u0Xja0U:P*U*U*%U*TV*U (-e#UrQ`@x<@*y(e#%@T*UJ U*U*U*S*U*U*U*U*U"U*U*U*Q*U*U*U*U*U&U*U*Uˍ*U*Uj*U*@(P*U +U*U*%T*U J*U*UT*U*U@*U*Tpp|xpyO?`H?*y(U**U*U*+U*U V U*U*%U*-T*U*2P*U*U*U*UMōŠTj*U*5P*U*E*Z*U*U*U4(U*U(* U*UT BP*pyO|ypyOgO?xU *U*U*UV*U(U P*U&U*P2UT*Q*UJ*U*U*U *U*U*-*UU (U*  U**)T*UJ*5%U*U*U@j*@*UTZ(5 5Z*U*%U*UU*U**U*)U*U4*)PP*U*U*UV*UT*e*U)U*MP*)U"P*UJ*U*U*UU* xxF0<xpypA`@$U*U*UU*U*PU*U*U*U U*U*T*U*U*UJ U*U**U*e^^*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*AU*((U*,5`0@`8@U*U* U*"U*!U U(eUr` <~x|,y'e#E*T*!UogD*U*U*U%U*U*U*U*UT U*T*@(U*U*U*U*K*U*U*U TV*U*@*-U* 0`0@`0`U*%UB*U*UJ *+P*+esg*<~Qx|y'e#U U_z#WڪժՔԪЪժժժՂժժԪժժԩժժժʪժԪժժՆժժՄYn ժժժժՊ갸𪵘Ԫժժժժժ֪ժժժժժժʦժժժժԪժժ)<2)ŪժժժՒꪠʠБԢ՘ȪժժժժժՕϿժժժժժЪҨʪժժժ)҃)ՔժՂԪՀժժժժՂժتʪՀϿժժժڪҪՅԪڊڀԪժժ) >*)ժժ˪ժ̪թժեժժժժժԩڪժڊժЪժժժՂʠՒժPͱ!ժժªՆԪʪʪҠԪժժժՊχЪ֪ժՂժՂժժժժЪՊժըʁͫ*)ժժժժժժժժժժժժժ埀ժժժժՔd!"ժժժՀժժժժ֪ՀժժՀʦժժժժռ䣕ժժժՕ) ^#V"L`` ΅Ϡ΍ȱ΍ ȱ΍ & ȹ  LLH /L-H`                     ****************************(4);"MAXFILES 3"( :16302,0?(4);"BRUN TITEL"YA$:16299,0:A$::o(:(4);"CATALOG"u2<****************************F** APPLE-ASSEMBLER LERNEN **P** DR. J]RGEN B. KEHREL ** Z ժժժՂժՂժ˪զժЪՊժժꪪժχϿժժժժժՂ՚ԪʪҪШժժժ   ڪժՊѪЪժժժՀժժҪʪժժԩժժժժŪըժժժժժҊԪԪڒȪժժժժχժ֪٪ժՂЪՀեժժ˪ժբʦ%&ժժժѪЪՒժʪժժժժժՕϿժժժժժՊڪʪԕԪԪˀԪժժժOM+`ժժՂժժժ֪ժժժժժժʦժժժժժ埀ռժժժժժԪժԪժժ՚ժժժժժԩժ҂ժЪժժժՂժڪժԓ* *-U*0`0U:pU*%(U TZ*U*U -e#pc~|x#!U*U*UR *U*U*UU*U*U*U*UT U*T*@(U*U*U*Uj"*U*U*U *5UU*U*0`0`U*U*P*(U*UU* ,eUrg?~x|y'e# U***U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U(U*UU*U*PU*U*U*U U*U*T*U*U*UJ U*U**U*E@*-pypO|xpyO?`@?x(%U*U*U*UU*UQ*UJU %U*-P*U*UP*U**U*U*U3 2jP 5R*U*U*5U*U*)U*)U*U * U@P@*+U*U*U*U*U*5%UU* U& U* $R* U**-*U*U*U &0/*U*U*UV**UV*V*U*TRUP*E*UJ*U*U*U@*+xxO|xyA`GU A*UV*4*U*J*+U*U*U*U** UJ*U B|*U*U*-U*U (U*U(*U*5P*U*Q0@*U*%U*U*U U*yO|ypyO?`O(U**U*UZ*U*@U(Q*U*@*U*U*U*U AJ*U*UR*U*U|*U*U*U*U*U*U*U*U"U*Q"U*Q*U*U*U*U*U*U*U*U*UV*UP -U*,5`0@`:@U*U*%PP*UJ*U*-P*eUrPb*<~Qx|x'e#U*%U  *U*UU**) U*U*T"U*Q*"U*U*(5ETjT*U*U @Z*U*U*U U*U*Q*URj (5U*U*%U*Uj*UT*U*-U*U***T   ժժժ𪵀ժժժժڪՂЪҥժժժժՂժժժժ ժժժժժՂЪժժժժժժժժժ叀ժժժժժժժժժՊ֊ʪԪ֊ԪժժժժժχϿժժժժժ©ժԪՊժЪժժժzڪՒЪժҪڪժՂڪҪժՂЪժժժժՊӪզҪժժ՚ժժՕժЪՒԪપժժժժժ֪ՐժҀĀԪꪥڪժu!v!wժժժժԪՊժժժժժǟժժժժժՊ֊ҪЪʀԪժժժ!!!"ժժԪժժժժժժժժժժժժժժ埀ռժժժժՀժզժժՀЪՊժժӪժժڪՊԪҥժժժЪժժՂժժժԤ Streamj*(5U*0`0U:`U*)T TZ*U*U*U`pg~|y@*U*Q*UR *U*U&UJ**U*U*U*T"U*Q*"U*U*U*UT*S*U*Uhijklmno*-UT*U*||0xap0x?U*U @*%U*UU*U@ -eUr`@x<x e#%@*U**U*U*U*U*U*U*U*U*U"U*Q"U*Q*U*U*U*U*U*U*U*U*U*UZ*U*@U U*U*a*U*U*!U*U*PJ*U*UR*U*UU4p1p|xpyO?`@?(y(i *U*U*5U*U *U*U(*U*5P*U*E0@*U*)U*U*USYST*-4*U*%P*+U*U*UJ*U* %U )@J*+(U*U*U*U-U*TRf*U*SZ @*U*e**U*U*U not *U*U*55U*PT&*U*$Sj*U*)+*U*U*U*+UxxO|yyA`OO*UP (U5B*U*T*-U*U*%U*,U* **P @P+!"~*U*U*5U*U"E*U*U %U*-P*T**P*U*)U*U*U 5xx@<xpypA`@*)*U*UV*U*PU*U*U*U U*U*+U*U*TJ *U*UJ*U*UȐ @*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UU*@ -U*,5`0@`C:@U*U*%*U**(UT*eUr`*<~Qx| y'e#U @*22J*U*U*URT*U*U*U*T U*T*(U*U*U*UZH*U*U*U TZ*U*U**U~`?``?P* U*U*UR j* (-@*T (%U~+rժժժժժժԪڪՊԪҩժժ՚ժժЪՊժԪժ uqժժժժՂ갸𪵘Ъժժժժ֪ժժժჀժժժʖժժժժժ *  A@ E" A 0xpa x( @ @@P ZERO D@@ D@T `<x<pp<@(*D ("@A@  P@QQ|@ xx@?|s`~"@"@@( @P E !9{_z A "    @@~p?xa~E"@ @ #F>A*Q*Q@(TP~p?|~~(A@C >CL}@pa?  (  "@ ""P T @ Pxx<``(@*ABEc cLa 8 " Ѡ D@  A@  d<~x|pp|@AA E(  P Ҡ@@ PA Pa<~|pp|'D((@ @T(  @   ˍ  D"" " @(@P*@PMōŠ *  ("PE" PT`<x<pp<(@ A @@ T PA"((D xx@?~s`~!@ UD (@U@(yO@?|sEP@@ (e^^@  @AP ( "@L"@ %ogDP @ @ ((xx<`` P Q@sLsLAs `7( D{_z#W@  `<~x|pp|@@  Q( @ Yn @Q"(" @ P"`<~|pp|*ET* M)<2)P (A"Q*"Q* T @*@  H)҃) @ @@ @P " a<x<pp<@A"( P@@ (@) >*)@ T( xx@?~s`~T*@@P "(@Pͱ!@@"@( yO@?|sP@ A " A@ͫ*)"@ Q"* * T @* @ L Td!"A* A A P @xx<``@3L3L3 p7D ) ^#V"*+*+U*,,u0Xja0U:8E*U*U U TV*U*@*-e#Ur`@x<y(e#%U U*UJ *U*U*5*U*U*U*U*UU*T U**U*U*U*U*5*U*U*UI ܸ*!U  U*8p0pU*(T*!U*!U*( eUrc?~x|x'e# U*!U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UT*U*U*PU*U*U*U*U*U*U*U*U*UJ U*U*(U @T pyO|xpyOcG?xP**U*U*UV*UU*Q*U)U*MP*U U Q*UJ*U*U*U Z U 5V*U*%U*UV*UJ*U*-U*U**H*PT@j*U U T*Q*UT*U*U*K*5U @*U* T(U*E* U*UT**U%U*U*U*U*U*UZ*U"U*X*U&U*SP*UU*T*UR*U*U*UPxxOx<xpypA`@ @ U*U*TU*U*U*U*U*U*U*U(U*UJ U*U*(@f*U*U*+U*U Q U*U*eJ-T*U U"P*U*U*U*UP*U*q|xpyO?`G(U*U*U*Uj*U*@"T*U +eJ-%T*U"H@*U*UT*U*U h*U*U*M*U*U*U*U*U"U*T U*Q*U*U*U*U*U)U*U*U*TV*U**-U*,1`0@`8pU*%@*U*UJ U*+h*eqc*<~Qx|x'e#U(U2 *U*UjJ*%P*U*T U*A*U*U +$UU*U*U@j*U"U* U*T*UTZTj V*U*%U*UV*UJ*U*-U*U *@T*PTժժժժժժժժժ֪ՂժժЪʦժժժժՂՂժժժա/ */ ժժժժՀժժժժժժժժժ埀ժժժժժԢ*;@ A " A@( `<x<pp<@P@@"@   @@P "(@T( `?~x|pp||T*@  P@@ (@P " xx@?|s`~A"( @ @@ @%&@  P (A"Q*"Q* T @*COM+`ET* P"xx<``*@Qb38L38L38 0(" @ @  Q( @ xx@?`s@  Q( D(d<~x|pp|@'P P @ @ ( ""@ AP  (@  @P@@ (a<x|pq|EU@(3 2 UD (@D `?~x|pp||'@ T PA"((9 &0/@ A @@Txx@?|s`~( *  ("PE" P " @(@P*@P  D""| @T(  @   PA Px<~ D((@@@3pL3pL3p 0@   E(  P@  xx@?`sAA  D@ P A   AD "T @ P`<~x|pp|@(@* (  "@ ""P m A P(*Q*Q@(T|"@ @ `<x|ys|E A "    @@z@@( @P E  `?~x|pp?|x"@"@*D ("@A@  P@QT xx@?|s`~@(@@ D@u!v!w( @ @@PE"   A@ !!!"@"""  yO<~D"@  @s`Ls`LAs`80@  Q xx?`c(@@A"D@   $ StreamA @ (Aa<~x|pp|@DT @*D (Q A (TQ ijklmno ** @@PD T@ @@ AU*P *P*@(@`<x|ys| P @ " @ @SYS@(T @ (Q *a<x<pp<D U"@ @@ not @ @@*xx@?|s`~D U"@(T @ (Q +!"~ @ @(@ P @ " AU*P *P*@H @@yO<~!@@ ** @@c ?cL}axq?@PD T"22J@*D (Q A (TQ (Axx<``DT A @C ~CL@ 8@ H~+r@A"D    Q `<~x|pp|@(@@  uq  "  A|?x`` >xD"@@""| *9,)"6'2;N'N),'(( +аLa)渦")H ;+-hhэLN2 89ɀ 2(`2ȹ89؍ z eōLބ ֐D_i^aeii`jij圪8iae^ƍ` ְLhh 2" J 2L ɈɕL !" ,,`! ,0 2$(Hߑ( h(`!<""#/- 2$(" B 3ՆF  ƌ LMԩ 2L+ ƌv'()@+ij ڠ#*0 Ƹ0,+  3Q% Lq ڥPQťPcQd PicQid% < % &$!" * ,$L8ɠ*Ɉ&ɕ"FHEHHHGH`  L c.) K!H" 2$( 2 ""hL2!"L$ Xة ȱȱȱ A ȱ ( $I J8ekl`hhL8sitj  $ eӠɍL - L臢 02Y eHdH`"ADEILUTSF,w推 LLL SL8cPd "3v٠ e e  * w ȱ eōL" L  , PQPQ. X ȱȱQP $ f ȱ `ij ḙЍLLL8ust:;dc / X eҠүҍΠҮΠ®̍éǠ  KLii6,",LU c L5L" L`     V (21)&:"BITTE WARTEN ..."< (4)"MAXFILES 1"U(4)"BRUN ASSESSOR" "     " a<~|pp|@"A @ Q( I ܸ@ @ @@ @ L@ @A@T(@ A(("@PQ d<x<pp<@ @ ( P@  @  P@*@@P@@@("d?~x|pp|x" @("" P " @ ( P@  @ x@?|s A(("@PQf@ E@@ @D" @ E@@ @ h @ Q(   " xx<``@"A"@3L3L3 80   2 @("" P ""xx@?~s~"P@*@@P@@@(D @`<~x|pp|@A* A A P !/ */ @*  T*@ L T"@ Q"* "*; .6 ǭ6 :Ȍ 㐮LLILJLPLQLL|٠2:6:7:,5/ . W۠: W We::;:ɠ;鄐Lԥm../LX:ʈHZh(z@`8x0Pp La!AB"b ⢠2`22]i2`27 0݋]i2`22 ]i2`=г2*2]i2`DLGIEF > @)? $L45:`' `)`G > $:I:LHb 6@0>,"I0 i,2L홂dt2L|6]i23LLޢ 30 HHHH`!YMI"ZZn͘ 昭2=? ]i2`L|٭7L21 ]i260W]2`9:=>2]i7i2`27 0݋]i2`;<>@22L|٪] 8$0 J$*. w yzLG 2]23XL(D76ʊ.6Ș/72]2L eĠ L*3,30)L|٭3))|,l2L홪]23)|LA#L30ݢȌ$.3 3,8 3 73   3`,),#($YX$$ eӍ54s,.:t-/;,ghyȱz eŠLȱuȱvi Z,ؖ8$0 J),F`I>4 .4 3.m6./m7/6e::7e;;4`LJ 3`K hh,40LLTL M,4 L,,`P ` }`(㠝3 ( 3`* }`2 }3Ʌ3`BL  3Ȅ`0)2~GNO 2B3,40- Lލ4 3k8l64ȭ7`C+ L 36.7/,50 ,-5`HNDJ ii"'Lȱ0" '4ȱ0'`H; ˥ 0,L娥)Ӎ45s,.t-/ikjlghyȱzLȱuȱvi湥ksltL ȱ0k0xOH5H i eŠLe湈kkȭ.kȭ/k8ekkl L  .e./yz Lʒ3 Lȱ8ɀ+ȱ0- +,)e湱ȱ`ȱȘeLq !(#") ,Hh8` 0L' " L `0 `0 m667hh '"L>湠`PQ I0 i &P&Q0L e/ Q^P &^ &^ePP^eQQP&QPe PQ LPQ`<hh 7 L\>0hh 76L 67 67 L\L* /.`$ kPQ`%PQ /J &P&QLLޥijkl(,408hh` eǠé,FG-CD8:s;t eϠōL e eʬt s e̤  rFsCGDL678 &+- m66m77L` I8m66Im77 EPQ8 J76 $ J67 . J7 ׎ 6 ׎ L^^X* ` "Lޠ e ֦צ8cd8 4&ʽ #  ɘɍLL. zL֦צ` [ zL "ӠBEBMBNBPBRBVBVJSJMADANCMEOLDORSBSTASLSROROBITRTSCPCPDEINLDLDSTSTSTEQORASINFLDCHEDFADENLSNLBLBGDFdȌc"ȭcȭdcdȱ`hhϠ e΅ΥiHH` 3 76 APQL* cLS 0T1م67L&`0617L ɕ$(Ɉ !#!!!H"!H h!hL"hl0BRCLCLCLCLDEDEDEINININNOPHPHPHPHPLPLPLPLRTRTSESESETATATSTXTXTYBCBCL̋*8* J* * Ю`)QLލ m9H *h0*JJJH*)h=`` @ @PȱQ $ $#`ɠN$L! "H 2 2hLC N$L ePPQiQ %LćLN%N& ƌL _^`_a0iejȄ ӥPQmnij e֥gh^_^ij3& LqL*ȱ^Șe^^_iȑ^^_î#"H! L3 L3h`" 2 N% - ƌL #*8$ JȌ J; *           ة ` "Lޠ" 3v٠ k k X k X67 L" w `ō̍ύ ɌL67  kL +READKBDTaste gedr}ckt?=READNein_STROBEJa, Strobe l|schenw#$9B = Escape?ZAHLNeinDOSKALTJa, KaltstartZAHL#$B0 = 0 ?ZURUECK Ja, OK#$B1 = 1 ?READNein, nB2immer FLASHCH?(BASL),YZeichen ladenRund rettenh#$3Fin FLASH#$40verwandeln(BASL),Yausgeben#20Pause 2 Sec.WARTENZeichen zur}ckholen(BASL),Ywieder ausgeben1ASAVE 0 -> 10DRUCKENausgeben6ONEUASAVE 1 -> 0YUPuASAVEZeichen ladenCOUTausgebenCHlinksReturnadresse vomStack herunterholen#$FFFlagge l|schenFLAG CHlinksCH0FLAGFlagge setzenK#$0EEnde erreicht[Z2NeinhPRINTt010E"UEBERTRAG!"00UELFLASHblinkenASAVEZeichen laden#$B0 = 0 ?NEUNein, also nde erreicht?Z2Nein(Ja.JBEIDE1ASAVE 1 -> 0cDRUCKENausgebenvB2CHlinksLF#"/"/ ausgebenCOUTFLAGFlagge testenNOTkein ]bertragUEL]betrag berechnen NOTh?{BEIDE1Ja*|ASAVE 0 -> 1K}AUSGABE1DRUCKENausgebenf~FLAGFlagge testenDECRkein ]bertragLFUEL]bertrag berechnen#$FFFlagge l|schenFLAGDECRCHlinksCH #$0EE#$15PositionoCH5p#$FFFlagge l|schenAqFLAGVrZ2#$0BZeilebsTABVxtFLASHblinkenuASAVEzwischenspeichernvUPwFLASHblinkenx#$B0 = 0 ?yAUSGABE1JazASAVEbeide Werte gleic^_Z#10Pause 1 Sec.-`WARTEN:aPRINTFb0D0BYc"+01010101"cd00}e#05Pause .5 Sec.fWARTENgZ0PRINTh0E0Ci"--------"j00kCLREOPlZ1#10Pause 1 Sec.mWARTENnax. 8 ZeichenQREADKBD(R#"+"4S$5B5?T#00dUREADKD1READ2. Zahl einlesenrV$5B6,XyWX#08max. 8 ZeichenYREADKD1ZZ0Ergebnis berechnen[#40Pause 4 Sec.\WARTEN]DEMOENDEimmer B CDEMOENDEPRINT) D0505N E"GEBEN SIE EIGENE WERTE EIN:"X F00f GCLREOPs HPRINT I0616 J" BEENDET DAS PROGRAMM" K00 L#00 MREADKBDREAD1. Zahl einlesen N$536,X O P#08mCK 2DRUCK+1 3# 4#082 5DRUCK+1A 6RECHNENP 7DRUCK+2n 8RECHNENZDemo-Rechnen 9#50Pause 5 Sec. :WARTEN ;AUSGABEimmer < =WARTEN#$C40,1 Sek. f}r >WAITjedes X ? @WARTEN A!#20 "WARTEN3 ##TAB^ &DRUCK+2q 'AUSGABE#$0E{ (CH )#$0A *TABV +CLREOP ,#078 Ziffern -DRUCK$FFFF,XDummy .DEMOENDE /COUT 0 1DRUgramm f}r DOS2TFILE#$80Bit 7 setzen@PROMPTPCURLIN+1_RUNMODElPRINTx8D8D"TEXTFILE WIRD GESCHRIEBEN"8D84CR, Ctrl-D"OPEN"00#0OPENOUTFILE,Y#$8D CR ?  TSL,YSECTOR(PTR+14READAPTR+1QPUFFER+1aPUFFER+1y#$8APufferendeTFILEbei $8A00LOOPnicht alle \ffnet DOS-Textfile, simuliert lau-  fendes Applesoftpro#$8DEINLESEN!/UNLOCK5W Liest max. 122 Sektoren ein]EINLESEN#$10PufferbeginnPUFFER+1bei $1000#$00PUFFER#$0CBeginn $970CLOOPTSL,YTFILETRACK#$9BEscape READKEY.MENUE14S TSL nach $9700 einlesenYoLIESTSLCONNECT|PRINTA08D8D"TEXTFILE WIRD GELESEN"8D84"UNLOCK"00#$00UNLOCKOUTFILE,YCOUT Ntragen ?< Alles in Ordnung? Sonst zur}ckB^ALLESCLREOPL|schenkPRINTw8D8D" = FERTIG,"" = ZURUECK"A000READKEYRDKEYTastendruck#$8DReturnLIESTSLe von#29max. 28 Z)ZULANG0ILESENnur Return_MENUE1zur}ckek Tastaturpuffer -> AusgabefeldLESENIN,XTastaturpuffer#$80OUTFILE,XAusgabefeldalles }ber- LESE87878DPiep&v"EINGABE ZU LANG"2w8D008xKyFERTIGPRINT_zA08D8DA0A0A0{"NAME FUER ASSESSOR-QUELLCODE-FILE ?"|8DA0A0A0A0A02D00}#$3EPrompt-Zeichen~PROMPTDISCONNDOS abh{ngenGETLNEingabONNECTDOS anh{ngen!hPRINT/iA08D84Cj"MAXFILES 3"Qk8D8D84el"CATALOG,D1"qm8D00~nRDKEYoFERTIGimmerpq Textfilename (Eingabefile)rsZULANGCLREOPL|sche bistPRINTSeitenende uX8D8D8D8D*Y" = START,"AZ" = ENDE"M[A000a\EINGABERDKEYu]#$8DReturn^DIR_#$9BEscape`EINGABEaDOSKALTbcd Liest DOS-Catalog, setzt MAXFILES 3efgDIRCHKBDIWARTE1$JSTROBE2KMENUE1?LWARTE1MMWARTENSNeOMENUE1HOMEpP#10|QTABVRPRINTS"LEGEN SIE ..."T8D8DU"DIE ASSESSOR-QUELLCODE DISKETTE"V8D8DW" IN LAUFWERK 1"-UTILITY KOMMEX *" 700' 8#61 9CH< :#20H ;TABVU <PRINTo ="VON DR. JUERGEN" >" B. KEHREL" ?8D,00 @#16 ACH BPRINT C"(1985)" D8D00 EMENUE#$32 FWARTEN#$C4 GWAITN$FD6AZeile lesen6 (PRBYTE$FDDAByteausgabeV )COUT$FDEDASCII-Ausgabe\ *b + , Titel und Men} ausgeben - .STARTBin{rmode /TEXT 0HOME 1#5 2CH 3#10 4TABV 5PRINT 6"* ASSESSORDOS-TSL* DISCONN$9EE0DOS abh{ngenD KBD$C000Tastatur_ STROBE$C010Strobep !TEXT$FB2F "TABV$FB5BPosition #CLREOP$FC42L|schen $HOME$FC58 %WAIT$FCA8Warteschleife &RDKEY$FD0CTaste lesen 'GETLPREG$48P-Register2 CURLIN$75AS-ZeileJ IOB$CESpeicherg RUNMODE$D9Run-Modus IN$200Tastaturpuf. DOSKALT$3D3Kaltstart RWTS$3D9 GETIOB$3E3Suche IOB CONNECT$3EADOS anh{ngen TSL$9700pple II mit 48 KByte RAM5 und normalem DOS 3.3T Maximal 122 Sektoren !!Z f $803l PTR$0Zeiger TRACK$2Spur SECTOR$3Sektor PUFFER$4Speicher CH$24Cursor horz. PROMPT$33Prompt +************************************U ASSESSOR-Quellcode Refiner KOMMEX * von Dr. J}rgen B. Kehrel * Heidelberg, Januar 1985 ************************************* VERSION 1.8 Mai 1985  AȥΠ ΤΥ H` X [ G ӠҠҠ Lhh eiHH` ȹ Ɋᩀ3v G      h ɍ G ؍h ɍ G ؍ ɻɍ  G ōǍǬıLj ΅Ϡ`ȩȩȥȥΠ  G ӠǬı LA B G ŠՠǍ G ŠҠҭŭŠ->3 jL~ h  B G ξǬþˠ ɍɛL~  G      h ɍ / X$ [ G ҭ٠ؠ$ [ G ΠҮΠ®̍$ G 2 0 X [ G ΠŠŠҭŠōΠˠξԬþŠ ɍɛL UPTR+1 V#0) Wauf Stack= XPTRzur}ck,R Ydann dorthinc Zspringeni [o \ ] Speicher f}r Filenamen ^ _OUTFILE30Outputfile `eld Call Apple 8/81F3GPRINThole Return-KHPTRadresse vomYIStackfJPTR+1pK#1LPR1(PTR),YStringMENDENCOUTausgebenOPPR1QENDERStringl{ngeSPTRaddieren u. TPTR8FEHLER1HOME 9#12,:TABV9;PRINTX<"DOS - FEHLER NUMMER $"h=87,87,00>#$0DFehlerbyte?(IOB),Y@PRBYTEADOSKALTKaltstartBCD Druckt einen String aus bis $00E Nach Andy Hertzf(IOB),YSektor(#8*)PUFFERD*(IOB),YPuffer LoK+[,PUFFER+1u-(IOB),YPuffer Hi.#$0C/#10(IOB),YLesen !!1IOB2IOB+13RWTS4#05PREGzur}cksetzen6FEHLER17GETIOBIOB suchen&IOBLo-Byte<IOB+1Hi-ByteF#1R#$60i(IOB),YSlot 6pz#1(IOB),YDrive 1 #0!(IOB),YVolume 0"#TRACK$(IOB),YTrack%&SECTOR'Textfile, zur}ck zum Men}1 CLOSEPRINTH 8D84CR,Ctrl-DW "CLOSE"c 8D8Ds "FERTIG"8D84CR,Ctrl-D"CATALOG,D1"8D00MENUE Liest einen Sektor ein nach "Puffer"READN1schneidet auch ASCII Strings mit ab4CON0BKOMMEXaPUFFER+1wird nie NullyKOMMEX(PUFFER),Y#$8Dbis zum ZeilenendeCON0COUTCON1CONVERTPUFFER+1CONVERT Schlie~t 8D00 . F}hrt Umwandlungen aus4:[REFINER#$10PufferbeginnvPUFFER+1bei $1000#$00PUFFER$8A00MaximalCONVERT(PUFFER),YCLOSECOUT#";"Kommentar-Beginn)COWRITECOUT)OPEN;WRITEPRINTG"EX"^8D84CR,Ctrl-Dm"WRITE"w00#0WRITE1OUTFILE,Y#$8D CR ?WRITE2COUTWRITE1WRITE2PRINT"EX";&lfJ[\J\++ SS44CCddttdssd44ssCC  SS44CCSk;\;[tt t stt s`tt!t st t s` tt; s: s`tt"t s`tt p p p ptt vm"t t vmt vmLdm n n n n nLo 2stt``mmmmmm` II C II t&II Idllff C ClllCe[Jkk;k\tHt t!t(`( 2s` ,R FlmGlmmmmnmKmnm0$m m W m m : mNmFlGlע pح p٭ p p p p pӠ p֭ pЭ! pj6h>8t>7t@/8:?:m t>?>8t>7t>;>:L$i T p p:i Li  |k >:?; n !o Jc k6t,0 i i:4t;5t q q Gj:c dmLa k pL i k EpL i k pL i k XpL i k pL i k lpL i k#tL i k#tL i"t p| Ep"ts/0Dh hHhH`HhZz(@` Ll|OhXhahshjh|hhhhh,i?iiji|iii)I ptt 2s8t s7t stts ksɍ |k >7t?8t !oLa / XgLgȹg "LegȄ"LaˠȠӠԠ - <>  ptt 2s kVɍtt 2s%t s$t stt 2s't s&t sttsȌts ks)ɍ |k sI >$t?%t Jcs0LeLa  p p報 ;cɱ ɲɛ `l sLa؍`l@sLa,P,R,W`,P,R,V`  p ptȌt k֠ 9xɍ La ttsQe ō9x ɍs Jc  p p蠺tt 2sees sr s@ 0Lahh ;css  p p٭砽 kɍ |k >!t nLa  p󠽠 kɍ |k >"t nLa  p렽 kɍ |k >#t oLad  p p򮠺tdi 2st k,ɍ |k d >(t?)t Jc !oddLa  Ơӭgccc'dVdedffgdfhc !o !o`t t 2stt`0ߦ 즩 ^󦩦ō qA / XL  p kɍ |k >t nLa  pح砽 kɍ |k > t nLa  2s ;cɈɕɍɇsLaмs"cH!cHLJc^bmb|bbbbbbbbbccӭӠҭؠҭРӠ͠p p㩠 pE 0>8  80, "">>>> >00000>" <"<"""<< <"""<"><$""< """"  " " 6***""""""""""<""< :< $"""2,"""**6"""""<  >> ""*:<">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6""tϭtt`PPPP̺ؠ̠ؠΠ(??< (&20 *,**>> 2*& " >> ">> """>""ttvHsHs, 2shh`HJJJJ *sh) ɺiHt)t  + ! stt(ttttth(`t'ttt t sܥ΍tύttttJ) @ tjmtt8 Ω&&9e΅ΩteυϠIiitέ8C7C9!6!:@B;BA"!?D"3bs"3fw 3`p"9f} "3˦s"3˦"3`p"3`p$1ex!YMJIZؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDĴt(ntJrtttrDh2r"r&&rr&HDDq` `b `` ott qxr,r--&,*i 2s 2s/(. qr 2skr 2st 2s`0 s.: VȘ s sLqq:Jj )Jr y^r.)/q) JJJ Ȉ`r`24:WORTm PTRz PTR+1 #$00 PRINT(PTR),Y ENDE COUT  PRINT !ENDE "WORT"-DEMO" #00 $T1COUT %]&*******************************K Demonstration f}r IDUS *p*******************************v$300COUT$FDEDPTR$FE  STARTTEXT  TEXT#$8D COUT#"I"T1 #Q  < ? G X L6 L*`LlBDL_#88K`LOOP2Xa$C030_bec~dSEITE4#131 s.o.eLOOP3#88f#0ghHPLOTijk#1l#59mLOOP3n$C030oF#190 GLOOP2 H$C030 Ton ausgeben9 I? JW KSEITE2#59 s.o.h LLOOP1#189r M#0y N OHPLOT P Q R#1 S#132 TLOOP1 U$C030 V W XSEITE3#189 s.o. Y$06ZLOOP2HCOLORZ 6SEITE3% 7#$7F4 8HCOLORZB 9SEITE4L :#0[ ;HCOLORZi <SEITE4 =RUND ganz umrundet > ?SEITE1#88 Punkt an Punkt @$06 setzen ALOOP#59 B#0 CHPLOT D$06 E$06 #0 HCOLOR = 0 )HCOLORZ= *SEITE1 wieder l|schenV +#$7F HCOLOR = 3e ,HCOLORZ -SEITE2 Seite umranden .#0 HCOLOR = 0 /HCOLORZ 0SEITE2 wieder l|schen 1#$7F 2HCOLORZ 3SEITE3 4#0 5#0$ HGLIN Linie zeichnen0 #129; #92E #0c HGLIN Linie zeichnenn #61y #92 !#0 "HGLIN Linie zeichnen # $ %RUND#$7F HCOLOR = 3 &HCOLORZ 'SEITE1 Seite umranden (RTHGR2 HGR2 einschalten3 #$D5 HCOLOR=6B HCOLORZc #61Y=61 Koordinaten f}r} #92X=92 Rechteck #0 HPLOT Punkt zeichnen #61 #184 #0 HGLIN Linie zeichnen #129 #184    weiter-LADENz{hlen*PTR+1MLADEN(PTR),YZeichen ladenTZoTAB"00000000""10101010""10110110""11110011""11101010""00110101"00"KEHREL"00PPTR+1#00-INCREM1. Zeichen7CHQINCREM2. Zeichen]TABV~PR1INCREMalle folgendenPR2bis 00 ausgebenCOUTPR1PR2INCREM(PTR)R}cksprungINCREMPTRZeigerochmalZURUECKOK8DRUCKEN#$0DZeileDTABV`ASAVEZeichen ladenvCOUTausgebenCHlinks#10Pause 1 Sec.WARTENPRINTAdresse vomPTRStack holenund speichern(&''&*''&&`1 !DOR1Ien?????+ DORmit Divisor vergleichenF WEITERist kleinerl SUBTRDORDivisor subtrahieren DEND+1 zum Quotientenspeicher WEITERSchleife zu Ende? SCHLEIFENein, weitermachen DEND DIVEND  DENDramm , DIVIDENDDividend Lo-Byte@ DORDIVISORb DORZu gro~ oder durch 0?| DIVENDJa, Fehler #$088 Runden SCHLEIFEDENDDoppelshift des Dividenden SUBTRSubtrahieren bei C=1 Carry setz"************************** B Division 16 Bit / 8 Bit *b**************************h Dividend in A (Hi) und Y (Lo) Divisor in X Quotient in X, Rest in A Carry gesetzt bei Fehler  $300  Prog ********************5 Demonstration 3 *O********************Ua$300gySTART$03F6$06 $03F7 $07 #$00 ($06),Y ($06,X)$06,Y$06,X($06) S l` T2(T3) &T3T4% 'T4$FF3C3 (T5(T6)B )T6$FDEDP *T7(T8)\ +T8T1C#"/"/ ausgebenCOUT:FLAGFlagge testenTNOTkein ]bertragrUEL]betrag berechnenNOTCHlinksCHFLAGFlagge setzen#$0EEnde erreichtZ2NeinPRINT010E"UEBERTRADECRkein ]bertragLF<UEL]bertrag berechnenX#$FFFlagge l|schendFLAGyDECRCHlinksCH#$0EEnde erreicht?Z2NeinJaMINUSDRUCKENausgebenB2CHlinksLFUMDREHENJa |#$B1 11}2CTrickI~UMDREHEN#$B0 0VASAVEmAUSGABE1immersNULLASAVEvergleichenAUSGABE1 0MINUS 1AUSGABE1DRUCKENausgebenFLAGFlagge testen$15PositionoCH3p#$FFFlagge l|schen?qFLAGTrZ2#$0BZeile`sTABVvtFLASHblinkenuASAVEzwischenspeichernvUPwFLASHblinkenx#$B1 = 1 ?yNULLJazASAVEbeide Werte gleich?{^_Z#10Pause 1 Sec.+`WARTEN8aPRINTDb0D0BWc"-01010101"ad00{e#05Pause .5 Sec.fWARTENgZ0PRINTh0E0Ci"--------"j00kCLREOPlZ1#10Pause 1 Sec.mWARTEN n#. 8 ZeichenQREADKBD&R#"-"2S$5B5=T#00bUREADKD1READ2. Zahl einlesenpV$5B6,XwWX#08max. 8 ZeichenYREADKD1ZZ0Ergebnis berechnen[#40Pause 4 Sec.\WARTEN]DEMOENDEimmer B CDEMOENDEPRINT' D0505L E"GEBEN SIE EIGENE WERTE EIN:"V F00d GCLREOPq HPRINT} I0616 J" BEENDET DAS PROGRAMM" K00 L#00 MREADKBDREAD1. Zahl einlesen N$536,X O P#08max 2DRUCK+1 3! 4#080 5DRUCK+1? 6RECHNENN 7DRUCK+2l 8RECHNENZDemo-Rechnen 9#50Pause 5 Sec. :WARTEN ;AUSGABEimmer < =WARTEN#$C40,1 Sek. f}r >WAITjedes X ? @WARTEN A#20 "WARTEN1 ##TAB\ &DRUCK+2o 'AUSGABE#$0Ey (CH )#$0A *TABV +CLREOP ,#078 Ziffern -DRUCK$FFFF,XDummy .DEMOENDE /COUT 0 1DRUCK' CLREOP$FC42L|schen SeitenendeG WAIT$FCA8Warteschleifea COUT$FDEDAusgabe TABV$FB5Bvert. Tabulator  STARTBin{rmodus TEXT HOME PRINT 0800 "BINAERZAHLEN-UEBUNGEN" 00 !icher% BASL$28BildschirmzeileE CH$24Cursor horizontala UP$FC1ACursor hoch LF$FC66Cursor runter TEXT$FB2FText HOME$FC58Home KBD$C000Tastatur STROBE$C010Strobe DOSKALT$3D3Kaltstartj'********************************M Lernprogramm DUAL-Subtraktion *s********************************y (C) H]THIG VERLAG HEIDELBERG$803 PTR$00Zeiger FLAG$02]bertrag ASAVE$03Zwischenspe         !!! ! ! ! !  l` B e$ [   ɱ ,LT $0 f $$` $ f $0 $$ UEBERTRAGa` ɱL   $hhв$(H)? @( eh(`ɛLɰɱ` [ $ Lehh  $  [   LD / X   - eC D$ [ B' CiCD 2 eϩ ` ΠŠŠŠκ B þԠӠ 6  ( e e  e  ΍ȍƠǍڲ 占Ҡ֍ҠȠŠҠЍҠȠР°Ѡű፠РŠ迍ѠĠ場㮍Ҡ΍ѠŠ򍻍ڠؠ報㮍Ҡ΍Ҡԍؠݍàؠؠ堮㮍Ҡ΍ڰҠԍؠŰÍàؠҠЍڱؠ報㮍ҰؠĠҠĠ؍؍ؠԠčµؠıҠĠ¶؍؍ؠԠıҠڰؠ㮍Ҡ΍ѠŠ򍻍Πô뮠ҠԠ؍؍Š΍ӍŠҠԍؠàΠŠŠŠκؠҠЍҠԍؠàþԠӠ͢ؠŠōȍҠ֍ҠЍؠˠƬؠѠōҠԍ؍̠ˍ˫Íà˫à΍à˫ΠҠڠؠ堵ԠՠĠ֠ՠµ 򍻍ԠĠҠԍҠōҠԍؠ֠έ΢ؠؠҠ΍ ˫˫ȠՠРՠñƠՠöԠՠ²ƠŠՠõĠՠðŠՠðԠՠijРՠôԠՠ̭éǠǠǍǠҠՠǠՠŠՠ̠ՠ!!!!!!!!""" " " " " ""10000110" "00110000"2"01000110"D"10110000"N00^"KEHREL"h00PPR2bis 00 ausgeben!COUT,PR12CPR2INCREM\(PTR)R}cksprungbINCREMPTRZeiger weiter-LADENz{hlenPTR+1LADEN(PTR),YZeichen ladenTAB"11111111""01010101"ks#10Pause 1 Sec.)WARTEN/HPRINTAdresse vom`PTRStack holenvund speichernPTR+1#00INCREM1. ZeichenCHINCREM2. ZeichenTABVPR1INCREMalle folgendenNein"DOSKALTJa, Kaltstart:ZAHL#$B0 = 0 ?RZURUECK Ja, OKf#$B1 = 1 ?READNein, nochmalZURUECKOKDRUCKEN#$0DZeileTABVASAVEZeichen ladenCOUTausgebenCHlin(BASL),Yausgeben.#20Pause 2 Sec.<WARTENXZeichen zur}ckholeny(BASL),Ywieder ausgebenREADKBDTaste gedr}ckt?READNeinSTROBEJa, Strobe l|schen#$9B = Escape?ZAHLsgebenCHlinks1Returnadresse vomMStack herunterholeni#$FFFlagge l|schenuFLAGB2immerFLASHCH(BASL),YZeichen ladenund retten#$3Fin FLASH#$40verwandelnG!" 003UELFLASHblinkenOASAVEZeichen ladenc#$B1 = 1 ?|NEUNein, also 1ASAVE 1 -> 0DRUCKENausgebenNEUASAVE 0 -> 1UPASAVEZeichen ladenCOUTau    `" $300#10%$10002$1001>#$FAK$1002X$1001e$1002r $1002 $1001 "ՠРՠñƠՠöԠՠ²ƠŠՠõĠՠðŠՠðԠՠijРՠôԠՠỪ̭éǠǠǍǠҠՠǠՠŠՠ̠ՠ""         ͠àҠ򭍠ŠΠàҫΠҩ٠Ӎ ààààààؠà̢ؠ퍠Ҡҫ٠Ҡ͠ȍҠ͠Ҡ֍ұҠ͠ѠҲ󠰰ҠԍРұҲҠ͍Рҩ獻̠Р°ѠˠᬠˍР±ŠĠˠӠˍΠĠ占Ҡ֍ŠҠԠàȠؠ報㮍Р΍Ԡ̩٠ؠ堲㮍Ҡ΍̩٠ӍĠĠ̠ĠŠᬠР 忍Š̠РԠᬠҠԠàȠ퍠ƠǍŠ²򍻍Ƞ٠ȍ̩٠ĠƠȍŠڲҠԍؠōӠǡؠӍ̠ҠȠŠР°ŠՠàŠРΠՠàŠҠЍŠ㍻űàŠҠΠ²àȠҠƍҠԍԠǠɠԠ獠Ҡ̠ԠàȠȍǠРŠű፠àŠűҠΠԠǠɠҠ獠ҠƍҠ̠ƠǍҠàȠȍРŠŠڲӠ