REM.. ROUTINE
REM.. BY C J Waldock
REM.. (C) The Micro User
REM.. see procHELP for information
 R$=c.13
 N$=R$+c.10
 Q$=" ==> "
 M$=N$+"To continue PRESS ANY KEY"+Q$
 procZZZ
 procLM
s.te.
 i.EOTt.procHOM
 i.SOTt.c.d.4
procLOC
.M1
  c.a.0
  di. 
  A%=get
  i.A%>64 and A%<91t.A%=A%+32
 i.A%=108t.g.LN
 i.A%=110t.g.NX
 i.A%=98t.g.BK
 i.A%=112t.g.PR
 i.A%=115t.g.SCH
 i.A%=114t.g.PEP
 i.A%=102t.g.FIN
 i.A%=116t.procLOC 
 i.A%=117t.g.UP
 i.A%=100t.g.DEL
 i.A%=99t.g.COP
 i.A%=97t.g.ADD
 i.A%=105t.g.INS
 i.A%=101t.g.END
 i.A%=104t.g.HELP
g.M1
.ZZZ
  s.te.
  c.t.
  f.">END"
  fk.3
  c.b.
  fk.3
  fk.7
  type">END"+R$+R$
  ty."zzz"
  d.
   ty.R$
 t.7
e.
.LN
 c.d.
 c.a.0
g.M1
.UP
 c.a.0
 c.u.
g.M1
.LOC
  c.r.
  f.">"
  c.u.9
e.
.INS
   cls
   v.10,10,10 
   p."Type replacement for line ";     p."- ""Q"" to abort"
   p.N$+Q$;
   G$=glk$
   i.G$="Q" or G$="q"t.g.M1
   c.a.0
   fk.3
   c.a.39
   fk.3
   fk.7
   ty.G$
   c.r.
g.M1
.NX
 i.SOTt.c.d.4
 i.EOT=0t.c.d.9
g.M1
.BK
 c.u.9
 i.SOTt.c.d.4
g.M1
.HOM
 s.te.
 c.t.  
 c.a.0
 c.d.4
e.
.HELP
 cls
 v.10
p."       MOVING through DATA"
p."       -------------------"
p."Press""L"" to move down a LINE"
p."Press""T"" to go to TOP of record"
p."Press""U"" to go UP a line"
p."Press""N"" to move to NEXT record"
p."Press""B"" to move BACK"
p."Press""S"" to SEARCH for word(s)"
p."Press""R"" to REPEAT search"
p."Press""F"" to FIND PLACE for new record"
p."       PRINTING A RECORD"
p."       -----------------"
p."Press""P"" to PRINT a name and address"
p."       MANIPULATING DATA"
p."       -----------------"
p."Press""C"" to COPY record"
p."Press""D"" to DELETE record"
p."Press""A"" to ADD record"
p."Press""I"" to INSERT line change"
p."       LEAVING ROUTINE"
p."       ---------------"
p."Press""E"" TO END operation"
 p.M$
 G%=get
g.M1
.FIN
 cls
 v.10,10,10
 p."Enter SURNAME to insert"
 pr. "(Only initial letter as Capital)"
 p.Q$;
 S$=glk$
  procHOM 
  c.d.2
  r.  
    i.S$<=glt$t.g.F1
   c.d.8
  u.fa. 
 .F1
  c.u.3
  X%=1
g.M1
.COP
 procLOC
  fk.3
  c.d.9
  c.a.0
  fk.3
  fk.9
  de.markers
  c.a.0
g.M1
.SCH
 procHOM
 cls
 v.10,10,10
 p."ENTER character(s) to find"
 p."(CARE with capitals)"
 p.
 p.Q$;
 S$=glk$
 f.S$
  i.EOTt.g.NOTFD
g.M1 
.REP
 c.d.9
 f.S$
  i.EOTt.g.NOTFD
g.M1
.NOTFD
 cls
 v.10,10,10,7
 pr. "I couldn't find the text sought"
 p.M$
 G%=get
 procHOM
g.M1
.PR
 procLOC
 c.d.3
  v.2
   p.L$+glt$+" ";
   c.u.2
   p.glt$
   c.d.
   d.
    G$=glt$
     i.G$<>""t.p.L$+G$
  t.3
   p.
   p.
  v.3
  c.d.2
g.M1
.LM
 L$=""
 cls
 v.10,10,10 
 p."Enter LEFT MARGIN width"
 p."Press E and SHIFT-f9 to reset"
 p.
 p.Q$;
 O$=glk$
  i.VALO$=0t.e.
 d.
  L$=L$+" "
t.valO$
  oscli"FX6"
e.
.ADD
 cls
 p.N$+N$+"Code(s)"+Q$;
  A$=">"+glk$+R$
 p.N$+"Date of Birth"
 pr. "(If a JUNIOR use form YR.MO.DA)"
 p."(If an ADULT enter 99)"
 p.Q$;
  B$=glk$+R$
 p.N$+"Surname"+Q$;
  i.X%=1t.C$=S$+R$
  i.X%=1t.p.C$
  i.X%=0t.C$=glk$+R$
 p.N$+"Title and forename"+Q$;
  D$=glk$+R$
 p.N$+"Address Line 1"+Q$;
  E$=glk$+R$
 p.N$+"Address Line 2"+Q$;
  G$=glk$+R$
 p.N$+"TOWN"+Q$;
  H$=glk$+R$
 p.N$+"Phone, Notes"+Q$;
  J$=glk$+R$
 procLOC
 ty.A$+B$+C$+D$+E$+G$+H$+J$+R$
  X%=0
g.M1
.DEL
 cls
 v.10,10,10,7
 p."DELETES RECORD - ARE YOU SURE";
 p." Y/N?"
 p.
 p.Q$;
 Z$=gck$
  i.Z$="y"t.Z$="Y"
  i.Z$<>"Y"t.g.M1
 procLOC
  c.u.
  fk.3
  c.d.9
  fk.3
  fk.7
  c.d.
g.M1
.END 
 v.7
 di.
