




                                APNDICE A               
            
                      UMA BREVE INTRODUO AO PASCAL-VS              
            
                 O Pascal-VS,  ou VS-Pascal,   a  verso  da  linguagem
            usada pelos  computadores de  grande porte  da  IBM.  Ele  
            parecido com  o Turbo Pascal apenas nos comandos bsicos. Na
            verdade, ele  tem  bem  menos  comandos.  Listaremos  alguns
            aspectos nos quais as verses so diferentes.
            
            COMO EDITAR OS PROGRAMAS DO PASCAL-VS        
            
                 Os programas  em Pascal-VS  so editados  no editor  do
            sistema VM-CMS. Todo arquivo para o VM-CMS tem especificao
            formada por  3  identificadores:  "FileName",  "FileType"  e
            "FileMode". Por  exemplo,  o  arquivo  PROFILE  EXEC  A  tem
            "FileName" =  PROFILE, "FileType"  = EXEC  e "FileMode" = A.
            Todo programa  em Pascal-VS  deve  ter  "FileType"  igual  a
            PASCAL. Para  entrar no  editor do  VM-CMS,  use  o  comando
            XEDIT, cuja  sintaxe :  XEDIT Especificacao_do_arquivo. Por
            exemplo, XEDIT EXEMPLO PASCAL A.
                 Estando no  editor do  VM-CMS, pressione ENTER e digite
            An, n  inteiro, para  acrescentar n  linhas em  branco  para
            edio. Por exemplo, A15 adiciona 15 linhas. Pressione ENTER
            e digite  SET CASE MIXED para poder editar letras minsculas
            ou maisculas.  Para salvar  o texto  do programa  pressione
            ENTER, digite SAVE ou FF, e ENTER.
                 Para adicionar  uma linha  em branco  abaixo  da  linha
            atual, pressione  a tecla  PF2. Para  apagar a  linha onde o
            cursor se encontra, digite um "d" e ENTER no incio da linha
            (por cima  da  numerao).  Para  mudar  as  telas  que  so
            mostradas, pressione PF7 ou PF8.
            
            COMO COMPILAR E EXECUTAR PROGRAMAS           
            
                 Para compilar  um programa,  digite PASCALVS  FileName.
            Por  exemplo,   um  programa   salvo  em   disco  com   nome
            EXEMPLO PASCAL  A  compilado digitando-se PASCALVS EXEMPLO.
            Quando aparecer  a mensagem  "NO COMPILER DETECTED ERRORS" o
            programa estar  compilado. Quando  o EXEMPLO  PASCAL A  for
            compilado, sero  criados no  disco os arquivos: LOAD MAP A,
            EXEMPLO LISTING A e EXEMPLO TEXT A.
                 Para  executar   um  programa  que  foi  compilado  com
            sucesso, digite RUN FileName, por exemplo, RUN EXEMPLO.
            
            DIFERENAS ENTRE O TURBO PASCAL E O PASCAL-VS
            
                 (1) No Pascal-VS o cabealho do programa  obrigatrio;
                 (2) O comando para limpar a tela (ClrScr) no funciona;
                 (3) No  existem unidades,  nem a  maioria dos tipos do
            Turbo Pascal como word, byte, extended, etc.;

                                       - 209 -





                 (4)  Todos   os  comandos   de  entrada   e  sada  so
            direcionados para  arquivos. O  vdeo e  o teclado devem ser
            declarados como arquivos tipo text:
                           VAR
                             video, teclado: text;
                 (Podem ser usados quaisquer nomes no lugar de "video" e
            "teclado"; so nomes de variveis como quaisquer outros)
                 Antes do  uso de  Read ou  Write, devem ser chamados no
            incio  do  programa  dois  procedimentos  pr-definidos  do
            Pascal-VS, TERMIN  e TERMOUT,  que admitem como parmetro os
            nomes das  variveis tipo  text que  vo estar associadas ao
            vdeo  e   ao   teclado.   Por   exemplo,   TERMIN(teclado);
            TERMOUT(video); .
                 Todo comando  READ ou  READLN deve  ter  como  primeiro
            parmetro a  varivel usada  como parmetro  de TERMIN e, se
            for para  mostrar os  dados na  tela,  todo WRITE ou WRITELN
            deve ter  como primeiro  parmetro  a  varivel  usada  como
            parmetro       de        TERMOUT.       Por        exemplo,
                 WRITE(video, 'Valor de x? '); READLN(teclado, x);
                 (5) As  variveis tipo  string devem ser declaradas com
            duplo abre  e fecha  parnteses, no  lugar dos  colchetes do
            Turbo Pascal:
                 VAR x: string((20))     (* no maximo 20 caracteres *)
                 (6) No  lugar dos  colchetes  das  variveis  indexadas
            (tipo array),  deve-se usar  (. e  .) (OBS.:  Isto tambm  
            vlido para o Turbo Pascal). Por exemplo:
                 VAR matriz: array (. 1..3, 1..3 .) of real;
                 ...
                 matriz(.i, j.) := Sqr(i) - Abs(1 - j);
                 (7) No existe o comando ASSIGN para arquivos. Ao invs
            disso, os  comandos RESET  e REWRITE  incluem  a  funo  do
            ASSIGN, abrindo o arquivo e fazendo associao com o nome da
            varivel ao mesmo tempo. Suas sintaxes so:
                 RESET (variavel,  'NAME = FileName.FileType.FileMode');
                 REWRITE(variavel, 'NAME = FileName.FileType.FileMode');
            Por exemplo,
                      VAR arq: file of integer;
                      ...
                      REWRITE(arq, 'name = TESTE.DOC.A');
            cria no disco o arquivo de inteiros TESTE DOC A.
            
            Exemplo: O  programa a  seguir mostra  na tela os caracteres
            EBCDIC (o  anlogo da  tabela ASCII  do MS-DOS).  A listagem
            pra aps ser preenchida cada tela. Pressione ALT-CLEAR para
            continuar.
            
                 PROGRAM TabelaEBCDIC;
                 VAR
                   x: integer;
                   tela: text;
                 BEGIN
                   Termout(tela);
                   for i := 1 to 255 do Writeln(tela, x:5, Chr(x):5);
                 END.

                                       - 210 -
