Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 5/3/83; site sunybcs.UUCP
Path: utzoo!linus!philabs!seismo!rochester!rocksvax!sunybcs!colonel
From: colonel@sunybcs.UUCP (George Sicherman)
Newsgroups: net.math,net.misc
Subject: clear a Wang
Message-ID: <684@sunybcs.UUCP>
Date: Mon, 21-Nov-83 11:19:03 EST
Article-I.D.: sunybcs.684
Posted: Mon Nov 21 11:19:03 1983
Date-Received: Fri, 25-Nov-83 03:34:00 EST
Organization: SUNY/Buffalo Computer Science
Lines: 40

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