Mark & Clare Miscellany 2015

BASIC

01 LET InternalWalls = 4
02 LET Chimney = 1
03 LET Kitchen = 1
04 LET Cat = 0
05 LET Mark = "Teacher of Mathematics"
06 LET Clare = "PhD Student"
07 LET Year = 2015
08
09 LET Cat = Cat + 1
10
11 DEF NewCareer(LOC) = "Computer Progammer " + LOC
12 LET Mark = NewCareer("at Metaswitch, Coventry")
13 LET Clare = NewCareer("at ARUP, Solihull")
14
15 LET MarkSummer = "Charity Shop Supervisor, \
16 \ + "Conference Steward, Tutoring, "\
17 \ + "Domestic Goddess, DIY, ..."
18 LET ClareSummer = "Thesis, Job, Thesis, Job, ..."
19
20 PRINT "House Renovation"
21 LET InternalWalls = InternalWalls - 2
22 LET Chimney = Chimney - 1
23 LET Kitchen = Kitchen - 1
24 GOTO 27
25 LET Kitchen = Kitchen + 1
26 STOP
27 LET ClareViva = "15th Dec (Passed with minors!)"
28 LET DrClare = Clare
29 IF Year = 2016 THEN GOTO 25