File: testcf.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 (22 lines) | stat: -rw-r--r-- 477 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
 
	DO COME FROM (80)
	PLEASE %50 REINSTATE (10)
        DO .1 <- #1
(10)    DO NOT %99 .1 <- #2
        DO .1 <- #3
	PLEASE COME FROM (10)
        DO READ OUT .1
        DO .1 <- #1
(20)    DO %50 .1 <- #2
        DO .1 <- #3
(30)	PLEASE %50 COME FROM (20)
	DO LOSE
	PLEASE %90 COME FROM (30)
(40)	PLEASE ABSTAIN FROM (50)
        DO READ OUT .1
(50)	PLEASE COME FROM (40)
(60)	DO (70) NEXT
        DO GIVE UP
(70)	DO READ OUT #65535
	DO RESUME #1
	DO WIN
(80)	DO COME FROM (60)