home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / bubble.i < prev    next >
Text File  |  1996-06-17  |  2KB  |  95 lines
  1.  
  2.     DO WRITE IN .2
  3.     DO ,1 <- .2
  4.  
  5.     PLEASE NOTE INITIAL SEQUENCE INPUT
  6.     DO .1 <- .2
  7.         DO (110) NEXT
  8. (110)   DO FORGET #1
  9.     DO WRITE IN ,1 SUB .1
  10.     DO (111) NEXT
  11. (112)   DO (2010) NEXT
  12.     DO FORGET #2
  13.     DO (110) NEXT
  14. (111)    DO (112) NEXT
  15.     DO FORGET #1
  16.  
  17.     PLEASE NOTE CALLING SORT ROUTINE INDIRECTLY
  18.     DO .1 <- .2
  19.     DO (500) NEXT
  20.  
  21.     PLEASE NOTE SORTED SEQUENCE OUTPUT
  22.     DO .1 <- .2
  23.         DO (210) NEXT
  24. (210)   DO FORGET #1
  25.     DO READ OUT ,1 SUB .1
  26.     DO (211) NEXT
  27. (212)   DO (2010) NEXT
  28.     DO FORGET #2
  29.     DO (210) NEXT
  30. (211)    DO (212) NEXT
  31.     DO FORGET #1
  32.  
  33.     PLEASE GIVE UP
  34.  
  35.     PLEASE NOTE COMPARE AND EXCHANGE ROUTINE
  36. (500)    PLEASE ABSTAIN FROM (502)
  37.     DO (3000) NEXT
  38.     DO (501) NEXT
  39. (501)   DO FORGET #1
  40. (502)   DO (3010) NEXT
  41.     PLEASE REINSTATE (502)
  42.         DO .3 <- '?",1SUB.1"$,1SUB.2'~'#0$#65535'
  43.         DO .3 <- '?"'& "'",1SUB.1"~.3'~'"?'?.3~.3'$#32768"~"#0$#65535"'" $
  44.                        ".3~.3"'~#1" $
  45.                #1'~#3
  46.     DO (503) NEXT
  47.     DO .3 <- ,1 SUB .1
  48.     DO ,1 SUB .1 <- ,1 SUB .2
  49.     DO ,1 SUB .2 <- .3
  50.     DO (501) NEXT
  51. (504)   PLEASE RESUME .3
  52. (503)   DO (504) NEXT
  53.     DO FORGET #1
  54.     DO (501) NEXT
  55.  
  56.  
  57.     PLEASE NOTE BUBBLE SORT ROUTINE
  58.     PLEASE NOTE THAT EXCHANGE ROUTINE SHOULD NOT CHANGE .1 OR .2
  59. (3000)    PLEASE STASH .1 + .2
  60.     DO .2 <- .1
  61.     DO (2000) NEXT
  62.     DO (3001) NEXT
  63. (3001)  DO FORGET #1
  64.     DO RESUME #1
  65. (3011)    DO (2010) NEXT
  66.     DO FORGET #1
  67.     DO (3001) NEXT
  68. (3010)  DO (3011) NEXT
  69.     DO (3012) NEXT
  70. (3013)    DO .1 <- .2
  71.     DO (2010) NEXT
  72.     DO FORGET #2
  73.     DO .2 <- .1
  74.     DO (3010) NEXT
  75.     DO RESUME #1
  76. (3012)  DO (3013) NEXT
  77.     PLEASE RETRIEVE .1 + .2
  78.     DO RESUME #4
  79.  
  80. (2010)  PLEASE ABSTAIN FROM (2004)
  81. (2000)  PLEASE STASH .2
  82.         DO .2 <- #1
  83.         DO (2001) NEXT
  84. (2001)  DO FORGET #1
  85.         DO .1 <- '?.1$.2'~'#0$#65535'
  86.         DO (2002) NEXT
  87.         DO .2 <- !2$#0'~'#32767$#1'
  88.         DO (2001) NEXT
  89. (2003)  PLEASE RESUME "?!1~.2'$#1"~#3
  90. (2002)  DO (2003) NEXT
  91.         PLEASE RETRIEVE .2
  92. (2004)    PLEASE RESUME #2
  93.     PLEASE DO REINSTATE (2004)
  94.     PLEASE RESUME '?"!1~.1'~#1"$#2'~#6
  95.