#!/usr/bin/perl local (*in) = @_; local (@b); local ($i,$loc,$key,$val,$a, $c, $d, $n, $book,$puf); # ********************************************************* $c = -1; # $ft = 0; # open (TRAB,"+<../data/fmmsgt.dat"); # READ (TRAB, $ft,2); # $ft++; # print (TRAB $ft); # close TRAB; open (BLOB,"+<../data/fmmsg.dat"); # open (BLOB,"+First Mountain Chapter Message Board","\n"; print "","\n"; print "","\n"; print "
First Mountain Chapter Message Board ",$ft,"\n"; print "","\n"; print "
leave a message","\n"; print "","\n"; print "
SCROLL DOWN to see entries, or ","\n"; # print "
please read entry No.1
","\n"; print "GO BACK
","\n"; print "","\n"; #&&&&&&&& print "_______________________________________________________","\n"; # *********************************************************************************** print "","\n"; print "
If you would like to enter a message, then:
","\n"; # print "","\n"; # print "Enter your email address and your message
","\n"; print "","\n"; print "
\"\"
","\n"; print "
","\n"; print "

type in the number you see above:

","\n"; print "

enter your email address:

","\n"; print "

enter your message:
","\n"; print "

","\n"; print "
","\n"; print "_______________________________________________________
","\n"; #&&&&&&&& # ************************************************************************************ print "
","\n"; print "First Mountain Message Board now contains ",$d," Entries","


","\n"; # ********************************************************************************* for ($i = $d-1; $i > -1; $i--) { $n--; print "",$n,$puf,"","\n"; print "",substr($b[$i],0,32),""; print ""," - ",substr($b[$i],502,6),", ",substr($b[$i],508,4); print "
",substr($b[$i],32,465),"


\n"; } lev: print "",,"\n"; print "",,"\n"; print "",,"\n"; print "",,"\n"; print "
go back
",,"\n"; print "","\n"; # *********************************************************