11 GRAPHIC2XBS HISTORY DATFAMILY4 XBS^ DAD 1950 GRANDAD AND GRANDMA MUM 1980 SON (3) DAUGHTER (4) COMPUTER PROGRAMMER Often found playing with a computer wellpast his bedtime. computer ! #FD$,I Y$~(77) Z$~(109)" X$~Y$ { X$~Z$ s :X$~"":10  A$(1){ "NAME: ";A$(1) MUM 1955 Grandma and Grandad Dad (1) 1980 Son (3) and Daughter (4) Early morning alarm. Has no interest in computers whatsoever (strange woman !) 3920 REM## ## "HISTORY.DAT",FD$,510 3640 I~1 r 500 I y 6~0 s 5150 #FD$,I Son 1985 Dad (1) Mum (2) r 500 I y 5~0 s 5150 #FD$,I 3640 Y$~(77)Z$~(109)" X$~Y$ { X$~Z$ s :X$~"":10  A$(1) "NAME: ";A$(1)  A$(2)  A$(3)"PARENTS: ";A$(3) I## #### SPOUSE LDaughter 1987 Dad (1) Mum (2) r 500 I y 5~0 s 5150 #FD$,I 3640 Y$~(77)Z$~(109)" X$~Y$ { X$~Z$ s :X$~"":10  A$(1) "NAME: ";A$(1)  A$(2)  A$(3)"PARENTS: ";A$(3) I## #### SPOUSE LUNCLE 1940 Grandma and Grandad Auntie (6) 1970 Too many to mention Draughsman Likes Jazz (so what !) ~1 r 500 I y 5~0 s 5150 #FD$,I 3640 Y$~(77)Z$~(109)" X$~Y$ { X$~Z$ s :X$~"":10  A$(1) "NAME: ";A$(1)  A$(2)  A$(3)  A$(4) * A$(5) 4 A$(6)>"CHILDREN: ";A$(6)HR IAuntie 1945 Grandma and Grandad Uncle 1970  "NAME: ";A$(1)  A$(2)  A$(3)  A$(4)  A$(5)  A$(6)  A$(7)"OCCUPATION: ";A$(7)$. I8## ##B## DEATH LIST ! ##L## ##V "HISTORY.DAT",FD$,510` I~1 r 50Grandad 1900 Great Grandma and Grandad Grandma 1930 Dad (1) 1988 I!## SUB-ROUTINE TO HALT ##!(## SCREEN DURING LISTS ##2 <4,155F@0,22;" Press 'C' to continue or 'M' for menu " P4,14 ZX$~$dn "HISTORY.DAT",FD$,510x### EXPLOSION SUB-ROUTINE ## 6,31 Grandma 1905 Great Grandad & Great Grandma Grandad 1930 Dad 1985 I!## SUB-ROUTINE TO HALT ##!(## SCREEN DURING LISTS ##2 <4,155F@0,22;" Press 'C' to continue or 'M' for menu " P4,14 ZX$~$dn "HISTORY.DAT",FD$,510x### EXPLOSION SUB-ROUTINE ## 6,31 Grandpop 1890 Great Grandfolk Nan 1920 Mum (2) 1960 ue or 'M' for menu " 4,14 X$~$ Y$~(77)Z$~(109)$ X$~Y$ { X$~Z$ s 10.8>@R"c) Absolutely unworkable but good for a laugh.\Gf"Then please send a huge ammount of moneyto any of the following;Nan 1895 Other Great Grandfolk Grandpop 1920 Mum 1970 @0,16;A$(8) 1,14! @0,17;"OTHER INFORMATION:" 4,14 @0,18;A$(9) #0 1,0 @0,21;(".",79) 1,145 @0,21;"ENTER NEW NAME: " 4,14 "";A$ A$}""s A$(1)~A$  1,0 (".Cousin 1970 Uncle and Auntie