ftp.barnyard.co.uk/2015.02.ftp.barnyard.co.uk.tar/ftp.barnyard.co.uk/cpm/walnut-creek-CDROM/MBUG/MBUG108.ARC/GEN-DSKA.LBR/GENGET.CMD

OS/2 REXX Batch file | 1979-12-31 | 1KB | 53 lines

* File:- GENGET.CMD
* Data Entry Get Program For Story File
* By, J.L.Read. Merrylands. NSW.
* Date:- 19/09/87
* Update:-
* Version 1.1
@ 2,62 SAY"Record No:- "+ STR(#,4)
@ 5,18 SAY LAST:NAME PICTURE "!!!!!!!!!!!!!!!"
@ 6,21 SAY FIRST:NAME
@ 7,21 SAY MID:NAME
@ 8,21 SAY NICK:NAME
@ 5,65 SAY REF:NO
@ 6,65 SAY BIRTH:DATE
@ 7,65 SAY DEATH:DATE
@ 8,65 SAY SEX PICTURE "!"
@ 10,27 SAY FATHER:REF
@ 10,65 SAY MOTHER:REF
SELECT SECONDARY
FIND &CURPER
@ 12,60 SAY STR(#,4)
IF #=0
@ 12,25 SAY"0000"
@ 13,10
@ 13,71 SAY"<"
@ 13,78 SAY"|"
@ 14,10
@ 14,71 SAY"<"
@ 14,78 SAY"|"
@ 15,10
@ 15,31 SAY"No Story On File."
@ 15,71 SAY"<"
@ 15,78 SAY"|"
@ 16,10
@ 16,71 SAY"<"
@ 16,78 SAY"|"
@ 17,10
@ 17,71 SAY"<"
@ 17,78 SAY"|"
@ 18,10
@ 18,71 SAY"<"
@ 18,78 SAY"|"
ELSE
@ 12,25 SAY REF:CODE
@ 12,60 SAY STR(#,4)
@ 13,10 GET TEXT1
@ 14,10 GET TEXT2
@ 15,10 GET TEXT3
@ 16,10 GET TEXT4
@ 17,10 GET TEXT5
@ 18,10 GET TEXT6
ENDIF
RETURN