GERGELY@DREA-XX.ARPA (Peter Gergely) (05/04/87)
[Patterns.HQX - Uploaded from MACKY BBS, Dartmouth NS]
Here is a program that displays various 'QIX' style patterns to the
screen.
---
(This file must be converted with BinHex 4.0)
:#&"KG(4PFQjc!%&38%a-58j&)!#3"aS!YU3!N!3"!*!$'!#3!aF!N!6Z!*!J#&"
KG(4PFQjcEJ)!N!0849K88%P8)!#3$&4&@&43593J!*!BR(6-eJ#3"KS!N)BB&de
KFQYc)'aTEQ8JF(*[Ch*KE5"@-5ib!*!$"d&38%`!N!BF6%P143#3!`&*3diM!*!
&J%C548B!N!@!!*!$$!!m!&%!Y!'[!3&993#3!c`!!3#3"9S"#`"Z!9%%!Np,!*!
&#J!m!%B"ASJE6Qpd)'9ZEh9RD#"YC@e[FRNJCQpb)(4SBA3Z!*!%&3!"!!%"93(
r!!%"!*!(!3#3"!(b!"F!N!3",!$)!6i"$J3#6dX!N!8C!!S!+!"N#!C1E'PZCA-
!N!8C!'3!+!$)%!#3"Ld!#J!m!'3)#&"bCA0PEQ0P!*!&,3"N!$`!b"!!N!C"!!S
!8!"N#!G)3QpeEQ0P!*!'33"N!&!!b"!!N!C"!2S!8!&!%!#3"P8!#J"N!'3)"eC
#Eh9ZBf8!N!C9!'3!C!$)%!#3"P8!qJ"N!8!3!*!'93$5!'3!m!J$6@&i!*!'33$
5!&!!m!J$6@&i!*!'PJ!+!+S!C!B&6'PZCA-!N!D@!*B!UJ$k"J95C@0dF`#3"TB
",!#U!C!!"J92GQ&XF`#3"XJ!#J$F!-J'$P*KEQ4[E5"5CA0dBA*d!*!&D3!+!(J
!C!J&5%KTG(-!N!Cp!!S!M!"N#!9@5'PdF`#3"QN!C!"i!-J3!*!'I3"N!)`!b"!
!N!EQ!!S!qJ$)"Jj#E'&MDb"2EL"AD'PdC3#3"!%X!'3"2J#U"!4498P8!*!&jJ&
m!93"rSJk)*!(*$)`$8dZ)%eeFR*KH3e#EhJJ1C!$-Je"G'aKER4K)%GK$5#3$$-
`-c%j!!!"!2q3rrm!N!-B!*!$+!!!!J#3"!J!N!-J$qSr2!!"UI!!!"'m!*!$!8j
@rrK"lIqS,`LSEUMqUF`r22rr3QFJ(k!bU4*#TkPlU&#T-$YYrcVrcMYYrcMrd%+
Yrqj#VIrU1h`!b2rm1h`!!Irq1h`!#[rk1h`!#2ri1h`!!Irf1h`!!Ird3QhrmMY
m!!lri"Ym!!(rhcYm!!(rf$Ym!!(reLYm!!"'82r53Lhrc8jH6R919J!!3UG#CkK
K-"p)`#m!,c`!!(rrU&J`,J!)5-![!%kk$pSJ(ce!!!T1AL"I9%p1d%j@rri`,Ir
N8d$"lIrm-LhriP0"dN$R38M"dUhrlLY"rqC1ANje6PErp%MR"`"+VIrUC`J[,Ir
U6VS3XNUYrqjR##mYrqj1ZK#N3UhrkN+Yrqi`,Irqk8")`#`!3UF["Nkk%(iVArr
U3QFqZ!)J5PpR(%+YrqS3,IrI#J!!!@F-3QFr2!%"3UHTKMiIB$i`,Irmjd$"lIr
q5-!X!%+R,`C1ZK!q+errlN*R2VJ#)%TICaT#VIrZ%#hrh`S!!!&R$%*R2c`"!8+
RUBBq(dUYrqj@`%UYrqT@`F!"C`!!V$eYrrlrpRi"B!!!Q$Y(rq3JEIrU)!IT3%K
`!2!r22rr2ccrrcmm!!%r2!!"U+FJEIrU)!IT3%K`!2Jr,IrB2bhreMmYrpJr,Ir
@U+FpEIrmrr4k!@"#1dAriNkkrXB[,IrQ-#hrcNM!JI`!!Mm!-#hrd%M!JI`!!Mm
!-#hrcNM!JI`!!Mm!-#hrd%M!JI`!!Mm!U+G54@N'ZQlrp'qi8NGT#,jZrrC[!2p
N1h`!!IrL60m!i%jH6R919[rq51F"'#CZ!!JJEIrQ)NY4L5,B)YK*krri-#`!!V"
X!!C[$MiX!!)jE!!'!!)j4`!'-"5`E!!%E`Sq&$LX!!3j4`!%60mBJ%jH,Tp1G8j
@rrJ[$#KYrqB`,IrJ"%!!$QF+8d"R'P0!Cb4J,MmX!!)r&+L62b`!"MmX!!5SN@!
D,`j1Z[pk5'lrq+LKB!`[$Nkkrfa)E[riU,FSAdjH,Tp1G8j@!!")j`%B+'i!$#C
Z!"!Z,J!8)%F`%p&3)%F-8!!"E$JJ4c#m!!%`&&0!1)!-9!!"E"j#Cc!YrrU3!'h
rpMm!6VVp8M!YrrE3AcD!1+hrf'"3-"0%3$D!B%JJ4c!Yrmj93,"3E$``,Ir198!
J4c#!-"463$L!$&3!!@`J3QF`,IrkN!"YrrBr!%kkr3S`,Irfd&p%3$D!1+hrf'!
'-"0%3$D!60mBJ%jH)&rHr!!36Y"19J!!51F"'#KZ!!`QEJ!3,Li!&#"(-"248#"
($&!!!@`i)%F`[!!"-"463$L!$&3!!@`H3QF`,IriN!"Yrr3r!%kkr+)`,Irdd&m
fJ$LYrpCJ8$!64%!fJ'"))%F`,Ir398#`8'`m-#hrd&9!)%F`J$!88d!iJ!a8!!&
X)%*R-#hrq*!!EIrd2`"1Z[aD-#hrp0"I4%!fJ$LYrpCJ"M!64%!fJ%cI')"1AL"
Ih[`!%%l36PErf%MR!`#S8NKZrr"#Cd*R2bhrcMmYrp#STa!YrmeR&%KYrk#SI%K
YrjLSR6mm!!bSR'!55'hrQ+Km5'hrS+LG2c`!#+LF5'lrm+LM5'lrm+LK3UHTG5!
Yrp,3RbY!rpSlI!!"rq)pEIrqrpKq!@!!!2`l4rrN6VVll#"YrqC$l[r`)YJLf$!
Yrq*53$Y!rq)`,IrLX'hrr'm'1h`!!IrL6VVl`NKYrjLSR5m16VVpR%KZrr)JEIr
U)!IT3%K`!2)JEIrU)!IT3%K`!2S[$NkkrFj)E[rf)'hrkL!(k8")F!$f)'hrkL!
(k8")F!$q,`j1Z[fX5'lrm#"YrqSJ"qP!5(!!m#"YrqSJ"qP!5(!!q#m16VVq1NK
Zrr3JEIrU)!IT3%K`!23JEIrU)!IT3%K`!2`[$NkkrKJJEIrQ3qlrm#$C)0P)EIq
JU*d[$Nkkr2``,IrL8d!l32rL$'d!!IrLE!BlEIrmrq*54fN)[Qlrf'm!r`!`,Ir
L8N!l32rL-#hriV"Yrra["MYm!!(riNKZrqbTFJaZ!!ArlPh!$'i!"IrXAF(!!@F
13QFr22rr5'lrfUP`("p#CkPd3UHTG5!IX+hrfPl!`#hrhi!IC`$qQ+K65'lrm%*
R3QFr,Ir12bhrd+LR5'hrS+Km5'hrQ+LG2c`!#+LF5'lrm+LM2ccrrd*R)"qJ-Nc
I!-"1ANje6PEqlL"Z!!J[+2rm2bi!%%KZrrj)E[rk5'lrmUQ0,blrqNKZr[+TN!"
)E[lb5(S!-%kk#T!!%"pR#(!",8$qlQ!-5'lqmNKZrZj1ZJUZ)'i!$$#Zr["1AL"
Ih[`!#Nl3!!"19[r`,`FJEJ!),bMrr$mZ!!j)E[rq5'lrqNKZrr+TM4!Z!!aR"(i
"B!*#4bmZrrSr"kPM,Kp1AL"I8%p1d%j@rZiJEJ!),bMrr$mZ!!j)E[rq5'lrqNK
Zrr+TM6!Z!!a)`#e!rZi[,[lZ5'lqmNkk#M`[,[rk5'lqmUQ26PiJAe"26Y"19J!
!1fi!([rq1fi!(2rm1fi!'[rf-#i!'&*!1d$rqMYZ!"Erp$!Z!"453$Y!rrJlEJ!
5rpJlEJ!3rpBlEJ!1rq"`2-(Z!!a)`#Y!rp*1AL"Ih[`!'%l36PErrNMR!3JSEJ!
)3QFr2!!86VVie$!ID`!%9!a!!!YZ!!4-idJ`1`!'6[X!N!-D!'S!Z!%J!BJ"bJ)
b!S)#p!0Q!pS%$Mmm!!&#Ccmm!-K1Z[L@-"r3I!"N2`!r2!!"2c`!$$mm!!%r2!!
+2c`!!6mm!!%r2!!13QFr2!$`6VViD$!Id(`!2$m!,bi!#%kkraKJ!!5U3QFr2!!
$6VVi5M!I9N!r!%*R2c`!b%kkq$S`(p"m!#Jr!$mm!!%r2!!#2c`!!6mm!!)r2!!
"2c`!!6mm!!mr2!"i,bi!#%kkrXTJ!!4F2c`!!8*R2c`"N!"1Z[Ii-"r3I!!b2`!
r2!!#3QFr2!!#6VVhiM!I9%!r!$mm!!)r2!!#3QFr2!!$6VVhbM!I8N!r!$mm!!&
#Ccmm!!01Z[Hf-"r3I!!12`!r2!#d,bi!#%kkrQ*J!!2d2c`!!8*R2c`!C%kkpj!
!-"r3I!!b2`!r2!!#2c`!#Mmm!!)r2!!+3QFr2!!+6VVhEM!I8N!r!%*R2c`!#Nk
kpei`(e*!2`"#Ccmm!!01Z[G1-"r3I!!12`!r2!#d,bi!#%kkrITJ!!1-2c`!!8*
R2c`"N!"1Z[FS-"r3I!!b2`!r2!!"2c`!!Mmm!!%r2!!#2c`!!6mm!!%r2!!32c`
!Y#mZ!!K1Z[fiB!!$5Mmm!!&#Ccmm!C!!6VVfjM!Id(`!-Mm!2c`!!Mmm!!)r2!!
#3QFr2!!#6VVfb$!I9%!r!$mm!!&#Ccmm!!01Z[Dd-"p53$m!3QFr2!!$6VVfT$!
Id(`!$Mm!2c`!Y#mZ!!K1Z[e3B!!#iMmm!!&#Ccmm!C!!6VVfIM!Id(`!-Mm!2c`
!!Mmm!!)r2!!#2c`!!Mmm!!%r2!!"3QFr2!!$6VVf9$!Id(`!$Mm!2c`!m#mZ!!K
1Z[d!B!!#NN*R2c`!!dkkpM)`(e*!2`"#Ccmm!!T1Z[BL-"p33$m!2c`!!6mm!!S
r2!!"2c`!#%*R2c`!#8kkpJ)`(e*!2`"#Ccmm!!P1Z[Ab-"p53$m!3QFr2!!$6VV
eiM!Id(`!$Mm!2c`!2#mZ!!K1Z[b1B!!#)%*R2c`!!dkkpF!`(e*!2`"#Ccmm!"4
1Z[@`-"p53$m!2c`!!Mmm!qFr2!!#2c`$jd*R2c`!"%kkpC!!-"p53$m!3QFr2!!
%6VVeJ$!I8N!r!%*R2c`!!dkkpA!`(p"m!!ir!$mm!$`[,J!)6VVm('!!!Dj#Ccm
m!!01Z[91-"p53$m!3QFr2!!H6VVe2M!Id(`!#Mm!2c`!!Mmm!$)r2!!#2c`!-N*
R2c`!#8kkp4``(e*!2`"#Ccmm!!P1Z[8--"p53$m!3QFr2!!$6VVdr$!Id(`!$Mm
!2c`!2#mZ!!K1Z[ZSB!!"1Mmm!!-r2!!%2c`!!6mm!!`r2!!"2c`!$$mm!!%r2!!
"2c`!$cmm!&S[,J!)6VVlG'!!!3Br2!!"2c`!!Mmm!!%r2!!-2c`!!6mm!!`r2!!
"2c`!!6mm!!mr2!!m,bi!#%kkqd"J!!$53QFr2!!#6VVdFM!I8N!j32rf3QFr2!!
#6VVdB$!I8N!j32ri3QFr2!!+6VVd6JaI!!G[&N*R2c`!!Nkkp$i`(p"m!!mj32r
kB!BjI!!1rrS-E!!1rrTQ"Mim!PKJ"$im!2!r2!!"3QFr2!(d6VVd$$!I8N!r!$m
XrrC#Ccmm!!T1Z[2i-"r3E2rf2`!r,2ri3QFr2!!)6VVciM!Id'crq$m!3QFr2!!
86VVcd$!I8N!r!%*R2c`!&%kkmm!`(e*!2`!r,2rk2`F[,J!)6VVkE%cI%)"1ALk
I6R919[rf3QHTG"!Yrpm+!!!"J"pR!!,J3UFr2!%!3UG`rbm!UA`YArrm2c`!!cm
Yrri[$NkkqHBr2!!&2bhrr#m16VVjf$mm!!Fr,Irf,`j1Z[R+2c`!#$!YrrT63$m
!,`j1Z[Qi2c`!#MmYrr3[$NkkqDSr2!!,-#hrq&0!2`![$NkkqCJr2!!1$'d!$[r
J9m"%!"m!,`j1Z[P%2c`!$`aY!!rri&I!4!!I!#m16VVj,Mmm!"!-E3!3rq"A`%3
!(`![$Nkkq4Jr2!!4(bhrhbm16VVj#Mmm!"3r,IrB,`j1Z[Nk2c`!&6mYrpB[$Nk
kq5`r2!!@(bhrc5m16VVii%+R5'lrpUQ4$'i!&rrfCJ+Tp$!ZrrCV',"m!"pZ%N(
k!H3b!1C*4%%"-"$r#M`!"'BJ2bhri%*R,`j1Z[LL1flrp[rJ2bhri"mm!!%[$Nk
kq)i-EJ!@rrCQ'K!Yrmd+!!!"'d$rc6mm!"BI,Ir0,`j1Z[KX$'i!%IrfCJ!!j"!
Yrpm+!!!"'d$rhcmm!"%I,IrI,`j1Z[K)%#hrhfF!!-)[$Nkkq4Br2!!$2bhrrLm
16VViDMmm!!8r,Irm,`j1Z[KF2c`!"cmYrrB[$Nkkq%ir2!!)-#hrqP0!2`![$Nk
kq$`r2!!+2bhrp#m16VVi,Mmm!!X`,Iri8d!r!#m16VVi($mm!!i-E3!1rq"A`%3
!(`![$NkkpmJr2!!2$'d!$rrJ9m"%!"m!,`j1Z[Hb2c`!%!aY!"$ri&I!4!!I!#m
16VVhR$mm!"3r,IrB,`j1Z[I-2c`!&6mYrpB[$Nkkpli-EJ!"rrCQ!2kB2c`!!dK
Yrri[$Nkkp`Jr2!!&5'hrr#m16VVfqMmm!!G)EIrf,`j1Z[EX2c`!#%KYrrS[$Nk
kpYir2!!+5'hrp#m16VVfd$mm!!Y)EIri,`j1Z[E#2c`!&%KYrpJ[$NkkpV3r2!!
95'hreLm16VVfTM!YrrT53$Y!rrS`,Iri8N!l32ri,blrr+Q#B!B[$Nkkpm"1ANj
e!!(!!%kk!%C19J!!,&p19Ir-Rqd!%%kk!%K1ZZrq6VV`fNUYrqj@`%UYrqT@`F!
"C`41Z[3k6VVmbQ$L6VS!,NjG6VS!'Nje6Pj1G8+[!"""qJ!))+m!"%je!*!%6R8
JAdjG,`K1ZJ!-6R8JAdj9!!"1d%j@!!"#VIr)3Lhr`N)Yrm0#VIqm3UhrZ%+Yrka
1ANjeT8P1594)48%!!%j@!!![!#m")#m!&#)[!""1ZJ!8,d!!&#)I)"p1ALpA!!4
BMdje6PB!!#aI51Fq!#S!DJ*%J#`"DJ*%J53"5%*+3QBF0J"#3%K!C`5!`63!5%)
`!i$"0!!L!N*!5%"J(#3!*J&#J%+"H"r8JY'!dS'`Jfd%N!#$8J&4c2r`5S9U!N5
!ZiCU!N5"60m!I%je6Pj1G8P%59C06d3J51I!`()"B!C)jm$!3N%JE`!B)Qm!&%*
!%"L`'@B1B!5c#'B)8d"Uq!T"!!%I33!D,fm!%!!@60m$!eb26R8JE`!)2c`!!DR
Z)'m!"##!6[S!$L"[!!3J,`!)3QHTlL"I8%p1d#*I)"qJ6#k!6R&`!#m*-F!#)%j
eF!"JpL*I)"qK(Lk)6[VrkL*I)&qJ(dlkrq#"!!!)!!!4X!#3!``!N!419[ri3Hh
rU!#3!``!N!419[ri3HhrU!#3r`#3G"`!lJ!(3dp%43!$!%**3diM!*!$FN4-6dF
!N!0q4%P86!!"!)T"6&*8!*!$SN*14%`!N!1Z4P*&4J#3!lT-58j&!*!$aJ!!rrm
J!!1U!*!&!Irr0!!$aJ#3"3,rrc!!&BB!N!8$rrm`!"@@!*!&J2rr!!!#TJ#3"!%
!rrm!N!1A!*!%!3(rrb!!!&F!N!3"!2rr!*!$X!#3"!%"rrmJ!!"(!*!&J2rr!*!
$*`#3"B$rr`#3!a`!N!Err`#3r`#3'dRgram gra