                     /temporary^2 storage

ldl,	0	/s1, s2_. preceding char. numeric? 1/yes, 0/no.
ucd,	0	/s1_. number of num. fields read
num,	0	/s1, rin_. value of num. field
n1,	0	/s1_. first number
n2,	0	/s1_. last number of 1 or 2
psi,	0	/s1_. character count
chi,	0	/s1_. non-numeric char. count
fc,	0	/s1, s2_. fraction status
fu,	0	/s1, s2_. fraction used
g,	0	/s1_. count of g's
r,	0	/s1_. count of r's
cm,	0	/s1_. count of commas
rt,	0	/s1_. right indicator_. 0/num, 1/g, 2/cm.
lt,	0	/s1_. left indicator_. 0/num, 1/r, 2/cm.
tim,	0	/s1_. running time
trm,	0	/s1_. terminator
ao,	0	/ps_. arguments outstanding
bc,	0	/te_. bar count
bc1,	0	/number of first measure
bc2,	0	/?????????
tbc,	0	/sbc_. bar count within tape
tc,	0	/s1_. terminator count within measure
chr,	0	/s1, s2, pc, ri_. character read
dig,	0	/s1_. digit read
ss,	0	/s2_. running status of sle indicator
sv,	0	/s2_. value of ss for particular note
sr,	0	/s2_. staff reloc. count
st,	0	/s2_. staff location (0=subbass)
3i,	0	/s2_. triplet ind._. 0/no, 100000/yes.
aci,	0	/s2_. accid. ind._. 0/none, 1/sharp or flat, -1/natural.
		/key_. spacing
acc,	0	/s2, key_. accid. count
et,	0	/s2_. embell. temp.
ete,	0	/s2_. embell. terminal
nf,	0	/cn_. note forming
ton,	0	/s2, key_. tone pointer to staff (mt)_, note changing
tne,	0	/s2, key_. tone pointer to table_, letter changing
tnd,	0	/s2_. tne-1 for embell.
tnf,	0	/s2_. tne+1 for embell.
nl,	0	/s2_. note location in not
nft,	0	/s2_. note formed, time part
nfp,	0	/s2_. nft preserved from robbery
ex,	0	/s2_. time for sustained note
cut,	0	/s2_. time not available to trill loop
mm,	0	/s2_. unitsx3 used in measure to date
tu,	0	/s2_. unitsx3 used by current note
1u,	0	/ps_. 1xunits
3u,	0	/ps_. 3xunits
mbh,	0	/rch_. pointer to beginning of measure in .f
lmb,	0	/te_. last measure starting index in not
tht,	0	/pc_. index of pseudo under investigation
zet,	0	/pc_. character position in pseudos
ucl,	0	/pc_. switch internal to pc
bgm,	0	/pc_. another switch
rn,	0	/rnd_. random number
psw,	0	/ps_. switch for return with argument
                
                                
sid,	0	/s2_. si delayed
ccc,	0	/s2_. triplet status of last non-comma note
nls,	0	/s2_. nl saved
rob,	0	/s2_. time desired by grace notes
gi,	0	/s2_. grace note indicator
gis,	0	/s2_. gi saved
tll,	0	/pvd, pve_. transposition semitone count
pfu,	0	/pf, key_. identity check for title_, switch_. sh. or fl.
si,	0	/s2_. 0/no sle in note_, 1/sle
cbh,	0	/pvc_. copy begins here
irl,	0	/pvb_. is rest location?
np,	0	/pf_. no. of parts
rii,	0	/ri_. index on read
rij,	0	/ri_. index on write or compare
riw,	0	/ri_. switch for compare or write
bgs,	0	/rch_. "end" counter
fi,	0	/rch_. .f index
ft,	0	/rch_. .f top
pp,	0	/rch_. saves character
ch,	0	/rch_. character from tape
fl1,	0	/rch_. location in .f of last terminator
fl2,	0	/rch_. loc. in .f of last termin. before new word
chy,	0	/er_. charac. from .f to be printed
arg,	0	/er_. flexo name of error
uin,	0	/er_. internal switch
etc,	0	/er_. internal terminator count
blc,	0	/er_. bell count
mjp,	0	/er_. last measure having error
tjp,	0	/er_. termin. count in meas. for last error
emp,	0	/er_. internal index on .f
rb,	0	/red, blk_. +1 black, -1 red.
t1,	0
t2,	0
t3,	0
t4,	0

constants

mt=.	kt=mt+44	nt=kt+44

nt/	2	4	6	 7	11	13
	15	16	20	22	23	25
	27	31	32	34	36	37
	41	43	45	46	50	52
	53	55	57	61	62	64
	66	67	71	73	75	76


	bar=7750
f=0	fb=.	foo=105	fw=fb+400	fl=fw+200
not=fl+1	all=bar-not-1	npi=pn1-pnm	11a=not
11b=bar	11c=u



start u
                
                                                                                                           

