@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}M |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} *{NAMPTRINPOUTDATSTLNMVMVMVCTOLDNEWDUMNWEMANTMPXXDLFLCIOBLTMERTOPTV} W} X}'@@d'B7t@dd..VARIABLE NAME MODIFIERe..PROGRAM IN BASICf..LW 5/11/81n~~;A HY},;@,;@ ,;@ ,;A$,;@2,;@2,;A H,;@2,;@,;@,pggNAM$ - Z}VARIABLE NAME TABLE PTR$ - POINTER TABLE INP$ - INPUT FILENAMEqjjOUT$ - OUTPUT FILENAME [} DAT$ - READ/WRITE BLOCK OLD$ - OLD VARIABLE NAMErllNWE$ - NEW VARIABLE NAME DUM$ - DUM\}MY STRING MOVER TMP$ - DUMMY OUTPUT STRINGs??CIO$ - CIO CALLER OPT$ - OPTION INPUTv6.]}hhhLVx##@@E:}f +@@d1B7t@dC@@f( ^}ΠҠ0( (#( FILENAME EINGABE: 0@-( ( FILENAME AUSGABE: -@* B_}*@@c-@@$)@067,.>:,4 C@:,!Y( KEIN SAVE FILE !c B`}u6-@:7@,,'6-@:7@,,1 A76-I6-@:7@,,[6-@:7@,,e Au6-&%@a}4-@)@*67,.>:,. 46-`6-@6-'6-3"@6(V( KEINE VARIABLEN b}VORHANDEN.` B 8( }AUSWAHL :8( 1) VARIABLENANZAHL UND NAMENI&( 2) EINE VARIABLE UMBENENNEN I( 3) Ac}LLE VARIABLEN UMBENENNEN[0(' 4) ZWEIBUCHSTABIGE VARIABLEN ERZEUGEN[(& 5) EINBUCHSTABIGE VARIABLEN ERZEUGENO,($ d}6) GLEICHNAMIGE VARIABLEN ERZEUGENO( 7) FILES SCHLIESSEN UND ENDE7(( Š̠ &@-47 Ae}, 6-A:," @)!@, A (} A%@$6= A  A0%6-%@3 &@f}= A;*( ( VARIABLEN GEFUNDEN* A@Z6-@+( ALTER VARIABLENNAME: 8@;(D6-B:,P"g}Z AA!!67<,.>:@:7<,,%A(,B" A 47<," A%C &@ A"D&( NAME Nh}ICHT GEFUNDEN& AE AP A@H AJ'6-@"&@' ALA A 6.7<,(i}7( ALTER VARIABLENNAME: A A`N! AP A@! A0T]6-@6-@e)6-%A';AR@j}K( UMBENENNEN]ARU"&@ AV A W76-%@!A)6-A76-k}%@X2 6.>:,67@,.>:,( A@2 AA^O6-@6-A'-AR@=( UMBENENNENOAl}R_"&@ A` A a)6-%@!AU)6-A'b 6.>:, A@ AQm}hi6-@,( ATASCII-CODE NUMMER : 9@E!A'S6-&A(_!A'i A`iK6.>:%A(n},()AR@9( UMBENENNENKARj"&@ Ak! A  A@! Abr "o}( B sDAR@2( BITTE AUF WARTEN.DARtY 6-&'-@@@p}36-@:7,,G6-@:7%@,,Q AY6-%u= A67<,.>:,967%@<%@,.>:,= w0 @q}@0(@xm6-@:7@,,'6-@:7@,,1 A76-I6-@:7@,,[6-@:7@r},,e Am6-&y 6-C:, AzAhAi{AA|'Af@'As}@}) A$6- Ap) B ~16-&A$6-A$' Ap1 A&6(( WEITt}ER MIT ,@6 A&6-%$AV$'6-P:'AV,$6-&$AV'$6-%@6u}-@:7<,,!A'$ " $6-%@ A  3 -6-@:7<,,%!A'36-&A( (v}>:, ($6.7%@,67%B:,,.67<%B:,,.6-%B:,&@6-B:,$5( NEUEw}R VARIABLENNAME: ,@56-B:,?"6.2(< A`?$$!67<,.>:@:7<x},,%A(,$$p7 6.6-B:,067<,.>:@:7<,,&A(,4(7$X A]ArAsbAy}AgE6-?:C:,<@2,,F:Ag,!A';6-F:Ag,E BlE6-?:C:,<@H,,F:A,!A'z};6-F:A,E Bq$'= B6-F:A,("Ap3@= A0'/"@/ F:A,%F:A{},%AV0*(FEHLER 5*<($(DAS MENU WIRD AUFGERUFEN.8-@A< */@@$@|}/%D:MENU3F:A8,%AV$F:A9,%@A D:VARUMBED B'g}}/%D:MENU3F:A8,%AV$F:A9,%@A D:VARUMBED B'g<ABTEMPNAMENUMSNUMENUMBSNUMCNTNAME1NUMCOUNNUHASLINENUMINREITFLPONLENGTSTARSIFLPOINSTR }ENPOEFLNUMCNLINLEVARNUUSEREIRENUNRFLADLASLINEMUTFAL@@@@ }  } !@"#$%& }'()*'@@d'B7t@ddPROGRAM CRUNCHERnCOPYRIGHT ATARI 1981o }ALLE RECHTE DER DEUTSCHENp!!BEARBEITUNG BEI ATARI ELEK-qTRONIK VERTRIEBS GMBHhh;AV,;AV,;AV },;@ ,9A,9A,9A,9A,;@ ,;@ ,9@P,a +@@d }1B7t@dC@@^ } PROGRAM MASHERa & ( COPYRIGHT ATARI 1981#(&(MM(EBedenken Sie },dass alle Files im LIST-Format vorliegen muessen !   5 A@@ 5 Name des Quellfiles  } @@4 Ap@ 4 Name des Zielfiles  @@ } A> " Anzahl der im Quellfile>(verwendeten Variablen 6-A'&O(O(DLehnen Sie sich }zurueck und entspannenSie sich.Es wird etwas dauern.)AR@)-A68,-   }A0&  } ***PASS 1***#(&(** " Zeilennummern des Quellprogramms BUILD SYMBOL TABLE@ }6-@=7<,10*7<,/9%(7<,36-%@= A& (, APSCAN LINE" }&8@,@&"@A%-@6-A:78,<8,,,,!!6-P:&P:'A,$A },68,"A@ 8," AJ6-%@T!A 6-^ A 68,- }68,-8,%@  A% ( (  Ende von PASS 1*-@P&68,-*  }-A  6-8, !@P6-@P 68,-8,%@  6-O 6- -@ }P@6@%8,!AX6-%8,6- F('(Fuer  oder mehr AufrufeF(werden Var }iable verwendet.   * *  ***Konstantendefinitionen*** "@#4 @@4REW }IND INPUT FILE8***********************=!6-A%!LENGTH OF LINES@ A 0B6-L 6.6.` }-A j8, At 6.Q~67@,.=:,67B:,%@,.=67B:,%@,.=:8,, }B:,%B:,A =:,,// @=:, 7@:@4,AcB 6-%@ 6.>:@4,L BVA }b@[_ Eingabefehler !( 2-@@?(>:AS,C F(\(Programmabbruch !_`6-%@j A }d0! BP!IS THIS A NUMBER?"Ad @Ac 6-&@##7<,1A*7<,/ }ZAcP6-%@ 68,- 68,- 6-6-%@APE($' Bj'6-@ }6-B:,t'# 6-6@#6-6~'6-B:,&@'6-' -'47<%,$' ' } 6- FLAG, NO MATCH'$:6-6-:-B:,:17<,10*7<,/9'6-@1 BS }:7<,4.BS:"BT:&7<,4E6-@& BS:"BT:##7<,0-* }7<,0+BT;6-; (<6-&@2<"$<<6-A:7<,,F<$ N!6-@B:," }!$!NF7<,10*7<,/9%(7<,. B:,<6-%@F B*N) (,B:,!@& @)$4N- }@B:,>N7<,4  @$HN WN @ REM\N$3F:A8,%AV$F:A9,%@ }@D:MASHERC B'gZ V%(MIT NTNAME1NUMCOUNNUHASLINENUMINREITFLPONLENGTSTARSIFLPOINSTR 0#$BBACNOPTELDQFGSIVCVTALIINSTSTLINHLINLLINLSAVSSTTOSRPMAPTPHPLAMELIV}@ }@} !"#$%&'()*+,-.}d**TOKENIZED BASIC FILE READER IN BASICi33CROSS REFERENCE AND VARIABLE COUNTERnLW 4/24/809},;@,;A$,;@ ,;@,;AV,;@,;AV,;B`,;A$,;@,;@9,};@h,11;@,;AV,;A6,9AV,kkA$ - ARRAY FOR START TOKENS B$ - STRING FOR BLANK }FILL C$ - ARRAY FOR INPUT FILEjjN$ - STRING FOR FILE NAME O$ - STRING FOR STR OUTPUT P$} - ARRAY FOR NAME PTRSkkT$ - POINTER FOR END OF TAB E$ - ARRAY OF VARB ENDS L$ - THE LINKED LINE }LISThhD$ - ARRAY FOR NAME TABLE Q$ - STRING FOR STM F$ - STRING FOR OUTPUTiiI$ - INDEX }FOR NUMERICS V$ - ARRAY OF NUMERICS C - COUNTS OF NUMERICSFFS$ - TEMP STRING FOR BLOCKS } B - OUTPUT NUMERICS ARRAY__67@<@h,.DS,$:;EGGTST#<<><>=^*+-/NOA()==<<><>=+-(((((,SCUAVLARCPSRFELCSSAIP}SPS +@@?@@E:Q@@dcB7t@d(%ӠŠ}(s( (m(_Bem.:Diese Version verzichtet auf das zeitraubende Bildschirmlisting des Prog}ramms.p(s(9%6-F:A4,%F:A5,$AV9%@8 B(+(Filenamen eingeben : 8@}< @@-6-6A$<INIT POINTER  B BUILD NAME PTRS  B0INIT LINKS $6-}@  B$PGM AREA 99THIS RETURNS POINTER TO END OF CONSTANT TABLE I6-%@ A`IGET HI } BYTE OF FIRST LINE AND PROCESS  B`LIST THE LINKS  BLIST CONSTANTSpL 6- Bp6-@:},(!A'+(.(C(Listing beendet.F$LGETuTHE LINE NUMBER UTILITYz26-&@ Bp$6-@:,2GET LO }BYTE16-%@ Bp$6-@:,1GET LENGTH (%$AV, Ap 6-%N A`X& 6-6-%}@&SAVE POINTER]GET STATEMENT LENGTHb 6- Bp6-@:,lGET FIRST TOKENv26-%@6-! B}p26-@:,%@N"@)"@# A- AyNSTRING OUTPUT FOR REM AND DATANOW THE MEAT OF THE} STMT36-%@6-! Bp*6-@:,3GET IT4"@" ArP4. END OF THIS ONE/"@ } ArP/. END OF THIS STMT3"@ A# Ar3DO THE STRING+"@' ArP+TREAT THEN AS :}5"@ A# Ar5DO THE CONSTANT5!A' A# Ar5DO THE VARIABLE  Ap`}DO IT AGAINR " Ay\GET NEXT STATEMENTf6-%&@p Ap, 6-RESTORE POINTER6$@5}6-%@6-! Bp5GET THE CHARACTERJ+@:,AU A+TEST FOR EOL$#6-%@#GET LEN}GTH BYTE 6- Bp6-@:,;-@6-%# Bp' ;OUTPUT THE STRING 6-%$4!$6-%@}$GET BCD CONSTANT>!Y6-#-@@36-%&@= BpH67<,.L YGET NUMBERC!)!AU} A)NO MORE SPACEH!!6-%@!! A`R!`6-@:7<,,&@D37$@%@<$@%@},N A `TEST NEXT ENTRY\!m.47$@%@<$@%@,<6-%@P68,-8,%@Z AmINC} NUMBER COUNTf!K-6@467%@<%@,.7<,8 KPUSH INDEX ARRAYp!t67<,.>:%@,D67$@}%@<$@%@,.R6-%@a68,-@tSTORE NEXT VALUEV"6-%@$`" 6-&A( TURN O}FF MSBe"+ BP+PUT LINE NUM IN LINKED LISTj"oc6-@:7@$%@<@$%@,,%@:7@$%@<@}$%@,,$AVoGET STARTt" 6.7,~"G@:,!A'&6.>:@:,&A(,0 AGTURN OFF MSB IN NAME"'6}-%@!@' B" A ##!@ B# B#$R&oc6-@:7@$%@<@$}%@,,%@:7@$%@<@$%@,,$AVoGET START\& 6.7,f&P@:,!A'&6.>:@:,&A(,/(} 9 APTURN OFF MSB IN NAMEp&,(6-%@"!@, Bz& A &#!@ B# }B'$'Y 6- Bp$6-@%@:,26-%@< BpY6-%+@:,&@,$AV'""STM IS OFTEN PROGR}AM POINTER$'CCTHIS ROUTINE RETURNS A POINTER TO THE TABLE NEEDED&'jjTHE TABLE FORMAT IS: 1,2 } DUMMY POINTER HERE 3,4 START OF NAME TABLE('ll5,6 END OF NAME TABLE 7,8 START OF VALUE TAB}LE 9,10 START OF PGM STATEMTS8'$..6-@ B6-.SAVE POINTER.U!A$(+(}󠺠.(R(ԠU&./6-@ B%6-/GET BEG.+ -6- Bp} +6-D/;6-P:'AV,$6-&$AV;GET HI AND LOW BYTESN/:67%@,.>:,+67%@,.>:,:SA}VE POINTERX/& 6- Bp6-@:,&GET CHRb/96-%@ A(' B! 9NOT END OF NAMEl/16-%@} ! B!1GET NEXT NAME/L6-'@(*(FILEENDE GEFUNDEN-(I( VARIABLEN VORHANDEN.L(/L( ( ('(Lis}te wird aufgebaut :*(8-@H67<,.7<,L 2$2B-@'6-@$&@1 B@BGET ENDS FI}RST2/67<,.>:,/67%@<%@,.>:,2'6-%@ B@'GET LINKS2Z6-&@67<,.>:,E67}%@<%@,.>:%A(,ZEND LINKS ARE NEGS2 2(67<,.>:A(,(THE LAST IS -13B#6-+%@,$@}&@- B@BGET POINTER TO END3767@<@,.>:,767@<@,.>:,6$6K6-P:'AV,$}6-&$AV'$K. GET NUM IN A RETURN HI C LO B876-%$AV$7GET LO, HI AND RETURN NUM IN A:Q6-@:7@}<@,,76-@:7@<@,,A BEG6-QGET END:C67<,.>:,/67%@<%@,.>:,CSTORE LINE }NUMBER:f6-@$%@'6-@:7<,,E6-@:7%@<%@,,O BEfGET END OF THIS VARB:d#67%@}<%@,.7<,S67%@<%@,.7%@<%@,dSAVE IT AT END:l67<,.7@<@,K67%@}<%@,.7@<@,lSTORE NEXT LINK (OLD END) HERE:h6-%@ B@)67<,.>:,G67%@<%}@,.>:,hSTORE NEW END (OLD END+2) HERE:}6-%@ B@567@<@,.>:,O67@<@,.>:,}}STORE NEXT AVAILABLE ENTRY (OLD END+4) HEREv>$>( ( ()(CROSS REFERENCE LISTE :56-@A6-@K B}e67@<@,.=:,67@<@%,.VARIABLEN VERWENDET> B>?6-@6-?NOW LIST POI}NTER,VARIABLE POINTER>!( ( A!6-%@>56-@:7,,#6-@:7%@,,5. GET THE LINK>$"A( }Bi$FINISHED>U!A'6-&A(' BE-6-7 BA B` UGET NEXT VARIABLE>( BE6-(}GET LINE REFERENCE>D6-@:7<,,/6-@:7%@<%@,,9 BEDGET LINE>WAy'@@}0(B@@L BWPRINT IT>)6-%@ B`0)DO IT AGAIN^B( B$hB% ! B}%GET NEXT BUFFERmB&"6.$rB6.7&<&,$PFG B6-%A$)6-%A$56-GSE}T UP POINTERSUF&!A$&6.7A$<A$,ZFL)@6-%@,67<,.>:,8 A$B BLGET B}UFdF$DHC( ( (( KONSTANTEN : (2( Anzahl Werte5(C-@NH#6-@:7<,,&@#GET PTRSHa6-8%@},!6. *6.=:,C67@<@,. R(  aOUTPUT COUNTXHK.6.7$@%@<$@%@},;(8,KOUTPUT NUMBERH I$8JD 6.=:,'67%@<%@,.56-%@A @8D$BJ B}6-@$JSB67@<@9,.' E$SCLEAR ARRAYdK!@8 B}iK67<,.6-%@$nK B6-@$ N"F:A,"A6" B *N\( (K(Fehler F:A,} in Zeile F:A,%F:A,$AVV@Y(\(+NA%(Legen Sie die Utilitydisk einA(und booten Sie erneut !},N B0uINIT STRING:u467@,. %67AV,. 467@,.Du467@,. %67B`,. 467@},.Eu 6.Nu$3F:A8,%AV$F:A9,%@?D:CROSSB B'g%$<%%$,,LIVw*+{{ DLISSSWRENUMBERX KK}ALLE RECHTE ATARI ELEKTRONIK VERTRIEBS GMBHllZUSAMMENSTELLUNG UND MENU 25/07/83 } FRANK OLLMANN, 2000 HH 60( +-A'AR@9@K}A A"]A@WoA@r@w2;@0,<6.hLS6-C:,F{Ai@}'Ap@9ArKAs@]Ax@CoAy{6-?:C:,,GJF:Aq,!}AD@AT@D:J @qP%%6-F:A`,%F:Aa,$AVU+-%@%@'}@+ i(( atarisn##( programmierhilfen p( s( }t( MIT select WAEHLEN x+-@%@(( - - RENUMBER+(,-@%@&( - - MASHER)(,(4}-@%@4( - - VARIABLEN UMBENENNER<-@%@<(" - - CROSS REFERENCE (Bildschirm)9-@%@}9( - - CROSS REFERENCE (Drucker)Ou-@"@?(%Alle Rechte der deutschen BearbeitungQ-@%@u(}ATARI Elektronik Vertriebs-GmbHT F:B2y,@A@Y)@w)%@&@^1-@!@}1(DANN start DRUECKEN 6-@ A@6-F:B2y,"@A@w"@}A@Aq/2A`&$@@@;-@(K(@ Y6-%@}e!@q6-@@%21-@(@(@* F:B2y,"@A` } A6-+&@,'@#B%"+@1AC-@@b(@lade das }programmt-@(@//AA A0A@AP% D:RENUMBER%D:MASHER  }% D:VARUMBE%D:CROSS% D:CROSS.PRT', RENUMBER', MASHER',VARIABLEN UMBENENNER', CRO }SS REFERENCE (B)', CROSS REFERENCE (D)3F:A8,%AV$F:A9,%@>D:MENUA B'gTO  }FORMAT?TYPE DLISSSWRENUMBERX KK #?$BBACNOPTELDQFGSIVCLIINSTSTLINHLINLLINLSAVSSTTOSRPMAPTPHPLAMELIVV }VVTANUM@ }@} !"#$%&'()*+,-}./01'@@d'B7t@dd**TOKENIZED BASIC FILE READER IN BASICi33CRO}SS REFERENCE AND VARIABLE COUNTERnLW 4/24/809,;@,;A$,;@,;@,;AV},;@,;AV,;B`,;A$,;@,;@9,;@h,11;@,;AV,;A6,9A}V,kkA$ - ARRAY FOR START TOKENS B$ - STRING FOR BLANK FILL C$ - ARRAY FOR INPUT FILEjjN$ - ST}RING FOR FILE NAME O$ - STRING FOR STR OUTPUT P$ - ARRAY FOR NAME PTRSkkT$ - POINTER FOR END OF TA}B E$ - ARRAY OF VARB ENDS L$ - THE LINKED LINE LISThhD$ - ARRAY FOR NAME TABLE Q$ - S}TRING FOR STM F$ - STRING FOR OUTPUTiiI$ - INDEX FOR NUMERICS V$ - ARRAY OF NUMERICS } C - COUNTS OF NUMERICSFFS$ - TEMP STRING FOR BLOCKS B - OUTPUT NUMERICS ARRAY__67@<@h},.DS,$:;EGGTST#<<><>=^*+-/NOA()==<<><>=+-(((((,SCUAVLARCPSRFELCSSAIPSPS +@@?@@}E:g(# ӠŠq B@@P:@@dB7t@}ds( (m(_Bem.:Diese Version verzichtet auf das zeitraubende Bildschirmlisting des Programms.p(s(9%}6-F:A4,%F:A5,$AV9%@8 B(+(Filenamen eingeben : 8@< @@}-6-6A$<INIT POINTER  B BUILD NAME PTRS  B0INIT LINKS $6-@  B}$PGM AREA 99THIS RETURNS POINTER TO END OF CONSTANT TABLE I6-%@ A`IGET HI BYTE OF FIRST }LINE AND PROCESS  B`LIST THE LINKS  BLIST CONSTANTSpT 6- Bp6-@:,(!A'+(}.(C(Listing beendet.F$TGET HI BYTEuTHE LINE NUMBER UTILITYz26-&@ Bp$6-@:,2GET LO BYTE1 }6-%@ Bp$6-@:,1GET LENGTH (%$AV, Ap 6-%N A`X& 6-6-%@&!}SAVE POINTER]GET STATEMENT LENGTHb 6- Bp6-@:,lGET FIRST TOKENv26-%@6-! Bp26"}-@:,%@N"@)"@# A- AyNSTRING OUTPUT FOR REM AND DATANOW THE MEAT OF THE STMT3#}6-%@6-! Bp*6-@:,3GET IT4"@" ArP4. END OF THIS ONE/"@  ArP$}/. END OF THIS STMT3"@ A# Ar3DO THE STRING+"@' ArP+TREAT THEN AS :5"@%} A# Ar5DO THE CONSTANT5!A' A# Ar5DO THE VARIABLE  Ap`DO IT AGAINR&} " Ay\GET NEXT STATEMENTf6-%&@p Ap, 6-RESTORE POINTER6$@56-%@'}6-! Bp5GET THE CHARACTERJ+@:,AU A+TEST FOR EOL$#6-%@#GET LENGTH BYTE 6(}- Bp6-@:,;-@6-%# Bp' ;OUTPUT THE STRING 6-%$4!$6-%@$GET BCD CON)}STANT>!Y6-#-@@36-%&@= BpH67<,.L YGET NUMBERC!)!AU A)NO *}MORE SPACEH!!6-%@!! A`R!`6-@:7<,,&@D37$@%@<$@%@,N A `T+}EST NEXT ENTRY\!m.47$@%@<$@%@,<6-%@P68,-8,%@Z AmINC NUMBER COUNTf,}!K-6@467%@<%@,.7<,8 KPUSH INDEX ARRAYp!t67<,.>:%@,D67$@%@<$@-}%@,.R6-%@a68,-@tSTORE NEXT VALUEV"6-%@$`" 6-&A( TURN OFF MSBe"+ B.}P+PUT LINE NUM IN LINKED LISTj"oc6-@:7@$%@<@$%@,,%@:7@$%@<@$%@,,/}$AVoGET STARTt" 6.7,~"G@:,!A'&6.>:@:,&A(,0 AGTURN OFF MSB IN NAME"'6-%@!0}@' B" A ##!@ B# B#$R&oc6-@:7@$%@<@$%@,,%@:71}@$%@<@$%@,,$AVoGET START\& 6.7,f&P@:,!A'&6.>:@:,&A(,/( 9 A2}PTURN OFF MSB IN NAMEp&,(6-%@"!@, Bz& A &#!@ B# B'$'3}Y 6- Bp$6-@%@:,26-%@< BpY6-%+@:,&@,$AV'""STM IS OFTEN PROGRAM POINTER$'CC4}THIS ROUTINE RETURNS A POINTER TO THE TABLE NEEDED&'jjTHE TABLE FORMAT IS: 1,2 DUMMY POINTER 5}HERE 3,4 START OF NAME TABLE('ll5,6 END OF NAME TABLE 7,8 START OF VALUE TABLE 6}9,10 START OF PGM STATEMTS8'$..6-@ B6-.SAVE POINTER.R!A$(+(󠺠.(7}O(R&./6-@ B%6-/GET BEG.+ -6- Bp +6-8}D/;6-P:'AV,$6-&$AV;GET HI AND LOW BYTESN/:67%@,.>:,+67%@,.>:,:SAVE POINTERX/& 6-9} Bp6-@:,&GET CHRb/96-%@ A(' B! 9NOT END OF NAMEl/16-%@ ! B!1GE:}T NEXT NAME/L6-'@(*(FILEENDE GEFUNDEN-(I( VARIABLEN VORHANDEN.L(/L( ( ('(Liste wird aufgebaut ;}:*(8-@H67<,.7<,L 2$2B-@'6-@$&@1 B@BGET ENDS FIRST2/67<,.>:<},/67%@<%@,.>:,2'6-%@ B@'GET LINKS2Z6-&@67<,.>:,E67%@<%@=},.>:%A(,ZEND LINKS ARE NEGS2 2(67<,.>:A(,(THE LAST IS -13B#6-+%@,$@&@- B@>}BGET POINTER TO END3767@<@,.>:,767@<@,.>:,6$6K6-P:'AV,$6-&$AV'$?}K. GET NUM IN A RETURN HI C LO B876-%$AV$7GET LO, HI AND RETURN NUM IN A:Q6-@:7@<@,,76-@@}:7@<@,,A BEG6-QGET END:C67<,.>:,/67%@<%@,.>:,CSTORE LINE NUMBER:f6-@A}$%@'6-@:7<,,E6-@:7%@<%@,,O BEfGET END OF THIS VARB:d#67%@<%@,.7<,B}S67%@<%@,.7%@<%@,dSAVE IT AT END:l67<,.7@<@,K67%@<%@,.7C}@<@,lSTORE NEXT LINK (OLD END) HERE:h6-%@ B@)67<,.>:,G67%@<%@,.>:,hSTOD}RE NEW END (OLD END+2) HERE:}6-%@ B@567@<@,.>:,O67@<@,.>:,}STORE NEXT AVAILE}ABLE ENTRY (OLD END+4) HEREv>$>U B(-(CROSS REFERENCE LISTE :0333O3CROSS REFERENCE LISTE :R3U3>{6F}-@6-@% B?67@<@,.=:,k67@<@%,.VARIABLEN VORHANDEN.u Bx3{3>?6-G}@6-?NOW LIST POINTER,VARIABLE POINTER>!( ( A!6-%@>56-@:7,,#6-@:7%@,,5H}. GET THE LINK>$"A( Bi$FINISHED>X!A'6-&A(' BE-6-7 B:3D B` XGETI} NEXT VARIABLE>( BE6-(GET LINE REFERENCE>D6-@:7<,,/6-@:7%@<%@,,9 BEDGET LINE>J}%(   B%PRINT IT>)6-%@ B`0)DO IT AGAIN^B( B33$hB% ! B%GETK} NEXT BUFFERmB&"6.$rB6.7&<&,$PFG B6-%A$)6-%A$56-GSET UP POIL}NTERSUF&!A$&6.7A$<A$,ZFL)@6-%@,67<,.>:,8 A$B BLGET BUFdF$M}DHR B((3*3 KONSTANTEN :-3D3 Anzahl WertR-@NH#6-@:7<,,&@#GET PTRSHt6-N}8%@,!6. *6.=:,C67@<@,. H(e(@  tOUTPUT COUNTXHa.6.7$@O}%@<$@%@,;(8,Q(@8,aOUTPUT NUMBERH I 3 3 $8JD 6.=:,'67%@P}<%@,.56-%@A @8D$BJ 3 B6-@ $JSB67@<@9,.' Q} E$SCLEAR ARRAYdK!@8 BiK67<,.6-%@$nK 3 B6-@ $ N"R}F:A,"A6" B *NPE(Fehler F:A, in Zeile F:A,%F:A,$AVP@/NA%(Legen SiS}e die Utilitydisk einA(und booten Sie erneut !0N B3F:A8,%AV$F:A9,%@C D:CROSST}.PRTF B'g , ($FGSIVCLIINSTSTLINHLINLLINLSAVSSTTOSRPMAPTPHPLAMELIVV%BLKQEXGOTOXLISTXTRAPXTHENXGOSUBXGOXTOXRESTOREIAABCCCDRERECDIDFTHEDDSAVIRECRECV}REC @ W}@X} !"#'@@d'B7t@d A P ~~;@,;@,;Y}@,;@,;@,;@,;@,;@,;@,;@,;@, 6. 6.>:@4,Z}( 6. 2M6.GOTO 6.LIST '6.TRAP 36.THEN @6.GOSUB M6.GO TO <6.RESTORE FLL;A ,9[}A<@,;A ,;A ,9@P<@,Pb +@@d1B7t@dC@@\}b  Ҡn4(FILENAME EINGABE4B:, @Ax5 A@5@@]}4(FILENAME AUSGABE4B:, @A05 A0@5@@96-@^}6-@'6-36-B'g6(9(4(ERSTE ZEILEN-NR.4B:,"A@ A`6-A:,0_}( SCHRITTWEITE0B:,"A@ A6-A:,+(+( NUMMERIEREN EINES TEILBEREICHES:' (VON`}'B:,"A@ A6-A:,' (BIS'B:,"A@ A 6-A:,. B . a}BITTE HABEN SIE GEDULD...6-6@ A 0" 6- A, 6-%6@@6-%@Jb}-@B:,T7<,4' A`^ h6-A:7@<,,r"A|$$!8&@<@,Ac}I Ap(F(1EINGABEFILE NICHT IN NUMERISCHER REIHENFOLGEI68<@,-68<@,-* d} 68<@,-* A A@ 6- A @ @@6-6e}@@ 6.6-%@6-6@ 6-B:, 68<@,-@&-@0f}7<,0A: 06. AD 6.N4A`X((7&@<&@,4:A b&&7&@g}<&@,0A`l;"6@/68<@,-&@;6-v%@!A`6-%@q}'%2$8'1XoMMqMMMMºMMMMMx[MoMMMM1B'DOS SYSWIRRWARR000B)UVARUMBE B3~MASHER BHCROSS BMENU BI CROSS PRTB!URENUMBER BTEST BTEST LSTWIRRWARR000BAUTORUN SYS 47<%@, A  47<%@, A  47<%@, A  47<%@, A `r}%@!A`6-%@ 47<%@, A  47<%@, A %@!s}A`6-%@ 47<%@, A  6- 6-6-%@ !At}@*8<@, A@46-8<@,> A APH @7<,R A\ @u}f Ap@z@ Ap    F:A,"A6AP F:A,"Av}6A8 Ap((5(PROGRAMM FEHLER- F:A,86-@ A 6- 6-6w}-6.7<,0A@6-%@7<,0A6-%@!$6.7<,10*/x}9A$"@A.8 Ap(4(SPRUNG DURCH EINE VARIABLE IN: 8(8 6-B$L6-%@Vy}68<@,-`68<@,-j6-%@t!A~7<,4A7<,4:A(7<z},4,6-%@( A A $6- 6- 6-''6-A:78<@,<8<@,,,{}!B'gA8<@,"A@ A4 Ap(0  FINDE ZEILE  NICHT IN:4  @|} AP "8<@, "6-%@"8<@,!"6-&@6-+P:+&,'@,%,(!)}} Ap2 AP< @8<@,F6-%@P$Z@wdAY@4n~} x$3F:A8,%AV$F:A9,%@B D:RENUMBERE B'g,D67$@AVIRECRECp.w TEST FUER CROSSREF6-(6-2 6-%%!}< D:TEST,CRS TEST FUER CROSSREF6-(6-2 6-%% 10 REM 133 TEST FUER MASHER30 B=031 IF S=2 THEN GOTO 3140 C=050 F=C+B+D55 GOTO 325456 ? E60 END -2 6-%%$hEiͩkΩ͙kCopj`j {j`Hi͝Νh`-}L"UNEM:D"NUR:1,085EKOPΩ͙kCopj`j {j`Hi͝Νh`,!'%2$8'1XDzMMMIJMM»MU[MM]a]\b^^e]f^VMM»[MMMMMMMMnnv1