File: testlib2.i

package info (click to toggle)
intercal 30%3A0.30-6
  • links: PTS
  • area: main
  • in suites: sid, trixie
  • size: 4,044 kB
  • sloc: ansic: 8,936; sh: 1,274; yacc: 1,073; lex: 518; lisp: 460; makefile: 438; perl: 295
file content (62 lines) | stat: -rw-r--r-- 1,405 bytes parent folder | download | duplicates (10)
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

DO (10) NEXT

(10)    PLEASE FORGET #1
        DO WRITE IN .1
        DO (2000) NEXT
        DO READ OUT .1
        DO GIVE UP

(20)    PLEASE FORGET #1
        DO WRITE IN .1
        DO (22) NEXT
(21)    DO (2010) NEXT
        DO READ OUT .1
(22)    PLEASE FORGET #1
        DO (21) NEXT
        DO READ OUT .1
        DO GIVE UP

(30)    PLEASE FORGET #1
        DO WRITE IN .1
        DO WRITE IN .2
        DO (2020) NEXT
        DO READ OUT .1
        DO GIVE UP



(2010)  PLEASE ABSTAIN FROM (2004)
(2000)  DO 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
	PLEASE DO REINSTATE (2004)
	PLEASE RESUME '?"!1~.1'~#1"$#2'~#6

(2020)  PLEASE STASH .2 + .3
	DO (1021) NEXT



        (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