+JJJJ ?> / X5 l>ҭōŠԠΠӍҠͭҭōΠĠΠΠǠǠǠ50 A(16HS)0" HI0, I0HSI2:2880@6 I2HSI0K@ K17fJ XMKI4910:X1KI7T A(K)1ĕ6X,Y:3:X7215,Y789:2920^ 0:X7215,Y789:3h B%(X1,Y1)A(K)r | IH  ** Bildaufbau **  ::I20482350:)1:AA32:2750  A(64HS)0D A16A(52HS)1:AA16:2770T A(52HS)0q A8A(4)1:AA8:2790| A(4)0 A4A(32HS)1:AA4:2810 A(32HS)0 A2A(24HS)1:AA2:2830 A(24HS)0 A1A(16HS)1:AA1:28$"S"ĕ4XA,YA:SXX1:SYY1:4CX,CY:NXA,YA:XNXA:YNYA:CXXA:CYYA:2410]n NXA,YA:2410cx  ** Gelesene Bytes in Feld B(X1,Y1) eintragen ** A0āK17:A(K)0::2850 A64A(76HS)1:AA64:2730 A(76HS)0 A32A(64HSS"2630/< NXA,YA:NXN,YN:XAXN:YAYN:2410<F NXA,YAP E$"P"B%(X1,Y1)0ĕNXA,YA:6XA,YA:XNXA:YNYA:B%(X1,Y1)1:3:XN7215,YN789:2410Z E$"L"B%(X1,Y1)1ĕNXA,YA:6XA,YA:XNXA:YNYA:B%(X1,Y1)0:0:XN7215,YN789:3:2410Jd EH2590, E$(27)NN1:HS0:233,96:1240K XN157XN157:X121:2410g XN17XN17:X11:2410 YN150YN150:Y121:2410 YN10YN10:Y11:2410 FHE$(27)FH0::1110# E$"W"3210( E$(13)26802 FHE$"P"E$"L"E$"(E$"J")) FHY1Y1(E$"M")(E$"I")E FHXN260XN260:2410a FHXN190XN190:2410} FHYN100YN100:2410 FHYN20YN20:2410 FHE$"S"HS(HS0):HSĢ21:4:"= Normal":2410 FHHSE$"S"Ģ21:4:"piegeln ":2410 F2:36:E$gt E$"J"E$"K"E$"I"E$"M"E$"W"E$"S"E$"P"E$"L"E$(27)E$(13)2410~ XNXA((E$"K")6(FH0E$"K"))((E$"J")6(FH0E$"J")) YNYA((E$"M")6(FH0E$"M"))((E$"I")6(FH0E$"I")) FHX1X1(E$"K")tz !":2800" "Eingabefehler !"o I12000::216,0:FF1400,1480,1540,1660,1820,1900,2160,2260,2530,104002048,0::D$"RUN TABLE.EDITOR"::VT6:HT7:V0:W1I039:"-";:$13)"Shape-Table-Plus".I039:"-";:834,4 B6 I12000::216,0:FF1380,1460,1520,1640,1800,1880,2140,2240,2510,1040:Q$"!"(104)8Ĺ103,1:104,8:2048,0::D$"RUN TABLE.EDITOR"::VT6:HT7:V0:W1I039:"-";:$13)"Shape-Table-Plus".I039:"-";:834,4 B(222)6ĺ"Diese Tabelle ist nicht auf der Disk !":2810g (222)9ĺ"Die Diskette ist voll !":2810 (222)8ĺ"Diskette defekt oder Laufwerk offen !":2810 (222)4(222)10ĺ"Disketten,- File-Schreibschutz !":2810 "Eingabefehler !"J FF10:2760,( :D$"RUN SHAPE.EDITOR"=< FF10:2760YF :D$"RUN SHAPE.CREATE"iZ :16303,0|d :D$"CATALOG"n E$:E$:x FM1040,1370,1770,2240,1520 216,0:: :D$"RUN HELLO" :22:::3:0:1:I0:J0 8 :22::"Name: ";N$:"Wird als SH."N$" abgespeichert."@ FF9:2760h :D$"BSAVESH."N$",A$4000,L"SESB4 :22:"Nochmal ? (J/N): ";:E$:E$"J"1040 :22::"Neue Tabelle ? (J/N): ";:E$:E$"J"E$"N"2550 E$"J"đ:2220 I0::2280(S1)256(S2):ISB1(t N(TA)24602~ II1O J(I):J0SEI1:2470Y 2430s SETA(S3)256(S4) ISBSE1:16388ISB,(I): 233,64 1186,96 :22:"Shape auf Diskette schreiben ? (J/N): ";:E$:E$"J"25400 :22= Annahme":N13 22:1:"Shape-Nr.: "N1" ";:E$Z$ E$(8)E$(21)E$(13)2330m. E$(13)24008 NN(E$(21))(E$(8))B N1N(TA)L N(TA)N1V N193,96:N93,96:N1N:2330` S1TAN2:S2S11:S3S21:S4S31j SBTA")2650:((N$,1)Q$)1040*FF8:2760F:D$"BLOAD"N$",A$6000"}232,0:233,96:16384,1:16385,0:16386,4:16387,0193,96:N11:(TA)12320:22:"Dieses Shape ? (J/N): ";:E$:E$"J"2400 2240 :21:"<- Wahl ->, N1$:21900p"Wird als ST."N$" abgespeichert."]z:D$"BSAVEST."N$",A"TA",L"SL2N(HH0)g2200:D$"BSAVE"N$",A"TA",L"SL2N(HH0)HH0:10402730TA24576:N1:FM4:22:"Tabelle ('?'=CATALOG): ";N$:N1$N$((N$,1)"?1170 SHAPE.CREATE **?** Wolfgang Landgraf, Juni 86 **i** Start des Programmes bei $4000 **|D$(4):Q$"!"(104)64Ĺ103,1:104,64:16384,0:D$"RUNSHAPE.CREATE"$(768)10ĺD$"BLOADST.EDIT".I039:"-";: 8" )4(222)10ĺ"Disketten,- File-Schreibschutz !":2970N "Eingabefehler !"x I12000::216,0:FF1170,2680,2980 :22:"Wenigstens ein Punkt muss gesetzt sein !":I12000::2890:1360 ** Catalog der Diskette **! :D$"CATALOG":E$::oeschen Cursor ->":22:35:"J":22:37:"K"d^ 23:1:" Editier-Ende":23:36:"M":h ** Fehlerbehandlung **r :22:(222)6ĺ"Diese Tabelle ist nicht auf der Disk !":2970| (222)9ĺ"Die Diskette ist voll !":29707 (2223,3,168,143]" 1,17,157,5,45,157,1,77,157,3,82,157,1,112,157,5,117,157,2,147,157,3,152,157g, :A06 I630:XM14,IXM38,I:@ XM14,40XM38,40XM38,64XM14,64XM14,40J :21:1:"tartpunkt setzen":21:36:"I"3T 22:1:"

unkt, I6YM7:13,IXM,I:4 I132:A,B,C:AB,C:x 1,8,10,5,8,38,1,5,73,3,10,73,1,5,108,5,10,108,2,5,143,3,10,143 1,17,2,5,45,2,1,77,2,3,82,2,1,112,2,5,117,2,2,147,2,3,152,2  1,166,10,5,166,38,1,163,73,3,168,73,1,163,108,5,168,108,2,163,14$",A$6000,L"UTA1) N1$"ST."N$:2750K D$"BSAVE"N$",A$6000,L"UTA1 :22:"Weiter (J/N): ";:E$:(E$"J")2480:(E$"N")2760:2750 216,0::::D$"RUN TABLE.EDITOR" ** Bildschirmaufbau ** :3:0:1 I13XM7:I,6I,YM:P MSNM1;Z N1XMSX15,SY100:MXMSX15,SY100:N1MEd 2590en ** Tabelle auf Diskette **ux FF2:2930 :22:"Name: ( "N1$" ) = " 23:" ";N$:N$""N$N1$:2740 "Wird als ST."N$" abgespeichert." D$"BSAVEST."NI12000::2480W :22:"<- , -> = Ende":N11:M1:233,96:N1XMSX15,SY100| 23:1:"Shape-Nr.: "N1" ";:E$( E$(8)E$(21)E$(13)25902 E$(13)ĕN1XMSX15,SY100:233,3:2480< MM(E$(21))(E$(8))F M1MSN 0::24802 :22:"Rahmen l|schen (J/N): ";:E$J E$"N"İ2890:1370 E$"J"ė:22:"Raster wird gel|scht !":I121:J121:B%(I,J)0:::1350 ** Zeigen der bisher definierten Shapes ** (TA)0ė:22:"Es ist kein Shape definiert !":56):TA2SN3,(TN256)# TA,SNB ** Anzeige Auswahlmenu **f :21:"(N)eues Shape zeichnen" 22:"(Z)eigen der Shapes" 23:"(T)able auf Diskette ";:E$ (E$"T")2680:(E$"Z")2570  SNNė:22:"Die Tabelle ist voll !":I1200SN1XM15SX,75SY:233,3:TA,SN:I116:8XM15SX,75SY:J150::vj :22:"Save Shape-Nr.";SN1;" (J/N)";:E$t 0:IXM13XM43:I,65I,100::0:A0~ E$"J"E$"N"2410 UU1 E$"J"SNSN1:SNNTNUTA:TA2SN2,TN256(TN22290)" :::(4)"CATALOG":E$::1070=" L121:K121e" B%(K,L)(B%(K,L)0):6107K,37L" 3(B%(K,L)1):(877K)7204,(807L)778" ::3:2410:2595+3210-3240 ERGAENZT ** Auswahl des Shapes **$TA24576:B%(21,21) .:2icht auf der Disk !":3190I!N (222)9ĺ"Die Diskette ist voll !":3190!X (222)8ĺ"Diskette defekt oder Laufwerk offen !":3190!b (222)4(222)10ĺ"Disketten,- File-Schreibschutz !":3190!l "Eingabefehler !""v I12000::216,0:FF1070,233,96:N227,50:233,3>  21:1:"piegeln":21:36:"I" & 22:1:"

