###   4/15/83   FORMS 2.14    jb/wkc

                    *** формс процессор мацрофеатуре ***


   FORMS lets you fill out a forms template which you have already
"mapped" to a printed form. 

   If the files have been set up correctly, you can access a
customer list, keep a form log, and perform calculations.

##
A          "ORDER"  "Filename of template (.TEM assumed)    "
B          "none"   "Data file if applicable or 'none'       "
C          "0"      "Tax rate in tenths if applicable            "
E          "0"      "Clean print file (1=yes, 0=no)              "
H          "1"      "Clean character (null=0 space =1)           "
F          "0"      "Exit to Boiler.WPM (1=yes, 0=no)            "
G          "  "     "Boiler master file if Yes                 "
#
:oe 483
:ss 64 64 15 5 64 5 5 5 5 5 5 5 5 5 64 5 1 1




:%J = "QUIT"
:%Q = ""
:%1= $H
:on %1 / /+1 /
:%Q = " "
:%R = "0"

:pr "#1/#3/#3/#3/#3/#6/"
:pr "     Filename of form to be filled in:   $A"
ro/$A.TEM/
ri/f1/j1/e/s//.e<</t
:%K = !
s/шД
:on ?-3 / /+1 /
:in "#1/#13/#13/#13/Date:  "%C
t/d2/h1000



ro/$A.PRN/
:on $0 /+1 /+1 /
r/d1/e
:%1=$3
:%G=%1
t/fy/wo/$A.PRN/
w/d1000



:%A = "$B"
:%D = "none"
:on %A%D / /+2 /
ro/%A/
r
:%O = "AAAA"
e/s//^</
:on $0 / / 487



:%d = 0
:%c = 0
:%L = "0"
t/u
:cp


:%P=0
s/ю
:on ?-3 / /+1
:%P=1
t








S/ш
:%1 = $2+1
:mc %1-2
:%8=?
:mc %1
:%4 = ?
:%D = !
:on ?-3 / 190
:mc %1
s/щ
:%5 = $3-1
:%2 = $2
:%3 = %2-%1
:on %4-32 / / 280


:mc %1
:cm
:IN %A



:%B = "quit"
:on %A%B / 210 /


:%B = "kill"
:on %A %B 107 / 107
:%6 = %K
:%6=%6-1
b/s/%K//d
:%K = %6
t/s/.e
:%6=$3
t/d%6/u
:cp
:on -1 65




:%B = "done"
:on %A%B 115 / 115
f
:on -1 65






:mc %1
:sl %A %2
:on %3-%2 / /+4 /+4
:sf %A %3
:%9 = 0
:%2=%3
:on -1 /+2
:%9 = %3-%2

:sf %E %9
:sf %A %2
s/?щ/^щ/
:mc %1
:cm

:%B=""
:%O = "%A"
:on +%R /+15 /+15 /
:SL %A %2
:on %2 / /+28 /
:%2 = %2-1
:SG %A %0
:on %0-47 /+2 / /+2
:SP %B 92
:%3 = %3-1
:SP %B %0
:ON %2 /-7 / /-7

:SL %B %2
:%2 = %2-1
:sg %B %0
:sp %A %0
:on %2 /-4 / /-4
:%B = "done"

e/s//%A</b1/
:%0 = ?
:on %0-13 / /+4 /
:on %0-65 / /+2 /+2
:mc $2+1
:on -1 /-5
:%0 = 1
b0/d1/t/f%5
:mc %1


:on %4-229 / /+6 /
:on %0-1 / /+3 /
:%O = "%E%O"
:%A = "%E%A"
:on -1 /+2
:%A = "%A%E"

:on %8-192 /+4 / /+4
e/s//%A/
:%8=0
t/f%5
:mc %1

:pr "%O"
d/s/?/%A?/
:mc %1
:on -1 65












e/s//</
t/s/.e
:%1 = $3+1
t
w%1
:on %A%B / /+8 /
d%1
:on -1 45











:pr "#1/#3/#3/#3/HANG ON WHILE PROCESSING"
wd
:%1=%P
:on %1 /+6 /+6 /
:pr "#0/#13/   Processing data file..."
e/b/f1/ro/$A.DAT/
:on $0 /+1 /+1 /
ri
wo/$A.DAT/
w/wd/d1000
:pr "#0/#13/   Processing template file..."
e/u/
s//%K</fy
:%1 = $3-1
s/.e
b0/d5000
t/f%1/b1
wo/$A.TEM/
W/wd
t/d5000

:pr "#13/   Processing print file..."

ro/$A.PRN/
wo/$A.PRN/
:%6 = $E
:on %6 / / /+2
gd
:on -1 /+15


r1
t/s/ш/%Q/
:%1=?
:on %1-20 /+2 / /
:on %1-127 /-4 / /
s/?/ /
:on ?-3 / / /-6
t/sa/щ/%Q/
t/sa/ю/%Q/
t/sa/\©/%Q/
t/w1/d1
:ON $0 / / /-12
wd
h0/t
:%1 = $F
:on %1 / 900 /


