下に示したFortranプログラムのソースコードで、←のマークの場所が新規登録されたキーワードの個所です。文字間の余分のスペースが詰まって表示されていますので、元のリストのイメージと異なっています。そのことを考慮してリストを見て下さい。元のリストのイメージを見たいときは、このHTMLファイルをテキストモードで開いて見て下さい。
C==================================================== BLOCK DATA
BLOCK DATA BCMMON
IMPLICIT CHARACTER*4 (C,W)
COMMON/BASICW/IR(4500),JMAX,JEND,KWRD(2154)
COMMON JDUM(4),RR( 10000) ← SIZEで指定できる配列寸法
DIMENSION WORD( 280)
-,WRD 1(40),WRD 2(40),WRD 3(40),WRD 4(40),WRD 5(40)
-,WRD 6(40),WRD 7(40)
EQUIVALENCE (WRD 1,WORD( 1))
EQUIVALENCE (WRD 2,WORD( 41))
EQUIVALENCE (WRD 3,WORD( 81))
EQUIVALENCE (WRD 4,WORD( 121))
EQUIVALENCE (WRD 5,WORD( 161))
EQUIVALENCE (WRD 6,WORD( 201))
EQUIVALENCE (WRD 7,WORD( 241))
EQUIVALENCE (WORD,KWRD)
C
DATA JMAX,JEND/ 280, 265/
C
DATA WRD 1/
-'ABS ',' ','3021','2001','ATN ',' ','3022','2001',
-'ATN2',' ','3033','2002','AUTO',' ','1001',' 0', ←
-'BROW','N ','3101','3001','CLOS','E ','1047',' 0', ←
-'CONT',' ','1022',' 0','CONT','INUE','1036',' 0',
-'COS ',' ','3023','2001','DATA',' ','1029',' 0'/
C
DATA WRD 2/
-'DECK',' ','1019',' 0','DEFD','BL ','1013',' 0',
-'DEFI','NT ','1011',' 0','DEFS','NG ','1012',' 0',
-'DEFS','TR ','1014',' 0','DELE','TE ','1003',' 0',
-'DIM ',' ','1015',' 0','DO ',' ','1033',' 0',
-'ECHO','FF ','1044',' 0','ECHO','N ','1045',' 0'/
C
DATA WRD 3/
-'ELSE',' ','1039',' 0','END ',' ','1009',' 0',
-'ERAS','E ','1016',' 0','EXIT',' ','1002',' 0',
-'EXP ',' ','3024','2001','GOSU','B ','1025',' 0',
-'GOTO',' ','1023',' 0','HELP',' ','1028',' 0',
-'IF ',' ','1037',' 0','INPU','T ','1031',' 0'/
C
DATA WRD 4/
-'JAPA','N ','2101',' 3','JOHN',' ','3102','1001', ←
-'LIST',' ','1004',' 0','LOAD',' ','1006',' 0',
-'LOG ',' ','3027','2001','LOGO','FF ','1017',' 0',
-'LOGO','N ','1018',' 0','MERG','E ','1008',' 0',
-'NAGO','YA ','2102',' 2','NEW ',' ','1010',' 0'/ ←
C
DATA WRD 5/
-'NEXT',' ','1036',' 0','ON ',' ','1040',' 0',
-'OPEN',' ','1046',' 0','PRIN','T ','1032',' 0',
-'READ',' ','1030',' 0','REM ',' ','1020',' 0',
-'RENU','M ','1005',' 0','REST','ORE ','1026',' 0',
-'RETU','RN ','1041',' 0','RND ',' ','3028','2001'/
C
DATA WRD 6/
-'RUN ',' ','1024',' 0','SAVE',' ','1007',' 0',
-'SGN ',' ','3029','2001','SIMA','DA ','2103',' 3',
-'SIN ',' ','3030','2001','SMIT','H ','3103','2002',
-'SQR ',' ','3031','2001','STEP',' ','1035',' 0',
-'STOP',' ','1027',' 0','SYST','EM ','1048',' 0'/
C
DATA WRD 7/
-'TAN ',' ','3032','2001','THEN',' ','1038',' 0',
-'TO ',' ','1034',' 0','TROF','F ','1042',' 0',
-'TRON',' ','1043',' 0','WIDT','H ','1021',' 0',
-' ',' ',' 0',' 0',' ',' ',' 0',' 0',
-' ',' ',' 0',' 0',' ',' ',' 0',' 0'/
END
C==================================================== PROGRAM MAIN
IMPLICIT CHARACTER*4 (C,W)
COMMON/BASICW/IR(4500),JMAX,JEND,KWRD(2154)
COMMON JDUM(4),RR( 10000)
K1= 10000
CALL BASIC(K1)
STOP
END
C==================================================== BCMND1
SUBROUTINE BCMND1(ICOD)
C
C DISTRIBUTOR FOR USER DEFINED COMMANDS
C
COMMON JDUM(4),JR( 10000)
DIMENSION K(12)
EQUIVALENCE (K1,K(1)),(K2,K(2)),(K3,K(3)),(K4,K(4))
- ,(K5,K(5)),(K6,K(6)),(K7,K(7)),(K8,K(8))
- ,(K9,K(9)),(K10,K(10)),(K11,K(11)),(K12,K(12))
C
KGOTO=ICOD+50
C
II=2
DO 1000 I=1,12
K(I)=JR(II)
1000 II=II+12
6000 KGOTO=KGOTO-50
IF(KGOTO.GT.50) GO TO 6001
GO TO (
- 1, 2, 3, 4, 5, 6, 7, 8, 9, 10),KGOTO
C
6001 GO TO 999
C
1 CALL JAPAN (JR(K1),JR(K2),JR(K3)) ←
GO TO 999
2 CALL SUBP1 (JR(K1),JR(K2)) ←
GO TO 999
3 CALL SIMADA(JR(K1),JR(K2),JR(K3)) ←
GO TO 999
4 GO TO 999
5 GO TO 999
6 GO TO 999
7 GO TO 999
8 GO TO 999
9 GO TO 999
10 GO TO 999
C
999 RETURN
END
C==================================================== BFUNC1
SUBROUTINE BFUNC1(IST,ICOD)
C
C DISTRIBUTOR FOR USER DEFINED FUNCTIONS
C
REAL*8 DVA
COMMON/BASICW/IR(5606),RA(30,35)
COMMON JJDUM(4),JR( 10000)
DIMENSION VALU(2),K(12)
EQUIVALENCE (VALU,IVA,RVA,DVA)
EQUIVALENCE (K1,K(1)),(K2,K(2)),(K3,K(3)),(K4,K(4))
- ,(K5,K(5)),(K6,K(6)),(K7,K(7)),(K8,K(8))
- ,(K9,K(9)),(K10,K(10)),(K11,K(11)),(K12,K(12))
C
II=202
DO 1000 I=1,12
K(I)=JR(II)
1000 II=II+12
C
KGOTO=ICOD+50
6000 KGOTO=KGOTO-50
IF(KGOTO.GT.50) GO TO 6001
GO TO (
- 1, 2, 3, 4, 5, 6, 7, 8, 9, 10),KGOTO
C
6001 GO TO 999
C
1 DVA=BROWN (JR(K1)) ←
GO TO 999
2 IVA=FUNC1 (JR(K1)) ←
GO TO 999
3 RVA=FUNC2 (JR(K1),JR(K2)) ←
GO TO 999
4 GO TO 999
5 GO TO 999
6 GO TO 999
7 GO TO 999
8 GO TO 999
9 GO TO 999
10 GO TO 999
C
999 RA(7,IST)=VALU(1)
RA(8,IST)=VALU(2)
C
RETURN
END