||@qH$*9 
#>-;-73;98= 1> 1.1%.>4v?
664JMP	OLD	/READ IN OLD WORK SPACE
RBASIC,	TLS
	JMS I	(CORE
	TAD	O77
	DCA I	[TXTAREA
	JMS	GETDAT	/SET UP TITLE
FINDSV,	TAD I	X11	/LOOK UP SOME SAVE FILES
	SNA
	JMP	LUBUF	/GO FIND BASIC.UF]	}$"`z%H/8_)%2@z`
"'fX#f$!.#bX#f'.'d%"#%&' &"b({]z;}%"&_"(4z;<;z`\<6,
]q]t%?&4Ii\G
%B(y{@Sz?(/|?2(uz]w{	w%" w{\w%?&}]w\)w{)<]yw%"(x{\tzq]te_)K7wO<mvD\t@?K9<K{\<K3HNy\qw)KP83?
{%(K{H"z
o $faKZ}~f
B"%b(&{H`y$H/n$o$N|yd{fZ
n()fz%"%%b(&r(uzR("H(f).)|i)~"a&b({t#n(}"a%bqz fz{fJ "f%#b&)bD~b~(b}b}dn{"dK}"%~b&&k@/@jC1p9K8
		j83	<z`4<]}5]z1)0	|1	z0)y1	z0)v1	}K(00+KR;OgL@
]}6$Kai3}90%@/I`)
PfC0P /`K1	91]}50704}])z\)}$$2iz0)<5yK$"$PkBO1	]}r<%H/\)<py}])}
.3\i}t)]zo&q#o ozqoozqon}3(//s)2C8K%h/uF>($r!
n(&r Dz$&f%3k$&$]i}o))]z\)}r))pz])}t)]zn2o/nzo,n}r5]z$&aoz
)83<R
;OKgpL
HgpUw"}u6y_t6
Hn
pEUu,~
LD`
An~uo@k9rC8d7
!lC 8
K``(xRE P1vqJU0@$`/G.VX"(Uz@Z{$@n%H/n%$dM%"$@kup0$%&&Yb$^i[0r"6sQ)rrsH%f$n&!f^Kf;@
	DCA I	X13
	TAD	TEMP2	/GET YEAR
	AND	(7
	TAD	(21
	CLL RTL
	RTL
	RTL
	ISZ	X13	/THE WORD WITH -7 IS THERE
	DCA I	X13	/STORE LAST DIGIT OF YEAR
	JMP I	GETDAT
	PAGE
MONTHS,	1653;4257	

Note: Lines longer than 256 characters were wrapped