ͫFU6"a75HnU@@Lll * * * *footnote continues next pagecontinued footnotePanasonic KX-P1124i LRxd 782 d8-T-T-T:5 -_LRrJj+TNX^ZzC.:;^|\/()<>[]{}IA1ai023456789   4   Z//  ::%=L-T-T"-+-z-R-3X/H!X/R.define statoos = "**HI HO ENABLE.OA****HI HO ENABLE.OA**"_.define statuus = "**HI HO ENABLE.OA** OA=Away, Bye **HI HO ENABLE.OA**".define Gcount as integer.define Hcount as integer.define Icount as integer.define Bcnt as integerA;; place the above lines in the .definitions section or just in #;; with your local defined fields.intro @.maxscreen ;; you probably already have this in your .intro.M;;now come the conclusion and subroutines called from within the conclusion. .conclusion.let Hcount = 1.while Hcount < 9.let Gcount = 1.while Gcount < 12.let Icount =1.while Icount < 30 .gosub HIHO.let Icount = Icount+1 .endwhile.let Gcount = Gcount +1 .endwhile.let Hcount = Hcount +1 .endwhile.while gcount > -50.let Icount = 1.if gcount > -40 .while Icount < 18.if Icount <=11.if @mod(Icount,2)=0'.color (5:B7,23-icount,1,23-icount,78)!.color (2:B4,icount,1,icount,78).else'.color (2:B4,23-icount,1,23-icount,78)!.color (5:B7,icount,1,icount,78).endif.endif.let Icount = Icount+1.endif.let Hcount = 0.while Hcount < 3300.let Hcount = Hcount + 1 .endwhilem.status [@substr(@if(gcount>-20,statoos,statuus),1,@choose(Icount,7,9,11,15,18,24,28,37,46,55,60,69,74,78))].let gcount = gcount - 1 .endwhile .clrscreen.gosub Byecount.exit .subroutines.label HIHOl.screenpos (@choose(hcount,0,gcount,gcount,23-gcount),(@choose(hcount,0,gcount,47-gcount,gcount,47-gcount))** * HI HO ENABLE.OA **.return.label Byecount.let Bcnt = 1.while Bcnt < 60.clrscreen (12).screenpos (12,63-Bcnt)$["OA=Away, Bye "&@repeat(" ",30)].if @mod(Bcnt,7)=0/.status [@repeat(" ",Bcnt-7)&" OA=Away, Bye"].endif.let Hcount = 1.while Hcount < 90.let Hcount = Hcount + 1 .endwhile.let Bcnt = Bcnt + 1 .endwhile .return