CPM Magazine/CPM MAG #01.DSK/EINGABE

Text File | 1980-01-01 | 6.0 KB | 134 lines

USE titel
SET TALK OFF
DO WHILE T
ERASE
* Literatur-Datenbank: Eingabeteil. Alle Rechte bei Klaus-Henning
* Hansen, Wilhelmshavener Stra~e 3, 23 Kiel 1
@ 5,15 say 'EINGABE-PROGRAMM'
@ 6,15 say '----------------------------------------'
@ 8,15 say 'B)uchtitel'
@ 10,15 say 'Z)eitschriftenbeitr{ge'
@ 12,15 say 'A)ufs{tze aus Sammelb{nden'
@ 14,15 say 'R)}ckkehr zum Hauptmen}'
@ 17,15 say 'Welche Titel sollen eingegeben werden?'
?
WAIT TO antwort
DO CASE
   CASE !(antwort)='B'
   STORE F TO ABBRUCH
   DO WHILE .NOT. ABBRUCH
      ERASE
      APPEND BLANK
      @  1,1 SAY '     Eingabe von Buchtiteln / RECORD # :'
      @  1,51 say #
      @  3,1 SAY '  AUTOR1/.../... oder HERAUSGEBER (Hrsg./Ed./Eds. angeben) '
      @  4,1 SAY ' ' GET autor PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @  6,1 SAY '  BUCHTITEL (Sachtitel; Untertitel nach vorhandenem Platz)'
      @  7,1 say ' ' get titel picture 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @ 11,1 SAY '  ORT (Verlagsort, Hochschulort)      VERLAG'
      @ 12,1 SAY ' ' get ort picture 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @ 12,35 SAY ' ' GET VERLAG PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXX'
      @ 14,1 say '  JAHR'
      @ 15,1 SAY ' ' GET JAHR PICTURE 'XXXXXXXXX'
      @ 17,1 SAY '  SCHLAGWORT (Themenbezogene Begriffe)'
      @ 18,1 SAY ' ' GET STICHWORT PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      READ
      ACCEPT ' Mit RETURN naechster Record, sonst A)bbruch' TO STOP
      IF !(STOP)='A'
     IF autor = ' '
            DELETE
     ENDIF
     STORE T TO ABBRUCH
      ENDIF
    ENDDO
   CASE !(antwort)='Z'
      store F to ABBRUCH
      DO WHILE .NOT. ABBRUCH
      ERASE
      APPEND BLANK
      @  1,1 say '  Eingabe von Zeitschriften-Artikeln / RECORD # :'
      @  1,51 say  #
      @  3,1 SAY '  AUTOR1/AUTOR2/... '
      @  4,1 SAY ' ' GET AUTOR PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @  6,1 SAY '  TITEL des Beitrags'
      @  7,1 say ' ' get titel picture 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @ 11,1 SAY '  ZEITSCHRIFT                                      ;
    JAHRGANG       HEFT'
      @ 12,1 SAY '                                                   ;
    Volume         Number'
      @ 13,1 SAY ' ' get zeits picture 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXX'
      @ 13,54 SAY ' ' GET jg PICTURE 'XXXXXXXXXX'
      @ 13,67 SAY ' ' GET heft PICTURE 'XXXXXXXXXX'
      @ 15,1 SAY '  JAHR         SEITE(n)'
      @ 16,1 SAY ' ' GET jahr PICTURE 'XXXXXXXXX'
      @ 16,14  SAY ' ' GET s picture 'XXXXXXXXXXXXXXX'
      @ 18,1 SAY '  Schlagwort '
      @ 19,1 SAY ' ' GET STICHWORT PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      READ
      ACCEPT ' Mit RETURN naechster Record, sonst A)bbrechen' TO STOP
      IF !(STOP)='A'
      IF autor = ' '
            DELETE
      ENDIF
         STORE T TO ABBRUCH
      ENDIF
      ENDDO
   CASE !(antwort)='A'
      STORE F TO ABBRUCH
      DO WHILE .NOT. ABBRUCH
      APPEND BLANK
      ERASE
      @  1,1 SAY '   Eingabe von Beitr{gen aus Sammelb{nden / RECORD # :'
      @  1,55 say #
      @  3,1 SAY '  AUTOR1/AUTOR2/... '
      @  4,1 SAY ' ' GET AUTOR PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @  5,1 SAY '  TITEL (des Beitrages)'
      @  6,1 say ' ' get titel picture 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @  9,1 SAY '  IN: HERAUSGEBER (Hrsg./Ed.,Eds angeben) '
      @ 10,1 SAY ' ' GET BAUTOR PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @ 11,1 SAY '  TITEL (des Sammelbandes) '
      @ 12,1 say ' ' get btitel picture 'XXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @ 16,1 SAY '  VerlagsORT/Hochschulort           VERLAG'
      @ 17,1 SAY ' ' get ort picture 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @ 17,35 SAY ' ' GET VERLAG PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXX'
      @ 18,1 say '  JAHR         SEITE(n)'
      @ 19,1 SAY ' ' GET JAHR PICTURE 'XXXXXXXXX'
      @ 19,14 say ' ' GET S picture 'XXXXXXXXXXXXXXX'
      @ 21,1 SAY '  SCHLAGWORT(e) '
      @ 22,1 SAY ' ' GET STICHWORT PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      READ
      ACCEPT ' Mit RETURN naechster Record, sonst A)bbruch ' to STOP
      IF !(STOP)='A'
         IF autor = ' '
            DELETE
         ENDIF
         STORE T TO ABBRUCH
      ENDIF
      ENDDO
   OTHERWISE
      RETURN
ENDCASE
ENDDO
RETURN
σσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσ