[转载]DOS-FORTRAN代码

信息来源：无花果http://www.cnasm.com/

00 character*1 a(30)*40,b*5,c,d,e,f,g

01 A(01)=$1$character*1 a(30)*40,b*5,c,d,e,f,g $1$

02 A(02)=$1$c=char(65) $1$

03 A(03)=$1$d=char(40) $1$

04 A(04)=$1$e=char(41) $1$

05 A(05)=$1$f=char(61) $1$

06 A(06)=$1$g=char(39) $1$

07 A(07)=$1$h=char(13) $1$

08 A(08)=$1$o=char(10) $1$

09 A(09)=$1$do 50 k=48,90 $1$

10 A(10)=$1$b(1:1)=char(k) $1$

11 A(11)=$1$b(2:2)=char(46) $1$

12 A(12)=$1$b(3:3)=char(102) $1$

13 A(13)=$1$b(4:4)=char(111) $1$

14 A(14)=$1$b(5:5)=char(114) $1$

15 A(15)=$1$open(1,file=b,err=50) $1$

16 A(16)=$1$n=0 $1$

17 A(17)=$1$write(1,52)n,a(1) $1$

18 A(18)=$1$do 46 m=1,27 $1$

19 A(19)=$1$n=n+1 $1$

20 A(20)=$1$write(1,51)m,c,d,n,e,f,g,a(m),g $1$

21 A(21)=$1$do 49 j=2,27 $1$

22 A(22)=$1$n=n+1 $1$

23 A(23)=$1$write(1,52)n,a(j) $1$

24 A(24)=$1$continue $1$

25 A(25)=$1$format(i2.2,6x,2a,i2.2,7a) $1$

26 A(26)=$1$format(i2.2,6x,3a) $1$

27 A(27)=$1$end $1$

28 c=char(65)

29 d=char(40)

30 e=char(41)

31 f=char(61)

32 g=char(39)

33 h=char(13)

34 o=char(10)

35 do 50 k=48,90

36 b(1:1)=char(k)

37 b(2:2)=char(46)

38 b(3:3)=char(102)

39 b(4:4)=char(111)

40 b(5:5)=char(114)

41 open(1,file=b,err=50)

42 n=0

43 write(1,52)n,a(1)

44 do 46 m=1,27

45 n=n+1

46 write(1,51)m,c,d,n,e,f,g,a(m),g

47 do 49 j=2,27

48 n=n+1

49 write(1,52)n,a(j)

50 continue

51 format(i2.2,6x,2a,i2.2,7a)

52 format(i2.2,6x,3a)

53 end