!*************************** 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
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"