unkt, oeschen Cursor ->":22:35:"J":22:37:"K" 0 23:1:" Editier-Ende":23:36:"M": : ** Fehlerbehandlung **!D :22:(222)6ĺ"Diese Tabelle ist n0,108,2,5,143,3,10,143W 1,17,2,5,45,2,1,77,2,3,82,2,1,112,2,5,117,2,2,147,2,3,152,2 1,166,10,5,166,38,1,163,73,3,168,73,1,163,108,5,168,108,2,163,143,3,168,143 1,17,157,5,45,157,1,77,157,3,82,157,1,112,157,5,117,157,2,147,157,3,152,157  I,0::233,3* I131607:I,6I,153:G I61537:13,I160,I:o 216,39238,39238,61216,61216,39} 9220,37 216,89238,89238,111216,111216,89 10220,87 I132:A,B,C:AB,C: 1,8,10,5,8,38,1,5,73,3,10,73,1,5,108,5,1àűijӠβҠƍààijβıĵİĴŰؠűÍàŲàγҠƍàōγIJ٠ŲҠijÍàİ؍ˍѠűҠčҠ΍űˍҠҍҠč٠ЍٍؠЍԠұɠųҠύŲҠԍРˍѠűӍųҠύРŲϠÍàŰҠ΍ĠƍҠٍٍӍ ΠҠԍРԍұӍ ΠҠčԠұɠԍҠԍӍԠʪ ΠҠōؠà̱ؠРҍ̱ؠѠ̲ؠҍҠ̍ұӍ̲ؠؠҍҠ̍ӍӱǍؠӲ٠ӳٍҠƍٍٍŠӳà؍ŠӲӍ ΠؠҍؠѠӱҠ̍ŴÍҠҍؠҍҠ̍ ΠҠōؠà̱ؠҠҍ̱ؠҍӍΠԠðӍ ΠԠðӍΠðððؠ͍ð؍Ӎ ؠҠҍŲؠӠűؠ͍؍ǍӍ  έέέ ΠҠōؠӠŲű ²έέέέέέέέέέέέέέέέέCA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869" LAENGE : ";L$(I)3"DISK NR.: : ";D$(I)P"BEDIENUNGSART: ";J$(I)nAI2:A(A)İ435:420:uIA(A)150435:420:150X35:420:150X(A)150435:420:150XҠ̍Í̍à̍ر̍ȍàȍرȍÍ̍à̍ز̍ȍàȍزȍÍ̍à͍ٱ̍ȍàٱȍÍ͍à̍ٲ̍àȍ٠Íàɍٍ¬ٍčō̍ȍҠԱؠ̍ȍҠȍҠ̍ҠȍҠ̍ҠȍҠ̍ҠȍҠ̍ҠȍҠ̍ҠȍҠ̍ҠȠ¬ٍčō̍ȍҠԱؠ̍ȍҠȍҠ̍ҠȍҠ̍ҠȍҠ̍ҠȍҠ̍ҠȍҠ̍ҠȍҠ̍ҠȍҠ̍ƍ׍ɍÍàЍɍàóƍɍҠ׍ӍנDZDZȍDzDzȍDZDZȍDzDzȍDZDzDZDz٠ɍŲűҠԍҠōؠѠŲؠЍŲҠÍӍàƍDZDzDZDzà̍Šñàȍñà̍ŠòàȍòɍóҠؠРҍòҠԍРŠŲҠԍРѠűҠ͍Ҡҍ٠̍ȍРàôРӠó٠čàôóؠРҍôҠԍРōΠҠčؠ̍٠ȍ͍ЍҠҍҠ͍Ҡҍ٠̍ȍ٠̍ȍРàòРӠñ٠čàòñؠزȍ٠ٱԠұɠزҠύРسزҠύسàٱٲРٱӠرӍ ΠҠčؠر̍٠رȍٱҠҍҠčؠز̍٠زȍٲРٱӠرЍٱٲЍٱرؠر̍٠رȍٱҠ΍ز̍ز̍ؠزȍ٠ٱҠύؠز̍٠زȍٱҠԍر̍ؠرȍ٠ٱҠύӍ ٠ٱҠύر̍ؠرȍ٠ٱҠύӍñؠر̍٠رȍٱҠԍر̍ؠرȍ٠ٲҠύؠر̍٠رȍٲҠԍز̍ؠزȍ٠ٲҠύؠز̍٠زȍٲҠԍčؠر̍٠رȍٱҠҍҠčؠز̍٠زȍٲԠұɠñؠر̍٠رȍٱҠ΍ر̍ؠرȍ٠ٲҠύز̍ؠزȍ٠ٲҠύز̍ؠزȍ΍ÍĴàİĴĵàıàԍŲӍ Πƍàıč٠ŵӠزؠ̍ҠԍÍزĴàIJĴĵàԠĵĠƍҠٍٍ؍ŠδàčѠŲδijӠ؍Ҡ׵Šˠԍ̍Ѝ͍ˍ΍ϭ͍ˍč͍ˍҍٍˍ ΠҠčؠ׍٠ȍٍҠҍǍҠԍԍ٠ԫԠЍĬìÍ ¬   ƬŬŬĬÍ ¬¬     ƬŬĬč ì¬¬   Ƭƍ ŬĬì썠   ƬŬ Ƭƍ ŬŬĬìÍ ¬¬    ƬƬŬč Ĭ쬬       Ƭƍ ŬŬŬĬč ì쬬    ƬƬƍ ƬƬƬƬƍ ƬŬŬŬō ŬŬŬŬč ĬĬĬĬč Ĭììì͠쬬¬ ¬   ̍زȍ̲ȍٲ̲̍ӍԠԠұɠԱҠ΍ӍԱҠԍӍϠԠұɠϱҠύӍϱҠύӍ  ƬƬƬƬƍ ƬƬƬƬƍ ƬƬύĹDzŠDzȍŠDZŠDZȍŠؠز̍٠زȍٱ̍Ҡԍ̲̍ؠ̲ȍ٠̱Ҡύر̱̍̍رȍ̱ȍٱ̱̍ز̲̍ŠĹؠر̍٠رȍٲ̍Ҡԍ̱̍ؠ̱ȍ٠̲ҠύĸDzŠDzȍŠDzŠĹDzȍŠĹؠز̍٠زȍٲ̍Ҡԍ̲̍ؠ̲ȍ٠̲Ҡ̍РàĶƍDzĶDZŠĸDZȍŠĸDZŠķDZȍŠķؠر̍٠رȍٱ̍Ҡԍ̱̍ؠ̱ȍ٠̱ҠύķDzŠĹDzȍȍرȍРàIJРӠıر̍РàIJıƍDZIJزȍРàijƍDzijٱȍŠĴٱ̍РàĵĴƍDZĵٲAUF DISKETTE GESCHRIEBEN!"H T *** SCHREIBEN DER DATEI ***Z ^D$"OPEN ";N$m hD$"WRITE ";N$ rK:I1K:I$(I):B$(I):F$(I):G$(I):H$(I): |D$"CLOSE ";N$$TISCH GEORDNET (BITTE WARTEN! 324 NAMEN = 2 1/2 MINUTEN)."Z  *** SORTIEREN ***e A1K "(A$(A),1)(64J)I$(Z)A$(A):B$(Z)K$(A):F$(Z)L$(A):G$(Z)E$(A):H$(Z)J$(A):ZZ1 ,ZK1330 6 @JJ1:J27280& J:"DIE DATEI WIRD ),K$(324),L$(324),E$(324),J$(324)/ :J1:Z1G "DATEINAME: ";N$:S D$(4)q *** LESEN DER DATEI *** D$"OPEN ";N$ D$"READ ";N$ K:A1K:A$(A),K$(A),L$(A),E$(A),J$(A): D$"CLOSE ";N$B :"DIE PROGRAMMNAMEN WERDEN ALPHABEd **********************;n * *Xx * ALPHASORT *u * VON NILS ARNDT * * VARREL, 9.10.1986 * * * **********************! B$(324),F$(324),G$(324),H$(324),A$(324),I$(324   "BEDIENUNGSART: ...";:16:"";J$(I))XT] *** PROGRAMMAUSGABE (BILDSCHIRM) ***mb::450:A$"J"620g::440:465:515l:420:qI1Kv435{"PROGRAMM NR. : ";I"PROGRAMMNAME : ";N$(I)"PROGRAMMART : ";AR$(I)"";I@5"PROGRAMMNAME : .......................";:16:"";N$(I)T:N$(I)"&E"230l?N$(I)"&V"II2:D"PROGRAMMART : ................";:16:"";AR$(I)I"LAENGE : .....";:16:"";L$(I)N"DISK NR. : ......";:16:"";D$(I)#SI(4)"CLOSE ";NA$:I *** DATEI WIRD VON DISK GELESEN ***^(4)"OPEN ";NA$s(4)"READ ";NA$z KI1KN$(I),AR$(I),L$(I),D$(I),J$(I)I!(4)"CLOSE ";NA$&+ *** PROGRAMMEINGABE ***0"PROGRAMM NR. : ======================================================":i:"DIE DATEI WIRD VON DISKETTE GELESEN!": *** DIE DATEI WIRD AUF DISK GESCHRIEBEN ***(4)"OPEN ";NA$(4)"WRITE ";NA$KI1KN$(I):AR$(I):L$(I):D$(I):J$(I):"DIE DATEI WIRD AUF DISKETTE GESCHRIEBEN!":475:"IST DIE DATEI SCHON GELADEN WORDEN (J/N)? ";:A$::"NR.: PROGRAMMNAME: PROGRAMMART: LAENGE: DISK NR.: BEDIENUNGSART:"9"==========================SSERN.":U1N:" ";:U:r::"DRUECKEN SIE BITTE EINE TASTE ( ---> MENUE)...";:A$:A$(3)150"---------------------------------------":::"GEBEN SIE BITTE DEN NAMEN DER DATEI EIN: ";NA$::@:A$|A$"J"ė:3555::440:445::420:150P *** PROGRAMMENDE ***Z:: *** ZEHN KLEINE UNTERPROGRAMME ***"***************************************": 7:"BENUTZEN SIE <&E> ZUM BEENDEN DER EINGABE UND <&V> ZUM VERBE"BITTE WARTEN (MAX. 10 SEK.)!":JIK:N$(J)N$(J1):AR$(J)AR$(J1):L$(J)L$(J1):D$(J)D$(J1):J$(J)J$(J1)::KK1::"DIE PROGRAMMDATEN WURDEN GELOESCHT!":375r:435:560:435w:"MOECHTEN SIE NOCH EINE KORREKTUR DURCHFUEHREN (J/N)? ";335J::440:465:515/OXK1:K324:225GT *** KORREKTUR ***cY::450:A$"J"ĺ:355z^::440:465:515c:"WOLLEN SIE DATEN LOESCHEN ODER VERBESSERN (L/V)? ";:A$h::"WELCHE NUMMER HAT DAS PROGRAMM? ";ImA$"L"ĺ:" ";:U I; 6:N$(I);0 "30:AR$(I);_ 'W(AR$(I)):N19W3(L$(I)):415:L$(I);~ ,N10(D$(I)):415:D$(I); 1N13(J$(I)):415:J$(I) 6I ;:(4)"PR#0"::420:150 @ *** PROGRAMMEINGABE FORTSETZEN ***E::450:A$"J"";:A$:::(4)"PR#1"::455( I1K A(I55)54:I1A(A)ĺ(4)"PR#0":1::"LEGEN SIE BITTE NEUES PAPIER EIN, UND DRUECKEN SIE EINE TASTE...";:A$:::(4)"PR#1"::455 A(I28)54:A(A)ĺ:455 1:W((I)):W3280 U1(3W):X1:K3245 :410:420::435:IXK:560:435:IW ::KI1:440:445:420:150 *** PROGRAMMAUSGABE (DRUCKER) *** ::450:A$"J"250 ::440:465:515 ::"MACHEN SIE BITTE DEN DRUCKER STARTKLAR, UND DRUECKEN SIE EINE TASTE...SETZEN" 11:"<3> KORREKTUR"G 13:"<4> AUSGABE MIT DEM DRUCKER"q 15:"<5> AUSGABE AUF DEM BILDSCHIRM" 17:"<6> ENDE" 23:1:"WAEHLEN SIE BITTE (1-6): ";:A$ (A$)220,325,345,240,610,395 200 *** PROGRAMMEINGABE *** ,J$(324) *** MENUE ***) ::405f "*";::" PROGRAMMVERWALTUNG ";::"*" "*";::" ";::"GESCHRIEBEN VON NILS ARNDT";::" ";::"*" 405:34,4 7:"<1> PROGRAMMEINGABE" 9:"<2> PROGRAMMEINGABE FORTd **********************;i * *Xn * PROGRAMMVERWALTUNG *us * VON NILS ARNDT *x * VARREL, 9.10.1986 *} * * **********************X1:K324 N$(324),AR$(324),L$(324),D$(324)     ԲҠԍ٠ҠĵРŠԳҠĸԳРŠԴӍԴԠ̠͍Ҡ٠ؠҠųŹčҠųĵ ΠҠҍҠԍРŠԱҠŸҠԍҠҍРԲԱҫԫҠԍѠԱРѠԱРˍѠԱҠԍҍԫҫԱԫԍӍ ΠҠ͍ҠҍҠ΍ҍÍàҍҫàҫԍԫҍԍΠҠijĶ¹¸°Ҡ·Ҡ΍РķIJ ΠҠ͍ҠҍРĹύ РÍɠՍѠčàՍ٠Սٍ̬̍ȬٍȍٍٍРĠӍ ȍٍҠԍ̍Íà׍ȍàȍٍٍҠԍԍРƱŠɍȍѠҍ̍РӠɍҠ̍Íà̍ȍàȍ̍̍׍ȍȍٍÍàٍҠԍԍˍРƱŠ̍РƱѠ٠Սٍ̬̍ȍȬٍٍÍàٍàՍ ؠ̍٠ɍʍ̍׍ȍȍٍÍàٍҠԍԍɍРƱŠʍРƱѠ٠Սٍ̬̍ȍȬٍٍÍàٍàՍˍ׍ȍàȍٍٍҠԍԍРƱŠōȍРӠҍ̍ѠōҠ̍Íà̍ȍàȍРŠɍˍàĪΠҠčؠ̍٠ȍٍՍ̍׍ȍȍٍٍҠԍԍƱٍРàРɍ ̍Íàؠ׍٠ȍٍҠ΍ĠƍĠٍѠԲԲԍӍ ̠ԲԱؠРҍԲǍѠԱҠԍ٠ԍҠԍЍѠԳҠҍ٠ԩٍٍԩٍӍԳؠԍ٠ԫҠƍӍCA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869"Dؠčà ۼرٱ àزٲ سٳݧؠčà رٱزٲؠčà رٱزٲؠčà ؾپҾà۬ۼҾ۬оݧؠčà ؾپؠčàر؍ѠдҠԍ؍ŠгдӍԠà ؠčàӧؠčà̧ؠčàاؠčà ؠčàӧؠčà ؠčà ؾپ ΠҠōؠбԬ؍ѠвҠԍ؍ŠбвؠгԪ ΠٍؠƍӍӍ ؠ٠ؠ٠ҠŵŲР³͠ԍԫԍԫҠĵҠԍҠ͍ԫԍР4);"-BASIC.SYSTEM"NG (nicht KATASTROPHE)VnBeseitigung eines fatalen Fehlers imxBASIC.SYSTEM (Versionen 1.0 und 1.1): AS, September '86:38400::::"TRACE-FEHLERKORREKTUR"4:"Diskette mit BASIC.SYSTEM": 12,27,28,42:CALL/LET...?4,-4,29,30,31,38:NORMAL/FLASH...E:j*******************************p:"OK. wird zur}ckgeschrieben..."(4);"BSAVE BASIC.SYSTEM,TSYS,A$2000,L";BYTES(4);"LOCK BASIC.SYSTEM":"'Booting'...":(Korrektur der Werte in der "Token-Tabelle" f}r]4die Befehle CALL, LET, TRACE und NOTRACE>sowie NORMAL, FLASH, INVERSE und RESUMEH:RY12:ANZAHL,KWERT\:X1ANZAHL:ADDRf::TABADDR,(TABADDR)KWERTp:z:4,-2,Referenzen8innerhalb der verschobenen Programmteile>:UX14:ADDR,KWERTm:Z(BPADDR)KWERT|Z256760::ZZ256:danach ]bertrag::BPADDR1,(BPADDR1)1:BPADDR,Z :12,-6,14,+4,36,+4,46,+6  :/*: :Y13:ADDR,ANZAHL- D:X0ANZAHL1I N::CODE:BPADDRX,CODEP X:V b\ l:| v03,5:"CMP #$C0/TYA/BCS.." 201,192,168,176,246 40,1,02:LIST/CALL 64,2,208,04:TRACE/NOTRACE : Korrektur der relativen und absoluten geschaffen. :* Y12:AD,ED,OFFSET; :XEDAD1K ::Z(BPX)` ::BPXOFFSET,Zg :m s : 37,61,2,04,34,4 : Einbau des Tests sowie der Speicherplatz-Optimierung &der Behandlung von LIST/CALL und TRACE/NOTRACE 0216ĺ"Falsche Version!":E r(BP3)201ĺ"bereits korrigiert.":` |Z0:X140:Y:ZZY: :Z1809ĺ"DATA-Fehler!": : Durch Verschiebung werden vor dem ver{nderlichen Sprung vier Byte Freiraum f}r den Test auf "gr|~er $BF" ssen f}r die Ver{nderungen, die gegebenenP ,Werte gelten f}r die Version 1.1. 6Die Variable ADDR enth{lt immer einen relativen Wert! @: JBP10480: ** VERSION 1.1 ** (V1.0: 10527) TTAB16921:** VERSION 1.1 ** (V1.0: 17011) ^: h(BP)"einlegen und:":A "=Weiter, =Ende ";X$G g (4);"UNLOCK BASIC.SYSTEM" (4);"BLOAD BASIC.SYSTEM,TSYS,A$2000" BYTES(48857)256(48858):"ENDFILE" : ********************************** :) "Basisadre ,dORDNUNG = ORDNUNG (nicht KATASTROPHE)VnBeseitigung eines fatalen Fehlers imxBASIC.SYSTEM (Versionen 1.0 und 1.1): AS, September '86:38400::::"TRACE-FEHLERKORREKTUR"4:"Diskette mit BASIC.SYSTEM":      ԭ忍占ᠣҧԭ堧ҧ堍ᠣ宍ᠣ䠻占ᠨ宍ؠ𮍠𠣤栻ҭ忍堻Ҡ宍𠣤ؠ娳尪㺷쮠፠ؠᠣ孍ᠣᠠƠ򭍠젠䍠ᠨ᭍ ᠣ荠ᠨ àᠠ젠Ơ𠠻魍򠠻𠠻ᠨî占ᠨ捠ᠠ讍ᠨ፠ᠨ占Ơ占ᠨ⠻ᠨ占䍠堻ᠣᠣ𠣤㠻̧ᬠ堻箍ᠣᠣ䮍ᠨ占䍠堻ᠨؠ㺵፠ؠᠣᠱ䍠ᠨᠠ讍ᠨ魍ᠨàᠠ嬍占獠ᠣ⍻ᠠ䍠젠䍠㠠䭍ح򮍠ؠ ؾپŧؠİرà ˾ؠčà ˾ؠčà ˾ؠčà ۢ ŧؠčàҧؠİԠƍCA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869" 򠠻魍򠠻荻堻獠䠣栻𠣱󭍠崠翍ᠠᠣ󮍻嫱򠠻򍻍堻獠렻ˮ堻򠠻嫱孍򠠻򠠻夰⠴ӭɭ溍⠤⭩㰰堭Ӡ⭍󍻍󠸠򮍻󠱠􍻍⠱ӭɭ溍⠤⠳ӭɭ溍⭩⠤ح󍻍ح蠤占㠧Ч占㠧Ч占㠧ӧ占㠧ҧ占㠧̧占㠧ӧӠ󠱠蠤⠤堭⠤欤ᬤ⬤㬤䬤嬤㠧ԧɠ占㠧Χ占㠧ҧ占㠧§򠠻ᠠ孍𲠻묠𲠻砻䮠獠占𱠻嬍㠠讠宍㠣獠󱠻𲠻ᠠ፠ؠᠣ䠻ᠠ٠󮍠宍ᠠ魍ᠨàᠠᠨؠ㺵栻ᠨﮍ占堻荠ᠨᠠ讍ᠨɭ占ԭ忍젻ᬠ宍ᠣɭ占荠ᠨ堻ellung"8 :"ST.EDIT Shapetabelle der Programme"g " SHAPE.EDITOR, SHAPE.CREATE" ::I039:"-";:Id:I039:"-";:8n" SHAPE.EDITOR"LxI039:"-";:r:" Inhaltsverzeichnis"::"TABLE.EDITOR Shapetable-Editierprogramm":"SHAPE.EDITOR Shape-Editierung 21*21 Pkt" :"SHAPE.CREATE Shapetabellen - Erst  ᠨ䠻ᠨ䫱ᠨ㴠ﮍ占ᠨᠨᠨᠨ堻譍孱孍፠㍠㠣堻氰ӭɭ溍⠤仍庽庽፠ح٠ᠨ孍𠣳㍠ᠨ쭍򭍠Ӡᠨᠨᠣᠨ􍻠򮍻㠢΢㠢¢㠢Ң㠢Ң㠢٢㠢΢㠢̢㠢Ǣ㠢Т㠢Ԣ㠢֢㠢â㠢Ϡž⠤ᠣɭ占􍻍孍ᠣ󭍠幠󍻍ӭ⠤⠤䍠퍠𠣤㠻̧幠󮍠ᬠ䍠àכֿᠣᠨؠ㩻፠ؠ쭍巠翍ᠠᠣɭ占巠帠󻍍ᠨ翍ᠠᠣ孍嵠ᠣᠻɭ占堻嶠𠣱쮍퍠𠣤㠻̧帠󮍠ᠣ嫱占𠣱쭍嵠󭳬󭲬󭱬ᠣ䠻ɭ占嶠岰孍崠ᠣ䠻ɭ占蠻魍젠蠻쭍~ $,/6?ELb$V> (?$#,56>''%#,'5?'%'-.$k#h $$--6?on$$ -m!$? 2330C3UU1:C1:23208 C2ĹU,(U)48:2360Q C1ĹU,(U)6:2360p C3ĹU,(U)128:UU1:C0$ C2ĹU,(U)16. C1ĹU,(U)28 IB C0UU1L U,0V ** Anzeigen des Shapes; Frage, ob anh{ngen **G` TA,SN1:233,96:zC2ĹU,(U)8:(C1ĹU,(U)1:8JHRHL1LBB%(J,I):CC1[JHL2290hB2260C3UU1:C1:2250C2ĹU,(U)56:C1ĹU,(U)7:C3ĹU,(U)192:UU1:C0:C2ĹU,(U)24:C1ĹU,(U)3:BJJ1:I(UJ):I02040+UUJ:J0:C0@ IHOHU:A(A0)OI222370] A02190j*JHLHR~4BB%(J,I):CC1>JHR2290HB2160RC3UU1:C1:2150\C2ĹU,(U)40:fC1ĹU,(U)5:pC3ĹU,(U)64:UU1:C0:SXHLII1/C3ĹUI,219:CC3:1930_C2ĹUI,219:UI1,201:II1:CC2:1930qC1ĹUI,91{2030CHLSXII1C3ĹUI,73:CC3:1990C2ĹUI,73:UI1,91:II1:CC2:1990C1ĹUI,75I0:J01 C3ĹUI,146:CC3:1810?&C2ĹUI,144:CC2:1810R0C1ĹUI,130\:1900hDCSYHO}NII1:C0II1XC2ĹUI,216:UI1,72:II1:CC2:1870bC1ĹUI,216:UI1,73:UI2,203:II2lHLSX1980vHLSX2030CB%(X1,Y1):B01690.HLX1:X11:B0CX1X11:X221X1`Y1121:BBB%(X2,Y1):nB01730HRX2:C0:I0:J0:UU1 ** Vektoren bis zur oberen linken Ecke poken **SYHO1860SYHO1900CHOSYII1:C0II **E@:22:"Shape wird berechnet, bitte warten ...":X10:Y10:B0QJY1Y11nTX1121:BBB%(X1,Y1):|^B01610hHOY1:Y11:B0rY1Y11:Y221Y1|X1121:BBB%(X1,Y2):B01650HUY2:X10:B0X1X11 Y1121:BB34(I3)::1410E$"L"B%(X1,Y1)1ĕ7XA,YA:6XA,YA:XNXA:YNYA:B%(X1,Y1)0:I303:I:XM15X1,7Y134(I0)::1410"E$"S"ĕ4XA,YA:SXX1:SYY1:4CX,CY:7XA,YA:XNXA:YNYA:CXXA:CYYA:1410,7XA,YA:14106** Eckpunkte festlegen3:Y121:1410)YN10YN10:Y11:1410OE$(13)ĕ7XA,YA:4CX,CY:1600nE$"P"E$"L"E$"S"15407XA,YA:7XN,YN:XAXN:YAYN:14107XA,YAE$"P"B%(X1,Y1)0ĕ7XA,YA:6XA,YA:XNXA:YNYA:B%(X1,Y1)1:I033:I:XM15X1,7Y1$"M"E$"S"E$"P"E$"L"E$(27)E$(13)1410W XNXA(E$"K")7(E$"J")7w YNYA(E$"M")7(E$"I")7 X1X1(E$"K")(E$"J") Y1Y1(E$"M")(E$"I") XNXM3XNXM3:X121:1410 XN17XN17:X11:1410 YNYM3YNYM160:YM153 <B%(21,21)# F27803 PFF3:2930Z ZUTA(TASN22)256(TASN23)p dIUU302:I,0: nXA87:YA80:X111:Y111:SXX1:SYY1:7XA,YA:4XA,YA:CXXA:CYYA x** Tastatureingabe ** 22:36:E$7 E$"J"E$"K"E$"I"Esie ";SN;" Shape(s) !":( I12000:2 1330~ 12:1:"Anzahl der Shapes in der Tabelle :";E$:N(E$):N1N2551270 TN2N2 ITATATN:I,0:I TA2,TN256(TN256) TA3,(TN256) (** Startbedingungen bestimmen ** 2XM Catalog): ";N$:((N$,1)"?")3000:((N$,1)Q$)1130F FF1:2930i (4)"BLOAD"N$",A$6000":N1$N$ N((TA2)256(TA3)2)2 SN(TA)::SNNĺ"Tabelle voll":I11000::1050 "Die Tabelle kann ";N;" Shapes haben !": "Jetzt hat SHAPE.CREATOR", BI039:"-";::6 L34,4R V** Wahl der Tabelle **m `232,0:233,3:TA24576 j7:"eue Tabelle":"ade Tabelle" t10:1:"Wahl ... ";:E$ ~E$"L"E$"N"1140 E$"N"1270 12:16 "Tabelle ('?' =** SHAPE.CREATE **?** Wolfgang Landgraf, Juni 86 **i** Start des Programmes bei $4000 **|D$(4):Q$"!"(104)64Ĺ103,1:104,64:16384,0:D$"RUNSHAPE.CREATE"$(768)10ĺD$"BLOADST.EDIT".I039:"-";: 8"            HS1:1110/8 216,0::(4)"RUN TABLE.EDITOR"WB ** Bewegungen Cursor und Shape **L FH(FH0):FHĢ21:4:"tart, echseln"V FHXA227:YA50:233,96:2410` XA87:YA80:N7:X111:Y111:SXX1:SYY1:233,3:NXA,YA:4XA,YA:CXXA:CYYA j 222:"Name: SH.";N$:"Wird als SH."N$" abgespeichert."FFF2:3140n :(4)"BSAVESH."N$",A2048,L"U2047 :22:"Nochmal ? (J/N): ";:E$:E$"J"ė::2360 :22::"Neue Tabelle ? (J/N): ";:E$:E$"J"E$"N"2330$ E$"J"1070 . N1:U,(U)2IC0UU1'U,0R ** Shape auf Diskette, Neustart ? **u0:I216238:I,89I,111::3233,8:1227,100:233,3:I116:8227,100:J1250:::22:"Shape auf Diskette schreiben ? (J/N): ";:E$:E$"J"23206:(U)56:>C1ĹU,(U)7:>HC3ĹU,(U)192:UU1:C0:TRC2ĹU,(U)24:i\C1ĹU,(U)3:vfB2190pC3UU1:C1:2180zC2ĹU,(U)48:2220C1ĹU,(U)6:2220C3ĹU,(U)128:UU1:C0C2ĹU,(U)16C1ĹB2020$C3UU1:C1:2010:C2ĹU,(U)40:OC1ĹU,(U)5:oC3ĹU,(U)64:UU1:C0:C2ĹU,(U)8:C1ĹU,(U)1:JHRHL1 BB%(J,I):CC1JHL2150 B2120*C3UU1:C1:21104C2ĹU, des Bildes bestimmen **<N2048,1:2049,0:2050,4:2051,0FXJJ1abI(2051J):I01880vlU2051J:J0:C0v ** Vektoren des Bildes poken **IHOHU:A(A0)I222230A02050JHLHRBB%(J,I):CC1JHR2150 19:CC3:1760>C2ĹUI,219:UI1,201:II1:CC2:1760PC1ĹUI,91Z1870fCHLSXpII1&C3ĹUI,73:CC3:18200C2ĹUI,73:UI1,91:II1:CC2:1820:C1ĹUI,75D ** Startbytes des Shapes poken, dann Anfang|C2ĹUI,144:CC2:16401C1ĹUI,130;1730GCSYHO\II1:C0II1C2ĹUI,216:UI1,72:II1:CC2:1700C1ĹUI,216:UI1,73:UI2,203:II2HLSX1810HLSX1870CSXHLII1C3ĹUI,2X1:X11:B0!X1X11:X221X1>"Y1121:BBB%(X2,Y1):L,B01560i6HRX2:U2051:C0:I0:J0@ ** Vektoren bis zur oberen linken Ecke poken **JSYHO1690TSYHO1730^CHOSYhII1:C0II1rC3ĹUI,146:CC3:1640et, bitte warten ...":X10:Y10:B0/ Y1Y11L X1121:BBB%(X1,Y1):Z B01440n HOY1:Y11:B0 Y1Y11:Y221Y1 X1121:BBB%(X1,Y2): B01480 HUY2:X10:B0 X1X11 Y1121:BBB%(X1,Y1): B01520 HLYY7:Y1Y11:M7:I02HS22HS(HS2)19 <A(JI)C F2700K P: ZJ9119132151024:YY7:Y1Y11:M7:I02HS22HS(HS2)1 dA(JI) n2700 x: 2380  ** Grenzen des Shapes berechnen **# :22:"Shape wird berechnN1140,96:N140,96:N1N:1160- 2970:7 2380B 233,3x  ** Einlesen der Daten aus gezeichnetem Shape ** Y3:Y10 J8863160311024:YY7:Y1Y11:M7:I02HS22HS(HS2)1 A(JI) 2700 (:, 2J8991161591024:070< ~:21:"<- Wahl ->,= Annahme,=Abbruch":N1a 22:1:"Shape-Nr.: "N1" ";:E$ E$(8)E$(21)E$(27)E$(13)1160 E$(13)N1N:1240 E$(27)1070 NN(E$(21))(E$(8)) N1N(TA) N(TA)N1! 2::3:0:1:N1[ 8"Tabelle ('?' = Catalog): ";N$:((N$,1)"?")3200:((N$,1)Q$)2360k BFF1:3140 L:(4)"BLOAD"N$",A$6000" V233,96:232,0:HS0 `1140,96:N11:(TA)11150 j:22:"Dieses Shape ? (J/N): ";:E$:E$"J"1240 t1** Shape.Editor **@** Wolfgang Landgraf 20.04.86 **SD$(4):Q$"!"(104)64Ĺ103,1:104,64:16384,0::(4)"RUNSHAPE.EDITOR"(768)10ĺ:(4)"BLOADST.EDIT,A$300" ** Auswahl des Shapes **$TA24576:B%(21,21) .:2             (TA2N(1)1):W3(TA2N(2)):W4(TA2N(2)1)Q4TA2N(1),W3:TA2N(1)1,W4s>TA2N(2),W1:TA2N(2)1,W2H:22:"Nochmal ? (J/N): ";:E$:E$"N"đ:1990RFF7:2760\:21:"Name: ( "N1$" ) = " f22:" ";N$:N$""N$, = Annahme":N1>22:1:"Shape-Nr.: "N1" ";:E$eE$(8)E$(21)E$(13)2020E$(13)N(I)N::2090NN(E$(21))(E$(8)) N1N(TA)N(TA)N1 N193I,96:N93I,96:N1N:2020/*W1(TA2N(1)):W2A(TASZ2)256(TASZ21)9II1:J(I):J01970zIITA1:TASZ22,I256(I256):TASZ23,(I256):2130233,64:232,0:I12193I,96:N11:(TA)1Ģ22:"Die Tabelle hat nur ein Shape!":I11500::1720:21:"<- Wahl ->s hinzu: ";N[bSZN255ė:22:"Insgesamt nicht mehr als 255 Shapes !":I12500::1880|lTA2N,SZ:TA2N1,0:TA,0vITA2TA2SZ2J(I)256(I1)2NI2N,J256(J256):I,0I12N,(J256):I1,0TATA2N:IT:22:"Tabelle ('?'=CATALOG): ";N$:N1$N$U((N$,1)"?")2650:((N$,1)Q$)1720q:D$"BLOAD"N$",A$4000"&SZ(TA):ITA(TASZ2)256(TASZ21)0II1:J(I):J01840:SLITA1DHH1990NFF6:2760 X:22:"Wieviel Shape$6000,L"SE1040GTA16384:VT6:HT7:FM3:HH0:V0:W0:16303,0n:6:10:"Die Tabelle verl{ngern"8:10:"Shape- Folge ver{ndern"10:10:"Hauptprogramm und Ende"1170(VT4)21790,1780,1040HH1:FF5:2760*)5T:22:"Weiter ? (J/N): ";:E$:E$"N"đ:1510E^FF4:2760mh:21:"Name: ( "N1$" ) = "r22:" ";N$:N$""N$N1$:1690|"Wird als ST."N$" abgespeichert.":D$"BSAVEST."N$",A$6000,L"SE1700 :D$"BSAVE"N$",A:"Dieses Shape ? (J/N): ";:E$:E$"J"đ:1520<"I16387f,II1:J(I):SBI16388,J::J01600p61580@SZSZ1:SESBI16387TA:TA,SZ:SZNė:22:"Die Tabelle ist voll !":I12500::1640JTA2SZ2,SE256(SE256):TA2SZ3,(SE256TB:I,0:4TA2,TB256(TB256):TA3,(TB256)\SB(TASZ22)256(TASZ23)TAFM5::22:"Shape ('?'=CATALOG): ";N$:((N$,1)"?")2650:((N$,1)Q$)1290FF3:2760:D$"BLOAD"N$",A$4000"232,0:233,64:193,960:22; NSZė:22:"Die Tabelle ist voll !":I12500::1040i :22:NSZ" Shape(s) haben noch Platz !" I12500::1510 2730 FF2:2760 :22:"Anzahl der Shapes: ";N$:N(N$):(N$Q$)1290:(N1N255)1470 TB2N2 ITATAuptprogramm und Ende"$ <1170:FM2F F(VT4)21360,1450,2620,1040P P2730` ZFF1:2760 d:22:"Tabelle ('?'=CATALOG): ";N$:N1$N$ n((N$,1)"?")2650:((N$,1)Q$)1290 x:D$"BLOAD"N$",A$6000" N((TA2)256(TA3)2)2:SZ(TA)W VN102V6WVN6F VT:HT:" ":VN:HT:"->":VTVN:1210} TA24576:VT6:HT7:N0:SZ0:SB0:V1:W0:16303,0 :6:10:"Alte Tabelle editieren" 8:10:"Neue Tabelle erstellen" (10:10:"Shape.Creator aufrufen" 212:10:"Ha720,2220,2590,2650,2690/ 19:I039:"-";:G 21:I039:"-";:W 6:7:"->"| 20:10:"<- Wahl ->,dann " 20:31:E$ E$(8)E$(21)E$(13)1210 E$(13)ı VNVT(2(E$(21)))(2(E$(8))) VN6VN102V66:10:"Shapetabelle erstellen"D L8:10:"Shapetabelle editieren"j V10:10:"Einzelshapes erstellen" `12:10:"Einzelshapes editieren" j14:10:"Catalog Disklaufwerk 1" t16:10:"Shape-Table-Plus->Ende" ~1170:FM1 (VT4)21290,1K** Table.Editor **B** Wolfgang Landgraf 10.04.86 ** UD$(4):Q$"!"(104)8Ĺ103,1:104,8:2048,0::D$"RUN TABLE.EDITOR"::VT6:HT7:V0:W1I039:"-";:$13)"Shape-Table-Plus".I039:"-";:834,4 B          堨̱嬠嬠婻堨̱嬠嬠婻堨̱嬠嬠婻堨ϱ嬠嬠婻堨ϲ嬠嬠婻堨̹嬠嬠婻堨̱嬠嬠婻堨̱嬠嬠婻堨̱嬠嬠婻堨̱嬠嬠婻堨̴嬠嬠婻堨̵嬠嬠婻堨̶嬠嬠婻堨̷嬠嬠婻堨̸嬠嬠婻婻堨ԧ嬠嬠婻堨Ч嬠嬠婻堨̱嬠嬠婻堨̲嬠嬠婻堨̳嬠嬠婻嬠婻堨ŧ嬠笠婻堨ԧ嬠嬠婻堨ʧ嬠嬠婻堨ʧ嬠嬠婻堨ԧ嬠嬨ɧ嬠嬠婻堨̧笠嬠婻堨Ч嬠嬠婻堨Ч嬠嬠婻堨Ч嬠嬠婻堨堨笠嬠婻堨ɧ䬠嬠婻堨ɧ嬠嬠婻堨ɧ嬠嬠婻堨̧笠嬠婻嬠婻堨Ч嬠嬠婻堨Ч嬠嬠婻堨ɧ嬠嬠婻堨ɧ嬠嬠婻堨ɧ嬠嬠婻ɠͲɠͳɠʹ۰ݠ绍㠠㻍򠺠򠺠򻍠󠠠ۧЧݠ򻍠򠠠򻍠󠠠򻍠堠򻍍堻ᠣ䠻ح덣仍󠱷卻􍣍仍򩻍娧ӭҠ፠ح٠ᠨ⠤⠤占⠤䍠占占占占嬠ᠨ덠𫱠堍ᠨ⠤ᠻﺠ򠍠堻CA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869"D쩻ħ٩ç򶵩ԧةħة̧ة򶵩٩ħ䩻򶵩ԧةħة̧ة򶵩çɴ̧򶵩ԧ󩻍ħ󩻍̧󩻍򶵩ɧ쩻ħ򶵩ԧ嗢ħ嗢̧嗢򶵩Ч쩻ħ§󩻍ة̧ة򶵩ҧ󩻍ħ䩻򶵩嗢ة̧ة򶵩ç쩻٩ç򶵩󩻍̧󩻍򶵩̧쩻٩䩻򶵩§̧嗢򶵩Ч쩻̧򶵩§󩻍ϲọ˧쩻䩻򶵩򶵩§嗢嗢嬠嬠婻堨ķ嬠嬠婍仠ọ⍠仠ı嬠嬠婻堨IJ嬠嬠婻堨ij嬠嬠婻堨Ĵ嬠嬠婻堨ĵ嬠嬠婻堨Ķϱ嬠嬠婻堨ϱ嬠嬠婻堨ϱ嬠嬠婻堨ϱ嬠嬠婻堨İ嬠嬠婻堨ӹϸ嬠嬠婻堨Ϲ嬠嬠婻堨ϱ嬠嬠婻堨ϱ嬠嬠婻堨ϱ嬠嬠婻堨堨ϳ嬠嬠婻堨ϴ嬠嬠婻堨ϵ嬠嬠婻堨϶嬠嬠婻堨Ϸ嬠嬠婻堨CA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869"Dz"#??   ͱԠͲԠEͳԠNʹԠ.Ҡ!Үʠ"Үà" ծϠԮՠJՠ ŭԮРԮɠ<ƭ ­ ŮҠ íԠԠɠĭҠԠŮҠ ŮҠ ŮŠ ԮԠ Ԡ򶵩ɧ쩻ç٩٧쩻򶵩Ч䩻çةӧ쩻ç٩ç䩻򶵩ڧةçةҧا쩻çҧ򶵩Ч䩻ç󩻍ҧ󩻍򶹷ç䩻򶵩򶵩ڧ嗢ç嗢ҧ嗢򶵩٧쩻򶵩򶵩ҧةҧة򶵩ӧ쩻򶵩򶵩ҧةҧة򶵩ɧ쩻ҧ٩鵩Ч󩻍ҧ󩻍ҧ󩻍򶵩ç쩻ҧ٩ҧ䩻򶵩ҧ嗢ҧ嗢򶵩쩻ҧҧ仠⻍ɧ쩻ҧ䩻򶵩򶵩>";AU' :"Das Ergebnis lautet: ";AU3 PAUSE9 _ "Geben Sie einen bel. Text ein:"q "ABU >";TE$ :"Sie gaben ein: ";TE$ PAUSE HELP  !198 &I11000 +(16384)127ľG$:565 0I 5Y2O16 I PAUSE" BACKCOL3:COL0+ CLS; X13904P LINE139,191X,0i LINE140,191279X,0p X Y01884 LINE140,191279,Y LINE139,1910,Y Y PAUSE   "Geben Sie einen num. Ausdruck ein:" "ABU LINEX1,Y1X2,Y2 YI$ ^PAUSE3 cCLS:COL3C hI459510Z mCIRCLE139,96,I,,3a rIx wLINE139,1139,191 |LINE44,96234,96 I13 FILL167I20,98 FILL112I20,94 I3415 FILL141,59I20 FILL137,133I20 ((1)130)30# XR((1)30)17 YR((1)30)1I ST((1)22)a CIRCLEX,Y,XR,YR,STh "It 'PAUSE~ ,COL8 1I050 6X1((1)280) ;X2((1)280) @Y1((1)192) EY2((1)192) JLINEX1,Y1X2,Y2 OWA050:WA TRECX1,Y1,X2,Y2 O,I% PAUSE3 BACKCOL8> I15G CLSN IZ PAUSEn BACKCOL0:COL3w CLS D3.141180 I036010 CIRCLE50I2,96(DI)46,49,,10 I PAUSE CLS IO30 X((1)219)30 Yd(4)"BRUN ABU"#iPAUSE5451nBACKCOL0GsCLS:HIRES:COL8SxI150f}X1((1)280)yY1((1)192)X2((1)50)Y2((1)50)XS(X155)YS(Y155)X2X1X2XSY2Y1Y2YSBOXX1,Y1,X2,Y2O16      à à à à à à à à à à à  ˬ ˬ ˬ ˬà à ؠƍ ±؍РŠϳàԍРϱΠԍ̍؍²؍²؍Ҡ΍ӍҠؠРҍ ±à à à Ԡؠƍԍϱ٠ƍϲ؍ٍ±؍РѠ΍РƍѠҍРԩٍѠϲϳ؍ҍҠ̍ҍұӍ Ԡԍ٠ԍ͍٠ͫÍ٠ԍؠԍˍ٠˫ؠ˫͍ǍؠؠԠՠ٫ ̫̲̠ՠ̱ȫ̲Ƞՠ̲̫̱ՠ̲ȫ̲ՠ̱̠ՠ̲Ƞՠ̫͠ՠȫנՠͫȠՠ׫٠ՠȫՠՠ٫ƱՠիɠՠƱʠՠɫˠՠʫ̠ՠ˫̠ՠ̫Ƞՠ̫٠ՠȫDZՠȫDzՠDZDZՠDzDzՠDZDZȠՠDzDzȠՠDZȫDZȠՠDzȫDzȠՠDZȫ̠ՠDzȫȠՠ̫̠ՠȫȠՠ̫̱̠ՠȫ̱ȠՠՠұРՠҫРՠЫر̠ՠЫرȠՠر̫ٱՠرȫز̠ՠٱزȠՠز̫ٲՠزȫٱ̠ՠٲٱȠՠٱ̫ٲ̠ՠٱȫٲȠՠٲ̫ɠՠٲȫ̠ՠɫȠՠ̫̠ՠȫȠՠ̫ƍˠՠñˠՠˠՠ°ˠՠōˠՠˠՠ ̠ՠðȠՠİՠŰԠՠư͠ՠԫҠՠͫұՠҫҠ ˠՠƵ͠ՠԠՠ¸Ԡՠ±Ԡՠ·ǠՠǠՠРՠРՠǠՠƍԠՠҠՠҠՠč ƶ¹͠ՠĶҠՠŷҠՠƳƶԱՠŲ¸ԠՠųԠՠųƠՠ²ΠՠĶŠՠõԠՠčՠĹҠՠųԠՠ³čƠՠŲƲ ӭ ҠՠĴΠՠĹŠՠŶƸҠՠðΠՠƴԠՠƴϠՠƵԠՠƴΠՠƴij̠ՠƶÍĠՠ ԭ Ǯ Ǡ                       쩻򶵩٧󩻍󩻍ا󩻍򶵩ç쩻򶵩򶵩٧嗢嗢ا嗢򶵩٧쩻ԧҧة򶵩仠㻍쩻䩻,&CIRCLE ,,[,[][,]]&FILL ,&TEST ,,VARNAME&GOTO &GOSUB &RESTORE &INPUT ["Text";] VARNAME&ERRCIRCLE TEST FILL ERR HELP "2eQqSAJg*4 5 Ԅr LڥHHH Y ghhLbhhߚHH` XW N `&PAGE <1-2>&HIRES&FULL&MIX&BACKCOL <0-8>&CLS&COL <0-8>&PSET ,&LINE [,] TO , [TO ,]&REC ,,,&BOX ,,/ 544i45i5L;...456L` g RLA٩ ӥHHvHuHH BL g R ֥i}i~HH}~ :Ƀ ٥}~hh`  " =۩; ީ3Lˉ3UR ߅ 0խ c`$ 㥝 q,6- 7/ 5448455LP02014+5,6i- 70/#1/.456i.234+5,68- 72/#3/.4568.456 W4i+5i,6- 7A@@?>==<;;:99876654432110//.-,,+*))('&&%$##"!   +,-, ީ ߅$Lԥ 7  RQȥP` +`+,- 0)1&7` 456.4+5,6- 7/6L!48+5 :$%& G"# & $ %'`,0 ` `,0 :` ہ`~~~~~~~~}}}}}}}|||||{{{{{zzzzyyyyxxxxwwwwvvvuuutttsssrrrqqqpppoonnnmmllkkkjjiihhhggffeeddccbbaa``__^^]\\[[ZZYYXWWVVUUTSSRRQPPOONMMLKKJIIHHGFFEDDCBB )  m* !i8* ! ɀ ɀID :"#& GID :"#' GSN  :$%' G'" )m )`Tde NnNnNnNnNnNnNn8Tde !N!n N!n N!n N!n N!n N!n N!n m(m)8(  ہ`  ,     ,0 :Lf ہ ` ()*, g R -5L ,8 ,$ g R -5L ,  `Ii҄f8Ъх e8e҅ԥե0)Q&&Ӱ eЅԥeP`  , ,0=  : : : :`  ہ ہ ہ ` @PWRS`,R`,S` 5 Ԏ`   ` I` 5L  ` ` ,0 W` 0)Q&&`   ,0 : ` ہĹH8HӰ hIiHӅхhЅh stL1  `Ƚo #Ѹo L8 ɀHȀH `LPAGE HIRES FULL MIX BACKCOL CLS COL PSET LINE REC BOX CIRCLE TEST FILL ERR HELP "2eQqSAJg*4 5      ا󩻍ç󩻍ç󩻍򶵩ѧ쩻ç٩ç䩻ç嗢ç嗢򶵩ا쩻çЧ쩻򶵩çة򶵩اç䩻򶵩򶵩ا嗢ة򶵩ħ쩻Ч٩ا쩻򶵩򶵩Чةŧ쩻Ч٩Ч䩻򶵩򶵩Чةçﰰ٧쩻Чا쩻򶵩٧󩻍Ч󩻍ç󩻍򲠨Ч䩻򶵩򶵩٧嗢Ч嗢ç嗢򶵩٧ةةا٩򶵩仠仍٧ةا٩򶵩֧쩻٩ا쩻򶵩ا󩻍򶵩ӧ쩻٩䩻򶵩٧ة嗢򶵩٧쩻ا쩻򶵩٧󩻍󩻍򶵩٧䩻ا򶵩٧嗢嗢ا쩻٩ӧ쩻򶵩ڧ󩻍ةڧة٩䩻򶵩٧ةةا٩򶵩CA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869"ΧӧǧΧΧЧԧ˧ŧȧŧҧΧӧǧǧçħԧקԧԧԧħŧȧàЩЬ仠廍컍Ю捠Ѩ۱ݧ۱ݠè¨묠Өը嬠ب۱ݧ련򩻍堨婍仠۳ݻ堠ź堠ͮˮŧî󠠠堠۰ݠɨϨͨШ嬠Ĩ𬠠⻍㻍䍠仠Ь栨ЩԶ栨Զ젠廍Ƨ軍Щ򶵩򶵩çةçة򶵩仠ọ򶵩򶵩çةçة򶵩ħ쩻ç٩ا캵̠Ӻ󺳩䮍ݺ庽婻徰婍娧Ӡĺ庵Ӡź庵̧ۧݠ̠ӺĠŠŧ庽󩻍徰婍􍠠ݺݻݠۧݻߧۧӧ󧬧̧ݻ娧ŠŠκ婻娠ŠŠӠħ̧ۧݠ፠㵸占􍣍ǭ͠Ҡέֲ̠ΠӠҠɠǭźӠگڬ̠گڧߍ󍣍占砽۱ݠ򻍠砽۱ݠ򻍍򻍠庠绍庠绍庠򻍍鍍     嬠蠻ᬠ𴍠ᠠᠣɭ占ᠠ堻ᠣᬠﰠɭ占𳍻占ᠨ宍ᠣᠻɭ卻ᠨﰠ㠣堻獠ᠨ䠣㲠ᬠᠣ䍠፠ᠠ٭㍠٭𲠻ᠣ뮍٠ᠨ󮍠젻䠣栻ᠨ占련򭍠ᠨ砻ᬠ𠣼뿍ᠣ⠻ᬠᠣ⭩ᠣ뮍荠𠣼󿍠򍻍٠썠ᠨӭᠣ󭍠砻᭍򍻍氰⠤ᠻ歍򍻍氰㭍⠤㠻󭍠젻𫱠ӭ㠣嫱氰⠤㠻孍젻򍻍氰孍⠤㸠堨⭩𠣳䍠卻፠㍠㠣ᠨ᠍㍠堻썻占ᠨӠ̩䠣栻占٠ᠨ ᠻӡ፻                                  粻Ӡ򧍠仠系Ӡ򧍠姻Ӡ󧻍Ӡ炙Ӡ仠类Ӡ仠Ӡ移Ӡ移Ӡ󧻍ӠӠӠӠӠӠ맻Ӡ槻ӠӠӠӠ짻Ӡ짻Ӡ򧻍Ӡ򧻍捠ӠӠ򧻍ӠӠӠӠ姻ӠӠӠݠΠЧЮ۰ݍ썠᲍仠󻍠Ӭӱ绍簻Ьө仠ө仠àЩЬΠРЮ۰Ю󠺽󠫠Юݍ占ЮîЮ̧ӧ仠Ю۵ݠàЩЮЬөާӬçӧӧҧҧҧΧЧЧЧԧħçӧԧ̺àةààçççç̧̭᲻Ӡ򻍠Ю捠ħŧЧàةӧ٧ԧԧҧԧ̧仠CA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869"廍栠廍堠绍廍堠绍堠绍򠠠۰ݠ廍堺򻍠󠠠۱ݻ󠠠򻍠󠠠򻍠栱젠栳۰ݠ򻍠Р廍Զ컍컍󠠠򻍠򻍠㠠廍Ϡ򻍠멻򻍠堠۱ݻ堺嶵仠堠۱ݠл堠ݠ𶵻򠠠Ĭ詻򠠠򻍠蠠򻍠à۱ݠ򻍠Р䍠堠л󠺠۱ݠЍ仠𶵠䍠堺󬍠嬠嬠䬠嬠Щ嶵쬠ﬠ쬠ج٬䬍٬ج٬䬠䬠䬠򶵩Р۷ݻ쩻謠婻۰ݠ婍仠򠠠۱ݻР嬠嬠嬠嬠笠䬠󬠠󠺠۰ݠ򩍠仠젠䍠捠򩻍򠠠仠堠堠捠󠺠۰ݠ婻ݠ򻍠ݠ㻍󠺠廍仍۷ݍ㠠䍠ݠ㻍堠ݠọ䠠ݠ󻍠򠠠㬠㬠穻㠽䍠堠䠠仠󻍠㠠䍠򠺠򻍠砺򍠠仠󠠽䬠笠㬠笠笍̠ɠàɠ堠ᠠ۰ݠ򻍠䠽۰ݠ򻍠堽堠̠Һҭ欠󠠠堠      ͧ嬠嬠婻堨§嬠嬠婻堨§嬠嬠婍仠⻍堨Ч嬠堨ҧ嬠笠婻堨Ч嬠嬠婻堨Ч嬠嬠婻堨Ч嬠嬠婻堨ͧ嬠嬠婻堬婻堨ç嬠婻堨ѧ嬠嬠婻堨ӧ嬠嬠婻堨ħ嬠笠婻堨ѧ嬠嬠婻嬠嬠婻堨Ч嬠嬠婻堨է嬠嬠婻堨ѧ嬠嬠婻堨ҧ嬠嬠婻堨嬠籶֧笠嬠婻堨ϧ笠嬠婻堨ӧ嬠嬠婻堨ϧ笠嬠婻堨Ч䬠䬠󩻍堨Ч堨ħ笠嬠婻堨笠嬠婻堨ϧ笠嬠婻堨嬠婻堨ŧ嬠笠婻堨笠婻堨Ч嬠嬠婻堨Χ嬠嬠婻堨ʧ嬠嬠婻堨Ч嬠嬠婻堨ç笠嬠婻ɧ嬠嬠婻堨ҧ嬠嬠婻堨ϧ嬠嬠婻堨ӧ嬠嬠婻堨ɧ嬠嬠婻堨ŧ嬠堨ԧ嬠嬠婻堨ӧ嬠嬠婻堨ɧ嬠嬠婻堨ҧ嬠嬠婻堨ӧ嬠嬠婻堨婻堨ɧ嬠嬠婻堨ɧ嬠嬠婻堨ҧ嬠嬠婻堨ɧ嬠嬠婻堨ҧ嬠嬠婻˧嬠嬠婻堨ϧ嬠嬠婻堨ԧ嬠嬠婻堨Χ嬠嬠婻堨ԧ嬠嬠婻堨ҧ嬠堨ҧ嬠嬠婻堨ħ嬠嬠婻堨Ƨ嬠嬠婻堨ɧ嬠嬠婻堨ҧ嬠嬠婻堨ọ堨ɧ嬠嬠婻堨ҧ嬠嬠婻堨ɧ嬠嬠婻г仠堺Ӡ͠嶵Զݠ堺ӻ堺͍仠堨堺ӠлбвгЩРݠ堺ӻ۱ݠб۲ݠв۳ݠ               򻍠򻍠򻍠򻍠䠠򻍍àЩЬ仠컍Р컍컍Ơ򻍠ɠ򻍠堠򻍠򻍠󠠠绍Πл廍ɠ۲ݻˠ컍堨ө仠û򻍍ì컍堨󠺽仠廍堠ȩ󠺽󠫠㠽軍ȩ堨ȩ󠺽󠫠仍îî仠Ӻ穻嗢ҠҠҠ蠺ݻ󠽠î仠ȩ堨ҠҠ堭î婠占Ҡî廍ݻҠ󠺽䠨欠򬠠ҠîҠ렺Ҡ占렺Ҡ廍뻍󠺽䠨欠򬠱祉仠򻍠󠺠򻍠렠򻍍󠫠㠾堨󠺽仍퍠îލ占󠺽Ȳ۲ݠ۲ݻȲ۳ݠ۱ݻȲ۴ݠ۰ݍ仠à㠺쩻Ƞ򻍠𠠠컍Ҡݠ۱ݻȱ۲ݠ۰ݍ仠컠Ȳ򩻍ȲȲ۱ݠ۳ݻ䠨詠䠨ˠ占˻ȍ仠컠ȱ򩻍ȱȱ۱Ƞ􍠠占ɠ蠨ө蠺Ӡݻ詻ۧݍȠȠ䠨詠䠨占ۧƧݍȠȠ򩠺򻍍Ӡ绍Ƞ򻍠ɠ򻍠蠺򻍠ˠ􍠠өˠ廍Ƞ蠨ө仠廍堨򠨲仠à򩻍à򠨰䠨ìé仠堨򠨲򠨱仠컍堨򨲹仠𻍍堨򠨱                         ЩîЮàûèЩîЮûàЩЬᠠ堽ЮûàЩЬ堽ЮûààЩɻ堨ާîЮ堨ɠɠ仠䠨îûè仠豻ɠ󠪠ɠû仠費堨仠򻍠򠠠򻍠򻍠à򻍠豻堨絻綻粸粹糰糱仠堨ө仠򻍠젺짻Ӡ짍仠糱Ӡӱ捠簻类粻系紻ӠӬӱ仠糰糱糱捠Ӡ炙Ӡ맻Ӡ姻ӱ򧻍ӱ맻ӱӱ맻ӱ㧍仠捠ӱӱ󧻍ӱ󧻍ӱ姻ӱӱ仠粹糰糰捠Ӡ炙Ӡ㧻Ӡ㧻Ӡ粹捠Ӡ䧻ӠӠ󧻍Ӡ𧻍ӠӠӠ移ӠӠ姍槻ӠӠ짻Ӡ짻ӠӠ槍仠粸粹仠綻Ӡ󧍠仠粸粸捠Ӡ仠紻Ӡ姍仠絻Ӡ䧍Ю󠺽󠫠ЮݍàЩЮЬ堺ާàЩЮЮЮЮРЬ仠堠堠ЮЮ堺Ь仠堠頠Ю仠堠àЩЮ󠺽Ơݠ捠堠堠ЮР􍠠󠠠۲ݠ嬠󩍠占РݠΠ廍堠仠ûà婻㠠ˠ廍ΠçàЩ젺Ю捠젺̧젺ҧ젺̧젺ҧ젺ԧ젺ħ仠쬠ά蠨Ω捠󍠠仠仠廍젺۴ݻЮûàЩ󠽠Ю費Ԯ豍仠îЮ堨堣ɠ仠ûàЩ򠼠占򠼠ɠûàЩɭ䠨򩻍䠨éɫ򠽠򠺽󻍠󠺽򠼠젺젠쩻ݻ󠺽費堨àûèЩЮ堠󠺽ûàЩ젺Ю젽仠àЩЬ仠ûà썠Ӡ۱ݠӬ占Ӭ仠àЩЬ堠컍Р컍堠۳ݻ۳ݻ绍Ӡ򩻍栨ĩ                !!! ! ! ! ! !!!ЩЮîЮЬ󬠧נí仠徧廍㠼Р占ɠ䠭ûà嬠󠺽󬠧仠謠堨Ω󠺽蠨Ω堨󩻍ˠ堨ɬЮ仠󠺠徧仠蠨蠨󩠽󠺽ᠠ廍䠠䠨îà堺䬧仠򠠠à䬧仠ɠàЩ仍堠廍堠󾧍仠󠠠󾧻䠨îàЩɠݠЮˠˠ䠨Ю۰ݩ仠ˍЮ仠󠠠ˠ廍ɠ۰ݠɠ䍠Ь仠䠠䠠àЩЮàЮ軍蠺Ю占ЮîЮЬ仠砠ɭ欠婻ɫϠ􍠠仠Ϡ䠨欠㬠ϠϠ̩ɯϠ򠣧ϬϠ頠𻍠宮ݩ堼堨橻ɭ欠婻ɫϠϠ嬠ŧ۱ݠ򠨲嬠婻蠨婠堺仍堽컍堨䠺䬠䩻򠺽ۿ򬠼򾠽䬠㾼򾠽ݠ􍠠􍠠򩻍婻蠨婠ԭ򻍠򠠠绍䠺绍䠺绍련䬠䩻䠽䠺ͮˮŧ쩠à򻍍󍠠é󠺽àé占蠽®荠󠺽®󠺽蠼®仠Ю􍠠ݠЮݠؠؠ仠ؠ堨ة仠 Ġ򩻍ؠ򻍠۰ݠ򻍠Р컍û栨ؠ堨ؠ䠨ؠàР廍ا仠򶵠仠嬧嬠仠仠䠠堠廍􍠠仠䠠堠仠٠٧仠䠠堠廍􍠠堠廍٧仠󠠠ؠا٧仠䠺堠廍ا仠٠Ь仠ؠا仠٠仠젠àЩЮЮ蠺Ю蠺ЮîЮ婻堠Զݠ捠젠堺廍ɠ򻍍磠堠֧͠ɠɩ仠㠠堨砠堨᧩仠堨ݠ堨堺堨欠仠ݠ捠䠠堨䧩砠堨㠠堨𧩻砠堨砠堨㠺򩻍ݠ򠺽􍠠򠺽堨򩻍堨򠺠堨ݩ堨򠺠堨砺۽󍠠仠򩻍򠺠򻍍㬠ݬݠ򠼾򠠠㠨堨̩󠧬򬠧򠫠򠭠󩍠仠򠠠砭󠠺򠫠ݻ堺󠺍堨̩󩍠仠򠺽砫堭廍䠨欠򩠼󻍍à򻍍򩻍򠺠򻍍㬠ݬޠ젫仠뻍렺򻍍뺠멻î堪뻍仠îĠ仠󻍍î䠠堠仠ì仠ﶵ𻍍򻍍ìì仠ﶵﶵ捠Ġ堠仠蠺䩍仠仠廍󠺽ݻ婻ɫϠϠ䬠䬠䩍占̩ɯϠ򠣧ϩ堨ź仠󠧬䬠䠠绍ۼ򾠽źݠ婻嬠婻蠨婠堺ź嬠ԧ堨멻ɭ堨뻍堺廍î廍󠧬婍仠䠺򻍠䠠绍H%(X)1H%(X)39310I @:V%(X):H%(X):T$(X);::V%(X)1:H%(X):X" "; J1:22:"ZAHLFLAG: ";X$:Z%(X)((X$)):Z%(X)3330 TX25XX1:260 ^*MATCH-CODES* h18:1:958:19::"MATCH:";:19:13:"MATCH1:";:19:26:"MATCH2:";:9 r21:11:X2160:3609 L%(X)(T$(X)):L%(X)1L%(X)40260 "1:19::T$(X);::MBMBL%(X):38:17:MB;:MB229ĺ:"RECORDLAENGE > 229 ";:X$:160 ,1:20:958:"VTAB: ";X$:V%(X)(X$):V%(X)1V%(X)16300 61:21:958:"HTAB: ";X$:H%(X)(X$):):"W = WEITER ";& X$:X$"W"220< **MASKE BILDEN** :1:18:958::"1234567890123456789012345678901234567890";: MB0:MC25:X1 1:19:958:1:20::"FELDNAME *";::1:19:"";T$(X) T$(X)""MCXBAD=7085 TASC-BEGINN& **DB-BAUER**0 810Z :V%(25),H%(25),L%(25),Z%(25),T$(25) ::"* DB-BAUER *":"* U.STIEHL 1/86 *":: " START J/N "; X$:X$"J"X$"N"190 X$"N"Ĺ216,0:: ::"LEERDISK IN DRIVE 1"::(7k 2"UNBEDINGT ANLEITUNG IN 2/87 ABWARTEN!!!":n(104)64Ĺ103,1:104,64:16384,0::(4);"RUN BAUER"(21)::(4)"BLOAD BAUER.OBJ"d$803=2051=JMP ZU TASCn$806=2054=TR.0,SEC.0 + TR.11,SEC.0=VTOCx$C00=3072=RUNTIME BEGINN $1!!!!!""" " " " " "堨멍Ч廍ﶵħ𻍠󻍠§뻍ç󻍠ӧէ廍ا젺썠򠽠ѧ􍠠廍ݩ򩻍𻍠捠堺堫䠲ɧϧͧ仠廍堿詻蠽٧۳ݍ۳ݍ仠Ġ詻捠էĻͧ荠仠堨󠧩捠Ġħ蠺򠺽䠨󺧩廍绍㍠仠堭㩠堭ݠàààݻîݮ򠪠堫û仠􍠠堨堨󬠧ɭ䠨㩻ɫ䠨詻㠺۱ݻàРìàé󩻍ݩ仠㻍㠠򻍠à򻍠蠠򻍍ޠ⭭绍à򠨰堨ۼ򾬠㾠ݠ􍠠䠨ìé젨àéà䠨à򩻍堨ellung"8 :"ST.EDIT Shapetabelle der Programme"g " SHAPE.EDITOR, SHAPE.CREATE" ::I039:"-";:IɢǍЍŠűűҍΠҬıעŠŠŠڠԠΠΠŠ""z#ɝ+JJJJ ?> / X5 l>ԠŠō͠­Ҡ͠΍Ƞ̬Ǎ­ŠΠĠΠΠL`` ΅Ϡ΍ ȱ΍        H` X Ll­̱"""(34);X$:X:(34);(5):(4)"CLOSE"U :"ERLEDIGT":216,0::(4)"FP":WEGEN LOMEMj*160:***ERROR**(21)::(4)"BLOAD BAUER.OBJ"d$803=2051=JMP ZU TASCn$806=2054=TR.0,SEC.0 + TR.11,SEC.0=VTOCx$C00=3072=RUNTIME BEGINN $1 "X$(X$,MB)L="+MB+RTN=MB+2 :(4)"OPEN DB-DATEI":(4)"WRITE DB-DATEI"#X0MA:(0)""(MG1000)"":1*CRTL-S+1...9+11*CRTL-SK(34);T$(0)cX1MA:(34);X$:X$"":14*CRTL-EX$:(4)"CLOSE"_=ASCII-95X$"_ K1":X0MC:X:1:5::(4)"CLOSE"t(4)"OPEN DB-DRUCK2":(4)"WRITE DB-DRUCK2":X0MC:X:1:5::(4)"CLOSE"**DB-MATCH SPEICHERN**X$"0_ "L[NGE=15="+0+123412341234+RTN(4)"OPEN DB-MATCH":(4)"WRITE DB-MATCH":T$!!!0**MASKE SPEICHERN**M::(4)"OPEN DB-MASKE":(4)"WRITE DB-MASKE"iDMA:MB:MC:MD:ME:MGuNX1MCXV%(X):H%(X):L%(X):Z%(X):(34);T$(X)bX:(4)"CLOSE"l**DB-DRUCK SPEICHERN**#v(4)"OPEN DB-DRUCK1":(4)"WRITE DB-DRUCMG(X$)&MG1MG9480:MGMG1000N24:1::"ALLES OKAY J/N";::" ";kX$:X$"J"X$"N"510{X$"N"170***SPEICHERN***:"BITTE WARTEN...":(4)"INIT XXX":(4)"DELETE XXX"&2054:*** BOOTSECTOR + VTOC. NUR FUER 140K-DISK-1MATCHTSL-4DATEITSL?XX256:Y(MB2)(132):**MATCH+DATEI_MA(XY)5:MA1000MA99522:1:"RECORDANZAHL: ";MA;:22:15:" ";X$X(X$):(X50XMA)MAX22:1:958:"RECORDANZAHL: ";MA23:1:958:"RECORDTAUSEND: ";X$::958:"MATCH1 (FELD-NR.): ";X$:MD(X$):MD1MDMC370J |19:21:MD; 22:1:958:"MATCH2 (FELD-NR.): ";X$:ME(X$):ME1MEMCMEMD390 19:34:ME; 21:1:958:"RECORDLAENGE: ";MBX52842214:**SEKTOREN-MASKE-DRUCK1-DRUCK2