[net.math] clear a Wang

colonel@sunybcs.UUCP (George Sicherman) (11/21/83)

In case you're still wondering how (let alone why) to clear
a Wang 720, here's the program:

CLEAR MEMORY		Model 720

Load:	LEARN SET_P_C 1 9 6 0
Run:	RUN SET_P_C 1 9 6 0 GO

Marks:	00 00, GO


Loc	Op	Key

1960	2	2
1961	4	4
1962	8	8
1963	^	^
1964	MARK	MARK
1965	GO	GO
1966	SR 0000	00 00
1967	SEARCH	SEARCH
1968	GO	GO
1969	GO	GO
1970	SR 0000	00 00
1971	^	^
1972	RE IND	RE IND
1973	CH SIGN	CH SIGN
1974	ST Y	04 14
1975	MARK	MARK
1976	00 00	00 00
1977	1	1
1978	-	-
1979	CLEAR X	CLEAR X
1980	ST IND	ST IND
1981	RETURN	RETURN
1982	GO	GO
1983	SR 0000	00 00

				G. L. Sicherman
				...seismo!rochester!rocksvax!sunybcs!colonel