! Text Conversion Examples 
! This has examples of:
!  1) Reading and Writting to a Format Text field.
! 2) Reading from a Source-IV Document
! 3) Reading from an Idol-IV Help Document  
 
LN UTCUST  ! Sample link 
DN NUM-LINES(3.0)  ! Temporary Data_name  
 
MAINLINE
 OPEN LINK UTCUST ! Opens Links
 
 DO ASKKEYWRITE ! Get a Key and Text
 
 DO ADDKEY ! Add Key to file
 
 DO ADDTEXT ! Add Text to file   
 
 DO ASKKEYREAD ! Get a Key to Read  
 
 DO GETTEXT ! Read the Text field
 
 DO GETSOURCE ! Read Source-IV Document  
 
 DO GETHELP  ! Read Idol-IV Help Document
 
 DO ENDIT ! End Script 
 
ASKKEYWRITE
 INPUT "ENTER A KEY: ",K$ !Prompt for Key
 INPUT "ENTER SOME TEXT: ",T$ ! Prompt for Text 
 
ASKKEYREAD
 INPUT "ENTER A KEY: ",K$ ! Prompt for Key
 
ADDKEY
 LET UTCUST.CUST-CODE = PAD(K$,4) ! Assign the Key to the Link
 ADD UTCUST USING KEY UTCUST.CUST-CODE ! Add the Key to the file
 
ADDTEXT
 DIM MSG$[2] ! Dimension MSG$
 LET MSG$[0]="WRITE LINK UTCUST, " + ! Setup MSG$[0] to: WRITE to the 
 QUO + PAD(K$,4) + QUO + ! link UTCUST with the key of K$ and
 ", A" ! Text ID of "A"
 LET MSG$[1]= T$ ! Assing MSG$[1] the Text to add
 CONNECT METHOD "OO41" ! Connect to OO41
 
 DO METHERR ! Error Routine  
 
GETTEXT
 DIM MSG$[2] ! Dimension MSG$
 LET MSG$[0]="READ LINK UTCUST, " + ! Setup MSG$[0] to Read from the
 QUO + PAD(K$,4) + QUO + ! link UTCUST with the key of K$ and
 ", A" ! Text ID of "A"
 CONNECT METHOD "OO41" ! Connect to OO41
 
 DO METHERR ! Error Routine
 
 PRINT "TEXT RETURNED: ", MSG$[1] ! Print the Text contained in MSG$[1]
 INPUT " ---PAUSE --- ",* ! Wait for user to hit
 
GETSOURCE
 DIM MSG$[2] ! Dimension MSG$
 LET MSG$[0] = "READ PJ.PJPTEXT "! Setup MSG$[0] to Read from a 
 ! Source-IV Docutment
 CONNECT METHOD "OO41" ! Connect to OO41
 
 DO METHERR ! Error Routine
 
 DO PRINTRESULT ! Print Results
 
PRINTRESULT
 PRINT "TEXT RETURNED: " ! Start printing Output
 LET NUM-LINES = NEA("MSG$",1) ! Get the number of Array elements
 LET COUNT = 1 ! Set Counter
 DO LOOP WHILE COUNT =< NUM-LINES ! Start loop for printing
 PRINT MSG$[COUNT] ! Print Text Line
 LET COUNT = COUNT + 1 ! Increment counter
 ENDLOOP ! End Loop
 INPUT "---PAUSE---",* ! Pause
 
GETHELP
 DIM MSG$[2] ! Dimension MSG$
 LET MSG$[0] = "READ PJHHTML ," ! Setup MSG$[0] to Read from a
  ! Idol-IV Help Document
 CONNECT METHOD "OO41" ! Connect to OO41
 
 DO METHERR ! Error Routine
 DO PRINTRESULT ! Print Results
 
METHERR
 IF MSG$[0] <> "." THEN ! Test to see if Connect complete OK
 PRINT "METHOD FAILED. ERROR NUMBER: ",MSG$[0] ! Print Error Message
 ENDIF
 ENDIT 
 INPUT "FINISHED ",* ! Finished