view interps/c-intercal/pit/tests/test2.i @ 9070:77f510ad2f14

<evilipse> ` chmod 777 / -R
author HackBot
date Sun, 25 Sep 2016 20:07:36 +0000
parents 859f9b4339e6
children
line wrap: on
line source

DO WRITE IN .1
DO WRITE IN .2
DO (1030) NEXT
DO READ OUT .3
DO GIVE UP
(1000)	PLEASE IGNORE .4
	PLEASE ABSTAIN FROM (1005)
(1009)	DO STASH .1 + .2 + .5 + .6
	DO .4 <- #1
	DO (1004) NEXT
(1004)	PLEASE FORGET #1
	DO .3 <- '?.1$.2'~'#0$#65535'
	DO .6 <- '&.1$.2'~'#0$#65535'
	PLEASE DO .5 <- "?!6~#32768'$#1"~#3
	DO (1002) NEXT
	DO .4 <- #2
(1005)	DO (1006) NEXT
(1999)	DOUBLE OR SINGLE PRECISION OVERFLOW
(1002)	DO (1001) NEXT
(1006)	PLEASE FORGET #1
	DO .5 <- '?"!6~.6'~#1"$#1'~#3
	DO (1003) NEXT
	DO .1 <- .3
	DO .2 <- !6$#0'~'#32767$#1'
	DO (1004) NEXT
(1003)	DO (1001) NEXT
	DO REINSTATE (1005)
(1007)	PLEASE RETRIEVE .1 + .2 + .5 + .6
	DO REMEMBER .4
	PLEASE RESUME #2
(1001)	DO RESUME .5
(1010)	DO STASH .1 + .2 + .4
	DO .4 <- .1
	DO .1 <- '?.2$#65535'~'#0$#65535'
	DO (1020) NEXT
	PLEASE DO .2 <- .4
	PLEASE DO (1009) NEXT
	DO RETRIEVE .1 + .2 + .4
	PLEASE RESUME #1
(1020)	DO STASH .2 + .3
	DO .2 <- #1
	PLEASE DO (1021) NEXT
(1021)	DO FORGET #1
	DO .3 <- "?!1~.2'$#1"~#3
	PLEASE DO .1 <- '?.1$.2'~'#0$#65535'
	DO (1022) NEXT
	DO .2 <- !2$#0'~'#32767$#1'
	DO (1021) NEXT
(1023)	PLEASE RESUME .3
(1022)	DO (1023) NEXT
	PLEASE RETRIEVE .2 + .3
	PLEASE RESUME #2
(1030)	DO ABSTAIN FROM (1033)
	PLEASE ABSTAIN FROM (1032)
(1039)	DO STASH :1 + .5
	DO (1530) NEXT
	DO .3 <- :1~#65535
	PLEASE DO .5 <- :1~'#65280$#65280'
	DO .5 <- '?"!5~.5'~#1"$#1'~#3
	DO (1031) NEXT
(1032)	DO (1033) NEXT
	DO (1999) NEXT
(1031)	DO (1001) NEXT
(1033)	DO .4 <- .5
	DO REINSTATE (1032)
	PLEASE REINSTATE (1033)
	DO RETRIEVE :1 + .5
	PLEASE RESUME #2
(1500)	PLEASE ABSTAIN FROM (1502)
	PLEASE ABSTAIN FROM (1506)
(1509)	PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6
	DO .1 <- :1~#65535
	PLEASE DO .2 <- :2~#65535
	DO (1009) NEXT
	DO .5 <- .3
	PLEASE DO .6 <- .4
	DO .1 <- :1~'#65280$#65280'
	DO .2 <- :2~'#65280$#65280'
	DO (1009) NEXT
	DO .1 <- .3
	PLEASE DO (1503) NEXT
	DO .6 <- .4
	DO .2 <- #1
	DO (1009) NEXT
	DO .1 <- .3
	DO (1501) NEXT
(1504)	PLEASE RESUME .6
(1503)	DO (1504) NEXT
(1501)	DO .2 <- .5
	DO .5 <- '?"'&.6$.4'~#1"$#2'~#3
	DO (1505) NEXT
(1506)	DO (1502) NEXT
	PLEASE DO (1999) NEXT
(1505)	DO (1001) NEXT
(1502)	DO :4 <- .5
	DO (1520) NEXT
	DO :3 <- :1
	PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6
	DO REINSTATE (1502)
	DO REINSTATE (1506)
	PLEASE RESUME #3
(1510)	DO STASH :1 + :2 + :4
	DO :1 <- "'?":2~'#65535$#0'"$#65535'~'#0$#65535
'"$"'?":2~'#0$#65535'"$#65535'~'#0$#65535'"
	DO :2 <- #1
	DO (1509) NEXT
	PLEASE RETRIEVE :1
	DO :2 <- :3
	PLEASE DO (1509) NEXT
	DO RETRIEVE :2 + :4
	PLEASE RESUME #1
(1520)	PLEASE STASH .3 + .4
	DO .3 <- .1~#43690
	DO (1525) NEXT
	PLEASE DO .4 <- 'V.3$".2~#43690"'~'#0$#65535'
	DO .3 <- .1~#21845
	PLEASE DO (1525) NEXT
	DO :1 <- .4$"'V.3$".2~#21845"'~'#0$#65535'"
	PLEASE RETRIEVE .3 + .4
	DO RESUME #1
(1525)	DO .3 <- '"'"'"!3$#0'~'#32767$#1'"$#0'~'#32767
$#1'"$#0'~'#16383$#3'"$#0'~'#4095$#15'
	PLEASE RESUME #1
(1530)	DO STASH :2 + :3 + .3 + .5
	DO :1 <- #0
	DO :2 <- .2
	DO .3 <- #1
	DO (1535) NEXT
(1535)	PLEASE FORGET #1
	DO .5 <- "?!1~.3'$#1"~#3
	DO (1531) NEXT
	DO (1500) NEXT
	DO :1 <- :3
	PLEASE DO (1533) NEXT
(1531)	PLEASE DO (1001) NEXT
(1533)	DO FORGET #1
	DO .3 <- !3$#0'~'#32767$#1'
	DO :2 <- ":2~'#0$#65535'"$"'":2~'#32767$#0'"$#
0'~'#32767$#1'"
	PLEASE DO .5 <- "?!3~.3'$#1"~#3
	DO (1532) NEXT
	DO (1535) NEXT
(1532)	DO (1001) NEXT
	PLEASE RETRIEVE :2 + :3 + .3 + .5
	DO RESUME #2
(1540)	PLEASE ABSTAIN FROM (1541)
	DO ABSTAIN FROM (1542)
(1549)	PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5
	DO .1 <- :1~#65535
	PLEASE DO .2 <- :2~'#65280$#65280'
	DO .5 <- :1~'#65280$#65280'
	DO (1530) NEXT
	DO :3 <- :1
	DO .2 <- :2~#65535
	PLEASE DO (1530) NEXT
	DO :5 <- :1
	DO .1 <- .5
	DO (1530) NEXT
	DO :4 <- :1
	PLEASE DO :1 <- ":3~'#65280$#65280'"$":5~'#65280$#65280'"
	DO .5 <- ':1~:1'~#1
	DO .2 <- :2~'#65280$#65280'
	DO (1530) NEXT
	PLEASE DO .5 <- '"':1~:1'~#1"$.5'~#3
	DO .1 <- :3~#65535
	DO .2 <- #0
	DO (1520) NEXT
	PLEASE DO :2 <- :1
	PLEASE DO .1 <- :4~#65535
	DO (1520) NEXT
	DO (1509) NEXT
	DO .5 <- !5$":4~#3"'~#15
	DO :1 <- :3
	DO :2 <- :5
	DO (1509) NEXT
	PLEASE DO .5 <- !5$":4~#3"'~#63
	DO .5 <- '?"!5~.5'~#1"$#1'~#3
	PLEASE RETRIEVE :4
(1541)	DO :4 <- .5
	DO (1543) NEXT
(1542)	DO (1544) NEXT
	PLEASE DO (1999) NEXT
(1543)	DO (1001) NEXT
(1544)	DO REINSTATE (1541)
	PLEASE REINSTATE (1542)
	PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5
	DO RESUME #2