PLEASE NOTE guess.i - guessing game in INTERCAL
NOTE
NOTE This is written to demonstrate this language versus the same program 
NOTE written in other languages.
NOTE 
PLEASE NOTE A highscores file is not currently updated, first step is to
NOTE write the File I/O library...
NOTE
PLEASE NOTE COMPILE: C-INTERCAL,
NOTE		ick guess.i
NOTE
PLEASE NOTE COMPILE: J-INTERCAL,
NOTE		jick guess.i
NOTE
NOTE 20-Oct-2004	Brendan Gregg	Created this.
NOTE
NOTE Original is at http://users.tpg.com.au/adsln4yb/guessinggame.html
NOTE nexxt to many implementations in other languages.

	DO .11 <- #0
	PLEASE ABSTAIN FROM FORGETTING
	DO ,1 <- #43
	PLEASE DO ,1SUB#1 <- #26
	DO ,1SUB#2 <- #56
	DO ,1SUB#3 <- #8
	DO ,1SUB#4 <- #216
	DO ,1SUB#5 <- #0
	DO ,1SUB#6 <- #90
	DO ,1SUB#7 <- #222
	PLEASE DO ,1SUB#8 <- #146
	DO ,1SUB#9 <- #80
	PLEASE DO ,1SUB#10 <- #176
	DO ,1SUB#11 <- #34
	DO ,1SUB#12 <- #52
	DO ,1SUB#13 <- #8
	DO ,1SUB#14 <- #216
	DO ,1SUB#15 <- #0
	PLEASE DO ,1SUB#16 <- #202
	DO ,1SUB#17 <- #126
	PLEASE DO ,1SUB#18 <- #130
	DO ,1SUB#19 <- #142
	DO ,1SUB#20 <- #200
	DO ,1SUB#21 <- #248
	DO ,1SUB#22 <- #112
	DO ,1SUB#23 <- #160
	DO ,1SUB#24 <- #88
	PLEASE DO ,1SUB#25 <- #74
	DO ,1SUB#26 <- #190
	DO ,1SUB#27 <- #160
	DO ,1SUB#28 <- #120
	DO ,1SUB#29 <- #64
	DO ,1SUB#30 <- #72
	DO ,1SUB#31 <- #0
	DO ,1SUB#32 <- #48
	PLEASE DO ,1SUB#33 <- #114
	DO ,1SUB#34 <- #120
	PLEASE DO ,1SUB#35 <- #136
	DO ,1SUB#36 <- #126
	DO ,1SUB#37 <- #16
	DO ,1SUB#38 <- #80
	PLEASE DO ,1SUB#39 <- #34
	DO ,1SUB#40 <- #120
	DO ,1SUB#41 <- #128
	DO ,1SUB#42 <- #0
	DO ,1SUB#43 <- #188
	PLEASE READ OUT ,1
	DO ,1 <- #1
	PLEASE DO ,1SUB#1 <- #0
	PLEASE READ OUT ,1
	PLEASE ABSTAIN FROM STASHING
	DO ,2 <- #10
	PLEASE DO ,2SUB#1 <- #62
	DO ,2SUB#2 <- #124
	DO ,2SUB#3 <- #176
	DO ,2SUB#4 <- #208
	DO ,2SUB#5 <- #112
	DO ,2SUB#6 <- #88
	DO ,2SUB#7 <- #218
	DO ,2SUB#8 <- #0
	DO ,2SUB#9 <- #0
	DO ,2SUB#10 <- #36
	PLEASE ABSTAIN FROM IGNORING
	DO ,3 <- #9
	PLEASE DO ,3SUB#1 <- #30
	DO ,3SUB#2 <- #60
	DO ,3SUB#3 <- #8
	DO ,3SUB#4 <- #72
	DO ,3SUB#5 <- #88
	DO ,3SUB#6 <- #218
	DO ,3SUB#7 <- #0
	DO ,3SUB#8 <- #0
	DO ,3SUB#9 <- #36
	PLEASE REINSTATE FORGETTING
	DO ,4 <- #13
	PLEASE DO ,4SUB#1 <- #110
	DO ,4SUB#2 <- #52
	DO ,4SUB#3 <- #8
	DO ,4SUB#4 <- #216
	DO ,4SUB#5 <- #0
	PLEASE DO ,4SUB#6 <- #202
	DO ,4SUB#7 <- #142
	DO ,4SUB#8 <- #200
	DO ,4SUB#9 <- #248
	DO ,4SUB#10 <- #112
	DO ,4SUB#11 <- #160
	DO ,4SUB#12 <- #88
	DO ,4SUB#13 <- #26
	PLEASE REINSTATE FORGETTING
	DO ,5 <- #13
	PLEASE DO ,5SUB#1 <- #146
	DO ,5SUB#2 <- #44
	DO ,5SUB#3 <- #72
	DO ,5SUB#4 <- #136
	DO ,5SUB#5 <- #88
	PLEASE DO ,5SUB#6 <- #74
	DO ,5SUB#7 <- #30
	DO ,5SUB#8 <- #56
	DO ,5SUB#9 <- #8
	DO ,5SUB#10 <- #216
	DO ,5SUB#11 <- #0
	DO ,5SUB#12 <- #154
	DO ,5SUB#13 <- #228
	PLEASE REINSTATE STASHING
	DO ,6 <- #19
	PLEASE DO ,6SUB#1 <- #142
	DO ,6SUB#2 <- #204
	DO ,6SUB#3 <- #168
	DO ,6SUB#4 <- #0
	DO ,6SUB#5 <- #168
	DO ,6SUB#6 <- #224
	DO ,6SUB#7 <- #152
	DO ,6SUB#8 <- #170
	PLEASE DO ,6SUB#9 <- #128
	DO ,6SUB#10 <- #214
	DO ,6SUB#11 <- #24
	DO ,6SUB#12 <- #144
	DO ,6SUB#13 <- #88
	PLEASE DO ,6SUB#14 <- #42
	DO ,6SUB#15 <- #214
	DO ,6SUB#16 <- #56
	DO ,6SUB#17 <- #0
	DO ,6SUB#18 <- #32
	DO ,6SUB#19 <- #162
	PLEASE REINSTATE IGNORING
	DO ,7 <- #9
	PLEASE DO ,7SUB#1 <- #78
	DO ,7SUB#2 <- #56
	DO ,7SUB#3 <- #8
	DO ,7SUB#4 <- #216
	DO ,7SUB#5 <- #0
	DO ,7SUB#6 <- #40
	DO ,7SUB#7 <- #216
	DO ,7SUB#8 <- #90
	DO ,7SUB#9 <- #36

	PLEASE NOTE GENERATE RAND0M NUMBER
	DO (1900) NEXT
	DO .2 <- #662
	DO (1040) NEXT
	DO .1 <- .3
	DO (1020) NEXT
	DO .12 <- .1

	PLEASE NOTE PLAY GAME
