!*************************** AMUS Program Label ******************************
! Filename: BARBER.BAS                                      Date: 01/04/89
! Category: TEXT         Hash Code: 630-033-045-474      Version: 1.0
! Initials: COL/AM       Name: JAMES M. NEWLIN
! Company: VERSACOM, INC., INDIANAPOLIS, IN        Telephone #: 3178761889
! Related Files: 
! Min. Op. Sys.: AMOSL 1.0                     Expertise Level: BEG
! Special: 
! Description: Translates input string into a one-page barber pole format and
! outputs to a file named BARBER.PRT.
!*****************************************************************************
! VersaCom, Inc. 8847 Commerce Park Place, Suite G
! Indianapolis, IN  46268
!
Program barber,1.0

map1 message,s,40
map1 length,f,6
map1 lne,s,80
map1 y,f,6
map1 x,f,6

start:
	?Tab(-1,0);tab(1,26);tab(-1,32);"Barber Pole Message Print";tab(-1,33);
	?tab(5,1);tab(-1,11);
	?"This Program will make a one page '";tab(-1,12);"BARBER POLE";tab(-1,11);"' like message from any message"
	?"you enter, limit on message is ";tab(-1,12);"40";tab(-1,11);" characters.";tab(-1,12);
input:
	?Tab(10,1);"Enter Your Message->";
	input line message	
	if message="" goto input
	length = len(message)
	if message[length,length] <> " " message=message+" " : length=length+1
	open #1,"barber.prt",output
	y=1
	print tab(12,1);"Outputing";
loop:
	lne = message[y,length]
lne'loop:
	lne = lne + message
	if len(lne) = 80 goto exit'lne'loop
	goto lne'loop
exit'lne'loop:
	print ".";
	?#1,lne
	x=x+1
	if x=64 goto done
	y=y+1
	if y=length+1 y=1
	goto loop

done:	close #1
	print tab(15,1);
	print "Finished, BARBER.PRT has been created."
	print tab(17,1);
	input line "Do you wish to Print?",A$
	if A$="Y" xcall spool,"BARBER.PRT","LPT0"
	input line "Do you wish to VUE it?",B$
	if B$="Y" CHAIN "dsk0:VUE.LIT[1,4] BARBER.PRT"