BANDARCHBASpARCH$$$)      BANDARCHIV AUTOMATISCH HC 3/86 68" MASCHINENPROGRAMM EINLESEN"  ,  ,   f       , . &01,&00,&00,&11,&00,&a1,&cd,&77,&bc,&c9  AUFBAU DER VARIABLEN2 heade(,,)0< ( , )()( )( ) F a-yP mtex()%Z   mtex( )d (, )n     x ( , )B " K A T A L O G "," A U S W A H L "," D R U C K E N ?"B "< 1 > ERSTELLEN ","< 2 > ANSEHEN ","< 3 > DRUCKEN "B "< 4 > ENDE "," IHRE AUSWAHL","< 1 > 1. SEITE "B "< 2 > 2. SEITE ","< 3 > MENUE ","================="B " NACH LETZTEM "," H E A D E R "," AUF ANFRAGE "B " M I T "," CTRL + L "," AUSSTEIGEN " MENUE 1" 0,0,1,12,0,4,5,6,7,0,12,0,8 MENUE 2$ 0,0,2,12,0,9,10,11,0,12,0,8,0 MENUE 3$ 0,0,3,0,12,0,9,10,11,0,12,0,8 MENUE 4' 0,13,0,14,12,0,15,0,16,0,17,0,18Ltex()" * A U T O M A T I S C H E S B A N D A R C H I V * " Ntex()" Zaehler- Programm- Programm- Programm- Programm-"N"tex()" stand name art start laenge " , ,"GOTO 2830:CLS"( ) 6 F @J ANZEIGEN HILFSMENUE^#  h #,, #,"!!"r  | #,, %#,mtex( ( m, ))Abfrage Window 3 m ^#& "KASSETTEN-NUMMER < ? >"; k& "KASSETTEN-SEITE < ? >"; s s s  fla   #,A,#,();#," ERSTELLEN ";()  ### " #,,&#,"KASSETTEN-NUMMER : ";0#,(); k;(); :#,$,D#,"KASSETTEN-SEITE : ";N#,(); s;()X#,tex()b#,tex()l#,{(<,"-")v#,{(<,"-")Lesen Header    f  "Zaehlerstand"; z&  z z z z z( z)*>Auslesen Kassettenpuffer R f $\p"" 8 8fpp(( )) p p(8)(8)z p(8)  p(8)(8) Dateikennzeichen umsetzen p p"Basic"% p p"Basic -prot."% p p"Binaer-Datei"& p p"Text -Datei"p( p)p( p)k( k)  Abspeichern Header-Inhalt!  membe '$ heade( s, membe,)k'. heade( s, membe,)z'8 heade( s, membe,)p'B heade( s, membe,)p'L heade( s, membe,)p'V heade( s, membe,)p` j Ausgabe Header-Inhalt~ #,,  #, "#####"; z #, , #,p #,, #,p #,+, #, p #,6, #, p  Datei schliessen z Datei schliessen7  "WEITER < ENTER > : BANDENDE " C ""   ( )   ( )       wieder lesen(  2  Windows intitialisieren F   P #,,3,,Z #,#,d #,,P,,n #,#,x #,>,P,, #,#, #,,=,, #,#, #,,=,, #,#,   #   m   Anzeigen Hautmenue ###,, #,();" #,tex();(), #,A,#,();6 #," M e n u e ";()@ m " ^J (C)T   J ^ , ,.,  Bandarchiv ansehen m ^ #,@,#,();! #," A N S E H E N ";() (C)      , ,  s &  s & )& k(heade( s,,))   Auslesen aus Variable( membe  membe/ heade( s, membe,)" "  + z(heade( s, membe,))' pheade( s, membe,)' pheade( s, membe,)+ p(heade( s, membe,))+ p(heade( s, membe,))  Ausgeben auf Window #3$ #,(, ) "###"; z #,( , );p #,(, );p% #,(+, ) "###"; p%* #,(6, ) "###"; p4 >  H R 2. Seite erstellen? f zp s  z m ^ (C)      , ,   Abfrage nach der Seite ()() 9 "SOLL SEITE 1 WIRKLICH WIEDERHOLT WERDEN " (C)) "J" P  "N" z  s  m ^ #Initialisierung Printermenue.  ^8B (C)L   BV `,j,P `  j  t~DRUCKAUSGABE' k(heade( ,,)) P! # ,();();# ,"!";{(A,"*");"!"# ,"!";{(,"*");-# ," K A S S E T T E N - N R : -";# ," "; "##"; k;/# ," - S E I T E : - "; "#"; ; # ," - ";{(,"*");"!"# ,"!";{(A,"*");"!"## ,"! ";tex();" !"$# ,"! ";tex();" !"# ,"!";{(A,"-");"!"<%F Auslesen Variable zum DruckenZ  3d heade( , ,) " " %n h(heade( , ,))%x p(heade( , ,))% p(heade( , ,))(# ,()"! ";() "###"; h;F# ,( ) heade( , ,) () heade( , ,);# ,(-) "###"";p1;# ,(7) "###"";p2;# ,(A)" !"!    # ,()"! ";(A)" !"&# ,"!";{(A,"*");"!" .   , " E N D E "Rahmen f. window#14" , x,, , , x,, , ,, m @<6 ,, , , ,, , , ,, , ,@ ,, , ,J ,` ,,TARCH$$$)      , , )v#,{(<,"-")