20  REM *  UCHARS, HP 36560A
30  REM *     THIS PROGRAM GENERATES THE FILE VCHAR WHICH CONTAINS THE
40  REM *     CHARACTERS REQUIRED FOR SUBROUTINE VSUB.
50  REM *
60  REM *          STANFORD GSB - JAN 1974 - D. ESTAVAN
80  FILES *
90  DIM V$[7]
100  DIM X$[64],Y$[64],Z$[64]
110  V$="VCHAR"
120  X$="@ABCDEFGHIJKLMNOPQRSTUVWXYZ["'92"]^  ! #$%&'()*+,-./0123456789:;<=>?"
130  REM * CREATE AND INSERT LEFT ARROW (SHIFT-O) ***************
140  ASSIGN V$,1,Z9,"C"
150  PRINT #1;">?"
160  ASSIGN V$,1,Z9
170  READ #1;Z$
180  X$[32,32]=Z$[2,2]
190  REM * CREATE AND INSERT QUOTES ********************************
200  ASSIGN V$,1,Z9,"00"
210  PRINT #1;"QR"
220  ASSIGN V$,1,Z9
230  READ #1;Z$
240  X$[35,35]=Z$[2,2]
250  REM * CREATE ALTERNATE LOWER-CASE CHARACTERS ******************
260  ASSIGN V$,1,Z9,"@A"
270  PRINT #1;X$
280  ASSIGN V$,1,Z9
290  READ #1;Y$
300  REM : CREATE ALTERNATE LOWER-CASE CHARACTERS ******************
310  ASSIGN V$,1,Z9,"A@"
320  PRINT #1;X$
330  ASSIGN V$,1,Z9
340  READ #1;Z$
350  Y$=Y$[34]
360  Z$=Z$[34]
370  REM * MERGE LOWER-CASE CHARACTERS *****************************
380  FOR I=2 TO 32 STEP 2
390  Y$[I,I]=Z$[I-1,I-1]
400  NEXT I
410  REM * PUT IN ESC CHARACTER ************************************
420  Y$[33,33]='27
430  READ #1,1
440  PRINT #1;X$,Y$
450  PRINT X$,Y$
460  END 
