10 dim a$[8],x$[6]v(13),w1$[80]v,w2$[80]v,cm$[80]v,dw$[63],w$[20]v(16) :
	dim sp$[12],g1$[60]v,g2$[60]v,g3$[60]v,g4$[60]v,g5$[60]v,g6$[60]v :
	randomize : cn=1+int(3.98*rnd(0)) : set  prompt  off :
11 w$(1)=chr$(27)+"Y"+chr$(39)+chr$(76)+"    " :
	w$(2)=chr$(27)+"Y"+chr$(39)+chr$(76)+"   *" :
	w$(3)=chr$(27)+"Y"+chr$(39)+chr$(76)+"  * " :
	w$(4)=chr$(27)+"Y"+chr$(39)+chr$(76)+"  **" :
	w$(5)=chr$(27)+"Y"+chr$(39)+chr$(76)+" *  " :
	w$(6)=chr$(27)+"Y"+chr$(39)+chr$(76)+" * *" :
	w$(7)=chr$(27)+"Y"+chr$(39)+chr$(76)+" ** " :
	w$(8)=chr$(27)+"Y"+chr$(39)+chr$(76)+" ***" :
	w$(9)=chr$(27)+"Y"+chr$(39)+chr$(76)+"*   " :
	w$(10)=chr$(27)+"Y"+chr$(39)+chr$(76)+"*  *" :
	w$(11)=chr$(27)+"Y"+chr$(39)+chr$(76)+"* * " :
	w$(12)=chr$(27)+"Y"+chr$(39)+chr$(76)+"* **" :
	w$(13)=chr$(27)+"Y"+chr$(39)+chr$(76)+"**  " :
	w$(14)=chr$(27)+"Y"+chr$(39)+chr$(76)+"** *" :
	w$(15)=chr$(27)+"Y"+chr$(39)+chr$(76)+"*** " :
	w$(16)=chr$(27)+"Y"+chr$(39)+chr$(76)+"****" :
	dw$="Sunday   Monday   Tuesday  WednesdayThursday Friday   Saturday "
12 sp$="COODAMMAYMUR"
13 w1$=chr$(27)+"Y"+chr$(37)+chr$(58)+"_   " :
	w1$=w1$+chr$(27)+"Y"+chr$(38)+chr$(94)+"U" :
	w1$=w1$+chr$(27)+"Y"+chr$(38)+chr$(58)+"\\  " :
	w1$=w1$+chr$(27)+"Y"+chr$(39)+chr$(59)+"))" :
	w1$=w1$+chr$(27)+"Y"+chr$(40)+chr$(48)+" \\ " :
	w1$=w1$+chr$(10)+chr$(8)+chr$(8)+chr$(8)+chr$(8)+chr$(8)+" _//" :
	w1$=w1$+chr$(27)+"Y"+chr$(42)+chr$(47)+"(_/"
14 w2$=chr$(27)+"Y"+chr$(37)+chr$(58)+"   _" :
	w2$=w2$+chr$(27)+"Y"+chr$(38)+chr$(94)+chr$(34) :
	w2$=w2$+chr$(27)+"Y"+chr$(38)+chr$(58)+"  //" :
	w2$=w2$+chr$(27)+"Y"+chr$(39)+chr$(59)+"//" :
	w2$=w2$+chr$(27)+"Y"+chr$(40)+chr$(48)+"_//\" :
	w2$=w2$+chr$(10)+chr$(8)+chr$(8)+chr$(8)+chr$(8)+chr$(8)+"(_/ " :
	w2$=w2$+chr$(27)+"Y"+chr$(42)+chr$(47)+"   "
15 x$(1)="One" : x$(13)=x$(1) : x$(2)="Two" : x$(3)="Three" : x$(4)="Four"
16 x$(5)="Five" : x$(6)="Six" : x$(7)="Seven": x$(8)="Eight"
17 x$(9)="Nine" : x$(10)="Ten" : x$(11)="Eleven" : x$(12)="Twelve"
18 ad=1 : od=1 : xc=0
19 g1$=chr$(27)+"Y"+chr$(45)+chr$(52)+chr$(27)+"K"+"The Big Hand Is On The " :
	g2$=chr$(27)+"Y"+chr$(47)+chr$(40)+chr$(27)+"K" :
	g3$=chr$(27)+"Y"+chr$(49)+chr$(48)+chr$(27)+"K" :
	ga$=chr$(27)+"Y"+chr$(49)+chr$(48) :
	g4$=chr$(27)+"Y"+chr$(50)+chr$(32)+chr$(27)+"J" :
	g5$=chr$(27)+"H"+" " :
	g6$=chr$(27)+"Y"+chr$(53)+chr$(32)
