4 "A" ,,,, ();"0"/( () "E" () "H"  2 <     dFF s("birthday.rnd") ""   "R",,"birthday.rnd",P ,  r.,  r.ad,  r.ad,  r.ad,  r.ad,  r.p,  r.c,  r.m,  r.d,  r.c,  r.m,  r.d,  r.c, r.m,  r.d,  r.c,  r.m,  r.d Z , r d  nes ()jxre es "p"  nr es "q"  ho es "H"  cl es "E" ho0o es "e"  o es "f"Q a(,,) es "Y" ( ) () A  " BIRTHDAY SEARCH "   ; " SYSTEM END or RUN "   "SsEeRr"  \& a ,,,,,  Mc() " BIRTHDAY MENU "  c() " BIRTHDAY " Lc() " BASIC " c() " SYSTEM " Kl   o   x   y     set up menu   get option$ c ,,    O   CL   O   CL   clrc() " MAIN MENU "  c() " START AGAIN "  c() " DATE SEARCH " M"c() " NAME SEARCH "  c() " EDIT FILES " ',c() " LIST "K6l   o   x   y     set up menu@   get option+J c ,,f ,T,   T clL^c() " EDIT MENU "  c() " RETURN TO MAIN MENU "Mhc() " CREATE "  c() " AMEND " Lrc() " LIST "  c() " PRINT "K|l   o   x   y     set up menu  + c ,,*,,  T   DRAW MENU> a(x,y,re()(l,()));  ()H a(x,y,re () (l,( )) ())J a(x,y,re () (l,()) ())%  y yoG a(x,,re () (l,( )) ())  P a(x,yo,re () (l,()) ())  o1 a(x,y,rec()nr)Y   o  a(x,y,reC()nr)  &c /0 a(x,yc,c(c))$:i u  i "" :#D i ( ) o  ,N (i)  (i)  :CX (i)  c v  c c   0Gb (i)  co v  c c   0 l :Ev a(x,y c,rec(c) nr)  Y ******************** BIRTHDAYS & PHONE NUMBERS ( 20.11.86 ) *********************/ () "E" () "H"  !  " BIRTHDAY SEARCH"  * "TODAYS DATE (DD/MM) ";DAT  M &(|(DAT,))D &(x(DAT,))4 "CORRECT Y/N "   "YyNn"  \ a   Q    () "SEARCHING PLEASE WAIT "      cl  ! cl  c   ,c' r. (," ")          "FILES FULL"  T)* cl   "FILE NUMBER";c*4 c  c  *  >>H ,c+R r. (," ")   \ f cl p Tz  cl   " NOT KNOWN "< "YyNn"   " ADD NEW RECORD Y/N "  \$ a  a  5   " MORE Y/N "   "YyNn"  \ a    *. " NAME ";r.;" PHONE No ";r.p " ADDRESS(1) ";r.ad " ADDRESS(2) ";r.ad " ADDRESS(3) ";r.ad " ADDRESS(4) ";r.ad " PHONE No ";r.p? " COMMENT ";r.c;" BIRTHDAY ";r.d;" ";r.m? " COMMENT ";r.c;" BIRTHDAY ";r.d;" ";r.m?$ " COMMENT ";r.c;" BIRTHDAY ";r.d;" ";r.m?. " COMMENT ";r.c;" BIRTHDAY ";r.d;" ";r.me8   "CcDdPpEeSs"  " CHANGE DELETE PRINT END OR SKIP (C/D/P/E/S) "  \ .B a ,,j,j,v,v,T,T5L   "MORE Y/N "   "YyNn"  \V a  `  * `>j "YyNn"   " DELETE Y YES OR N NO "  \t a  ~ r "" ,c" RECORD DELETED "  () "FILE ";c   #  " NAME ";! " ADDRESS(1) ";ad! " ADDRESS(2) ";ad! " ADDRESS(3) ";ad! " ADDRESS(4) ";ad  " PHONE No ";p  " COMMENT(1) ";c  " BIRTHDAY (mm) ";m  " BIRTHDAY (dd) ";d  " COMMENT(2) ";c  " BIRTHDAY (mm) ";m ( " BIRTHDAY (dd) ";d 2 " COMMENT(3) ";c < " BIRTHDAY (mm) ";m F " BIRTHDAY (dd) ";d P " COMMENT(4) ";c Z " BIRTHDAY (mm) ";m d " BIRTHDAY (dd) ";d0n "O.K. Y/N"   "YyNn"  \x a      ""    r.  ad ""  r.ad ad ad ""  r.ad ad ad ""  r.ad ad ad ""  r.ad ad p ""  r.p p c ""  r.c c m "" " r.m m" d "" 6, r.d d6 c "" J@ r.c cJ m "" ^T r.m m^ d "" rh r.d dr c "" | r.c c m ""  r.m m d ""  r.d d c ""  r.c c m ""  r.m m d ""  r.d d ,c!  " NEW/CHANGE WRITTEN "0 " MORE Y/N"   "NnYy"  \ a   T, "CREATING EMPTY FILE PLEASE WAIT"!& "R",,"birthday.rnd",0 , r: r ""D    N Xb " FILE CREATED "l,v   "RECORD FOR NUMBER ";c  9  " NAME ";r.;" ";r.ad;" PHONE ";r.p;  "NAME ";r.c;" BIRTHDAY ";r.d;" ";r.m;  "NAME ";r.c;" BIRTHDAY ";r.d;" ";r.m;  "NAME ";r.c;" BIRTHDAY ";r.d;" ";r.m;  "NAME ";r.c;" BIRTHDAY ";r.d;" ";r.m  6   " MORE Y/N "   "YyNn"  \ a   Y cl    " PRINTED LIST or SCREEN LIST P/S "   "PpSs"  \ a  p  '   "START AT NUMBER ";  " FINISH AT NUMBER ";         c  * ,c 4 r. (," ") H > R H R T\ () afa u  a ""  a u   a w(,a)  a  f  p c  z ,c  r. (," ") 4  c;" ";r.;" ";r.ad;" ";r.p*  r.c;" ";r.d;" ";r.m*  r.c;" ";r.d;" ";r.m*  r.c;" ";r.d;" ";r.m*  r.c;" ";r.d;" ";r.m       c 6   " MORE Y/N "   "NnYy"  \  a  p  c   ,c $ r. (," ")  Z. m &(r.m)  d &(r.d)  m &(r.m)  d &(r.d)Z8 m &(r.m)  d &(r.d)  m &(r.m)  d &(r.d)B m m  L d  V  ~ V m  `  j E` m  ~  m m  d d    %j m  m t  ~ /t m m  d d    ~ m m   d    6  m     E m  6  m m  d d    % m  m   6 / m m  d d      c  c    () 8 () " SEARCH ENDED PRESS ANY KEY TO CONTINUE " u ""    d d ~ & d  d (  ~ ?( m m ~  r.c;" ";r.d;" ";r.m:2   "PRINT Y/N "   "YyNn"  \  < a  ~ 3F  ( )();"W";();();"E";r.cP  ( ) "BIRTHDAY "$Z  ( ) r.d;" ";r.m5d  " ONLY ";d d;"DAYS TO GO ! ! ! "Cn d d "TOO LATE ! ! ! YOU MISSED ME ! ! !" x  ~  d d 6 & d  d   6 ? m m 6  r.c;" ";r.d;" ";r.m:   "PRINT Y/N "   "YyNn"  \   a  6 3  ( )();"W";();();"E";r.c  ( ) "BIRTHDAY "$  ( ) r.d;" ";r.m5  " ONLY ";d d;"DAYS TO GO ! ! ! "C d d "TOO LATE ! ! ! YOU MISSED ME ! ! !"  6   /  " ANY KEY TO CONTINUE or E TO END"/ a u  a ""  a u  &" a "E" a "e" T, 6 m m  @ d  J  r J m  T  ^ ET m  r  m m  d d    %^ m  m h  r 0h m m  d d    r m m & | d      m     E m    m m  d d   & % m  m    / m m  d d   &  d d r & d  d   r ? m m r  r.c;" ";r.d;" ";r.m:   "PRINT Y/N "   "YyNn"  \   a  r 3  ( )();"W";();();"E";r.c  ( ) "BIRTHDAY "$  ( ) r.d;" ";r.m5  " ONLY ";d d;"DAYS TO GO ! ! ! "C d d "TOO LATE ! ! ! YOU MISSED ME ! ! !"    r & d d  &0 d  d :   ?: m m   r.c;" ";r.d;" ";r.m:D   "PRINT Y/N "   "YyNn"  \  N a   3X  ( )();"W";();();"E";r.cb  ( ) "BIRTHDAY "$l  ( ) r.d;" ";r.m5v  " ONLY ";d d;"DAYS TO GO ! ! ! "C d d "TOO LATE ! ! ! YOU MISSED ME ! ! !"   C cl   "PRINT LABELS Y/N "   "YyNn"  \ a  T1  " LIST Y/N "   "NnYy"  \ a  p "FILE NUMBER";c ,c r. (," ") >   ()r. ()r.ad ()r.ad ()r.ad ()r.ad   /  "MORE Y/N "   "NnYy"  \* a   4 T,>  "NOTHING IN THIS FILE TRY AGAIN " H  =R  " FILE ";c;" ";r.;" ";r.ad;" ";r.p\ *f    " NAME TO FIND ";n p  z  (n)  %(x(n,)) c   ,c r. (," ") ! c %(x(r.c,))! c %(x(r.c,))! c %(x(r.c,))! c %(x(r.c,))  c 8  c L  c `  c t c     $ .l8     " FILE ";c;" ";r.c;" ";r.d;" ";r.m" PHONE "r.p   BlL     " FILE ";c;" ";r.c;" ";r.d;" ";r.m" PHONE "r.p   Vl`     " FILE ";c;" ";r.c;" ";r.d;" ";r.m" PHONE "r.p   jlt     " FILE ";c;" ";r.c;" ";r.d;" ";r.m" PHONE "r.p   ~  '  "PRESS ANY KEY TO CONTINUE "/a u  a ""  a u   cl         ,  r. (," ") P-  " "r." "r.ad" "r.p       P  8  "PRESS ANY KEY TO CONTINUE or E or e to end".(a u  a ""  a u &2 a "E" a "e" < < F P &Z  "PRESS ANY KEY TO CONTINUE"d u ""  n  x <a "e" < < F P &Z  "PRESS ANY KEY TO CONTINU