> Me
REM Created by PARENTAL HARDWARE ®
// This version last updated when fed;
Name = psymann
Sex = Male
PsyAge = RememberAge()
If Age > 27 Then Print "Age = 27"
str family[][] = {
{wife, PsyAge-3, clinical psychologist}
{brother, PsyAge-2, transport planner and computer modeller}
{sister, PsyAge-4, clinical psychologist}
{mother, old, retired-teacher}
{father, old, retired-civil-servant}};
<INTERESTS>
<DL>
<DT>Sport</DT>
<DD>badminton, hockey, pool, snooker, netball, ultimate frisbee, squash, cricket, hot slippery lime, french cricket...</DD>
<DT>Music</DT>
<DD>flute += windOrchestra, piano, singing~=bass</DD>
<DT>Other</DT>
<DD>board games, computer games</DD>
</DL>
</INTERESTS>
10 BIRTH @ Surrey, UK
20 FOR DAY = 1 TO DEATH
20 PROC LIFE
30 NEXT DAY
40 PROC DIE
50
900 DEFPROC LIFE
950 IF(POSS) GET UP = >1000
1000 ELSE GET UP = <1000: PRINT"Grrr"
1010 TEA = CUPOFTEA: TEA=TRUE
1020 IF(NOWORK=TRUE) GOTO 1040 AND HIT SELF FOR USING GOTO
1030 ELSE INPUT=0: FIRED=TRUE: NOWORK=TRUE
1040 PLAY SCRABBLE WITH DAVE
1250 T = 1300
1300 REPEAT T = T + 100
1310 On Error SelectExcuse:
1320 CH."BADMINTON"
1330 SelectExcuse:
1340 Msgbox Rand(Excuse), vbAgreewithmeOnly
1350 UNTIL T = 2000
2000 GOTO HOUSE
2010 TEA=TRUE: DRINK
2020 IF(TEA=0) TEA=TRUE: DRINK
2030 REFLECT ON BADMINTON PERFORMANCE
2040 IF(TEA=0) TEA=TRUE: DRINK
2050 EVENING = TELLY OR COMPUTER OR CHATTING
0000 GOTO BED
0010 ENDPROC
0220
0230 DEFPROC DIE
0240 IF(BADMINTON=FALSE) ELSE IF(BREATHING=FALSE) THEN DEATH=TRUE
0250 IF(DEATH=TRUE) THEN PRINT"Damn"
0260 EXIT
0270 ENDPROC
0280
0290 DATA tea tea tea tea tea timeoutbar tea tea tea tea tea tea tea tea tea
0300 DATA 'It was my partner' 'bad shuttles' 'bad lighting' 'bad floor'_
'food poisoning' 'tired from being so amazing yesterday' 'traumatised from fighting dragons'