ro/boiler.wpm/
r
:%0=5673
:%A=$A
:%B=".PRN"
:%B="%A%B"
:%C=$G
:%D=%B
al






:%B="KILL"
:on %A%B / 114 /
:%B="done"
:on %A%B 115 107 115



:on %8-191 / 470 /
:pr "#0/#6/type яуит to quit  килл to delete доне to complete"
:cm




:on %4-230 /+20 / /+20
:mc %1
:cm
:in %A
s/*%A
:sl %A %0
:on %0 / /+1 /
:on ?-3 /+3 / /+3
:%7 = 1
t/f%5
:on -1 274
b1
:on ?-13 /-2 / /-2
f1
:%6 = $3
:%7 = 0
:%H=%6
t/f%5
:on -1 274



:on %4-49  /+14 / /
:on %4-57  / / /+13
:on %7 / / 81
:%M = %4
:%4 = %D
t/f%6-1
f%4
:%A = !<
t/f%5
:%4 = %M
:on -1 274




:on %4-248 /+10 / /+10
:mc %1
:cm
:in %A
:on %A%B / 107 /
:%7 = %A
:on -1 274




:on %4-249 /+14 / /+14
:mc %1
:cm
:in %A
:%a = %A
:on %7   / /+3
:fa %b%a %b=%b+%a
:%7 = %7-1
:on -1 /-4
:on -1 274





:on %4-240 /+9 / /+9
:%A = "%b"
:fa %c%b %c = %c+%b
:%b = 0
:on -1 274





:on %4-225 /+9 / /+9
:mc %1
:cm
:in %a
:fa %c%a %c=%c+%a
:%A = "%a"
:on -1 274



:on %4-244 /+9 / /+9
:%A = "%c"
:on -1 274







:on %4-227 /+14 / /+14

:%6=%L
:%6 = %6+1
:%L= %6
:%A = %6
t/f%5
:on -1 274







:on %4-239 /+16 / /+16
:pr "#0/#6/Hit ретурн for next number, enter new number, or type яуит"
:mc %1
:cm
:in %A
:on %A%J / 210 /
:sl %A %6
:on %6 / / 274
f/f/f2
:%6=%K
:%6=%6+1
:%K=%6
:%A = %6
t/f%5
:on -1 274


:on %4-245 /+25 / /+25
:%7= $C
:on %7   / /+3
:fa %d%c %d = %d+%c
:%7 = %7-1
:on -1 /-4

e/s//%d</
b1/s/,//
:on ?-3 /+1 / /+1
b1
b0/s/.
:on $2-2 / / /+1
b0/s//0/b0/s/.
:mc $2-3
s//./
:mc $2+2
s//</d1/b1
:%a = !
b0/d1/t/f%5
:%A = "%a"
:fa %c%a %c=%c+%a
:on -1 274



:on %4-229 /+4 / /+4
:on -1 81



:on %4-228 /+12 / /+12
:pr "#0/#6/Hit RETURN or enter new date"
:mc %1
:cm
:in %A
:sl %A %2
:on %2 / / /+1
:%A = "%C"
:on -1 274




:on %4-232 42 / 42
b0/s/ш
:cm
d1
:pr "#6/"
:cp
:pr "#0/#6/#3/#6/   ╙╙╙ Enter text and type цОНТРОЛ а when completed ╙╙╙"
:pr "#13/#6/#13/#6/
:ee 190



:%6 = %H
t/f%6-1
:%A=!<
:se %A
:pr "#0/#6/%A#13/#6/"
:in "hit key to continue"
:pr "#0/#3/#6/"
t/f%5
:mc %1
:%8=0
:on -1 284

:pr "#0/#13/            Press еСЦАПЕ to recover text,#7/ "
:in "#13/            рЕТУРН to clear memory and close write file. "
h0/t/d1000/wd
:ec
:pr "#1/#13/The data file is too long for memory"
h0/t/d1000/rd/wd
:ee


####$
b1/d1/t/f1
:on ?-64 / /+6 /
s/@
d1000
:cp
:pr "#0/#13/You have to have a clear memory to run the forms#13/"
:pr "handler.  Clear it and start over."
:ee 11
t/d2

:%1 = $0+$1
:on %1 /+5 /+5 /
:pr "#0/#1/#13/You must start the forms handler with closed read#13/"
:pr "and closed write files. #13/#13/"
:pr "CLOSE FILES and hit CONTINUE KEY to go on"
:ee 18

:%A=$A
:sl %A %1
:sg %A %2
:on %2-46 /+4 / /+4
:pr "#1/#13/#13/Error.  Extension specified in template file name."
:in "#13/#13/Press any key to return to command mode."
d1000
:ec
:%1=%1-1
:on %1 / / /-8

:on $F / /+7 /
ro/$G
:on $0 /+4 / /+4
:pr "#1/#13/#13/Error.  Boiler Master File $G not found."
:in "#13/#13/Press any key to return to command mode."
d1000
:ec
rd

:in "#1/Do you want to Save the configured Form Handler (Y/N)" %A
:%B = "y"
:on %A%B /+2 / /+2
wo/$A.WPM/
w/wd
:pr "#1/"
AL