Mercurial > repo

view interps/c-intercal/pit/tests/whileadd.i @ 3535:00eb6588250a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<Roujo> echo echo I\'m afraid I can\'t do that, Dave > /hackenv/bin/rm
author HackBot
date Thu, 29 Aug 2013 20:07:44 +0000
parents 859f9b4339e6
children
line wrap: on
line source

	PLEASE NOTE THIS PROGRAM READS IN TWO 16-BIT NUMBERS AND ADDS THEM
	DO WRITE IN .1
	DO WRITE IN .2
(1)    	DO COME FROM ".2~.2"~#1 WHILE :1 <- "'?.1$.2'~'"':1/.1$.2'~#0"$#65535'"$"'"'&.1$.2'~'#0$#65535'"$#0'~#32767$#1"
	DO READ OUT .1
	PLEASE GIVE UP