OS/2 Shareware BBS: 10 Tools/10-Tools.zip/intercal.zip/pit/life.i

Text File | 1994-09-22 | 5KB | 277 lines

    PLEASE NOTE BEGINNING OF BEGINNING
        DO WRITE IN .11
        DO WRITE IN .12
        DO ,1 <- .11 BY .12
        DO ,2 <- .11 BY .12
    DO WRITE IN .13
    DO .14 <- #0

    PLEASE NOTE INITIALIZING ,1 TO ZEROES
    DO .2 <- .11
    DO .1 <- .12
    DO (110) NEXT
(110)    PLEASE FORGET #1
    DO ,1 SUB .2.1 <- #0
    DO (111) NEXT
(112)    DO (2010) NEXT
    PLEASE FORGET #2
    DO (110) NEXT
(111)   DO (112) NEXT
    DO (113) NEXT
(114)    DO .1 <- .2
    DO (2010) NEXT
    PLEASE FORGET #3
    DO .2 <- .1
    DO .1 <- .12
    DO (110) NEXT
(113)   DO (114) NEXT
    PLEASE FORGET #2

    PLEASE NOTE INITIAL POSITION INPUT
    DO (120) NEXT
(120)   PLEASE FORGET #1
    DO WRITE IN .1
    DO (121) NEXT
    DO WRITE IN .2
    DO ,1 SUB .1.2 <- #1
    DO (120) NEXT
(122)    DO RESUME "?!1~.1'$#1"~#3
(121)   DO (122) NEXT
    PLEASE FORGET #1

    PLEASE NOTE END OF BEGINNING, BEGINNING OF MIDDLE
    DO (200) NEXT
(200)    DO FORGET #1

    PLEASE NOTE PUTTING NEXT POSITION IN ,2
    DO .1 <- .11
    DO .9 <- .1
    DO (2000) NEXT
    DO .7 <- .1
    DO (2000) NEXT
    DO .5 <- .1
    DO .1 <- .12
    DO .10 <- .1
    DO (2000) NEXT
    DO .8 <- .1
    DO (2000) NEXT
    DO .6 <- .1
    DO (210) NEXT
(210)    PLEASE FORGET #1

    DO .1 <- #0
    DO .2 <- ,1 SUB .5.6
    DO (2020) NEXT
    DO .2 <- ,1 SUB .5.8
    DO (2020) NEXT
    DO .2 <- ,1 SUB .5.10
    DO (2020) NEXT
    DO .2 <- ,1 SUB .7.6
    DO (2020) NEXT
    DO .2 <- ,1 SUB .7.10
    DO (2020) NEXT
    DO .2 <- ,1 SUB .9.6
    DO (2020) NEXT
    DO .2 <- ,1 SUB .9.8
    DO (2020) NEXT
    DO .2 <- ,1 SUB .9.10
    DO (2020) NEXT
    DO :2 <- #0$#65535
    DO .1 <- "?'"V.1$,1SUB.7.8"~:2'$#3"~:2
    DO ,2 SUB .7.8 <- "?!1~.1'$#1"~#1

    DO (211) NEXT
(212)   DO .10 <- .8
    DO .8 <- .6
    DO .1 <- .6
    DO (2010) NEXT
    PLEASE FORGET #2
    DO .6 <- .1
    DO (210) NEXT
(211)   DO (212) NEXT
    DO (213) NEXT
(214)    DO .9 <- .7
    DO .7 <- .5
    DO .1 <- .5
    DO (2010) NEXT
    PLEASE FORGET #3
    DO .5 <- .1
    DO .1 <- .12
    DO .10 <- .1
    DO (2000) NEXT
    DO .8 <- .1
    DO (2000) NEXT
    DO .6 <- .1
    DO (210) NEXT
(213)   DO (214) NEXT
    PLEASE FORGET #2

    PLEASE NOTE COPYING ,2 BACK INTO ,1
    DO .1 <- .11
    DO (2000) NEXT
    DO .2 <- .1
    DO .1 <- .12
    DO (2000) NEXT
    DO (220) NEXT
(220)    PLEASE FORGET #1
    DO ,1 SUB .2.1 <- ,2 SUB .2.1
    DO (221) NEXT
    DO (220) NEXT
(222)    DO (2000) NEXT
    DO .3 <- "?.1$#1"~"#0$#65535"
    PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