20 print chr$(27);"[H";chr$(27);"[2J" : break
21 ? "                 ___                                         ___"
22 ? "                /   \     Michael Reese Medical Center      /   \"
23 ? "               / o o \       University of Chicago         / o o \"
24 ? "              (_\   /_)        Radiation Therapy          (_\   /_)"
25 ? "        Reese   |\@/  \__ _     Computer Network   _    __/  \@/|"
26 ? "        11/44   | U    \ \\\             _______   \\  / /    U | Rover"
27 ? "                \      /\ `))--Network--|- -    |---\\' /\      /"
28 ? "  _______        \\  //  \//            |       |    \\/  \\  // U of C"
29 ? " /Mr Spot\      _//_// _| /      Mr Vax |       |     \ |_ \\_\\_ VAX"
31 ? "(_________)    (_/(_/ (__/    Reese VAX |_______|      \__) \_)\_)"
32 print chr$(27);"[?2l"; : break
35 a$=tim$()
40 sz=val(sbs$(a$,1,2))*60+val(sbs$(a$,4,2))
41 mf=(sz*60+val(sbs$(a$,7,2)))/1.2096
42 print g3$;frmt$(mf,5);" Micro-Fortnights since Midnight"; : break
50 a$=tim$()
55 mi=val(sbs$(a$,1,2))*60+val(sbs$(a$,4,2))
60 if mi>720 then  let mi=mi-720
70 hh=int(mi/60) : mh=int((mi-hh*60+2)/5) : if mh=0 then  let mh=12
75 if hh=0 then let hh=12
80 bf=val(sbs$(a$,4,2))
85 if bf>45 then  let hh=hh+1 : if hh=13 then  let hh=1
90 dc=dcen(dat$()) : dw=dc-7*int(dc/7)
95 sz=val(sbs$(a$,1,2))*60+val(sbs$(a$,4,2))
97 mf=(sz*60+val(sbs$(a$,7,2)))/1.2096
100 print ga$;frmt$(mf,5);g5$;a$;tab(35);sbs$(dw$,(9*dw+1),9);tab(70);ddat$();
105 print g1$;x$(mh); : break
110 print g2$;
115 if bf<15 or bf>45 then  goto 130
120 print "And The Little Hand Is Between The ";x$(hh);" And The ";x$(hh+1);g6$;
125 goto 140
130 print "          And The Little Hand Is On The ";x$(hh);g6$;
140 if xc>0 goto 150
142 print g4$; : break
144 cn=cn+1 : if cn>4 then let cn=1
146 b=0 : call "SPAWNB"(sbs$(sp$,3*cn-2,3),b)
150 xc=xc+1 : if xc>30 then let xc=0
152 co=0
155 wait 1 s
160 on error goto 170
165 input x
168 goto 1000            ! if read is successful, quit
170 od=od+1 : if od=2 then let od=0
175 if od=0 then 190
180 print w1$; : break
185 goto 195
190 print w2$; : break
195 ad=ad+1 : if ad=17 then let ad=1
197 print w$(ad); : break
200 a$=tim$()
201 sz=val(sbs$(a$,1,2))*60+val(sbs$(a$,4,2))
202 mf=(sz*60+val(sbs$(a$,7,2)))/1.2096
205 print ga$;frmt$(mf,5);g5$;a$;g6$; : break
210 se=val(sbs$(a$,7,2))
215 if se=0 goto 50
220 goto 140
1000 print chr$(27);"Y";chr$(54);chr$(33); : break 
1005 print chr$(27);"<"; : break		:! vt52 mode > vt100 mode
1006 print chr$(27);"[63;1";chr$(34);"p"; : break :! vt100 mode > 9220 mode
1007 wait 0
1010 on error goto 1020 : if end then 1050 
1020 set upper on : input cm$ : set upper off : if len(cm$)<3 then 1050
1025 b=0 : call "SPAWNB"(cm$,b)
1040 sleep 4 s
1045 goto 11
1050 exit