C PSDIAL.FT, PAGE 1 OF 1. (10/19/71 - C.M.MOORE, RICE U., HOUSTON) C C COPIES FILES FROM PS/8 DEVICE SYS TO DIAL LINCTAPE 1. C DIMENSION IBUFF(256),NAME(4),IDEV(2) C 100 CALL CRLF C READ NAME OF FILE TO COPY FROM SYS: WRITE(1,110) 110 FORMAT('WHEN * APPEARS, TYPE NAME OF PS/8 FILE') CALL NAMES(IDEV,NAME,IDEV,NAME) C LOOK UP FILE TO GET STARTING BLOCK NUMBER AND LENGTH NB1=LSYS(NAME,NBLKS) C CHECK IF FILE EXISTS ON SYS: IF(NB1)120,120,150 120 WRITE(1,130) 130 FORMAT('FILE DOES NOT EXIST ON SYS') GO TO 100 C READ STARTING OCTAL BLOCK NUMBER FOR FILE ON DIAL LINCTAPE 1 C (A FILE AREA OF APPROPRIATE LENGTH SHOULD ALREADY EXIST) 150 WRITE(1,160) 160 FORMAT('NOW SELECT DIAL FILE:') CALL ALPHA('START') CALL ALPHA('ING B') CALL ALPHA('LOCK ') CALL ALPHA('=') IBLK1=INTIN(8) C COPY FILE BLOCKS DO 200 I=1,NBLKS CALL RSYS(2,NB1,IBUFF) CALL WLINC(1,IBLK1,1,IBUFF,256) NB1=NB1+1 200 IBLK1=IBLK1+1 GO TO 100 END