AAREM DEMOFILE P J!;AREM Z80 MZ7 V.1A1 D; ;4.1985; ;S T; F .;#;Y ;.;;';D F D!; S, &; R R,$; A!; .;%;T -&;, &; , ; .;;';U R ,&; , -; Z .;A:ORG,PUT ??;$;T $; .;A:ORG,PUT ??;;;E ;R A:$;(K B-;);&;V -; :;INPUT=MSGDE=MSGHL=BREAKF=h GET= ?=;';? ASCII Z&; S 158 B$;D C 0-1FH ;F:;$;? ASCII- '; 158 (;T 0-1FH ;:;%;00H: F ; %;01H: F ; ;02H:F1 ;03H:F2 ;04H:F3 ;05H:F4 ;06H:F5 ;07H:F6 ;08H:F7 ;09H:F8 ;0AH:F9 ;0BH:F10;0CH:B ;0DH:CR;0EH:TAB (8) ;0FH:NL ;10H:D;11H:C ;12H:C ^;13H:C ;14H:C _;15H:H ;16H:C;17H:G;18H:I;19H:A%;1AH: F ; %;1BH: F ; %;1CH: F ; %;1DH: F ; %;1EH: F ; %;1FH: F ; ;?S=-;? ' ' ?TABA=;?S CURSORX=A;?S CURSORX=A CR=b NL=j?P=;?/P AIXSTA=?PCOD=;';A ?PCOD S,'; H G ;P .&;E C 60H-0FFH";; %;S , $;K . "; D .;$;F ?PCOD #; ;.&;O 60H-0FFH -%;; "; %; . ; .; ?AH=|?HLH=?HLD=;GHLD=;(DE)='0'-'65535'GHLH= ;(DE)='0'-'FFFF';E=0;;;.?HLD;? HL DEZ\0 &'?IHLD^  'ZSTA&'SPOOL0 &'MSGDE| :;SPOOL0;UEBERSPRINGT ALLE;FUEHRENDE 0EN AB DE";SKIPS ALL LEADING 0S FROM DE^ DSPOL0x '0'DSPOL0   'NDEC NDEC|:;?IHLD;? HL DEZ IN ZSTA^^ ^ ^ 'ZSTA;PUT (DE)'';ZUERST 10000;FIRST 10000S &'?I10P ' &'?I10P 'd &'?I10P ' &'?I10P ;HL<10 0'0 R;A=0;ENDBYTE|| | |:;?I10P;PUT (DE) 10000-1*X R;CY=0  '0- D?I10P;ZAEHLER ;COUNTER  ;CY=0'D?I10P~ ;HL RESTAURIEREN ;HL BACK;PUT '0'-'9' :; ZSTA,,;6;ADDHLA;HL=HL+A&;ADD LOWBYTESD;IF OVERFLOW:; P.TEXT#;D R ; T.!;E A"; D Z ; ';' .";D R -#; D#; ? .S CALL 0;.;%;T -; .#;A ';''; ,'; .#;T ;CALL 0.;  'IXSTA^^  '( ?+;PUT VEKTOR (NLFLAG-;H=FLAG';NL ? 'T?TXT  ''RP.TXT T?TXT @' 0'?P'RP.TXT ';'RP.TXT  ' RP.TXT( NLFLAG-| |:; NLFLAG;;NEGHL;HL=-HL^;1. INVERSE ;2. NEG|:; ?HLDV;? HL DEZ MIT VORZEICHEN;? HL DECIMAL+SIGN^^  '+ @' 0'NEGHL'R?HLDV  '- R?HLDV &'? &'.?HLD| |:; MULTHB;HL=HL*BC";HL,BC KOENNEN AUCH NEG. SEIN;HL,BC CAN ALSO BE NEG.^^ ^;INTERN HL=DE*AC  '  ;DE=HL  '; DMLTHB~ ;ROT HL _;ROT AC _ 'NAD~ NAD'DMLTHB;|| |:;;;Z D; G 10X ; 60H 0FFH;';C ?PCOD- G 10X;C 60H-0FFH; ?PCOD ?PCOD'................';-6F!'..........',,'.....';-7F$},'.........',^,'.....';-8FH_,'.',e,`,~,'.',t,g,h,'.',b,x,d,r,p,c;-9FDq,a,z,w,s,u,i,'.',,k,f,v,,,,jBn,'.',,m,'...',o,l,,,,'.',y,{,'.';-BF?,,,'...',,'.',,'..',,'.',,,'.';-CF<,,,,'.',,'..',,'....',,,;-DF'................';-EF3'......',,,'..',,,,'..',;-FF;;́!͑!͑O}2͛! " ͙!*s#r*&@!s!s:$͋$ @!!:"e"g"iM@*