DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »CRDCVT.TXT«

└─⟦6a1b9f2c5⟧ Bits:30005310/disk3.imd Open Access II v2.10 (dansk)
    └─⟦this⟧ »CRDCVT.TXT« 

TextFile

! This program was designed to take your OA I CARD.DB3 file over to
! OA II CARDSPI.DB3.  Some editting will be required after the 
! conversion since the LASTNAME, FIRSTNAME, AND MIDDLE are parsed
! from the CARD.DB3 file.  This program will create a text file
! CRDREJ.TXT listing all the records with obvious parsing problems 
! *** SEE THE CRDHELP1, CRDHELP2, CRDHELP3 FILES FOR MORE INFO *** 
!put up menu to execute or read help
menuvalue = 1 
WHILE menuvalue > 0  
   WINDOW menuwind = SIZE 40 BY 5 AT 20,14 FRAMED
   SCREEN menuwind
      PUT AT 1,-1 MODE PROMPT "<do> <undo> <arrows>" FILLED 
      PUT AT 1,1  MODE TITLE  " CARD.DF/IF --> CARDSPI.DF/IF" FILLED 
         PUT AT 9,3 
         MENU  
            :Convert: 
               menuvalue = 4 
            :Help: 
               menuvalue = 1 
            :Quit:
               menuvalue = 0 
            :K_HELP:
               menuvalue = 1 
            :K_UNDO: 
               menuvalue = 0 
            END MENU 
   END SCREEN
   WHILE menuvalue > 0 and menuvalue <> 5 
      IF menuvalue = 4  
         DO CRDCVT1
         IF menuvalue <> -1
           menuvalue = 0 
           END IF 
         END IF 
      IF menuvalue = 1
         DO CRDHELP1   
         END IF 
      IF menuvalue = 2
         DO CRDHELP2
         END IF 
      IF menuvalue = 3 
         DO CRDHELP3 
         END IF 
      IF menuvalue = -1
         menuvalue = 5
         END IF 
      END WHILE 
   END WHILE 
«eof»