1 A300:20: "### Base ###" G500:HTHO:VTVE:GS0:GF0 DF$(G) 14010 SR$"Menue" HO14:VE0 $110!.150 !8::,!B"1 - Erstellen einer Datei"L!L"2 - Erweitern der Datei"l!V"3 - Editieren der Datei"!`"4 - Anzeigen der Datei"!j"5 - Sortieren der Datei"!t"6 - Durchsuchen der Datei"!~"7 - Einlesen einer Datei"""8 - Abspeichern der Datei"9""9 - Umbenennen eines Datenfeldes"a""10 - Streichen eines Datenfeldes"""11 - Einfuegen eines Datenfeldes""""0 - Ende"":""Kennzahl eingeben ";DF"DF(DF)"(DF0)(DF11)1350"DF0 950 # DF7 13308#DF 3010,4010,12010,5010,2010,9010,11010A#100K#(1040W#2DFDF7u#<DF 10010,6010,7010,8010~#F100#P1040# " Sortieren " NACH SHELL-METZNER-SORT#GS2 #GFGSGF21G 2170#100#::$"Das in Zeile 1010 dimensionierte"$ @$"Variablenfeld ist zu klein."F$ n$*"Um dennoch sortieren zu koennen,"t$4$>"muessten Sie einen Datensatz"$H$R"aus der Datei streichen."$\SD100$f450$p$z100$HO10:VE0:DF1$110%SR$"Sortieren"%150%%::5%GF2 2370D%I0 GF1Y%I1;". ";DF$(I)`%Ih%:%"Nach welcher Bezeichnung"%%"soll sortiert werden ?"% % "( 1 -";GF;") ";% DF%$ DF(DF)%. (DF1)(DFGF)2010&8 SORTIEREN&B MEGS!&L ME(ME2).&V ME0 6&` J1B&j KGSMEJ&t IJR&~ F0]& LIMEt& SR$DF$(IGFDF1)}& 330& E$SR$& SR$DF$(LGFDF1)& 330& Z$SR$& E$Z$ 2600& F1 2430& JJ1& JK 2380& 2420'( LLGFGSGF '2 IIIGF IGFGF14'< DF$(LL)DF$(II)@'F LLLL1H'P IIT'Z LLLGFl'd IIIGF IGFGF1'n DF$(II)DF$(LL)'x LLLL1' II' IIGFGSGF' LLLGF LGFGF1' DF$(LL)DF$(II)' IIII1' LL' II1' I0 F1( "( "Anlegen des Datenfeldes"1( 100:3710D( HO7:VE0:GS0b( SR$"Anlegen einer Datei"k( 110t( 150|( :( "Eine Datei setzt sich aus"( ( "mehreren Datensaetzen zusammen."( (& "Ein Datensatz besteht wiederum"(0 ): "aus mehreren Datenfeldern,"$)D F)N "wobei jedes Datenfeld eine"L)X r)b "Bezeichnung besitzt, die ueber"x)l )v "die Form des Inhalts Auskunft") ) "gibt.") ) "(Bsp. Vorname;Name;Adresse;...)") HOHT11:VEVT) 110 * SR$"Taste"* 150* 250$* 210-* 100;* HO7:VE0D* 110h* SR$"Benennung der Datenfelder"r* ::{* GF1* "Bezeichnung ";GF;".Datenfeld"** *4 DF$(GF1)*> *H "weiteres Datenfeld (J/N) ?";*R 210*\ :*f IN78 3450+p GFGF1:3360+z 100)+ HO10:VE02+ 110F+ SR$"Korrektur"O+ 150Y+ ::h+ I0 GF1}+ I1;". ";DF$(I)+ I+ :+ "Soll eine Bezeichnung"+ + "geaendert werden (J/N) ?"+ +210+IN78 3700,"Nummer des Datenfeldes: ";DF,$:3,.(DFGF)(DF1)3610M,8"alte Bezeichnung :"\,BDF$(DF1)b,L|,V"neue Bezeichnung :",`DF$(DF1),j3450,t,~GS0 3020,"Durch die Erstellung einer",,"neuen Datei, wird die",-"bereits bestehende zerstoert."!-A-"Wollen Sie trotzdem eine"G-g-"Datei erstellen (J/N) ?";p-210-IN74 -GF0:GS0-100- 3020- " Datei erweitern "-100:GF0 -HO8:VE0-110-SR$"Datei erweitern".150.::+."Es sind bereits ";GS1.N."Datensaetze vorhanden"T.r."Ein Datensatz enthaelt"x..""jeweils ";GF;" Datenfelder.:".,.6I0 GF1.@I1;". ";DF$(I).JI.THOHT11:VEVT.^110.hSR$"Taste"/r150 /|250/210/100)/GSGS18/I0 GF1D/DF$(I)J/\/DF$(IGSGF)b/i/Iq/:/"weiterer Datensatz (J/N) ?"/210/IN78 4370/4240/100// "Anzeigen"/100:GS0 /HO8:VE001100SR$"Datei darstellen"$0150.0::L0"Die Datensaetze werden"R0l0"einzeln angezeigt."r00"Mit '+' und '-' kann"00 "vor- und rueckwaerts"00"geblaettert werden."0(02"Jede andere Taste"0<1F"fuehrt zurueck ins Menue."*1PHOHT11:VEVT31Z110C1dSR$"Taste"L1n150U1x250^1210g1MD1p11001MD1 MDGS:2501MDGS MD1:2501I0 GF11DF$(I)1" ";DF$(IMDGF)1I1HOHT11:VEVT11102SR$"+ / -" 21502210(2IN$"+" MDMD1>2IN$"-" MDMD1^2"(IN$"+")(IN$"-")5430h2,5270q26100w2@2p "Umbenennen eines Datenfeldes"2z100:GF0 2HO5:VE021102SR$"Datenfeld umbenennen"21503:::DF0 3I0 GF1$3I1;". ";DF$(I)+3I33:Q3"Welches Datenfeld soll"W3t3"umbenannt werden? ";DFz33(DF1)(DFGF)60103"alte Bezeichnung :"33$DF$(DF1)3.38"neue Bezeichnung :"3B3LDF$(DF1)3V:4`"Wiederholung (J/N) ?";%4j250.4t210?4~IN78 6290I46010O4s4X "Streichen eines Datenfeldes"|4b1004lGF0 4vHO8:VE041104SR$"Datenfeld streichen"41504::4I0 GF14I1;". ";DF$(I)4I5:"5"Welches Datenfeld soll"(5F5"gestrichen werden? ";DFN5:g5(DF1)(DFGF)70105"Sind Sie sich sicher (J/N) ?";5 25052105 IN74 5* "Streichen und Verdichten"54GF1 73105>IDF1 (GS1)GFGS16RJI (GS1)GF1$6\DF$(J)DF$(J1)+6fJ86pIIGF2?6IW6GFGF1:GF0 GS0a6::~6"Wiederholung (J/N) ?";625062106IN74 738067010610066@ " Datenfeld einfuegen "6J100:GF0 6THO8:VE07^110 7hSR$"Datenfeld einfuegen")7r15037|::S7"vorhandene Datenfelder :"[7:j7I0 GF17I1;". ";DF$(I)7I7:7"Geben Sie bitte jetzt die"77"Kennzahl ein, an welcher"77"Stelle das Neue Datenfeld"8!8"platziert werden soll !"'8 K8 " ( 1 - ";GF1;" ) ";:DFf8& (DF1)(DFGF1)8010n80 :8: "Geben Sie bitte nun die"8D 8N "Bezeichnung ein !"8X 8b A$8l 8v MD(GF1)(GS1)18 MDG 8490 9 "Das dimensionierte Feld ist"9 "9 "zu klein."(9 K9 "Die Variable g in Programm-"Q9 s9 "zeile 1010 muss mindestens"y9 9 "den Wert ";MD;" besitzen."9 9 "mit Tastendruck zureueck"9 9!"ins Menue ---"9 !2109!1009 !:*!DFGF 8530:4!IMD MD(GFDF)15:>!DF$(I)DF$(IGS1)<:H!IU:R!DF$(MD(GFDF)1)""_:\!ABGSo:f!AB0 8660:p!IMD(GFDF)2:!JI IGF1 1:!DF$(J)DF$(JAB):!J:!IIGF:!DF$(I)"":!II1:!ABAB1:!AB0 8580;!DF$(DF1)A$;!GFGF1;!100#;!::B;""Soll noch ein Datenfeld"H;"i;""eingefuegt werden (J/N) ?"o;$"x;."250;8"210;B"IN74 8010;L"100;V";(# " Datei durchsuchen ";2#100:GS0 ;<#HO7:VE0;F#HO7:VE0;P#110$"weiter mit Tastendruck">$210!>$:(>$I0>$:Y>$F0 "Bezeichnung nicht vorhanden"k>$F "Fertig"s>$:>$"Wiederholung (J/N) ?";>$250>$210>%IN74 9010>%100>%>' " abspeichern ">'100>$'HO8:VE0>.'110?8'SR$"Datei abspeichern"?B'150'?L'::6?V'GS 10170U?`'"Es ist noch keine Datei"[?j'm?t'"vorhanden."s?~'?'"mit Tastendruck zurueck"?'?'"ins Menue"?'210?'?'"abspeichern auf:"?'?'"Kassette = 1"?'@'"Diskette = 2"$@'E@'"2.Diskette = 3"K@(l@ ("rechnersp. Speicher = 4"t@(:}@(210@((NF0@2(IN$"1" NF1@<(IN$"2" NF5@F(IN$"3" NF7@P(IN$"4" NF3@Z(NF0 @d(:@n("Dateiname: ";A$Ax(NF$A$A(500A(SR$A$%A(560/A(SRGF8A(300AA(560KA(SRGSTA(300]A(560rA(I0 GFGSGF1A(SR$DF$(I)A(560A(IA)580A)A* " einlesen "A+100A +HO8:VE0A+110A +SR$"Datei einlesen"A*+150A4+::B>+GS0 11210/BH+"Durch das Einlesen wird"5BR+QB\+"die bestehende Datei"WBf+iBp+"zerstoert."oBz+B+"Wollen Sie trotzdem die"B+B+"Datei einlesen (J/N) ?"B+210B+IN74 11200B+B+::B+"Einlesen von :"B+C+"Kassette = 1"C+?C+"Diskette = 2"EC+eC,"2.Diskette = 3"kC,C,"rechnersp. Speicher = 4"C$,:C.,210C8,NF1CB,IN$"1" NF0CL,IN$"2" NF4CV,IN$"3" NF6C`,IN$"4" NF2Cj,NF1 Dt,IN$"1" "Dateiname: ";NF$.D~,500:5409D,A$IN$BD,540PD,GF(IN$)YD,540gD,GS(IN$)|D,I0 GFGSGF1D,540D,DF$(I)IN$D,ID,580D,:"Der Dateiname lautet: ";A$D,SD30D-450D -D. " Editieren "D.100 E.HO8:VE0E.110.E/SR$"Datei editieren";E/GS0 DE/150NE&/::rE0/"Mit + und - kann geblaettert"xE:/ED/"werden. Mit e wird editiert"EN/EX/"Mit jeder anderen Taste"Eb/El/"gelangt man zurueck ins Menue"Ev/HOHT11:VEVTF/110F/SR$"Taste" F/150.F/250:2107F/DF1@F/100OF/I0 GF1dF/I1;". ";DF$(I){F/" ";DF$(IDFGF)F/IF/120:VEVE1:HOHT15F/110F/SR$"e / + / -"F0150F 0210:F0IN$"e" 12400F 0IN$"+" DFDF1 G*0IN$"-" DFDF1*G40(IN$"+")(IN$"-")DG>0(DF1)(DFGS) 250UGH0DF1 DFGSfGR0DFGS DF1qG\012210Gp0"Nummer des zu aendernden"Gz0"Datenfeldes eingeben !"G0"0 = Datensatz streichen ";KG0KGF 12210G0K0 12500 H0"alte Bezeichnung :" H0DF$(K1GFDF):H0"neue Bezeichnung :"NH0DF$(K1GFDF)YH012210aH0:~H0"Sind sie sich sicher,"H0H0"dass der gesamte Datensatz"H0H1"gestrichen werden soll (J/N) ?"H1210H1IN74 12210I$1IGFDF GFGS1I.1DF$(I)DF$(IGF) I81I,IB1GSGS19IL1GS0 DIV112350WI6 " Vorspann "`I6100qI6AB(HT29)2I6I1 (VT16)2I6I6II6120I6HOAB:110I7"***** ** ****** ******"I 7VEVE1:110J7"* * **** * * *"J7VEVE1:1104J(7"* * ** ** * *"EJ27VEVE1:110fJ<7"* * * * * *"wJF7VEVE1:110JP7"* * * * * *"JZ7VEVE1:110Jd7"* * * * * *"Jn7VEVE1:110Kx7"***** ****** ****** ******"K7VEVE1:1103K7"* * * * * *"DK7VEVE1:110eK7"* * * * * *"vK7VEVE1:110K7"* * * * * *"K7VEVE1:110K7"* * * * * *"K7VEVE1:110K7"* * * * * * *" L7VEVE1:1102L7"***** * * ****** ******":L7:bL8A$" "L8A$A$"### BASE ### - das universel"L8A$A$"l einsetzbare Dateiverwaltungs"L"8A$A$"programm in BASICODE; programm"M,8A$A$"iert von Joerg Szonntag auf ei"0M68A$A$"nem commodore plus/4 "Q} * 9134 SACHSEN *bQ} * *Q} * LETZTE AENDERUNG 16.04.90 *Q} * *Q} *****************************Q}Q} Erstausstrahlung: DS-KULTUR R}-spezial 900808 *Q} *****************************Q}Q} Erstausstrahlung: DS-KULTUR