1B? ********************************************************? Correction made on July 5, 1981 by E. L. Plantz *? Wrong Variable used in line 1060-should be Q1 not X3 *?( Also added printer support via LPRINTs. *?2 ********************************************************Z S(P)dnx% " *****POSTER*****"; "A PROGRAM TO PRINT MESSAGES IN BLOCK CHARACTERS!!!"+ "DO YOU WISH INSTRUCTIONS (Y OR N)"; Z Z"y"  Z"n"  Z"Y"  Z"N" ( "PLEASE INPUT EITHER 'Y' OR 'N'." 7 "THE AVAILABLE CHARACTERS FOR MESSAGES INCLUDE:"<" "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-:.,'!/\&+=<>?*"<, "AND 'SPACE'. HOWEVER, IF YOU PLAN TO USE A 'SPACE'":6 "AS THE FIRST CHARACTER OF A MESSAGE, REPLACE THAT"?@ "SINGLE 'SPACE' WITH A '%' IN THAT FIRST POSITION ONLY."5J "THE MAXIMUM MESSAGE LENGTH IS 72 CHARACTERS."<T "TERMINAL (T) MODE FORMATS BLOCK CHARACTERS AT 6 PER"B^ "LINE; LINEPRINTER (L) MODE FORMATS AT 13 BLOCK CHARACTERS"h "PER LINE."C "SORRY THAT MORE INFO ISN'T AVAILABLE ABOUT THIS PROGRAM..."# "EXPERIMENT AND HAVE FUN!!!"; "PROGRAM'S ORIGINAL TITLE: OMICRON III (VERSION 1)"    dC "DO YOU PLAN TO VIEW YOUR OUTPUT AT YOUR TERMINAL OR AT THE" "LINEPRINTER (T OR L)";  X X"t" D! X"l" X& X"T" D+ X"L" X(0 "PLEASE INPUT EITHER 'T' OR 'L'." : D X N bX X bl5v "WHAT SIZE CHARACTERS DO YOU DESIRE (1 OR 2)";  D D  D   D   D ( "PLEASE INPUT EITHER '1' OR '2'."   D    R  > R  >-  "INPUT YOUR SPECIAL LETTER SIZE CODE."  D  RD * >4 S(K)> HHR7\ "HOW MANY BLANK LINES DO YOU WANT BETWEEN LINES":f "OF BLOCK CHARACTERS (MUST BE A POSITIVE INTEGER)"; p Hz ZH  " 9 "PLEASE INPUT YOUR MESSAGE ON THE FOLLOWING LINE:" I"%"  I Q    Q Q(I) B Q$ S(B)(I,B,)  B F Q X E  D R$ C Q. C B8 PHB XS(P)L X"%" x V X"A" |` X"B" j X"C" t X"D" ~ X"E"  X"F"  X"G"  X"H"  X"I"  X"J" 0 X"K" D X"L" X X"M" l X"N"  X"O"  X"P"  X"Q"  X"R"   X"S"  X"T"  X"U"  ( X"V"  2 X"W" 4< X"X" HF X"Y" \P X"Z" pZ X"1" d X"2" n X"3" x X"4"  X"5"  X"6"  X"7"  X"8"   X"9" $  X"0" 8  X"-" L  X":" `  X"." t  X","   X"'"   X"!"   X"*"   X"&"   X"+"   X"="  " X"<" ( , X">" < 6 X"\" P @ X"?" d J X" " x @T "SORRY, THE CHARACTER '"X"' IS NOT AVAILABLE FOR USE"2^ "IN MESSAGES. PLEASE INPUT A NEW MESSAGE:"h H r | Z(E)    Z(E)    Z(E)    Z(E)    Z(E)    Z(E)    Z(E)    Z(E)    Z(E) &  0 Z(E) :  D Z(E) N  X Z(E) b  l Z(E) v   Z(E)    Z(E)    Z(E)    Z(E)    Z(E)    Z(E)    Z(E)     Z(E)     Z(E) *  4 Z(E) >  H Z(E) R  \ Z(E) f  p Z(E) z   ZB(E)    ZC(E)    ZD(E)    ZE(E)    ZF(E)    ZG(E)    ZH(E)    ZI(E)   $ ZJ(E) .  8 ZA(E) B  L ZK(E) V  ` ZL(E) j  t ZM(E) ~   ZN(E)   ZO(E)   ZP(E)   ZQ(E)   ZR(E)   ZS(E)   ZT(E)   ZU(E)   ( ZV(E) 2  < ZW(E) F  P ZX(E) Z  d ZY(E) n  x ZZ(E)  $ X "l" X"L"  Z; " ";  Z; " "; PP C : D E HHX T Z ' T F Q   '  Q  l" ()" AAAAAA ", ()"AAAAAAAA"6 ()"AA AA"@ ()"AAAAAAAA"J ()"AAAAAAAA"T ()"AA AA"^ ()"AA AA"h ()"AA AA"r ()"BBBBBBB "| ()"BBBBBBBB" ()"BB BB" ()"BBBBBBBB" ()"BBBBBBB " ()"BB BB" ()"BBBBBBBB" ()"BBBBBBB " ()" CCCCCC " ()"CCCCCCCC" ()"CC CC" ()"CC " ()"CC " ()"CC CC" ()"CCCCCCCC" ()" CCCCCC " ()"DDDDDDD " ()"DDDDDDDD"& ()"DD DD"0 ()"DD DD": ()"DD DD"D ()"DD DD"N ()"DDDDDDDD"X ()"DDDDDDD "b ()"EEEEEEEE"l ()"EEEEEEEE"v ()"EE " ()"EEEEE " ()"EEEEE " ()"EE " ()"EEEEEEEE" ()"EEEEEEEE" ()"FFFFFFFF" ()"FFFFFFFF" ()"FF " ()"FFFFF " ()"FFFFF " ()"FF " ()"FF " ()"FF " ()" GGGGGG " ()"GGGGGGGG" ()"GG GG" ()"GG "* ()"GG GGGG"4 ()"GG GG"> ()"GGGGGGGG"H ()" GGGGGG "R ()"HH HH"\ ()"HH HH"f ()"HH HH"p ()"HHHHHHHH"z ()"HHHHHHHH" ()"HH HH" ()"HH HH" ()"HH HH" ()"IIIIIIII" ()"IIIIIIII" ()" II " ()" II " ()" II " ()" II " ()"IIIIIIII" ()"IIIIIIII" ()" JJJJJJ" ()" JJJJJJ" ()" JJ " ()" JJ " ()" JJ "$ ()"JJ JJ ". ()"JJJJJJ "8 ()" JJJJ "B ()"KK KK"L ()"KK KK "V ()"KK KK "` ()"KK KK "j ()"KKKKK "t ()"KKK KK "~ ()"KK KK " ()"KK KK" ()"LL " ()"LL " ()"LL " ()"LL " ()"LL " ()"LL " ()"LLLLLLLL" ()"LLLLLLLL" ()"MM MM" ()"MMM MMM" ()"MM MM MM" ()"MM MM MM"  ()"MM MM" ()"MM MM" ()"MM MM"( ()"MM MM"2 ()"NN NN"< ()"NNN NN"F ()"NN N NN"P ()"NN NN NN"Z ()"NN NN NN"d ()"NN N NN"n ()"NN NNN"x ()"NN NN" ()" OOOOOO " ()"OOOOOOOO" ()"OO OO" ()"OO OO" ()"OO OO" ()"OO OO" ()"OOOOOOOO" ()" OOOOOO " ()"PPPPPPP " ()"PPPPPPPP" ()"PP PP" ()"PPPPPPPP" ()"PPPPPPP " ()"PP " ()"PP " ()"PP "" ()" QQQQQQ ", ()"QQQQQQQQ"6 ()"QQ QQ"@ ()"QQ QQ"J ()"QQ QQ QQ"T ()"QQ QQQQ"^ ()"QQQQQQQQ"h ()" QQQQQQ "r ()"RRRRRRR "| ()"RRRRRRRR" ()"RR RR" ()"RRRRRRRR" ()"RRRRRRR " ()"RR RR " ()"RR RR " ()"RR RR" ()" SSSSSS " ()"SSSSSSSS" ()"SS SS" ()" SSS " ()" SSS " ()"SS SSS" ()"SSSSSSSS" ()" SSSSSS " ()"TTTTTTTT" ()"TTTTTTTT"& ()" TT "0 ()" TT ": ()" TT "D ()" TT "N ()" TT "X ()" TT "b ()"UU UU"l ()"UU UU"v ()"UU UU" ()"UU UU" ()"UU UU" ()"UU UU" ()"UUUUUUUU" ()" UUUUUU " ()"VV VV" ()"VV VV" ()"VV VV" ()"VV VV" ()"VV VV" ()" VV VV " ()" VVVV " ()" VV " ()"WW WW"  ()"WW WW" ()"WW WW"  ()"WW WW"* ()"WW WW WW"4 ()"WW WW WW"> ()"WWW WWW"H ()"WW WW"R ()"XX XX"\ ()" XX XX "f ()" XXXX "p ()" XX "z ()" XX " ()" XXXX " ()" XX XX " ()"XX XX" ()"YY YY" ()"YY YY" ()" YY YY " ()" YYYY " ()" YY " ()" YY " ()" YY " ()" YY " ()"ZZZZZZZZ" ()"ZZZZZZZZ" ()" ZZZ " ()" ZZ " ()" ZZ "$ ()" ZZZ ". ()"ZZZZZZZZ"8 ()"ZZZZZZZZ"B A()" 0000 "L A()" 000000 "V A()"00 00"` A()"00 00"j A()"00 00"t A()"00 00"~ A()" 000000 " A()" 0000 " B()" 11 " B()" 111 " B()" 11 " B()" 11 " B()" 11 " B()" 11 " B()"11111111" B()"11111111" C()" 222222 " C()"22222222" C()"22 22" C()" 22 "  C()" 222 " C()" 222 " C()"22222222"( C()"22222222"2 D()" 333333 "< D()"33333333"F D()"33 33"P D()" 333 "Z D()" 333 "d D()"33 33"n D()"33333333"x D()" 333333 " E()" 44 " E()" 444 " E()" 4444 " E()" 44 44 " E()" 4444444" E()"44444444" E()" 44 " E()" 44 " F()"55555555" F()"55555555" F()"55 " F()"5555555 " F()" 55" F()"55 55" F()"55555555" F()" 555555 "" G()" 66 ", G()" 66 "6 G()" 66 "@ G()" 666666 "J G()"66666666"T G()"66 66"^ G()"66666666"h G()" 666666 "r H()"77777777"| H()"77777777" H()" 77 " H()" 77 " H()" 77 " H()" 77 " H()" 77 " H()" 77 " I()" 888888 " I()"88888888" I()"88 88" I()" 888888 " I()" 888888 " I()"88 88" I()"88888888" I()" 888888 " J()" 999999 " J()"99999999"& J()"99 99"0 J()"99999999": J()" 999999 "D J()" 99 "N J()" 99 "X J()" 99 "b K()" "l K()" "v K()" " K()" ------ " K()" " K()" " K()" " K()" " L()" " L()" " L()" :: " L()" " L()" " L()" :: " L()" " L()" " M()" "  M()" " M()" "  M()" "* M()" "4 M()" "> M()" ... "H M()" ... "R N()" "\ N()" "f N()" "p N()" "z N()" ,,, " N()" ,,, " N()" ,, " N()" ,, " O()" '' " O()" '' " O()" '' " O()" '' " O()" " O()" " O()" " O()" " P()" !! " P()" !! " P()" !! " P()" !! " P()" !! "$ P()" ". P()" !! "8 P()" !! "B Q()" "L Q()"* * * "V Q()" * * * "` Q()"******* "j Q()" * * * "t Q()"* * * "~ Q()" " Q()" " R()" &&&& " R()" & & " R()" & & " R()" &&&& " R()" & & " R()"& & &" R()"& & " R()" &&&&& &" S()" " S()" + " S()" + " S()"+++++++ "  S()" + " S()" + " S()" "( S()" "2 T()" "< T()" / "F T()" / "P T()" / "Z T()" / "d T()" / "n T()" / "x T()" " U()" " U()" " U()" ====== " U()" " U()" " U()" ====== " U()" " U()" " V()" < " V()" < " V()" < " V()"<<<<<<<<" V()"<<<<<<<<" V()" < " V()" < " V()" < "" W()" > ", W()" > "6 W()" > "@ W()">>>>>>>>"J W()">>>>>>>>"T W()" > "^ W()" > "h W()" > "r X()" "| X()" \ " X()" \ " X()" \ " X()" \ " X()" \ " X()" \ " X()" " Y()" ?????? " Y()"????????" Y()"?? ??" Y()" ?? " Y()" ?? " Y()" " Y()" ?? " Y()" ?? " Z()" " Z()" "& Z()" "0 Z()" ": Z()" "D Z()" "N Z()" "X Z()" " b lv. "DO YOU WANT TO DO ANOTHER ONE (Y/N) "  H H "y"  H "Y"  H "n"  H "N" ' X "l" *' X "L" *.'8'**: X "l" hB: X "L" hB : " ": hB " "rB NX "L" *.'8'**: X "l" hB: X