/usr/share/doc/intercal/examples/change.i is in intercal 29:0.29-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 | DO WRITE IN .4
DO .5 <- #5
DO .6 <- #0
DO (300) NEXT
DO READ OUT .3
PLEASE GIVE UP
(100) DO (110) NEXT
DO .2 <- #50
PLEASE RESUME #1
(110) DO (120) NEXT
DO .2 <- #25
PLEASE RESUME #2
(120) DO (130) NEXT
DO .2 <- #10
PLEASE RESUME #3
(130) DO (140) NEXT
DO .2 <- #5
PLEASE RESUME #4
(140) DO (150) NEXT
DO .2 <- #1
PLEASE RESUME #5
(150) DO RESUME .5
(200) DO (201) NEXT
DO .3 <- #1
DO RESUME #1
(202) PLEASE RESUME '?"!4~.4'~#1"$#2'~#3
(201) DO (202) NEXT
DO (203) NEXT
DO .3 <- #0
DO RESUME #2
(204) PLEASE RESUME '?"'&"?!4~#32768'$#1"$".5~.5"'~#1"$#2'~#3
(203) DO (204) NEXT
PLEASE FORGET #2
DO .1 <- .4
DO (100) NEXT
DO (1010) NEXT
PLEASE STASH .4
DO .4 <- .3
DO (200) NEXT
PLEASE RETRIEVE .4
PLEASE STASH .5 + .6
DO .6 <- .3
DO .1 <- .5
DO (2000) NEXT
DO .5 <- .1
DO (200) NEXT
DO .1 <- .3
DO .2 <- .6
PLEASE RETRIEVE .5 + .6
DO (1000) NEXT
PLEASE RESUME #1
PLEASE COME FROM (310)
(300) DO (301) NEXT
DO .1 <- .6
DO (1020) NEXT
DO .3 <- .1
DO RESUME #1
(302) PLEASE RESUME '?"!4~.4'~#1"$#2'~#3
(301) DO (302) NEXT
DO (303) NEXT
DO .3 <- .6
DO RESUME #2
(304) PLEASE RESUME '?"'&"?!4~#32768'$#1"$".5~.5"'~#1"$#2'~#3
(303) DO (304) NEXT
PLEASE FORGET #2
DO .1 <- .5
DO (2000) NEXT
PLEASE STASH .4 + .5
DO .5 <- .1
DO (300) NEXT
PLEASE RETRIEVE .4 + .5
DO .6 <- .3
DO .1 <- .4
DO (100) NEXT
DO (1010) NEXT
(310) DO .4 <- .3
(2000) PLEASE STASH .2
DO .2 <- #1
DO (2001) NEXT
(2001) PLEASE FORGET #1
DO .1 <- '?.1$.2'~'#0$#65535'
DO (2002) NEXT
DO .2 <- !2$#0'~'#32767$#1'
DO (2001) NEXT
(2003) PLEASE RESUME "?!1~.2'$#1"~#3
(2002) DO (2003) NEXT
PLEASE RETRIEVE .2
(2004) PLEASE RESUME #2
|