(221)   DO (222) NEXT
    PLEASE FORGET #1
    DO (223) NEXT
    DO .2 <- .1
    DO .1 <- .12
    DO (2000) NEXT
    DO (220) NEXT
(224)    DO .1 <- .2
    DO (2000) NEXT
    DO .3 <- "?.1$#1"~"#0$#65535"
    PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
(223)   DO (224) NEXT
    PLEASE FORGET #1

    PLEASE NOTE INCREMENT TIMESTEP AND TEST
    DO .1 <- .14
    DO (1020) NEXT
    DO .14 <- .1
    DO (231) NEXT
    DO (299) NEXT
(232)    DO .3 <- "?.14$.13"~"#0$#65535"
    PLEASE RESUME '?"!3~.3'~#1"$#2'~#3
(231)    DO (232) NEXT
    DO FORGET #1

    PLEASE NOTE OVERFLOW TESTING
    DO .1 <- .11
    DO (2000) NEXT
    DO .5 <- .1
    DO .1 <- .12
    DO (2000) NEXT
    DO .6 <- .1
    DO .7 <- #0
    DO .8 <- #0
    DO (240) NEXT
(240)    PLEASE FORGET #1
    DO .2 <- ,1 SUB #2.6
    DO .1 <- .7
    DO (500) NEXT
    DO .7 <- .1
    DO .2 <- ,1 SUB .5.6
    DO .1 <- .8
    DO (500) NEXT
    DO .8 <- .1
    DO (241) NEXT
    DO .6 <- .1
    DO (240) NEXT
(242)    DO .1 <- .6
    DO (2000) NEXT
    DO .3 <- "?.1$#1"~"#0$#65535"
    PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
(241)   DO (242) NEXT
    PLEASE FORGET #1

    DO .1 <- .11
    DO (2000) NEXT
    DO .5 <- .1
    DO .1 <- .12
    DO (2000) NEXT
    DO .6 <- .1
    DO .7 <- #0
    DO .8 <- #0
    DO (250) NEXT
(250)    PLEASE FORGET #1
    DO .2 <- ,1 SUB .5#2
    DO .1 <- .7
    DO (500) NEXT
    DO .7 <- .1
    DO .2 <- ,1 SUB .5.6
    DO .1 <- .8
    DO (500) NEXT
    DO .8 <- .1
    DO (251) NEXT
    DO .5 <- .1
    DO (250) NEXT
(252)    DO .1 <- .5
    DO (2000) NEXT
    DO .3 <- "?.1$#1"~"#0$#65535"
    PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
(251)   DO (252) NEXT
    PLEASE FORGET #1

        DO (200) NEXT

(299)    DO FORGET #1
    PLEASE NOTE END OF MIDDLE, BEGINNING OF END

    PLEASE NOTE FINAL POSITION OUTPUT
    DO .2 <- .11
    DO .1 <- .12
    DO (310) NEXT
(310)    PLEASE FORGET #1
    DO (321) NEXT
    DO READ OUT .2
    DO READ OUT .1
    DO (323) NEXT
(322)    PLEASE RESUME "?',1 SUB .2.1'$#1"~#3
(321)   DO (322) NEXT
(323)    PLEASE FORGET #1
    DO (311) NEXT
(312)    DO (2010) NEXT
    PLEASE FORGET #2
    DO (310) NEXT
(311)   DO (312) NEXT
    DO (313) NEXT
(314)    DO .1 <- .2
    DO (2010) NEXT
    PLEASE FORGET #3
    DO .2 <- .1
    DO .1 <- .12
    DO (310) NEXT
(313)   DO (314) NEXT
    PLEASE FORGET #2

    DO READ OUT .14

    PLEASE NOTE END OF END
    PLEASE GIVE UP


(500)    DO (501) NEXT
    DO .1 <- #0
    PLEASE RESUME #1
(502)   PLEASE RESUME '?.2$#2'~#3
(501)    DO (502) NEXT
    DO (2020) NEXT
    DO (503) NEXT
    PLEASE RESUME #2
(504)    DO .2 <- "?.1$#3"~"#0$#65535"
    PLEASE RESUME '?"!2~.2'~#1"$#1'~#3
(503)    DO (504) NEXT
    PLEASE FORGET #3
    DO (299) NEXT

(2010)  PLEASE ABSTAIN FROM (2004)
(2000)  PLEASE 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