@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREIE SEKT.! G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSBENUTZE MEM.SAV UM ZU LADEN!! D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSFEHLER-SAVE IN MEM.SAV AUF DISK TIPP Y FUE&}R DOS-START B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:N`}ABBUC e.V. DOS 2.5FarbeŠΠ㩠 . DISK INHALT . FORMAT 1040. ZUM BASIC *} . DUPLIZIER DISK. KOPIERE FILE . BINAER SAVE. LOESCHE FILE(S) . BINAER LOAD. NAME AENDERN . START AB ADRE+}S. SICHERE FILE . MEM.SAV ANLEG.. ENTSICHERE FILE . DUPLIZIER FILE. DOS NEU ANLEGEN . FORMAT 720SecL !N',}#"&))9(&*)/h)''-&؆莟R'S  v L/ˢ L }LEGE-->DOS 2.0s, TIPP Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!FALSCHE WAHLWAEHLE.} FUNKTION-->νś! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DISK INHALT-->AUSGABE,FILE NAME ?[# 0 0 &|D3" 1L!NICHT AUF DISK N !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TIPP "" ZUM LOESCHENWAS LOESCHEN ? 2}KOPIE-VON,NACH?WAHL NICHT ERLAUBT409 FREIE SEKT.! KOPIERE---D1:DRUCKER1.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!ABKUERZUNGEN SIN6}D JETZT NICHT ERLAUBT 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!NICHT LADBAR WELCHE DATEI LADEN ?) 0 ?}0#B 1L!SICHERE FILE NAME?) 0 0$B 1L!ENTSICHER FILE NAME?DUP DISK-QUELL,ZIEL STATION?TIPP "" FUER PROGRA@}MMGEBRAUCH :""LOESCHT MEM.SAV SPEICHERFE! +L1   `*  70 2 2A} 0.* 1 y0 0)LEGE DISK EIN ,TIPP "^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` DISK VOLL !!! LEGE QUELLDISK EIN,TIPP ΛLEGE ZIELDISK EIN ,TIPP E}`  `8 rL1`-* 1P* 1 y0Y`hhL!GEBE FILE NAME AN ? - 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`ZIEL KANNKEIN DOS.SYS J}SEIN!0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GEBE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`NUR 1 BUCHSTABE !! ,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} ZU LANG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!FEHLER- 144ɛ+,' 20*.. өr2 1``2ZU VIELE WERTE!FALSCHE HEXAQ}DEZIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1GEBE D1-->D8 ANuR} EZIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1GEBE D1-->D8 ANu &'?PCRd Initialisierung von Port An:6-BG6-BG:Adressen von Port PT}A und CRAx:@2%@:CA2=Low, Data-Direktion Register8AU8Alle Portleitungen auf Ausgang stellenU}C@2%@%@CInput/Output-Register selectierenHauptprogramm55 ,Welchen Wert soll ich an die RelaV}is ausgeben*AU A D:BEISPL1.BASla{09:jrPCRd Initialisierung von Port Bn96-BG6-B X}G9Adressen von Port B und CRBx'@H'@RBBWie Oben, nur werden alle Portleitungen auf A Y}usgabe gestelltHauptprogramm 6-F:,!  ! Schalterstellung: I6-A(#-@/6- Z}5A6-@I6-&$ 6-'@ $ AFFZeile 230 und 240 wandeln den Dezimalen Wert, den man vo [}n Port BMMbekommt in einen Bin{rwert um. Der gibt die Stellungen der Schalter an., D:BEISPL2.BASie Stellun \}R6-%@67,.wert um. Der gibt die Stellungen der Schalter an., D:BEISPL2.BASie Stellun $(PCRd((*** Initialisierung von Port A ***n96-BG6-BG9Ad^}ressen von Port A und CRAxC@2%@%@CCA2=High, Data-Direction Register1AU1Alle Leitungen _}Port A = AusgangK'@2%@%@%@KCA2=High, Input / Output Register##*** Hauptprogramm **`}*77 .Welchen Wert soll ich an den Drucker ausgeben* 6-P:,* )!AUA ( 6-F:,(Contra}olgegister abfragen:, A(A@,Ist Bit 7 gesetzt?) )Dann lege den Wert auf Port A?@2%@b}%@?Loese einen STROBE-Impuls ausF'@2%@%@%@F(erst Low, dann wieder High)"- Ac}-Frage nach dem naechsten Wert, D:BEISPL3.BAS%@%@F(erst Low, dann wieder High)"- A=7FHIHHLhH hL@ " #  h`8֩֩<֠`ɛ  ֩4֭֩<֥`)e}```HLhH hL@ " #  h`8֩֩<֠`ɛ  ֩4֭֩<֥`)O)+,++L`8֩֩<֠`֩4֭֩<֥`)`֩4֭֩<֥`)\7ACDCCLhH hL@ " #  h`֩֠`ɛ  ֥֩֩`)`0h}ӍөCLhH hL@ " #  h`֩֠`ɛ  ֥֩֩`)`0H$&'&&L`֩֠`֥֩֩`)`֥֩֩`)`0 U;<  PPBDPCWALLMLSELLKLLSLBIwBIy@TA3@ B B$k} @ @& @Q @ AB SAVE"D:ECHT$l}ZEIT.BAS" By/6-A$AV%@$@%@=6-%@I6-U6-@Ta@Hm$m}AUsy - (}!;@0,9@P,-6-@6-B 6-B'AR@(}'6-@$n}6-?::,H67@,.>:,H6-P:'@,$6-&$@667@,.>:,H67@,.>:,H6-P:$t}'@,$6-&$@667@,.>:,H67@,.>:,(( b) Wochentag:B Ae( (0=Sonntag)".6-P$u}:O:,,B!@Ae67@,.>:,(( b) Datum:> A(-Tag :*6-P:O:,,>!@1A$v}> A(-Monat:*6-P:O:,,>!@A> A(-Jahr :*6-P:O:,,>!@A$w}H6-P:'@,$6-&$@667@,.>:,H67@ ,.>:,H6-P:'@,$6-&$@667@,.$x}>:,H67@,.>:,H6-P:'@,$6-&$@667@,.>:,H67@,.>:,'('(Bitte eine Taste dru$y}ecken:"@@K/)@:@6-?:255 bricht ab.(6-#6-%@(#68,-)${}* AV) A  @%,@@%1)6-@T%@b&) @%6!!(}Port$|} - Programmierung@L A (((:(Wert fuer die Ausgaenge 0-7 L@@)JT3( ((Soll Ausgan$}}g 8 *"@T3(^"@b(h(geschaltet werden?rA"@@K/)@$~}:@A(>:,|$"@:J,$6-@T%@b&  @%6-B 6-(} $}DATA C-@ 6-F:,(6-%1(,?6-%@C  (~(GOTO 910( DATA -$}& N6-B %N//F:,"A*F:%@,"ABp*N//@@D:ECHTZEIT.OBJ4N'$})@)@'$FF $FF>N()@)@(STARTADRHN&)@)@&ENDADRRN886-?:C:$}&hRhUhTYX VXԭY`,<,\N@fN$D:ECHTZEIT.BAS15:20:2514.11.8&ENDADRRN886-?:C:$gxoyhhhԠ dx dx:者Ԣ dx dx.Ȣ dx)i xɛՄ`֩8֩֩4(}֊ ֭)֩֩8֩֩4֩@֭))) 0ԩ`SonntagMontagDienstagMittwochDonner(}stagFreitagSamstagSonntaghhhԩ֩8֩֩4֠ ֭) ) ֭)`r(|  #WERTWER =F:B,A:(ANALOG.OBJ ist nicht geladen!=d;@,,}/6-?:B:, R6-%@67,..R67%@,.7$@&@<$@&@,% D<}:DIR(Ԡ  R6-%@67,..R67%@,.7$@&@<$@&@,% D< ]^6PPBDPCWALLMLSELLKLLSLPPAWRELAIDRUCBIwBIy@bA"3@}@B B @ @& @7 @ A B@}BP$BP%@tSAVE"D:DEMO.BAS" By/6-A$AV%@$@%@=@}6-%@I6-U6-@Ta@HmAUsye'6-A$AV%@$@56-%@@}A@M@Y@e@ N (},;@0,;@,9@P,86-@B6....N6-@}6-B 6-B'AR@(}'6-@6-?::,H67@@},.>:,H6-P:'@,$6-&$@667@,.>:,H67@,.>:,H6-P:'@,$6-&$@667@@},.>:,H67@,.>:,(( b) Wochentag:B Ae( (0=Sonntag)".6-P:O:,,B!@Ae6@}7@,.>:,(( b) Datum:> A(-Tag :*6-P:O:,,>!@1A> A(-Monat:@}*6-P:O:,,>!@A> A(-Jahr :*6-P:O:,,>!@AH6-P:'@,$6-&$@}@667@,.>:,H67@ ,.>:,H6-P:'@,$6-&$@667@,.>:,H67@,.>:,H6-P:@}'@,$6-&$@667@,.>:,H67@,.>:,'('(Bitte eine Taste druecken:"@@@}K/)@:@6-?:255 bricht ab.(6-#6-%@(#68,-)* AV) A @} @%,@@%1)6-@T%@b&) @%6!!(}Port - Programmierung@L A (@}((:(Wert fuer die Ausgaenge 0-7 L@@)JT3( ((Soll Ausgang 8 *"@T3(^@}"@b(h(geschaltet werden?rA"@@K/)@:@A(>:,|$"@:J,$@}6-@T%@b&  @%ANALOGCONTROLLER*(*(Welchen Wert sollen ich auf die&&(Relai@}s-Steuerung geben (0-15) A 6-P:O:,,!@A6-@$ F:,AP@}*(*(Jede Minute ein Ausdruck (J/N):"@@K/)@:@@t@%6@}63Datum: 7@,, den 7@<@, @%6-B 6-(} DATA C-@}@ 6-F:,(6-%1(,?6-%@C  (~(GOTO 910( DATA -& N6@}-B %N//F:,"A*F:%@,"ABp*N//@@D:ECHTZEIT.OBJ4N')@)@@}'$FF $FF>N()@)@(STARTADRHN&)@)@&ENDADRRN886-?:C:&hRhUhT@}YX VXԭY`,<,\N@fN6-BpN//F:,"A*F:%@,"BPzN--@@@} D:ANALOG.OBJN')@)@'$FF $FFN()@)@(STARTADRN&)@)@@}&ENDADRN886-?:C:&hRhUhTYX VXԭY`,<,N@N$ D:DEMO.BAS16:22:3414.11.8@}7Samstag00N886-?:C:&hRhUhTYX VXԭY`,<,N@N$ D:DEMO.BAS16:22:3414.11.8@b%DOS SYSb*)DUP SYSbSBEISPL1 BASbWBEISPL2 BASb]BEISPL3 BASbdDRUCKER1COMbfDRUCKER2COMbgPRINTER1COMbiPRINTER2COMbjECHTZEITBASbECHTZEITOBJbANALOG1 BASb ANALOG2 BASbANALOG OBJb ANALOG BASbDIR b#DEMO BAS