A10000:20: Bestaende in BASICODE 3 MX600:I$(MX),S(((MX)(2))1,1) A$(14),N$(3),N(3),I(3)!A$(1)"Basicode Kassette"$!A$(2)"Standart Kassette"B!A$(3)"Disk ( standart )"a!$A$(4)"Disk unit Nr 2 "!.A$(5)"Computerspeicher "!8A$(6)"DATA - Zeilen "!B MENU!LA$(7)"Einlesen "!VA$(8)"Drucken "!`A$(9)"Kopieren ""jA$(10)"Zusammenfuegen "7"tA$(11)"Vergleichen "T"~A$(12)"Sortieren "q"A$(13)"Hilfe ""A$(14)"Ende ""I0:J1:S$" "" MENU"100"" B E S T A E N D E "#" -----------------":6#120:VVE:"Waehle .....":C#M7 13Z#A$(M);" ";(58M)a#M#A$(14);" ";(72);" oder ";(88):#120:MVE:HO0:VEV:110#  KEUZE#210:KIN64:IN88 K8#(K1)(K8)1300#(VEV:110:A$(K6)$2VEM V2 1:110:S$:VE*$<VEV:1108$FK8 950O$PK6 4010:1200f$ZK7 5010:1200$dN(1)97:N(2)98:N(3)99$n3005:1200$ BESTANDSNAMEN$120:VVE:HO12:110$N1 "Einlesen...";$N2 "Einlesen2 "; %N3 "Auslesen .";%".........":*% M1 6U%" ";A$(M);" ";(M48):M:% " Abgebrochen ";(88)%*120:MVE:VEV:HO12:110%4210:N(N)IN48%>IN88 FT1:%H(IN49)(IN54)2100%RVEM V 1:110:S$:VE&\VEV:110:A$(N(N));" ";"&fD&p(IN50)(IN52)N$(N)""::S&zN$"":120j&"'";N$;"' ";:110&210:IN31 2220&(N$)7 250:2180&N$(N)N$:2510&IN127 N$N$IN$:2180&(N$)1 N$""&(N$)1 N$(N$,(N$)1)'2180!' EINDE BESTANDSNAAM)' :8'( AFBREKENK'2 HO0:VEM:110`'< :"Abgebrochen"k'F 210:v' FOUT' :"2 x Dasselbe !!"' 210:' INIT' FT0:N1:2010' FT0 2610' (K4)(K5)N2:2010' FT0 2610( (K3)(K4)N3:2010!( FT0 2610=( (N(1)3)(N(2)3)2710Y( (N(1)3)(N(3)3)2710u( (N(2)3)(N(3)3)2710( N(1)N(2)2710( N(1)N(3)2710( N(2)N(3)2710( INIT 2(& (0 N(1)(N(1)1)2: INPUT(: N(2)(N(2)1)2: INPUT)D N(3)(N(3)1)21: OUTPUT4)N I(1)0:I(2)0:I(3)0G) OPENEN FILESf) FT0:H$""::N(3)9 J1r) N1 3) IN0:NFN(N):NF$N$(N)) N(N)8 500) (N(N)8)(J1)IN1) N(N)10 D$:D$"$$$$$" IN1* I(N)IN:IN0 "falsche Eroeffnung":FTN:N3-* N:FT0 NFT:3810B* N3:I0:IJ0:L0Y* K1 120:"0";k* LEES FILE 1* K1 110:SRI:300:SR$;* N(1)8 NFN(1):540:SR$IN$:I(1)IN* N(1)8 SR$I$(IJ):IJIJ1:IJJ I(1)1+ N(1)10 SR$D$:D$:D$"$$$$$" I(1)1#+H LEES FILE 23+R K5 3510\+\ N(2)8 NFN(2):540:H$IN$:I(2)IN+f N(2)8 H$I$(IJ):IJIJ1:IJJ I(2)1:H$""+p N(2)10 H$D$:D$:D$"$$$$$" I(2)1+ SCHRIJF FILE 3+ N(3)8 NFN(3):560:I(3)IN, N(3)9 I$(I)SR$:IMX I(3)1(, K1 SR$=, K2 350:360e, (K5)(SR$H$)FT1:I(1)1:I(2)1, (K5)(I(1)I(2))FT1, CONTROLE INTERRUPT,IN0:200,$IN88 I(1)2:::"Abgebrochen":IN0,.IN0 210 -8IN88 I(1)2:::"Abgebrochen""-t EINDE BESTAND ?N-~(I(1))(I(2))(I(3))0 II1:3310a-I(1)1 3770x-(K4)(L1)3770-H$N$(1):N$(1)N$(2):N$(2)H$-HN(1):N(1)N(2):N(2)H-L1:I(1)0:II1:3310-N(3)9 JI.K1 SRI1:110:300:SR$:. SLUITEN BESTANDEN#./.M1 NI.N(M)8 NFN(M):580P.M\.< EINDE.F(K5)(FT0)"Bestaende sind ungleich".P(K5)(FT0)"Bestaende sind ungleich".ZFT0:I(1)0 FT1.dI(2)0 FT2.nI(3)0 FT3 /xFT0 "Ok.":39902/"Fehler in : ";A$((N(FT)2)1);U/N$(FT)"" " '";N$(FT);"'";b/:210:{/ SORTEREN QUICKSORT/J1 /::SR0:120:"0"/S(1,0)0:S(1,1)J:S1:F1/LS(S,0):RS(S,1):SS1:PL:QR/X$I$(((LR)2))0I$(P)X$ P(P1.5):406050X$I$(Q)Q(Q0.5):4070D0PQ 4140f0W$I$(P):I$(P)I$(Q):I$(Q)W$0SRSR1:300:110:SR$0PP1:PJ(JP(JP))20QQ1:Q(Q(Q))20"40600,LQ SS1:S(S,0)L:S(S,1)Q16PR SS1:S(S,0)P:S(S,1)R1@S0 4040)1J::"Ok.":210:41 HELP=1100c1" B E S T A E N D E "1" ----------------- ":1120:VVE:"Hilfe":1"Mit Hilfe dieses Programms koennen Sie"2"BASICODE - 3 Bestaende kopieren. Sie "*2"koennen Bestaende ausdrucken( Bild"Y2"u. Drucker), Bestaende kopieren, zusam-"{2"menfuegen und vergleichen."22:"Die Bestaende koennen auf Kassette(auch"2"Basicode) und auf Disk stehen. Auch " 3 "kann ein 'Bestand' aus DATA-Zeilen be-"43"stehen. Als Zwischespeicher kann"`3"der Computerspeicher genutzt werden."3("Das kann maximal 500 Zeilen betreffen,"32"die auch sortiert werden koennen."3<:"Mit einer Taste wird die Bearbeitung"4F"unterbrochen, mit der Taste 'x' beendet."4PG4Z:" ";U4d210:HO0l4nVE23 4 1:1104x" ";4VE:4a EVT DATA-REGELS4a"Vorlage DATA - Zeilen"4a":"5a"siehe Programm 25000-29000"5Hq"$$$$$"%50u BESTANDEN 1.8+5:uJ5Du UTILITIES VOOR BESTANDENP5Nud5Xu IN BASICODE 3j5bu5y NF= 0 1 BASICODE CASSETTE5"y 2 3 STANDAARD CASSETTE5,y 4 5 DISK (STANDAARD)56y 6 7 DISK (UNIT NR 2) 6@y 8 9 COMPUTER GEHEUGEN#6Jy 10 DATA-REGELS)6Ty?6^y N$(3) N(3) I(3)E6hy\6ry 1 = INPUT FILE 1x6|y 2 = EVT INPUT FILE 26y 3 = EVT OUTPUT FILE6y6} GESCHREVEN DOOR6 }6} HENK VAN DEELEN6} RUDOLPHLAAN 286(} 3794 MZ DE GLIND72}7<} (C) H VAN DEELEN 1988"7F}=7P} TROS-RADIO DD 890405C7Z}X7d} Uebersetzt vonj7n} Ronald Knak7x} Dr.-H.-Wolf-Str.17} Schwerin7} 2 7 5 87}7} am 14.12.907} 7} Erstausstrahlung: Deutschlandsender Kultur8}-spezial 910220 Schwerin7} 2 7 5 87}7} am 14.12.907} 7} Erstausstrahlung: Deutschlandsender Kultur8}-sp