(210)	DO FORGET #1
	DO .1 <- .11
	DO (1020) NEXT
	DO .11 <- .1
	DO READ OUT ,4
	DO READ OUT .11
	DO READ OUT ,5
	PLEASE WRITE IN .13
	DO READ OUT ,1
	DO .1 <- .13
	DO .2 <- .12
	PLEASE DO (2000) NEXT
	DO (230) NEXT
	DO (242) NEXT
(230)	DO (240) NEXT
	DO (300) NEXT
(240)	DO FORGET .3
	DO RESUME #1
(242)	DO .1 <- .13
	DO .2 <- .12
	DO (2010) NEXT
	DO (250) NEXT
	PLEASE READ OUT ,2
	DO READ OUT ,1
	DO (210) NEXT
(250)	DO (260) NEXT
	PLEASE READ OUT ,3
	DO READ OUT ,1
	DO (210) NEXT
(260)	DO FORGET .3
	DO RESUME #1
(300)	DO READ OUT ,6
	DO READ OUT .11
(301)	DO READ OUT ,7
(550)	DO .9 <- #8
	DO .9 <- #1

(2000)	DO (1010) NEXT
	DO .1 <- .3
	DO .2 <- #64173
	PLEASE DO (1039) NEXT
	DO .1 <- .3
	PLEASE DO (1039) NEXT
	DO .1 <- .4
	DO .2 <- #1
	PLEASE DO (1010) NEXT
	PLEASE RESUME #1
(2010)	DO (1010) NEXT
	DO .1 <- .3
	DO .2 <- .3
	PLEASE DO (1009) NEXT
	DO .1 <- .4
	DO .2 <- #1
	DO (1010) NEXT
	PLEASE RESUME #1
(909)	DO COME FROM (301)
	PLEASE GIVE UP
