Elektrotechnisches Zeichnen mit dem VC 20
Dieses Programm unterstützt den Hobby-Elektroniker beim Entwurf von Schaltplänen. Gezeichnet wird mit dem Joystick, wobei zusätzlich eine Reihe von vordefinierten, elektrotechnischen und alphanumerischen Symbolen eingefügt werden kann.
Das Programm läuft auf jedem VC 20 mit mindestens 8 KByte Erweiterung. Zur Speicherung der Schaltpläne benötigt man eine 1541-Floppy; die Hardcopy-Routine ist für den MPS 801-Drucker geschrieben. Vor dem Abtippen muß der Zeiger für den Basic-Start verändert werden, um Platz für die hochauflösende Grafik und das Maschinenprogramm zu schaffen. Das geschieht mit
POKE44,36:POKE36 * 256,0:NEW
Jetzt wird zunächst der Basic-Lader nach Listing 1 eingetippt und vorsichtshalber sofort abgespeichert. Nach einwandfreiem Lauf des Laders kann anschließend der Basic-Teil (Listing 2) abgetippt werden. Sollte jedoch nach dem Start des Basic-Laders ein Fehler aufgetreten sein, so müssen die DATAs noch einmal überprüft werden.
Zu beachten ist, daß das Maschinenprogramm vor dem Start gesichert wird, denn vor dem Abtippen des Basic-Teils wird das Ladeprogramm mit »NEW« gelöscht. Nachdem nun auch der Basic-Teil vorhanden ist, kann das Programm endlich mit »RUN« gestartet werden.
Es erscheint auf dem Bildschirm ein Menü (Bild 1). Zunächst muß der Name der zu ladenden Zeichnung eingegeben werden. Wenn eine neue Zeichnung erstellt werden soll, so braucht man an dieser Stelle nur RETURN drücken. Danach wird der Name abgefragt, unter dem die Zeichnung abgespeichert werden soll. Wenn beide Eingaben gemacht wurden, erscheint die Zeichenfläche. Auf ihr kann nun mit dem Joystick gezeichnet werden. Bei gedrücktem Feuerknopf werden bereits gezeichnete Punkte wieder gelöscht. Wird der Bildschirmrand überschritten, springt der Zeichenpunkt immer in die linke obere Ecke.
Die weiteren Funktionen können nur über die Tastatur erreicht werden:
- (1) ← Löschen des Bildschirms (komplett)
- (2) ↑ Directory (ohne Zerstörung des Programms)
- (3) RETURN Menü (Grafik geht verloren)
- (4) CTRL Schaltet von Elektrozeichen auf alphanumerische Zeichen
- (5) SHIFT+CTRL Macht (4) rückgängig
- (6) C= + CTRL Löscht einen bestimmten Ausschnitt der Zeichenfläche.
Im Normalmodus können über die Tasten 1 bis 0 und SHIFT 1 bis 0 elektrotechnische Zeichen abgerufen werden (Bild 2). Nachdem die entsprechende Taste gedrückt ist, wird mit den Funktionstasten die Lage des Zeichens festgelegt:
- F1 = Bauteilanschluß oben
- F3 = Bauteilanschluß links
- F5 = Bauteilanschluß unten
- F7 = Bauteilanschluß rechts
Nach dem Drücken der entsprechenden Funktionstaste erscheint das Bauteil auf dem Bildschirm. Mit Hilfe des Joysticks können nun Verbindungslinien gezogen werden. Wenn in den Alphamodus umgeschaltet wurde, stehen die Buchstaben (A bis Z), die Ziffern (0 bis 9) und drei Sonderzeichen zur Verfügung (Bild 2). Die Sonderzeichen sind µ ([), Ω (]) und + (£). Alle Alphazeichen werden nach dem gleichen Verfahren wie die elektrotechnischen Zeichen auf den Bildschirm gebracht undkönnen daher auch in allen vier Lagen (F1, F3, F5, F7) dargestellt werden. Ein fertiger Schaltplan kann über die Funktionstaste F1 auf dem Drucker in einfacher (anschließend 1 drücken) oder in doppelter (anschließend 2 drücken) Größe ausgegeben werden. Durch Betätigen von F6 wird das Bild unter dem zu Anfang angegebenen Namen abgespeichert. Über F4 kann das Bild jederzeit wieder geladen werden.
Da das Löschen größerer Teile einer Zeichnung mit Hilfe des Joysticks normalerweise eine Geduldsaufgabe ist, wurde eine Funktion zum einfachen Löschen von Bildteilen vorgesehen. Das funktioniert wie folgt: Als erstes werden die Tasten C= und CTRL gleichzeitig gedrückt. Daraufhin ertönt ein ständiges Tonsignal. Jetzt kann mit dem Joystick der zu löschende Ausschnitt eingekreist werden (Bild 3). Um die »Löschlinie« von den anderen zu unterscheiden, wird sie gestrichelt dargestellt. Durch Drücken von F8 wird der markierte Ausschnitt schließlich gelöscht. Um das Erkennen der verschiedenen Betriebsarten des Programms zu erleichtern, werden unterschiedliche Rahmenfarben zur Kennzeichnung verwendet:
| grün: | Normal- und Zeichenmodus |
| gelb: | Alphamodus |
| rot: | Bildschirmausdruck |
| blau: | Bild von Disk laden |
| violett: | Bild auf Disk speichern |
| schwarz: | Disk Error |
Aus Geschwindigkeitsgründen wurden die Routinen für die hochauflösende Grafik, die Joystickabfrage, die Bewegungsberechnung und die Druckerausgabe in einem Maschinenprogramm zusammengefaßt (Listing 1). Diese Routinen liegen von $2000 (8192) bis $24FF (9471) im Speicher des VC 20. Wer auf die alphanumerischen Symbole verzichten will, der kann die Zeilen 30000 bis 35470, 7000 bis 7020, 5165, 5166, 420, 410 weglassen und erspart sich damit einige Tipparbeit. Das Programm läuft dann nur mit den elektrotechnischen Symbolen.
Bild 3 zeigt den Ausdruck eines mit diesem Programm erzeugten Schaltplanes. Bei der praktischen Arbeit werden Sie feststellen, daß es zu Anfang nicht ganz einfach ist, derart komplexe Zeichnungen auf Anhieb korrekt anzufertigen. Der große Vorteil dieses Programms liegt aber in der Änderungsfreundlichkeit und der beliebigen Reproduzierbarkeit der Zeichnungen.
(Elmar Baer/ev)
| Zeile | 11 - | 120 | Parameter setzen |
| Zeile | 200 - | 260 | Hauptteil (Punkte setzen & löschen; Tastatur abfragen; Überschreiten des Randes registrieren) |
| Zeile | 400 - | 490 | Unterprogramm Abfrage der Funktionen (CLR, Zeichen holen, Directory und so weiter) |
| Zeile | 500 | Tonausgabe | |
| Zeile | 800 - | 870 | Funktionstastenabfrage (Speichern, Laden, Ausdruck, Richtungsangabe) |
| Zeile | 900 | Plotten der Zeichen & Symbole | |
| Zeile | 1000 - | 1390 | Bauteil mit entsprechender Richtung plotten |
| Zeile | 4000 - | 4030 | Maximal & Minimalwerte zum CLR festlegen |
| Zeile | 4040 - | 4100 | Ausschnitt löschen |
| Zeile | 5000 - | 5210 | Menü und Eingabe des Bildnamens |
| Zeile | 6000 - | 6010 | Floppyfehlerabfrage |
| Zeile | 7000 - | 7020 | Begrenzung der Eingabe (a-], 1-0) |
| Zeile | 9000 - | 9170 | Directory von Disk holen |
| Zeile | 19999 - | 20920 | Koordinaten für die elektrotechnischen Symbole |
| Zeile | 30000 - | 35470 | Koordinaten für die alphanumerischen |
|
10 rem********************* 15 rem* * 20 rem* e. zeichnen * 25 rem* * 30 rem* elmar baer * 35 rem* starenschleife 59 * 40 rem* 4700 hamm 1 * 45 rem* tel. 02381/81959 * 50 rem* * 55 rem* m.-teil * 60 rem********************* 65 fort=8196to9177:reada:poket,a:b=b+a:next 70 ifb<>111788thenprint"fehler":end 75 print"lade den basic teil" 76 data32,253,206,32,209,225,162,0,160,32,169,0,133,253,169,17,133,254,169 77 data253,133,185,76,216,255,32,253,206,32,209,225,169,1,133,185,169,0 78 data76,213,255,169,12,141,0,144,169,22,141,2,144,169,174,141,3,144,169 79 data192,141,5,144,96,234,234,234,234,234,234,169,6,162,0,157,0,148,232 80 data224,230,208,248,96,169,17,141,102,32,169,0,141,101,32,162,0,160,0 81 data169,0,153,241,31,200,192,255,208,248,24,173,101,32,105,255,141,101 82 data32,173,102,32,105,0,141,102,32,232,224,15,208,222,96,234,234,234 83 data234,234,234,96,169,128,44,169,0,133,151,32,253,206,32,158,215,224 84 data168,176,238,134,20,32,253,206,32,158,215,224,176,176,226,138,74,74 85 data74,74,10,168,185,14,33,141,107,33,185,15,33,141,108,33,138,41,15 86 data24,109,107,33,141,107,33,169,0,141,106,33,165,20,41,248,10,141,105 87 data33,144,4,238,106,33,24,169,0,109,107,33,133,253,169,17,109,108,33 88 data133,254,24,165,253,109,105,33,133,253,165,254,109,106,33,133,254 89 data165,20,41,7,73,7,170,189,36,33,160,0,36,151,16,5,73,255,49,253,44 90 data17,253,145,253,96,0,0,80,1,160,2,240,3,64,5,144,6,224,7,48,9,128 91 data10,208,11,32,13,1,2,4,8,16,32,64,128,169,151,141,3,144,169,21,141 92 data2,144,169,204,141,5,144,169,14,141,0,144,162,16,138,157,240,15,169 93 data6,157,240,147,232,208,244,96,162,3,32,198,255,32,207,255,32,210,255 94 data208,248,169,13,32,210,255,76,204,255,234,234,234,234,234,160,0,47 95 data13,234,234,234,234,234,234,234,234,169,127,141,34,145,173,32,145 96 data41,128,133,251,169,255,141,34,145,173,31,145,41,28,24,101,251,133 97 data251,173,31,145,41,32,133,252,96,173,141,2,201,0,240,2,96,234,166 98 data251,160,0,224,28,240,63,224,140,240,69,224,136,240,23,224,132,240 99 data27,160,1,224,152,240,55,224,148,240,41,224,24,240,29,224,20,240,17 100 data96,32,242,33,160,1,76,242,33,32,242,33,160,1,76,232,33,32,232,33 101 data160,0,76,232,33,32,242,33,160,0,76,232,33,24,185,60,3,101,255,153 102 data60,3,96,185,60,3,229,255,153,60,3,96,72,138,72,152,72,32,28,34,76 103 data178,254,169,10,141,14,144,169,192,141,12,144,170,168,136,208,253 104 data202,208,250,142,14,144,96,216,160,0,162,17,181,0,148,0,72,202,16 105 data248,173,5,144,170,41,7,10,10,10,133,8,138,41,8,208,1,56,102,8,173 106 data2,144,168,41,127,133,9,152,41,128,240,1,56,138,41,112,144,2,9,8,74 107 data133,17,138,41,128,208,1,56,102,17,173,3,144,41,127,74,38,12,240,1 108 data10,10,10,10,133,10,169,128,133,2,32,6,34,32,159,255,165,197,201,56 109 data240,25,201,0,240,21,201,15,240,14,201,62,208,235,169,173,141,24,3 110 data169,254,141,25,3,76,197,35,133,13,32,6,34,32,159,255,169,60,234,234 111 data234,234,234,234,234,234,133,11,24,169,4,170,160,255,32,186,255,169 112 data0,133,198,32,189,255,32,192,255,162,4,32,201,255,176,207,169,8,32 113 data210,255,169,13,32,210,255,24,165,9,133,7,165,3,101,0,133,5,197,10 114 data144,4,169,0,240,92,166,12,240,1,74,74,74,74,133,6,169,0,133,15,133 115 data16,162,8,70,7,144,3,24,101,6,106,102,15,202,208,243,24,101,17,133 116 data16,24,165,1,101,15,133,15,138,101,16,133,16,161,15,133,15,134,16 117 data24,169,3,101,12,168,138,70,5,106,6,15,38,16,136,208,246,164,12,208 118 data1,74,74,74,74,74,101,15,133,15,165,8,101,16,133,16,161,15,24,36,2 119 data240,1,56,102,4,230,3,160,6,196,3,176,58,134,3,165,4,166,13,240,22 120 data24,169,4,101,14,170,70,4,8,106,40,106,202,208,247,166,14,208,3,70 121 data4,106,162,4,228,11,208,2,73,255,56,106,133,4,32,210,255,166,13,240 122 data5,165,4,32,210,255,70,2,176,3,76,205,34,102,2,230,1,165,9,197,1,208 123 data243,160,0,132,1,169,13,32,210,255,165,13,240,14,165,14,208,6,169 124 data4,133,14,208,220,169,0,133,14,24,165,0,105,7,133,0,165,5,197,10,144 125 data203,169,15,32,210,255,169,13,32,210,255,32,204,255,169,4,32,195,255 126 data162,0,134,198,104,149,0,232,224,18,48,248,96
10 REM ********************* 15 REM * * 20 REM * E. ZEICHNEN * 25 REM * * 30 REM * ELMAR BAER * 35 REM * STARENSCHLEIFE 59 * 40 REM * 4700 HAMM 1 * 45 REM * TEL. 02381/81959 * 50 REM * * 55 REM * M.-TEIL * 60 REM ********************* 65 FOR T=8196 TO9177:READ A:POKE T,A:B=B+A:NEXT 70 IF B<>111788 THENPRINT"FEHLER":END 75 PRINT"LADE DEN BASIC TEIL" 76 DATA 32,253,206,32,209,225,162,0,160,32,169,0,133,253,169,17,133,254,169 77 DATA 253,133,185,76,216,255,32,253,206,32,209,225,169,1,133,185,169,0 78 DATA 76,213,255,169,12,141,0,144,169,22,141,2,144,169,174,141,3,144,169 79 DATA 192,141,5,144,96,234,234,234,234,234,234,169,6,162,0,157,0,148,232 80 DATA 224,230,208,248,96,169,17,141,102,32,169,0,141,101,32,162,0,160,0 81 DATA 169,0,153,241,31,200,192,255,208,248,24,173,101,32,105,255,141,101 82 DATA 32,173,102,32,105,0,141,102,32,232,224,15,208,222,96,234,234,234 83 DATA 234,234,234,96,169,128,44,169,0,133,151,32,253,206,32,158,215,224 84 DATA 168,176,238,134,20,32,253,206,32,158,215,224,176,176,226,138,74,74 85 DATA 74,74,10,168,185,14,33,141,107,33,185,15,33,141,108,33,138,41,15 86 DATA 24,109,107,33,141,107,33,169,0,141,106,33,165,20,41,248,10,141,105 87 DATA 33,144,4,238,106,33,24,169,0,109,107,33,133,253,169,17,109,108,33 88 DATA 133,254,24,165,253,109,105,33,133,253,165,254,109,106,33,133,254 89 DATA 165,20,41,7,73,7,170,189,36,33,160,0,36,151,16,5,73,255,49,253,44 90 DATA 17,253,145,253,96,0,0,80,1,160,2,240,3,64,5,144,6,224,7,48,9,128 91 DATA 10,208,11,32,13,1,2,4,8,16,32,64,128,169,151,141,3,144,169,21,141 92 DATA 2,144,169,204,141,5,144,169,14,141,0,144,162,16,138,157,240,15,169 93 DATA 6,157,240,147,232,208,244,96,162,3,32,198,255,32,207,255,32,210,255 94 DATA 208,248,169,13,32,210,255,76,204,255,234,234,234,234,234,160,0,47 95 DATA 13,234,234,234,234,234,234,234,234,169,127,141,34,145,173,32,145 96 DATA 41,128,133,251,169,255,141,34,145,173,31,145,41,28,24,101,251,133 97 DATA 251,173,31,145,41,32,133,252,96,173,141,2,201,0,240,2,96,234,166 98 DATA 251,160,0,224,28,240,63,224,140,240,69,224,136,240,23,224,132,240 99 DATA 27,160,1,224,152,240,55,224,148,240,41,224,24,240,29,224,20,240,17 100 DATA 96,32,242,33,160,1,76,242,33,32,242,33,160,1,76,232,33,32,232,33 101 DATA 160,0,76,232,33,32,242,33,160,0,76,232,33,24,185,60,3,101,255,153 102 DATA 60,3,96,185,60,3,229,255,153,60,3,96,72,138,72,152,72,32,28,34,76 103 DATA 178,254,169,10,141,14,144,169,192,141,12,144,170,168,136,208,253 104 DATA 202,208,250,142,14,144,96,216,160,0,162,17,181,0,148,0,72,202,16 105 DATA 248,173,5,144,170,41,7,10,10,10,133,8,138,41,8,208,1,56,102,8,173 106 DATA 2,144,168,41,127,133,9,152,41,128,240,1,56,138,41,112,144,2,9,8,74 107 DATA 133,17,138,41,128,208,1,56,102,17,173,3,144,41,127,74,38,12,240,1 108 DATA 10,10,10,10,133,10,169,128,133,2,32,6,34,32,159,255,165,197,201,56 109 DATA 240,25,201,0,240,21,201,15,240,14,201,62,208,235,169,173,141,24,3 110 DATA 169,254,141,25,3,76,197,35,133,13,32,6,34,32,159,255,169,60,234,234 111 DATA 234,234,234,234,234,234,133,11,24,169,4,170,160,255,32,186,255,169 112 DATA 0,133,198,32,189,255,32,192,255,162,4,32,201,255,176,207,169,8,32 113 DATA 210,255,169,13,32,210,255,24,165,9,133,7,165,3,101,0,133,5,197,10 114 DATA 144,4,169,0,240,92,166,12,240,1,74,74,74,74,133,6,169,0,133,15,133 115 DATA 16,162,8,70,7,144,3,24,101,6,106,102,15,202,208,243,24,101,17,133 116 DATA 16,24,165,1,101,15,133,15,138,101,16,133,16,161,15,133,15,134,16 117 DATA 24,169,3,101,12,168,138,70,5,106,6,15,38,16,136,208,246,164,12,208 118 DATA 1,74,74,74,74,74,101,15,133,15,165,8,101,16,133,16,161,15,24,36,2 119 DATA 240,1,56,102,4,230,3,160,6,196,3,176,58,134,3,165,4,166,13,240,22 120 DATA 24,169,4,101,14,170,70,4,8,106,40,106,202,208,247,166,14,208,3,70 121 DATA 4,106,162,4,228,11,208,2,73,255,56,106,133,4,32,210,255,166,13,240 122 DATA 5,165,4,32,210,255,70,2,176,3,76,205,34,102,2,230,1,165,9,197,1,208 123 DATA 243,160,0,132,1,169,13,32,210,255,165,13,240,14,165,14,208,6,169 124 DATA 4,133,14,208,220,169,0,133,14,24,165,0,105,7,133,0,165,5,197,10,144 125 DATA 203,169,15,32,210,255,169,13,32,210,255,32,204,255,169,4,32,195,255 126 DATA 162,0,134,198,104,149,0,232,224,18,48,248,96
|
11 rem***************
12 rem* e. zeichnen *
13 rem* *
14 rem* elmar baer *
15 rem* *
20 rem* *
21 rem* basic teil *
22 rem***************
50 print"{clr}":poke36879,29:printchr$(8)
60 lt=36878:mt=36876:r=230:j=30
100 dimh$(30),nl(70),z$(70):gosub20000
110 xm=0:xn=168:ym=0:yn=176:poke828,80:poke829,80:fy=174:fu=1:fx=166:fp=36879:gosub5000
120 poke255,1:sys8492:sys8276:sys8263:poke650,128
200 sys8565:q=peek(653):sys8600:y=peek(829):x=peek(828)
210 ify<fuory>fyorx<fuorx>fxthenpoke828,10:poke829,10:r=160:gosub500
220 sys8333,x,y
230 geta$:ifa$<>""orq<>0orqw=1thengosub400
240 ifpeek(252)=0thensys8330,x,y:goto200
250 sys8333,x,y:goto200
260 goto200
400 ifa$="_"thensys8276:gosub500
410 ifq=5thenww=0:pokefp,29
420 ifq=4orww=2then7000
430 ifa$>"/"anda$<":"andq=0thenn=val(a$)
440 ifa$>" "anda$<":"andq=1thena$=chr$(asc(a$)+16):n=val(a$)+10
450 ifa$>chr$(132)anda$<chr$(141)thengosub800
460 ifq=6orqw=1thengosub500:gosub4000
470 ifa$=chr$(13)thengosub500:goto5000
480 ifa$="^"then9100
490 return
500 pokelt,8:pokemt,230:foryy=0to50:next:pokemt,0:r=230:return
800 ifa$=chr$(137)thenpokefp,26:gosub970:sys8732:pokefp,29
810 ifa$=chr$(133)then1020
820 ifa$=chr$(134)then1120
830 ifa$=chr$(135)then1220
840 ifa$=chr$(136)then1320
850 ifa$=chr$(138)thenpokefp,j:gosub960:sys8221,"e-z"+fl$,8:gosub950:gosub6000:pokefp,29
860 ifa$=chr$(139)thenpokefp,28:gosub970:sys8196,"@:e-z"+f$,8:gosub6000:pokefp,29
870 return
900 x1=x+zx:y1=y+zy:sys8333,x1,y1:return
950 poke828,10:poke829,10:return
960 sys8330,x,y:x=10:y=x:return
970 sys8330,x,y:return
1000 rem anschluss oben
1020 fort=1tonl(n)step4:zx=val(mid$(z$(n),t,2)):zy=val(mid$(z$(n),t+2,2)):gosub900:next
1090 goto870
1100 rem anschluss rechts
1120 fort=1tonl(n)step4:zy=val(mid$(z$(n),t,2)):zx=val(mid$(z$(n),t+2,2)):gosub900:next
1190 goto870
1200 rem anschluss unten
1220 fort=1tonl(n)step4:zx=val(mid$(z$(n),t,2))*-1:zy=val(mid$(z$(n),t+2,2))*-1:gosub900
1290 next:goto870
1300 rem anschluss links
1320 fort=1tonl(n)step4:zy=val(mid$(z$(n),t,2))*-1:zx=val(mid$(z$(n),t+2,2))*-1:gosub900
1390 next:goto870
4000 ifxm<xthenxm=x
4010 ifxn>xthenxn=x
4020 ifyn>ythenyn=y
4030 ifym<ythenym=y
4040 qw=1:poke255,3:fx=164:fy=172:fu=4
4050 geta$:ifa$<>chr$(140)thenreturn
4060 fort=yntoym:fortt=xntoxm:sys8330,tt,t:next:next:xm=0:xn=168:ym=0:yn=176:qw=0
4100 fy=175:fx=167:fu=1:poke255,1:return
5000 sys8236
5100 print"{clr}{rvon}{red} elektro-zeichnen {rvof}{blu}"
5110 print"f1 anschluss oben"
5120 print"f3 anschluss rechts"
5130 print"f5 anschluss unten"
5140 print"f7 anschluss links"
5145 print"f8 clr auschnitt"
5146 print"f2 hardcopy"
5150 print"f4 laden bild"
5160 print"f6 saven bild"
5165 print"{down}ctrl alpha ein"
5166 print"ctrl+sh alpha aus"
5168 print"^ directory"
5170 print"_ loeschen "
5174 print"return start"
5175 print"ctrl+c= clr festlegen"
5180 print" 1-0 e. symbole"
5190 print"sh 1-0 e. symbole"
5195 input"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}filenname {rvon}l{rvof}";fl$:iflen(fl$)>13then5195
5200 input"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}filenname {rvon}{pur}s{rvof}{blu}";f$:iflen(f$)>13then5200
5210 sys8492:goto120
6000 open15,8,15:input#15,a:ifa>20thenpokefp,24:wait198,1
6010 close15:return
7000 pokefp,31:ww=2:ifa$>"/"anda$<":"thenn=asc(a$)+12:goto450
7010 ifa$>"@"anda$<"^"thenn=asc(a$)-34:goto450
7020 goto450
9000 rem direktory
9100 print"{clr}":sys8236
9104 open3,8,0,"$0":get#3,d$,d$
9106 open15,8,15:input#15,d
9107 ifd>19thenpokefp,24:wait198,1:poke198,0:pokefp,29:close3:close15:goto9104
9108 close15:close3
9109 open3,8,0,"$0":get#3,d$,d$
9110 get#3,d$,d$,dl$,dh$
9120 ifd$=""then9150
9130 dl$=dl$+chr$(0):dh$=dh$+chr$(0):print256*asc(dh$)+asc(dl$);
9140 sys8527:goto9110
9150 print"{down}f1=directory f7=start"
9155 geta$:ifa$="{f1}"thenclose3:goto9100
9160 ifa$="{f7}"thenclose3:goto5000
9170 goto9155
19999 rem koordinaten fuer zeichen
20000 rem transistor
20005 nl(1)=64
20010 z$(1)="-5+5-4+5-3+5-3+4-3+3-3+2-3+6-3+7-3+8-2+3-1+2+0+1-2+7-1+8+0+9+0+9"
20050 rem resistor
20055 nl(2)=112
20060 h$(2)="-2+4-2+3-2+2-2+1-2+0-1+0+0+0+1+0+2+0+2+1+2+2+2+3+2+4+0-1"
20070 z$(2)=h$(2)+"-2+4-2+5-2+6-2+7-2+8-1+8+0+8+1+8+2+8+2+7+2+6+2+5+2+4+0+9"
20100 rem diode
20105 nl(3)=92
20110 h$(3)="+0+1+0+2+0+3-1+3-2+3-3+3-2+4-1+5+0+6+1+5+2+4+3+3+1+3+2+3"
20120 z$(3)=h$(3)+"-3+7-2+7-1+7+0+7+1+7+2+7+3+7+0+8+0+9"
20150 rem thristor
20155 nl(4)=104
20160 z$(4)=h$(3)+"-3+7-2+7-1+7+0+7+1+7+2+7+3+7+0+8+0+9-2+8-3+9-4+9"
20200 rem diac
20205 nl(5)=136
20210 h$(5)="+0+1+0+2+0+3-1+2-2+2-3+2-4+2-4+3-3+4-2+5-2+6-1+4+0+3+1+2+2+2+3+2+4+2"
20220 z$(5)=h$(5)+"+0+9+0+8+0+7+1+7+2+7+3+7+4+7+4+6+3+5+2+4+2+3+1+5+0+6-1+7-2+7-3+7-4+7"
20250 rem triac
20255 nl(6)=148
20260 z$(6)=z$(5)+"-3+8-4+9-5+9"
20300 rem kondensator
20305 nl(7)=72
20310 z$(7)="+0+1+0+2+0+3-1+3-2+3-3+3+1+3+2+3+3+3+3+6+2+6+1+6+0+6-1+6-2+6-3+6+0+7+0+8"
20350 rem poti
20355 nl(8)=156
20360 z$(8)=z$(2)+"+4+0+3+1+2+2+1+3+0+4-1+5-2+6-3+7-4+8-4+9"
20400 rem schlieser
20405 nl(19)=36
20410 z$(19)="+0+0+0+1+0+2-3+4-2+5-1+6+0+7+0+8+0+9"
20450 rem knoten
20455 nl(0)=32
20460 z$(0)="+0+1+0-1+1+1+1-1-1+1-1-1-1+0+1+0"
20500 rem oeffner
20505 nl(18)=60
20510 z$(18)="+0+0+0+1+0+2+0+3-1+3-2+3-3+3-4+3-4+3-3+4-2+5-1+6+0+7+0+8+0+9"
20550 rem lampe
20555 nl(11)=96
20560 h$(11)="+0+1-1+1-2+2-3+3-3+4-3+5-2+6-1+7+0+7+1+7+2+6+3+5+3+4+3+3+2+2+1+1"
20570 z$(11)=h$(11)+"+0+0+0+8+0+9-1+3+0+4+1+5-1+5+1+3"
20600 rem spannungsq.
20605 nl(12)=88
20610 z$(12)=z$(7)+"-4+3-5+3+4+3+5+3"
20650 rem z-diode
20655 nl(9)=104
20660 z$(9)=z$(3)+"-4+7-4+6-4+5"
20700 rem op
20705 nl(13)=216
20710 h$="-7+9-7+8-7+7-7+6-7+5-7+4-7+3-7+2-7+1-7+0-7-1-7-2-7-3-7-4-7-5-7-6-7-7-7-8-7-9"
20720 h$(13)="-6+9-5+9-4+8-3+7-2+6-1+5+0+4+1+3+2+2+3+1+4+0+5+0+6+0-4+3-5+4-4+4-3+4-4+5"
20730 h$(9)="-6-9-5-9-4-8-3-7-2-6-1-5+0-4+1-3+2-2+3-1-5-4-4-4-3-4"
20740 z$(13)=h$+h$(13)+h$(9)+"-8-4-9-4-8+4-9+4"
20750 rem fet
20755 nl(14)=72
20760 z$(14)="-1+0-2+0-3+0-4+0-5-1-5+0-5+1-5+2-5+3-5+4-5+5-6+4-7+4-8+4-4+4-3+4-2+4-1+4"
20800 reminduktivitaet
20805 nl(15)=196
20810 h$(15)="-1+3-1+2-1+1+0+3+0+2+0+1+1+3+1+2+1+1-1+4-1+5-1+6-1+7+0+4+0+5+0+6+0+7"
20820 z$(15)=z$(2)+h$(15)+"+1+4+1+5+1+6+1+7"
20850 remschuetz
20855 nl(16)=124
20860 h$(16)="+0+0+0+1+0+2-1+2-2+2-3+2-4+2-4+3-4+4-4+5-4+6-3+6-2+6-1+6+0+6+0+7+0+8"
20870 z$(16)=h$(16)+"+1+6+2+6+3+6+4+6+4+5+4+4+4+3+4+2+3+2+2+2+1+2+1+3+0+4-1+5"
20900 rem trafo
20905 nl(17)=244
20910 zh$(0)="-8+0-7+0-6+0-5+0-1+0+1+0+2+0"
20911 zh$(1)="-6+1-5+1-3+1-1+1+0+1"
20912 zh$(2)="-6+2-5+2-3+2-1+2+0+2"
20913 zh$(3)="-6+3-5+3-3+3-1+3+0+3"
20914 zh$(4)="-6+4-5+4-3+4-1+4+0+4"
20915 zh$(5)="-6+5-5+5-3+5-1+5+0+5"
20916 zh$(6)="-6+6-5+6-3+6-1+6+0+6"
20917 zh$(7)="-6+7-5+7-3+7-1+7+0+7"
20918 zh$(8)="-8+8-7+8-6+8-5+8-1+8+0+8+1+8+2+8"
20920 z$(17)=zh$(0)+zh$(1)+zh$(2)+zh$(3)+zh$(4)+zh$(5)+zh$(6)+zhs$(7)+zh$(8)
30000 rem a
30010 nl(31)=48
30020 z$(31)="+0-1+0-2+0-3+0-4+0-5+1-5+2-5+2-4+2-3+2-2+2-1+1-3"
30050 rem b
30060 nl(32)=40
30070 z$(32)="+0-1+0-2+0-3+0-4+0-5+1-5+2-4+2-2+1-1+1-3"
30100 rem c
30110 nl(33)=28
30120 z$(33)="+0-2+0-3+0-4+1-5+2-5+2-1+1-1"
30150 rem d
30160 nl(34)=40
30170 z$(34)="+0-1+0-2+0-3+0-4+0-5+1-5+2-4+2-3+2-2+1-1"
30200 rem e
30210 nl(35)=40
30220 z$(35)="+0-1+0-2+0-3+0-4+0-5+1-5+2-5+1-3+2-1+1-1"
30250 rem f
30260 nl(36)=32
30270 z$(36)="+0-1+0-2+0-3+0-4+0-5+1-5+2-5+1-3"
30300 rem g
30310 nl(37)=40
30320 z$(37)="+0-2+0-3+0-4+1-5+2-5+1-1+2-1+3-2+3-3+2-3"
30350 rem h
30360 nl(38)=44
30370 z$(38)="+0-1+0-2+0-3+0-4+0-5+2-5+2-4+2-3+2-2+2-1+1-3"
30400 rem i
30410 nl(39)=20
30420 z$(39)="+1-1+1-2+1-3+1-4+1-5"
30450 rem j
30460 nl(40)=24
30470 z$(40)="+0-2+1-1+2-2+2-3+2-4+2-5"
30500 rem k
30510 nl(41)=40
30520 z$(41)="+0-1+0-2+0-3+0-4+0-5+1-3+2-4+3-5+2-2+3-1"
30550 rem l
30560 nl(42)=28
30570 z$(42)="+0-1+0-2+0-3+0-4+0-5+1-1+2-1"
30600 rem m
30610 nl(43)=60
30620 z$(43)="+0-1+0-2+0-3+0-4+0-5+1-5+1-4+2-3+3-4+3-5+4-5+4-4+4-3+4-2+4-1"
30650 rem n
30660 nl(44)=60
30670 z$(44)="+0-1+0-2+0-3+0-4+0-5+1-5+1-4+2-3+3-2+3-1+4-1+4-2+4-3+4-4+4-5"
30700 rem o
30710 nl(45)=32
30720 z$(45)="+0-2+0-3+0-4+1-5+2-4+2-3+2-2+1-1"
30750 rem p
30760 nl(46)=32
30770 z$(46)="+0-1+0-2+0-3+0-4+0-5+1-5+2-4+1-3"
30800 rem q
30810 nl(47)=36
30820 z$(47)="+0-2+0-3+0-4+1-5+2-4+2-3+2-2+1-1+3-1"
30850 rem r
30860 nl(48)=40
30870 z$(48)="+0-1+0-2+0-3+0-4+0-5+1-5+2-4+1-3+1-2+2-1"
30900 rem s
30910 nl(49)=44
30920 z$(49)="+0-1+1-1+2-1+2-2+2-3+1-3+0-3+0-4+0-5+1-5+2-5"
30950 rem t
30960 nl(50)=28
30970 z$(50)="+1-1+1-2+1-3+1-4+1-5+0-5+2-5"
31000 rem u
31010 nl(51)=44
31020 z$(51)="+0-5+0-4+0-3+0-2+0-1+1-1+2-1+2-2+2-3+2-4+2-5"
31050 rem v
31060 nl(52)=36
31070 z$(52)="+0-5+0-4+0-3+0-2+1-1+2-2+2-3+2-4+2-5"
31100 rem w
31110 nl(53)=52
31120 z$(53)="+0-5+0-4+0-3+0-2+0-1+1-1+2-2+3-1+4-1+4-2+4-3+4-4+4-5"
31150 rem x
31160 nl(54)=36
31170 z$(54)="+0-5+1-4+2-3+3-2+4-1+0-1+1-2+3-4+4-5"
31200 rem y
31210 nl(55)=28
31220 z$(55)="+0-5+0-4+1-3+1-2+1-1+2-4+2-5"
31250 rem z
31260 nl(56)=36
31270 z$(56)="+0-5+1-5+2-5+2-4+1-3+0-2+0-1+1-1+2-1"
31300 rem my
31310 nl(57)=32
31320 z$(57)="-1-3-1-2-1-1-1-0+0-1+1-1+1-2+1-3"
31350 rem +
31360 nl(58)=20
31370 z$(58)="+1-4+1-3+1-2+0-3+2-3"
31400 rem ohm
31410 nl(59)=44
31420 z$(59)="+0-1+1-1+1-2+0-3+1-4+2-5+3-4+4-3+3-2+3-1+4-1"
35000 rem 0
35010 nl(60)=48
35020 z$(60)="+0-1+0-2+0-3+0-4+0-5+1-5+2-5+2-4+2-3+2-2+2-1+1-1"
35050 rem 1
35060 nl(61)=20
35070 z$(61)="+0-1+0-2+0-3+0-4+0-5"
35100 rem 2
35110 nl(62)=32
35120 z$(62)="+0-5+1-5+2-4+1-3+0-2+0-1+1-1+2-1"
35150 rem 3
35160 nl(63)=28
35170 z$(63)="+0-5+1-5+2-4+1-3+2-2+1-1+0-1"
35200 rem 4
35210 nl(64)=32
35220 z$(64)="+0-5+0-4+0-3+1-3+2-3+2-4+2-2+2-1"
35250 rem 5
35260 nl(65)=36
35270 z$(65)="+0-5+1-5+2-5+0-4+0-3+1-3+2-2+1-1+0-1"
35300 rem 6
35310 nl(66)=48
35320 z$(66)="+2-5+1-5+0-5+0-4+0-3+0-2+0-1+1-1+2-1+2-2+2-3+1-3"
35350 rem 7
35360 nl(67)=28
35370 z$(67)="+0-5+1-5+2-5+2-4+2-3+1-2+1-1"
35400 rem 8
35410 nl(68)=44
35420 z$(68)="+0-2+0-4+0-5+1-5+2-5+2-4+2-2+2-1+1-1+0-1+1-3"
35450 rem 9
35460 nl(69)=48
35470 z$(69)="+1-3+0-3+0-4+0-5+1-5+2-5+2-4+2-3+2-2+2-1+1-1+0-1"
39999 return
11 REM *************** 12 REM * E. ZEICHNEN * 13 REM * * 14 REM * ELMAR BAER * 15 REM * * 20 REM * * 21 REM * BASIC TEIL * 22 REM *************** 50 PRINT"{CLR}":POKE 36879,29:PRINTCHR$ (8) 60 LT=36878:MT=36876:R=230:J=30 100 DIM H$(30),NL(70),Z$(70):GOSUB 20000 110 XM=0:XN=168:YM=0:YN=176:POKE 828,80:POKE 829,80:FY=174:FU=1:FX=166:FP=36879:GOSUB 5000 120 POKE 255,1:SYS 8492:SYS 8276:SYS 8263:POKE 650,128 200 SYS 8565:Q=PEEK (653):SYS 8600:Y=PEEK (829):X=PEEK (828) 210 IF Y<FUOR Y>FYOR X<FUOR X>FX THENPOKE 828,10:POKE 829,10:R=160:GOSUB 500 220 SYS 8333,X,Y 230 GET A$:IF A$<>""OR Q<>0OR QW=1 THENGOSUB 400 240 IF PEEK (252)=0 THENSYS 8330,X,Y:GOTO 200 250 SYS 8333,X,Y:GOTO 200 260 GOTO 200 400 IF A$="←" THENSYS 8276:GOSUB 500 410 IF Q=5 THENWW=0:POKE FP,29 420 IF Q=4OR WW=2 THEN7000 430 IF A$>"/"AND A$<":"AND Q=0 THENN=VAL (A$) 440 IF A$>" "AND A$<":"AND Q=1 THENA$=CHR$ (ASC (A$)+16):N=VAL (A$)+10 450 IF A$>CHR$ (132)AND A$<CHR$ (141) THENGOSUB 800 460 IF Q=6OR QW=1 THENGOSUB 500:GOSUB 4000 470 IF A$=CHR$ (13) THENGOSUB 500:GOTO 5000 480 IF A$="↑" THEN9100 490 RETURN 500 POKE LT,8:POKE MT,230:FOR YY=0 TO50:NEXT :POKE MT,0:R=230:RETURN 800 IF A$=CHR$ (137) THENPOKE FP,26:GOSUB 970:SYS 8732:POKE FP,29 810 IF A$=CHR$ (133) THEN1020 820 IF A$=CHR$ (134) THEN1120 830 IF A$=CHR$ (135) THEN1220 840 IF A$=CHR$ (136) THEN1320 850 IF A$=CHR$ (138) THENPOKE FP,J:GOSUB 960:SYS 8221,"E-Z"+FL$,8:GOSUB 950:GOSUB 6000:POKE FP,29 860 IF A$=CHR$ (139) THENPOKE FP,28:GOSUB 970:SYS 8196,"@:E-Z"+F$,8:GOSUB 6000:POKE FP,29 870 RETURN 900 X1=X+ZX:Y1=Y+ZY:SYS 8333,X1,Y1:RETURN 950 POKE 828,10:POKE 829,10:RETURN 960 SYS 8330,X,Y:X=10:Y=X:RETURN 970 SYS 8330,X,Y:RETURN 1000 REM ANSCHLUSS OBEN 1020 FOR T=1 TONL(N)STEP 4:ZX=VAL (MID$ (Z$(N),T,2)):ZY=VAL (MID$ (Z$(N),T+2,2)):GOSUB 900:NEXT 1090 GOTO 870 1100 REM ANSCHLUSS RECHTS 1120 FOR T=1 TONL(N)STEP 4:ZY=VAL (MID$ (Z$(N),T,2)):ZX=VAL (MID$ (Z$(N),T+2,2)):GOSUB 900:NEXT 1190 GOTO 870 1200 REM ANSCHLUSS UNTEN 1220 FOR T=1 TONL(N)STEP 4:ZX=VAL (MID$ (Z$(N),T,2))*-1:ZY=VAL (MID$ (Z$(N),T+2,2))*-1:GOSUB 900 1290 NEXT :GOTO 870 1300 REM ANSCHLUSS LINKS 1320 FOR T=1 TONL(N)STEP 4:ZY=VAL (MID$ (Z$(N),T,2))*-1:ZX=VAL (MID$ (Z$(N),T+2,2))*-1:GOSUB 900 1390 NEXT :GOTO 870 4000 IF XM<X THENXM=X 4010 IF XN>X THENXN=X 4020 IF YN>Y THENYN=Y 4030 IF YM<Y THENYM=Y 4040 QW=1:POKE 255,3:FX=164:FY=172:FU=4 4050 GET A$:IF A$<>CHR$ (140) THENRETURN 4060 FOR T=YN TOYM:FOR TT=XN TOXM:SYS 8330,TT,T:NEXT :NEXT :XM=0:XN=168:YM=0:YN=176:QW=0 4100 FY=175:FX=167:FU=1:POKE 255,1:RETURN 5000 SYS 8236 5100 PRINT"{CLR,RVSON,RED,3SPACE}ELEKTRO-ZEICHNEN{3SPACE,RVOFF,BLUE}" 5110 PRINT"F1{3SPACE}ANSCHLUSS OBEN" 5120 PRINT"F3{3SPACE}ANSCHLUSS RECHTS" 5130 PRINT"F5{3SPACE}ANSCHLUSS UNTEN" 5140 PRINT"F7{3SPACE}ANSCHLUSS LINKS" 5145 PRINT"F8{3SPACE}CLR AUSCHNITT" 5146 PRINT"F2{3SPACE}HARDCOPY" 5150 PRINT"F4{3SPACE}LADEN BILD" 5160 PRINT"F6{3SPACE}SAVEN BILD" 5165 PRINT"{DOWN}CTRL{SPACE,3SPACE}ALPHA EIN" 5166 PRINT"CTRL+SH ALPHA AUS" 5168 PRINT"↑{7SPACE}DIRECTORY" 5170 PRINT"←{7SPACE}LOESCHEN " 5174 PRINT"RETURN{2SPACE}START" 5175 PRINT"CTRL+C= CLR FESTLEGEN" 5180 PRINT"{4SPACE}1-0 E. SYMBOLE" 5190 PRINT"SH{2SPACE}1-0 E. SYMBOLE" 5195 INPUT"{HOME,20DOWN}FILENNAME{SPACE,RVSON}L{RVOFF}";FL$:IF LEN (FL$)>13 THEN5195 5200 INPUT"{HOME,20DOWN}FILENNAME{SPACE,RVSON,PURPLE}S{RVOFF,BLUE}";F$:IF LEN (F$)>13 THEN5200 5210 SYS 8492:GOTO 120 6000 OPEN 15,8,15:INPUT#15,A:IF A>20 THENPOKE FP,24:WAIT 198,1 6010 CLOSE 15:RETURN 7000 POKE FP,31:WW=2:IF A$>"/"AND A$<":" THENN=ASC (A$)+12:GOTO 450 7010 IF A$>"@"AND A$<"↑" THENN=ASC (A$)-34:GOTO 450 7020 GOTO 450 9000 REM DIREKTORY 9100 PRINT"{CLR}":SYS 8236 9104 OPEN 3,8,0,"$0":GET #3,D$,D$ 9106 OPEN 15,8,15:INPUT#15,D 9107 IF D>19 THENPOKE FP,24:WAIT 198,1:POKE 198,0:POKE FP,29:CLOSE 3:CLOSE 15:GOTO 9104 9108 CLOSE 15:CLOSE 3 9109 OPEN 3,8,0,"$0":GET #3,D$,D$ 9110 GET #3,D$,D$,DL$,DH$ 9120 IF D$="" THEN9150 9130 DL$=DL$+CHR$ (0):DH$=DH$+CHR$ (0):PRINT256*ASC (DH$)+ASC (DL$); 9140 SYS 8527:GOTO 9110 9150 PRINT"{DOWN}F1=DIRECTORY{SPACE,SPACE}F7=START" 9155 GET A$:IF A$="{F1}" THENCLOSE 3:GOTO 9100 9160 IF A$="{F7}" THENCLOSE 3:GOTO 5000 9170 GOTO 9155 19999 REM KOORDINATEN FUER ZEICHEN 20000 REM TRANSISTOR 20005 NL(1)=64 20010 Z$(1)="-5+5-4+5-3+5-3+4-3+3-3+2-3+6-3+7-3+8-2+3-1+2+0+1-2+7-1+8+0+9+0+9" 20050 REM RESISTOR 20055 NL(2)=112 20060 H$(2)="-2+4-2+3-2+2-2+1-2+0-1+0+0+0+1+0+2+0+2+1+2+2+2+3+2+4+0-1" 20070 Z$(2)=H$(2)+"-2+4-2+5-2+6-2+7-2+8-1+8+0+8+1+8+2+8+2+7+2+6+2+5+2+4+0+9" 20100 REM DIODE 20105 NL(3)=92 20110 H$(3)="+0+1+0+2+0+3-1+3-2+3-3+3-2+4-1+5+0+6+1+5+2+4+3+3+1+3+2+3" 20120 Z$(3)=H$(3)+"-3+7-2+7-1+7+0+7+1+7+2+7+3+7+0+8+0+9" 20150 REM THRISTOR 20155 NL(4)=104 20160 Z$(4)=H$(3)+"-3+7-2+7-1+7+0+7+1+7+2+7+3+7+0+8+0+9-2+8-3+9-4+9" 20200 REM DIAC 20205 NL(5)=136 20210 H$(5)="+0+1+0+2+0+3-1+2-2+2-3+2-4+2-4+3-3+4-2+5-2+6-1+4+0+3+1+2+2+2+3+2+4+2" 20220 Z$(5)=H$(5)+"+0+9+0+8+0+7+1+7+2+7+3+7+4+7+4+6+3+5+2+4+2+3+1+5+0+6-1+7-2+7-3+7-4+7" 20250 REM TRIAC 20255 NL(6)=148 20260 Z$(6)=Z$(5)+"-3+8-4+9-5+9" 20300 REM KONDENSATOR 20305 NL(7)=72 20310 Z$(7)="+0+1+0+2+0+3-1+3-2+3-3+3+1+3+2+3+3+3+3+6+2+6+1+6+0+6-1+6-2+6-3+6+0+7+0+8" 20350 REM POTI 20355 NL(8)=156 20360 Z$(8)=Z$(2)+"+4+0+3+1+2+2+1+3+0+4-1+5-2+6-3+7-4+8-4+9" 20400 REM SCHLIESER 20405 NL(19)=36 20410 Z$(19)="+0+0+0+1+0+2-3+4-2+5-1+6+0+7+0+8+0+9" 20450 REM KNOTEN 20455 NL(0)=32 20460 Z$(0)="+0+1+0-1+1+1+1-1-1+1-1-1-1+0+1+0" 20500 REM OEFFNER 20505 NL(18)=60 20510 Z$(18)="+0+0+0+1+0+2+0+3-1+3-2+3-3+3-4+3-4+3-3+4-2+5-1+6+0+7+0+8+0+9" 20550 REM LAMPE 20555 NL(11)=96 20560 H$(11)="+0+1-1+1-2+2-3+3-3+4-3+5-2+6-1+7+0+7+1+7+2+6+3+5+3+4+3+3+2+2+1+1" 20570 Z$(11)=H$(11)+"+0+0+0+8+0+9-1+3+0+4+1+5-1+5+1+3" 20600 REM SPANNUNGSQ. 20605 NL(12)=88 20610 Z$(12)=Z$(7)+"-4+3-5+3+4+3+5+3" 20650 REM Z-DIODE 20655 NL(9)=104 20660 Z$(9)=Z$(3)+"-4+7-4+6-4+5" 20700 REM OP 20705 NL(13)=216 20710 H$="-7+9-7+8-7+7-7+6-7+5-7+4-7+3-7+2-7+1-7+0-7-1-7-2-7-3-7-4-7-5-7-6-7-7-7-8-7-9" 20720 H$(13)="-6+9-5+9-4+8-3+7-2+6-1+5+0+4+1+3+2+2+3+1+4+0+5+0+6+0-4+3-5+4-4+4-3+4-4+5" 20730 H$(9)="-6-9-5-9-4-8-3-7-2-6-1-5+0-4+1-3+2-2+3-1-5-4-4-4-3-4" 20740 Z$(13)=H$+H$(13)+H$(9)+"-8-4-9-4-8+4-9+4" 20750 REM FET 20755 NL(14)=72 20760 Z$(14)="-1+0-2+0-3+0-4+0-5-1-5+0-5+1-5+2-5+3-5+4-5+5-6+4-7+4-8+4-4+4-3+4-2+4-1+4" 20800 REM INDUKTIVITAET 20805 NL(15)=196 20810 H$(15)="-1+3-1+2-1+1+0+3+0+2+0+1+1+3+1+2+1+1-1+4-1+5-1+6-1+7+0+4+0+5+0+6+0+7" 20820 Z$(15)=Z$(2)+H$(15)+"+1+4+1+5+1+6+1+7" 20850 REM SCHUETZ 20855 NL(16)=124 20860 H$(16)="+0+0+0+1+0+2-1+2-2+2-3+2-4+2-4+3-4+4-4+5-4+6-3+6-2+6-1+6+0+6+0+7+0+8" 20870 Z$(16)=H$(16)+"+1+6+2+6+3+6+4+6+4+5+4+4+4+3+4+2+3+2+2+2+1+2+1+3+0+4-1+5" 20900 REM TRAFO 20905 NL(17)=244 20910 ZH$(0)="-8+0-7+0-6+0-5+0-1+0+1+0+2+0" 20911 ZH$(1)="-6+1-5+1-3+1-1+1+0+1" 20912 ZH$(2)="-6+2-5+2-3+2-1+2+0+2" 20913 ZH$(3)="-6+3-5+3-3+3-1+3+0+3" 20914 ZH$(4)="-6+4-5+4-3+4-1+4+0+4" 20915 ZH$(5)="-6+5-5+5-3+5-1+5+0+5" 20916 ZH$(6)="-6+6-5+6-3+6-1+6+0+6" 20917 ZH$(7)="-6+7-5+7-3+7-1+7+0+7" 20918 ZH$(8)="-8+8-7+8-6+8-5+8-1+8+0+8+1+8+2+8" 20920 Z$(17)=ZH$(0)+ZH$(1)+ZH$(2)+ZH$(3)+ZH$(4)+ZH$(5)+ZH$(6)+ZHS$(7)+ZH$(8) 30000 REM A 30010 NL(31)=48 30020 Z$(31)="+0-1+0-2+0-3+0-4+0-5+1-5+2-5+2-4+2-3+2-2+2-1+1-3" 30050 REM B 30060 NL(32)=40 30070 Z$(32)="+0-1+0-2+0-3+0-4+0-5+1-5+2-4+2-2+1-1+1-3" 30100 REM C 30110 NL(33)=28 30120 Z$(33)="+0-2+0-3+0-4+1-5+2-5+2-1+1-1" 30150 REM D 30160 NL(34)=40 30170 Z$(34)="+0-1+0-2+0-3+0-4+0-5+1-5+2-4+2-3+2-2+1-1" 30200 REM E 30210 NL(35)=40 30220 Z$(35)="+0-1+0-2+0-3+0-4+0-5+1-5+2-5+1-3+2-1+1-1" 30250 REM F 30260 NL(36)=32 30270 Z$(36)="+0-1+0-2+0-3+0-4+0-5+1-5+2-5+1-3" 30300 REM G 30310 NL(37)=40 30320 Z$(37)="+0-2+0-3+0-4+1-5+2-5+1-1+2-1+3-2+3-3+2-3" 30350 REM H 30360 NL(38)=44 30370 Z$(38)="+0-1+0-2+0-3+0-4+0-5+2-5+2-4+2-3+2-2+2-1+1-3" 30400 REM I 30410 NL(39)=20 30420 Z$(39)="+1-1+1-2+1-3+1-4+1-5" 30450 REM J 30460 NL(40)=24 30470 Z$(40)="+0-2+1-1+2-2+2-3+2-4+2-5" 30500 REM K 30510 NL(41)=40 30520 Z$(41)="+0-1+0-2+0-3+0-4+0-5+1-3+2-4+3-5+2-2+3-1" 30550 REM L 30560 NL(42)=28 30570 Z$(42)="+0-1+0-2+0-3+0-4+0-5+1-1+2-1" 30600 REM M 30610 NL(43)=60 30620 Z$(43)="+0-1+0-2+0-3+0-4+0-5+1-5+1-4+2-3+3-4+3-5+4-5+4-4+4-3+4-2+4-1" 30650 REM N 30660 NL(44)=60 30670 Z$(44)="+0-1+0-2+0-3+0-4+0-5+1-5+1-4+2-3+3-2+3-1+4-1+4-2+4-3+4-4+4-5" 30700 REM O 30710 NL(45)=32 30720 Z$(45)="+0-2+0-3+0-4+1-5+2-4+2-3+2-2+1-1" 30750 REM P 30760 NL(46)=32 30770 Z$(46)="+0-1+0-2+0-3+0-4+0-5+1-5+2-4+1-3" 30800 REM Q 30810 NL(47)=36 30820 Z$(47)="+0-2+0-3+0-4+1-5+2-4+2-3+2-2+1-1+3-1" 30850 REM R 30860 NL(48)=40 30870 Z$(48)="+0-1+0-2+0-3+0-4+0-5+1-5+2-4+1-3+1-2+2-1" 30900 REM S 30910 NL(49)=44 30920 Z$(49)="+0-1+1-1+2-1+2-2+2-3+1-3+0-3+0-4+0-5+1-5+2-5" 30950 REM T 30960 NL(50)=28 30970 Z$(50)="+1-1+1-2+1-3+1-4+1-5+0-5+2-5" 31000 REM U 31010 NL(51)=44 31020 Z$(51)="+0-5+0-4+0-3+0-2+0-1+1-1+2-1+2-2+2-3+2-4+2-5" 31050 REM V 31060 NL(52)=36 31070 Z$(52)="+0-5+0-4+0-3+0-2+1-1+2-2+2-3+2-4+2-5" 31100 REM W 31110 NL(53)=52 31120 Z$(53)="+0-5+0-4+0-3+0-2+0-1+1-1+2-2+3-1+4-1+4-2+4-3+4-4+4-5" 31150 REM X 31160 NL(54)=36 31170 Z$(54)="+0-5+1-4+2-3+3-2+4-1+0-1+1-2+3-4+4-5" 31200 REM Y 31210 NL(55)=28 31220 Z$(55)="+0-5+0-4+1-3+1-2+1-1+2-4+2-5" 31250 REM Z 31260 NL(56)=36 31270 Z$(56)="+0-5+1-5+2-5+2-4+1-3+0-2+0-1+1-1+2-1" 31300 REM MY 31310 NL(57)=32 31320 Z$(57)="-1-3-1-2-1-1-1-0+0-1+1-1+1-2+1-3" 31350 REM + 31360 NL(58)=20 31370 Z$(58)="+1-4+1-3+1-2+0-3+2-3" 31400 REM OHM 31410 NL(59)=44 31420 Z$(59)="+0-1+1-1+1-2+0-3+1-4+2-5+3-4+4-3+3-2+3-1+4-1" 35000 REM 0 35010 NL(60)=48 35020 Z$(60)="+0-1+0-2+0-3+0-4+0-5+1-5+2-5+2-4+2-3+2-2+2-1+1-1" 35050 REM 1 35060 NL(61)=20 35070 Z$(61)="+0-1+0-2+0-3+0-4+0-5" 35100 REM 2 35110 NL(62)=32 35120 Z$(62)="+0-5+1-5+2-4+1-3+0-2+0-1+1-1+2-1" 35150 REM 3 35160 NL(63)=28 35170 Z$(63)="+0-5+1-5+2-4+1-3+2-2+1-1+0-1" 35200 REM 4 35210 NL(64)=32 35220 Z$(64)="+0-5+0-4+0-3+1-3+2-3+2-4+2-2+2-1" 35250 REM 5 35260 NL(65)=36 35270 Z$(65)="+0-5+1-5+2-5+0-4+0-3+1-3+2-2+1-1+0-1" 35300 REM 6 35310 NL(66)=48 35320 Z$(66)="+2-5+1-5+0-5+0-4+0-3+0-2+0-1+1-1+2-1+2-2+2-3+1-3" 35350 REM 7 35360 NL(67)=28 35370 Z$(67)="+0-5+1-5+2-5+2-4+2-3+1-2+1-1" 35400 REM 8 35410 NL(68)=44 35420 Z$(68)="+0-2+0-4+0-5+1-5+2-5+2-4+2-2+2-1+1-1+0-1+1-3" 35450 REM 9 35460 NL(69)=48 35470 Z$(69)="+1-3+0-3+0-4+0-5+1-5+2-5+2-4+2-3+2-2+2-1+1-1+0-1" 39999 RETURN
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen