;COMPARISON OF SS:<Z6>MAGIC.ZIL.417 AND SS:<Z6>MAGIC.ZIL.418
;OPTIONS ARE    /3

**** FILE SS:<Z6>MAGIC.ZIL.417, 1-469 (12147)
<ROUTINE FORGET-SPELL ("AUX" SPL F TBL (NUM 0) (SP <>))
**** FILE SS:<Z6>MAGIC.ZIL.418, 1-469 (12147)
<ROUTINE FORGET-SPELL ("AUX" F TBL (NUM 0) (SP <>))
***************

**** FILE SS:<Z6>MAGIC.ZIL.417, 1-480 (12457)
	 <COND (<ZERO? .NUM> <RTRUE>) 
	       (<EQUAL? .NUM 1>
		<PUTP .SP ,P?COUNT <- .NUM 1>>
		<RTRUE>)>
	 <PUT ,FORGET-TBL 0 .NUM>
	 <SET SPL <RANDOM-ELEMENT ,FORGET-TBL>>
	 <PUTP .SPL ,P?COUNT <- <GETP .SPL ,P?COUNT> 1>>>
**** FILE SS:<Z6>MAGIC.ZIL.418, 1-480 (12453)
	 <COND (<ZERO? .NUM> <RTRUE>)>
	 <COND (<G? .NUM 1>
		<PUT ,FORGET-TBL 0 .NUM>
		<SET SP <RANDOM-ELEMENT ,FORGET-TBL>>)>
	 <PUTP .SP ,P?COUNT <- <GETP .SP ,P?COUNT> 1>>>
***************