add: more information

This commit is contained in:
kuoi 2023-04-14 03:01:11 +08:00
parent 047d935b02
commit d6655c13b5

View file

@ -93,8 +93,9 @@ C DBAUTO
CALL OPENGR(DEVNOS(10)) CALL OPENGR(DEVNOS(10))
WRITE(KBOUT,1000) WRITE(KBOUT,1000)
1000 FORMAT( 1000 FORMAT(
+' BAP (Development assembly program) V12.1 May 1993',/, +' BAP (Development assembly program) V12.1.1 2023',/,
+' Copyright: MRC Laboratory of Molecular Biology') +' Copyright: 1993 MRC Laboratory of Molecular Biology',/,
+' Copyleft: 2023 GPL')
IGORT = 0 IGORT = 0
IDEV = KBOUT IDEV = KBOUT
C GET SCREEN AND MARGIN SIZES C GET SCREEN AND MARGIN SIZES