863,1537: PUBLIC DOMAIN D.WinkelBerlingerode5601 GRZEI;;$"'"!"6!"O*ȼ[y 0N (T(* ( (~w}=_38/{<_S{M_0zW{_30{<_{=_30D > > D> :wy(˿ *@8 o&)))~#fo>` "NqFpF ( FFx#wAF~ ( #F#Fp*> $"!4#~w">ͽ9!@F!Autoren: GRZEI H.GutzerSt.Wendt ` D.Winkel '88 2600: (1094)0100@(5C8::q2"Nach automat. Umschaltung ins CAOS-MENU":<" mit 2x >ENTER< initialisieren!"::F" Mit RUN 100 starten !"::P" Alle weiteren Starts mit RUN !":80:#Z(1,0);"%GRZEI":(2,0);"%REBASIC":=d0,31,0,39:::(15)pn5);"angle-Soft ";:(96);:" '88 DISPLAY1"{x(15)4);"Gro";:(126);:"- oder Kleindarstellung ?":6);"Ihre Eingabe : G / K ?"A$:A$""150A$(71)GR2GR2(15)8:" Anfangsadresse(HEX) :";HA$T (HA$)1(HA$)4180eHH$HA$:460yDAD:HH$"":D0" Endadresse(HEX) :";HE$ (HE$)1(HE$)42202,31,0,39:HH$HE$:460DED:HH$"":D0 H$HA$:600:HA$H$% H$HE$:600:HE$H$:H$""L "" Anfangsadresse(HEX) : ";HA$s ," Endadresse(HEX) : ";HE$ 6" Anfangsadresse(DEZ) :";DA @" Endadresse(DEZ) :";DE J10,31,0,39:DDDA:650 T DA32767 DA49152 680 ^ DA32767 DA(65536DA)5 h DE32767 DE(65536DE)E r IDA DE[ | ZAZA1:DDDD1i  D(DA)y  520:570  H$;:" ";  DADA1:H$""  ZA8 :ZA0:650 I:780  ---- Umwandlung in DEZ-Zahl ----  I1 (HH$)  Z((HH$,I,1))3  Z58 ZZ48: ZZ55B  DZD16K I:r  ---- Umwandlung in HEX-Zahl ---- RD(D16)16  R10 H$(48R)H$: H$(55R)H$  D15 D(D16):520 & 0 ---- Formatierung Bytes ---- : (H$)1 H$"0"H$ D9 N ---- Formatierung Adressen ----U X (H$)1 H$"000"H$p b (H$)2 H$"00"H$ l (H$)3 H$"0"H$ v  ---- Ausgabe Adressen ---- DDD:520:600 H$;:" ";:H$"":  --- Bildwiederholspeicherblock ---! DADA32768:DEDE327681  IDA DEG  ZAZA1:DDDD1U  D(DA)e  520:570v  H$;:" ";  DADA1:H$""  ZA8 :ZA0:650 I  ---- Bildschirm loeschen ---- GR2(15) :34)(141)  A$:A$(13)800*0,31,0,39:C4 - Abfrage: Programmfortsetzung -t>:2);"DISPLAY weiter oder Ende ? W / E"HA$:A$""840R A$(87)100\Abfrage: Programmfortsetzung -t>:2);"DISPLAY weiter oder Ende ? W / E"HA$:A