teste

Groovy (beta) code posted
created at 20 Oct 13:31

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
  PROGRAM GERADORDB

      INCLUDE 'SCAPCOMM.FOR'
  INCLUDE 'LoopCommons.for'


  LOGICAL  ERRO

  SKIPFL = 1

  CALL CarregaInput(ERRO)

  CALL GeraTabela(ERRO)









9000  WRITE(*,*)
  WRITE(*,*)'<ENTER> para finalizar.'
  READ(*,*)


  END
263 Bytes in 2 ms with coderay