
                               					15-Nov-1987 22:47:46	VAX FORTRAN V4.5-219                Page   1
								 2-Dec-1986 15:18:54	TEST.FOR;27                                 

0001     
0002    	implicit integer (A-Z)
0003     	include '($smgdef)'
0314    	character*80 line
0315    	status = smg$create_virtual_keyboard(keyid)
0316     1	continue
0317    	status = smg$read_string(keyid,line,'Test>',,,,,ilen,termchar)
0318    	write(5,8)ilen,line,termchar
0319     8	format(' ilen:',I2,' Line:',a<ilen>,'<- Terminator: ',i3)
0320    	do  20 i=1,ilen
0321    	    write(5,9)i,line(i:i),ichar(line(i:i))
0322     9	    format(' line(',I2,') = |',A1,'| Ichar =',I4)
0323     20	    continue
0324    	goto 1
0325     999	stop
0326    	end




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  172   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                  83   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                                 164   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                  419


ENTRY POINTS

    Address  Type  Name          

  0-00000000       TEST$MAIN     


VARIABLES

    Address  Type  Name              Address  Type  Name              Address  Type  Name              Address  Type  Name          

      **      I*4  I               2-00000054  I*4  ILEN            2-00000050  I*4  KEYID           2-00000000  CHAR LINE          
      **      I*4  STATUS          2-00000058  I*4  TERMCHAR      


LABELS

    Address   Label       Address   Label       Address   Label       Address   Label       Address   Label   

  0-00000014  1         1-00000006  8'        1-00000032  9'            **      20            **      999     

TEST$MAIN                      					15-Nov-1987 22:47:46	VAX FORTRAN V4.5-219                Page   2
								 2-Dec-1986 15:18:54	TEST.FOR;27                                 

FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                              Type  Name                            

   I*4  SMG$CREATE_VIRTUAL_KEYBOARD        I*4  SMG$READ_STRING                 


COMMAND QUALIFIERS

  FOR/LIS TEST

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(NOSYMBOLS,TRACEBACK)
  /STANDARD=(NOSYNTAX,NOSOURCE_FORM)
  /SHOW=(NOPREPROCESSOR,NOINCLUDE,MAP,NODICTIONARY,SINGLE)
  /WARNINGS=(GENERAL,NODECLARATIONS,NOULTRIX)
  /CONTINUATIONS=19  /NOCROSS_REFERENCE  /NOD_LINES  /NOEXTEND_SOURCE  /F77
  /NOG_FLOATING  /I4  /NOMACHINE_CODE  /OPTIMIZE


COMPILATION STATISTICS

  Run Time:           2.45 seconds
  Elapsed Time:       3.11 seconds
  Page Faults:        836
  Dynamic Memory:     810 pages
