YRVB BASIC-MIX1J7000:A1$"KLEINCOMPUTER robotron KC85/1 & KC87"hA2$"HEIM UND HOBBY":A95{A3$"R+PERDAT"A4$"VERZEICHNIS"A5$"PERSOENLICHE DATEN" AUTOR:KITTELMANN INITIALWERTE A9:8:1:::195IZ1:C$(101,7),D$(7):LS$(11," ")TC$(101,0)"NAME":C$(101,1)"VORNAME":C$(101,2)"WOHNORT"C$(101,3)"STRASSE":C$(101,4)"TEL.NR.":C$(101,5)"GEB.AM"C$(101,6)"BERUF":C$(101,7)"......."Z100:1000` UNTERPROGRAMME b TITELBILDd(2,2);A1$:(4,2);"",(34,""),""9f(5,2);"":(5,37);""Wh(6,2);"",(34,""),""wj(5,3);A2$:3;(5,29);A3$lA9:(8,2);(36,"")nI913:(I,2);"":(I,37);"":Ip(14,2);(36,"")r8:(10,36(A4$));A4$:(12,36(A5$));A5$/t3:(18,2);"VEB ROBOTRON-MESSELEKTRONIK"Wv(20,2);">OTTO SCHOEN< DRESDEN":8gwUP:>ENTER<x4;(22,31);">ENTER<":195zT$:T$""122|T$(13)~130:122 WIE BITTE ? 2;(20,27);"WIE BITTE ?":KENNZIFFER4;(22,25);"KENNZIFFER :"1T$:T$""141E2;(22,37);T$l(T$)48KA(T$)48KE130:141}T(T$)48:(J)/N ?4;(22,(32(KY$)));KY$,":(J)/N":(20,27);LS$T$:T$""151(T$)13(T$)74T1: (T$)78T2: 130:10:150$ J/(N) ?Y 4;(22,(32(KY$)));KY$,":J/(N)":(20,27);LS$m T$:T$""161 (T$)13(T$)78T2: (T$)74T1: 130:10:160 VERZEICHNIS (4,2);C$(101,0):(6,2);C$(101,1) (8,2);C$(101,2):(10,2);C$(101,3)= (12,2);C$(101,4):(14,2);C$(101,5)i (16,2);C$(101,6):(18,2);C$(101,7):x SORTIEREN :195:6;(22,20);" BITTE WARTEN":I1IZ1:J1I C$(I1,0)C$(J,0)186 C$(I1,0)C$(J,0)C$(I1,1)C$(J,1)186 L07:D1$(L)C$(I1,L):LN KI1J1:L07:C$(K,L)C$(K1,L):L:Ko L07:C$(J,L)D1$(L):L:JI J:I:(10,10);" ": KORRIGIEREN 4,20,10,39:J07:C$(I1,J)::J: CURSOR WEG! ((44)1,(43)1);" ":  HAUPTPROGRAMM C ::195:6;(2,2);A4$:6;(3,2);(11,"")k 6;(4,2);A5$:6;(5,2);(18,"") (7,2);"1 = DATEN EINGEBEN" (9,2);"2 = DATEN ABSPEICHERN AUF KASSETTE" (11,2);"3 = DATEN EINLESEN VON KASSETTE" (13,2);"4 = VERZEICHNIS AENDERN"G (15,2);"5 = DATEN AUSGEBEN AUF BILDSCHIRM"n (17,2);"6 = DATENLISTE EINSEHEN" (19,2);"7 = PROGRAMM BEENDEN" $KA1:KE7:140::195 .T2000,3000,4000,5000,6000,7000,8000 DATEN EINGABE6;(1,2);"DATEN EINGEBEN --> BITTE WARTEN"66;(2,2);(14,"")Y4;(1,22);(C$),"BYTES FREE"b170t4,19,10,39:IIZ100::C$(I,0)"ZZ":C$(I,0):J17:C$(I,J)" ":JC$(I,0)"ZZ"IZI:I100:I:180:1000J17:C$(I,J):J:I6 IZI:::2;(4,2);"DATENSPEICHER UEBERFUELLT!"N30:180:120:1000d DATEN SPEICHERN 6;(2,2);"DATEN ABSPEICHERN":6;(3,2);(17,"") 4;(5,2);"KASSETTEN-TONBAND-AUFNAHME STARTEN" 4;(7,2);"UND TASTE >ENTER< BETAETIGEN!":1201 10,23,2,37::C$(0,0)(IZ):"DATEN";C$B 120::1000W DATEN EINLESEN6;(2,2 );"DATEN EINLESEN":6;(3,2);(14,"")4;(5,2);"KASSETTEN-TONBAND-WIEDERGABE STARTEN"4;(7,2);"UND BEI VORTON >ENTER< BETAETIGEN!":120)10,23,2,37::"DATEN";C$:IZ(C$(0,0)):120::1000T VERZEICHNIS AENDERN6;(2,2);"VERZEICHNIS AENDERN":6;(3,2);(19,"")170:4,20,0,39:I07:" ";C$(101,I):(C$(101,I))7C$(101,I)(C$(101,I),7)I120:1000o DATEN AUSGABEFp6;(1,2);"DATEN AUSGEBEN":6;(2,2);(14,"")UrIZ17120t3;(5,2);"WORUEBER WOLLEN SIE INFORMIERT WERDEN"v(7,(10));" ";xCI$" ":CI$:I11zII1IZ1:J07|(CI$,C$(I,J))0I1I:IIZ1:J7:J:I:6020 ~J:I:B4;(8,2);"KEINE INFORMATION VORHANDEN !"Q120:1000r:6;(1,2);"DATEN-AUSGABE"{1704,20,10,39:I07:": ";C$(I1,I)::I:195KY$"WEITER SUCHEN":150:T1I1I11::6010KY$" KORRIGIEREN":150:T1190:180:1000<KY$" LOESCHEN":160:T21000xC$(I1,0)"ZZ":I17:C$(I1,I)" ":I:180:IZIZ1:1000W DATENLISTE EINSEHENXI11l:6;(1,2);"DATENLISTE":6;(2,2);(10,"")qIZ17120 v4;(3,2);C$(101,0):4;(3,20);C$(101,1)(3,(10))4II1I17::" ";MC$(I,0);20)C$(I,1)pIIZ1II17:I::120:1000wIKY$"FORTSETZEN":150T21000I1I18:70202;(3,2);"BITTE ERST DATEN EINGEBEN" 2;(5,2);"ODER VON KASSETTE EINLESEN!">KY$"DATEN VON KASSETTE EINLESEN":150:T21000J:4000b? PROGRAMM BEENDEN @6;(2,2);"ENDE DES PROGRAMMES":6;(3,2);(19,"")J(6,2);"BITTE VERGESSEN SIE NICHT, DIE NEU"T(8,2);"EINGEGEBENEN DATEN ABZUSPEICHERN!"+^KY$"WOLLEN SIE DATEN ABSPEICHERN":150:?hT1195:3000ErX(#ENDE PERDAT !INGEGEBENEN DATEN ABZUSPEICHERN!"+