INTERCAL program that prints "Arch is the best!" by transcoding ASCII on the fly. Uses C-INTERCAL I/O

bestsci.i

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