home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
educ
/
retrv_pc.zip
/
NEW.PRG
< prev
next >
Wrap
Text File
|
1984-10-24
|
2KB
|
56 lines
NOTE - EXTENDED COMMAND FILE NEWENTRY.CMD
USE &FILE0
GO BOTTOM
DO WHILE T
STORE 'Y' TO CONTINUE
STORE ' ' TO REF
STORE ' ' TO AU1
STORE ' ' TO AU2
STORE ' ' TO TI1
STORE ' ' TO TI2
STORE ' ' TO TI3
STORE ' ' TO TI4
STORE ' ' TO SO1
STORE ' ' TO SO2
STORE ' ' TO KW1
STORE ' ' TO KW2
ERASE
@ 3,25 SAY 'REPRINT INFORMATION ENTRY FORM'
@ 5,26 SAY ' '
@ 23,0 SAY ' '
@ 7,14 SAY 'REF. NO. ' GET REF PICTURE 'XXXXX'
@ 9,15 SAY 'AUTHORS ' GET AU1 PICTURE;
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 10,22 SAY ' ' GET AU2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 12,17 SAY 'TITLE ' GET TI1 PICTURE;
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 13,22 SAY ' ' GET TI2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 14,22 SAY ' ' GET TI3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 15,22 SAY ' ' GET TI4 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 17,16 SAY 'SOURCE ' GET SO1 PICTURE;
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 18,22 SAY ' ' GET SO2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 20,13 SAY 'KEY WORDS ' GET KW1 PICTURE;
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 21,22 SAY ' ' GET KW2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
READ
STORE AU1+AU2 TO AU3
STORE TI1+TI2+TI3+TI4 TO TI5
STORE SO1+SO2 TO SO3
STORE KW1+KW2 TO KW3
APPEND BLANK
REPLACE REF:NO WITH REF
REPLACE AUTHORS WITH AU3
REPLACE TITLE WITH TI5
REPLACE SOURCE WITH SO3
REPLACE KWORDS WITH KW3
ERASE
@ 5,26 SAY 'WANT TO CONTINUE? (Y/N) ' GET CONTINUE PICTURE 'A'
READ
IF !(CONTINUE)='N'
RELEASE CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,;
KW1,KW2,KW3
INDEX ON REF:NO TO REF:NO
RETURN
ENDIF
ENDDO