\ A500:20: Beschreibung d. KC-Prg. * DIRERST * HTHO:VTVE:S$"":I1 HT:S$S$" ":I HL0:HRHT:VL2:VRVT2:R$"":T$&!1340:HO(HT(SR$)6)2:VE0:1105!150:::K!"Ausdruck ueber"l!$:" - 1 den Bildschirm,"!." - 2 den Drucker."!8:"Welche Nummer ?";:210!BSCIN48:SC:SC2 SC1:1180!L:"Wieviel Leerzeichen " "V"am Zeilenanfang ";:HL+"`:"Wieviel Text-Zeichen "V"j"auf jeder Zeile ";:I:HRHLI1u"t:"Wieviel Leer-Zeilen ""~"am Seitenende ";:VL":"Wieviel Text-Zeilen """auf jeder Seite ";:VR:VRVRVL3#MM$"":HL0 MM$(S$,HL)'#1310:M$MM$:ALVL:SC2 1290@#(R$)HRHL 1730]#1370:R$"" R$R$" "p#R$R$D$:1200#SC2 SR$M$SR$:350:360:1250#120:M$;SR$;:VEVE1:HO0:110:HL0#M$MM$:ALAL1:ALVR #SC1 1310$VL0 I1 VL:360:I:210$ALVL?$ SR$(S$,(HRHL(T$))2)T$:1230X$SR$"":1230:ALVL:l$HO0:VEVT:110$(SR$"Weiter: -> FFS'91":150$2210:IN13 1330$<100:ALVL:SR$T$$F(S$,(HT(SR$))23);:150$P::$ZD$%dD$"" 1370%n(D$,1)"." 14404%x(D$,1)"!" M%D$"!" D$"":1430b%D$(D$,(D$)1)r%1670:1380%D$".E" 1490%J1:1670:T$"E N D E"%SR$"":1230:1230:SR$T$:1230:T$""%SR$"":1230:ALVL 1470%950&DD$(D$,2,1):D$(D$,(D$)2)*&DD$"R" 15507&SC2 e&(R$)6(D$)HRHL SR$R$:1230:R$""&M$;R$;:SR$D$:150:M$""&HLHL(R$)(D$)6:R$"":1370&DD$"M" 1580&I(D$):MM$"":IHL0 1370&"MM$(S$,IHL):1370',DD$"P" J(D$):1670:1690:1370H'6DD$"T" T$D$:J10:1670:1690:1510k'@DD$"Q" R$R$(34)D$:1370'JDD$"F" 1640'TJ(D$):1670'^JJ1:J1 SR$"":1230:1630'hDD$"C" 1660'rSR$(S$,(HRHL(D$))2)D$:1230'|1370(1730:SR$R$:1230:R$"":JJ1#(>((SC1)(ALJVR)1710W(SR$"":1230:1230:w(ALVL SR$"":1230:1710}((KHRHL1(M$)((R$)K ((R$,K,1)" " 1780(KK1:K0 1750(SR$"":1790)SR$(R$,K1):R$(R$,(R$)K))1230:1730()a"DIRERST/DISK"9)a".M1",".F2"P)a"Vorbemerkungen:"|)a"!!Das Programm hilft beim Erstellen,")a"Verwalten und Drucken von")a"Inhaltsangaben fuer Disketten und Kassetten.")a"!Die vorliegende Version ist fuer die")*a"Diskettenarbeit gedacht aber leicht"S*a"fuer Kassette nutzbar.Dazu sollten"*b"nur in den Routinen 'LOAD' (ab 6000)"* b"und 'SAVE' (ab 7000) zum Bandstart"*b"-stop u.s.w. Hinweise eingebaut werden."+ b"!Zum Programm existiert noch eine"/+*b"Zusatzroutine (ab 10000), die einzelne"V+4b"Dateien verbindet, und eine von"}+>b"Dateiprogrammen (z.B.'UNIDATEI)"+Hb"zum Verwalten und Suchen nutzbare"+Rb"neue Datei erstellt."+\b"Diese ist aber nur mit KC 85/4 oder",fb"entsprechenden Erweiterungen sinnvoll."B,pb"!Ich habe mit diesen Programmen"h,zb"endlich Ordnung in mein Archiv",b"gebracht (Vorteil:kurze Erklaerung",b"zum Programm moeglich) und wuerde",b"mich freuen, wenn es auch anderen",b"nutzt."-b".P0",".F2"-b"Kurzbeschreibung:"B-b"!!Alle Routinen werden aus dem"n-b"Haupt- oder Untermenue durch Eingabe"-b"des Anfangsbuchstabens aufgerufen"-b"und in einigen Faellen zur Sicherheit"-b"nochmals abgefragt.".b"!!Bei der",".REINGABE","kann fuer die beiden":.b"haeufigsten Recordertypen eine "b.c"Umrechnung der Zaehlwerksangaben".c"erfolgen.Hier ist zu beachten,dass".c"die Umrechnung nur fuer Eisenbaender".$c"K 60 relativ genau wird."/.c"!!Beim",".RDRUCK","ist das Programm"./8c"auf den Drucker K 6313 eingestellt."[/Bc"Es kann zwischen dem Druck von Listen"/Lc"und Einlegeblaettern fuer Kassetten"/Vc"bzw. Disketten gewaehlt werden."/`c"Ich denke, alle anderen Funktionen sind"/jc"selbst zu erkennen."0tc".P0",".F2"0~c"Uebersicht:";0c"!! 100- 300 Eingabe"a0c"!!1000-1280 Hauptprogramm"0c"!!3000-3800 Veraendern"0c"!!4000-4240 Ausgabe"0c"!!5000-5800 Druck"0c"!!6000-6150 Load"0c"!!7000-7200 Save"!1c"!!1500 und 1600 Umrechnungen"C1c"!!!Viel Spass und Tschuess"U1c"!! Frank"e1c".P0",".E"1}*****************************1 }1} GRUNDPROGRAMM VON1} STICHTING BASICODE EINDHOFEN1(}12} BESCHREIBUNG DES PROGRAMMS2<} 'DIRERST' FUER KC 85/2-42F})2P} FRANK FECHNERC2Z} INNERE ZWICKAUER 79Q2d} ZWICKAU^2n} O-9571d2x}2}*****************************2}2} Erstausstrahlung: Deutschlandsender Kultur2}-spezial 910612 O-9571d2x}2}**************