Skip to content

Instantly share code, notes, and snippets.

@ISSOtm
Created Mar 10, 2021
Embed
What would you like to do?
INTERCAL program that prints "Arch is the best!" by transcoding ASCII on the fly. Uses C-INTERCAL I/O
PLEASE NOTE THAT THIS WAS MADE FOR C-INTERCAL
PLEASE DO .10 <- #18
PLEASE DO ,10 <- .10
PLEASE DO ,11 <- .10
DO NOT BE AFRAID, THESE ARE ASCII NUMBERS, NOT "TURING TAPE"
DO ,10SUB#1 <- #65
DO ,10SUB#2 <- #114
DO ,10SUB#3 <- #99
DO ,10SUB#4 <- #104
DO ,10SUB#5 <- #32
DO ,10SUB#6 <- #105
DO ,10SUB#7 <- #115
DO ,10SUB#8 <- #32
DO ,10SUB#9 <- #116
DO ,10SUB#10 <- #104
DO ,10SUB#11 <- #101
DO ,10SUB#12 <- #32
DO ,10SUB#13 <- #98
DO ,10SUB#14 <- #101
DO ,10SUB#15 <- #115
DO ,10SUB#16 <- #116
DO ,10SUB#17 <- #33
DO ,10SUB#18 <- #10
PLEASE DO .1 <- #0
DO .5 <- #0
(4) DO COME FROM (3)
DO NOTE THAT THIS INCREMENTS THE ARRAY INDEX
DO (1020) NEXT
PLEASE DO STASH .1 + .1 + .1 + .5
DO .6 <- ,10SUB.1
DO NOT KEEP NUMBER AS-IS, FLIP THE (LOW 8) BITS
DO .1 <- .6~#15
DO .2 <- #16
DO (1030) NEXT
DO .6 <- 'V"'.6~#240'$.3"'~#21845
DO .1 <- .6~#63
DO .2 <- #4
DO (1030) NEXT
DO .6 <- '".6~#252"$.3'~#23130
DO .6 <- ".6$'.6~#254'"~#13107
PLEASE NOTE THE DIFFERENCE FROM THE LAST OUTPUT
PLEASE DO RETRIEVE .5
DO .1 <- .5
DO .2 <- .6
DO (1010) NEXT
DO NOT FORGET TO REMEMBER THE FLIPPED VALUE
DO .5 <- .6
DO .6 <- .3~#255
DO NOTE THE RESULT IN THE OUTPUT ARRAY
PLEASE DO RETRIEVE .1
DO ,11SUB.1 <- .6
DO .2 <- .10
DO (1010) NEXT
PLEASE DO .1 <- .3
DO .2 <- #65535
DO (1009) NEXT
PLEASE DO RETRIEVE .1
(3) DO (2) NEXT
PLEASE DO READ OUT ,11
PLEASE GIVE UP
DO NOT LOOP ANYMORE IF CALLER DIDN'T GET HIS OVERFLOW
(2) DO (1) NEXT
DO ABSTAIN FROM (4)
PLEASE RESUME #1
(1) DO RESUME .4
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment