esp `  @`/#@%`')+-/1 3@5`79;=?A C@E`GIKOQ S@U`WY[]_a c@e`gikmo/s@u`wy{} @` @ ` @ @ ` O ` ǀ ɠ @ ` ׀ ٠  @`/@`!Aa   Aa!!#A%a')+-/1!3A5a79;=?A!CAEaGIKMOQ!SAUaWY[]_/cAeagikmoq!sAuawy{}!AaAa!Aa!Ao!Aaǁɡ!Aaׁ١!A!Aa " B b  !"!B!b!!!!!"!""O"`  @`/#@%`')+-/1 3@5`79;=?A C@E`GIKOQ S@U`WY[]_a c@e`gikmo/s@u`wy{} @` @ ` @ @ ` O ` ǀ ɠ @ ` ׀ ٠  @`/@`!Aa   Aa!!#A%a')+-/1!3A5a79;=?A!CAEaGIKMOQ!SAUaWY[]_/cAeagikmoq!sAuawy{}!AaAa!Aa!Ao!Aaǁɡ!Aaׁ١!A!Aa " B b  !"!B!b!!!!!"!""O"A284 7FEDER_SCHNASPEAKER LEES DIT u #OESKTOP INF9F &D_SZENEDOC o'. .. BFDR DAT TILBLATTFDRBAS Þ rBLATTFDRPRG \!fDFDR DAT VIMDRUCKFDRBAS ȞNLDRUCKFDRPRG q0README U SCHKLFDRBAS ͞sSCHKLFDRPRG SFDR DAT XIMSHAK DAT ZIMSNAPHAK BAS ў SNAPHAK PRG < SNAPRINGBAS ֞@ԁSNAPRINGPRG YagSRING DAT ]IZFDR DAT aIJZUGFDR BAS ۞‰ZUGFDR PRG w0Blattfederdaten D:\BFDR.DAT 02.06.1990 08:36:54 -------------------------------------------------- Lnge 40 mm Breite 13 mm Dicke 0.8 mm Federweg 5 mm Werkstoff Stahl naturhart E-Modul 210000 N/mm zul. Spannung 800 N/mm Endwinkel 10.62 Federkraft 27.3 N GfABASICrlo>otop~ppppppqqqqFBMII1I2I3I4I6I7DATEIMODPFADCURSPEZALTITEMPTEMPALTBILDMELDCHARFILEALZEIMNAMERANDKJHALFFAFENIJX1Y1X2X3Y3Y2SZEBHBBKHHANDM5M6M7M8TBTHTXTYXYBX0Y0FLGKLICKTASTFEHLERTEXEYTLEILSZSMFDBDMFDBP SPEZ_TASTEN ALT_TASTEN MENUEDATENFEDERZEICHNUNGFELDPOSITIONEN FEHLERENDEHILFE FEDERPRINT FEDERSAVEWERTBILDCURSORMELDUNGBILD_ERSTELLENFELDWAHL MENUEAUSWAHL TASTENDRUCKREDELBAKESCUNDOABAUFLIINSHELPCLRLADSPEIDR_DATENDEMONDR_BILDDELDATXNATCRBRRECHNENAUTORFELDTEXTFILEWAHL LESEFEHLER AUFBEREITEN SCHREIBFEHLERAUSGABEZEICHNENFEHLT DRUCKZEICHENFEDERWEG FEDERKRAFT ENDWINKEL WIND_UPDATEWIND_GETREDRAWFBLATTFDR.BAS Version 1.00 26.3.90 HR FBlattfeder berechnen GFA-Basic V2.0 Atari 1040 STF F==================================================================  X F=@)!*Zu wenig RAM-Speicher|fr dieses Programm.!!ABBRUCH!FqF F   F@)!*Dieses Programm luft|nur in Schwarzweiss.!!ABBRUCH!FqF F Allgemeine Variablen -------------------- $Al$ !Alerttext S<Alt$ !Menwahlstring fr Alternatetaste HFBild$ !Bildspeicher fr: Get 0,19,639,399,Bild$ "EBFDR.DATF Dateibezeichnung 2File$ !Rckgabe von Fileselect *I$,J$,K$ !Arbeitsvariablen .EF Hilfe- oder Autorbild wurde angezeigt e$Lei$ !Menleiste $Meld$ !Meldungen 6EFberschreib- und Einfgemodus ("" oder "E") ,Pfad$ !Laufwerk und Pfad  ,Al% !Alert-Rckgabewert 6E% !zum Suchen des Eingabefeldes 4H%,I%,J%,K% !Lauf- und Arbeitsvariablen  *I !Arbeitsvariable s 8Fehler! !Pfad oder Datei nicht gefunden :Tast! !Flag zum Tastaturpuffer lschen 9 Eingabevariablen ---------------- EFFeldzhler .EFhAnzahl Ein- und Ausgabefelder f$E``FhAnzahl Eingabefelder EFZeichenzhler :S% !Textspalte bei Anwahl durch Maus :Z% !Textzeile bei Anwahl durch Maus  (Char$ !Eingabezeichen Cur$ !Cursor >Spez$ !Steuertastenstring fr Eingabefelder <Temp$ !Temporrer Eingabetext fr "Undo" e<Tempalt$ !fr Test, ob Eingabefeld verndert  * F Anzahl Zeichen je Feld "* F Zeichenspalte Feldanfang "* F Zeichenzeile des Feldes &* FZahlenwerte fr Berechnungen * F Eingabezahlen r T$(1) !Lnge n T$(2) !Breite T$(3) !Dicke "T$(4) !Federweg $T$(5) !Werkstoff e"T$(6) !E-Modul f,T$(7) !zul. Biegespannung $T$(8) !Endwinkel s$T$(9) !Federkraft  Zeichnungs-Variablen -------------------- .M$ !Masstab fr Ausgabe f<Zei$ !Zeichnungsspeicher fr auf Drucker  @Bb% !Zeichnungsspeicher-Bildbreite in Bytes .Bh% !Bildhhe in Punkten i>X1%,X2%,X3% !Read-Variable fr Monitorbildaufbau e>Y1%,Y2%,Y3% !Read-Variable fr Monitorbildaufbau e 6Fb !Bildpunkt-Berechnungsfaktor d.M !Masstab zum Rechnen s 2*HH !HH FZeichnungs-Koordinaten  Gem-Variablen ------------- * F Ausgangsbild * F Zielbild ** Fzu bertragendes Rechteck r  E  Fz sendendes Bild  EHHFz E Fz  EF E FBildschirmadresse l$ E  Fs empfangendes Bild h EHHFs E Fs  EF(Hand% !Fensterhndel k0M5%,M6%,M7%,M8% !Koordinaten fr Redraw *Tx%,Ty%,Tb%,Th% !Redraw-Rechtecke  2aktuelles Laufwerk und Pfad ermitteln ermitteln 2----------------------------------------------- $EH Faktuelles Laufwerk :EB : Ffaktuelles Laufwerk und Pfad  Cursor erzeugen --------------- Eb` bp b FEGFEb F F Programm-Steuertasten --------------------- EF-RFFEG`F-QF.EB F Scan-Codes fr Eingabesteuerung r F |F,83,14,1,97,28,114,15,80,72,77,75,82,98,71  EF1RFFEG`F5QF(EB F Scan-Codes fr Menauswahl F |F38,31,25,18,50,32,46  Men-Aufbau ----------- (EF Anzahl Men-Eintrge bestimmen RFFQF Z999F4FZF * F Men-Daten einlesen RF EGFQ F FG |F"BLATTFDR, Blattfeder berechnen ------------------------ e1,2,3,4,5,6   8Datei, Daten laden... L, Daten speichern... S 4 Daten drucken P,------------------------ . Ende... E   *Zeichnung, Monitor M , Drucker D -  Werkstoff, Stahl naturhart * Stahl rostfrei , Bronce federhart -  "Optionen, Hilfe Help 2-----------------------, einfgen Insert - berschreiben Insert ,2-----------------------, Daten lschen... C -   999   FMenleiste darstellen a*p!Fiberschreibmodus markieren  Fenster-Aufbau e-------------- e\!F-keine Titelzeile ]!F-keine Infozeile !Fkeine Randelemente !Fx e@!Fey t!  Fe Breite  !?Fe Hhe ^F Bild-Aufbau ----------- ZF(!!!@FTITEL h2/ ! !h!Blattfeder berechnenF $!!!FRFF(Q!! ! ! F X, Y, R, PHI0, PHI1  Zyy FX4!! ! ! FY Federbogen und Winkel-Masslinie .F! FQ!! ! F Zyy FF*!! ! FFederkanten und Masslinien F! %!!F,&! FrFeder-Austrittsflche s& ! Fr FQ!! ! ! ! F Zyy FF !! ! F Masspfeile  G ! G!FeF  |FFFEDERKANTEN Bgen <-563,73,638,3475,0,-563,73,633,3475,0,-578,88,633,3475,0 u<-563,73,637,3475,0,-563,73,634,3475,0,-578,88,634,3475,0 uWinkel-Masslinie 059,208,57,2450,2700 999,999,999,999,999 Geraden 55,88,70,73,70,73,75,73 55,89,70,74,70,74,75,74 55,90,70,75 :40,225,55,210,55,210,59,211,59,211,43,227,43,227,40,225 :40,224,55,209,54,210,58,211,59,210,43,226,43,226,41,225  FEDER-AUSTRITTSFLCHE 855,100,25,100,25,100,60,65,60,65,105,65,105,65,75,95 2 MASS- UND HILFSLINIEN horizontal I.75,73,140,73,70,105,140,105,57,137,140,137 ,060,211,115,211,60,233,140,233,59,265,140,265 5 vertikal 5,59,211,59,270,75,73,75,238,110,73,110,211 schrg 570,104,55,119,59,211,46,269 999,999,999,999  MASSPFEILE ,horizontal ,$67,137,-7,-3,-7,3,70,137,7,3,7,-3 459,233,7,3,7,-3,76,233,-7,-3,-7,3,59,265,7,3,7,-3 vertikal 3&110,73,-3,7,3,7,110,211,3,-7,-3,-7 9schrg und Winkel 655,119,5,-2,5,-9,69,105,-5,2,-5,9,47,263,-5,-5,-7,1 999,999,999,999,999,999  "$!!!FEIN- UND AUSGABEBOXEN ,%!!F"EtGzHF,> !!!@@F,Bezeichnungsboxen links e F!< !]!!uF,Bezeichnungsbox links s< !}!! F,Bezeichnungsbox links s "EtGzHF,8!!..!@@F,Eingabeboxen links F!6!]!.!uF,Eingabebox links 6!}!.! F,Ausgabebox links  <6!t!^!*F,Bezeichnungsbox rechts >6!:! !jF,Bezeichnungsboxen rechts >6!z! !F,Bezeichnungsboxen rechts >6!}! ! F,Bezeichnungsboxen rechts  8^!t! !*F,Eingabebox rechts r: !:! !jF,Eingabeboxen rechts c: !z! !F,Eingabeboxen rechts c8 !}! ! F,Ausgabebox rechts s 20!.! !:F,Meldungsbox e< !.! !:F,berschreib-Einfgebox  &(!!!PFFELDER BESCHRIFTEN @Y!  "Lnge l[mm]"FsBezeichnungen links *Y!` "Breite b[mm]"Fs*Y! "Dicke h[mm]"Fs*Y!p "Federweg f[mm]"Fs(Y! "Endwinkel []"F 8Y<!  " Werkstoff"F Bezeichnungen rechts .Y<!` "E-Modul E [ ]"Fg(!!!@F'~!L!NF-$|!R! !RF '|!d!mmF' !b!2FF(!!!PF.Y<! "zul.Spannung [ ]"Fg(!!!@F't!!bFu'~!!NFu$|! ! ! F '|!!mmF' !!2FF(!!!PF,Y<! "Federkraft F [N]"F RFEGFQ ! ! F E !_ Fr FEGFrQ ! ! F E FF F|F 37,5,7,37,7,7,37,9,7,37,15,7 t57,5,19,69,7,7,69,9,7 37,17,7,69,17,7  MF7MF7,MF7Meldung anzeigen und Bild speichern F Men-Funktionen --------------- vLFv!!LF-vLFvLF Hauptprogramm ============= |F=FFF= Unterprogramme ============== +F=(Ausgabe der Feder-Werte am Bildschirm (------------------------------------- (!!!PF-EGFY ! " "F- F E F E F6Y!8 ""F berschreib-Einfge-Anzeige t.F +FTastendruck auswerten --------------------- F-EFF!! F!F sVF F^F EFMeldung lschen 6Y`!8 " "FhMeldungsfeld lschen  EB``  F _F  E-F FEC 0123456789.@ FF@ #P  # 7 xx7 ~~ F E FE IF! E?@@ F FE F ! E FMF  FEF F F@ E9Nur Ziffern 0 bis 9, Punkt und Steuertasten sind erlaubt.F EC@B`  Fu F EFFMeldung lschen 0wL! ! ! ! ! ! ! ! !!!!!F. F! P F!< E5Diese Alternate-Tastenkombination hat keine Funktion.F EC@B`  Fn F EFF Meldung lschen wL!!!!!!F F F P FF: E3Diese Control-Tastenkombination hat keine Funktion.F F FEF F,MFiMeldung anzeigen und Bild speichern e Fd2`! @!FnTastaturpuffer lschen  FEF F.F +FMen angeklickt --------------- F-EFF!! F!F sVF F^F!! F EFMeldung lschen n6Y`!8 " "FaMeldungsfeld lschen P Fa"w PL!!!!!Fg F ( HF  EFw (L!!FEFMFMFMF F    F*w  L!!!!!!!!F F FMF F FF,MFMeldung anzeigen und Bild speichern e F F.F +FEingabefeld angeklickt n---------------------- n F-EFF!! F!F sVF F^F EFMeldung lschen n6Y`!8 " "FdMeldungsfeld lschen : E#   Fl Textzeile ermitteln F2E#00  F Textspalte ermitteln  8 Fx MFberschreib-Einfgemodus  FD E=Nur Eingabefelder (Rahmen gepunktet) knnen angewhlt werden.F"EGF Eingabefeld suchen (     Fa  F F  EFMFEMFE FMFF FEFFneue Feld-Nummer E F E F FEC@_ Fe FF E F FEu  ! FMF MF EFFOR-Schleife beenden  EF F FO F,MFMeldung anzeigen und Bild speichern a F.F2............................................... ,+F.Meldung ausgeben und Bild speichern . Fn F$Y`!8 " "B`` "Fe F !! !G! F F.F2+++++++++++++++++++++++++++++++++++++++++++++++ Eingabe-Routinen +================ +"+F=Zeichen im Cursor lschen + ?@@ _FEG F! E?@@ Fl F! E_FMFMF F E FSignal ausgeben l F.F "+ F Zeichen vor Cursor lschen Fe5FEG F! E?@@ F F! E_FMFMF F E FSignal ausgeben  F.F "+ F ganzes Eingabefeld lschen  : _FnE !_ FEFMFMF F E FSignal ausgeben  F.F *+ F Eingabefeld-nderung zurcknehmen +  F- E FEFMFMF F0 E(Eingabefeld wurde noch nicht verndert !F+ F.F + FEein Eingabefeld vorwrts F  EFMFEMFE FMFF F F4F FEF F E F E FEFMF.F + Fein Eingabefeld zurck F  EFMFEMFE FMFF F FgEF F5FF F E F E FEFMF.F &+FCursor ein Zeichen nach rechts   ?@@ _Fh4F F E FSignal ausgeben  FMF MF .F &+F Cursor ein Zeichen nach links Fr5FMFMF F E FSignal ausgeben  F.F &+F Eingabefeld ab Cursor lschen  ?@@ _FEG F! E_F FMFMF F E FSignal ausgeben s F.F2............................................... +F.ganzes Feld ausgeben Y ! ""F.F +FCursor anzeigen e@#  !  !!@@F.F2+++++++++++++++++++++++++++++++++++++++++++++++ Men-Routinen ============= +F=$Nur fr Mennummern ohne Funktion .F +FfProgrammversions-Angabe t!FMen abschalten - sVF *EFnchster Klick = Men einschalten +%!F $!!!F0 !8!k!Fa Gesamtbox +*#!>!i!Fa Rand $$!@!i!Fa,!~!2! Fa OK-Box $!!1! Fa$!!1! Fa%!F.0!\!c!Fa Titelbox !F$0!\!@!dFa$0!!@!Fa$c!\![!dFa$c!![!Fa!F8YH! "/\/| B L A T T F E D E R |/\/"F@:Y@!  "!Blattfederberechnung Version 1.00"F:Y@!0 "!in GFA-Basic 28.3.1990 HR"F*Y`!P "Autor: Hans Roth"F Y!` "Weid 13"FH*Y!p "CH-6313 Menzingen"FFY ! "OK"F%!F.F +FDaten von Disk laden TY`!8 " ! !%#   !/!F Bildhhe in Bildpunkten ,E7?@@ 7?@@ FAnzahl Bytes auf Bildbreite E#6 @ Fi Ausdrucken &; ""B  "BP "F.;BX "A"B "F LF auf 8/72 Zoll E`G@@F EFEEIFE?@@ F F@;  "FLinker Rand ;BX "*"B  "F .;B%  "B% "F;"B  "BP "F F>;BX "2"B  "BP "FLF zurck auf 1/6 Zoll !! F F EDrucker ist nicht bereit.F F Fr* E#Zu wenig Speicher fr Bildausdruck.F F FuM& !! !!! F F.F2............................................... "+F.Werkstoff Stahl naturhart .@ E210000_F` E800____F"  EStahl naturhart____F.F +FWerkstoff Stahl rostfrei @ E190000_F` E750____F"  EStahl rostfrei_____F.F "+FWerkstoff Bronce federhart @ E110000_F` E250____F"  EBronce federhart___F.F2............................................... +F.Kurze Anleitung .!FMen abschalten . sVF *EFnchster Klick = Men einschalten .^FYFEFe(!!!@FlRFFQF Z999F'@!!Fc0!FF|FFTastenbelegung c-------------- cRDelete Zeichen im Cursor lschen Return ein Eingabefeld vorwrts .RBackspace Zeichen links vom Cursor lschen Tab ein Eingabefeld vorwrts .RClr Home Eingabefeld ab Cursor lschen  ein Eingabefeld vorwrts .PEsc ganzes Eingabefeld lschen  ein Eingabefeld zurck s0Undo Eingabefeld-nderung zurck nehmen R Cursor ein Zeichen nach rechts Insert berschreib-Einfgemodus .L Cursor ein Zeichen nach links Help Diese Kuzanleitung m Men-Auswahl r------------ r@Datei Daten laden... L Federdaten von Disk laden uD Daten speichern... S Federdaten auf Disk speichern l8 Daten drucken P Federdaten drucken 6 Ende... E Programm beenden  DZeichnung Monitor M Zeichnung auf Monitor ausgeben D Drucker D Zeichnung auf Drucker ausgeben  HWerkstoff einige Metalle Standard-Materialdaten bernehmen u BOptionen Hilfe Help Aufruf dieser Kurzanleitung eB einfgen Insert Umschalten auf Einfgemodus eF berschreiben Insert Umschalten auf berschreibmodus nH Daten lschen... C alle Daten vom Bildschirm lschen u N"Die Berechnung wird jeweils beim Verlassen eines genderten Feldes, sowie" R"beim Anklicken eines Datei-, Zeichnung- oder Werkstoff-Menpunktes ausgelst." 4"Alle Zahlen werden auf 2 Kommastellen gerundet." N"Im untersten Feld werden Hinweise angezeigt. Im kleinen Feld rechts unten" F"sieht man, ob der berschreib- oder Einfgemodus eingestellt ist." L"Die Felder, sowie die einzelnen Stellen in den Feldern, mit zustzlich" nF"gepunkteter Umrandung knnen auch mit der Maus angewhlt werden." l   T"A: und B: in der Datei-Auswahlbox nur anwhlen, wenn das gewnschte" FN"Laufwerk betriebsbereit und auch eine Diskette eingelegt ist." 999 (!!!@Fe,'@!)!ACHTUNG AbsturzgefahrF $!!!F,!'!2!2Fr OK-Box $!'!1!2Fr$!(!1!1Fr(!!!PFY !0 "OK"F.F .+Fberschreib- und Einfgemodus wechseln * # pp  hFsEEFp!Fh!F FEFh!Fp!F F6Y!8 ""F berschreib-Einfge-Anzeige D !! !G! F.F .+Falle Daten auf dem Bildschirm lschen A> E7Die Blattfederdaten|auf dem Bildschirm|werden gelscht.F )! !!ABBRUCH| OK !F FBEGF E !_ FK  EF FEGFK E FK  EF FEFEFMFMF F.F2............................................... + F.f*.*!! F. FEC @: F FF$E: :\F Laufwerk ausfiltern .EFF F>EBHH  :\Feaktuelles Laufwerk einsetzen EF F E6 F&? @@ \F Pfadende suchen e5F?F FE? @@ F  FE= @6  F  F.F +!F (Datei hat zu wenig oder falsche Daten vF8MFe*Y`!8 " "B` "Fs2Y`!8 " hat zu wenig Daten."FEGF E !_ F  EF FEGF E ! F  EF FEFEFMFMF,MFMeldung anzeigen und Bild speichern aFF.F +#FvF8MF Y`!8 " "Fd6 PFi F, E$Kann nicht speichern, Disk ist voll.F F Fs$ E ist schreibgeschtzt.Fo F Fs( E Dateipfad  nicht gefunden.F. F Fa. E'Disk-Schreibfehler (evtl. Disk defekt).F F,MFDMeldung anzeigen und Bild speichern )FF.F +"F F  EF E FMFMFMF !! !G! F F.F +$! F 7O!M!FM!"Blattfederdaten "F  LST:FMFRF F M!"FTRF FM!"~" "8FeM!"H!- FEGF  LST:F M' F F E F E F F?@@ _F ! E F5FF Q!F&M!"" 6 "" "F F"MF8MF |F*L{nge,mm,Breite,mm,Dicke,mm,Federweg,mm 0Werkstoff,,E-Modul,N/mm2,zul. Spannung,N/mm2 Endwinkel,Grad,Federkraft,N  |Fi*Lnge,mm,Breite,mm,Dicke,mm,Federweg,mm 0Werkstoff,,E-Modul,N/mm,zul. Spannung,N/mm Endwinkel,,Federkraft,N z .F +' F,h!!!!FfE@[\]{|}~FFEݎFFEFEG6 FfE? @@ Ff EC@ F F 0EBX RB BXX RB F FB EC@ F F E?@@ F F?  F ~FE F F EF F F F F E6 F.F +%F^FYFMasstab berechnen .Eup#  !H FEF FE F F FE FFE F  FEF F FEF FEF FF2EM 1:A% FMasstab als String  F 2EM A% :1FMasstab als String  F  EF  E F0E  @   F2EGHFEckpunkte der rechten Kurve n E  HHFr* E#    F F#6EJGHFEckpunkte der linken Kurve \ EI ),#I H #H I  F\ EI *,#I H #H I  F FI 0EK3336FBildberechnungsfaktor FE #  FsNullpunkt (Feder oben rechts) 8E  FNullpunkt (Feder oben rechts) $!!!F!FEGHF4 G !#  Fn F  G !F%!!FD  ! ! !FEinspann-Schraffur !F0  ! ! !F"  ! F !F*  !! !F&  !! !F *Y !  ""FMasstab anzeigen .F 2+++++++++++++++++++++++++++++++++++++++++++++++ Berechnungs-Routinen +==================== ++F=EGF  F=* E5 F=Strings in Werte wandeln  F F:M& ! ! ! !@@ !`` FrM(FM)FM*FRFEGF  F!Q!F FF F E ! F F E !_ F FQ!F  F  rF6 EWerte ungltig:  ist mehr als 7-stellig.F Fe0Auf 0.01 runden und in Strings zurckwandeln e. ! EA% H H F F F F FE.F2............................................... Schnapper-Berechnungen .---------------------- .+(F-0  @@ `` F^  n% `  @ H HF8 E0Federweg darf zul. Spannung nicht berschreiten.F2 E `  @ F F  F2 E `  @ F$ EFederweg max. wird angezeigt.F F   Fn. E'Werte nur noch theoretisch interessant.F F Fe EF F.F +)F(   ` F@ E   @@  F F EF F.F +*F(   @ FJ E,  @  @ O4F F EF F.F2............................................... +&!!!!! F EF F E  lF F F E  bF F F E  hF F F E  fF F F E  EF F F E  F F F EBrauche noch :  F F.F 2+++++++++++++++++++++++++++++++++++++++++++++++ "GEM-Routinen aus GFA-Basic-Buch ============ a+F= F=  FGE FE  FE@ FE` FE FM+ FM,!0 F(4@ FBreite oder Hhe <>0 E3 3@ FE3 3 FEv3 ! FEv3 ! FEu! FEu! F F FM-!!! F F FM,!@ FF!M+ F F F.F +-!!! FM,! F E3 F!E3 F!F !F!F@!F!F!F@!F tF! F!!F!F%!F E3 F E3 F E F E F EF  EF@ EF` EF EF Ez @F ! ! F.F +,! F!F !F sPFF.F ++" FF!"FF sVFF.F` R` Efv*oM- m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNTHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALNHz2?< NA\pdAxr0XQ)K\NN|6@FXdN ,`NuJrBjNuHz?<&NN\NCAp$L Qp N9lrBlJpNNpMN9@pdAr 0Q0tr N29lN Nupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNjpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N6?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|~  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NHJFkSFk&aQNH`Ha"FFaQL8N6.~JgtBn~Nupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANu~NuAd RdQRB6Ce0 C/jC C@j C jr0H@{0DH@Nur{0Nu{0NutNuJj(:,af AfBfNu&<x*<NʀHnxr$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuJjtNupN&NAXJ@jNNuN.J@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNu <ڢ2,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNupmrtA)HA)HN2pN:HHPN4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@N:"2)IN(* 9AJA)H@@[000][ˈN. Evz`* [g" ]g |g QSz` zQSpQ][ɈN. Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NHNu*( IN.A)H @depd ae zb QB DN.A\)H @ e` ae zb \gQBA BhNpZNA BP"`#|}NA"H0,tg"Hg \f`A\fS A EN:AR@H`2QNur|<N. @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N2$Y QfFL~)AH|"@$Y Qf,L~)AH|$X PfLH9HNpNA R4RB`A Gf //o~4$_<F"OSG !H@Ь 2 Q)@RHRprN2"H2@N .0H@N .YdN HAN 2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNuApNA0pNNݤ$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0NuN.J@gpNu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)N:$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNuNVHNuNUHNuNSHNuJhg N.NNu Ihd"*N$E8*$R`"QˈN. ENu2)A IJAfr4(Ae*RBBc0*SA?N$E$R`QˈN. ENup`(* 0(iN$E 4R`Q$D 4R`QˈN. DN. ENua NuN. IHPg"B  g &gN4JBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNߤRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATANLpN?<*NATANp N"H2X@N :0H@?N :AAN 2p <0N`QNu0g< @g4:8(g* b.&NSD`Q0$C$RQLjN. CNuN.pNp N?Hl?<GNAPA"HJf SNr ,* N.& ( EN. C"Sj|AcRGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NȼldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"NNN:JfNup#`NN, HHHNup`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4NP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.02| Copyright 1986/1987|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehlertHB9BL@@TAt )l g.A( f hgSASAgRB`9BJNSAgNut)l g,vARC( g9CJ9|Lp!,N FPeNutոA JpBQA/)H )l gBlJpNB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Np>L8Ntp*HEAJ0?C bL000H?A/.)HpNLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN0`@k Ap0(/.NuA Nu)G RHA)A v9@ zNup)@JphNLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, N"F QNu?S@k&8L &LeBLe,C`(A? fHa)_ 2TNuBlJ`l *bl ,bH .ND0S@k@>A PC/~. 0(JgRJ)@g1@CJ2fP2HP" &" *pdN0,r W1@AJ00 piN9|L@NpiN _CL""pe`9| LpiN9|LphNLtH 2H/`SBSC@AHH/jP 6P/^P0<rtN2papapapaL/jr`S@k6@ A 9PJg8BPpfNpgN9| LphN9@JfdBlJa\Q 6BB 2`NuS@k @ A 9pJg a$Bp`NuHS&I. FV 7p&N.9l/h8,:,L/d4,pĴ@cS@9@p4,rŴAcBSA9Ar`8pJ, 7fnJ/^k0 Eg$2,/h pg  qfH9A/hpjN`wbNVp NQgNVNr5Diese Alternate-Tastenkombination hat keine Funktion.uCrNHmTpNNߤvNNN"_N+@ -$fNVA CrN -~Nfjdnooq*z(p NYgNVNr3Diese Control-Tastenkombination hat keine Funktion.nCrNt;BBA]N4-BNzJBfNW.?<?<NNX\Nvr @ BmBNN4-@NzJBfNWvBm@N@Bg?<Al"N.p9@pkNbNYpNBg?<Al"N.A CrNNprNpCNxNlpNNߤ&<x*<NpJBgp/pNNߤ&<x*<NpJBgp$fNXJpNNߤH <r$<L8NN~Nwd y>y>d z(pNNߤ&<x*<NpJBgp/pNNߤ&<x*<NpJBgp$fNY/-A`CXNpNNߤH <r$<L8NN~Nvvw^+|ANAQNAcNpNNߤ&<x*<NpJBgp/pNNߤ&<x*<NpJBgp$fNYpNNߤH <r$<L8NN~ Nfjdnd od d oq*pNSgNYAd(N4-@NzzN:JBfNYN@A]NNN4-@NzJBfNZNN]rNr=Nur Eingabefelder (Rahmen gepunktet) knnen angewhlt werden.4CrN+| -AN -NߤH -CpN^NߤL8N:pJBgp/ -NߤH -CjN^NߤL8NpJBgp/ -NߤH -CjN^NߤH -CdN^NߤL8NL8NpJBgp$fN]h -𰭀fN\Hm`Af"_NTJBfN\/-A`CXNANAQNN\Ac^N+m -CXNC`N -CXNCfNHm`p_N"_N+@ -JgN\ -CdN^+@ -NߤH -CjN^NߤL8N&<x*<NH -NߤL8NN+@Ac^NAcN+mA CrNN`NqA]NNN4-@NzzN:JBfN]HmrA "_NTJBfN]NprNArNlpNNlBg?<?<?<Al" NNNHm`p"-"_NHPp_N"_NTJBfN^+mĀ -CdN^NߤH <r$<L8NNANHm`Hm` -RNv/p""_N"-"_NN`NqNqHm` -CdN^/p_N""_NAc^NAcNN^p NCrNNN -SnN_pSNv+mĀ -CdN^ANHm`Hm` -RNv/p""_N"-"_NN`NqNqHm` -CdN^/p_N""_NAc^NAcNN_~p NCrNNNA`NrHPp_N"_NTJBfN_ -CdN^/p_N"NC`N+|Ac^NAcNN_p NCrNNNHm` -CXN"_NTJBfN`V -CXNC`N+|Ac^NAcNN`Nf(Eingabefeld wurde noch nicht verndert !CrNNNHm`Af"_NTJBfN`/-A`CXNANAQNN`Ac^N -mN`RNvNa+| -CXNC`N -CXNCfN+|AcNNNHm`Af"_NTJBfNa/-A`CXNANAQNNaAc^N -SgNa+mNaSNv -CXNC`N -CXNCfN+|AcNNN -NߤH -CdN^NߤL8NpJBgp/Hm`p"-"_NHPp_N"_NTpJBgp$fNb`RNvNbnp NCrNAc^NAcNNN -SnNbSNvAc^NAcNNbp NCrNNNHm`p"-"_NHPp_N"_NTJBfNcH+mĀ -CdN^ANHm`p_N"-"_NN`NqNqAc^NAcNNcVp NCrNNNN -CjN^/ -CpN^"NA`NlNN -CjN^NߤH -NߤL8NvNH <r$<L8NN? -CpN^NߤvN&<x*<NN?HmHp _"N0NNNNp9@pkNbt;B@pNpNpNpNprNp\"<N <$"<N@p_"<N <!"<Np`"<N < "<N <"<N <"<dN <"<N <"<cN <"<N <"<bNpNpNpn"<N <"<N@pN"pn"<Npr"<N <"<N <"<Npn"<Npr"<N <"<N <"<NpN"NprNN/\/| B L A T T F E D E R |/\/Np rNN!Blattfederberechnung Version 1.004Np rNN!in GFA-Basic 28.3.1990 HR4Np rNN~Autor: Hans RothNpr%NNWeid 13!Npr%NNCH-6313 Menzingen4Npr(NN~OKpNpNNNNprNN~NNNpCFNzNpJBgp/pCFNzNpJBgp$fNv$N N nNupN$fNqprNp NtpN$fNuAHNA2NpNpNpNpN <r"<NNr)Bitte warten, Zeichnung wird ausgedruckt.4NpNpNpNp N -NߤHpCFNANLN٬L8NH <r$<L8NH -NߤHpeCLNANLN٬L8NL8NvNNTvNN+@?-?< -Nߤ&<x*<NvN&<x*<NNTvNH <r$<L8NN??<^A퀊" NHmpr"_NNXNߤvNHHmpr"_NNXNߤL8N&<x*<NN+@A퀊N.NߤH <r$<L8NH -NߤL8NN+@Np!NxNlA퀐Nlp NNlp NNlNpNNlpANpNNl+| -\NvANA CZN -NߤH <r$<L8NN+@pANHmZHm -NߤH -NߤH -NߤL8N٬L8NN/p""_N"_NCZNN`NqNqNp NxNlNpNNlp*NpNNlN -NߤH -NߤvNNTvNL8NNNNl -NߤvNNTNNNlNAZNlp NNlp NNlN`NqNpNNlp2Np NNlp NNlBg?<Al"N.NuNrDrucker ist nicht bereit.4CrNNvNr#Zu wenig Speicher fr Bildausdruck.!CrNNvpCFNH <r$<HpCFNH <r$<H <r$<H <r$<HA>NNNHxNr210000_CXNHxNr800____CXNHxNrStahl naturhart____CXNNNHxNr190000_hCXNHxNr750____CXNHxNrStahl rostfrei_____CXNNNHxNr110000_rCXNHxNr250____CXNHxNrBronce federhart___CXNNNp9@pkNbt;B@pNN+|pNpNpNpN)|; NCZNHmZNr999"_NJgNxR -rNAZN <Ѝ/p _ѐNv`pNpNpNpN <RrNNfACHTUNG AbsturzgefahrNpNpNprN <N"<N <e"<dN <O"<N <d"<cN <P"<N <c"<bNpNpNpNp NNpr(NN~OKNNHmNARNANAN)|  +| -AN -[gNNCZNNC퀨NN@ -ȰnN/- -CdN^/p N"NCXNN*/- -CdN^/p_N"NCXNNCZNNC퀨N -CFNzNrJBfN@ -CFN&<8$  >  >@ pn $<DD86hTj:P jJ .8j$Դ J".f DLH<$*  nnp (HP,TT .,Z*X<Ђ222222J<DBDruckfederdaten D:\DFDR.DAT 02.06.1990 08:45:44 -------------------------------------------------- Anzahl Windungen 9.5 +2 Drahtdurchmesser 1.1 mm mittlerer Federdurchmesser 7.5 mm Lnge ungespannt 30 mm Spannlnge 1 25 mm Spannlnge 2 15 mm Werkstoff Stahl rostfrei Gleitmodul 73000 N/mm zulssige Materialspannung 800 N/mm Kraft bei Spannlnge 1 16.67 N Kraft bei Spannlnge 2 50 N Lnge min. 13.27 mm Kraft max. 55.75 N GfABASIC0l XLRFXRMIFBSTWXVYVYOYUI1I2I3I4I5DATEIMODPFADCURSPEZALTITEMPTEMPALTBILDMELDCHARFILEALZEIMNAMERANDKJH SCHRAFFURALFFAFENIJFSAVESZEBHBBKHHANDM5M6M7M8TBTHTXTYXYBX0Y0FLGKLICKTASTFEHLERTTLEILSZSMFDBDMFDBP SPEZ_TASTEN ALT_TASTEN MENUEDATENFELDPOSITIONEN FEHLERENDEHILFE FEDERPRINT FEDERSAVEWERTBILDCURSORMELDUNGBILD_ERSTELLENFELDWAHL MENUEAUSWAHL TASTENDRUCKREDELBAKESCUNDOABAUFLIINSHELPCLRLADSPEIDR_DATENDEMONDR_BILDDELDATXNATCRBRRECHNENAUTORFELDTEXTFILEWAHL LESEFEHLER AUFBEREITEN SCHREIBFEHLERAUSGABEZEICHNENFEHLT DRUCKZEICHENNDDMLUL1L2GSZS1S2 LU_RECHNEN LMIN_RECHNEN L1_RECHNEN L2_RECHNEN F1_RECHNEN F2_RECHNEN FMAX_RECHNEN WIND_UPDATEWIND_GETREDRAWFDRUCKFDR.BAS Version 1.01 28.3.90 HR FDruckfederberechnung GFA-Basic V2.0 Atari 1040 STF F==================================================================  X F=@)!*Zu wenig RAM-Speicher|fr dieses Programm.!!ABBRUCH!FqF F   F@)!)Dieses Programm luft|nur in Schwarzweiss!!ABBRUCH!F=qF F Allgemeine Variablen -------------------- $Al$ !Alerttext S<Alt$ !Menwahlstring fr Alternatetaste !FBild$ !Bildspeicher fr: Get 0,19,639,399,Bild$ "EDFDR.DATF Dateibezeichnung 2File$ !Rckgabe von Fileselect *I$,J$,K$ !Arbeitsvariablen .EF Hilfe- oder Autorbild wurde angezeigt e$Lei$ !Menleiste $Meld$ !Meldungen 6EFberschreib- und Einfgemodus ("" oder "E") ,Pfad$ !Laufwerk und Pfad  ,Al% !Alert-Rckgabewert 6E% !zum Suchen des Eingabefeldes 4H%,I%,J%,K% !Lauf- und Arbeitsvariablen  *I !Arbeitsvariable s 8Fehler! !Pfad oder Datei nicht gefunden :Tast! !Flag zum Tastaturpuffer lschen 9 Eingabevariablen ---------------- EFFeldzhler ,Fsave% !Feldzhler sichern .EPPF Anzahl Ein- und Ausgabefelder f$E00F Anzahl Eingabefelder EFZeichenzhler :S% !Textspalte bei Anwahl durch Maus :Z% !Textzeile bei Anwahl durch Maus  (Char$ !Eingabezeichen Cur$ !Cursor >Spez$ !Steuertastenstring fr Eingabefelder <Temp$ !Temporrer Eingabetext fr "Undo" e<Tempalt$ !fr Test, ob Eingabefeld verndert  * F Anzahl Zeichen je Feld "* F Zeichenspalte Feldanfang "* F Zeichenzeile des Feldes &* FZahlenwerte fr Berechnungen * F Eingabezahlen r*T$(1) !Anzahl Windungen *T$(2) !Drahtdurchmesser 0T$(3) !mittlerer Durchmesser l*T$(4) !Lnge ungespannt &T$(5) !Spannlnge 1 &T$(6) !Spannlnge 2 .T$(7) !Materialbezeichnung r$T$(8) !Gleitmodul 6T$(9) !zulssige Material-Spannung $T$(10) !Spannung 1 $T$(11) !Spannung 2 $T$(12) !Lnge min. (T$(13) !Spannung max. r Zeichnungs-Variablen -------------------- .M$ !Masstab fr Ausgabe p<Schraffur$ !Schraffur fr Schnitt durch Draht <Zei$ !Zeichnungsspeicher fr auf Drucker  @Bb% !Zeichnungsspeicher-Bildbreite in Bytes .Bh% !Bildhhe in Punkten i 6Fb !Bildpunkt-Berechnungsfaktor e*I !Arbeitsvariable n.M !Masstab zum Rechnen s0Rf !Drahtradius in Punkten 4St !halbe Steigung in Punkten r*W !Steigungswinkel n<Xl !Punkt-Koordinate von Kreisen links >Xr !Punkt-Koordinate von Kreisen rechts e8Xv !X-Versatz fr Linie in Punkten @Yo !Punkt-Koordinate von Kreis oben links @Yu !Punkt-Koordinate von Kreis unten links 8Yv !Y-Versatz fr Linie in Punkten  Gem-Variablen ------------- * F Ausgangsbild * F Zielbild ** Fzu bertragendes Rechteck n  E  Fz sendendes Bild  EHHFz E Fz  EF E FBildschirmadresse l$ E  Fs empfangendes Bild h EHHFs E Fs  EF(Hand% !Fensterhndel k0M5%,M6%,M7%,M8% !Koordinaten fr Redraw *Tx%,Ty%,Tb%,Th% !Redraw-Rechtecke  2aktuelles Laufwerk und Pfad ermitteln ermitteln 2----------------------------------------------- $EH Faktuelles Laufwerk :EB : Ffaktuelles Laufwerk und Pfad  Cursor erzeugen --------------- Eb` bp b FEGFEb F F Programm-Steuertasten --------------------- EF-RFFEG`F-QF.EB F Scan-Codes fr Eingabesteuerung r F |F,83,14,1,97,28,114,15,80,72,77,75,82,98,71  EF1RFFEG`F5QF(EB F Scan-Codes fr Menauswahl F |F38,31,25,18,50,32,46  Men-Aufbau ----------- (EF Anzahl Men-Eintrge bestimmen RFFQF Z999F4FZF * F Men-Daten einlesen RF EGFQ F FG |F"DRUCKFDR, Druckfederberechnung ------------------------ c1,2,3,4,5,6   8Datei, Daten laden... L, Daten speichern... S 4 Daten drucken P,------------------------ . Ende... E   *Zeichnung, Monitor M , Drucker D -  Werkstoff, Stahl naturhart * Stahl rostfrei , Bronce federhart -  "Optionen, Hilfe Help 2-----------------------, einfgen Insert - berschreiben Insert ,2-----------------------, Daten lschen... C -   999   FMenleiste darstellen a*p!Fiberschreibmodus markieren  Fenster-Aufbau e-------------- e\!F-keine Titelzeile ]!F-keine Infozeile !Fkeine Randelemente !Fx e@!Fey t!  Fe Breite  !?Fe Hhe ^F Bild-Aufbau ----------- ZF(!!!@FTITEL h2/! !`!Druckfeder berechnenF %!!FFEDERZEICHNUNG $!!!F8H!)!\!)Fe obere gerade Linie 0\!.!@FKreis oben rechts d0H!"!@FKreis unten links d:H!$!\!$Fu untere gerade Linie "E.GH Fu(H!!@@FSchnittflchen \! !@Ft<H! !\! F Schrge Linien ,H! !\!ppF F! $!!!FMITTELLINIEN $H!!H!)Fp$\!!\!)Fp $!!!FVERMASSUNG 0\!)!4!)Fp Null-Linie 8R!H!R!-Fp Draht-Durchmesser n$f!H!f!-Fp0>!R!4!RFp Masslinie h2R!R!D!LFp Pfeil links e$ GD!XGR!RFp2f!R!t!LFp Pfeil rechts $ Gt!XGf!RFp6H! !4! Fp Federdurchmesser 2H! !d! FpPfeil links s$ Gd!GH! Fp2\! !N!Fp Pfeil rechts $ GN! G\! Fp $!!!FDIAGRAMM 24!)!4!Fp dicke Linien $ GW!G4!*Fp$4!I!?!IFp$4!i!K!iFp $!!!Fdnne Linien $!)!4!)Fp$!I!n!IFp$!i!n!iFp$!!n!Fp "$!!!FEIN- UND AUSGABEBOXEN %!!F$!t!|!*Fp"E:GHFp>4!!||!@@Fp Bezeichnungsboxen links k F!"EtG^HFp8|!!!@@Fp Eingabeboxen links F!6|!}!! Fp Ausgabebox links  >6!t!^!*FpBezeichnungsboxen rechts $N!:! !jFp$N!z! !Fp$n!=! !UFp$n!]! !uFp$n!}! ! Fp:^!t! !*FpEingabeboxen rechts c$ !:! !jFp$ !z! !Fp$ !=! !UFp$ !]! !uFp8 !}! ! Fp Ausgabebox rechts s 20!.! !:FpMeldungsbox e< !.! !:Fp berschreib-Einfgebox  &(!!!PFFELDER BESCHRIFTEN :Y(!  " Anz.Wdg. 2+"FEBezeichnungen links o Y@!` "d [mm]"F Y@! "D [mm]"F(!!!@F'A!!mF (!!!PFE0GHF]Y@! "L [mm]"F] F!(!!!@FL'A!0!uFm'A!P!1Fm'A!p!2Fm'A!!minF" (!!!PF8Y<!  " Werkstoff"F"Bezeichnungen rechts YT!` "G-Modul"F"(!!!@F' !L!NF-$ !R! !RFB' !d!mmF' !b!2FF(!!!PF$YT! " zul.Spannung"F(!!!@F' !!NFu$ ! ! ! FF' !!mmF' !!2FF(!!!PF Yt!P "F [N]"F(!!!@F't!P!1F (!!!PF Yt!p "F [N]"F(!!!@F't!p!2F (!!!PF Yt! "F [N]"F(!!!@F't!!maxF  RFEGFQ ! ! F E !_ F[ FEGF[Q ! ! F E FF F|F033,5,7,33,7,7,33,9,7,33,11,7,33,13,7,33,15,7 n(57,5,19,69,7,7,69,9,7,69,13,7,69,15,7 33,17,7,69,17,7  MF7MF7,MF7Meldung anzeigen und Bild speichern 5 Men-Funktionen --------------- vLFv!!LF-vLFvLF Hauptprogramm ============= |F=FFF= Unterprogramme ============== +F=(Ausgabe der Feder-Werte am Bildschirm (------------------------------------- (!!!PF-EGFY ! " "F- F E F E F6Y!8 ""F berschreib-Einfge-Anzeige t.F +FTastendruck auswerten --------------------- F-EFF!! F!F sVF F^F EFMeldung lschen 6Y`!8 " "FhMeldungsfeld lschen  EB``  F _F  E-F FEC 0123456789.@ FF@ #P  #`7 xx7 ~~ F E FE IF! E?@@ F FE F ! E FMF  FEF F F@ E9Nur Ziffern 0 bis 9, Punkt und Steuertasten sind erlaubt.F EC@B`  Fu F EFFMeldung lschen 0wL! ! ! ! ! ! ! ! !!!!!F. F! P F!< E5Diese Alternate-Tastenkombination hat keine Funktion.F EC@B`  Fn F EFF Meldung lschen wL!!!!!!F F F P FF: E3Diese Control-Tastenkombination hat keine Funktion.F F FEF F,MFiMeldung anzeigen und Bild speichern e Fd2`! @!FnTastaturpuffer lschen  FEF F.F +FMen angeklickt --------------- F-EFF!! F!F sVF F^F!! F EFMeldung lschen n6Y`!8 " "FaMeldungsfeld lschen P Fa"w PL!!!!!Fg F ( HF  EFw (L!!FEFEFEFMFEFMFFMFF F    F*w  L!!!!!!!!F F FMF F FF,MFMeldung anzeigen und Bild speichern e F F.F +FEingabefeld angeklickt n---------------------- n F-EFF!! F!F sVF F^F EFMeldung lschen n6Y`!8 " "FdMeldungsfeld lschen :E#   Fl Textzeile ermitteln F2 E#00  F Textspalte ermitteln  8Fx MFberschreib-Einfgemodus  FD E=Nur Eingabefelder (Rahmen gepunktet) knnen angewhlt werden.F" EGF Eingabefeld suchen (     Fa F F  EFMFEMFE FMFF FE FFneue Feld-Nummer E F E F FEC@_ Fe FF E F FEu ! FMFMF EFFOR-Schleife beenden  EF F FO F,MFMeldung anzeigen und Bild speichern a F.F2............................................... ,+F.Meldung ausgeben und Bild speichern . Fn F$Y`!8 " "B`` "Fe F !! !G! F F.F 2+++++++++++++++++++++++++++++++++++++++++++++++ Eingabe-Routinen +================ +"+F=Zeichen im Cursor lschen + ?@@ _FEG F! E?@@ Fl F! E_FMFMF F E FSignal ausgeben l F.F "+ F Zeichen vor Cursor lschen Fe5FEG F! E?@@ F F! E_FMFMF F E FSignal ausgeben  F.F "+ F ganzes Eingabefeld lschen  : _FnE !_ FEFMFMF F E FSignal ausgeben  F.F *+ F Eingabefeld-nderung zurcknehmen +  F- E FEFMFMF F0 E(Eingabefeld wurde noch nicht verndert !F+ F.F + FEein Eingabefeld vorwrts F  EFMFEMFE FMFF F F4F FEF F E F E FEFMF.F + Fein Eingabefeld zurck F  EFMFEMFE FMFF F FgEF F5FF F E F E FEFMF.F &+FCursor ein Zeichen nach rechts   ?@@ _Fh4F F E FSignal ausgeben  FMF MF .F &+F Cursor ein Zeichen nach links Fr5FMFMF F E FSignal ausgeben  F.F &+F Eingabefeld ab Cursor lschen  ?@@ _FEG F! E_F FMFMF F E FSignal ausgeben s F.F2...............................................  +F.ganzes Feld ausgeben Y ! ""F.F +FCursor anzeigen e@#  !  !!@@F.F 2+++++++++++++++++++++++++++++++++++++++++++++++ Men-Routinen ============= +F=$Nur fr Mennummern ohne Funktion .F +FfProgrammversions-Angabe t!FMen abschalten - sVF *EFnchster Klick = Men einschalten +%!F $!!!F0 !8!k!Fa Gesamtbox +*#!>!i!Fa Rand $$!@!i!Fa,!~!2! Fa OK-Box $!!1! Fa$!!1! Fa%!F.0!\!c!Fa Titelbox !F$0!\!@!dFa$0!!@!Fa$c!\![!dFa$c!![!Fa!F8YH! "/\/| D R U C K F E D E R |/\/"F@:Y@!  "!Druckfederberechnung Version 1.01"F:Y@!0 "!in GFA-Basic 28.3.1990 HR"F*Y`!P "Autor: Hans Roth"F Y!` "Weid 13"FH*Y!p "CH-6313 Menzingen"FFY ! "OK"F%!F.F "+FFederdaten von Disk laden zTY`!8 ";BX "2"B  "BP "FLF zurck auf 1/6 Zoll !! F F EDrucker ist nicht bereit.F F Fr* E#Zu wenig Speicher fr Bildausdruck.F F FuM& ! ! !! Fi F F.F2............................................... "+F.Werkstoff Stahl naturhart . E83000__F E800____F"` EStahl naturhart____F.F +FWerkstoff Stahl rostfrei  E73000__F E750____F"` EStahl rostfrei_____F.F "+FWerkstoff Bronce federhart  E42000__F E250____F"` EBronce federhart___F.F2............................................... +F.Kurze Anleitung .!FMen abschalten . sVF *EFnchster Klick = Men einschalten .^FYFEFe(!!!@FlRFFQF Z999F'@!!Fc0!FF|FFTastenbelegung c-------------- cRDelete Zeichen im Cursor lschen Return ein Eingabefeld vorwrts RBackspace Zeichen links vom Cursor lschen Tab ein Eingabefeld vorwrts RClr Home Eingabefeld ab Cursor lschen  ein Eingabefeld vorwrts PEsc ganzes Eingabefeld lschen  ein Eingabefeld zurck s0Undo Eingabefeld-nderung zurck nehmen R Cursor ein Zeichen nach rechts Insert berschreib-Einfgemodus L Cursor ein Zeichen nach links Help Diese Kuzanleitung m Men-Auswahl r------------ r@Datei Daten laden... L Federdaten von Disk laden uD Daten speichern... S Federdaten auf Disk speichern l8 Daten drucken P Federdaten drucken 6 Ende... E Programm beenden  DZeichnung Monitor M Zeichnung auf Monitor ausgeben D Drucker D Zeichnung auf Drucker ausgeben  HWerkstoff einige Metalle Standard-Materialdaten bernehmen u BOptionen Hilfe Help Aufruf dieser Kurzanleitung eB einfgen Insert Umschalten auf Einfgemodus eF berschreiben Insert Umschalten auf berschreibmodus nH Daten lschen... C alle Daten vom Bildschirm lschen u N"Die Berechnung wird jeweils beim Verlassen eines genderten Feldes, sowie" R"beim Anklicken eines Datei-, Zeichnung- oder Werkstoff-Menpunktes ausgelst." 4"Alle Zahlen werden auf 2 Kommastellen gerundet." N"Im untersten Feld werden Hinweise angezeigt. Im kleinen Feld rechts unten" F"sieht man, ob der berschreib- oder Einfgemodus eingestellt ist." L"Die Felder, sowie die einzelnen Stellen in den Feldern, mit zustzlich" nF"gepunkteter Umrandung knnen auch mit der Maus angewhlt werden." l   T"A: und B: in der Datei-Auswahlbox nur anwhlen, wenn das gewnschte" N"Laufwerk betriebsbereit und auch eine Diskette eingelegt ist." 999 (!!!@Fe,'@!)!ACHTUNG AbsturzgefahrF $!!!F,!'!2!2Fr OK-Box $!'!1!2Fr$!(!1!1Fr(!!!PFY !0 "OK"F.F .+Fberschreib- und Einfgemodus wechseln * # pp  hFsEEFp!Fh!F FEFh!Fp!F F6Y!8 ""F berschreib-Einfge-Anzeige D !! !G! F.F .+Falle Daten auf dem Bildschirm lschen A> E7Die Druckfederdaten|auf dem Bildschirm|werden gelscht.F )! !!ABBRUCH| OK !F FBEGF E !_ FK  EF FEGFK E FK  EF FEFEFMFMF F.F2...............................................  + F.f*.*!! F. FEC @: F FF$E: :\F Laufwerk ausfiltern .EFF F>EBHH  :\Feaktuelles Laufwerk einsetzen EF F E6 F&? @@ \F Pfadende suchen e5F?F FE? @@ F  FE= @6  F  F.F +!F (Datei hat zu wenig oder falsche Daten vF8MFe*Y`!8 " "B` "Fs2Y`!8 " hat zu wenig Daten."FEGF E !_ F  EF FEGF E ! F  EF FEFEFMFMF,MFMeldung anzeigen und Bild speichern aFF.F +#FvF8MF Y`!8 " "Fd6 PFi F, E$Kann nicht speichern, Disk ist voll.F F Fs$ E ist schreibgeschtzt.Fo F Fs( E Dateipfad  nicht gefunden.F. F Fa. E'Disk-Schreibfehler (evtl. Disk defekt).F F,MFDMeldung anzeigen und Bild speichern )FF.F +"F F  EF E FMFMFMF !! !G! F F.F +$! F 7O!M!FM!"Druckfederdaten "F  LST:FMFRF F M!"FTRF FM!"~" "8FeM!"H!- FEGF `LST:F M' F F E F E F F?@@ _F ! E F5FF Q!F&M!"" 6 "" "F F"MF8MF |FHAnzahl Windungen,+2,Drahtdurchmesser,mm,mittlerer Federdurchmesser,mm BL{nge ungespannt,mm,Spannl{nge 1,mm,Spannl{nge 2,mm,Werkstoff, s4Gleitmodul,N/mm2,zul{ssige Materialspannung,N/mm2 4Kraft bei Spannl{nge 1,N,Kraft bei Spannl{nge 2,N L{nge min.,mm,Kraft max.,N a |FeHAnzahl Windungen,+2,Drahtdurchmesser,mm,mittlerer Federdurchmesser,mm BLnge ungespannt,mm,Spannlnge 1,mm,Spannlnge 2,mm,Werkstoff, s4Gleitmodul,N/mm,zulssige Materialspannung,N/mm 4Kraft bei Spannlnge 1,N,Kraft bei Spannlnge 2,N Lnge min.,mm,Kraft max.,N,  .F +' F.h!!!!FmE@[\]{|}~FFEݎFFEFEG6 FmE? @@ Fm EC@ F F 0EBX RB BXX RB F FB EC@ F F E?@@ F F?  F ~FE F F EF F F F F E6 F.F +%F^FYFMasstab berechnen LEup#  !H#  #%   F EF FE F F FE FFE F  FEF F FEF FEF FF2EM 1:A% FMasstab als String  F 2EM A% :1FMasstab als String  F 0EK3336FBildberechnungsfaktor nE FDrahtradius l0E#   Fhalbe Steigung $E,  FSteigungswinkel l*E)  FgX-Versatz fr Linie e* E*  FVY-Versatz fr linie e&E  FrKreise links (E  FKKreise rechts e4 E #%  Ft Kreis oben links 6 E #%  Fr Kreis unten links  *Y !  ""FBild darstellen u $!!!FEFEGF0Eb b b b F F F%!F F%!F FE G HFb!!F!!F! !! Fb! !! Fb F$!!!F" ! ! ! F.F 2+++++++++++++++++++++++++++++++++++++++++++++++ Berechnungs-Routinen +==================== ++F=  `F=EGF  `F=* E5 F=Strings in Werte wandeln  F F&wL(!)!*!+!,!-!!.!/!0!1FB  Ev  !QX F Damit eine Null angezeigt wird "0 Ev0 !QX F @@ F@ EQXF! FRFEGF `FQ!F FF F E ! F! F E !_ F! FQ!F  F< E% H HF auf 0.01 runden t&  r t#F 8 EWerte ungltig:  wird mehr als 7-stellig.Fn Fe4 ! EA FWerte in Strings zurckwandeln  F F F FE F.F2............................................... Federnderungen --------------- "+(F-Anzahl Windungen gendert . FW EFM2FM3FM4FM5FM6FM7F % Fe0 E(Anz.Wdg. sollte mglichst auf 0.5 enden.F. F Fn. E'Werte ungltig! Anz.Wdg.=0 geht nicht.F F.F "+)FWDrahtdurchmesser gendert  Fr EFM2FM3FM8F  @@ FM4FM5FM6FM7F F. #   H F.2 E*Dm sollte min. 4 x d und max. 25 x d sein.Fn F Fm* E"Werte ungltig! d=0mm geht nicht.F  F.F "+*FWFederdurchmesser gendert  Fr EFM2FM3FM8FM4FM5FM6FM7F. #   H FF2 E*Dm sollte min. 4 x d und max. 25 x d sein.Fn F Fm* E#Werte ungltig! Dm=0mm geht nicht.F F.F *++FWLnge 0 (ohne Belastung) gendert F  #   F E#   F& ELu muss min. Blocklnge haben.Fr FM3FLM4FLM5FLM6FLM7FL.F +,FLSpannlnge 1 gendert    F  E F EL1 darf max. Lu sein.Fh F  @@ F  E@@ F EL1 muss min. Lmin sein.Fb F  #   F  E#   F& EL1 muss min. Blocklnge haben.Fr FM6FL.F +-FLSpannlnge 2 gendert  @@  F@ E F EL2 darf max. Lu sein.Fh F @@ @@ F@ E@@ F EL2 muss min. Lmin sein.Fb F @@ #   F@ E#   F& EL2 muss min. Blocklnge haben.Fr FM7FL.F +.FLGleitmodul gendert g  FM2FM3FM8FM4FM5FM6FM7F F. E&Werte ungltig! G-Modul=0 geht nicht.Fn F.F ,+/FWzulssige Materialspannung gendert .  FM2FM3FM8FM4FM5FM6FM7F F2 E+Werte ungltig! zul.Spannung=0 geht nicht.F F.F +0FWSpannung 1 gendert S  PP F  EPP F EF1 darf max. Fmax sein.Fu F  @@ FT  PP # @@ # #   FN  EPP # @@ # #   F0 E(F1 darf Blocklnge nicht unterschreiten.F F FM4FF.F +1FFSpannung 2 gendert c 00 PP F0 EPP F EF2 darf max. Fmax sein.Fn F  @@ FT 00 PP # @@ # #   FN0 EPP # @@ # #   F0 E(F2 darf Blocklnge nicht unterschreiten.F F FM5FF.F Federberechnungen ----------------- +2F-6     F  FF E#   O      F F( Ev !#   F F.M& ! ! ! ! F F.F +3FD      FD@ E O      F* @@ #   # =qF F8 E1Lmin nicht erreichbar, da kleiner als Blocklnge.F F F @@ F@ EQXFh F F.M& ! ! ! ! Fl F.F +8F"   F6P EO     F @@ #   F> E6Fmax nicht erreichbar, da Lmin kleiner als Blocklnge.F F Fm.M& ! ! ! ! FB F.F +4F0  @@ PP F&  Eu  !PP FZ  Eu  !PP # @@ # #   FH  E # @@ P   F F.M& ! ! ! ! F F.F +5F0  @@ PP F&0 Eu0 !PP FZ0 Eu0 !PP # @@ # #   FH@ E # @@ P 00 F F.M& ! ! ! ! F F.F +6F>    @@ PP FL  EPP # @@ #   F F.M& ! ! ! ! F# F.F +7F>  @@ @@ PP FL0 EPP # @@ # @@ F F.M& ! ! ! ! F# F.F2............................................... +& ! !!! F. EBrauche noch : F. Fe E  Anz.Wdg.F  F Fz E  dF F FW E  DmFd F FF E  G-ModulF F FM E  zul.SpannungF. F Brauche noch : F4 E-Werte ungltig: Bitte, vernnftige Eingaben.F F.F 2+++++++++++++++++++++++++++++++++++++++++++++++ "GEM-Routinen aus GFA-Basic-Buch ============ a+F= F=  FGE FE  FE@ FE` FE FM9 FM:!0 F(4@ FBreite oder Hhe <>0 E3 3@ FE3 3 FEv3 ! FEv3 ! FEu! FEu! F F FM;!!! F F FM:!@ FF!M9 F F F.F +;!!! FM:! F E3 FE3 F!F !F!F@!F!F!F@!F tF!F!F!F%!F E3 F E3 F E F E F EF  EF@ EF` EF EF Ez @F ! ! F.F +:! F!F !F sPFF.F +9 FF!FF sVFF.F` R` Efv*oM+8 m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HN$Hx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALN Hz2?< NA\pdAxr0XQ)K\NN|fbhnzN ,`NuJrBjNuHz?<&NN\NCAp$L Qp N״9lrBlJpNN״pMN״9@pdAr 0Q0tr N9lN Nupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn4 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuN:pNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|N  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8N6.NJgtBnNNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuN.J@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNu <ڢ2,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNupmrtA)HA)HNpN:HHPN4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@N:"2)IN(* 9AJA)H@@[000][ˈN. Evz`* [g" ]g |g QSz` zQSpQ][ɈN. Dvx`* [g" ]g |g QSx` xQSpQ]Bp4N״HNu*( IN.A)H @depd ae zb QB DN.A\)H @ e` ae zb \gQBA BhNpZN״A BP"`#|}NA"H0,tg"Hg \f`A\fS A EN:AR@H`2QNuN.AH2 @epr0QpptNvpNr|<N. @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N$Y QfFL~)AH|"@$Y Qf,L~)AH|$X PfLH9HNpNA R4RB`A Gf //o~4$_<F"OSG !H@Ь 2 Q)@RHRprN"H2@N .0H@N .YdN HAN 2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNuApNA0pNNt$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0NuN.J@gpNu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)N:$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNuNVHNuNUHNuNSHNuJhg N.NNu Ihd"*N$E8*$R`"QˈN. ENu2)A IJAfr4(Ae*RBBc0*SA?N$E$R`QˈN. ENup`(* 0(iN$E 4R`Q$D 4R`QˈN. DN. ENua NuN. IHPg"B  g &gNJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATANLpN?<*NATANp N"H2X@N :0H@?N :AAN 2p <0N`QNu0g< @g4:8(g* b.&NSD`Q0$C$RQLjN. CNuN.pNp N?Hl?<GNAPA"HJf SNr ,* N.& ( EN. C"Sj|AcRGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NȼldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"NNN:JfNup#`NN4, HHHNup`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4N״P'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNמHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.02| Copyright 1986/1987|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehlertHB9BL@@TAt )l g.A( f hgSASAgRB`9BJN״SAgNut)l g,vARC( g9CJ9|Lp!,N״ FPeNut׈A JpBQA/)H )l gBlJpN״B Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8N״p>L8Ntp*HEAJ0?C bL000H?A/.)HpN״LrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN0`@k Ap0(/.NuA Nu)G RHA)A v9@ zNup)@JphN״LtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, N״"F QNu?S@k&8L &LeBLe,C`(A? fHa)_ 2TNuBlJ`l *bl ,bH .ND0S@k@>A PC/~. 0(JgRJ)@g1@CJ2fP2HP" &" *pdN״0,r W1@AJ00 piN״9|L@NpiN״ _CL""pe`9| LpiN״9|LphN״LtH 2H/`SBSC@AHH/jP 6P/^P0<rtNpapapapaL/jr`S@k6@ A 9PJg8BPpfN״pgN״9| LphN״9@JfdBlJa\Q 6BB 2`NuS@k @ A 9pJg a$Bp`NuHS&I. FV 7p&N9l/h8,:,L/d4,pĴ@cS@9@p4,rŴAcBSA9Ar`8pJ, 7fnJ/^k0 Eg$2,/h pg  qfH9A/hpjN`p0,NH -*NL8NN4+@Bp0,NH -.NL8NN4+@F -:NH -*NH -2NL8NښL8NH -BNL8NږN4+@: ->NH -.NH -6NL8NښL8NH -FNL8NږN4+@> -:JnN ->JnN/-B/-F/-:/->A0N/-&Hx A:N`tBAnNNNמ A"Nf ARNf ANNf AJNf/-&HxA:Np0,+@Vp0,+@Z -J9@A "-N @0 -JNH -RNL8NښH <r$<L8NږN49@ -NNH -"NL8NښH <r$<L8NږN49@p9@A r @0A r @0 <N A 2 "-V @0A 4 "-Z @0pNpNB -JNHp0,NL8NږN4C큘NHx -NNHp0,NL8NږN4C큘NHxpC큘N^NH -RNL8NښH <r$<L8NږN4C큘NHxpC큘N^NH -"NL8NښH <r$<L8NږN4C큘NHx -JC큘NHx -NC큘NHx -JNH -RNL8NښH <r$<L8NږN4C큘NHx -NNH -"NL8NښH <r$<L8NږN4C큘NHxpC큘NB -\NvC큌NA큌HPC큒A큘 N^NNמ ANf A"Nf -"9@A "- @0phN2N A^Nf -^9@pkN2NNמ831419728114158072777582987138312518503246DRUCKFDR Druckfederberechnung------------------------123456Datei Daten laden... L Daten speichern... S Daten drucken P------------------------ Ende... EZeichnung Monitor M Drucker DWerkstoff Stahl naturhart Stahl rostfrei Bronce federhartOptionen Hilfe Help----------------------- einfgen Insert berschreiben Insert----------------------- Daten lschen... C999335733773397331173313733157575196977699769137691573317769177Tastenbelegung--------------Delete Zeichen im Cursor lschen Return ein Eingabefeld vorwrtsBackspace Zeichen links vom Cursor lschen Tab ein Eingabefeld vorwrtsClr Home Eingabefeld ab Cursor lschen  ein Eingabefeld vorwrtsEsc ganzes Eingabefeld lschen  ein Eingabefeld zurckUndo Eingabefeld-nderung zurck nehmen Cursor ein Zeichen nach rechts Insert berschreib-Einfgemodus Cursor ein Zeichen nach links Help Diese KuzanleitungMen-Auswahl------------Datei Daten laden... L Federdaten von Disk laden Daten speichern... S Federdaten auf Disk speichern Daten drucken P Federdaten drucken Ende... E Programm beendenZeichnung Monitor M Zeichnung auf Monitor ausgeben Drucker D Zeichnung auf Drucker ausgebenWerkstoff einige Metalle Standard-Materialdaten bernehmenOptionen Hilfe Help Aufruf dieser Kurzanleitung einfgen Insert Umschalten auf Einfgemodus berschreiben Insert Umschalten auf berschreibmodus Daten lschen... C alle Daten vom Bildschirm lschenDie Berechnung wird jeweils beim Verlassen eines genderten Feldes, sowiebeim Anklicken eines Datei-, Zeichnung- oder Werkstoff-Menpunktes ausgelst.Alle Zahlen werden auf 2 Kommastellen gerundet.Im untersten Feld werden Hinweise angezeigt. Im kleinen Feld rechts untensieht man, ob der berschreib- oder Einfgemodus eingestellt ist.Die Felder, sowie die einzelnen Stellen in den Feldern, mit zustzlichgepunkteter Umrandung knnen auch mit der Maus angewhlt werden.A: und B: in der Datei-Auswahlbox nur anwhlen, wenn das gewnschteLaufwerk betriebsbereit und auch eine Diskette eingelegt ist.999Anzahl Windungen+2Drahtdurchmessermmmittlerer FederdurchmessermmL{nge ungespanntmmSpannl{nge 1mmSpannl{nge 2mmWerkstoffGleitmodulN/mm2zul{ssige MaterialspannungN/mm2Kraft bei Spannl{nge 1NKraft bei Spannl{nge 2NL{nge min.mmKraft max.NAnzahl Windungen+2Drahtdurchmessermmmittlerer FederdurchmessermmLnge ungespanntmmSpannlnge 1mmSpannlnge 2mmWerkstoffGleitmodulN/mmzulssige MaterialspannungN/mmKraft bei Spannlnge 1NKraft bei Spannlnge 2NLnge min.mmKraft max.NCh R  *ZR` |xN4*2VB Z2 *  Th &$h $v 60 6" V  >$  >  >Npn $<DD86hTf:*FvT*Fv.8T$Դ J".f DLH<$*  nnp (8HP,TTfT"4~F,ZZR DR z>p 6dp6dp& V ll6lҞ.LZ"LfJLfNLfNLtLtL~:248P\<DB Berechnung von Federn und Schnappverbindungen --------------------------------------------- ZUGFDR. PRG Zugfedern berechnen DRUCKFDR.PRG Druckfedern berechnen BLATTFDR.PRG Blattfedern berechnen SCHKLFDR.PRG Schenkelfedern berechnen SNAPHAK. PRG Schnapphaken fuer Schnappverbindungen berechnen SNAPRING.PRG Schnappring fuer Schnappverbindungen berechnen ..... DAT Beispiel-Datendateien zu diesen Programmen 1. Nach dem Start des Programms tippen Sie die Bauteil-Dimensionen ein. Sobald genuegend Eingaben gemacht sind, berechnet das Pro- gramm automatisch die zugehoerigen Werte. 2. Die Menue-Punkte "Werkstoff" und evtl. "verstaerkt" fuellen die Material-Eingabefelder mit Durchschnittswerten, die Sie natuer- lich entsprechend Ihrem gewuenschten Material abaendern koennen. 3. Wenn Sie nun einen Eingabewert aendern, sehen Sie sofort die Auswirkungen auf die andern Werte. 4. Die Menue-Punkte "Zeichnen / Monitor, Drucker" dienen nur dazu, einen Eindruck ueber die Bauteilverhaeltnisse zu erhalten. 5. Die Bauteildaten koennen Sie mit "Datei / Daten speichern..." abspeichern. - Die Druckerausgaben sind fuer einen "Star NL-10" geschrieben und sollten auch auf EPSON-Compatiblen Druckern funktionieren. - Die abgespeicherten Daten sind ASCII-Dateien und koennen mit je- dem Editor oder Textprogramm veraendert werden. ACHTUNG! Das Format (Zeilen und Spalten) darf nicht veraendert werden. Die Datei muss immer eine ASCII-Datei sein. - Wenn Sie Daten laden oder speichern, sollte das gewaehlte Laufwerk angeschlossen und eine lesbare Diskette eingelegt sein. Falls nicht, werden die Pfad- und Datei-Auswahlfelder der Datei-Auswahl- box mit falschen Angaben ueberschrieben (Absturz-Gefahr). Diesen Fehler konnte ich mit der "TOS 1.0 - Fileselectbox" und "GFA-BASIC V 2.0" nicht abfangen. - Zum Verlassen der Hilfe-, Zeichnungs- und Autorenanzeige reicht ein Druck auf die linke Maustaste oder irgend ein Tastendruck. Es muss nicht unbedingt die "OK"-Box angeklickt werden. - Wenn ein Eingabefeld veraendert aber nicht verlassen wird und anschliessend ein Menue-Punkt aus "Datei" oder "Zeichnung" ge- waehlt wird, werden die Daten zuerst automatisch berechnet und evtl. auch veraendert. - Fuer jedes Programm ist eine Beispiel-Datendatei auf der Diskette, die mit "Daten laden..." in's Programm geholt werden kann. Version 1.01 von ZUGFDR.PRG und DRUCKFDR.PRG - Daten von Version 1.00 koennen nicht direkt eingelesen werden. Sie muessten zuerst mit einem Editor auf das neue Format gebracht werden (siehe Beispiel-Datendatei "..... DAT"). - Fehlerbehandlung verbessert. - ist gleich wie . - Materialbezeichnung kann abgeaendert werden. - Keine Tastenbefehle mehr fuer Material-Auswahl. GfABASIC xlqqVqr`rfrlrxrrrststststIJKMFBI1I2I3I4I5I7I8DATEIMODPFADCURSPEZALTITEMPTEMPALTBILDMELDCHARFILEALZEIMNAMERANDKJHALFFAFENIJX1Y1X2Y2X3Y3SZEBHBBKHHANDM5M6M7M8TBTHTXTYXYBX0Y0FLGKLICKTASTFEHLERTTLEILSZSMFDBDMFDBP SPEZ_TASTEN ALT_TASTEN MENUEDATENFEDERZEICHNUNGFELDPOSITIONEN FEHLERENDEHILFE FEDERPRINT FEDERSAVEWERTBILDCURSORMELDUNGBILD_ERSTELLENFELDWAHL MENUEAUSWAHL TASTENDRUCKREDELBAKESCUNDOABAUFLIINSHELPCLRLADSPEIDR_DATENDEMONDR_BILDDELDATXNATCRBRRECHNENAUTORFELDTEXTFILEWAHL LESEFEHLER AUFBEREITEN SCHREIBFEHLERAUSGABEZEICHNENFEHLT DRUCKZEICHEN FEDERWINKEL FEDERKRAFT WIND_UPDATEWIND_GETREDRAWFSCHKLFDR.BAS Version 1.00 7.4.90 HR FSchenkelfeder berechnen GFA-Basic V2.0 Atari 1040 STF F==================================================================  X F=@)!*Zu wenig RAM-Speicher|fr dieses Programm.!!ABBRUCH!FqF F   F@)!*Dieses Programm luft|nur in Schwarzweiss.!!ABBRUCH!FqF F Allgemeine Variablen -------------------- $Al$ !Alerttext S<Alt$ !Menwahlstring fr Alternatetaste HFBild$ !Bildspeicher fr: Get 0,19,639,399,Bild$ "ESFDR.DATF Dateibezeichnung 2File$ !Rckgabe von Fileselect *I$,J$,K$ !Arbeitsvariablen .EF Hilfe- oder Autorbild wurde angezeigt e$Lei$ !Menleiste $Meld$ !Meldungen 6EFberschreib- und Einfgemodus ("" oder "E") ,Pfad$ !Laufwerk und Pfad  ,Al% !Alert-Rckgabewert 6E% !zum Suchen des Eingabefeldes 4H%,I%,J%,K% !Lauf- und Arbeitsvariablen  *I,J,K !Arbeitsvariable s 8Fehler! !Pfad oder Datei nicht gefunden :Tast! !Flag zum Tastaturpuffer lschen 9 Eingabevariablen ---------------- EFFeldzhler .EFhAnzahl Ein- und Ausgabefelder f$EFhAnzahl Eingabefelder EFZeichenzhler :S% !Textspalte bei Anwahl durch Maus :Z% !Textzeile bei Anwahl durch Maus  (Char$ !Eingabezeichen Cur$ !Cursor >Spez$ !Steuertastenstring fr Eingabefelder <Temp$ !Temporrer Eingabetext fr "Undo" e<Tempalt$ !fr Test, ob Eingabefeld verndert  * F Anzahl Zeichen je Feld "* F Zeichenspalte Feldanfang "* F Zeichenzeile des Feldes &* FZahlenwerte fr Berechnungen * F Eingabezahlen r*T$(1) !Anzahl Windungen ,T$(2) !Draht-Durchmesser b.T$(3) !Windungs-Durchmesser 4T$(4) !Hebellnge (Schenkellnge) &T$(5) !Federwinkel S$T$(6) !Werkstoff l"T$(7) !E-Modul f,T$(8) !zul. Biegespannung $T$(9) !Federkraft  Zeichnungs-Variablen -------------------- .M$ !Masstab fr Ausgabe l<Zei$ !Zeichnungsspeicher fr auf Drucker  @Bb% !Zeichnungsspeicher-Bildbreite in Bytes .Bh% !Bildhhe in Punkten i>X1%,X2%,X3% !Read-Variable fr Monitorbildaufbau e>Y1%,Y2%,Y3% !Read-Variable fr Monitorbildaufbau e 6Fb !Bildpunkt-Berechnungsfaktor d.M !Masstab zum Rechnen s Gem-Variablen ------------- * F Ausgangsbild * F Zielbild ** Fzu bertragendes Rechteck n  E  Fz sendendes Bild  EHHFz E Fz  EF E FBildschirmadresse l$ E  Fs empfangendes Bild h EHHFs E Fs  EF(Hand% !Fensterhndel k0M5%,M6%,M7%,M8% !Koordinaten fr Redraw *Tx%,Ty%,Tb%,Th% !Redraw-Rechtecke  2aktuelles Laufwerk und Pfad ermitteln ermitteln 2----------------------------------------------- $EH Faktuelles Laufwerk :EB : Ffaktuelles Laufwerk und Pfad  Cursor erzeugen --------------- Eb` bp b FEGFEb F F Programm-Steuertasten --------------------- EF-RFFEG`F-QF.EB F Scan-Codes fr Eingabesteuerung r F |F,83,14,1,97,28,114,15,80,72,77,75,82,98,71  EF1RFFEG`F5QF(EB F Scan-Codes fr Menauswahl F |F38,31,25,18,50,32,46  Men-Aufbau ----------- (EF Anzahl Men-Eintrge bestimmen RFFQF Z999F4FZF * F Men-Daten einlesen RF EGFQ F FG |F$SCHKLFDR, Schenkelfeder rechnen m------------------------ r1,2,3,4,5,6   8Datei, Daten laden... L, Daten speichern... S 4 Daten drucken P,------------------------ . Ende... E   *Zeichnung, Monitor M , Drucker D -  Werkstoff, Stahl naturhart * Stahl rostfrei , Bronce federhart -  "Optionen, Hilfe Help 2-----------------------, einfgen Insert - berschreiben Insert ,2-----------------------, Daten lschen... C -   999   FMenleiste darstellen a*p!Fiberschreibmodus markieren  Fenster-Aufbau e-------------- e\!F-keine Titelzeile ]!F-keine Infozeile !Fkeine Randelemente !Fx e@!Fey t!  Fe Breite  !?Fe Hhe ^F Bild-Aufbau ----------- ZF(!!!@FTITEL h6/ ! !h!Schenkelfeder berechnenF .$@!!!FStrich-Punkt-Punkt-Linien rD @!FG!^G,!cGd!KF$ $!!!FMittellinien  !*!PFn$ !*!R!*F$ !>! !nF$T!H!(!F $!!!FRFF(Q!! !!FX, Y, R, PHI0, PHI1  Zyy FX$EGHu\)F Federbogen *  !)  F * #  !) #  F F#F FQ!! ! F Zyy F*!! ! FFederkanten und Masslinien F!> !*!>! !( FWinkel-Masslinie  FQ!! ! ! ! F Zyy FF !! ! F Masspfeile  G ! G!FeF  |FFFEDERKANTEN Bgen ,70,170,21,0,6.283,70,170,30,-1.212,4.611 .85,133,20,3.142,3.491,85,133,11,3.142,4.353 ,85,207,20,1.93,3.142,85,207,11,1.93,3.142 999,999,999,999,999  horizontal ,65,100,75,100,65,233,75,233 65,101,75,101,65,232,75,232 vertikal ,:65,100,65,133,75,100,75,133,65,207,65,233,75,207,75,233 :66,100,66,133,74,100,74,133,66,207,66,233,74,207,74,233  MASS- UND HILFSLINIEN horizontal I050,105,140,105,45,137,140,137,100,170,113,170 75,233,140,233,70,265,140,265 vertikal 0<45,134,45,170,95,134,95,170,110,170,110,233,70,233,70,268 999,999,999,999  MASSPFEILE ,horizontal ,$65,105,-7,-3,-7,3,75,105,7,3,7,-3 $45,137,7,3,7,-3,95,137,-7,-3,-7,3 vertikal 3&110,170,-3,7,3,7,110,233,3,-7,-3,-7 Winkel ,$23,252,5,7,8,0,70,265,-7,-4,-7,3 -999,999,999,999,999,999  "$!!!FEIN- UND AUSGABEBOXEN 3%!!F"EtGzHF-> !!!@@F-Bezeichnungsboxen links F!< !]!!uF-Bezeichnungsbox links s< !}!! F-Bezeichnungsbox links s "EtGzHF-8!!..!@@F-Eingabeboxen links F!6!]!.!uF-Eingabebox links 6!}!.! F-Eingabebox links  <6!t!^!*F-Bezeichnungsbox rechts >6!:! !jF-Bezeichnungsboxen rechts >6!z! !F-Bezeichnungsboxen rechts >6!}! ! F-Bezeichnungsboxen rechts  8^!t! !*F-Eingabebox rechts r: !:! !jF-Eingabeboxen rechts c: !z! !F-Eingabeboxen rechts c8 !}! ! F-Ausgabebox rechts s 20!.! !:F-Meldungsbox e< !.! !:F-berschreib-Einfgebox  &(!!!PFFELDER BESCHRIFTEN @Y!  "Anzahl Windungen "FsBezeichnungen links *Y!` "Draht- d[mm]"Fs*Y! "Windungs- D[mm]"Fs*Y!p "Hebellnge l[mm]"Fs(Y! "Federwinkel []"F 8Y<!  " Werkstoff"F Bezeichnungen rechts .Y<!` "E-Modul E [ ]"Fg(!!!@F'~!L!NF-$|!R! !RF '|!d!mmF' !b!2FF(!!!PF.Y<! "zul.Spannung [ ]"Fg(!!!@F't!!bFu'~!!NFu$|! ! ! F '|!!mmF' !!2FF(!!!PF,Y<! "Federkraft F [N]"F RFEGFQ ! ! F E !_ Fr FEGFrQ ! ! F E FF F|F(37,5,7,37,7,7,37,9,7,37,15,7,37,17,7 [57,5,19,69,7,7,69,9,7 69,17,7  MF7MF7,MF7Meldung anzeigen und Bild speichern F Men-Funktionen --------------- vLFv!!LF-vLFvLF Hauptprogramm ============= |F=FFF= Unterprogramme ============== +F=(Ausgabe der Feder-Werte am Bildschirm (------------------------------------- (!!!PF-EGFY ! " "F- F E F E F6Y!8 ""F berschreib-Einfge-Anzeige t.F +FTastendruck auswerten --------------------- F-EFF!! F!F sVF F^F EFMeldung lschen 6Y`!8 " "FhMeldungsfeld lschen  EB``  F _F  E-F FEC 0123456789.@ FF@ #P  #@7 xx7 ~~ F E FE IF! E?@@ F FE F ! E FMF  FEF F F@ E9Nur Ziffern 0 bis 9, Punkt und Steuertasten sind erlaubt.F EC@B`  Fu F EFFMeldung lschen 0wL! ! ! ! ! ! ! ! !!!!!F. F! P F!< E5Diese Alternate-Tastenkombination hat keine Funktion.F EC@B`  Fn F EFF Meldung lschen wL!!!!!!F F F P FF: E3Diese Control-Tastenkombination hat keine Funktion.F F FEF F,MFiMeldung anzeigen und Bild speichern e Fd2`! @!FnTastaturpuffer lschen  FEF F.F +FMen angeklickt --------------- F-EFF!! F!F sVF F^F!! F EFMeldung lschen n6Y`!8 " "FaMeldungsfeld lschen P Fa"w PL!!!!!Fg F ( HF  EFw (L!!FEFMFMFMF F    F*w  L!!!!!!!!F F FMF F FF,MFMeldung anzeigen und Bild speichern e F F.F +FEingabefeld angeklickt n---------------------- n F-EFF!! F!F sVF F^F EFMeldung lschen n6Y`!8 " "FdMeldungsfeld lschen : E#   Fl Textzeile ermitteln F2E#00  F Textspalte ermitteln  8 Fx MFberschreib-Einfgemodus  FD E=Nur Eingabefelder (Rahmen gepunktet) knnen angewhlt werden.F"EGF Eingabefeld suchen (     Fa  F F  EFMFEMFE FMFF FEFFneue Feld-Nummer E F E F FEC@_ Fe FF E F FEu  ! FMF MF EFFOR-Schleife beenden  EF F FO F,MFMeldung anzeigen und Bild speichern a F.F2............................................... ,+F.Meldung ausgeben und Bild speichern . Fn F$Y`!8 " "B`` "Fe F !! !G! F F.F2+++++++++++++++++++++++++++++++++++++++++++++++ Eingabe-Routinen +================ +"+F=Zeichen im Cursor lschen + ?@@ _FEG F! E?@@ Fl F! E_FMFMF F E FSignal ausgeben l F.F "+ F Zeichen vor Cursor lschen Fe5FEG F! E?@@ F F! E_FMFMF F E FSignal ausgeben  F.F "+ F ganzes Eingabefeld lschen  : _FnE !_ FEFMFMF F E FSignal ausgeben  F.F *+ F Eingabefeld-nderung zurcknehmen +  F- E FEFMFMF F0 E(Eingabefeld wurde noch nicht verndert !F+ F.F + FEein Eingabefeld vorwrts F  EFMFEMFE FMFF F F4F FEF F E F E FEFMF.F + Fein Eingabefeld zurck F  EFMFEMFE FMFF F FgEF F5FF F E F E FEFMF.F &+FCursor ein Zeichen nach rechts   ?@@ _Fh4F F E FSignal ausgeben  FMF MF .F &+F Cursor ein Zeichen nach links Fr5FMFMF F E FSignal ausgeben  F.F &+F Eingabefeld ab Cursor lschen  ?@@ _FEG F! E_F FMFMF F E FSignal ausgeben s F.F2............................................... +F.ganzes Feld ausgeben Y ! ""F.F +FCursor anzeigen e@#  !  !!@@F.F2+++++++++++++++++++++++++++++++++++++++++++++++ Men-Routinen ============= +F=$Nur fr Mennummern ohne Funktion .F +FfProgrammversions-Angabe t!FMen abschalten - sVF *EFnchster Klick = Men einschalten +%!F $!!!F0 !8!k!Fa Gesamtbox +*#!>!i!Fa Rand $$!@!i!Fa,!~!2! Fa OK-Box $!!1! Fa$!!1! Fa%!F.0!\!c!Fa Titelbox !F$0!\!@!dFa$0!!@!Fa$c!\![!dFa$c!![!Fa!F8YH! "/| S C H E N K E L F E D E R |/"F@:Y@!  "!Federberechnung Version 1.00"F:Y@!0 "!in GFA-Basic 28.3.1990 HR"F*Y`!P "Autor: Hans Roth"F Y!` "Weid 13"FH*Y!p "CH-6313 Menzingen"FFY ! "OK"F%!F.F +FDaten von Disk laden 2Y`!8 "Schenkelfederdaten laden,"F9,& Bildschirmdaten werden berschrieben."FFEFM Fl F  F2Y`!8 "Schenkelfederdaten laden,"F98& Bildschirmdaten werden berschrieben." "F"7I!M!FtvL!F! =`M!F C@Schenkelfederdaten F =`M!F =`M!FEGF =`M!FG E?@$@ F E F"? @@   F ! E_F5F F! F EFMF F*Y`!8 " "B` "F.>Y`!8 """ sind keine Schenkelfederdaten."FEF F8MFFvF F*Y`!8 " "B` "Fc.Y`!8 """ nicht gefunden."FEF F F F8MFMF Y`!8 " "Fc.F +FDaten auf Disk speichern M"F8Y`!8 "Schenkelfederdaten abspeichern."FtFEFM F F" C @\\ C @* C @? F*Y`!8 " "B` "FaEF C @\\ FE"\\" F F C @* FE"*" F F C @? FE"?" F FBY`!8 ""&im Pfad oder Dateinamen nicht erlaubt."FEF F FBY`!8 "Schenkelfederdaten abspeichern." "F  F& E|existiert bereits. F" E | |Datei berschreiben ?F )! !! NEIN | JA !F F EF F F F vL#FM$! F vF F F*Y`!8 " "B` "Fa@Y`!8 "'Der Name zum Speichern der Daten fehlt."F"EF F F F F8 Y`!8 " "Fz.F +FFederdaten drucken FE!F { Fr F FDrucker bereit? M"F6Y`!8 "Schenkelfederdaten ausdrucken."F;BX "R"B "FM$LST:! Fe;BX "R"B "F Y`!8 " "Fe F EDrucker ist nicht bereit.F F.F +FDProgramm beenden 8 E0Federdaten werden NICHT|automatisch gespeichert.Fe )! !! ZURCK | OK !F FZ[FqF F.F2............................................... +F.Zeichnung auf Monitor .  F!FMen abschalten n sVF *EFnchster Klick = Men einschalten .M"FM%F $!!!F,!'!2!2Fa OK-Box $!'!1!2Fa$!(!1!1Fa(!!!PFY !0 "OK"F FM&! ! !!!! F F.F +F!Zeichnung auf Drucker   F X @FF FE!F { F F FDrucker bereit? rM"FM%F(!!!@Fr@'!9!)Bitte warten, Zeichnung wird ausgedruckt.F"(!!!PFZ%#  ! !%#"  !/!F Bildhhe in Bildpunkten ,E7?@@ 7?@@ FAnzahl Bytes auf Bildbreite E#6 @ Fi Ausdrucken &; ""B  "BP "F.;BX "A"B "F LF auf 8/72 Zoll E`G@@F EFEEIFE?@@ F F@;  "FLinker Rand ;BX "*"B  "F .;B%  "B% "F;"B  "BP "F F>;BX "2"B  "BP "FLF zurck auf 1/6 Zoll !! F F EDrucker ist nicht bereit.F F Fr* E#Zu wenig Speicher fr Bildausdruck.F F FuM&! ! !!!! F F.F2............................................... "+F.Werkstoff Stahl naturhart .` E210000_F E800____F"@ EStahl naturhart____F.F +FWerkstoff Stahl rostfrei ` E190000_F E750____F"@ EStahl rostfrei_____F.F "+FWerkstoff Bronce federhart ` E110000_F E250____F"@ EBronce federhart___F.F2............................................... +F.Kurze Anleitung .!FMen abschalten . sVF *EFnchster Klick = Men einschalten .^FYFEFe(!!!@FlRFFQF Z999F'@!!Fc0!FF|FFTastenbelegung c-------------- cRDelete Zeichen im Cursor lschen Return ein Eingabefeld vorwrts RBackspace Zeichen links vom Cursor lschen Tab ein Eingabefeld vorwrts RClr Home Eingabefeld ab Cursor lschen  ein Eingabefeld vorwrts PEsc ganzes Eingabefeld lschen  ein Eingabefeld zurck s0Undo Eingabefeld-nderung zurck nehmen R Cursor ein Zeichen nach rechts Insert berschreib-Einfgemodus L Cursor ein Zeichen nach links Help Diese Kuzanleitung m Men-Auswahl r------------ r@Datei Daten laden... L Federdaten von Disk laden uD Daten speichern... S Federdaten auf Disk speichern l8 Daten drucken P Federdaten drucken 6 Ende... E Programm beenden  DZeichnung Monitor M Zeichnung auf Monitor ausgeben D Drucker D Zeichnung auf Drucker ausgeben  HWerkstoff einige Metalle Standard-Materialdaten bernehmen u BOptionen Hilfe Help Aufruf dieser Kurzanleitung eB einfgen Insert Umschalten auf Einfgemodus eF berschreiben Insert Umschalten auf berschreibmodus nH Daten lschen... C alle Daten vom Bildschirm lschen u N"Die Berechnung wird jeweils beim Verlassen eines genderten Feldes, sowie" R"beim Anklicken eines Datei-, Zeichnung- oder Werkstoff-Menpunktes ausgelst." 4"Alle Zahlen werden auf 2 Kommastellen gerundet." N"Im untersten Feld werden Hinweise angezeigt. Im kleinen Feld rechts unten" F"sieht man, ob der berschreib- oder Einfgemodus eingestellt ist." L"Die Felder, sowie die einzelnen Stellen in den Feldern, mit zustzlich" nF"gepunkteter Umrandung knnen auch mit der Maus angewhlt werden." l   T"A: und B: in der Datei-Auswahlbox nur anwhlen, wenn das gewnschte" N"Laufwerk betriebsbereit und auch eine Diskette eingelegt ist." 999 (!!!@Fe,'@!)!ACHTUNG AbsturzgefahrF $!!!F,!'!2!2Fr OK-Box $!'!1!2Fr$!(!1!1Fr(!!!PFY !0 "OK"F.F .+Fberschreib- und Einfgemodus wechseln * # pp  hFsEEFp!Fh!F FEFh!Fp!F F6Y!8 ""F berschreib-Einfge-Anzeige D !! !G! F.F .+Falle Daten auf dem Bildschirm lschen AB E:Die Schenkelfederdaten|auf dem Bildschirm|werden gelscht.Fe )! !!ABBRUCH| OK !Fd FBEGF E !_ FK  EF FEGFK E FK  EF FEFEFMFMF F.F2............................................... + F.f*.*!! F. FEC @: F FF$E: :\F Laufwerk ausfiltern .EFF F>EBHH  :\Feaktuelles Laufwerk einsetzen EF F E6 F&? @@ \F Pfadende suchen e5F?F FE? @@ F  FE= @6  F  F.F +!F (Datei hat zu wenig oder falsche Daten vF8MFe*Y`!8 " "B` "Fs2Y`!8 " hat zu wenig Daten."FEGF E !_ F  EF FEGF E ! F  EF FEFEFMFMF,MFMeldung anzeigen und Bild speichern aFF.F +#FvF8MF Y`!8 " "Fd6 PFi F, E$Kann nicht speichern, Disk ist voll.F F Fs$ E ist schreibgeschtzt.Fo F Fs( E Dateipfad  nicht gefunden.F. F Fa. E'Disk-Schreibfehler (evtl. Disk defekt).F F,MFDMeldung anzeigen und Bild speichern )FF.F +"F F  EF E FMFMFMF !! !G! F F.F +$! F 7O!M!F M!"Schenkelfederdaten "F LST:FMFRF F M!"FTRF FM!"~" "8FfM!"H!- FEGF @LST:F" M' F F E F E F F?@@ _F"! E F5FF Q!F&M!"" 6 "" "F F"MF8MF |F@Anzahl Windungen,,Drahtdurchmesser,mm,Windungsdurchmesser,mm .:Hebell{nge,mm,Federwinkel,Grad,Werkstoff,,E-Modul,N/mm2 $zul. Spannung,N/mm2,Federkraft,N r |F .Anzahl Windungen,,Draht-,mm,Windungs-,mm -8Hebellnge,mm,Federwinkel,,Werkstoff,,E-Modul,N/mm m$zul. Spannung,N/mm,Federkraft,N t .F +' Fnh!!!!FFE@[\]{|}~FFEݎFFEFEG6 FFE? @@ FF EC@ F F 0EBX RB BXX RB F FB EC@ F F E?@@ F F?  F ~FE F F EF F F F F E6 F.F +%F^FYFMasstab berechnen :EuH# L ! #  FEF FE FF FE FFE F  FEF F FEF FEF FF2EM 1:A% FMasstab als String  F 2EM A% :1FMasstab als String  F 0EK3336F"Bildberechnungsfaktor n "E F!Drahtdickenradius c.E#  FnWindungs-Aussenradius r, E#  FnWindungs-Innenradius : E, #  Oa Fr ffnungswinkel aussen F8 E, #  Oa Ff ffnungswinkel innen E F#Hebellnge $!!!FMittellinien ,! !"! Fw ! !# F4  #  FHebel nach aussen n* !! !% F $!!!F" ! ! FInnenkreis D !! !zz !a FeSchenkelradius < ! !!((  !((  FAussenkreis e< ! G !  FSchenkel 2 G !  G ! F F2  #  FHebel nach innen * !! !%F $!!!F$ ! !FAussenkreis D !  ! !aa !" FhSchenkelradius : ! ! !((  !((  FInnenkreis < !  G !  FSchenkel 2 G !  G !  F F(Hebel auf Windung * !! !%F $!!!F" ! ! FInnenkreis $ ! !FAussenkreis , ! # !F Drahtkreis  F F *Y !  ""FMasstab anzeigen .F 2+++++++++++++++++++++++++++++++++++++++++++++++ Berechnungs-Routinen +==================== ++F=EGF  @F=* E5 F=Strings in Werte wandeln  F FFM& ! ! ! !  !`` ! FsM(FM)FRFEGF @F!Q!F FF F E ! F F E !_ F FQ!F  F  rF6 EWerte ungltig:  ist mehr als 7-stellig.F Fe0Auf 0.01 runden und in Strings zurckwandeln e. ! EA% H H F F F F FE.F2............................................... Feder-Berechnungen .------------------ .+(F-6   `  Fh  n%e.z O   ` H HF: E3Federwinkel darf zul. Spannung nicht berschreiten.F<  Ee.z O   ` F F  F<  Ee.z O   ` F( E Federwinkel max. wird angezeigt.F F Fe  EF F.F +)F(    FN E   ` e.G    F F EF F.F2............................................... +&!!!! ! ! F. EF F E  Anz.Wdg.F  F Fz E  dF F FW E  DF F FW E  lF F FW E  F F FW E  EF F FW E  F F F EBrauche noch :  F F.F 2+++++++++++++++++++++++++++++++++++++++++++++++ "GEM-Routinen aus GFA-Basic-Buch ============ a+F= F=  FGE FE  FE@ FE` FE FM* FM+!0 F(4@ FBreite oder Hhe <>0 E3 3@ FE3 3 FEv3 ! FEv3 ! FEu! FEu! F F FM,!!! F F FM+!@ FF!M* F F F.F +,!!! FM+! F E3 F!E3 F!F !F!F@!F!F!F@!F tF! F!!F!F%!F E3 F E3 F E F E F EF  EF@ EF` EF EF Ez @F ! ! F.F ++! F!F !F sPFF.F +*" FF!"FF sVFF.F` JR` Efv*oM. m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNvHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALN"Hz2?< NA\pdAxr0XQ)K\NN|HRX^jN ,`NuJrBjNuHz?<&NN\NCAp$L Qp N9lrBlJpNNpMN9@pdAr 0Q0tr NT9lN Nupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuN׌pNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@NX?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|נ  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NjJFkSFk&aQNj`Ha"FFaQL8N>6.נJgtBnנNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N><JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANu~NuAd RdQRB6Ce0 C/jC C@j C jr0H@{0DH@Nur{0Nu{0NutNuJj(:,af AfBfNu&<x*<NHn֚r$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuJjtNupN&L8H <2&<x*<N_N׌vJjv`v?&<ڢ8L8NL8N6Hp0ЀSN&~ BeFf 0 e<&<ݳB8<*<N&<x*<N>&<ݳB8<*<N~?HNH&&<8<+*<NL8N&<N8&LNܪJBf,LNVLHN0L8NNJ jBNupNJBgCjtNu"l`Qd&&|-KNuN"l`Qep[NA"l` d&&&|-KNuN"l` ep[N c R nPNu _\-KN c S mPNu _\-KN c "#kЁ n NuЁ l _\-KNE`$@Hz ?<&NN\Nu NuN.N@e ?pa0`@H`0,nF@RCN p `p ap Cpln<,(AL$I"vz x `gfURf~QjJFj4\Fk.aPHS&I.N``p???<NM\Qj&_Nu|HQ/g ??<@NAXXfNuJkp%NJl 6g Fg FfXNzNu09JBfNu <r$<Nux&k@FC Be& B dЄeNu B0dHDDdRdQRBNu&<x*<NFC Be B djNu B0dDdSkfJAftNuAр[SBNuCDE"l`d"JBftJEfz&6&&6&&|NuN"l`ep N c 2$F4BBNJBgB*#E8#&#Jjh`,J]o6\`6 c 2$4BBN*#8#&#Jk:JkִEffDbAeABJk0!NuRdQRB`JjҺBf̶fȸA` c 2$4BB*#[8#&#N*#8#&#JBgJjEJjL`Ja:Jo\`Jk:JkEffDbAeABJk0!NukDNuQRB`JjҺBf̶fȸA`p`pN @ddAgH`p`p9@(9@*BlNu]A9A(NNCpNEN`p`pN0<9@:, IN.J@g@8 FN. EdbAJfE @e4r$Wf"FANuPRN:LST:AUX:CON:MID:IKB:VID:,J@fC E& B Og& Rgl Ag@ Ug2 Ig $CpNp=`pNAXJ@jNNuN.J@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNu <ڢ2,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNupmrtA)HA)HNTpN:HHPN4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@N:"2)IN(* 9AJA)H@@[000][ˈN. Evz`* [g" ]g |g QSz` zQSpQ][ɈN. Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NHNu*( IN.A)H @depd ae zb QB DN.A\)H @ e` ae zb \gQBA BhNpZNA BP"`#|}NA"H0,tg"Hg \f`A\fS A EN:AR@H`2QNur|<N. @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| NT$Y QfFL~)AH|"@$Y Qf,L~)AH|$X PfLH9HNpNA R4RB`A Gf //o~4$_<F"OSG !H@Ь 2 Q)@RHRprNT"H2@N .0H@N .YdN HAN 2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNuApNA0pNN$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0NuN.J@gpNu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)N:$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNuNVHNuNUHNuNSHNuJhg N.NNu Ihd"*N$E8*$R`"QˈN. ENu2)A IJAfr4(Ae*RBBc0*SA?N$E$R`QˈN. ENup`(* 0(iN$E 4R`Q$D 4R`QˈN. DN. ENua NuN. IHPg"B  g &gNVJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATANLpN?<*NATANp N"H2X@N :0H@?N :AAN 2p <0N`QNu0g< @g4:8(g* b.&NSD`Q0$C$RQLjN. CNuN.pNp N?Hl?<GNAPA"HJf SNr ,* N.& ( EN. C"Sj|AcRGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NȼldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"NNN:JfNup#`NN, HHHNup`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4NP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.02| Copyright 1986/1987|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehlertHB9BL@@TAt )l g.A( f hgSASAgRB`9BJNSAgNut)l g,vARC( g9CJ9|Lp!,N FPeNutA JpBQA/)H )l gBlJpNB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Np>L8Ntp*HEAJ0?C bL000H?A/.)HpNLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN0`@k Ap0(/.NuA Nu)G RHA)A v9@ zNup)@JphNLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, N"F QNu?S@k&8L &LeBLe,C`(A? fHa)_ 2TNuBlJ`l *bl ,bH .ND0S@k@>A PC/~. 0(JgRJ)@g1@CJ2fP2HP" &" *pdN0,r W1@AJ00 piN9|L@NpiN _CL""pe`9| LpiN9|LphNLtH 2H/`SBSC@AHH/jP 6P/^P0<rtNTpapapapaL/jr`S@k6@ A 9PJg8BPpfNpgN9| LphN9@JfdBlJa\Q 6BB 2`NuS@k @ A 9pJg a$Bp`NuHS&I. FV 7p&NP9l/h8,:,L/d4,pĴ@cS@9@p4,rŴAcBSA9Ar`8pJ, 7fnJ/^k0 Eg$2,/h pg  qfH9A/hpjN<`Ag N+m -C^NCrN -C^NCxNHmrp_N"_N+@ -JgN` -CjN^+@ -NH -CpN^NL8N&<x*<NH -NL8NN+@Ag NAg@N+mҁA C퀄NN`NqAa2NNN4-RNzN\JBfNaHmA "_NTJBfNaNprNA퀄NpNNBg?<?<?<A~" NNNHmrp"-"_NHPp_N"_NTJBfNbp+mր -CjN^NH <r$<L8NNANHmrHmr -RNv/p""_N"-"_NN`NqNqHmr -CjN^/p_N""_NAg NAg@NNb~p NC퀄NNN -SnNcSNv+mր -CjN^ANHmrHmr -RNv/p""_N"-"_NN`NqNqHmr -CjN^/p_N""_NAg NAg@NNc,p NC퀄NNNArNrHPp_N"_NTJBfNc -CjN^/p_N"NCrN+|Ag NAg@NNcp NC퀄NNNHmr -C^N"_NTJBfNd -C^NCrN+|Ag NAg@NNd:Nf(Eingabefeld wurde noch nicht verndert !C퀄NNNHmrAx"_NTJBfNd/-ArC^NA\NAUpNNdAg N -ʰmNdRNvNd+| -C^NCrN -C^NCxN+|Ag@NNNHmrAx"_NTJBfNe6/-ArC^NA\NAUpNNe@Ag N -SgNeZ+mҀNe`SNv -C^NCrN -C^NCxN+|Ag@NNN -NH -CjN^NL8NަpJBgp/Hmrp"-"_NHPp_N"_NTpJBgp$fNfRNvNfp NC퀄NAg NAg@NNN -SnNffSNvAg NAg@NNftp NC퀄NNNHmrp"-"_NHPp_N"_NTJBfNf+mր -CjN^ANHmrp_N"-"_NN`NqNqAg NAg@NNgp NC퀄NNNN -CpN^/ -CvN^"NArNNN -CpN^NH -NL8NvNH <r$<L8NN? -CvN^NvN&<x*<NN?HmZp _"N0NNNNp9@pkNԄt;BRpNpNpNpNprNp\"<N <$"<N^p_"<N <!"<Np`"<N < "<N <"<N <"<dN <"<N <"<cN <"<N <"<bNpNpNpn"<N <"<N^pNDpn"<Npr"<N <"<N <"<Npn"<Npr"<N <"<N <"<NpNDNprNN/| S C H E N K E L F E D E R |/Np rNN!Federberechnung Version 1.004Np rNN!in GFA-Basic 28.3.1990 HR4Np rNN~Autor: Hans RothNpr%NNWeid 13!Npr%NNCH-6313 Menzingen4Npr(NN~OKpNpNNNNprNNSchenkelfederdaten laden,4NN~& Bildschirmdaten werden berschrieben.BmVA~NHmA "_NTJBfNmHmTAH"_NNNJBfNmNprNNSchenkelfederdaten laden,4NN~& Bildschirmdaten werden berschrieben.pNpINHPHmTAH"_Nr"_N )| N+@ Np!NxNA퀢Np NNp NNNpNNpANpNN+| - \NvANA ClN -NH <r$<L8NN+@pANHmlHm -NH -NH - NL8NL8NN/p""_N"_NClNN*`NqNqNp NxNNpNNp*NpNNN -NH -NvNNvvNL8NNNN -NvNNvNNNNAlNp NNp NNN`NqNpNNp2Np NNp NNBg?<A~"N.Ny\NrDrucker ist nicht bereit.4C퀄NNyNr#Zu wenig Speicher fr Bildausdruck.!C퀄NNz <r$<HpCXNHpCXNH <r$<H <r$<H <r$<H <r$<HANNNHxNr210000_C^NHxNr800____C^NHxNrStahl naturhart____C^NNNHxNr190000_hC^NHxNr750____C^NHxNrStahl rostfrei_____C^NNNHxNr110000_rC^NHxNr250____C^NHxNrBronce federhart___C^NNNp9@pkNԄt;BRpNN+|pNpNpNpN)| NClNHmlNr999"_NJgN{ -rNAlN <Ѝ/p _ѐNv`pNpNpNpN <RrNNfACHTUNG AbsturzgefahrNpNpNprN <N"<N <e"<dN <O"<N <d"<cN <P"<N <c"<bNpNpNpNp NNpr(NN~OKNNHmNpN"_NJpJBgp/pNN&<x*<NޔpJBgp/pNN&<x*<N\pJBgp$fN}\pENCNNprN prN N}zpNCNNprN prN NprKNANNBg?<?<?<A~" NNNNf:Die Schenkelfederdaten|auf dem Bildschirm|werden gelscht.C퀖NHxHmNfABBRUCH| OK r"_ N+@ -UgN~+| -AN/- -CjN^/p_N"NC^N/-tCXNN`NqNq -RNv+@ -AN/- -CjN^NxC^N/-tCXNN`NqNq+|+|AUpNAg@NNNHmTNr*.*4"_NHPHmHA퀐""_NHpCXNHpCXNL8N&<x*<N>L8NAN֚CA 0ANֆ&<x*<NެJBfNANֆ&<x*<NAN֚`ANֆ&<x*<NJBfNANֆ&<x*<NDAN֚`+|ANֆ&<x*<NެJBfN+|ANֆ&<x*<NެJBfN:+| -NANnNANnNDAN֚ANֆ&<x*<NެJBfNNfM 1:HPANֆ&<x*<N>&<x*<NNvN"_NC퀢NN$NfM HPANֆ&<x*<NNvN"_NHPNf:1"_NC퀢N <3332<4$<&<x*<N>ANnNAN֚pCXNvNANnNN+@pCXNHpCXNL8NvNANnNN+@pCXNHpCXNL8NvNANnNN+@pCXNHpCXNHpCXNL8NL8N>NHNL8N>&<x*< NN+@pCXNHpCXNHpCXNL8NL8N>NHNL8N>&<x*< NN+@pCXNANnNN+@pNpNprN -;DNv"<N -E"<N <"<@N -NH -NL8NvNNNpCXNHpCXNHpCXNL8NvNL8NެJBfN -DNv"<@N -"<@NpNpNprN <"<@N -N -@/ -"NpCXNANnNNNF <"<N <"<@N -NF - / - DNv"N -@DNv? -? -@DNv? -?~N -@? -? -@? -?~NN@pCXNHpCXNHpCXNL8NvNL8NަJBfN -DNv"<@N -"<@NpNpNprN <"<@N -N -@/ -"NpCXNANnNNNF < ("<N <"<@N -NF - / - DNv"N -@? -? -@? -?~N -@DNv? -? -@DNv? -?~NN@ -DNv"<@N -"<@NpNpNprN <"<@N -N <"<@N -N -NH -NL8NvN&<x*<NN"<@N -NNp rNA퀢NNN+| -AN -]fN/- -C^NN:CXNN`NqNqpCXNHpCXNHpCXNHpCXNHpCXNHpCXNHpCXNHANANANN)| +| -AN -]gNlNClNNC퀺NN -ڰnN/- -CjN^/p N"NC^NN/- -CjN^/p_N"NC^NNClNNC퀺N -CXNzNޔJBfN -CXN&<8HpCXNL8N>&<x*<N&<x*<NNv&<x*<NDL8NެJBfNXNr3Federwinkel darf zul. Spannung nicht berschreiten.C퀄NHxpCXN&<.z8<*<NHNL8NHpCXNL8NHpCXNL8NHpCXNL8N>HpCXNL8N>CXNpCXNzN\JBfN2HxpCXN&<.z8<*<NHNL8NHpCXNL8NHpCXNL8NHpCXNL8N>HpCXNL8N>CXNNf Federwinkel max. wird angezeigt.C퀄NNFHxtCXNNNpCXNzNަpJBgp/pCXNzNަpJBgp/pCXNzNަpJBgp/pCXNzNަpJBgp$fNtHx pCXNHpCXN&<x*<NL8NHpCXNL8N&<.G8<*< NDHpCXNL8N>HpCXNL8N>HpCXNL8N>CXNNHx tCXNNNLABNLANf A:Nf/-HxANp0,+@Fp0,+@J -:9@A "-> @0 -:NH -BNL8NH <r$<L8NN9@ ->NH -NL8NH <r$<L8NN9@p9@A r @0A r @0 <NrA 2 "-F @0A 4 "-J @0pNDpNB -:NHp0,NL8NNC큈NHx ->NHp0,NL8NNC큈NHxpC큈N^NH -BNL8NH <r$<L8NNC큈NHxpC큈N^NH -NL8NH <r$<L8NNC큈NHx -:C큈NHx ->C큈NHx -:NH -BNL8NH <r$<L8NNC큈NHx ->NH -NL8NH <r$<L8NNC큈NHxpC큈NB -~\NvC|NA|HPC큂A큈 N^NN ANf ANf -9@A "- @0phNԄNN ANNf -N9@pkNԄNN831419728114158072777582987138312518503246SCHKLFDR Schenkelfeder rechnen------------------------123456Datei Daten laden... L Daten speichern... S Daten drucken P------------------------ Ende... EZeichnung Monitor M Drucker DWerkstoff Stahl naturhart Stahl rostfrei Bronce federhartOptionen Hilfe Help----------------------- einfgen Insert berschreiben Insert----------------------- Daten lschen... C999701702106.2837017030-1.2124.61185133203.1423.49185133113.1424.35385207201.933.14285207111.933.1429999999999999996510075100652337523365101751016523275232651006513375100751336520765233752077523366100661337410074133662076623374207742335010514010545137140137100170113170752331402337026514026545134451709513495170110170110233702337026899999999999965105-7-3-7375105737-345137737-395137-7-3-73110170-37371102333-7-3-723252578070265-7-4-739999999999999999993757377737973715737177575196977699769177Tastenbelegung--------------Delete Zeichen im Cursor lschen Return ein Eingabefeld vorwrtsBackspace Zeichen links vom Cursor lschen Tab ein Eingabefeld vorwrtsClr Home Eingabefeld ab Cursor lschen  ein Eingabefeld vorwrtsEsc ganzes Eingabefeld lschen  ein Eingabefeld zurckUndo Eingabefeld-nderung zurck nehmen Cursor ein Zeichen nach rechts Insert berschreib-Einfgemodus Cursor ein Zeichen nach links Help Diese KuzanleitungMen-Auswahl------------Datei Daten laden... L Federdaten von Disk laden Daten speichern... S Federdaten auf Disk speichern Daten drucken P Federdaten drucken Ende... E Programm beendenZeichnung Monitor M Zeichnung auf Monitor ausgeben Drucker D Zeichnung auf Drucker ausgebenWerkstoff einige Metalle Standard-Materialdaten bernehmenOptionen Hilfe Help Aufruf dieser Kurzanleitung einfgen Insert Umschalten auf Einfgemodus berschreiben Insert Umschalten auf berschreibmodus Daten lschen... C alle Daten vom Bildschirm lschenDie Berechnung wird jeweils beim Verlassen eines genderten Feldes, sowiebeim Anklicken eines Datei-, Zeichnung- oder Werkstoff-Menpunktes ausgelst.Alle Zahlen werden auf 2 Kommastellen gerundet.Im untersten Feld werden Hinweise angezeigt. Im kleinen Feld rechts untensieht man, ob der berschreib- oder Einfgemodus eingestellt ist.Die Felder, sowie die einzelnen Stellen in den Feldern, mit zustzlichgepunkteter Umrandung knnen auch mit der Maus angewhlt werden.A: und B: in der Datei-Auswahlbox nur anwhlen, wenn das gewnschteLaufwerk betriebsbereit und auch eine Diskette eingelegt ist.999Anzahl WindungenDrahtdurchmessermmWindungsdurchmessermmHebell{ngemmFederwinkelGradWerkstoffE-ModulN/mm2zul. SpannungN/mm2FederkraftNAnzahl WindungenDraht-mmWindungs-mmHebellngemmFederwinkelWerkstoffE-ModulN/mmzul. SpannungN/mmFederkraftNtGph *  *ZR` |xN4*2VB Z2 *  Th &$h $v 60 6" V  >$  >  @@ tn $@DD86hXl:P |J .8|$ִ J".f DLH<$*  nnp (HP,TTVFV .,Z*Xƌ:222222J<DBSchenkelfederdaten D:\SFDR.DAT 02.06.1990 08:53:06 -------------------------------------------------- Anzahl Windungen 5 Draht- 1.2 mm Windungs- 10 mm Hebellnge 9 mm Federwinkel 30 Werkstoff Bronce federhart E-Modul 110000 N/mm zul. Spannung 230 N/mm Federkraft 4.15 N Schnapphakendaten D:\SHAK.DAT 02.06.1990 08:57:48 -------------------------------------------------- Lnge 15 mm Breite 4 mm Dicke 2 mm Fgewinkel 35 Scherlnge 5 mm Schnapphhe 2.5 mm Werkstoff PP E-Modul 1300 N/mm zul. Dehnung 6 % Reibungszahl 0.3 Zugfestigkeit 31 N/mm Fgekraft 9.75 N Scherkraft max. 310 N Zugkraft max. 248 N GfABASIC$|,|}.}~8~>~P~\~~~MIFBI1I2I3I4I5I8I9I10I11DATEIMODPFADCURSPEZALTITEMPTEMPALTBILDMELDCHARFILEALZEIMNAMERANDKJHALFFAFENIJX1Y1X2Y2X3Y3SZEBHBBKHHANDM5M6M7M8TBTHTXTYXYBX0Y0FLGKLICKTASTFEHLERTEXEYTLEILSZSMFDBDMFDBP SPEZ_TASTEN ALT_TASTEN MENUEDATENSCHNAPPERZEICHNUNGFELDPOSITIONEN FEHLERENDEHILFESCHNAPPERPRINT SCHNAPPERSAVEWERTBILDCURSORMELDUNGBILD_ERSTELLENFELDWAHL MENUEAUSWAHL TASTENDRUCKREDELBAKESCUNDOABAUFLIINSHELPCLRLADSPEIDR_DATENDEMONDR_BILDDELDATXPA6PA12PPPOMPCABSPA6GPA12GPPGPPTPOMGPCGABSGRECHNENAUTORFELDTEXTFILEWAHL LESEFEHLER AUFBEREITEN SCHREIBFEHLERAUSGABEZEICHNENFEHLT DRUCKZEICHENEINGABEPRUEFUNG SCHNAPPHOEHE FUEGEKRAFT SCHERKRAFTZUGKRAFT WIND_UPDATEWIND_GETREDRAWFSNAPHAK.BAS Version 1.00 28.3.90 HR FSchnapphaken berechnen GFA-Basic V2.0 Atari 1040 STF F==================================================================  X F=@)!*Zu wenig RAM-Speicher|fr dieses Programm.!!ABBRUCH!FqF F   F@)!*Dieses Programm luft|nur in Schwarzweiss.!!ABBRUCH!FqF F Allgemeine Variablen -------------------- $Al$ !Alerttext S<Alt$ !Menwahlstring fr Alternatetaste HFBild$ !Bildspeicher fr: Get 0,19,639,399,Bild$ "ESHAK.DATF Dateibezeichnung 2File$ !Rckgabe von Fileselect *I$,J$,K$ !Arbeitsvariablen .EF Hilfe- oder Autorbild wurde angezeigt e$Lei$ !Menleiste $Meld$ !Meldungen 6EFberschreib- und Einfgemodus ("" oder "E") ,Pfad$ !Laufwerk und Pfad  ,Al% !Alert-Rckgabewert 6E% !zum Suchen des Eingabefeldes 4H%,I%,J%,K% !Lauf- und Arbeitsvariablen  *I !Arbeitsvariable s 8Fehler! !Pfad oder Datei nicht gefunden :Tast! !Flag zum Tastaturpuffer lschen 9 Eingabevariablen ---------------- EFFeldzhler .E``FhAnzahl Ein- und Ausgabefelder f$E00FhAnzahl Eingabefelder EFZeichenzhler :S% !Textspalte bei Anwahl durch Maus :Z% !Textzeile bei Anwahl durch Maus  (Char$ !Eingabezeichen Cur$ !Cursor >Spez$ !Steuertastenstring fr Eingabefelder <Temp$ !Temporrer Eingabetext fr "Undo" e<Tempalt$ !fr Test, ob Eingabefeld verndert  * F Anzahl Zeichen je Feld "* F Zeichenspalte Feldanfang "* F Zeichenzeile des Feldes &* FZahlenwerte fr Berechnungen * F Eingabezahlen r T$(1) !Lnge n T$(2) !Breite T$(3) !Dicke $T$(4) !Fgewinkel $T$(5) !Scherlnge &T$(6) !Schnapphhe $T$(7) !Werkstoff e"T$(8) !E-Modul f&T$(9) !zul. Dehnung &T$(10) !Reibungszahl (T$(11) !Zugfestigkeit i$T$(12) !Fgekraft e*T$(13) !Scherkraft max. g(T$(14) !Zugkraft max. . Zeichnungs-Variablen -------------------- .M$ !Masstab fr Ausgabe f<Zei$ !Zeichnungsspeicher fr auf Drucker  @Bb% !Zeichnungsspeicher-Bildbreite in Bytes .Bh% !Bildhhe in Punkten i>X1%,X2%,X3% !Read-Variable fr Monitorbildaufbau e>Y1%,Y2%,Y3% !Read-Variable fr Monitorbildaufbau e 6Fb !Bildpunkt-Berechnungsfaktor d.M !Masstab zum Rechnen s @* ! F Koordinaten der Zeichnungs-Eckpunkte  Gem-Variablen ------------- * F Ausgangsbild * F Zielbild ** Fzu bertragendes Rechteck r  E  Fz sendendes Bild  EHHFz E Fz  EF E FBildschirmadresse l$ E  Fs empfangendes Bild h EHHFs E Fs  EF(Hand% !Fensterhndel k0M5%,M6%,M7%,M8% !Koordinaten fr Redraw *Tx%,Ty%,Tb%,Th% !Redraw-Rechtecke  2aktuelles Laufwerk und Pfad ermitteln ermitteln 2----------------------------------------------- $EH Faktuelles Laufwerk :EB : Ffaktuelles Laufwerk und Pfad  Cursor erzeugen --------------- Eb` bp b FEGFEb F F Programm-Steuertasten --------------------- EF-RFFEG`F-QF.EB F Scan-Codes fr Eingabesteuerung r F |F,83,14,1,97,28,114,15,80,72,77,75,82,98,71  EF1RFFEG`F5QF(EB F Scan-Codes fr Menauswahl F |F38,31,25,18,50,32,46  Men-Aufbau ----------- (EF Anzahl Men-Eintrge bestimmen RFFQF Z999F4FZF * F Men-Daten einlesen RF EGFQ F FG |F"SNAPHAK, Schnapphaken rechnen i------------------------ c1,2,3,4,5,6   8Datei, Daten laden... L, Daten speichern... S 4 Daten drucken P,------------------------ . Ende... E   *Zeichnung, Monitor M , Drucker D -  >Werkstoff, PA 6, PA 12, PP,-----------, POM, PC, ABS t  *verstrkt, PA 6 GV 30 , PA 12 GV 30 -, PP GV 30, PP TV 40, POM GV 30  PC GV 30, ABS GV 30   "Optionen, Hilfe Help 2-----------------------, einfgen Insert , berschreiben Insert ,2-----------------------, Daten lschen... C ,   999   FMenleiste darstellen a*,!Fiberschreibmodus markieren  Fenster-Aufbau e-------------- e\!F-keine Titelzeile ]!F-keine Infozeile !Fkeine Randelemente !Fx e@!Fey t!  Fe Breite  !?Fe Hhe ^F Bild-Aufbau ----------- ZF(!!!@FTITEL h4/ ! !h!Schnapphaken berechnenF $!!!FRFFQ!! ! F Zyy F.!! ! FSchnapperkanten und Masslinien F! >4!C!H! !a FeWinkel-Masslinie  %!!F0&p! FSchnapper-Austrittsflche n&4!4F FQ!! ! ! ! F Zyy FF !! ! F Masspfeile  G ! G!FeF   |FFSCHNAPPERKANTEN horizontale Linien e840,73,60,73,60,150,75,150,40,210,52,210,55,225,65,225 840,74,60,74,59,151,75,151,40,209,52,209,55,224,65,224 vertikale Linien 1F40,73,40,210,60,73,60,150,75,150,75,180,75,88,75,148,90,165,90,195 F41,73,41,210,59,73,59,150,74,150,74,180,74,88,74,148,89,165,89,195 schrge Linien ,F60,73,75,88,75,150,90,165,75,180,90,195,53,210,68,225,40,210,55,225 F60,74,75,89,75,151,90,166,75,179,90,194,52,210,67,225,41,210,56,225 F60,75,75,90,75,152,90,167,75,181,90,196,53,209,68,224,42,210,57,225 53,210,75,180,68,225,90,195 52,210,74,180,67,225,89,195 51,210,73,180,66,225,88,195  SCHNAPPER-AUSTRITTSFLCHE 440,91,14,65,14,65,70,65,70,65,100,95,100,95,75,95  MASS- UND HILFSLINIEN horizontal I<60,73,140,73,75,105,140,105,40,137,140,137,75,150,118,150 0109,169,140,169,53,201,140,201,60,233,140,233 vertikal 4.60,150,60,236,75,180,75,236,115,73,115,201 3 schrg 660,91,75,106,90,195,109,169 999,999,999,999  MASSPFEILE ,horizontal ,F40,137,7,3,7,-3,60,137,-7,-3,-7,3,60,233,6,3,6,-3,76,233,-7,-3,-7,3 vertikal 3J115,73,-3,7,3,7,115,150,3,-7,-3,-7,115,150,-3,7,3,7,115,201,3,-7,-3,-7 schrg und Winkel H60,91,5,9,5,2,75,106,-5,-9,-5,-2,90,170,5,4,6,-2,104,176,-3,-5,-6,-1 7999,999,999,999,999,999  "$!!!FEIN- UND AUSGABEBOXEN 2%!!F"EtG}HF9> !!!@@F9Bezeichnungsboxen links , F!"EtG]HF98!!..!@@F9Eingabeboxen links F!6!}!.! F9Ausgabebox links  <6!t!^!*F9Bezeichnungsbox rechts "E:G}HF9>6!! !@@F9Bezeichnungsboxen rechts F! 8^!t! !*F9Eingabebox rechts r"E:G=HF9: !! !@@F9Eingabeboxen rechts c F!8 !]! !uF9Ausgabebox rechts s8 !}! ! F9Ausgabebox rechts s 20!.! !:F9Meldungsbox e< !.! !:F9berschreib-Einfgebox  &(!!!PFFELDER BESCHRIFTEN @Y!  "Lnge l[mm]"FsBezeichnungen links 5*Y!` "Breite b[mm]"Fs*Y! "Dicke h[mm]"Fs(Y!0 "Fgewinkel []"F*Y!P "Scherlnge c[mm]"Fs*Y!p "Schnapphhe f[mm]"Fs(Y! "Fgekraft F[N]"F 8Y<!  " Werkstoff"F Bezeichnungen rechts .Y<!` "E-Modul E [ ]"Fg(!!!@F'~!L!NF-$|!R! !RF '|!d!mmF' !b!2FF(!!!PF.Y<! "zul. Dehnung [%]"Fg(!!!@F't!!zulF.(!!!PF(Y<!0 "Reibungszahl "F .Y<!P "Zugfestigkeit [ ]"Fg(!!!@F't!P!zFu'~!F!NFu$|!I! !IF '|!R!mmF' !Q!2FF(!!!PF.Y<!p "Scherkraft max. F [N]"Fg(!!!@F'{!p!sFc(!!!PF.Y<! "Zugkraft max. F [N]"Fg(!!!@F'{!!zFu(!!!PF RFEGFQ ! ! F E !_ Fr FEGFrQ ! ! F E FF F|F037,5,7,37,7,7,37,9,7,37,11,7,37,13,7,37,15,7 n(57,5,19,69,7,7,69,9,7,69,11,7,69,13,7 37,17,7,69,15,7,69,17,7  MF7MF7,MF7Meldung anzeigen und Bild speichern 5 Men-Funktionen --------------- vLFv!!LF-vLFvLF Hauptprogramm ============= |F=FFF= Unterprogramme ============== +F=(Ausgabe der Feder-Werte am Bildschirm (------------------------------------- (!!!PF-EGFY ! " "F- F E F E F6Y!8 ""F berschreib-Einfge-Anzeige t.F +FTastendruck auswerten --------------------- F-EFF!! F!F sVF F^F EFMeldung lschen 6Y`!8 " "FhMeldungsfeld lschen  EB``  F _F  E-F FEC 0123456789.@ FF@ #P  #`7 xx7 ~~ F E FE IF! E?@@ F FE F ! E FMF  FEF F F@ E9Nur Ziffern 0 bis 9, Punkt und Steuertasten sind erlaubt.F EC@B`  Fu F EFFMeldung lschen 0wL! ! ! ! ! ! ! ! !!!!!F. F! P F!< E5Diese Alternate-Tastenkombination hat keine Funktion.F EC@B`  Fn F EFF Meldung lschen wL!!!!!!F F F P FF: E3Diese Control-Tastenkombination hat keine Funktion.F F FEF F,MFiMeldung anzeigen und Bild speichern e Fd2`! @!FnTastaturpuffer lschen  FEF F.F +FMen angeklickt --------------- F-EFF!! F!F sVF F^F!! F EFMeldung lschen n6Y`!8 " "FaMeldungsfeld lschen  8Fa"w L!!!!!Fg F4 ( FWerkstoff-Auswahl e  EF hF$w (L!!!!!!F F pF$w pL !!!"!#!$!%!&F FEFM'FMFMF F    F%*w  L!!!!!!!!F F FM(F F FF,MFMeldung anzeigen und Bild speichern e F F.F +FEingabefeld angeklickt n---------------------- n F-EFF!! F!F sVF F^F EFMeldung lschen n6Y`!8 " "FdMeldungsfeld lschen : E#   Fl Textzeile ermitteln F2E#00  F Textspalte ermitteln  8 Fx MFberschreib-Einfgemodus  FD E=Nur Eingabefelder (Rahmen gepunktet) knnen angewhlt werden.F"EGF Eingabefeld suchen (     Fa  F F  EFM'FEMFE FM)FF FEFFneue Feld-Nummer E F E F FEC@_ Fe FF E F FEu  ! FM)F MF EFFOR-Schleife beenden  EF F FO F,MFMeldung anzeigen und Bild speichern a F.F2............................................... ,+F.Meldung ausgeben und Bild speichern . Fn F$Y`!8 " "B`` "Fe F !! !G! F F.F2+++++++++++++++++++++++++++++++++++++++++++++++ Eingabe-Routinen +================ +"+F=Zeichen im Cursor lschen + ?@@ _FEG F! E?@@ Fl F! E_FM)FMF F E FSignal ausgeben l F.F "+ F Zeichen vor Cursor lschen Fe5FEG F! E?@@ F F! E_FM)FMF F E FSignal ausgeben  F.F "+ F ganzes Eingabefeld lschen  : _FnE !_ FEFM)FMF F E FSignal ausgeben  F.F *+ F Eingabefeld-nderung zurcknehmen +  F- E FEFM)FMF F0 E(Eingabefeld wurde noch nicht verndert !F+ F.F + FEein Eingabefeld vorwrts F  EFM'FEMFE FM)FF F F4F FEF F E F E FEFMF.F + Fein Eingabefeld zurck F  EFM'FEMFE FM)FF F FgEF F5FF F E F E FEFMF.F &+FCursor ein Zeichen nach rechts   ?@@ _Fh4F F E FSignal ausgeben  FM)F MF .F &+F Cursor ein Zeichen nach links Fr5FM)FMF F E FSignal ausgeben  F.F &+F Eingabefeld ab Cursor lschen  ?@@ _FEG F! E_F FM)FMF F E FSignal ausgeben s F.F2............................................... +)F.ganzes Feld ausgeben Y ! ""F.F +FCursor anzeigen e@#  !  !!@@F1.F2+++++++++++++++++++++++++++++++++++++++++++++++ Men-Routinen ============= +F=$Nur fr Mennummern ohne Funktion .F +(FfProgrammversions-Angabe t!FMen abschalten - sVF *EFnchster Klick = Men einschalten +%!F $!!!F0 !8!k!Fa Gesamtbox +*#!>!i!Fa Rand $$!@!i!Fa,!~!2! Fa OK-Box $!!1! Fa$!!1! Fa%!F.0!\!c!Fa Titelbox !F$0!\!@!dFa$0!!@!Fa$c!\![!dFa$c!![!Fa!F8YH! "==> S C H N A P P H A K E N <=="F@:Y@!  "!Schnapperberechnung Version 1.00"F:Y@!0 "!in GFA-Basic 28.3.1990 HR"F*Y`!P "Autor: Hans Roth"F Y!` "Weid 13"FH*Y!p "CH-6313 Menzingen"FFY ! "OK"F%!F.F +FDaten von Disk laden TY`!8 ";Schnapperdaten laden, Bildschirmdaten werden berschrieben."FFEFM*F F  F.Y`!8 "Schnapperdaten laden,"Fi8& Bildschirmdaten werden berschrieben." "Fa7I!M!FtvL+F! =`M!F C@Schnapphakendaten Fs =`M!F =`M!FEGF =`M!FG E?@$@ F E F"? @@   F ! E_F5F F! F EFM'F F*Y`!8 " "B` "F.<Y`!8 """ sind keine Schnapphakendaten."FEF F8MFFvF F*Y`!8 " "B` "Fc.Y`!8 """ nicht gefunden."FEF F F F8MFMF Y`!8 " "Fc.F *+FSchnapperdaten auf Disk speichern eM,F4Y`!8 "Schnapperdaten abspeichern."FnFEFM*F F" C @\\ C @* C @? F*Y`!8 " "B` "FeEF C @\\ FE"\\" F F C @* FE"*" F F C @? FE"?" F FBY`!8 ""&im Pfad oder Dateinamen nicht erlaubt."F EF F F>Y`!8 "Schnapperdaten abspeichern."  "Ft  F& E|existiert bereits. F" E | |Datei berschreiben ?F )! !! NEIN | JA !F F EF F F F vL-FM.! F vF F F*Y`!8 " "B` "Fe@Y`!8 "'Der Name zum Speichern der Daten fehlt."F"EF F F F F8 Y`!8 " "Fz.F +FFederdaten drucken FE!F { Fr F FDrucker bereit? M,F2Y`!8 "Schnapperdaten ausdrucken."F;BX "R"B "FM.LST:! Fn;BX "R"B "F Y`!8 " "Fd F EDrucker ist nicht bereit.F F.F +FDProgramm beenden < E4Schnapperdaten werden NICHT|automatisch gespeichert.F. )! !! ZURCK | OK !F FZ[FqF F.F2............................................... +F.Zeichnung auf Monitor .D       F!FMen abschalten sVF *EFnchster Klick = Men einschalten M,FM/F $!!!F,!'!2!2Fa OK-Box $!'!1!2Fa$!(!1!1Fa(!!!PFY !0 "OK"F F@M0 ! ! ! !  !! !! FF F.F +FZeichnung auf Drucker D       F X @F FE!F { F F FDrucker bereit? M,FM/F(!!!@Fr@'!9!)Bitte warten, Zeichnung wird ausgedruckt.F(!!!PFR%  ! !%  !/!F Bildhhe in Bildpunkten ,E7?@@ 7?@@ FAnzahl Bytes auf Bildbreite E#6 @ Fi Ausdrucken &; ""B  "BP "F.;BX "A"B "F LF auf 8/72 Zoll E`G@@F EFEEIFE?@@ F F@;  "FLinker Rand u;BX "*"B  "Fu.;B%  "B% "F;"B  "BP "F F>;BX "2"B  "BP "FLF zurck auf 1/6 Zoll !! F F EDrucker ist nicht bereit.F F Fr* E#Zu wenig Speicher fr Bildausdruck.F F Fu@M0 ! ! ! !  !! !! F F.F2............................................... +F.Werkstoff PA 6 ."` EPA 6_______________F E1275___F E4______F  E0.4____F0 E75_____F.F +FWerkstoff PA 12 "` EPA 12______________F E1130___F E6______F  E0.35___F0 E50_____F.F +FWerkstoff PP F"` EPP_________________F E1300___F E6______F  E0.3____F0 E31_____F.F +FWerkstoff POM "` EPOM________________F E2950___F E8______F  E0.3____F0 E68_____F.F +FWerkstoff PC F"` EPC_________________F E2500___F E3______F  E0.38___F0 E60_____F.F +FWerkstoff ABS "` EABS________________F E2400___F E3______F  E0.5____F0 E47_____F.F + FWerkstoff PA 6 GV 30 "` EPA 6 GV 30________F E3430___F E1.5____F  E0.35___F0 E130____F.F +!FWerkstoff PA 12 GV 30 _"` EPA 12 GV 30_______F E3240___F E2______F  E0.3____F0 E100____F.F +"FWerkstoff PP GV 30 "` EPP GV 30__________F E5600___F E2______F  E0.25___F0 E70_____F.F +#FWerkstoff PP TV 40 "` EPP TV 40__________F E2950___F E2______F  E0.4____F0 E28_____F.F +$FWerkstoff POM GV 30 _"` EPOM GV 30_________F E8830___F E1.5____F  E0.3____F0 E95_____F.F +%FWerkstoff PC GV 30 "` EPC GV 30__________F E10000__F E1______F  E0.2____F0 E120____F.F +&FWerkstoff ABS GV 30 _"` EABS GV 30_________F E7000___F E1______F  E0.4____F0 E69_____F.F2............................................... +F.Kurze Anleitung .!FMen abschalten . sVF *EFnchster Klick = Men einschalten .^FYFEFe(!!!@FlRFFQF Z999F'@!!Fc0!FF|FFTastenbelegung c-------------- cRDelete Zeichen im Cursor lschen Return ein Eingabefeld vorwrts FRBackspace Zeichen links vom Cursor lschen Tab ein Eingabefeld vorwrts FRClr Home Eingabefeld ab Cursor lschen  ein Eingabefeld vorwrts FPEsc ganzes Eingabefeld lschen  ein Eingabefeld zurck s0Undo Eingabefeld-nderung zurck nehmen R Cursor ein Zeichen nach rechts Insert berschreib-Einfgemodus FL Cursor ein Zeichen nach links Help Diese Kuzanleitung m Men-Auswahl r------------ rDDatei Daten laden... L Schnapperdaten von Disk laden lH Daten speichern... S Schnapperdaten auf Disk speichern u< Daten drucken P Schnapperdaten drucken 6 Ende... E Programm beenden  DZeichnung Monitor M Zeichnung auf Monitor ausgeben D Drucker D Zeichnung auf Drucker ausgeben  HWerkstoff einige Kunststoffe Standard-Materialdaten bernehmen uHverstrkt mit Fllmaterial Standard-Materialdaten bernehmen u BOptionen Hilfe Help Aufruf dieser Kurzanleitung eB einfgen Insert Umschalten auf Einfgemodus eF berschreiben Insert Umschalten auf berschreibmodus nH Daten lschen... C alle Daten vom Bildschirm lschen u N"Die Berechnung wird jeweils beim Verlassen eines genderten Feldes, sowie" R"beim Anklicken eines Datei-, Zeichnung- oder Werkstoff-Menpunktes ausgelst." 4"Alle Zahlen werden auf 2 Kommastellen gerundet." N"Im untersten Feld werden Hinweise angezeigt. Im kleinen Feld rechts unten" F"sieht man, ob der berschreib- oder Einfgemodus eingestellt ist." L"Die Felder, sowie die einzelnen Stellen in den Feldern, mit zustzlich" nF"gepunkteter Umrandung knnen auch mit der Maus angewhlt werden." l  T"A: und B: in der Datei-Auswahlbox nur anwhlen, wenn das gewnschte" N"Laufwerk betriebsbereit und auch eine Diskette eingelegt ist." 999 (!!!@Fe,'@!)!ACHTUNG AbsturzgefahrF $!!!F,!'!2!2Fr OK-Box $!'!1!2Fr$!(!1!1Fr(!!!PFY !0 "OK"F.F .+Fberschreib- und Einfgemodus wechseln * # ,,  (FsEEF,!F(!F FEF(!F,!F F6Y!8 ""F berschreib-Einfge-Anzeige D !! !G! F.F .+Falle Daten auf dem Bildschirm lschen A> E6Die Schnapperdaten|auf dem Bildschirm|werden gelscht.Fe )! !!ABBRUCH| OK !FB FBEGF E !_ FK  EF FEGFK E FK  EF FEFEFMFMF F.F2............................................... +*F.f*.*!! F. FEC @: F FF$E: :\F Laufwerk ausfiltern .EFF F>EBHH  :\Feaktuelles Laufwerk einsetzen EF F E6 F&? @@ \F Pfadende suchen e5F?F FE? @@ F  FE= @6  F  F.F ++F (Datei hat zu wenig oder falsche Daten vF8MFe*Y`!8 " "B` "Fs2Y`!8 " hat zu wenig Daten."FEGF E !_ F  EF FEGF E ! F  EF FEFEFMFMF,MFMeldung anzeigen und Bild speichern aFF.F +-FvF8MF Y`!8 " "Fd6 PFi F, E$Kann nicht speichern, Disk ist voll.F F Fs$ E ist schreibgeschtzt.Fo F Fs( E Dateipfad  nicht gefunden.F. F Fa. E'Disk-Schreibfehler (evtl. Disk defekt).F F,MFDMeldung anzeigen und Bild speichern )FF.F +,F F  EF E FM'FMFMF !! !G! F F.F +.! F 7O!M!F M!"Schnapphakendaten "Fs LST:FMFRF F M!"FTRF FM!"~" "8FaM!"H!- FEGF `LST:FF M1 F F E F E F F?@@ _FF! E F5FF Q!F&M!"" 6 "" "F F"MF8MF |F<L{nge,mm,Breite,mm,Dicke,mm,F}gewinkel,Grad,Scherl{nge,mm :Schnapph|he,mm,Werkstoff,,E-Modul,N/mm2,zul. Dehnung,% m$Reibungszahl,,Zugfestigkeit,N/mm2 0F}gekraft,N,Scherkraft max.,N,Zugkraft max.,N  |Fk:Lnge,mm,Breite,mm,Dicke,mm,Fgewinkel,,Scherlnge,mm m:Schnapphhe,mm,Werkstoff,,E-Modul,N/mm,zul. Dehnung,% m$Reibungszahl,,Zugfestigkeit,N/mm 0Fgekraft,N,Scherkraft max.,N,Zugkraft max.,N  .F +1 F,h!!!!FfE@[\]{|}~FFEݎFFEFEG6 FfE? @@ Ff EC@ F F 0EBX RB BXX RB F FB EC@ F F E?@@ F F?  F ~FE F F EF F F F F E6 F.F +/F^FYFMasstab berechnen :Eup# @ !H#   FEF FE F F FE FFE F  FEF F FEF FEF FF2EM 1:A% FMasstab als String  F 2EM A% :1FMasstab als String  F 0EK3336FBildberechnungsfaktor n& E # @ F& E #   F E F E F` E  F ` E F @ E`` F@ E  F (  E@@ @@ Fk  E@@ F  E F" E@   F  E F E  F<  @ @@ +O4 F E` F6 E @ +O4 F F8 E  +O4   Fg E@@ F F $!!!FEGF8 ! ! ! FZeichnung auf Bildschirm F *Y !  ""FMasstab anzeigen .F 2+++++++++++++++++++++++++++++++++++++++++++++++ Berechnungs-Routinen +==================== ++'F=EGF  `F=* E5 F=Strings in Werte wandeln  F FM2FM3FM4FM5FM6FRFEGF `FrQ!F FF F E ! Fs F E !_ Fs FQ!F  F< E% H HF+auf 0.01 runden g  rF6 EWerte ungltig:  ist mehr als 7-stellig.F Fe4 ! EA FWerte in Strings zurckwandeln  F F F FE.F2............................................... Schnapper-Berechnungen .---------------------- .+2F-^M0 ! ! ! !  ! ! !  !00 FD Eu !3G F fr Tangensberechnung < 90 Grad !2  +O4 }hrFh, E,}p   O4F< E4Fgewinkel auf 90 minus Reibungswinkel verkleinert.F0 F.F +3FF"   FB @@     H# =qF: E2Schnapphhe darf zul. Dehnung nicht berschreiten.F#4@ E    HF# F @@ F4@ E    HF#( E Schnapphhe max. wird angezeigt.F  F @@   Fe4 E-Schnapphhe nur noch theoretisch interresant.F F Fc@ EF F.F +4FR    @@    FP@ E@@         Fb@ E@@ #  +O4 #  +O4 F F@ EF F.F +5F(   00 F0P E   0 F PP @@ F6 E/ACHTUNG! Schnapper wird beim Fgen abgeschert.F F FCP EF F.F +6F"  00 F"` E  00 F F` EF F.F2............................................... "+0!!!!!! ! ! F. EF F E  lF F F E  bF F F E  hF F F E  F F F E  cF F F E  EF F F E  F F F E  F F F E  F F F EBrauche noch :  F F.F 2+++++++++++++++++++++++++++++++++++++++++++++++ "GEM-Routinen aus GFA-Basic-Buch ============ a+F= F=  FGE FE  FE@ FE` FE FM7 FM8!0 F(4@ FBreite oder Hhe <>0 E3 3@ FE3 3 FEv3 ! FEv3 ! FEu! FEu! F F FM9!!! F F FM8!@ FF!M7 F F F.F +9!!! FM8! F E3 F!E3 F!F !F!F@!F!F!F@!F tF! F!!F!F%!F E3 F E3 F E F E F EF  EF@ EF` EF EF Ez @F ! ! F.F +8! F!F !F sPFF.F +7" FF!"FF sVFF.F`R` Efv*oM)j m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALNHz2?< NA\pdAxr0XQ)K\NN|HRXjvN ,`NuJrBjNuHz?<&NN\NۖCAp$L Qp Nق9lrBlJpNNقpMNق9@pdAr 0Q0tr N9lN Nupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8Nݺ6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?Nݺ<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuN.J@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNu <ڢ2,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNupmrtA)HA)HNpN:HHPN4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@N:"2)IN(* 9AJA)H@@[000][ˈN. Evz`* [g" ]g |g QSz` zQSpQ][ɈN. Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NقHNu*( IN.A)H @depd ae zb QB DN.A\)H @ e` ae zb \gQBA BhNpZNقA BP"`#|}NA"H0,tg"Hg \f`A\fS A EN:AR@H`2QNur|<N. @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N$Y QfFL~)AH|"@$Y Qf,L~)AH|$X PfLH9HNpNA R4RB`A Gf //o~4$_<F"OSG !H@Ь 2 Q)@RHRprN"H2@N .0H@N .YdN HAN 2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNuApNA0pNNB$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0NuN.J@gpNu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)N:$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNuNVHNuNUHNuNSHNuJhg N.NNu Ihd"*N$E8*$R`"QˈN. ENu2)A IJAfr4(Ae*RBBc0*SA?N$E$R`QˈN. ENup`(* 0(iN$E 4R`Q$D 4R`QˈN. DN. ENua NuN. IHPg"B  g &gNJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATANLpN?<*NATANp N"H2X@N :0H@?N :AAN 2p <0N`QNu0g< @g4:8(g* b.&NSD`Q0$C$RQLjN. CNuN.pNp N?Hl?<GNAPA"HJf SNr ,* N.& ( EN. C"Sj|AcRGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NȼldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"NNN:JfNup#`NN, HHHNup`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4NقP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNlHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.02| Copyright 1986/1987|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehlertHB9BL@@TAt )l g.A( f hgSASAgRB`9BJNقSAgNut)l g,vARC( g9CJ9|Lp!,Nق FPeNutVA JpBQA/)H )l gBlJpNقB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Nقp>L8Ntp*HEAJ0?C bL000H?A/.)HpNقLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN0`@k Ap0(/.NuA Nu)G RHA)A v9@ zNup)@JphNقLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, Nق"F QNu?S@k&8L &LeBLe,C`(A? fHa)_ 2TNuBlJ`l *bl ,bH .ND0S@k@>A PC/~. 0(JgRJ)@g1@CJ2fP2HP" &" *pdNق0,r W1@AJ00 piNق9|L@NpiNق _CL""pe`9| LpiNق9|LphNقLtH 2H/`SBSC@AHH/jP 6P/^P0<rtNpapapapaL/jr`S@k6@ A 9PJg8BPpfNقpgNق9| LphNق9@JfdBlJa\Q 6BB 2`NuS@k @ A 9pJg a$Bp`NuHS&I. FV 7p&N9l/h8,:,L/d4,pĴ@cS@9@p4,rŴAcBSA9Ar`8pJ, 7fnJ/^k0 Eg$2,/h pg  qfH9A/hpjNٸ` S C H N A P P H A K E N <==Np rNN!Schnapperberechnung Version 1.004Np rNN!in GFA-Basic 28.3.1990 HR4Np rNN~Autor: Hans RothNpr%NNWeid 13!Npr%NNCH-6313 Menzingen4Npr(NN~OKpNpNNNlNprNN;Schnapperdaten laden, Bildschirmdaten werden berschrieben.BmVANHmA "_NTJBfNh*HmTAH"_NN~NzJBfNgNprNNSchnapperdaten laden,aNN~& Bildschirmdaten werden berschrieben.pNvpINHPHmTAH"_Nr"_N)| NqNNlpCXNHpCXNHpCXNHpCXNHpCXNHpCXNHp CXNHp CXNHp CXNHANHxpCXNH Nf A:Nf/-HxA@Np0,+@Fp0,+@J -:9@A "-> @0 -:NH -BNL8NhH <r$<L8NdN9@ ->NH -NL8NhH <r$<L8NdN9@p9@A r @0A r @0 <NA 2 "-F @0A 4 "-J @0pNpNB -:NHp0,NL8NdNC큔NHx ->NHp0,NL8NdNC큔NHxpC큔N^NH -BNL8NhH <r$<L8NdNC큔NHxpC큔N^NH -NL8NhH <r$<L8NdNC큔NHx -:C큔NHx ->C큔NHx -:NH -BNL8NhH <r$<L8NdNC큔NHx ->NH -NL8NhH <r$<L8NdNC큔NHxpC큔NB -~\NvC큈NA큈HPC큎A큔 N^NNl ANf ANf -9@A "- @0phNNNl ANNf -N9@pkNNNl831419728114158072777582987138312518503246SNAPHAK Schnapphaken rechnen------------------------123456Datei Daten laden... L Daten speichern... S Daten drucken P------------------------ Ende... EZeichnung Monitor M Drucker DWerkstoff PA 6 PA 12 PP----------- POM PC ABSverstrkt PA 6 GV 30 PA 12 GV 30 PP GV 30 PP TV 40 POM GV 30 PC GV 30 ABS GV 30Optionen Hilfe Help----------------------- einfgen Insert berschreiben Insert----------------------- Daten lschen... C999407360736015075150402105221055225652254074607459151751514020952209552246522440734021060736015075150751807588751489016590195417341210597359150741507418074887414889165891956073758875150901657518090195532106822540210552256074758975151901667517990194522106722541210562256075759075152901677518190196532096822442210572255321075180682259019552210741806722589195512107318066225881954091146514657065706510095100957595607314073751051401054013714013775150118150109169140169532011402016023314023360150602367518075236115731152016091751069019510916999999999999940137737-360137-7-3-7360233636-376233-7-3-7311573-37371151503-7-3-7115150-37371152013-7-3-76091595275106-5-9-5-290170546-2104176-3-5-6-199999999999999999937573777379737117371373715757519697769976911769137371776915769177Tastenbelegung--------------Delete Zeichen im Cursor lschen Return ein Eingabefeld vorwrtsBackspace Zeichen links vom Cursor lschen Tab ein Eingabefeld vorwrtsClr Home Eingabefeld ab Cursor lschen  ein Eingabefeld vorwrtsEsc ganzes Eingabefeld lschen  ein Eingabefeld zurckUndo Eingabefeld-nderung zurck nehmen Cursor ein Zeichen nach rechts Insert berschreib-Einfgemodus Cursor ein Zeichen nach links Help Diese KuzanleitungMen-Auswahl------------Datei Daten laden... L Schnapperdaten von Disk laden Daten speichern... S Schnapperdaten auf Disk speichern Daten drucken P Schnapperdaten drucken Ende... E Programm beendenZeichnung Monitor M Zeichnung auf Monitor ausgeben Drucker D Zeichnung auf Drucker ausgebenWerkstoff einige Kunststoffe Standard-Materialdaten bernehmenverstrkt mit Fllmaterial Standard-Materialdaten bernehmenOptionen Hilfe Help Aufruf dieser Kurzanleitung einfgen Insert Umschalten auf Einfgemodus berschreiben Insert Umschalten auf berschreibmodus Daten lschen... C alle Daten vom Bildschirm lschenDie Berechnung wird jeweils beim Verlassen eines genderten Feldes, sowiebeim Anklicken eines Datei-, Zeichnung- oder Werkstoff-Menpunktes ausgelst.Alle Zahlen werden auf 2 Kommastellen gerundet.Im untersten Feld werden Hinweise angezeigt. Im kleinen Feld rechts untensieht man, ob der berschreib- oder Einfgemodus eingestellt ist.Die Felder, sowie die einzelnen Stellen in den Feldern, mit zustzlichgepunkteter Umrandung knnen auch mit der Maus angewhlt werden.A: und B: in der Datei-Auswahlbox nur anwhlen, wenn das gewnschteLaufwerk betriebsbereit und auch eine Diskette eingelegt ist.999L{ngemmBreitemmDickemmF}gewinkelGradScherl{ngemmSchnapph|hemmWerkstoffE-ModulN/mm2zul. Dehnung%ReibungszahlZugfestigkeitN/mm2F}gekraftNScherkraft max.NZugkraft max.NLngemmBreitemmDickemmFgewinkelScherlngemmSchnapphhemmWerkstoffE-ModulN/mmzul. Dehnung%ReibungszahlZugfestigkeitN/mmFgekraftNScherkraft max.NZugkraft max.NAhX  *ZR` |xN4*2V$22 Z2 *  Th &$h $v 60 6" V  >$  >  @@ rn $<DD86hTh:  .8&$Ҵ J".f DLH<$*  nnp (HP,TT>, .,Z|XBprDpH222222222J<DBGfABASIC x  ~.~~v&JJnVVVVMIFBI1I2I3I4I7I8I9I10DATEIMODPFADCURSPEZALTITEMPTEMPALTBILDMELDCHARFILEALZEIMNAMERANDKJHALFFAFENIJX1Y1X2Y2X3Y3SZEBHBBKHHANDM5M6M7M8TBTHTXTYXYBX0Y0FLGKLICKTASTFEHLERTEXEYTLEILSZSMFDBDMFDBP SPEZ_TASTEN ALT_TASTEN MENUEDATENSCHNAPPERZEICHNUNGFELDPOSITIONEN FEHLERENDEHILFESCHNAPPERPRINT SCHNAPPERSAVEWERTBILDCURSORMELDUNGBILD_ERSTELLENFELDWAHL MENUEAUSWAHL TASTENDRUCKREDELBAKESCUNDOABAUFLIINSHELPCLRLADSPEIDR_DATENDEMONDR_BILDDELDATXPA6PA12PPPOMPCABSPA6GPA12GPPGPPTPOMGPCGABSGRECHNENAUTORFELDTEXTFILEWAHL LESEFEHLER AUFBEREITEN SCHREIBFEHLERAUSGABEZEICHNENFEHLT DRUCKZEICHENEINGABEPRUEFUNGSCHNAPPDURCHMESSER FUEGEKRAFT SCHERKRAFTZUGKRAFT WIND_UPDATEWIND_GETREDRAWFSNAPRING.BAS Version 1.00 28.3.90 HR FSchnappring berechnen GFA-Basic V2.0 Atari 1040 STF F==================================================================  X F=@)!*Zu wenig RAM-Speicher|fr dieses Programm.!!ABBRUCH!FqF F   F@)!*Dieses Programm luft|nur in Schwarzweiss.!!ABBRUCH!FqF F Allgemeine Variablen -------------------- $Al$ !Alerttext S<Alt$ !Menwahlstring fr Alternatetaste HFBild$ !Bildspeicher fr: Get 0,19,639,399,Bild$ "E SRING.DATFDateibezeichnung 2File$ !Rckgabe von Fileselect *I$,J$,K$ !Arbeitsvariablen .EF Hilfe- oder Autorbild wurde angezeigt e$Lei$ !Menleiste $Meld$ !Meldungen 6EFberschreib- und Einfgemodus ("" oder "E") ,Pfad$ !Laufwerk und Pfad  ,Al% !Alert-Rckgabewert 6E% !zum Suchen des Eingabefeldes 4H%,I%,J%,K% !Lauf- und Arbeitsvariablen  *I !Arbeitsvariable s 8Fehler! !Pfad oder Datei nicht gefunden :Tast! !Flag zum Tastaturpuffer lschen 9 Eingabevariablen ---------------- EFFeldzhler .EPPFhAnzahl Ein- und Ausgabefelder f$E FhAnzahl Eingabefelder EFZeichenzhler :S% !Textspalte bei Anwahl durch Maus :Z% !Textzeile bei Anwahl durch Maus  (Char$ !Eingabezeichen Cur$ !Cursor >Spez$ !Steuertastenstring fr Eingabefelder <Temp$ !Temporrer Eingabetext fr "Undo" e<Tempalt$ !fr Test, ob Eingabefeld verndert  * F Anzahl Zeichen je Feld "* F Zeichenspalte Feldanfang "* F Zeichenzeile des Feldes &* FZahlenwerte fr Berechnungen * F Eingabezahlen r,T$(1) !Aussendurchmesser b*T$(2) !Innendurchmesser $T$(3) !Fgewinkel $T$(4) !Scherlnge ,T$(5) !Schnappdurchmesser $T$(6) !Werkstoff c"T$(7) !E-Modul f&T$(8) !zul. Dehnung &T$(9) !Reibungszahl (T$(10) !Zugfestigkeit s$T$(11) !Fgekraft e*T$(12) !Scherkraft max. e(T$(13) !Zugkraft max. . Zeichnungs-Variablen -------------------- .M$ !Masstab fr Ausgabe f<Zei$ !Zeichnungsspeicher fr auf Drucker  @Bb% !Zeichnungsspeicher-Bildbreite in Bytes .Bh% !Bildhhe in Punkten i>X1%,X2%,X3% !Read-Variable fr Monitorbildaufbau e>Y1%,Y2%,Y3% !Read-Variable fr Monitorbildaufbau e 6Fb !Bildpunkt-Berechnungsfaktor d.M !Masstab zum Rechnen s @* ! F Koordinaten der Zeichnungs-Eckpunkte  Gem-Variablen ------------- * F Ausgangsbild * F Zielbild ** Fzu bertragendes Rechteck r  E  Fz sendendes Bild  EHHFz E Fz  EF E FBildschirmadresse l$ E  Fs empfangendes Bild h EHHFs E Fs  EF(Hand% !Fensterhndel k0M5%,M6%,M7%,M8% !Koordinaten fr Redraw *Tx%,Ty%,Tb%,Th% !Redraw-Rechtecke  2aktuelles Laufwerk und Pfad ermitteln ermitteln 2----------------------------------------------- $EH Faktuelles Laufwerk :EB : Ffaktuelles Laufwerk und Pfad  Cursor erzeugen --------------- Eb` bp b FEGFEb F F Programm-Steuertasten --------------------- EF-RFFEG`F-QF.EB F Scan-Codes fr Eingabesteuerung r F |F,83,14,1,97,28,114,15,80,72,77,75,82,98,71  EF1RFFEG`F5QF(EB F Scan-Codes fr Menauswahl F |F38,31,25,18,50,32,46  Men-Aufbau ----------- (EF Anzahl Men-Eintrge bestimmen RFFQF Z999F4FZF * F Men-Daten einlesen RF EGFQ F FG |F"SNAPRING, Schnappring rechnen i------------------------ c1,2,3,4,5,6   8Datei, Daten laden... L, Daten speichern... S 4 Daten drucken P,------------------------ . Ende... E   *Zeichnung, Monitor M , Drucker D -  >Werkstoff, PA 6, PA 12, PP,-----------, POM, PC, ABS t  *verstrkt, PA 6 GV 30 , PA 12 GV 30 -, PP GV 30, PP TV 40, POM GV 30  PC GV 30, ABS GV 30   "Optionen, Hilfe Help 2-----------------------, einfgen Insert , berschreiben Insert ,2-----------------------, Daten lschen... C ,   999   FMenleiste darstellen a*,!Fiberschreibmodus markieren  Fenster-Aufbau e-------------- e\!F-keine Titelzeile ]!F-keine Infozeile !Fkeine Randelemente !Fx e@!Fey t!  Fe Breite  !?Fe Hhe ^F Bild-Aufbau ----------- ZF(!!!@FTITEL h4/ ! !h!Schnappring berechnenF  $!!!FRFFQ!! ! F Zyy F.!! ! FSchnapperkanten und Masslinien F! 8 !>!p!!aFsWinkel-Masslinie  %!!F$&\!HFSchrafur oben &\!\F$&\!NFSchrafur unten &\!XF FQ!! ! ! ! F Zyy FF !! ! F Masspfeile  G ! G!FeF  |FFSCHNAPPERKANTEN horizontale Linien e*25,95,75,95,27,105,50,105,50,115,60,115 *25,96,75,96,27,104,50,104,50,114,61,114 ,50,201,60,201,23,211,50,211,25,221,75,221 ,50,202,61,202,23,212,50,212,25,220,75,220 vertikale Linien 2,50,104,50,212,60,115,60,201,75,95,75,221 ,51,104,51,212,59,115,59,201,74,95,74,221 schrge Linien 960,115,75,100,60,201,75,216 59,115,75,99,59,201,75,217 Bruchlinie 9,25,95,27,105,27,105,24,120,24,120,28,140 :28,140,26,160,26,160,29,180,29,180,23,211,23,211,25,221  MASS- UND HILFSLINIEN horizontal IJ120,73,140,73,75,95,123,95,50,105,140,105,60,115,93,115,110,137,140,137 >50,169,140,169,60,201,140,201,50,211,103,211,75,221,123,221 vertikal 0L70,166,70,211,90,115,90,201,100,105,100,211,110,95,110,137,120,73,120,221 schrg 775,100,103,72 Mittellinie H22,158,36,158,38,158,40,158,42,158,66,158,68,158,70,158,72,158,78,158 999,999,999,999  MASSPFEILE ,horizontal ,$50,169,7,3,7,-3,70,169,-7,-3,-7,3 vertikal 3$90,115,-3,7,3,7,90,201,3,-7,-3,-7 &100,105,-3,7,3,7,100,211,3,-7,-3,-7 &120,95,-3,7,3,7,120,221,3,-7,-3,-7 Winkel -$101,74,0,7,7,4,110,95,2,-8,-5,-5 7999,999,999,999,999,999  "$!!!FEIN- UND AUSGABEBOXEN 5%!!F"EtG=HF7> !!!@@F7Bezeichnungsboxen links 1 F!< !}!! F7Bezeichnungsbox links s"EtG=HF78!!..!@@F7Eingabeboxen links F!6!}!.! F7Ausgabebox links  <6!t!^!*F7Bezeichnungsbox rechts "E:G}HF7>6!! !@@F7Bezeichnungsboxen rechts F! 8^!t! !*F7Eingabebox rechts r"E:G=HF7: !! !@@F7Eingabeboxen rechts c F!8 !]! !uF7Ausgabebox rechts s8 !}! ! F7Ausgabebox rechts s 20!.! !:F7Meldungsbox e< !.! !:F7berschreib-Einfgebox  &(!!!PFFELDER BESCHRIFTEN @Y!  "Aussen- D[mm]"FsBezeichnungen links 8*Y!` "Innen- d[mm]"Fs(Y! "Fgewinkel []"F*Y!0 "Scherlnge c[mm]"Fs*Y!P "Schnapp- f[mm]"Fs(Y! "Fgekraft F[N]"F 8Y<!  " Werkstoff"F Bezeichnungen rechts .Y<!` "E-Modul E [ ]"Fg(!!!@F'~!L!NF-$|!R! !RF '|!d!mmF' !b!2FF(!!!PF.Y<! "zul. Dehnung [%]"Fg(!!!@F't!!zulF.(!!!PF(Y<!0 "Reibungszahl "F .Y<!P "Zugfestigkeit [ ]"Fg(!!!@F't!P!zFu'~!F!NFu$|!I! !IF '|!R!mmF' !Q!2FF(!!!PF.Y<!p "Scherkraft max. F [N]"Fg(!!!@F'{!p!sFc(!!!PF.Y<! "Zugkraft max. F [N]"Fg(!!!@F'{!!zFu(!!!PF RFEGFQ ! ! F E !_ Fr FEGFrQ ! ! F E FF F|F(37,5,7,37,7,7,37,9,7,37,11,7,37,13,7 (57,5,19,69,7,7,69,9,7,69,11,7,69,13,7 37,17,7,69,15,7,69,17,7  MF7MF7,MF7Meldung anzeigen und Bild speichern " Men-Funktionen --------------- vLFv!!LF-vLFvLF Hauptprogramm ============= |F=FFF= Unterprogramme ============== +F=(Ausgabe der Feder-Werte am Bildschirm (------------------------------------- (!!!PF-EGFY ! " "F- F E F E F6Y!8 ""F berschreib-Einfge-Anzeige t.F +FTastendruck auswerten --------------------- F-EFF!! F!F sVF F^F EFMeldung lschen 6Y`!8 " "FhMeldungsfeld lschen  EB``  F _F  E-F FEC 0123456789.@ FF@ #P  #@7 xx7 ~~ F E FE IF! E?@@ F FE F ! E FMF  FEF F F@ E9Nur Ziffern 0 bis 9, Punkt und Steuertasten sind erlaubt.F EC@B`  Fu F EFFMeldung lschen 0wL! ! ! ! ! ! ! ! !!!!!F. F! P F!< E5Diese Alternate-Tastenkombination hat keine Funktion.F EC@B`  Fn F EFF Meldung lschen wL!!!!!!F F F P FF: E3Diese Control-Tastenkombination hat keine Funktion.F F FEF F,MFiMeldung anzeigen und Bild speichern e Fd2`! @!FnTastaturpuffer lschen  FEF F.F +FMen angeklickt --------------- F-EFF!! F!F sVF F^F!! F EFMeldung lschen n6Y`!8 " "FaMeldungsfeld lschen  8Fa"w L!!!!!Fg F4 ( FWerkstoff-Auswahl e  EF hF$w (L!!!!!!F F pF$w pL !!!"!#!$!%!&F FEFM'FMFMF F    F%*w  L!!!!!!!!F F FM(F F FF,MFMeldung anzeigen und Bild speichern e F F.F +FEingabefeld angeklickt n---------------------- n F-EFF!! F!F sVF F^F EFMeldung lschen n6Y`!8 " "FdMeldungsfeld lschen : E#   Fl Textzeile ermitteln F2E#00  F Textspalte ermitteln  8 Fx MFberschreib-Einfgemodus  FD E=Nur Eingabefelder (Rahmen gepunktet) knnen angewhlt werden.F"EGF Eingabefeld suchen (     Fa  F F  EFM'FEMFE FM)FF FEFFneue Feld-Nummer E F E F FEC@_ Fe FF E F FEu  ! FM)F MF EFFOR-Schleife beenden  EF F FO F,MFMeldung anzeigen und Bild speichern a F.F2............................................... ,+F.Meldung ausgeben und Bild speichern . Fn F$Y`!8 " "B`` "Fe F !! !G! F F.F2+++++++++++++++++++++++++++++++++++++++++++++++ Eingabe-Routinen +================ +"+F=Zeichen im Cursor lschen + ?@@ _FEG F! E?@@ Fl F! E_FM)FMF F E FSignal ausgeben l F.F "+ F Zeichen vor Cursor lschen Fe5FEG F! E?@@ F F! E_FM)FMF F E FSignal ausgeben  F.F "+ F ganzes Eingabefeld lschen  : _FnE !_ FEFM)FMF F E FSignal ausgeben  F.F *+ F Eingabefeld-nderung zurcknehmen +  F- E FEFM)FMF F0 E(Eingabefeld wurde noch nicht verndert !F+ F.F + FEein Eingabefeld vorwrts F  EFM'FEMFE FM)FF F F4F FEF F E F E FEFMF.F + Fein Eingabefeld zurck F  EFM'FEMFE FM)FF F FgEF F5FF F E F E FEFMF.F &+FCursor ein Zeichen nach rechts   ?@@ _Fh4F F E FSignal ausgeben  FM)F MF .F &+F Cursor ein Zeichen nach links Fr5FM)FMF F E FSignal ausgeben  F.F &+F Eingabefeld ab Cursor lschen  ?@@ _FEG F! E_F FM)FMF F E FSignal ausgeben s F.F2............................................... +)F.ganzes Feld ausgeben Y ! ""F.F +FCursor anzeigen e@#  !  !!@@F5.F2+++++++++++++++++++++++++++++++++++++++++++++++ Men-Routinen ============= +F=$Nur fr Mennummern ohne Funktion .F +(FfProgrammversions-Angabe t!FMen abschalten - sVF *EFnchster Klick = Men einschalten +%!F $!!!F0 !8!k!Fa Gesamtbox +*#!>!i!Fa Rand $$!@!i!Fa,!~!2! Fa OK-Box $!!1! Fa$!!1! Fa%!F.0!\!c!Fa Titelbox !F$0!\!@!dFa$0!!@!Fa$c!\![!dFa$c!![!Fa!F8YH! "===> S C H N A P P R I N G <==="F@:Y@!  "!Schnapperberechnung Version 1.00"F:Y@!0 "!in GFA-Basic 28.3.1990 HR"F*Y`!P "Autor: Hans Roth"F Y!` "Weid 13"FH*Y!p "CH-6313 Menzingen"FFY ! "OK"F%!F.F +FDaten von Disk laden 0Y`!8 "Schnappringdaten laden,"F.,& Bildschirmdaten werden berschrieben."FFEFM*Fl F  F0Y`!8 "Schnappringdaten laden,"F.8& Bildschirmdaten werden berschrieben."@ "F"vL+Fd7I!M!Ft =`M!F C@Schnappringdaten F =`M!F =`M!FEGF =`M!FG E?@$@ F E F"? @@   F ! E_F5F F! F EFM'F F*Y`!8 " "B` "F.<Y`!8 """ sind keine Schnappringdaten."FEF F8MFFvF F*Y`!8 " "B` "Fc.Y`!8 """ nicht gefunden."FEF F F F8MFMF Y`!8 " "Fc.F ,+FSchnappringdaten auf Disk speichern .M,F6Y`!8 "Schnappringdaten abspeichern."FtFEFM*F F" C @\\ C @* C @? F*Y`!8 " "B` "FsEF C @\\ FE"\\" F F C @* FE"*" F F C @? FE"?" F FBY`!8 ""&im Pfad oder Dateinamen nicht erlaubt."F5EF F F@Y`!8 "Schnappringdaten abspeichern." "F"  F& E|existiert bereits. F" E | |Datei berschreiben ?F )! !! NEIN | JA !F F EF F F F vL-FM.! F vF F F*Y`!8 " "B` "Fs@Y`!8 "'Der Name zum Speichern der Daten fehlt."F"EF F F F F8 Y`!8 " "Fz.F +FFederdaten drucken FE!F { Fr F FDrucker bereit? M,F4Y`!8 "Schnappringdaten ausdrucken."F;BX "R"B "FM.LST:! Fn;BX "R"B "F Y`!8 " "Fn F EDrucker ist nicht bereit.F F.F +FDProgramm beenden > E6Schnappringdaten werden NICHT|automatisch gespeichert.FF )! !! ZURCK | OK !F FZ[FqF F.F2............................................... +F.Zeichnung auf Monitor .6     F!FMen abschalten sVF *EFnchster Klick = Men einschalten M,FM/F $!!!F,!'!2!2Fa OK-Box $!'!1!2Fa$!(!1!1Fa(!!!PFY !0 "OK"F F4M0 ! ! ! !! !! Ft F.F +FZeichnung auf Drucker 6     F X @F FE!F { F F FDrucker bereit? M,FM/F(!!!@Fr@'!9!)Bitte warten, Zeichnung wird ausgedruckt.F"(!!!PFh%#``    ! !%#    !/!F Bildhhe in Bildpunkten ,E7?@@ 7?@@ FAnzahl Bytes auf Bildbreite E#6 @ Fi Ausdrucken &; ""B  "BP "F.;BX "A"B "F LF auf 8/72 Zoll E`G@@F EFEEIFE?@@ F F@;  "FLinker Rand u;BX "*"B  "Fu.;B%  "B% "F;"B  "BP "F F>;BX "2"B  "BP "FLF zurck auf 1/6 Zoll !! F F EDrucker ist nicht bereit.F F Fr* E#Zu wenig Speicher fr Bildausdruck.F F Fu4M0 ! ! ! !! !! F6 F.F2............................................... +F.Werkstoff PA 6 ."@ EPA 6_______________F` E1275___F E4______F E0.4____F  E75_____F.F +FWerkstoff PA 12 "@ EPA 12______________F` E1130___F E6______F E0.35___F  E50_____F.F +FWerkstoff PP F"@ EPP_________________F` E1300___F E6______F E0.3____F  E31_____F.F +FWerkstoff POM "@ EPOM________________F` E2950___F E8______F E0.3____F  E68_____F.F +FWerkstoff PC F"@ EPC_________________F` E2500___F E3______F E0.38___F  E60_____F.F +FWerkstoff ABS "@ EABS________________F` E2400___F E3______F E0.5____F  E47_____F.F + FWerkstoff PA 6 GV 30 "@ EPA 6 GV 30________F` E3430___F E1.5____F E0.35___F  E130____F.F +!FWerkstoff PA 12 GV 30 _"@ EPA 12 GV 30_______F` E3240___F E2______F E0.3____F  E100____F.F +"FWerkstoff PP GV 30 "@ EPP GV 30__________F` E5600___F E2______F E0.25___F  E70_____F.F +#FWerkstoff PP TV 40 "@ EPP TV 40__________F` E2950___F E2______F E0.4____F  E28_____F.F +$FWerkstoff POM GV 30 _"@ EPOM GV 30_________F` E8830___F E1.5____F E0.3____F  E95_____F.F +%FWerkstoff PC GV 30 "@ EPC GV 30__________F` E10000__F E1______F E0.2____F  E120____F.F +&FWerkstoff ABS GV 30 _"@ EABS GV 30_________F` E7000___F E1______F E0.4____F  E69_____F.F2............................................... +F.Kurze Anleitung .!FMen abschalten . sVF *EFnchster Klick = Men einschalten .^FYFEFe(!!!@FlRFFQF Z999F'@!!Fc0!FF|FFTastenbelegung c-------------- cRDelete Zeichen im Cursor lschen Return ein Eingabefeld vorwrts RBackspace Zeichen links vom Cursor lschen Tab ein Eingabefeld vorwrts RClr Home Eingabefeld ab Cursor lschen  ein Eingabefeld vorwrts PEsc ganzes Eingabefeld lschen  ein Eingabefeld zurck s0Undo Eingabefeld-nderung zurck nehmen R Cursor ein Zeichen nach rechts Insert berschreib-Einfgemodus L Cursor ein Zeichen nach links Help Diese Kuzanleitung m Men-Auswahl r------------ rFDatei Daten laden... L Schnappringdaten von Disk laden iJ Daten speichern... S Schnappringdaten auf Disk speichern g> Daten drucken P Schnappringdaten drucken 6 Ende... E Programm beenden  DZeichnung Monitor M Zeichnung auf Monitor ausgeben D Drucker D Zeichnung auf Drucker ausgeben  HWerkstoff einige Kunststoffe Standard-Materialdaten bernehmen nHverstrkt mit Fllmaterial Standard-Materialdaten bernehmen n BOptionen Hilfe Help Aufruf dieser Kurzanleitung eB einfgen Insert Umschalten auf Einfgemodus eF berschreiben Insert Umschalten auf berschreibmodus nH Daten lschen... C alle Daten vom Bildschirm lschen n N"Die Berechnung wird jeweils beim Verlassen eines genderten Feldes, sowie" R"beim Anklicken eines Datei-, Zeichnung- oder Werkstoff-Menpunktes ausgelst." 4"Alle Zahlen werden auf 2 Kommastellen gerundet." N"Im untersten Feld werden Hinweise angezeigt. Im kleinen Feld rechts unten" F"sieht man, ob der berschreib- oder Einfgemodus eingestellt ist." L"Die Felder, sowie die einzelnen Stellen in den Feldern, mit zustzlich" nF"gepunkteter Umrandung knnen auch mit der Maus angewhlt werden." l  T"A: und B: in der Datei-Auswahlbox nur anwhlen, wenn das gewnschte" N"Laufwerk betriebsbereit und auch eine Diskette eingelegt ist." 999 (!!!@Fe,'@!)!ACHTUNG AbsturzgefahrF $!!!F,!'!2!2Fr OK-Box $!'!1!2Fr$!(!1!1Fr(!!!PFY !0 "OK"F.F .+Fberschreib- und Einfgemodus wechseln * # ,,  (FsEEF,!F(!F FEF(!F,!F F6Y!8 ""F berschreib-Einfge-Anzeige D !! !G! F.F .+Falle Daten auf dem Bildschirm lschen A@ E8Die Schnappringdaten|auf dem Bildschirm|werden gelscht.Fn )! !!ABBRUCH| OK !Fm FBEGF E !_ FK  EF FEGFK E FK  EF FEFEFMFMF F.F2............................................... +*F.f*.*!! F. FEC @: F FF$E: :\F Laufwerk ausfiltern .EFF F>EBHH  :\Feaktuelles Laufwerk einsetzen EF F E6 F&? @@ \F Pfadende suchen e5F?F FE? @@ F  FE= @6  F  F.F ++F (Datei hat zu wenig oder falsche Daten vF8MFe" E hat zu wenig Daten.FtEGF E !_ Fi  EF FEGFi E ! Fi  EF FEFEFMFMF,MFMeldung anzeigen und Bild speichern LFF.F +-FvF8MF Y`!8 " "Fd6 PFi F, E$Kann nicht speichern, Disk ist voll.F F Fs$ E ist schreibgeschtzt.Fo F Fs( E Dateipfad  nicht gefunden.F. F Fa. E'Disk-Schreibfehler (evtl. Disk defekt).F F,MFDMeldung anzeigen und Bild speichern )FF.F +,F F  EF E FM'FMFMF !! !G! F F.F +.! F 7O!M!FM!"Schnappringdaten "F LST:FMFRF F M!"FTRF FM!"~" "8FiM!"H!- FEGF @LST:FF M1 F F E F E F F?@@ _FF! E F5FF Q!F&M!"" 6 "" "F F"MF8MF |FJAussendurchmesser,mm,Innendurchmesser,mm,F}gewinkel,Grad,Scherl{nge,mm s@Schnappdurchmesser,mm,Werkstoff,,E-Modul,N/mm2,zul. Dehnung,% $Reibungszahl,,Zugfestigkeit,N/mm2 0F}gekraft,N,Scherkraft max.,N,Zugkraft max.,N  |Fk4Aussen-,mm,Innen-,mm,Fgewinkel,,Scherlnge,mm 8Schnapp-,mm,Werkstoff,,E-Modul,N/mm,zul. Dehnung,% e$Reibungszahl,,Zugfestigkeit,N/mm 0Fgekraft,N,Scherkraft max.,N,Zugkraft max.,N  .F +1 F,h!!!!FfE@[\]{|}~FFEݎFFEFEG6 FfE? @@ Ff EC@ F F 0EBX RB BXX RB F FB EC@ F F E?@@ F F?  F ~FE F F EF F F F F E6 F.F +/F^FYFMasstab berechnen @Eup# @#  !H FeEF FE FF FE FFE F  FEF F FEF FEF FF2EM 1:A% FMasstab als String  F 2EM A% :1FMasstab als String  F 0EK3336FBildberechnungsfaktor n8 E # @#  F E F E F E F` E F` E F(@ E @#  F@ E`` F  E@@ F  E  F" E@  F  E F  E F E  F@  @ #   +O4 F E` F: E #   +O4 F F2 E  +O4  F E@@ F F$$!!!FZeichnung auf Bildschirm EGFa0 !  ! !  F0 !  ! !  F FEG@HF, !  ! !  F F Z `` ! ` G`` ! ` @F"Bruchlinie ^ G` ! ` G` ! ` FL G` ! ` @G` ! ` F$!!!FD``  ! !  ! F Mittellinie %!!F(& !  FSchnittflchen & !  F *Y !  ""FMasstab anzeigen .F 2+++++++++++++++++++++++++++++++++++++++++++++++ Berechnungs-Routinen +==================== ++'F=EGF  @F=* E5 F=Strings in Werte wandeln  F FM2FM3FM4FM5FM6FRFEGF @@FrQ!F FF F E ! Fs F E !_ Fs FQ!F  F< E% H HF+auf 0.01 runden e  rF6 EWerte ungltig:  ist mehr als 7-stellig.F Fe4 ! EA FWerte in Strings zurckwandeln  F F F FE.F2............................................... Schnapper-Berechnungen .---------------------- .+2F-RM0 ! ! ! !`` ! ! !  F  F E # =qF . E'Aussen- muss grsser als Innen- sein.F F8 Eu !3G F fr Tangensberechnung < 90 Grad !,  +O4 }hrF<& E,}p  O4F< E4Fgewinkel auf 90 minus Reibungswinkel verkleinert.F F.F +3FF  F   F  E # =qFs0 E(Schnapp- muss kleiner als Innen- sein.Fr F<   #  H # =qF*  E   HF8 E0Schnapp- darf zul. Dehnung nicht berschreiten.Fq F Fc  EF F.F +4FR    ``    F60 E#     `` FL0 E00 ##     #      F,0 E00 O  FV0 E00 # +O4 # +O4 F F0 EF F.F +5F(    F2@ EO    F @@ 00 F6 E/ACHTUNG! Schnapper wird beim Fgen abgeschert.F F FC@ EF F.F +6F"    F8P EO#      F FP EF F.F2............................................... +0!!!!!! ! F EF F E  DF F F E  dF F F E  F F F E  cF F F E  EF F F E  F F F E  F F F E  F F F EBrauche noch :  F F.F 2+++++++++++++++++++++++++++++++++++++++++++++++ "GEM-Routinen aus GFA-Basic-Buch ============ a+F= F=  FGE FE  FE@ FE` FE FM7 FM8!0 F(4@ FBreite oder Hhe <>0 E3 3@ FE3 3 FEv3 ! FEv3 ! FEu! FEu! F F FM9!!! F F FM8!@ FF!M7 F F F.F +9!!! FM8! F E3 F!E3 F!F !F!F@!F!F!F@!F tF! F!!F!F%!F E3 F E3 F E F E F EF  EF@ EF` EF EF Ez @F ! ! F.F +8! F!F !F sPFF.F +7" FF!"FF sVFF.F`JR` Efv*oM)r m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALNHz2?< NA\pdAxr0XQ)K\NN|BLRdpN ,`NuJrBjNuHz?<&NN\NێCAp$L Qp Nz9lrBlJpNNzpMNz9@pdAr 0Q0tr N9lN Nupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8Nݲ6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?Nݲ<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuN.J@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNu <ڢ2,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNupmrtA)HA)HNpN:HHPN4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@N:"2)IN(* 9AJA)H@@[000][ˈN. Evz`* [g" ]g |g QSz` zQSpQ][ɈN. Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NzHNu*( IN.A)H @depd ae zb QB DN.A\)H @ e` ae zb \gQBA BhNpZNzA BP"`#|}NA"H0,tg"Hg \f`A\fS A EN:AR@H`2QNur|<N. @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N$Y QfFL~)AH|"@$Y Qf,L~)AH|$X PfLH9HNpNA R4RB`A Gf //o~4$_<F"OSG !H@Ь 2 Q)@RHRprN"H2@N .0H@N .YdN HAN 2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNuApNA0pNN:$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0NuN.J@gpNu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)N:$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNuNVHNuNUHNuNSHNuJhg N.NNu Ihd"*N$E8*$R`"QˈN. ENu2)A IJAfr4(Ae*RBBc0*SA?N$E$R`QˈN. ENup`(* 0(iN$E 4R`Q$D 4R`QˈN. DN. ENua NuN. IHPg"B  g &gNJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATANLpN?<*NATANp N"H2X@N :0H@?N :AAN 2p <0N`QNu0g< @g4:8(g* b.&NSD`Q0$C$RQLjN. CNuN.pNp N?Hl?<GNAPA"HJf SNr ,* N.& ( EN. C"Sj|AcRGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NȼldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"NNN:JfNup#`NN, HHHNup`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4NzP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNdHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.02| Copyright 1986/1987|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehlertHB9BL@@TAt )l g.A( f hgSASAgRB`9BJNzSAgNut)l g,vARC( g9CJ9|Lp!,Nz FPeNutNA JpBQA/)H )l gBlJpNzB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Nzp>L8Ntp*HEAJ0?C bL000H?A/.)HpNzLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN0`@k Ap0(/.NuA Nu)G RHA)A v9@ zNup)@JphNzLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, Nz"F QNu?S@k&8L &LeBLe,C`(A? fHa)_ 2TNuBlJ`l *bl ,bH .ND0S@k@>A PC/~. 0(JgRJ)@g1@CJ2fP2HP" &" *pdNz0,r W1@AJ00 piNz9|L@NpiNz _CL""pe`9| LpiNz9|LphNzLtH 2H/`SBSC@AHH/jP 6P/^P0<rtNpapapapaL/jr`S@k6@ A 9PJg8BPpfNzpgNz9| LphNz9@JfdBlJa\Q 6BB 2`NuS@k @ A 9pJg a$Bp`NuHS&I. FV 7p&N9l/h8,:,L/d4,pĴ@cS@9@p4,rŴAcBSA9Ar`8pJ, 7fnJ/^k0 Eg$2,/h pg  qfH9A/hpjNٰ`mFmoLp NYgNTNr3Diese Control-Tastenkombination hat keine Funktion.nC~Nt;BNA[N4-NNzJBfNT?<?<NNX\Nvr @ BmNNNd4-LNzJBfNUBmLN@Bg?<Ax"N.p9@pkNNXpNBg?<Ax"N.A C~NNprNpCNxNlpNN&<x*<NpJBgp/pNN&<x*<NpJBgp$fNUpNNH <r$<L8N\N~N|b:~b~bb:LpNN&<x*<NpJBgp/pNN&<x*<NpJBgp$fNW*/-AlCdNpN mNVpNNH <r$<L8N\N~NuFuvrb:wwx4pN nNWpNNH <r$<L8N\N~Nxy`yz{"{|N+|ATNAOZNAaNpNN&<x*<NpJBgp/pNN&<x*<NpJBgp$fNWpNNH <r$<L8N\N~ Ndhl>b:mFb:b:mopNSgNWAbBN4-LNzzNPJBfNXN@A[NNNd4-LNzJBfNXVBmLN@Bg?<Ax"N.p9@pkNN[pNA C~NNprNpCNxNlp NN&<x*<N`vNN+@p NNH <r$<L8N\vNN+@ -N&<x*<NPpJBgp/ -N&<x*<NPpJBgp$fNY S C H N A P P R I N G <===Np rNN!Schnapperberechnung Version 1.004Np rNN!in GFA-Basic 28.3.1990 HR4Np rNN~Autor: Hans RothNpr%NNWeid 13!Npr%NNCH-6313 Menzingen4Npr(NN~OKpNpNNNdNprNNSchnappringdaten laden,4NN~& Bildschirmdaten werden berschrieben.BmPANHmA "_NTJBfNhLHmNAB"_NN~NzJBfNgNprNNSchnappringdaten laden,4NN~& Bildschirmdaten werden berschrieben.pNv)| NrDrucker ist nicht bereit.4C~NNNdNf6Schnappringdaten werden NICHT|automatisch gespeichert.C퀐NHxHmNr ZURCK | OK ir"_ N+@ -UgNmpNNdNNdpCRNzNpJBgp/pCRNzNpJBgp/pCRNzNpJBgp/pCRNzNpJBgp/pCRNzNpJBgp$fNo6p9@pkNt;BLADNA.NpNpNprN <N"<N <e"<dN <O"<N <d"<cN <P"<N <c"<bNpNpNpNp NNpr(NN~OKNopCRNHpCRNHpCRNHpCRNH <r$<HpCRNH <r$<H <r$<HANNNdpCRNzNpJBgp/pCRNzNpJBgp/pCRNzNpJBgp/pCRNzNpJBgp/pCRNzNpJBgp$fNtNت N nNtpN$fNpprNp NtpN$fNtRADNA.NpNpNpNpN <r"<NNr)Bitte warten, Zeichnung wird ausgedruckt.NpNpNpNp NpCXNH <r$<L8N\vNNjvNN??<pCXN&<x*<N`vN&<x*<N`NjvNH <r$<L8N\N??<^A퀖" NHmpr"_NNXNvNHHmpr"_NNXNL8N`&<x*<N`N+@A퀖N.NH <r$<L8N\H -NL8NݲN+@Np!NxNlA퀜Nlp NNlp NNlNpNNlpANpNNl+| -\NvANA CfN -NH <r$<L8N\N+@pANHmfHm -NH -NH -NL8NBL8N`N/p""_N"_NCfNN`NqNqNp NxNlNpNNlp*NpNNlN -NH -NvNNjvNL8N\NNNl -NvNNjNNNlNAfNlp NNlp NNlN`NqNpNNlp2Np NNlp NNlBg?<Ax"N.NtzNrDrucker ist nicht bereit.4C~NNtNr#Zu wenig Speicher fr Bildausdruck.!C~NNu>pCRNHpCRNHpCRNHpCRNH <r$<HpCRNH <r$<H <r$<HANNNdHxNrPA 6_______________CdNHxNr1275____CdNHxNr4______CdNHx Nr0.4____CdNHx Nr75_____CdNNNdHxNrPA 12______________CdNHxNr1130____CdNHxNr6______CdNHx Nr0.35___CdNHx Nr50_____CdNNNdHxNrPP_________________CdNHxNr1300____CdNHxNr6______CdNHx Nr0.3____CdNHx Nr31_____CdNNNdHxNrPOM________________CdNHxNr2950____CdNHxNr8______CdNHx Nr0.3____CdNHx Nr68_____CdNNNdHxNrPC_________________CdNHxNr2500____CdNHxNr3______CdNHx Nr0.38___CdNHx Nr60_____CdNNNdHxNrABS________________CdNHxNr2400____CdNHxNr3______CdNHx Nr0.5____CdNHx Nr47_____CdNNNdHxNrPA 6 GV 30________CdNHxNr3430____CdNHxNr1.5____CdNHx Nr0.35___CdNHx Nr130____CdNNNdHxNrPA 12 GV 30_______CdNHxNr3240___0CdNHxNr2______CdNHx Nr0.3____CdNHx Nr100____CdNNNdHxNrPP GV 30__________CdNHxNr5600____CdNHxNr2______CdNHx Nr0.25___CdNHx Nr70_____CdNNNdHxNrPP TV 40__________CdNHxNr2950____CdNHxNr2______CdNHx Nr0.4____CdNHx Nr28_____CdNNNdHxNrPOM GV 30_________CdNHxNr8830____CdNHxNr1.5____CdNHx Nr0.3____CdNHx Nr95_____CdNNNdHxNrPC GV 30__________CdNHxNr10000___CdNHxNr1______CdNHx Nr0.2____CdNHx Nr120____CdNNNdHxNrABS GV 30_________CdNHxNr7000____CdNHxNr1______CdNHx Nr0.4____CdNHx Nr69_____CdNNNdp9@pkNt;BLpNN+|pNpNpNpN)|X NCfNHmfNr999"_NJgN}v -rNAfN <Ѝ/p _ѐNv`pNpNpNpN <RrNNfACHTUNG AbsturzgefahrNpNpNprN <N"<N <e"<dN <O"<N <d"<cN <P"<N <c"<bNpNpNpNp NNpr(NN~OKNNdHmHpN"_NJpJBgp/pNN&<x*<NpJBgp/pNN&<x*<NPpJBgp$fN~pENCHNpr+N pr*N NpNCHNpr*N pr+N NprKNAHNlBg?<?<?<Ax" NNNdNf8Die Schnappringdaten|auf dem Bildschirm|werden gelscht.C퀐NHxHmNfABBRUCH| OK r"_ N+@ -UgN+| -AN/- -CpN^/p_N"NCdN/-tCRNN`NqNq -RNv+@ -AN/- -CpN^NxCdN/-tCRNN`NqNq+|+|AOZNAaNNNdHmNNr*.*4"_NHPHmBA퀊""_NNqNNdpCRNHpCRNHpCRNHpCRNHpCRNHpCRNHp CRNHp CRNHANpCRNzNpJBgp/pCRNHpCRNL8NpJBgp$fNHxpCRN&< =8$  >  f\@ rn $>DD86hVj:  .8&$Դ J".f| DLH<$*  nnp (HP,TT|, .,Z|XR*pDpf22222222J<DBSchnappringdaten D:\SRING.DAT 02.06.1990 09:05:58 -------------------------------------------------- Aussen- 20 mm Innen- 18 mm Fgewinkel 20 Scherlnge 1 mm Schnapp- 17.5 mm Werkstoff PA 12 E-Modul 1130 N/mm zul. Dehnung 6 % Reibungszahl 0.25 Zugfestigkeit 30 N/mm Fgekraft 234.3 N Scherkraft max. 848.23 N Zugkraft max. 1790.71 N Zugfederdaten D:\ZFDR.DAT 02.06.1990 09:10:08 -------------------------------------------------- Anzahl Windungen 18.5 Drahtdurchmesser 1.7 mm mittlerer Federdurchmesser 16 mm Lnge unbelastet 33.15 mm Spannlnge 1 60 mm Spannlnge 2 90 mm Werkstoff Stahl naturhart Gleitmodul 83000 N/mm zulssige Materialspannung 700 N/mm eingewickelte Vorspannung 6 N Kraft bei Spannlnge 1 36.7 N Kraft bei Spannlnge 2 71.01 N Lnge max. 101.72 mm Kraft max. 84.41 N GfABASIC0z""""4t((LDDDDXLRFXRMIFBSTWXVYVYOYUI1I2I3I4I5DATEIMODPFADCURSPEZALTITEMPTEMPALTBILDMELDCHARFILEALZEIMNAMERANDKJH SCHRAFFURALFFAFENIJFSAVESZEBHBBKHHANDM5M6M7M8TBTHTXTYXYBX0Y0FLGKLICKTASTFEHLERTTLEILSZSMFDBDMFDBP SPEZ_TASTEN ALT_TASTEN MENUEDATENFEDERZEICHNUNGFELDPOSITIONEN FEHLERENDEHILFE FEDERPRINT FEDERSAVEWERTBILDCURSORMELDUNGBILD_ERSTELLENFELDWAHL MENUEAUSWAHL TASTENDRUCKREDELBAKESCUNDOABAUFLIINSHELPCLRLADSPEIDR_DATENDEMONDR_BILDDELDATXNATCRBRRECHNENAUTORFELDTEXTFILEWAHL LESEFEHLER AUFBEREITEN SCHREIBFEHLERAUSGABEZEICHNENFEHLT DRUCKZEICHENNDDML0L1L2GSZSVS1S2 L0_RECHNEN LMAX_RECHNEN L1_RECHNEN L2_RECHNEN F1_RECHNEN F2_RECHNEN FMAX_RECHNEN FV_RECHNEN WIND_UPDATEWIND_GETREDRAWFZUGFDR.BAS Version 1.01 28.3.90 HR FZugfederberechnung GFA-Basic V2.0 Atari 1040 STF F==================================================================  X F=@)!*Zu wenig RAM-Speicher|fr dieses Programm.!!ABBRUCH!FqF F   F@)!*Dieses Programm luft|nur in Schwarzweiss.!!ABBRUCH!FqF F Allgemeine Variablen -------------------- $Al$ !Alerttext S<Alt$ !Menwahlstring fr Alternatetaste HFBild$ !Bildspeicher fr: Get 0,19,639,399,Bild$ "EZFDR.DATF Dateibezeichnung 2File$ !Rckgabe von Fileselect *I$,J$,K$ !Arbeitsvariablen .EF Hilfe- oder Autorbild wurde angezeigt e$Lei$ !Menleiste $Meld$ !Meldungen 6EFberschreib- und Einfgemodus ("" oder "E") ,Pfad$ !Laufwerk und Pfad  ,Al% !Alert-Rckgabewert 6E% !zum Suchen des Eingabefeldes 4H%,I%,J%,K% !Lauf- und Arbeitsvariablen  *I !Arbeitsvariable s 8Fehler! !Pfad oder Datei nicht gefunden :Tast! !Flag zum Tastaturpuffer lschen 9 Eingabevariablen ---------------- EFFeldzhler ,Fsave% !Feldzhler sichern .E``F Anzahl Ein- und Ausgabefelder f$E@@F Anzahl Eingabefelder EFZeichenzhler :S% !Textspalte bei Anwahl durch Maus :Z% !Textzeile bei Anwahl durch Maus  (Char$ !Eingabezeichen Cur$ !Cursor >Spez$ !Steuertastenstring fr Eingabefelder <Temp$ !Temporrer Eingabetext fr "Undo" e<Tempalt$ !fr Test, ob Eingabefeld verndert  * F Anzahl Zeichen je Feld "* F Zeichenspalte Feldanfang "* F Zeichenzeile des Feldes &* FZahlenwerte fr Berechnungen * F Eingabezahlen r*T$(1) !Anzahl Windungen *T$(2) !Drahtdurchmesser 0T$(3) !mittlerer Durchmesser l4T$(4) !Lnge 0 (=ohne Belastung) e&T$(5) !Spannlnge 1 &T$(6) !Spannlnge 2 .T$(7) !Materialbezeichnung t$T$(8) !Gleitmodul 6T$(9) !zulssige Material-Spannung &T$(10) !Vorspannung t$T$(11) !Spannung 1 $T$(12) !Spannung 2 $T$(13) !Lnge max. (T$(14) !Spannung max. r Zeichnungs-Variablen -------------------- .M$ !Masstab fr Ausgabe p<Schraffur$ !Schraffur fr Schnitt durch Draht <Zei$ !Zeichnungsspeicher fr auf Drucker  @Bb% !Zeichnungsspeicher-Bildbreite in Bytes .Bh% !Bildhhe in Punkten i 6Fb !Bildpunkt-Berechnungsfaktor e*I !Arbeitsvariable n.M !Masstab zum Rechnen s0Rf !Drahtradius in Punkten 4St !halbe Steigung in Punkten r*W !Steigungswinkel n<Xl !Punkt-Koordinate von Kreisen links >Xr !Punkt-Koordinate von Kreisen rechts e8Xv !X-Versatz fr Linie in Punkten @Yo !Punkt-Koordinate von Kreis oben links @Yu !Punkt-Koordinate von Kreis unten links 8Yv !Y-Versatz fr Linie in Punkten  Gem-Variablen ------------- * F Ausgangsbild * F Zielbild ** Fzu bertragendes Rechteck n  E  Fz sendendes Bild  EHHFz E Fz  EF E FBildschirmadresse l$ E  Fs empfangendes Bild h EHHFs E Fs  EF(Hand% !Fensterhndel k0M5%,M6%,M7%,M8% !Koordinaten fr Redraw *Tx%,Ty%,Tb%,Th% !Redraw-Rechtecke  2aktuelles Laufwerk und Pfad ermitteln ermitteln 2----------------------------------------------- $EH Faktuelles Laufwerk :EB : Ffaktuelles Laufwerk und Pfad  Cursor erzeugen --------------- Eb` bp b FEGFEb F F Programm-Steuertasten --------------------- EF-RFFEG`F-QF.EB F Scan-Codes fr Eingabesteuerung r F |F,83,14,1,97,28,114,15,80,72,77,75,82,98,71  EF1RFFEG`F5QF(EB F Scan-Codes fr Menauswahl F |F38,31,25,18,50,32,46  Men-Aufbau ----------- (EF Anzahl Men-Eintrge bestimmen RFFQF Z999F4FZF * F Men-Daten einlesen RF EGFQ F FG |FZUGFDR, Zugfederberechnung ------------------------ n1,2,3,4,5,6   8Datei, Daten laden... L, Daten speichern... S 4 Daten drucken P,------------------------ . Ende... E   *Zeichnung, Monitor M , Drucker D -  Werkstoff, Stahl naturhart * Stahl rostfrei , Bronce federhart -  "Optionen, Hilfe Help 2-----------------------, einfgen Insert - berschreiben Insert ,2-----------------------, Daten lschen... C -   999   FMenleiste darstellen a*p!Fiberschreibmodus markieren  Fenster-Aufbau e-------------- e\!F-keine Titelzeile ]!F-keine Infozeile !Fkeine Randelemente !Fx e@!Fey t!  Fe Breite  !?Fe Hhe ^F Bild-Aufbau ----------- ZF(!!!@FTITEL h0/! !`!Zugfeder berechnenF %!!FFEDERZEICHNUNG $!!!FRFEG FRQF(H!!@@FESchnittflchen \! !@FtZH!  # !\\!  # FSchrge Linien F!|F94,104,114,149,159  04!!\!FHaken oben , !!H!( !a Fo, !! !( !a Fo$H!2!4!2F$H!F! !FF8F!:!\!<FKurze Schrge oben 2 !!\!F Haken unten e$ !)!4!)F& !C!H!a !FH& !C! !a !FH$R!C!f!CF:H!$!t!%FKurze Schrge unten  $!!!FMITTELLINIEN $H!z!H!F$\!!\!F $!!!FVERMASSUNG 8\!P!!PF Draht-Durchmesser n$\!d!!dF0!8!!|F Masslinie h0!P!!BF Pfeil oben $ G!BG!PF2!d!!rF Pfeil unten e$ G!rG!dF6H! !4! F Federdurchmesser 2H! !d! FPfeil links s$ Gd!GH! F2\! !N!F Pfeil rechts $ GN! G\! F $!!!FDIAGRAMM 24!2!4!F dicke Linien 4 G\!G:!*G4!*Fe$4!I!D!IF$4!i!P!iF $!!!Fdnne Linien $4!!\!F$!)!N!)F$!I!n!IF$!i!n!iF$!!n!F "$!!!FEIN- UND AUSGABEBOXEN %!!F"EtGHF>4!!||!@@F Bezeichnungsboxen links F!"EtG^HF8|!!!@@F Eingabeboxen links F!6|!}!! F Ausgabebox links  >6!t!^!*FBezeichnungsboxen rechts $N!:! !jF$N!z! !F$N!! !5F$n!=! !UF$n!]! !uF$n!}! ! F:^!t! !*FEingabeboxen rechts c"E:G_HF: !! !@@F Eingabeboxen rechts c F!8 !}! ! F Ausgabebox rechts s 20!.! !:FMeldungsbox e< !.! !:F berschreib-Einfgebox  &(!!!PFFELDER BESCHRIFTEN 6Y@!  "Anz.Wdg."FBezeichnungen links Y@!` "d [mm]"F Y@! "D [mm]"F(!!!@F'A!!mF (!!!PFE0GHF]Y@! "L [mm]"F] F!(!!!@FL'A!0!0Fm'A!P!1Fm'A!p!2Fm'A!!maxF" (!!!PF8Y<!  " Werkstoff"FBBezeichnungen rechts YT!` "G-Modul"F"(!!!@F' !L!NF-$ !R! !RFB' !d!mmF' !b!2FF(!!!PF$YT! " zul.Spannung"F(!!!@F' !!NFu$ ! ! ! FF' !!mmF' !!2FF(!!!PF(YT!0 "Vorspannung [N]"Fi Yt!P "F [N]"Fn(!!!@F't!P!1F (!!!PF Yt!p "F [N]"Fn(!!!@F't!p!2F (!!!PF Yt! "F [N]"Fn(!!!@F't!!maxF  RFEGFQ ! ! F E !_ F[ FEGF[Q ! ! F E FF F|F033,5,7,33,7,7,33,9,7,33,11,7,33,13,7,33,15,7 n057,5,19,69,7,7,69,9,7,69,11,7,69,13,7,69,15,7 33,17,7,69,17,7  MF7MF7,MF7Meldung anzeigen und Bild speichern 1 Men-Funktionen --------------- vLFv!!LF-vLFvLF Hauptprogramm ============= |F=FFF= Unterprogramme ============== +F=(Ausgabe der Feder-Werte am Bildschirm (------------------------------------- (!!!PF-EGFY ! " "F- F E F E F6Y!8 ""F berschreib-Einfge-Anzeige t.F +FTastendruck auswerten --------------------- F-EFF!! F!F sVF F^F EFMeldung lschen 6Y`!8 " "FhMeldungsfeld lschen  EB``  F _F  E-F FEC 0123456789.@ FF@ #P  #`7 xx7 ~~ F E FE IF! E?@@ F FE F ! E FMF  FEF F F@ E9Nur Ziffern 0 bis 9, Punkt und Steuertasten sind erlaubt.F EC@B`  Fu F EFFMeldung lschen 0wL! ! ! ! ! ! ! ! !!!!!F. F! P F!< E5Diese Alternate-Tastenkombination hat keine Funktion.F EC@B`  Fn F EFF Meldung lschen wL!!!!!!F F F P FF: E3Diese Control-Tastenkombination hat keine Funktion.F F FEF F,MFiMeldung anzeigen und Bild speichern e Fd2`! @!FnTastaturpuffer lschen  FEF F.F +FMen angeklickt --------------- F-EFF!! F!F sVF F^F!! F EFMeldung lschen n6Y`!8 " "FaMeldungsfeld lschen P Fa"w PL!!!!!Fg F ( HF  EFw (L!!FEFEFEFMFEFMFFMFF F    F*w  L!!!!!!!!F F FMF F FF,MFMeldung anzeigen und Bild speichern e F F.F +FEingabefeld angeklickt n---------------------- n F-EFF!! F!F sVF F^F EFMeldung lschen n6Y`!8 " "FdMeldungsfeld lschen :E#   Fl Textzeile ermitteln F2 E#00  F Textspalte ermitteln  8Fx MFberschreib-Einfgemodus  FD E=Nur Eingabefelder (Rahmen gepunktet) knnen angewhlt werden.F" EGF Eingabefeld suchen (     Fa F F  EFMFEMFE FMFF FE FFneue Feld-Nummer E F E F FEC@_ Fe FF E F FEu ! FMFMF EFFOR-Schleife beenden  EF F FO F,MFMeldung anzeigen und Bild speichern a F.F2............................................... ,+F.Meldung ausgeben und Bild speichern . Fn F$Y`!8 " "B`` "Fe F !! !G! F F.F 2+++++++++++++++++++++++++++++++++++++++++++++++ Eingabe-Routinen +================ +"+F=Zeichen im Cursor lschen + ?@@ _FEG F! E?@@ Fl F! E_FMFMF F E FSignal ausgeben l F.F "+ F Zeichen vor Cursor lschen Fe5FEG F! E?@@ F F! E_FMFMF F E FSignal ausgeben  F.F "+ F ganzes Eingabefeld lschen  : _FnE !_ FEFMFMF F E FSignal ausgeben  F.F *+ F Eingabefeld-nderung zurcknehmen +  F- E FEFMFMF F0 E(Eingabefeld wurde noch nicht verndert !F+ F.F + FEein Eingabefeld vorwrts F  EFMFEMFE FMFF F F4F FEF F E F E FEFMF.F + Fein Eingabefeld zurck F  EFMFEMFE FMFF F FgEF F5FF F E F E FEFMF.F &+FCursor ein Zeichen nach rechts   ?@@ _Fh4F F E FSignal ausgeben  FMF MF .F &+F Cursor ein Zeichen nach links Fr5FMFMF F E FSignal ausgeben  F.F &+F Eingabefeld ab Cursor lschen  ?@@ _FEG F! E_F FMFMF F E FSignal ausgeben s F.F2...............................................  +F.ganzes Feld ausgeben Y ! ""F.F +FCursor anzeigen e@#  !  !!@@F.F 2+++++++++++++++++++++++++++++++++++++++++++++++ Men-Routinen ============= +F=$Nur fr Mennummern ohne Funktion .F +FfProgrammversions-Angabe t!FMen abschalten - sVF *EFnchster Klick = Men einschalten +%!F $!!!F0 !8!k!Fa Gesamtbox +*#!>!i!Fa Rand $$!@!i!Fa,!~!2! Fa OK-Box $!!1! Fa$!!1! Fa%!F.0!\!c!Fa Titelbox !F$0!\!@!dFa$0!!@!Fa$c!\![!dFa$c!![!Fa!F8YH! "/\/\/| Z U G F E D E R |\/\/\"F@:Y@!  "!Zugfederberechnung Version 1.01"F:Y@!0 "!in GFA-Basic 28.3.1990 HR"F*Y`!P "Autor: Hans Roth"F Y!` "Weid 13"FH*Y!p "CH-6313 Menzingen"FFY ! "OK"F%!F.F "+FFederdaten von Disk laden zRY`!8 ":Zugfederdaten laden, Bildschirmdaten werden berschrieben."FFEFM F F  F,Y`!8 "Zugfederdaten laden,"F8& Bildschirmdaten werden berschrieben." "Ft7I!M!FtvL!F! =`M!F C@ Zugfederdaten F =`M!F =`M!FEGF =`M!FG E?@$@ F E F"? @@   F ! E_F5F F! F EF EFEFMFEF F*Y`!8 " "B` "F.8Y`!8 """ sind keine Zugfederdaten."FEF F8MFFvF F*Y`!8 " "B` "Fu.Y`!8 """ nicht gefunden."FEF F F F8MFMF Y`!8 " "Fc.F &+FFederdaten auf Disk speichern fM"F2Y`!8 "Zugfederdaten abspeichern."FFEFM F F" C @\\ C @* C @? F*Y`!8 " "B` "FiEF C @\\ FE"\\" F F C @* FE"*" F F C @? FE"?" F FBY`!8 ""&im Pfad oder Dateinamen nicht erlaubt."FEF F F>Y`!8 "Zugfederdaten abspeichern."$ "Ft  F& E|existiert bereits. F" E | |Datei berschreiben ?F )! !! NEIN | JA !F F EF F F F vL#FM$! F vF F F*Y`!8 " "B` "Fi@Y`!8 "'Der Name zum Speichern der Daten fehlt."F"EF F F F F8 Y`!8 " "Fz.F +FFederdaten drucken M"F FE!F { Fr F FDrucker bereit? 2Y`!8 "Zugfederdaten ausdrucken."FD;BX "R"B "FM$LST:! Ff;BX "R"B "F Y`!8 " "Fa F EDrucker ist nicht bereit.F F.F +FDProgramm beenden 8 E0Federdaten werden NICHT|automatisch gespeichert.Fe )! !! ZURCK | OK !F FZ[FqF F.F2............................................... +F.Zeichnung auf Monitor .M"F HFM8 E1Das Programm kann nur bis 100 Windungen zeichnen.F Fa(    F!FMen abschalten sVF *EFnchster Klick = Men einschalten nM%F $!!!F,!'!2!2Fa OK-Box $!'!1!2Fa$!(!1!1Fa(!!!PFY !0 "OK"F FM& ! ! !! F F F.F +FZeichnung auf Drucker M"F HFD8 E1Das Programm kann nur bis 100 Windungen zeichnen.F Fa(    F X @F FE!F { F F FDrucker bereit? M%F(!!!@Fr@'!9!)Bitte warten, Zeichnung wird ausgedruckt.F"(!!!PFP%#  ! !%#  !/!F Bildhhe in Bildpunkten , E7?@@ 7?@@ FAnzahl Bytes auf Bildbreite  E#6 @  Fi Ausdrucken &; ""B  "BP "F.;BX "A"B "F LF auf 8/72 Zoll E`G @@F EFEE IFE?@ @ F F@;  "FLinker Rand ;BX "*"B  "F .;B %   "B%  "F;"B  "BP "F F>;BX "2"B  "BP "FLF zurck auf 1/6 Zoll !! F F EDrucker ist nicht bereit.F F Fr* E#Zu wenig Speicher fr Bildausdruck.F F FuM& ! ! !! Fi F F.F2............................................... "+F.Werkstoff Stahl naturhart . E83000__F E800____F"` EStahl naturhart____F.F +FWerkstoff Stahl rostfrei  E73000__F E750____F"` EStahl rostfrei_____F.F "+FWerkstoff Bronce federhart  E42000__F E250____F"` EBronce federhart___F.F2............................................... +F.Kurze Anleitung .!FMen abschalten . sVF *EFnchster Klick = Men einschalten .^FYFEFe(!!!@FlRFFQF Z999F'@!!Fc0!FF|FFTastenbelegung c-------------- cRDelete Zeichen im Cursor lschen Return ein Eingabefeld vorwrts nRBackspace Zeichen links vom Cursor lschen Tab ein Eingabefeld vorwrts nRClr Home Eingabefeld ab Cursor lschen  ein Eingabefeld vorwrts nPEsc ganzes Eingabefeld lschen  ein Eingabefeld zurck s0Undo Eingabefeld-nderung zurck nehmen R Cursor ein Zeichen nach rechts Insert berschreib-Einfgemodus nL Cursor ein Zeichen nach links Help Diese Kuzanleitung m Men-Auswahl r------------ r@Datei Daten laden... L Federdaten von Disk laden uD Daten speichern... S Federdaten auf Disk speichern l8 Daten drucken P Federdaten drucken 6 Ende... E Programm beenden  DZeichnung Monitor M Zeichnung auf Monitor ausgeben D Drucker D Zeichnung auf Drucker ausgeben  HWerkstoff einige Metalle Standard-Materialdaten bernehmen u BOptionen Hilfe Help Aufruf dieser Kurzanleitung eB einfgen Insert Umschalten auf Einfgemodus eF berschreiben Insert Umschalten auf berschreibmodus nH Daten lschen... C alle Daten vom Bildschirm lschen u N"Die Berechnung wird jeweils beim Verlassen eines genderten Feldes, sowie" R"beim Anklicken eines Datei-, Zeichnung- oder Werkstoff-Menpunktes ausgelst." 4"Alle Zahlen werden auf 2 Kommastellen gerundet." N"Im untersten Feld werden Hinweise angezeigt. Im kleinen Feld rechts unten" F"sieht man, ob der berschreib- oder Einfgemodus eingestellt ist." L"Die Felder, sowie die einzelnen Stellen in den Feldern, mit zustzlich" nF"gepunkteter Umrandung knnen auch mit der Maus angewhlt werden." l   T"A: und B: in der Datei-Auswahlbox nur anwhlen, wenn das gewnschte" nN"Laufwerk betriebsbereit und auch eine Diskette eingelegt ist." 999 (!!!@Fe,'@!)!ACHTUNG AbsturzgefahrF $!!!F,!'!2!2Fr OK-Box $!'!1!2Fr$!(!1!1Fr(!!!PFY !0 "OK"F.F .+Fberschreib- und Einfgemodus wechseln * # pp  hFsEEFp!Fh!F FEFh!Fp!F F6Y!8 ""F berschreib-Einfge-Anzeige D !! !G! F.F .+Falle Daten auf dem Bildschirm lschen A< E5Die Zugfederdaten|auf dem Bildschirm|werden gelscht.F )! !!ABBRUCH| OK !Fi FBEGF E !_ FK  EF FEGFK E FK  EF FEFEFMFMF F.F2...............................................  + F.f*.*!! F. FEC @: F FF$E: :\F Laufwerk ausfiltern .EFF F>EBHH  :\Feaktuelles Laufwerk einsetzen EF F E6 F&? @@ \F Pfadende suchen e5F?F FE? @@ F  FE= @6  F  F.F +!F (Datei hat zu wenig oder falsche Daten vF8MFe*Y`!8 " "B` "Fs2Y`!8 " hat zu wenig Daten."FEGF E !_ F  EF FEGF E ! F  EF FEFEFMFMF,MFMeldung anzeigen und Bild speichern aFF.F +#FvF8MF Y`!8 " "Fd6 PFi F, E$Kann nicht speichern, Disk ist voll.F F Fs$ E ist schreibgeschtzt.Fo F Fs( E Dateipfad  nicht gefunden.F. F Fa. E'Disk-Schreibfehler (evtl. Disk defekt).F F,MFDMeldung anzeigen und Bild speichern )FF.F +"F F  EF E FMFMFMF !! !G! F F.F +$! F 7O!M!FM!"Zugfederdaten "F! LST:FMFRF F M!"FTRF FM!"~" "8FdM!"H!- FEGF `LST:F M' F F E F E F F?@@ _F ! E F5FF Q!F&M!"" 6 "" "F F"MF8MF |FFAnzahl Windungen,,Drahtdurchmesser,mm,mittlerer Federdurchmesser,mm BL{nge unbelastet,mm,Spannl{nge 1,mm,Spannl{nge 2,mm,Werkstoff, r4Gleitmodul,N/mm2,zul{ssige Materialspannung,N/mm2 8eingewickelte Vorspannung,N,Kraft bei Spannl{nge 1,N e6Kraft bei Spannl{nge 2,N,L{nge max.,mm,Kraft max.,N  |FtFAnzahl Windungen,,Drahtdurchmesser,mm,mittlerer Federdurchmesser,mm BLnge unbelastet,mm,Spannlnge 1,mm,Spannlnge 2,mm,Werkstoff, r4Gleitmodul,N/mm,zulssige Materialspannung,N/mm 8eingewickelte Vorspannung,N,Kraft bei Spannlnge 1,N e6Kraft bei Spannlnge 2,N,Lnge max.,mm,Kraft max.,N  .F +' F h!!!!F E@[\]{|}~FFEݎFFEFEG6 F E? @@ F EC@ F F 0EBX RB BXX RB F FB EC@ F F E?@@ F F?  F ~FE F F EF F F F F E6 F.F +%F^FYFMasstab berechnen LEup#  !H#  #%   F EF FE F F FE FFE F  FEF F FEF FEF FF2EM 1:A% FMasstab als String  F 2EM A% :1FMasstab als String  F 0EK3336FBildberechnungsfaktor nE FDrahtradius l0E#   Fhalbe Steigung $E,  FSteigungswinkel l*E)  FgX-Versatz fr Linie e* E*  FVY-Versatz fr linie e&E  FrKreise links (E  FKKreise rechts e4 E #%  Ft Kreis oben links 6 E #%  Fr Kreis unten links  *Y !  ""FBild darstellen u $!!!FEFEGF0Eb b b b F F F%!F F%!F FE G HFb!!F!!F! !! Fb! !! Fb F$!!!F" ! ! ! F.F 2+++++++++++++++++++++++++++++++++++++++++++++++ Berechnungs-Routinen +==================== ++F=  `F=EGF  `F=* E5 F=Strings in Werte wandeln  F F*wL(!)!*!+!,!-!!.!/!0!1!2FB  Ev  !QX F Damit eine Null angezeigt wird "0 Ev0 !QX F"@ Ev@ !QX FRFEGF `FQ!F FF F E ! F! F E !_ F! FQ!F  F< E% H HF auf 0.01 runden t&  r t#F 8 EWerte ungltig:  wird mehr als 7-stellig.Fn Fe4 ! EA FWerte in Strings zurckwandeln  F F F FE F.F2............................................... Federnderungen --------------- "+(F-Anzahl Windungen gendert . FWM3FM4FM5FM6FM7FM8F % Fe0 E)Anz.Wdg. sollte mglichst auf 0.5 enden.F F Fn. E'Werte ungltig! Anz.Wdg.=0 geht nicht.F F.F "+)FWDrahtdurchmesser gendert  FrM9FM3FM:FM4F  PP FM5FM6FM7FM8F F. #   H F 6 E.Dm sollte min. 4 x d und max. 25 x d sein.FF F Fm* E"Werte ungltig! d=0mm geht nicht.Fx F.F "+*FWFederdurchmesser gendert  FrM9FM3FM:FM4FM5FM6FM7FM8F. #   H Fe6 E.Dm sollte min. 4 x d und max. 25 x d sein.FF F Fm* E#Werte ungltig! Dm=0mm geht nicht.F F.F *++FWLnge 0 (ohne Belastung) gendert F  #   F E#   F, E%L0 muss min. d x (Anz.Wdg.+1) sein.F FM:FLM4FLM5FLM6FLM7FLM8FL.F +,FLSpannlnge 1 gendert W   F  E F EL1 muss min. L0 sein.Fd F  PP F  EPP F EL1 darf max. Lmax sein.F. FM7FL.F +-FLSpannlnge 2 gendert . @@  F@ E F EL2 muss min. L0 sein.FF F @@ PP F@ EPP F EL2 darf max. Lmax sein.F. FM8FL.F +.FLGleitmodul gendert i  FM9FM:FM4FM5FM6FM7FM8F F. E&Werte ungltig! G-Modul=0 geht nicht.F  F.F ,+/FWzulssige Materialspannung gendert .  FM9FM:FM4FM5FM6FM7FM8F F2 E+Werte ungltig! zul.Spannung=0 geht nicht.F F.F *+0FWEingewickelte Vorspannung gendert &  L` F.  Eu  !L` F.F E?Vorspannung sollte max. 0.1 x Fmax, darf max. 0.2 x Fmax sein.F FM3FVF  #   # =qFaKeine Vorspannung mglich F6 E/Keine Vorspannung mglich, weil L0 nicht Block.F FM:FKM4FKM5FKM6FKM7FKM8FK.F +1FKSpannung 1 gendert l 00   F0 E  F EF1 muss min. Fv sein.Fh F 00 `` F0 E`` F EF1 darf max. Fmax sein.F  FM5FF.F +2FFSpannung 2 gendert i @@   F@ E  F EF2 muss min. Fv sein.FF F @@ `` F@ E`` F EF2 darf max. Fmax sein.F  FM6FF.F Feder-Berechnungen a------------------ a+3F-  F( Ev !#   Ft F.M& ! ! ! ! Fo F.F +4FR      `` F0EO      F@P E ` #`   F F.M& ! ! ! ! F F.F +:FF  #   # =qF Keine Vorspannung mglich   EF F `` F.  Eu  !L` Fr F.M& ! ! ! ! Fr F.F +9F"   F6` EO     F F.M& ! ! ! ! F F.F +5F0  PP `` F6     PP F  E F F&0 Ev0 !  F&0 Eu0 !`` Ff  E #P  #``   #00   F F F.M& ! ! ! ! F# F.F +6F0  PP `` F6 @@  @@ PP F@ EPP F F&@ Ev@ !  F&@ Eu@ !`` Ff@ E #P  #``   #@@   F F F.M& ! ! ! ! F# F.F +7F>    PP `` Fd0 E#`   #PP  #     F F.M& ! ! ! ! F F.F +8F>  @@ PP `` Fd@ E#`   #PP  #@@    F F.M& ! ! ! ! F F.F2...............................................  +& ! !!! F. EBrauche noch : F. Fe E  Anz.Wdg.F  F Fz E  dF F FW E  DmFd F FF E  G-ModulF F FM E  zul.SpannungF. F Brauche noch : F4 E-Werte ungltig: Bitte, vernnftige Eingaben.F F.F 2+++++++++++++++++++++++++++++++++++++++++++++++ "GEM-Routinen aus GFA-Basic-Buch ============ a+F= F=  FGE FE  FE@ FE` FE FM; FM<!0 F(4@ FBreite oder Hhe <>0 E3 3@ FE3 3 FEv3 ! FEv3 ! FEu! FEu! F F FM=!!! F F FM<!@ FF!M; F F F.F +=!!! FM<! F E3 FE3 F!F !F!F@!F!F!F@!F tF!F!F!F%!F E3 F E3 F E F E F EF  EF@ EF` EF EF Ez @F ! ! F.F +<! F!F !F sPFF.F +; FF!FF sVFF.F`< 2R` Efv*oM+~ m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALNHz2?< NA\pdAxr0XQ)K\NN|fbhnzN ,`NuJrBjNuHz?<&NN\NقCAp$L Qp Nn9lrBlJpNNnpMNn9@pdAr 0Q0tr N׼9lN Nupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8Nۦ6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?Nۦ<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuN.J@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNu <ڢ2,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNupmrtA)HA)HN׼pN:HHPN4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@N:"2)IN(* 9AJA)H@@[000][ˈN. Evz`* [g" ]g |g QSz` zQSpQ][ɈN. Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NnHNu*( IN.A)H @depd ae zb QB DN.A\)H @ e` ae zb \gQBA BhNpZNnA BP"`#|}NA"H0,tg"Hg \f`A\fS A EN:AR@H`2QNuN.AH2 @epr0QpptN׼vpNװr|<N. @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N׼$Y QfFL~)AH|"@$Y Qf,L~)AH|$X PfLH9HNpNA R4RB`A Gf //o~4$_<F"OSG !H@Ь 2 Q)@RHRprN׼"H2@N .0H@N .YdN HAN 2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNuApNA0pNN.$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0NuN.J@gpNu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)N:$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNuNVHNuNUHNuNSHNuJhg N.NNu Ihd"*N$E8*$R`"QˈN. ENu2)A IJAfr4(Ae*RBBc0*SA?N$E$R`QˈN. ENup`(* 0(iN$E 4R`Q$D 4R`QˈN. DN. ENua NuN. IHPg"B  g &gNܾJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATANLpN?<*NATANp N"H2X@N :0H@?N :AAN 2p <0N`QNu0g< @g4:8(g* b.&NSD`Q0$C$RQLjN. CNuN.pNp N?Hl?<GNAPA"HJf SNr ,* N.& ( EN. C"Sj|AcRGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NȼldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"NNN:JfNup#`NN, HHHNup`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4NnP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNXHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.02| Copyright 1986/1987|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehlertHB9BL@@TAt )l g.A( f hgSASAgRB`9BJNnSAgNut)l g,vARC( g9CJ9|Lp!,Nn FPeNutBA JpBQA/)H )l gBlJpNnB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Nnp>L8Ntp*HEAJ0?C bL000H?A/.)HpNnLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN0`@k Ap0(/.NuA Nu)G RHA)A v9@ zNup)@JphNnLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, Nn"F QNu?S@k&8L &LeBLe,C`(A? fHa)_ 2TNuBlJ`l *bl ,bH .ND0S@k@>A PC/~. 0(JgRJ)@g1@CJ2fP2HP" &" *pdNn0,r W1@AJ00 piNn9|L@NpiNn _CL""pe`9| LpiNn9|LphNnLtH 2H/`SBSC@AHH/jP 6P/^P0<rtN׼papapapaL/jr`S@k6@ A 9PJg8BPpfNnpgNn9| LphNn9@JfdBlJa\Q 6BB 2`NuS@k @ A 9pJg a$Bp`NuHS&I. FV 7p&N׸9l/h8,:,L/d4,pĴ@cS@9@p4,rŴAcBSA9Ar`8pJ, 7fnJ/^k0 Eg$2,/h pg  qfH9A/hpjNפ`N`NqNq -CnNC퀐N -CnNC퀖NNprKNAlN>NNX4-bNLJBfNVBmbN@Bg?<A퀜"Np9@pkNNZpNA C퀢NNprNpCNxN>pNNC퀨NHmp_N"_NJJBfNV|p-NC퀨NNr 0123456789.HPA퀨"_N+@p NNzNDpJBgp/ -N&<x*<NDpJBgp/A퀨NXN&<x*<NpJBgp/A퀨NXN&<x*<N|pJBgp$fNXHmlpEN"_NJpJBgp/ -NH -CzN^NL8NpJBgp$fNW -CzN^NH <r$<L8NPN+@ -ANdHm -RNv/Hmp"-"_N""_NN`NqNqHmA퀨"-"_NAepN -N&<x*<NDpJBgp/ -NH -CzN^NL8NDpJBgp$fNX|t;BdNZdNr9Nur Ziffern 0 bis 9, Punkt und Steuertasten sind erlaubt.4C퀢NHm~pNNvNXNN"_N+@ -$fNYRA C퀢N -~NapbTcc|dddddepf}d{fJNZ^p NQgNZ Nr5Diese Alternate-Tastenkombination hat keine Funktion.uC퀢NHmpNNvNXNN"_N+@ -$fNZ A C퀢N -~NjRmqrs&u4~Np NYgNZ^Nr3Diese Control-Tastenkombination hat keine Funktion.nC퀢Nt;BdAaN4-dNLJBfNZ?<?<NNX\Nvr @ BmdNNX4-bNLJBfNZBmbN@Bg?<A퀜"Np9@pkNN]tpNBg?<A퀜"NA C퀢NNprNpCNxN>pNN&<x*<NpJBgp/pNN&<x*<NpJBgp$fN[pNNH <r$<L8NPN~N{g}d}dg~NpNN&<x*<NpJBgp/pNN&<x*<NpJBgp$fN\/-A퀐CnNpNNH <r$<L8NPN~Nz{"{+m+|+|AjN+mAU*NAgNpNN&<x*<NpJBgp/pNN&<x*<NpJBgp$fN]4pNNH <r$<L8NPN~ NjRmqgrggs&u4pNSgN]NAgN4-bNLzNDJBfN]tN@AaNNNX4-bNLJBfN]BmbN@Bg?<A퀜"Np9@pkNN`pNA C퀢NNprNpCNxN>p NN&<x*<NTvNXN+@ p NNH <r$<L8NPvNXN+@ -N&<x*<NDpJBgp/ - N&<x*<NDpJBgp$fN^A}dNN`Nr=Nur Eingabefelder (Rahmen gepunktet) knnen angewhlt werden.4C퀢N+| -ANd -NH -C큆N^NL8NDpJBgp/ - NH -C큀N^NL8NpJBgp/ - NH -C큀N^NH -CzN^NL8NTL8NpJBgp$fN` -fN`:HmA퀖"_NTJBfN`/-A퀐CnNAjNAU*NN` AfN+m -CnNC퀐N -CnNC퀖NHmp_N"_N+@ -JgN`l -CzN^+@ - NH -C큀N^NL8NP&<x*<NTH -NL8NN+@AfNAgN+mA C퀢NN`NqAaNNNX4-bNLzNDJBfNahHmA "_NTJBfNaNNprNA퀢N>pNN>Bg?<?<?<A퀜" NNNXHmp"-"_NHPp_N"_NTJBfNb>+m -CzN^NH <r$<L8NPNANdHmHm -RNv/p""_N"-"_NN`NqNqHm -CzN^/p_N""_NAfNAgNNbLp NC퀢NNNX -SnNbSNv+m -CzN^ANdHmHm -RNv/p""_N"-"_NN`NqNqHm -CzN^/p_N""_NAfNAgNNbp NC퀢NNNXA퀐NrHPp_N"_NTJBfNcf -CzN^/p_N"NC퀐N+|AfNAgNNctp NC퀢NNNXHm -CnN"_NTJBfNc -CnNC퀐N+|AfNAgNNdNf(Eingabefeld wurde noch nicht verndert !C퀢NNNXHmA퀖"_NTJBfNdR/-A퀐CnNAjNAU*NNd\AfN -mNdxRNvNd+| -CnNC퀐N -CnNC퀖N+|AgNNNXHmA퀖"_NTJBfNe/-A퀐CnNAjNAU*NNeAfN -SgNe(+mNe.SNv -CnNC퀐N -CnNC퀖N+|AgNNNX -NH -CzN^NL8NpJBgp/Hmp"-"_NHPp_N"_NTpJBgp$fNeRNvNep NC퀢NAfNAgNNNX -SnNf4SNvAfNAgNNfBp NC퀢NNNXHmp"-"_NHPp_N"_NTJBfNf+m -CzN^ANdHmp_N"-"_NN`NqNqAfNAgNNfp NC퀢NNNXN -C큀N^/ -C큆N^"NA퀐N>NNX -C큀N^NH -NL8NTvNXH <r$<L8NPN? -C큆N^NvNX&<x*<NTN?Hmxp _"NNNXNNXp9@pkNt;BbpNhpNlpNpNprNp\"<N <$"<Np_"<N <!"<Np`"<N < "<N <"<N <"<dN <"<N <"<cN <"<N <"<bNpNhpNlpn"<N <"<NpN׬pn"<Npr"<N <"<N <"<Npn"<Npr"<N <"<N <"<NpN׬NprNN/\/\/| Z U G F E D E R |\/\/\Np rNN!Zugfederberechnung Version 1.014Np rNN!in GFA-Basic 28.3.1990 HR4Np rNN~Autor: Hans RothNpr%NNWeid 13!Npr%NNCH-6313 Menzingen4Npr(NN~OKpNhpNlNNXNprNN~:Zugfederdaten laden, Bildschirmdaten werden berschrieben.BmfANHmA "_NTJBfNmHmrAf"_NNTNLJBfNmVNprNN~Zugfederdaten laden,NN~& Bildschirmdaten werden berschrieben.p NHpINHPHmrAf"_Nr"_N)| NprNArN>AfN>N~ sind keine Zugfederdaten.t;BfpN&B NprNArN>AfN>N~ nicht gefunden.t;Bf4-fNLzNDJBgAU*NAgNNprNpCNHNNXAlNNprNN~Zugfederdaten abspeichern.BmfANHmA "_NTJBfNqfHmNf\\"_N/Hmp*N"_N/Hmp?N"_N$fNoNprNpCNHpNN>A C퀊NHmNf\\"_N$fNnHmNr"\\" C"_NC퀊NHmp*N"_N$fNo$HmNf"*" "_NC퀊NHmp?N"_N$fNoZHmNf"?" "_NC퀊NNprNA퀊N>N~&im Pfad oder Dateinamen nicht erlaubt.t;BfNqfHmfA "_NTJBfNq NprNN~Zugfederdaten abspeichern.p)NHHmrAf"_NNTNLJBfNpHmrAf"_NHPNr|existiert bereits. ."_NC퀴NHmNf| |Datei berschreiben ?"_NC퀴NHxHmNr NEIN | JA r"_ Nb+@ -SgNpt;Bf4-fNLzNDJBfNq)|r NprNN'Der Name zum Speichern der Daten fehlt.4t;Bf4-fNLzNDJBgNprNpCNHNNXAlNpN$fNqprNp NtpN$fNrjNprNNZugfederdaten ausdrucken.tNpNN>pRNpNN>NfLST:HPpNxHPANNpNN>pRNpNN>NprNpCNHNrNrDrucker ist nicht bereit.4C퀢NNNXNf0Federdaten werden NICHT|automatisch gespeichert.C퀴NHxHmNr ZURCK | OK .r"_ Nb+@ -UgNspNNXNNXAlNpChN&<x*<NJBfNsNr1Das Programm kann nur bis 100 Windungen zeichnen.4C퀢NNu,pChNzNpJBgp/pChNzNpJBgp/pChNzNpJBgp/pChNzNpJBgp$fNtp9@pkNt;BbATNpNpNprN <N"<N <e"<dN <O"<N <d"<cN <P"<N <c"<bNpN\pN`pNdp NNpr(NN~OKNu,pChNHpChNHpChNH <r$<H <r$<HANNNXAlNpChN&<x*<NJBfNuNr1Das Programm kann nur bis 100 Windungen zeichnen.C퀢NNzpChNzNpJBgp/pChNzNpJBgp/pChNzNpJBgp/pChNzNpJBgp$fNz`N֞ N nNz(pN$fNvPprNp NtpN$fNyATNpN\pN`pNdpN <r"<NNr)Bitte warten, Zeichnung wird ausgedruckt.NpN\pN`pNdp NANANNPvNXN^vNXN??<ANA NNTvNX&<x*<NTN^vNXH <r$<L8NPN??<^A퀺" NHmpr"_NNXNvNXHHmpr"_NNXNL8NT&<x*<NTN+@A퀺N.NH <r$<L8NPH -NL8NۦN+@Np!NxN>AN>p NN>p NN>NpNN>pANpNN>+| -\NvANdA C퀊N -NH <r$<L8NPN+@pANdHmHm -NH -NH -NL8N6L8NTN/p""_N"_NC퀊NN`NqNqNp NxN>NpNN>p*NpNN>N -NH -NvNXN^vNXL8NPNNN> -NvNXN^NNN>NA퀊N>p NN>p NN>N`NqNpNN>p2Np NN>p NN>Bg?<A퀜"NNz"NrDrucker ist nicht bereit.4C퀢NNzZNr#Zu wenig Speicher fr Bildausdruck.!C퀢NNzpChNHpChNHpChNH <r$<H <r$<HANNNXHxNr83000__CnNHx Nr800____CnNHxNrStahl naturhart____CnNNNXHxNr73000__hCnNHx Nr750____CnNHxNrStahl rostfrei_____CnNNNXHxNr42000__rCnNHx Nr250____CnNHxNrBronce federhart___CnNNNXp9@pkNt;BbpNN+|pN\pN`pNdpN)| NC퀊NHmNr999"_NJgN|x -rNA퀊N <Ѝ/p _ѐNv`pN\pN`pNdpN <RrNNfACHTUNG AbsturzgefahrNpNpNprN <N"<N <e"<dN <O"<N <d"<cN <P"<N <c"<bNpN\pN`pNdp NNpr(NN~OKNNXHmlpN"_NJpJBgp/pNN&<x*<N|pJBgp/pNN&<x*<NDpJBgp$fN}pENClNprN prN N~pNClNprN prN NprKNAlN>Bg?<?<?<A퀜" NNNXNr5Die Zugfederdaten|auf dem Bildschirm|werden gelscht.4C퀴NHxHmNfABBRUCH| OK r"_ Nb+@ -UgN+| -ANd/- -CzN^/p_N"NCnN/-tChNN`NqNq -RNv+@ -ANd/- -CzN^NxCnN/-tChNN`NqNq+|+|AU*NAgNNNXHmrNr*.*4"_NHPHmfA퀮""_NHmA "_NTJBfNHmp:N"_N+@ -UgN$A퀮NrHPNf:\"_NCrN+|NV?<NATANHPNf:\"_NCrN+|A퀮N.+@Hmp"-"_NHPp\N"_NTJBfNSNv` -nNHmrHm -NH -NL8NP&<x*<NTN"-"_N"_NCrNHmA퀮N.Nv"_NCfNNNXB pNN>NprNHmrAf"_NHPNf hat zu wenig Daten."_NN>+| -ANd/- -CzN^/p_N"NCnN/-tChNN`NqNq -RNv+@ -ANd/- -CzN^/p N"NCnN/-tChNN`NqNq+|+|AU*NAgNAaNN@AU NNNXB NZugfederdaten 4HmNfLST:"_NJJBfNjpNpN)| NpNpArN>AfN>N)|  pNpAN>N6N>N~ N N>NpNpAN>p-Nr2NN>N+| -ANd -N&<x*<NDpJBgp/HmNfLST:"_NJpJBgp$fNL/-AZNNp -CnNCN -CzN^+@Hmp"-"_NHPp_N"_NJpJBgp/ -NzNpJBgp$fNHmp N"-"_NSNv`NC퀊NNCNpNpAN>A퀊N>A퀊N.(DNvNxN>AN>p NAN>NN`NqpNpNpN&NNX ANfANA퀊NANA"NdANdNf@[\]{|}~C퀊NNfݎCNA CN+| -CnNN.ANd -CnNHPp"-"_NCNHmA"_N+@" -"$fNHmpN"_NHPpRN"_NHPpN"_NHPA"_NHPpN"_NHPpRN"_NHPpN"_NCNN6HmA"_N+@" -"$fNHmHmp"-""_N"_NCNN6Hmp N"_NhJBfN6Hmp~N"_N^JBfN p NCNHmA"_NCNN`NqAN.+@NNXpNNpChNHpChNL8NT&<x*<NۦHpChNHpChNL8NۦHpChNN^&<x*<NTL8N6HpChNL8NT&<x*<NۦL8NANCA 0AN&<x*<NJBfNlAN&<x*<N6AN`AN&<x*<NJBfNAN&<x*<N۬AN`+|AN&<x*<NJBfN+|AN&<x*<NJBfN+| -NANN6ANN۬ANAN&<x*<NJBfNNfM 1:HPAN&<x*<Nۦ&<x*<NTN^N"_NCNNNfM HPAN&<x*<NTN^N"_NHPNf:1"_NCN <3332<4$<&<x*<NۦANN6ANpChNvNXANN6ANpChNHpChNL8NPHpChNL8NۦvNXANN6A$NpChNA$NNۦANN۬NA*NA*NNHpChNL8N6vNXANN6A0NA*NNHpChNL8N6vNXANN6A6NpChNvNXANN6&<x*<NPANpChNvNXANN6&<x*<NTA NpChNN^&<x*<NTA$NN6&<x*<NPApNpNprNA CN+|pANdHm <N"_NHP <""N"_NHP <DDN"_NHP <N"_NCNN`NqNqAN&<x*<NJBfN(pNhANN4pNhpNlCp0,NH -*NL8NN+@Bp0,NH -.NL8NN+@F -:NH -*NH -2NL8NTL8NH -BNL8NPN+@: ->NH -.NH -6NL8NTL8NH -FNL8NPN+@> -:JnN ->JnN/-B/-F/-:/->AN/-&Hx AN`tBANNNX A"Nf ARNf ANNf AJNf/-&HxANp0,+@Vp0,+@Z -J9@A "-N @0 -JNH -RNL8NTH <r$<L8NPN9@ -NNH -"NL8NTH <r$<L8NPN9@p9@A r @0A r @0 <NA 2 "-V @0A 4 "-Z @0pN׬pNlB -JNHp0,NL8NPNC큘NHx -NNHp0,NL8NPNC큘NHxpC큘N^NH -RNL8NTH <r$<L8NPNC큘NHxpC큘N^NH -"NL8NTH <r$<L8NPNC큘NHx -JC큘NHx -NC큘NHx -JNH -RNL8NTH <r$<L8NPNC큘NHx -NNH -"NL8NTH <r$<L8NPNC큘NHxpC큘NB -\NvC큌NA큌HPC큒A큘 N^NNX ANf A"Nf -"9@A "- @0phNNNX A^Nf -^9@pkNNNX831419728114158072777582987138312518503246ZUGFDR Zugfederberechnung------------------------123456Datei Daten laden... L Daten speichern... S Daten drucken P------------------------ Ende... EZeichnung Monitor M Drucker DWerkstoff Stahl naturhart Stahl rostfrei Bronce federhartOptionen Hilfe Help----------------------- einfgen Insert berschreiben Insert----------------------- Daten lschen... C9999410411414915933573377339733117331373315757519697769976911769137691573317769177Tastenbelegung--------------Delete Zeichen im Cursor lschen Return ein Eingabefeld vorwrtsBackspace Zeichen links vom Cursor lschen Tab ein Eingabefeld vorwrtsClr Home Eingabefeld ab Cursor lschen  ein Eingabefeld vorwrtsEsc ganzes Eingabefeld lschen  ein Eingabefeld zurckUndo Eingabefeld-nderung zurck nehmen Cursor ein Zeichen nach rechts Insert berschreib-Einfgemodus Cursor ein Zeichen nach links Help Diese KuzanleitungMen-Auswahl------------Datei Daten laden... L Federdaten von Disk laden Daten speichern... S Federdaten auf Disk speichern Daten drucken P Federdaten drucken Ende... E Programm beendenZeichnung Monitor M Zeichnung auf Monitor ausgeben Drucker D Zeichnung auf Drucker ausgebenWerkstoff einige Metalle Standard-Materialdaten bernehmenOptionen Hilfe Help Aufruf dieser Kurzanleitung einfgen Insert Umschalten auf Einfgemodus berschreiben Insert Umschalten auf berschreibmodus Daten lschen... C alle Daten vom Bildschirm lschenDie Berechnung wird jeweils beim Verlassen eines genderten Feldes, sowiebeim Anklicken eines Datei-, Zeichnung- oder Werkstoff-Menpunktes ausgelst.Alle Zahlen werden auf 2 Kommastellen gerundet.Im untersten Feld werden Hinweise angezeigt. Im kleinen Feld rechts untensieht man, ob der berschreib- oder Einfgemodus eingestellt ist.Die Felder, sowie die einzelnen Stellen in den Feldern, mit zustzlichgepunkteter Umrandung knnen auch mit der Maus angewhlt werden.A: und B: in der Datei-Auswahlbox nur anwhlen, wenn das gewnschteLaufwerk betriebsbereit und auch eine Diskette eingelegt ist.999Anzahl WindungenDrahtdurchmessermmmittlerer FederdurchmessermmL{nge unbelastetmmSpannl{nge 1mmSpannl{nge 2mmWerkstoffGleitmodulN/mm2zul{ssige MaterialspannungN/mm2eingewickelte VorspannungNKraft bei Spannl{nge 1NKraft bei Spannl{nge 2NL{nge max.mmKraft max.NAnzahl WindungenDrahtdurchmessermmmittlerer FederdurchmessermmLnge unbelastetmmSpannlnge 1mmSpannlnge 2mmWerkstoffGleitmodulN/mmzulssige MaterialspannungN/mmeingewickelte VorspannungNKraft bei Spannlnge 1NKraft bei Spannlnge 2NLnge max.mmKraft max.NDh |  *ZR` |xN4*2VB Z2 *  Th &$h $v 60 6" V  >$  >  X . zBR zBx 6dB6dB& V jD 6dB6dBJZLLr(FLfLf^Lf^LLL~:248P\<DB. .. DATEN ;F  INFO 8F LIESMICH F  $SPEAKERSPRG F ͭEinige Lautsprecherdaten fr die Berechnung des Frequenzganges im Bareflexgehuse: ISOPHON: PSL 155 Alu 4 Ohm: 8 Ohm: Fs: 42 Hz 42 Hz Qt: 0.35 0.38 Vas: 23 Liter 23 Liter Gleichstromwid. 3.3 Ohm 6.6 Ohm PSL 225/110 Fs: 30 Hz 30 Hz Qt: 0.3 0.54 Vas: 85 Liter 85 Liter Gleichstromwid. 3.5 Ohm 6.5 Ohm PSL 225 Alu Fs: 28 Hz 28 Hz Qt: 0.22 0.24 Vas: 50 Liter 50 Liter Gleichstromwid. ?? 2.8 Ohm ?? 5.7 Ohm PSL 300 Fs: 24 Hz 24 Hz Qt: 0.4 0.4 Vas 160 Liter 160 Liter Gleichstromwid. 2.8 Ohm 5.7 Ohm PS 385/300 S Fs: 60 Hz Qt: 0.33 Vas: 105 Liter Gleichstromwiderstand 4.1 Ohm Kommentar: In 80 Liter/55 Hz - Gehuse metechnisch lauter, aber subjektiv unaufflliger, weil knochentrockener Bass. FANE ( Profi-Chassis fr Beschallung ): Studio 10" M Fs: 73 Hz Qt: 0.34 Vas: 27 Liter Gleichstromwiderstand 5.7 Ohm Induktivitt 0.65 mH Studio 12" L Fs: 49 Hz Qt: 0.24 Vas: 121 Liter Gleichstromwiderstand 5.2 Ohm Induktivitt 0.6 mH Studio 15" B Fs: 45 Hz Qt: 0.44 Vas: 116 Liter Gleichstromwiderstand 5.8 Ohm Induktivitt 0.57 mH ELECTRO-VOICE ( Profi-Beschallung): EVM 12" L Fs: 55 Hz Qt: 0.23 Vas: 83 Liter Gleichstromwiderstand 5.2 Ohm EVM 15" B Fs: 43 Hz Qt: 0.3 Vas: 225 Liter Gleichstromwiderstand 5.2 Ohm EVM 18" B Fs: 33 Hz Qt: 0.36 Vas: 516 Liter Gleichstromwiderstand 5.2 Ohm Ich kenne nicht alle Herstellerunterlagen; meines Wissens geben folgende Firmen freiwillig die Thiele-Small-Parameter an: ISOPHON Dynaudio Electro-Voice FANE Celestion RCF Beyma Audax An dieser Stelle mchte ich etwas Werbung in eigener Sache machen. Nein, ich bitte nicht um berweisung von 20,- DM als freundliche Anerkennung - obwohl ich darber natrlich nicht bse wre. Ich habe eine Zeit lang davon gelebt, Lautsprecher zu bauen - fr HiFi, Laientheatergruppen, Bands... Leider mute ich feststellen, da in den gngigen Bastelbchern, wie z.B. dem berhmten Klinger, nicht alles steht, was man ntzlicherweise wissen mte. Ich habe mir vieles aus allen mglichen Quellen zusammengekramt. Und mir viele Gedanken darber gemacht. Die wesentlichen Dinge, die ber Klinger und Kollegen hinausgehen (inclusive meiner eigenen Erfahrungen), habe ich auf ca. 20 Schreibmaschinenseiten zusammengefat. Es gibt natrlich noch viel mehr zu wissen, aber ein dickes Lehrbuch wollte ich eigentlich nicht schreiben. Wer mir nun einen Verrechnungsscheck ber DM 15,- schickt, oder das Geld auf das unten genannte Konto berweist, der bekommt also diese Informationen von mir ins Haus geschickt. Als Computeraus- druck im DIN A4 Format, sauber zu einem Heft gebunden. VORAUSGESETZT, er hat NAMEN und ANSCHRIFT l e s b a r dazugeschrieben. Christian Hu Skarbinastrae 74 1000 Berlin 49 Postgiroamt Berlin-West, BLZ 100 100 10 Kontonummer 29 60 87 - 106 06601030305800 1 2 F0110030 9[...................................................]001 Vorwort: Das hier ist keine Beschreibung der einzelnen Programmpunkte und ihrerBedienung.Ichdenke,dieBedienungdesProgrammesist einfachgenug,dajedersieleichtdurchschauenkann. Frvielwichtigerhalteich,daderBenutzerversteht,worumes hierberhauptgeht.Kannjasein,danichtalle,diedieses Programmnutzenwollen,schonLautsprecherprofissind.Frden, derdiefolgendenGrundlagenrichtigverstandenhat,wirdsich diesesProgrammalsleichtzubedienendesundextremntzliches WerkzeugzurKonstruktionvonLautsprechergehusenerweisen. Jetztgeht'slos: Vorausberechnung eines Lautsprecher-Frequenzganges in einem Bassreflex-Gehuse. Vom 7.3.90 Dazu - und nur dazu - war dieses Programm ursprnglich gedacht. Dazu braucht man allerdings einige Daten des zu berechnenden Lautsprechers (mit Lautsprecher ist hier immer das teure, runde Ding gemeint, das in die Holzkiste eingebaut wird; manchmal auch Chassis genannt). Leider, leider pflegen nicht alle Hersteller die gute Sitte, mit den notwendigen Daten 'rberzurcken. Wenn man einen Hersteller oder Hndler danach fragen will, frage man nach den "Thiele-Small-Parametern". Thiele und Small waren zwei Herren, die sich um die Theorie der Lautsprecher schwer verdient gemacht haben. Hat der Hndler die Daten nicht, kann er vielleicht nichts dafr. Rckt der Hersteller sie nicht 'raus, denke man schlecht von ihm und seine Lautsprechern. Er wird schon wissen, warum er sie fr sich behlt. Fr uns unmittelbar von Interesse sind davon folgende Daten: (Ich habe die Bezeichnungen benutzt, die allgemein am hufigsten verwendet werden. Manche Autoren weichen etwas davon ab, so wird z.B. manchmal "Qte" anstelle "Qt" benutzt. ) - Die Resonanzfrequenz des nicht eingebauten Lautsprechers, meist abgekrzt mit "Fs" bezeichnet. - Der Gesamt-Gtefaktor "Qt" des Lautsprechers.(Kannauch aus mechanischem (Qm) und elektrischem (Qe) Gtefaktor errechnetwerden.) - Das Luftvolumen, da der Federsteifigkeit der Membranaufhngung gleichwertig ist; auch "quivalenzvolumen" (o..)genannt und mit "Vas" abgekrzt. Bekommt man fr einen bestimmten Lautsprecher diese Daten nicht, kann man keinen Frequenzgang vorausberechnen. Schade. Zu den Thiele-Small-Parametern gehren noch einige mehr, aber fr die nherungsweise Berechnung des Frequenzganges reichen diese drei. Darber hinaus sind noch entscheidend fr den Bafrequenzgang: - Das Nettovolumen des Gehuses "Vb"(Nettoheit:Innenmae, abzglichallerEinbauten-ausgenommenDmmaterialwie Watteo.a.) - Die Resonanzfrequenz, auf die das Gehuse abgestimmt wird, abgekrzt mit "Fb". Diese beiden knnen wir hier beliebig verndern und ausprobieren. Abhngigvonder"Schrittweite"wirdeineTabellemitFrequenz- gngenfrverschiedeneGehusevolumenerrechnet.AusderTabelle kannmansicheinVolumenaussuchenunddenFrequenzgangals Grafikanzeigenlassen. Und schlielich kann man sich mit der Prozedur "Gehuse" noch die Gre der Bareflexffnung bzw. des Tunnels fr ein vorzugebendes Gehusevolumen (NETTOvolumen!!!) ausrechnen lassen. Noch ein Wort zum Frequenzgang: Was hier berechnet wird, ist ein relativer, theoretischer Frequenzgang. Dabei geht die Theorie davon aus, da der Lautsprecher bei mittleren Frequenzen ( so bei 400 bis 1000 Hz, ungefhr ) unabhngig vom Gehuse eine bestimmte mittlere Lautstrke erreicht. Der Frequenzgang wird nun relativ zu dieser Lautstrke errechnet, die in der Grafik als 0-dB-Linie dargestellt ist. Auch die Zahlen in der errechneten Tabelle beziehen sich auf diese mittlere Lautstrke und bedeuten die Gre der Abweichung davon ( +/- soundsoviel dB ). Es geht also darum, um wieviel die Bawiedergabe lauter oder leiser ist als die Mittenwiedergabe des Balautsprechers. Weil Lautsprecher aber leider keinen so schn glatten Frequenzgang haben, sondern in jedem Falle irgendwie die Frequenzen verbiegen, kann man das alles leider nur als Annherung an die Wahrheit betrachten. Aber mit etwas Verstand kann man durchaus wertvolle Schlsse daraus ziehen: - Je ausgeprgter die Frequenzkurve eine Beule in den oberen Bereich macht (+ soundsoviel dB...), desto lauter wird die Bawiedergabe werden. Aber auch umso schwammiger, unklar, zum drhnen neigend. - Je schmaler und hher eine Spitze nach oben ist, desto unausgewogener ist die Bawiedergabe zu erwarten, weil nur ein ganz schmaler Frequenzbereich im Ba laut wiedergegeben wird. - Ein starker Abfall unter die Null-dB-Kurve prophezeiht klare, straffe und trockene Bsse - aber leider relativ leise. - Optimal wre ein Frequenzgang nahe der Null-dB-Linie, der dann bei der Resonanzfrequenz des Gehuses um nicht mehr als 3 dB abgefallen ist, ohne groe Buckel und Dellen. - Eine Anstieg oder Abfall um 3 dB entspricht einer Verdopplung bzw. Halbierung der Verstrkerleistung. Eine nderung um 10 dB wird von den meisten Menschen als halb bzw. doppelt so laut empfunden. - Eine gleichmige Wiedergabe bis wesentlich unter 40 Hertz (Hz) ist schwer machbar und nur fr extreme Freaks sinnvoll. Im Normalfall kann man froh sein, eine ausgewogene Wiedergabe - in einigermaen handlichen Gehusen - bis ca. 50 Hz hinunter zu erreichen. Aber auch eine Box, die "nur" bis 80 Hz ausgewogen arbeitet, kann sehr gut klingen. Die tiefsten Tne "normaler" Musikinstrumente liegen bei ca. 40 Hz, z.B. das tiefe "E" auf der elektrischen Bagitarre. Synthesizer kommen tiefer, zugegeben. Daraus folgt, da - die Resonanzfrequenz des Gehuses bei weich aufgehngten HiFi-Chassis mglichst nicht wesentlich ber 40 Hz liegen sollte. Anderenfalls kann der Lautsprecher bei lauten und tiefen Bssen beschdigt werden. Bei sehr "hart" aufgehngten Profi-Chassis fr den Bereich Musiker/Bhne/Beschallung kommt es auf den Einsatzbereich an. Hat man den Frequenzgang des Lautsprechers vom Hersteller, und will die vorausberechnete Kurve dazu in Beziehung setzen, mu man die Methode bercksichtigen, mit welcher der Hersteller den Frequenz- gang gemessen hat. Manche messen den Lautsprecher in einer "unend- lichen Schallwand"; das ist ok. Andere messen ihn in einem ge- schlossenen Gehuse; diese Kurven lassen sich ohne weiteres nicht zum Vergleich verwenden. Wieder andere Hersteller messen schlielich gleich den in eine Bareflexbox eingebauten Lautsprecher. Dann kann man mit den (hoffentlich angegebenen) Daten des Gehuses Kontrolle rechnen und die Ergebnisse vergleichen. Die Abweichung von Berechnung und der Herstellerkurve kommt einmal von dem Lautsprecher selbst, der ja selber leider keinen idealen Frequenzgang aufweist, und zum anderen von Herstellungstoleranzen - jedes Exemplar fllt etwas anders aus. Die angegebenen Thiele-Small-Parameter haben meist eine Serienstreuung von 10% , oder auch mehr. In der Datei "Daten" sind einige Beispiele von Lautsprechern mit den wichtigen Daten enthalten. Mit den meisten davon habe ich selbst Erfahrungen gemacht, und halte die Computer-Voraussage fr einigermaen verllich. Daswardaseigentliche,ursprnglicheProgramm. Inzwischen ist einiges noch dazu gekommen. Jetzt kann man auch gnstige Gehusevolumen fr geschlossene Boxen errechnen, und sogar Exponentialhrner konstruieren. Allerdings sind diese Prozeduren nur der Vollstndigkeit halber mit eingebaut. Wer unbedingt will . . . Nein, Transmision-Line-Gehuse sind nicht dabei. Deren Nachteile sind offensichtlich: Sie sind gro, kompliziert zu bauen und was dabei herauskommt, ist nicht immer vorhersagbar. Eine TML sauber abzustimmen ist im wesentlichen: Probieren und hren. Wer's dennoch unbedingt tun will, kann das bichen Berechnung bequemer mit dem Taschenrechner erledigen. Zu beachten ist bei den geschlossenen Gehusen: Je grer der Q-Faktor im eingebauten Zustand, desto lauter, aber auch verschwommener wird der Ba. Je niedriger er ist, desto sauberer, aber auch leiser wird die Bawiedergabe. Optimaler Kompromi ist in den meisten Fllen ein Q-Faktor des eingebauten Lautsprechers von ca. 0.7 bis 1 Ntzlich und entsprechend gut ausgebaut sind die Berechnungen von Frequenzweichen. Hier werdet Ihr fter mal passen mssen, weil nicht alle Lautsprecherhersteller so freundlich sind, die dazu bentigten Daten anzugeben. Ich kann Euch nur bitten, mir zu glauben: Nur so ist es sinnvoll, eine Frequenzweiche zu berechnen. Einfach mit den angegebenen 4 oder 8 Ohm zu rechnen ist reine Glckssache; meistens geht's daneben. Sicher, Tne kommen trotzdem aus der Box . . . Trotzdem viel Erfolg! Ch. Hu `6S` Efv*oM& m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HN۞Hx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALNHz2?< NA\pdAxr0XQ)K\NNPJrBjNuHz?<&NN\NBCAp$L Qp N.9lrBlJpNN.pMN.9@pdAr 0Q0tr N|9lNNupealp`NuaNJHz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn. 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNߴpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N߀?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NߒJFkSFk&aQNߒ`Ha"FFaQL8Nf6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?Nf<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANu~NuAd RdQRB6Ce0 C/jC C@j C jr0H@{0DH@Nur{0Nu{0NutNuJj(:,af AfBfNu&<x*<NHnr$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuJjtNupN&RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`N$zEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(N ldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"Np`pNu)H9@Jp4N.P'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8NF  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.02| Copyright 1986/1987|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehlertHB9BL@@TAt )l g.A( f hgSASAgRB`9BJN.SAgNut)l g,vARC( g9CJ9|Lp!,N. FPeNutA JpBQA/)H )l gBlJpN.B Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8N.p>L8Ntp*HEAJ0?C bL000H?A/.)HpN.LrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CNF0`@k Ap0(/.NuA Nup)@JphN.LtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, N."F QNu?S@k&8L &LeBLe,C`(A? fHa)_ 2TNuBlJ`l *bl ,bH .N40S@k@>A PC/~. 0(JgRJ)@g1@CJ2fP2HP" &" *pdN.0,r W1@AJ00 piN.9|L@NpiN. _CL""pe`9| LpiN.9|LphN.LtH 2H/`SBSC@AHH/jP 6P/^P0<rtN|papapapaL/jr`S@k6@ A 9PJg8BPpfN.pgN.9| LphN.9@JfdBlJa\Q 6BB 2`NuS@k @ A 9pJg a$Bp`NuHS&I. FV 7p&Nx9l/h8,:,L/d4,pĴ@cS@9@p4,rŴAcBSA9Ar`8pJ, 7fnJ/^k0 Eg$2,/h pg  qfH9A/hpjNd`A*Nު/p"N N`NqNqN@pNCNHPN geschlossen"_NJBfNEArdNFN@pNCNHPN Quit "_NJBfNENpNCNHPNInfo"_NJBfNF,AdNFN@NlN,A큺Nnp C큺N4-NzNpJBgp/4-NzNpJBgp$fNGNN FrequenzgangNNN,+Resonanzfrequenz des Lautsprechers ( Fs ): 4N ANNN,'Vas-Volumen des Lautsprechers (Liter): N ANNN, Qt-Faktor: N A NNN,!Resonanzfrequenz der Box ( Fb ): tN ANNN Anfangsvolumen der Box in LiternN ANNNSchrittweite in LiternN AN4-NJBfNJNNNN:Vorschlag fr ein Reflexgehuse mit optimalem FrequenzgangNNNNN,+Resonanzfrequenz des Lautsprechers ( Fs ): eN ANNN,'Vas-Volumen des Lautsprechers (Liter): N ANNN, Qt-Faktor: N A NNNANޮ&<x*<NHA Nޮ&<z8<*<NL8NANANޮ&< =p8<*<NHA Nޮ& Nettovolumen der Box : ANޮ&<x*<N&<x*<NN&<x*<NlNN LiterNNN"> Resonanzfrequenz des Gehuses : ANN, HzNNNNN,Weiter mit einer Maustaste...eNNJo4-NJBfNKNNNN,Neuer Versuch mit dem gleichen Lautsprecher:NNNNN,!Resonanzfrequenz der Box ( Fb ): uN ANNN Anfangsvolumen der Box in LiternN ANNNSchrittweite in LiternN ANCA$ 0A^jNFBmBmpr N pr N prN prN NlNN,NNNN,Lnge des Tunnels in cm: N ArNNN,Volumen der Box in Litern: !N ANArNޮ&<x*<NlArNANޮ&<x*< NlANAT L0 <r$<&<x*<NNN.AxNA6NޮNANޖNJBfNMNPvN6HATNޮvN6L8NArNޖNANޖNAHNATNޮvN6&<x*<NHNPL8NABNAHNޮABNޖNfN$&<x*<N&<x*<N&<x*<NN&<x*<NlA6NATNޮ&<x*<NlATNޖNATN`A6NޮNANޖNJBfNO:NPvN6HATNޮvN6L8NArNޖNANޖNAHNATNޮvN6&<x*<NHNPL8NABNAHNޮABNޖNfN$&<x*<N&<x*<N&<x*<NN&<x*<NlA6NATNޮ&<x*<NlATNޖNATN`A6NޮNANޖNJBfNONNNN,* Resonanzfrequenz = 4A6NN HzNNNNN* Der Durchmesser mu ATNޮ&<x*< N&<x*<NN&<x*<NlNN Zentimeter betragenNATNޮvN6&<x*<NHNPL8NABNNNNN$* Das entspricht einer Flche von <r$<&<x*<NABNޖN&<x*<NN&<x*<NlNNN, QuadratzentimeterneNNNNNNN,)Soll die ffnung rechteckig sein? J/NN*CPN:HmPpJN"_NpJBgp/HmPpjN"_NpJBgpF$fNQNNNNN,Gib eine Seitenlnge in cm an: N A퀄NNNNN,* Die andere Seite mu m <r$<&<x*<NABNޖNA퀄NޖNl&<x*<NN&<x*<NlNN, Zentimeter lang seinNNlNN,NNNNNN Gewhltes Volumen (Liter): N ANN, <r$<&<x*<NfN.A퀖Npr#Np <r#NJ <^rNp <^"<NJpNb <r"Np <"<NJpNbpN pN$pN(pNt+|( -#"<\Nr -#"<cNL -NNCVN: -"<mNrAVNZ <Ѝ/p( _ѐ - o -7"<mNrNHzNZprNpN dB4NZ <r$<A퀖NޖNN.rNpN+ 34NZ <r$<A퀖NޖNN.rNpN+ 64NZ <r$<A퀖NޖNN.rNpN+ 94NZA퀖NުrNpp0NNZA퀖Nޮ&<x*<NN.rNpN- 34NZA퀖Nޮ&<x*<NN.rNpN- 64NZA퀖Nޮ&<x*<NN.rNpN- 94NZA퀖Nޮ&<x*<NN.rNpN- 12NZA퀖Nޮ&<x*<NN.rNpN- 15NZA퀖Nޮ&<x*<NN.rNpN- 18NZANޮ&<x*<NHANޮ&<x*<NL8NfABNA NޮABNޖNfHANޮ&<x*<NANޖNfL8NAHNABNޮ&<x*<NHANޮ&<x*<NA NޖNANޖNfL8NHANޮANޖNfL8NANNA Nޮ&<x*<NfHANޮ&<x*<NANޖNfL8NATNA퀢 @0 BmA6 0 <r$< A6N>ANޮA6NޖNfAZNAZNޮ&<x*<NHAZNޮ&<x*<NANNޖNL8NABNޖN&<x*<NA`NAZNޮAHNޖNHAZNޮ&<x*<NATNޖNL8N&<x*<NAfNAZNޮ&<x*<NHAfNޮA`NޖNN$L8NfANN ####N* <r$<A*NޖNANޖNA$NޖNNN:A*Nޮ&<x*<NJBfN_NN LiterNN`nNqNNA6 H0 <r$<&<x*<A6NvC$A 0A* 0 <r$<A*N>ANޮ&<x*<NHANޮ&<x*<NL8NfABNA NޮABNޖNfHANޮ&<x*<NANޖNfL8NAHNABNޮ&<x*<NHANޮ&<x*<NA NޖNANޖNfL8NHANޮANޖNfL8NANNA Nޮ&<x*<NfHANޮ&<x*<NANޖNfL8NATNANޮA6NޖNfAZNAZNޮ&<x*<NHAZNޮ&<x*<NANNޖNL8NABNޖN&<x*<NA`NAZNޮAHNޖNHAZNޮ&<x*<NATNޖNL8N&<x*<NAfNAZNޮ&<x*<NHAfNޮA`NޖNN$L8NfAANޮANޖNANN`NqNN ### Hz: 4N*A6NޮNN:4-NJBfNcNN ###.#N*pC큺NNNRNdNA* 0 <r$<A*N>NN ###.#N*A*NުC큺NNN:N`NqNq4-pJBgpF$fNdnNNNh`NqNlNN,NprN"N> Programm zur Vorausberechnung von Lautsprecher-FrequenzgngenNNprN"N4 in Bassreflexgehusen - mit ergnzenden Rechnungen.NNp rN"N& Version 2.01 vom 7.3.1990NNp rN"N,! Programmiert in GFA-Basic V 2.024NNp rN"NBDas Programm ist Public-Domain und steht hiermit der AllgemeinheitNNprN"N4unter Ausschlu jeder Gewhrleistung zur Verfgung. NNprN"N,%Die Urheberrechte bleiben beim Autor.gNNprN"N8Lob, Kritik,Verrechnungsschecks usw. bitte an den Autor:NNpr N"N, Christian HucNNpr N"N,Skarbinastrae 744NNpr N"N1000 Berlin 49NNpr7N"N, KLICK . . .4N <O"<Np <c"<&NNN&<x*<NpJBgp/NN&<x*<NpJBgp$gN,NNNN, Ein Hinweis:NNNNN,G Ich habe einige Zeit davon gelebt, Lautsprecher zu konstruieren und zu!NNN,K bauen. Dabei habe ich ber ein Jahr lang Informationen aus allen mglichen%NNN,; Quellen zusammengetragen und so meine Erfahrungen gemacht. NNNNN,E Das so angesammelte Wissen habe ich aufgeschrieben. Es ist zwar keinlNNNH richtiges Buch, aber einiges steht schon drin, was man im 'Klinger' undNNN,I hnlichen Selbstbaubchern nicht findet. (Wobei ich es mir erspart habe,!NNN: den gemeinsamen Inhalt all dieser Bcher zu wiederholen.)NNNF Auerdem enthlt es noch einige Erluterungen zum Programm. Knnte jaNNNN sein, da nicht alle schon ein bis sechs Lautsprecherbaubcher gelesen haben.NNNNNJ Wer sich dafr interessiert, kann das Heft fr DM 15,- (incl. Porto usw.)NNN beim Autor bestellen.NNN,I Bitte Betrag auf untenstehendes Konto berweisen oder Verrechnungsscheck)NNN< an den Autor - und NAMEN und ANSCHRIFT DEUTLICH SCHREIBEN !NNND Wer das Geld im Brief schickt (Risiko!), tut das auf eigene Gefahr!NNNNN,M Postgiroamt Berlin (BlnW), BLZ 100 100 10 Danke.%NNN,' Christian Hu, Kto.-Nr. 29 60 87 - 106 NNpr7N"N, KLICK . . .0N <O"<Np <c"<&NNN&<x*<NpJBgp/NN&<x*<NpJBgp$gN,NlNN,NNNN,+Resonanzfrequenz des Lautsprechers ( Fs ): 4N ANNN,'Vas-Volumen des Lautsprechers (Liter): N ANNN, Qt-Faktor: N A NNN Anfangsvolumen der Box in LiternN ANNNSchrittweite in LiternN ANNNNNNNNN,9 Im eingebauten Zustand ergeben sich folgende neue Werte: NNNNN$ Volumen des geschlossenen Gehuses:NNN, sCA$ 0A* 0 <r$<A*N>NN ####N* <r$<A*NޖNANޖNA$NޖNNN:A*Nޮ&<x*<NJBfNpNN LiterNN`nNqNNNN. Neue Resonanzfrequenz im eingebauten Zustand:NNN, aA* 0 <r$<A*N>NN ####N* <r$<A*NޖNANޖNA$NޖNANޖNf&<x*<NN$ANޖNNN:A*Nޮ&<x*<NJBfNqVNN, HzNN`BNqNNNN,! Neues Qt im eingebauten Zustand:NNN A* 0 <r$<A*N>NN #.##N* <r$<A*NޖNANޖNA$NޖNANޖNf&<x*<NN$A NޖNNN:N`|NqNlNN,NNNN,+Resonanzfrequenz des Lautsprechers ( Fs ): N ANNN,'Vas-Volumen des Lautsprechers (Liter): N ANNN, Qt-Faktor: N A NNNNNNNNN,ADas Gehusevolumen sollte zwischen folgenden Grenzwerten liegen :4NNNA Nޮ&<x*<Nf&<x*<NH <r$<L8NANޖNfA$NA Nޮ&<3338<4*<Nf&<x*<NH <r$<L8NANޖNfA퀺NNN NA$Nޮ&<x*<NNNN LiterNA퀺Nޮ&<x*<NNNN LiterNNNNN, Qt,eingebaut: N <r$<NN <3332<4$<NNNN,Resonanzfrequenz, NNN, eingebaut: 4NA$NޮANޖNf&<x*<NN$ANޖNNNN HzNA퀺NޮANޖNf&<x*<NN$ANޖNNNN HzNNNNNNN@ Achtung! Das ist natrlich nur eine ganz allgemeine Empfehlung!NNN,= Manchmal liefert diese Rechnung absurde Ergebnisse. Dann istnNNNF mglicherweise der Lautsprecher fr eine geschlossene Box ungeeignet.NNlNN,NNNN,9 Zur Berechnung werden der Gleichstromwiderstand (Re) undxNNN,1 die Induktivitt (L) der Schwingspule bentigt !(NHxN Na, und ? nHPNHab ich!| Mist ! er"_ NANANޮ&<x*<NJBfN~HxN Flankensteilheit whlen: HPN6 dB/Okt|12db/Okt|18dB/Oktr"_ NANNNNNNN, Gleichstromwiderstand in Ohm N ANNN, Induktivitt in mH nN ANNN Grenzfrequenz in Hz N ANNPN.ANޖNANޖN&<x*< NlANANޮ&<x*<NHANޮ&<x*<NL8NN$ANANޮ&<x*<NJBfNzNPN.ANޖNANޖN&<x*<NfH <r$<&<x*<NL8N&<x*<NN&<x*<NlANNNNN HOCHPASSFILTER mit 6 dB/Oktave:NNNNN2 Der Kondensator sollte eine Kapazitt von ANp N <NNN, F haben.4Nt;BBmBmANޮ&<x*<NJBfN{ANFBmt;BBmANޮ&<x*<NJBfN~NP&<x*<NANޖNANޖN&<x*<NfH <r$<&<x*<NL8N&<x*<NN&<x*<NlANNPANޖNANޖN&<x*<NfH <r$<&<x*<NL8N&<x*<NN&<x*<NlANANޮ&<x*<NHNPvN6ANޖNL8NfH <r$<&<x*<NL8N&<x*<NN&<x*<NlANNNNN,! HOCHPASSFILTER mit 18 dB/Oktave:NNNNN2 Der erste Kondensator sollte eine Kapazitt von ANp N <NNpFNNNN2 die Drosselspule sollte eine Induktivitt von ANN, mH!NNN,3 der zweite Kondensator sollte eine Kapazitt von !ANp N <NNNF haben.NNNNND Den nchsten kuflichen Wert nehmen; im Zweifelsfalle den greren.NBmBmt;Bt;BBmN~N,NlNN,NNNN,9 Zur Berechnung werden der Gleichstromwiderstand (Re) undnNNN,1 die Induktivitt (L) der Schwingspule bentigt !(N4-NJBfN(NND Fr die Berechnung der Impedanzentzerrung auerdem die Leistung desNNN,7 zu beschaltenden Einzellautsprechers (z.B. Tieftner). NHxN Na, und ? eHPNHab ich!| Mist ! sr"_ NANN,ANޮ&<x*<NJBfNHxN Flankensteilheit whlen: HPN6 dB/Okt|12db/Okt|18dB/Oktr"_ NANN,NNNN, Gleichstromwiderstand in Ohm N ANNN, Induktivitt in mH nN ANNN Grenzfrequenz in Hz N AN4-NJBfNNN, Lautsprecherleistung in Watt 4N ADNNPN.ANޖNANޖN&<x*< NlANANޮ&<x*<NHANޮ&<x*<NL8NN$ANANޮ&<x*<NANޖNfH <r$<&<x*<NL8N&<x*<NN&<x*<NlANANޮ&<x*<NJBfN4-NJBfNNPN.ANޖNANޖNfH <r$<&<x*<NL8N&<x*<NN&<x*<NlANNNPN.ANޖNANޖNfH <r$<&<x*<NL8N&<x*<NN&<x*<NlANNNNN TIEFPASSFILTER mit 6 dB/Oktave:NNNNN2 Die Drosselspule sollte eine Induktivitt von ANN, mH haben.4NNND Den nchsten kuflichen Wert nehmen; im Zweifelsfalle den greren.NNN4-NJBfNNN Impedanzentzerrung mit R=ANN, Ohm und C=lANp N <NNpFNNNNN6 Impedanzentzerrung ist hier besonders empfehlenswert!Nt;BBmBmANޮ&<x*<NJBfNANF4-NJBfNNNNN Impedanzentzerrung mit R=ANN, Ohm und C=rANޮ&<x*<NANޖNfH <r$<&<x*<NL8N&<x*<NN&<x*<NlNp N <NNpFNNBmt;BBmANޮ&<x*<NJBfNj4-NJBfNANޮ&<x*<NHNPvN6ANޖNL8NfH <r$<&<x*<NL8N&<x*<NN&<x*<NlANNPvN6ANޖNANޖNfH <r$<&<x*<NL8N&<x*<NN&<x*<NlANNP&<x*<NANޖNANޖN&<x*<NfH <r$<&<x*<NL8N&<x*<NN&<x*<NlANNANޮ&<x*<NHNPvN6ANޖNL8NfH <r$<&<x*<NL8N&<x*<NN&<x*<NlANNPvN6ANޖNANޖNfH <r$<&<x*<NL8N&<x*<NN&<x*<NlANNP&<x*<NANޖNANޖN&<x*<NfH <r$<&<x*<NL8N&<x*<NN&<x*<NlANNNNN,! TIEFPASSFILTER mit 18 dB/Oktave:NNNNN8 Die erste Drosselspule sollte eine Induktivitt von ANN, mHNNN8 der Kondensator sollte eine Kapazitt von ANp N <NNpFNNNN8 die zweite Drosselspule sollte eine Induktivitt von ANN mH haben.NNNNND Den nchsten kuflichen Wert nehmen; im Zweifelsfalle den greren.N4-NJBfN\NNNN Impedanzentzerrung mit R=ANN, Ohm und C=lANޮ&<x*<NANޖNfH <r$<&<x*<NL8N&<x*<NN&<x*<NlNp N <NNpFNNBmBmt;B4-NJBfNANޮ&<x*< NJBfNANޮ&<x*<NlN&<x*<NA>NA>Nޮ&<x*<Nl&<x*<NADNޖN&<x*<NNA>NNPN.ANޖNHANޮ&<x*<NH <r$<&<x*<NL8NANޖNfL8N&<x*<NfANޖNANޖNfA>NޖNA>NANޮ&<x*< NJBfNZANޮ&<x*< NlN&<x*<NH <r$<L8NA>NA>Nޮ&<x*<Nl&<x*<NADNޖN&<x*<NNA>NNPN.ANޖNHANޮ&<x*<NH <r$<&<x*<NL8NANޖNfL8N&<x*<NfANޖNANޖNfA>NޖNA>NNN& Widerstand 'R' sollte mindestens mit A>Nޮ&<x*<NNNN, Watt belastbar sein.Nt;BBmNN,NlN4-NJBfN$ <r$<N$ANޖNHNPN.ANޖNL8NfH <r$<&<x*<NL8N&<x*<NN&<x*<NlAN <r$<N$HNPvN6ANޖNANޖNL8NfH <r$<&<x*<NL8NN&<x*<NlANNH <r$<N$ANޖNHNPN.ANޖNL8NfH <r$<&<x*<NL8N&<x*<NN&<x*<NlAN <r$<N$HNPvN6ANޖNANޖNL8NfH <r$<&<x*<NL8NN&<x*<NlANNNNN& Hoch- oder Tiefpass mit 12 dB/Oktave:NNNNN2 Die Drosselspule sollte eine Induktivitt von ANN, mH haben.4NNN2 Der Kondensator sollte eine Kapazitt von ANp N <NNN, F haben.4NNNNND Den nchsten kuflichen Wert nehmen; im Zweifelsfalle den greren.NNlNN,pN,pN0?<X?<?<X?<?<?<?<?<?<X?<~N <"<Np <"<NprNpp"<NJp"<Npp-"<Np"<Npp-"<NANޮNHPp N"_NHP <N"_NHPpFN"_NCzN:pFrnNpAzNZ4-NJBfNp"<Npp"<@NJ?<J?<?<?<?<?<~Np"<@Npp-"<BNp"<HNpp-"<JNANޮNHPp N"_NHP <N"_NHPpFN"_NC큒N:pF"<,NpA큒NZN?<?<?<?<?<?<~N?<?<?<?<TBg?<T~N4-pJBgp/4-pJBgp$fNrp"<Nppd"<NJ <"<Np <T"<NJpd"<Np <"<NANޮNHPN mH"_NC큆N: <"<NpA큆NZNlNN,pN,pN0?<X?<?<X?<?<?<?<?<?<X?<~N <"<Np <"<N <"<NpN Lautsprecher-4NZ <"<NpN impedanz:4NZ <("<NpANޮ&<x*<N&<x*<NN&<x*<NlNHPp N"_NHP <N"_NNZ <8"<NpNbei HPANޮN"_NHPN Hz"_NNZprNpprZNJprZNpp-"<NANޮNC큆N:pFrnNpHmN mH4"_NNZ4-NJBfNp"<Npp"<NJ?<h?<?<?<?<?<~Np"<Npp-"<hNANޮNHPN mH"_NC큀N:pF"<,NpA큀NZN?<?<?<?<?<?<~N?<?<?<?<TBg?<T~N4-pJBgp/4-pJBgp$fNp"<Np <"<NJ <"<Np <T"<NJ <"<Np <"<N <"<Np <"<NANޮNCzN: <"<NpHmzp N"_NHP <N"_NHPpFN"_NNZ4-NJBfNRp"<NppZ"<NJpZ"<Np <"<NANޮNC큌N: <"<NpHmp N"_NHP <N"_NNZNmin. HPA>Nޮ&<x*<NNN"_NHPN Watt4"_NC큘N: <"<NpA큘NZ <"<Np <"<NJ <"<Np <T"<NJ <"<Np <"<N < "<Np <"<NANޮ&<x*<NANޖNfH <r$<&<x*<NL8N&<x*<NN&<x*<NlNC큒N: <""<NpHmp N"_NHP <N"_NHPpFN"_NNZNlNANA NA&NA,NANN,NNNN8 Aus Vorgaben fr Lnge, Anfangs- und EndffnungsflcheNNN,) die theoretische Grenzfrequenz ermitelndNNN, ( 10 000 cmi <NNN = 1 m <NNN )NNNNN, Trichterlnge in Zentimetern =N AN <Ѝ/ <r$< _NBNN& Anfangsflche in Quadratzentimetern N A N < Ѝ/ <r$<&<x*<N _NBNN,' Mndungsflche in Quadratzentimetern !N A&N <&Ѝ/ <r$<&<x*<N _NBNNNNA NޮA&NޖNfNANޖNlA2NA2Nޮ&<x*<NHNPvN6L8Nf&<x*<NNANNN6 Theoretische Grenzfrequenz fr Exponentialtrichter: ANN, Hz4NNlANA NA&NANN,NNNN@ Aus Vorgaben fr Grenzfrequenz, Anfangs- und EndffnungsflcheNNN( die notwendige Trichterlnge ermittelnNNN, ( 10 000 cmi <NNN = 1 m <NNN )NNNNN Grenzfrequenz N ANNN& Anfangsflche in Quadratzentimetern N A N < Ѝ/ <@r$< _NBNN& Mndungsflche in QuadratzentimeternN A&N <&Ѝ/ <@r$< _NBNNNNA NޮA&NޖNfN&<x*<NHNPvN6ANޖNL8Nf&<x*<N&<x*<NN&<x*<NlANNN( Mindestlnge des Exponentialtrichters: ANޮ&<x*<NNN, Zentimeter4NNlNA NANANA8NANA2NN,NNNN@ Tabelle der Querschnitts(flchen!)erweiterungen im Verlauf des NNN,G Exponentialtrichters, ausgehend von der Anfangsffnung (Lautsprecher).4NNNNN,3 Anfangsflche des Trichters in Quadratzentimetern nN A N < Ѝ/ <@r$< _NBNN, Grenzfrequenz des Trichters iN ANNN$ Lnge des Trichters in Zentimetern N AN <Ѝ/ <r$< _NBN,NN Grenzfrequenz: ANN, HztNNN4 Anfangsflche des Trichters in Quadratzentimetern: <r$<&<x*<NA NޖNNNNNANޮ&<x*<NJBfNA L0ANޮ&<x*<NJBfNJA L0ANޮ&<8<*<NJBfN~A # =0qANޮ&<x*<NJBfNANޮ&<x*<NlNANNPvN6ANޖN&<x*<NlA2NBmz6.\jH>>J@*FnB.tDn6dlv$d,`p`242 ******************************************************************** Deze diskette is samengesteld door de Stichting ST, Postbus 11129, 2301 EC Leiden. Onze bibliotheek van public domain programma's omvat op dit moment (zomer 1990) al zo'n vier honderdvijftig disks. Daarop vindt u programma's op elk gebied, van tekstverwerker en database tot de leukste spelletjes, de fraaiste tekenprogramma's en de handigste utilities. Ook bevat onze bibliotheek een speciale afdeling voor public domain disks met Macintosh software, die te gebruiken zijn onder de ALADIN emulator. Deze MAC-PD serie bevat tot nu toe ongeveer vijfendertig disks. ******************************************************************** U vindt in het twee maandelijks tijdschrift "ST" (Onafhankelijk tijd- schrift van en voor gebruikers van Atari ST computers) een overzicht en een bespreking van de inhoud van de nieuwe public-domain diskettes. Dit tijdschrift bevat tevens een bestelkaart zodat U vlot over de software kunt beschikken. De Stichting ST geeft ook een speciale PD catalogus disk uit. Deze public domain disk is geproduceerd en gedistribueerd door: ************** Stichting ST afd. Software Bakkersteeg 9A 2311 RH LEIDEN ************** Ondanks onze controle komt het af en toe voor dat een diskje niet goed is gecopieerd.Mocht U dit overkomen, aarzel dan niet en stuur de defecte disk aan ons terug. U krijgt dan direct een vervangende disk toegestuurd. ************************************************************************ Teneinde het voor ons mogelijk te maken om productiefouten op te sporen en vervolgens in de toekomst te vermijden, zijn alle disks, geproduceerd door de Stichting ST, voorzien van een groen productienummer. ************************************************************************