Public feed #528285

Stuff

public text v1 · immutable
Raw Edit
·published 2007-06-01 14:17 UTC
rendered paste body
alias big {
  ;;Unsupported: &@
  if ($len($1-) == 0) { echo Error: You need to say something! | halt }
  write -c buffer.txt
  write -al1 buffer.txt 0,0_
  write -al2 buffer.txt 0,0_ 
  write -al3 buffer.txt 0,0_
  write -al4 buffer.txt 0,0_
  write -al5 buffer.txt 0,0_
  set %charnum 1
  set %col 0
  set %addlines 0
  while (%chaI'llrnum <= $len($1-)) {
    set %char $asc($mid($1-,%charnum,1))
    if (%char == 32) {
      if (%col != 0) {
        write -al1 buffer.txt ___
        write -al2 buffer.txt ___
        write -al3 buffer.txt ___
        write -al4 buffer.txt ___
        write -al5 buffer.txt ___
        inc %col 4
      }
    }
    elseif (%char == 33) {
      write -al1 buffer.txt 2,1__0,0
      write -al2 buffer.txt 2,2__0,0
      write -al3 buffer.txt 2,2__0,0
      write -al4 buffer.txt __
      write -al5 buffer.txt 2,2__0,0
      inc %col 3
    }
    elseif (%char == 34) {
      write -al1 buffer.txt 2,2_0,0_2,2_0,0
      write -al2 buffer.txt 2,2_0,0_2,2_0,0
      write -al3 buffer.txt ___
      write -al4 buffer.txt ___
      write -al5 buffer.txt ___
      inc %col 4
    }
    elseif (%char == 35) {
      write -al1 buffer.txt _2,2_0,0_2,2_0,0_
      write -al2 buffer.txt 2,2_____0,0
      write -al3 buffer.txt _2,2_0,0_2,2_0,0_
      write -al4 buffer.txt 2,2_____0,0
      write -al5 buffer.txt _2,2_0,0_2,2_0,0_
      inc %col 6
    }
    elseif (%char == 37) {
      write -al1 buffer.txt 2,2__0,0__2,2_0,0
      write -al2 buffer.txt 2,2__0,0_2,2_0,0_
      write -al3 buffer.txt __2,2_0,0__
      write -al4 buffer.txt _2,2_0,0_2,2__0,0
      write -al5 buffer.txt 2,2_0,0__2,2__0,0
      inc %col 6
    }
    elseif (%char == 39) {
      write -al1 buffer.txt 2,2_0,0
      write -al2 buffer.txt 2,2_0,0
      write -al3 buffer.txt _
      write -al4 buffer.txt _
      write -al5 buffer.txt _
      inc %col 2
    }
    elseif (%char == 40) {
      write -al1 buffer.txt _2,2_0,0
      write -al2 buffer.txt 2,2_0,0_
      write -al3 buffer.txt 2,2_0,0_
      write -al4 buffer.txt 2,2_0,0_
      write -al5 buffer.txt _2,2_0,0
      inc %col 3
    }
    elseif (%char == 41) {
      write -al1 buffer.txt 2,2_0,0_
      write -al2 buffer.txt _2,2_0,0
      write -al3 buffer.txt _2,2_0,0
      write -al4 buffer.txt _2,2_0,0
      write -al5 buffer.txt 2,2_0,0_
      inc %col 3
    }
    elseif (%char == 42) {
      write -al1 buffer.txt __2,2_0,0__
      write -al2 buffer.txt 2,2_____0,0
      write -al3 buffer.txt _2,2___0,0_
      write -al4 buffer.txt _2,2_0,0_2,2_0,0_
      write -al5 buffer.txt _____
      inc %col 6
    }
    elseif (%char == 43) {
      write -al1 buffer.txt __2,2_0,0__
      write -al2 buffer.txt __2,2_0,0__
      write -al3 buffer.txt 2,2_____0,0
      write -al4 buffer.txt __2,2_0,0__
      write -al5 buffer.txt __2,2_0,0__
      inc %col 6
    }
    elseif (%char == 44) {
      write -al1 buffer.txt __
      write -al2 buffer.txt __
      write -al3 buffer.txt __
      write -al4 buffer.txt 2,2__0,0
      write -al5 buffer.txt _2,2_0,0
      inc %col 3
    }
    elseif (%char == 44) {
      write -al1 buffer.txt _____
      write -al2 buffer.txt _____
      write -al3 buffer.txt 2,2_____0,0
      write -al4 buffer.txt _____
      write -al5 buffer.txt _____
      inc %col 6
    }
    elseif (%char == 46) {
      write -al1 buffer.txt __
      write -al2 buffer.txt __
      write -al3 buffer.txt __
      write -al4 buffer.txt 2,2__0,0
      write -al5 buffer.txt 2,2__0,0
      inc %col 3
    }
    elseif (%char == 47) {
      write -al1 buffer.txt ____2,2__0,0
      write -al2 buffer.txt ___2,2__0,0_
      write -al3 buffer.txt __2,2__0,0__
      write -al4 buffer.txt _2,2__0,0___
      write -al5 buffer.txt 2,2__0,0____
      inc %col 7
    }
    elseif (%char == 48) || (%char == 79) || (%char == 111) {
      write -al1 buffer.txt _2,2____0,0_
      write -al2 buffer.txt 2,2__0,0__2,2__0,0
      write -al3 buffer.txt 2,2__0,0__2,2__0,0
      write -al4 buffer.txt 2,2__0,0__2,2__0,0
      write -al5 buffer.txt _2,2____0,0_
      inc %col 7
    }
    elseif (%char == 49) {
      write -al1 buffer.txt _2,2__0,0
      write -al2 buffer.txt 2,2___0,0
      write -al3 buffer.txt _2,2__0,0
      write -al4 buffer.txt _2,2__0,0
      write -al5 buffer.txt _2,2__0,0
      inc %col 4
    }
    elseif (%char == 50) {
      write -al1 buffer.txt 2,2_____0,0_
      write -al2 buffer.txt ____2,2__0,0
      write -al3 buffer.txt _2,2____0,0_
      write -al4 buffer.txt 2,2__0,0____
      write -al5 buffer.txt 2,2______0,0
      inc %col 7
    }
    elseif (%char == 51) {
      write -al1 buffer.txt 2,2_____0,0_
      write -al2 buffer.txt ____2,2__0,0
      write -al3 buffer.txt _2,2_____0,0
      write -al4 buffer.txt ____2,2__0,0
      write -al5 buffer.txt 2,2_____0,0_
      inc %col 7
    }
    elseif (%char == 52) {
      write -al1 buffer.txt __2,2____0,0_
      write -al2 buffer.txt _2,2__0,0_2,2__0,0_
      write -al3 buffer.txt 2,2__0,0__2,2__0,0_
      write -al4 buffer.txt 2,2______0,0
      write -al5 buffer.txt ____2,2__0,0_
      inc %col 7
    }
    elseif (%char == 53) {
      write -al1 buffer.txt 2,2______0,0
      write -al2 buffer.txt 2,2__0,0____
      write -al3 buffer.txt 2,2_____0,0_
      write -al4 buffer.txt ____2,2__0,0
      write -al5 buffer.txt 2,2_____0,0_
      inc %col 7
    }
    elseif (%char == 54) {
      write -al1 buffer.txt _2,2____0,0_
      write -al2 buffer.txt 2,2__0,0____
      write -al3 buffer.txt 2,2_____0,0_
      write -al4 buffer.txt 2,2__0,0__2,2__0,0
      write -al5 buffer.txt _2,2____0,0_
      inc %col 7
    }
    elseif (%char == 55) {
      write -al1 buffer.txt 2,2______0,0
      write -al2 buffer.txt ____2,2__0,0
      write -al3 buffer.txt ___2,2__0,0_
      write -al4 buffer.txt __2,2__0,0__
      write -al5 buffer.txt __2,2__0,0__
      inc %col 7
    }
    elseif (%char == 56) {
      write -al1 buffer.txt _2,2____0,0_
      write -al2 buffer.txt 2,2__0,0__2,2__0,0
      write -al3 buffer.txt _2,2____0,0_
      write -al4 buffer.txt 2,2__0,0__2,2__0,0
      write -al5 buffer.txt _2,2____0,0_
      inc %col 7
    }
    elseif (%char == 57) {
      write -al1 buffer.txt _2,2____0,0_
      write -al2 buffer.txt 2,2__0,0__2,2__0,0
      write -al3 buffer.txt _2,2_____0,0
      write -al4 buffer.txt ____2,2__0,0
      write -al5 buffer.txt _2,2____0,0_
      inc %col 7
    }
    elseif (%char == 58) {
      write -al1 buffer.txt 2,2__0,0
      write -al2 buffer.txt 2,2__0,0
      write -al3 buffer.txt __
      write -al4 buffer.txt 2,2__0,0
      write -al5 buffer.txt 2,2__0,0
      inc %col 3
    }
    elseif (%char == 59) {
      write -al1 buffer.txt 2,2__0,0
      write -al2 buffer.txt 2,2__0,0
      write -al3 buffer.txt __
      write -al4 buffer.txt 2,2__0,0
      write -al5 buffer.txt _2,2_0,0
      inc %col 3
    }
    elseif (%char == 60) {
      write -al1 buffer.txt __2,2__0,0
      write -al2 buffer.txt _2,2__0,0_
      write -al3 buffer.txt 2,2__0,0__
      write -al4 buffer.txt _2,2__0,0_
      write -al5 buffer.txt __2,2__0,0
      inc %col 5
    }
    elseif (%char == 61) {
      write -al1 buffer.txt _____
      write -al2 buffer.txt 2,2_____0,0
      write -al3 buffer.txt _____
      write -al4 buffer.txt 2,2_____0,0
      write -al5 buffer.txt _____
      inc %col 6
    }
    elseif (%char == 62) {
      write -al1 buffer.txt 2,2__0,0__
      write -al2 buffer.txt _2,2__0,0_
      write -al3 buffer.txt __2,2__0,0
      write -al4 buffer.txt _2,2__0,0_
      write -al5 buffer.txt 2,2__0,0__
      inc %col 5
    }
    elseif (%char == 63) {
      write -al1 buffer.txt _2,2___0,0_
      write -al2 buffer.txt 2,2_0,0___2,2_0,0
      write -al3 buffer.txt __2,2__0,0_
      write -al4 buffer.txt _____
      write -al5 buffer.txt __2,2_0,0__
      inc %col 6
    }
    elseif ((%char == 65) || (%char == 97)) {
      write -al1 buffer.txt __2,2____0,0
      write -al2 buffer.txt _2,2_0,0__2,2__0,0
      write -al3 buffer.txt 2,2__0,0__2,2__0,0
      write -al4 buffer.txt 2,2______0,0
      write -al5 buffer.txt 2,2__0,0__2,2__0,0
      inc %col 7
    }
    elseif ((%char == 66) || (%char == 98)) {
      write -al1 buffer.txt 2,2_____0,0_
      write -al2 buffer.txt 2,2__0,0__2,2__0,0
      write -al3 buffer.txt 2,2_____0,0_
      write -al4 buffer.txt 2,2__0,0__2,2__0,0
      write -al5 buffer.txt 2,2_____0,0_
      inc %col 7
    }
    elseif ((%char == 67) || (%char == 99)) {
      write -al1 buffer.txt _2,2_____0,0
      write -al2 buffer.txt 2,2__0,0____
      write -al3 buffer.txt 2,2__0,0____
      write -al4 buffer.txt 2,2__0,0____
      write -al5 buffer.txt _2,2_____0,0
      inc %col 7
    }
    elseif ((%char == 68) || (%char == 100)) {
      write -al1 buffer.txt 2,2_____0,0_
      write -al2 buffer.txt 2,2__0,0__2,2__0,0
      write -al3 buffer.txt 2,2__0,0__2,2__0,0
      write -al4 buffer.txt 2,2__0,0__2,2__0,0
      write -al5 buffer.txt 2,2_____0,0_
      inc %col 7
    }
    elseif ((%char == 69) || (%char == 101)) {
      write -al1 buffer.txt _2,2_____0,0
      write -al2 buffer.txt 2,2__0,0____
      write -al3 buffer.txt 2,2_____0,0_
      write -al4 buffer.txt 2,2__0,0____
      write -al5 buffer.txt _2,2_____0,0
      inc %col 7
    }
    elseif ((%char == 70) || (%char == 102)) {
      write -al1 buffer.txt _2,2_____0,0
      write -al2 buffer.txt 2,2__0,0____
      write -al3 buffer.txt 2,2_____0,0_
      write -al4 buffer.txt 2,2__0,0____
      write -al5 buffer.txt 2,2__0,0____
      inc %col 7
    }
    elseif ((%char == 71) || (%char == 103)) {
      write -al1 buffer.txt _2,2_____0,0
      write -al2 buffer.txt 2,2__0,0____
      write -al3 buffer.txt 2,2__0,0_2,2___0,0
      write -al4 buffer.txt 2,2__0,0__2,2__0,0
      write -al5 buffer.txt _2,2_____0,0
      inc %col 7
    }
    elseif ((%char == 72) || (%char == 104)) {
      write -al1 buffer.txt 2,2__0,0__2,2__0,0
      write -al2 buffer.txt 2,2__0,0__2,2__0,0
      write -al3 buffer.txt 2,2______0,0
      write -al4 buffer.txt 2,2__0,0__2,2__0,0
      write -al5 buffer.txt 2,2__0,0__2,2__0,0
      inc %col 7
    }
    elseif ((%char == 73) || (%char == 105)) {
      write -al1 buffer.txt 2,2__0,0
      write -al2 buffer.txt 2,2__0,0
      write -al3 buffer.txt 2,2__0,0
      write -al4 buffer.txt 2,2__0,0
      write -al5 buffer.txt 2,2__0,0
      inc %col 3
    }
    elseif ((%char == 74) || (%char == 106)) {
      write -al1 buffer.txt ___2,2___0,0
      write -al2 buffer.txt ____2,2__0,0
      write -al3 buffer.txt ____2,2__0,0
      write -al4 buffer.txt ____2,2__0,0
      write -al5 buffer.txt 2,2_____0,0_
      inc %col 7
    }
    elseif ((%char == 75) || (%char == 107)) {
      write -al1 buffer.txt 2,2__0,0__2,2__0,0
      write -al2 buffer.txt 2,2__0,0_2,2__0,0_
      write -al3 buffer.txt 2,2____0,0__
      write -al4 buffer.txt 2,2__0,0_2,2__0,0_
      write -al5 buffer.txt 2,2__0,0__2,2__0,0
      inc %col 7
    }
    elseif ((%char == 76) || (%char == 108)) {
      write -al1 buffer.txt 2,2__0,0____
      write -al2 buffer.txt 2,2__0,0____
      write -al3 buffer.txt 2,2__0,0____
      write -al4 buffer.txt 2,2__0,0____
      write -al5 buffer.txt 2,2______0,0
      inc %col 7
    }
    elseif ((%char == 77) || (%char == 109)) {
      write -al1 buffer.txt 2,2_____0,0_
      write -al2 buffer.txt 2,2_0,0_2,2_0,0_2,2__0,0
      write -al3 buffer.txt 2,2_0,0_2,2_0,0_2,2__0,0
      write -al4 buffer.txt 2,2_0,0_2,2_0,0_2,2__0,0
      write -al5 buffer.txt 2,2_0,0_2,2_0,0_2,2__0,0
      inc %col 7
    }
    elseif ((%char == 78) || (%char == 110)) {
      write -al1 buffer.txt 2,2_____0,0_
      write -al2 buffer.txt 2,2__0,0__2,2__0,0
      write -al3 buffer.txt 2,2__0,0__2,2__0,0
      write -al4 buffer.txt 2,2__0,0__2,2__0,0
      write -al5 buffer.txt 2,2__0,0__2,2__0,0
      inc %col 7
    }
    elseif ((%char == 80) || (%char == 112)) {
      write -al1 buffer.txt 2,2_____0,0_
      write -al2 buffer.txt 2,2__0,0__2,2__0,0
      write -al3 buffer.txt 2,2__0,0__2,2__0,0
      write -al4 buffer.txt 2,2_____0,0_
      write -al5 buffer.txt 2,2__0,0____0,0
      inc %col 7
    }
    elseif ((%char == 81) || (%char == 113)) {
      write -al1 buffer.txt _2,2____0,0__
      write -al2 buffer.txt 2,2__0,0__2,2__0,0_
      write -al3 buffer.txt 2,2__0,0__2,2__0,0_
      write -al4 buffer.txt 2,2__0,0__2,2_0,0__
      write -al5 buffer.txt _2,2___0,0_2,2__0,0
      inc %col 8
    }
    elseif ((%char == 82) || (%char == 114)) {
      write -al1 buffer.txt 2,2_____0,0_
      write -al2 buffer.txt 2,2__0,0__2,2__0,0
      write -al3 buffer.txt 2,2__0,0__2,2__0,0
      write -al4 buffer.txt 2,2_____0,0_
      write -al5 buffer.txt 2,2__0,0__2,2__0,0
      inc %col 7
    }
    elseif ((%char == 83) || (%char == 115)) {
      write -al1 buffer.txt _2,2_____0,0
      write -al2 buffer.txt 2,2__0,0____
      write -al3 buffer.txt _2,2____0,0_
      write -al4 buffer.txt ____2,2__0,0
      write -al5 buffer.txt 2,2_____0,0_
      inc %col 7
    }
    elseif ((%char == 84) || (%char == 116)) {
      write -al1 buffer.txt 2,2______0,0
      write -al2 buffer.txt __2,2__0,0__
      write -al3 buffer.txt __2,2__0,0__
      write -al4 buffer.txt __2,2__0,0__
      write -al5 buffer.txt __2,2__0,0__
      inc %col 7
    }
    elseif ((%char == 85) || (%char == 117)) {
      write -al1 buffer.txt 2,2__0,0__2,2__0,0
      write -al2 buffer.txt 2,2__0,0__2,2__0,0
      write -al3 buffer.txt 2,2__0,0__2,2__0,0
      write -al4 buffer.txt 2,2__0,0__2,2__0,0
      write -al5 buffer.txt _2,2____0,0_
      inc %col 7
    }
    elseif ((%char == 86) || (%char == 118)) {
      write -al1 buffer.txt 2,2__0,0__2,2__0,0
      write -al2 buffer.txt 2,2__0,0__2,2__0,0
      write -al3 buffer.txt 2,2__0,0__2,2__0,0
      write -al4 buffer.txt 2,2__0,0_2,2__0,0_
      write -al5 buffer.txt 2,2____0,0__
      inc %col 7
    }
    elseif ((%char == 87) || (%char == 119)) {
      write -al1 buffer.txt 2,2__0,0_2,2_0,0_2,2_0,0
      write -al2 buffer.txt 2,2__0,0_2,2_0,0_2,2_0,0
      write -al3 buffer.txt 2,2__0,0_2,2_0,0_2,2_0,0
      write -al4 buffer.txt 2,2__0,0_2,2_0,0_2,2_0,0
      write -al5 buffer.txt 2,2_____0,0_
      inc %col 7
    }
    elseif ((%char == 88) || (%char == 120)) {
      write -al1 buffer.txt 2,2__0,0__2,2__0,0
      write -al2 buffer.txt _2,2____0,0_
      write -al3 buffer.txt __2,2__0,0__
      write -al4 buffer.txt _2,2____0,0_
      write -al5 buffer.txt 2,2__0,0__2,2__0,0
      inc %col 7
    }
    elseif ((%char == 89) || (%char == 121)) {
      write -al1 buffer.txt 2,2__0,0__2,2__0,0
      write -al2 buffer.txt 2,2__0,0__2,2__0,0
      write -al3 buffer.txt _2,2____0,0_
      write -al4 buffer.txt __2,2__0,0__
      write -al5 buffer.txt __2,2__0,0__
      inc %col 7
    }
    elseif ((%char == 90) || (%char == 122)) {
      write -al1 buffer.txt 2,2______0,0
      write -al2 buffer.txt ___2,2__0,0_
      write -al3 buffer.txt __2,2__0,0__
      write -al4 buffer.txt _2,2__0,0___
      write -al5 buffer.txt 2,2______0,0
      inc %col 7
    }
    elseif (%char == 91) {
      write -al1 buffer.txt 2,2__0,0
      write -al2 buffer.txt 2,2_0,0_
      write -al3 buffer.txt 2,2_0,0_
      write -al4 buffer.txt 2,2_0,0_
      write -al5 buffer.txt 2,2__0,0
      inc %col 3
    }
    elseif (%char == 92) {
      write -al1 buffer.txt 2,2__0,0____
      write -al2 buffer.txt _2,2__0,0___
      write -al3 buffer.txt __2,2__0,0__
      write -al4 buffer.txt ___2,2__0,0_
      write -al5 buffer.txt ____2,2__0,0
      inc %col 7
    }
    elseif (%char == 93) {
      write -al1 buffer.txt 2,2__0,0
      write -al2 buffer.txt _2,2_0,0
      write -al3 buffer.txt _2,2_0,0
      write -al4 buffer.txt _2,2_0,0
      write -al5 buffer.txt 2,2__0,0
      inc %col 3
    }
    elseif (%char == 94) {
      write -al1 buffer.txt __2,2_0,0__
      write -al2 buffer.txt _2,2_0,0_2,2_0,0_
      write -al3 buffer.txt 2,2_0,0___2,2_0,0
      write -al4 buffer.txt _____
      write -al5 buffer.txt _____
      inc %col 6
    }
    elseif (%char == 95) {
      write -al1 buffer.txt _____
      write -al2 buffer.txt _____
      write -al3 buffer.txt _____
      write -al4 buffer.txt _____
      write -al5 buffer.txt 2,2_____0,0
      inc %col 6
    }
    elseif (%char == 96) {
      write -al1 buffer.txt 2,2_0,0_
      write -al2 buffer.txt _2,2_0,0
      write -al3 buffer.txt __
      write -al4 buffer.txt __
      write -al5 buffer.txt __
      inc %col 3
    }
    elseif (%char == 123) {
      write -al1 buffer.txt __2,2_0,0
      write -al2 buffer.txt _2,2_0,0_
      write -al3 buffer.txt 2,2__0,0_
      write -al4 buffer.txt _2,2_0,0_
      write -al5 buffer.txt __2,2_0,0
      inc %col 4
    }
    elseif (%char == 124) {
      write -al1 buffer.txt 2,2_0,0
      write -al2 buffer.txt 2,2_0,0
      write -al3 buffer.txt 2,2_0,0
      write -al4 buffer.txt 2,2_0,0
      write -al5 buffer.txt 2,2_0,0
      inc %col 2
    }
    elseif (%char == 125) {
      write -al1 buffer.txt 2,2_0,0__
      write -al2 buffer.txt _2,2_0,0_
      write -al3 buffer.txt _2,2__0,0
      write -al4 buffer.txt _2,2_0,0_
      write -al5 buffer.txt 2,2_0,0_
      inc %col 4
    }
    elseif (%char == 95) {
      write -al1 buffer.txt ______
      write -al2 buffer.txt _2,2__0,0__2,2_0,0
      write -al3 buffer.txt 2,2_0,0__2,2__0,0_
      write -al4 buffer.txt ______
      write -al5 buffer.txt ______
      inc %col 7
    }
    else { echo -g Invalid character(s). | halt }
    inc %charnum 1
    write -al1 buffer.txt _
    write -al2 buffer.txt _
    write -al3 buffer.txt _
    write -al4 buffer.txt _
    write -al5 buffer.txt _
    if (%col >= 80) {
      write -il1 buffer.txt 0,0_
      write -il2 buffer.txt 0,0_
      write -il3 buffer.txt 0,0_
      write -il4 buffer.txt 0,0_
      write -il5 buffer.txt 0,0_
      set %col 0
      inc %addlines 1
    }
  }
  while (%addlines >= 0) {
    say $read(buffer.txt,$calc((5 * %addlines) + 1))
    say $read(buffer.txt,$calc((5 * %addlines) + 2))
    say $read(buffer.txt,$calc((5 * %addlines) + 3))
    say $read(buffer.txt,$calc((5 * %addlines) + 4))
    say $read(buffer.txt,$calc((5 * %addlines) + 5))
    dec %addlines 1
    if (%addlines >= 0) { say 0,0_ | continue }
    else break
  }
  unset %col
  unset %charnum
  unset %char
  unset %addlines
}