6 FMSFLBFLI20016-JUN-1990 09:27:2923-NOV-1990 12:15:20  " CD$INDEX$FIND < CD$INDEX$MENU CD$INDEXUCD_ENTRY( CD_ENTRY2+2CD_PRINT, CD_REPORTS/lCD_SEL4 CD_SYSMGR<MORE$SCROLL$KEYS$INDEXK CD_ENTRY_OLD FRM16-JUN-1990 09:27:29 6 FMSFLBFED20016-JUN-1990 08:05:1016-JUN-1990 08:05:10  B H * 20 /PO CD$INDEX$FIND  7 @COMPOSER  7 @TITLE  @ SERIAL_NO   @TTIME   @LOGGED  2 @ ORCHESTRA  2 @ CONDUCTOR   ALIB_TYPE    ALPHA_LETTER   LIB_NO   @LABEL   @FORMAT $  RATING_PERFORMANCE    RATING_SOUND  7nx       $  .9   0  .TYPE ARG /OVERLAY : .TYPE,/PRE='GET OA$DISPLAY=OA$_WPISEA_SRCH_FIELDS' & .TYPE/HARD="Form Title Here" , .TYPE/POST='DO CD_POST_INDEX_FIND' L COMPOSER;/RSE_RECOG=CD_entry.COMPOSER WITH (.COMPOSER = COMPOSER AND $ COMPOSER .TITLE = TITLE AND * COMPOSER .SERIAL_NO = SERIAL_NO); Z COMPOSERI.IF OA$SEL_KEY NES "" THEN GET COMPOSER = CD_ENTRY.COMPOSER[OA$SEL_KEY]\\ : COMPOSER(GET TITLE = CD_ENTRY.TITLE[OA$SEL_KEY]\\ @ COMPOSER.GET SERIAL_NO = CD_ENTRY.SERIAL_NO[OA$SEL_KEY] N COMPOSER=/SHOW='.COMPOSER:25 " " .TITLE:32 " " .LABEL:10 " " .TTIME:8' ( COMPOSER/PUT_SAVE=#CD_COMPOSER " COMPOSER/HARD="COMPOSER" F! TITLE8/RSE_RECOG=CD_entry.TITLE WITH (.COMPOSER = COMPOSER AND !"" TITLE .TITLE = TITLE AND "&# TITLE .SERIAL_NO = SERIAL_NO) #X$ TITLEI.IF OA$SEL_KEY NES "" THEN GET COMPOSER = CD_ENTRY.COMPOSER[OA$SEL_KEY]\\ $6% TITLE(GET TITLE = CD_ENTRY.TITLE[OA$SEL_KEY]\\ %<& TITLE.GET SERIAL_NO = CD_ENTRY.SERIAL_NO[OA$SEL_KEY] &L' TITLE=/SHOW='.COMPOSER:25 " " .TITLE:32 " " .LABEL:10 " " .TTIME:8' '"( TITLE/PUT_SAVE=#CD_TITLE () TITLE /HARD="TITLE" )N*  SERIAL_NO +FORMAT/PUT_SAVE=#CD_FORMAT >$? ,LIB_NO/PUT_SAVE=#CD_LIB_NO ?"@ -LABEL/PUT_SAVE=#CD_LABEL @<A .RATING_PERFORMANCE /PUT_SAVE=#CD_RATING_PERFORMANCE A0B / RATING_SOUND/PUT_SAVE=#CD_RATING_SOUND BT Oqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq C Composer/Artist: D Title : E Serial No : F Total Time : G Date Logged : H (use YYMMDD format) I Orchestra : J Conductor : K Library Index : L Label : M Format : N Rating: Performance O 1/ Sound P FRM16-JUN-1990 09:27:29 6 FMSFLBFLG20025-JUN-1989 15:37:1825-JUN-1989 15:37:18   22: * 20@PP CD$INDEX$MENU  @ CHOICE      0 > .TYPE0ARG /OVERLAY/POST="GET OA$MENU_REMAINDER=CHOICE" 0 CHOICE!/HARD=OA$_NI_HRD_INDEX_MENU_OPTNS N Glqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk  x  ! Index Menu  Kx   x   Kx   x   ALL   Select all   Kx   x   CAS   Cancel all   Kx   x   Kx   x   C  Create   Kx  x   E  Edit  'XE  , Multiple edit ! Kx " x #  D $ Delete % 'XD & ,Multiple delete ' Kx ( x )  P * Print + (XP , ,Multiple print - Kx . x /  R 0 Read 1 'XR 2 , Multiple read 3 Kx 4 x 5 Kx 6 x 7 Kx 8 x 9 Kx : x ;$  Enter option and press RETURN < Kx = x > Kx ?N Gmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj @ FRM16-JUN-1990 09:27:29 6 FMSFLBFLG20016-JUN-1990 08:07:0216-JUN-1990 08:07:02   & 20nz PPCD$INDEX    SELECTIONS   UNREAD   POINTER   SELECTED   LINE   COMPOSER  & TITLE   LIB_TYPE    ALPHA_LETTER   LIB_NO   FORMAT   TTIME  N CHOICE  L     @ < A =B >F AJ D   0   TK ( .TYPEINDEX/CHOICE=CHOICE/CLEAR 0 .TYPE!/PRE_FUNCTION='OA$SCL_INIT ,,,*CD * .TYPE\IFNOTSTATUS\XOP "~~FIND~~"' $ .MOREMORE$SCROLL$KEYS$INDEX . .GOLD MFORM CD$INDEX$MENU\CLOSE_PRIOR  LINE /VIEW=,,,*CD  LINE /ALIAS=%LINE  POINTER/POINTER  SELECTED /SELECTED $ ~~FIND~~FORM CD$INDEX$FIND\  ~~FIND~~IFEXIT\  ~~FIND~~ CLOSE_PRIOR\  ~~FIND~~ OA$SCL_EXIT\  ! ~~FIND~~BIND_BREAK *CD\ !"" ~~FIND~~XOP "~~BINDW~~"\ ""# ~~FIND~~OA$SCL_INIT,,,*CD #($  ~~BINDW~~BINDW *CD TO CD_ENTRY $0%  ~~BINDW~~ WITH .COMPOSER = #CD_COMPOSER %*&  ~~BINDW~~ AND .TITLE = #CD_TITLE &2'  ~~BINDW~~ AND .SERIAL_NO = #CD_SERIAL_NO '2(  ~~BINDW~~ AND .CONDUCTOR = #CD_CONDUCTOR (2)  ~~BINDW~~ AND .ORCHESTRA = #CD_ORCHESTRA )4*  ~~BINDW~~! AND .LOGGED_NBS = #CD_LOGGED_NBS **+  ~~BINDW~~ AND .LABEL = #CD_LABEL +0,  ~~BINDW~~ AND .LIB_TYPE = #CD_LIB_TYPE ,8-  ~~BINDW~~% AND .ALPHA_LETTER = #CD_ALPHA_LETTER -,.  ~~BINDW~~ AND .LIB_NO = #CD_LIB_NO .,/  ~~BINDW~~ AND .FORMAT = #CD_FORMAT /*0  ~~BINDW~~ AND .TTIME = #CD_TTIME 0D1  ~~BINDW~~1 AND .RATING_PERFORMANCE = #CD_RATING_PERFORMANCE 182  ~~BINDW~~% AND .RATING_SOUND = #CD_RATING_SOUND 2P3 CHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT' 3$4 ! OA$_MO_INDEXXOP "~~FIND~~" 4D5 ".GOLD F4GET $CD_COMPOSER = CD_ENTRY.COMPOSER[OA$SCROLL_KEY]\ 5>6 #.GOLD F.GET $CD_TITLE = CD_ENTRY.TITLE[OA$SCROLL_KEY]\ 6D7 $.GOLD F4GET $CD_SERIAL_NO=CD_ENTRY.SERIAL_NO[OA$SCROLL_KEY]\ 7L8 %.GOLD F + OA$_MO_CREATEOA$SCL_REFRESH ><? , OA$_MO_EDIT(GET #CD_KEY=*CD.%KEY[OA$SCROLL_ADDRESS]\ ?B@ - OA$_MO_EDIT.GET #CD_TEMP_COMPOSER = *CD.COMPOSER[#CD_KEY]\ @<A . OA$_MO_EDIT(GET #CD_TEMP_TITLE = *CD.TITLE[#CD_KEY]\ ADB / OA$_MO_EDIT/GET #CD_TEMP_SERIAL_NO= *CD.SERIAL_NO[#CD_KEY]\ B.C 0 OA$_MO_EDITFORM CD_ENTRY/MODE=CHANGE CPD 1 OA$_MO_EDITI 6 OA$_MO_DELETE(GET #CD_KEY=*CD.%KEY[OA$SCROLL_ADDRESS]\ IDJ 7 OA$_MO_DELETE.GET #CD_TEMP_COMPOSER = *CD.COMPOSER[#CD_KEY]\ J>K 8 OA$_MO_DELETE(GET #CD_TEMP_TITLE = *CD.TITLE[#CD_KEY]\ KFL 9 OA$_MO_DELETE/GET #CD_TEMP_SERIAL_NO= *CD.SERIAL_NO[#CD_KEY]\ L0M : OA$_MO_DELETEFORM CD_ENTRY/MODE=DELETE MRN ; OA$_MO_DELETE OA$_MO_DELETEOA$SCL_REFRESH Q6R ? OA$_MO_PRINT MERGE SELECTIONLIST1,CDLIST.SEL\ R$S @ OA$_MO_PRINTFORM CD_PRINT\ S*T A OA$_MO_PRINTPURGE_FILE CDLIST.SEL T<U BOA$_MO_X_PRINT$XOP "~~CHECK_SELECTIONS~~"\IFSTATUS\ U6V COA$_MO_X_PRINTMERGE SELECTIONLIST,CDLIST.SEL\ V&W DOA$_MO_X_PRINTFORM CD_PRINT\ W,X EOA$_MO_X_PRINTPURGE_FILE CDLIST.SEL X<Y F OA$_MO_READ(GET #CD_KEY=*CD.%KEY[OA$SCROLL_ADDRESS]\ YBZ G OA$_MO_READ.GET #CD_TEMP_COMPOSER = *CD.COMPOSER[#CD_KEY]\ Z<[ H OA$_MO_READ(GET #CD_TEMP_TITLE = *CD.TITLE[#CD_KEY]\ [D\ I OA$_MO_READ/GET #CD_TEMP_SERIAL_NO= *CD.SERIAL_NO[#CD_KEY]\ \.] J OA$_MO_READFORM CD_ENTRY/MODE=INQUIRE ]P^ K OA$_MO_READo \OA$_MO_X_DELETE%XOP "~~CHECK_SELECTIONS~~"\IFSTATUS\ o&p ]OA$_MO_X_DELETE YESNO_PROMPT\ p$q ^OA$_MO_X_DELETE OA$FLD_STAY\ q$r _OA$_MO_X_DELETE GET #RFA=''\ r4s `OA$_MO_X_DELETE.IF OA$PROMPT_TEXT = OA$Y st aOA$_MO_X_DELETE THEN t4u bOA$_MO_X_DELETE XOP "~~DELETE_LOOP~~"\ u&v cOA$_MO_X_DELETEOA$SCL_REFRESH vw d~~DELETE_LOOP~~.FX w4x e~~DELETE_LOOP~~ NEXT_SELECTED "*CD",#RFA\\ x$y f~~DELETE_LOOP~~ IFSTATUS\\ y6z g~~DELETE_LOOP~~ GET #CD_KEY=*CD.%KEY[#RFA]\\ z6{ h~~DELETE_LOOP~~ WRITE DELETE *CD %KEY=#RFA\\ {&| i~~DELETE_LOOP~~ GET #RFA=''\\ | } j~~DELETE_LOOP~~ REPEAT }:~ k OA$_MO_X_EDIT$XOP "~~CHECK_SELECTIONS~~"\IFSTATUS\ ~" l OA$_MO_X_EDIT GET #RFA=''\ * m OA$_MO_X_EDITXOP "~~EDIT_LOOP~~"\ $ n OA$_MO_X_EDITOA$SCL_REFRESH  o ~~EDIT_LOOP~~.FX 0 p ~~EDIT_LOOP~~ NEXT_SELECTED *CD,#RFA\\ " q ~~EDIT_LOOP~~ IFSTATUS\\ 6 r ~~EDIT_LOOP~~ GET #CD_KEY = *CD.%KEY[#RFA]\\ F s ~~EDIT_LOOP~~0 GET #CD_TEMP_COMPOSER = *CD.COMPOSER[#CD_KEY]\\ @ t ~~EDIT_LOOP~~* GET #CD_TEMP_TITLE = *CD.TITLE[#CD_KEY]\\ H u ~~EDIT_LOOP~~1 GET #CD_TEMP_SERIAL_NO= *CD.SERIAL_NO[#CD_KEY]\\ 0 v ~~EDIT_LOOP~~ FORM CD_ENTRY/MODE=CHANGE T w ~~EDIT_LOOP~~=/SAVE="#CD_TEMP_COMPOSER,#CD_TEMP_TITLE,#CD_TEMP_SERIAL_NO"\\ $ x ~~EDIT_LOOP~~ CLOSE_PRIOR\\ 2 y ~~EDIT_LOOP~~ OA$SCL_UPDATE #RFA, #RFA\\  z ~~EDIT_LOOP~~ REPEAT  Compact Disc Index   (Selections: @ 9) (New messages:  O) V Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq P JNo. Composer/Artist Title Index Fmt Time V Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq V Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq D >Move to item and enter option (press GOLD MENU to see options)  FRM16-JUN-1990 09:27:30 6 FMSFLBFLG20016-JUN-1990 07:52:4716-JUN-1990 07:52:47  H  & 203PPCD_ENTRY  7 @COMPOSER  7 @TITLE  @ SERIAL_NO   @TTIME   @LOGGED    LOGGED_NBS  2 @ ORCHESTRA  2 @ CONDUCTOR   ALIB_TYPE    ALPHA_LETTER  00LIB_NO   @LABEL $  RATING_PERFORMANCE    RATING_SOUND   @FORMAT    NUMBER_TRACKS & 7nx - =         $  B  E      2 .TYPE$ENTRY /MODE=UPDATE/HARD='Entry Form' , .TYPE/KEY=COMPOSER,TITLE,SERIAL_NO N .TYPE?/POST='IFEXIT\GET $CD_COMPOSER = COMPOSER\GET $CD_TITLE = TITLE , .TYPE\GET $CD_SERIAL_NO = SERIAL_NO D .TYPE6\DATE_CONVERT #NBS,LOGGED,7\GET LOGGED_NBS = #NBS:6:2'  .FILE CD.DAT,CD.FDL   .FORM_SET CD_ENTRY2 N COMPOSER )LIB_TYPE/B -- Blues,H -- Heavy Metal,M -- Miscellaneous" >B? *LIB_TYPE1/POST='.IF OA$MENU_CHOICE EQS OA$_MO_CREATE THEN ?@@ +LIB_TYPE/ GET ALPHA_LETTER = COMPOSER\\DO CD_TYPE_COUNT' @fA ,~~LIB_TYPE_REMARK~~J.REMARK The alpha-letter field is only 1 character, so loading the "whole" AZB -~~LIB_TYPE_REMARK~~=field with composer's value is just loading the first letter. B,C .FORMAT/RECOG=OA$TABLE:"DDD,ADD,AAD" CHD / .DATE & TIME3GET OA$FUNCTION = "GET " OA$FIELD_NAME " = OA$DATE" DHE 0.COMMA8GET OA$FUNCTION = 'GET ' OA$FIELD_NAME '= #FIELD_BUFFER' EFF 1.HYPHEN6GET OA$FUNCTION = 'GET #FIELD_BUFFER = ' OA$FIELD_NAME F@G 2.HYPHEN/\GET OA$FUNCTION = 'GET ' OA$FIELD_NAME ' = ""' GLH 3 .GOLD HYPHEN6GET OA$FUNCTION = 'GET #FIELD_BUFFER = ' OA$FIELD_NAME H" CD Library Tracking Database I @ Page 1 of 2 J Composer/Artist: K Title : L Serial No : M Total Time : N  Date Logged: O 7(NBS) P Orchestra : Q Conductor : R Library Index : S Label : T :Rating: U D/ V Format : W Number Tracks : X@  :Press Next Screen (or Gold TAB) for page 2 - (Track info) Y FRM16-JUN-1990 09:27:31 6 FMSFLBFLG20025-JUN-1989 15:37:3125-JUN-1989 15:37:31    & 20PP CD_ENTRY2  K TRACKS1  K TRACKS2  K TRACKS3  K TRACKS4  K TRACKS5  K TRACKS6  K TRACKS7  K TRACKS8  K TRACKS9  K TRACKS10  K TRACKS11  K TRACKS12  K TRACKS13  K TRACKS14  K TRACKS15  K TRACKS16  K TRACKS17  K TRACKS18  K TRACKS19  K TRACKS20 n K , w     X     9eF    4 #-CD Tracking Page 2 of 2  Tracks:  FRM16-JUN-1990 09:27:31 6 FMSFLBFLG20025-JUN-1989 15:37:3425-JUN-1989 15:37:34   & 20F PP CD_PRINT . F CHOICEPress GOLD H for Help       L .TYPE>MENU /CHOICE=CHOICE/CLEAR/OVERLAY/HARD='CD PRINT OPTIONS'/ONCE &  OA$_MO_BRIEFDO CD_PRINT_BRIEF 0 OA$_MO_FULL_DESCRIPTIONDO CD_PRINT_FULL  CHOICE /HARD='B,F'  !Print Options   B  Brief description   F  Full description $  Enter option and press RETURN  FRM16-JUN-1990 09:27:32 6 FMSFLBFLG20025-JUN-1989 15:37:3725-JUN-1989 15:37:37  rr ( 20FPP CD_REPORTS . F CHOICEPress GOLD H for Help      0 0 .TYPE"MENU /OVERLAY /CHOICE=CHOICE/CLEAR $ .TYPE/HARD="Your Menu Name" 4 CHOICE$/HARD="Options: (your menu options)"  AAA DO XXX_RPT  BBB DO XXX_RPT   " CD Reports   8lqqqqqqqqqqqqqqqqqqqk   8x  @Note:   Lx   AAA  xxxxxxxxx Report   8x  :These options can   Lx   BBB  xxxxxxxxx Report   8x  :take   ?minutes  Gto   Lx   CCC  xxxxxxxxx Report   8x  :complete. Your   Lx !  DDD " xxxxxxxxx Report # 8x $ :terminal will be % Lx &  EEE ' xxxxxxxxx Report ( 8x ) :unusable during * Lx + 8x , : that TTIME. - Lx . 8mqqqqqqqqqqqqqqqqqqqj /&  Enter selection and press RETURN 0 FRM16-JUN-1990 09:27:32 6 FMSFLBFLG20025-JUN-1989 15:37:4025-JUN-1989 15:37:40  $ jj" $ 20x PPCD_SEL  7 @COMPOSER  7 @TITLE  @ SERIAL_NO < 7n    , .TYPEARG /OVERLAY/HARD=' Select CD' R .TYPED/PRE='DISPLAY Enter CD info and press RETURN or use GOLD-L for list' P .TYPEB/POST='GET $CD_KEY = $CD_COMPOSER:55 $CD_TITLE:55 $CD_SERIAL_NO:10 6 .TYPE'\GET $CD_TTIME=CD_entry.TTIME[$CD_KEY]' D COMPOSER3/RSE_RECOG=CD_entry WITH (.COMPOSER = COMPOSER AND & COMPOSER .TITLE = TITLE AND * COMPOSER .SERIAL_NO = SERIAL_NO) < COMPOSER+;GET COMPOSER=CD_entry.COMPOSER[OA$SEL_KEY] 6 COMPOSER%\GET TITLE=CD_entry.TITLE[OA$SEL_KEY] > COMPOSER-\GET SERIAL_NO=CD_entry.SERIAL_NO[OA$SEL_KEY] N COMPOSER=/SHOW='.COMPOSER:25 " " .TITLE:32 " " .LABEL:10 " " .TTIME:8' > COMPOSER-/PUT_SAVE=$CD_COMPOSER/HARD="Composer/Artist" B TITLE3/RSE_RECOG=CD_entry WITH (.COMPOSER = COMPOSER AND " TITLE .TITLE = TITLE AND & TITLE .SERIAL_NO = SERIAL_NO) : TITLE+;GET COMPOSER=CD_entry.COMPOSER[OA$SEL_KEY] 4 TITLE%\GET TITLE=CD_entry.TITLE[OA$SEL_KEY] < TITLE-\GET SERIAL_NO=CD_entry.SERIAL_NO[OA$SEL_KEY] L TITLE=/SHOW='.COMPOSER:25 " " .TITLE:32 " " .LABEL:10 " " .TTIME:8' . TITLE /PUT_SAVE=$CD_TITLE/HARD="Title" F  SERIAL_NO3/RSE_RECOG=CD_entry WITH (.COMPOSER = COMPOSER AND &  SERIAL_NO .TITLE = TITLE AND *  SERIAL_NO .SERIAL_NO = SERIAL_NO) >  SERIAL_NO+;GET COMPOSER=CD_entry.COMPOSER[OA$SEL_KEY] 8!  SERIAL_NO%\GET TITLE=CD_entry.TITLE[OA$SEL_KEY] !@"  SERIAL_NO-\GET SERIAL_NO=CD_entry.SERIAL_NO[OA$SEL_KEY] "P#  SERIAL_NO=/SHOW='.COMPOSER:25 " " .TITLE:32 " " .LABEL:10 " " .TTIME:8' #>$  SERIAL_NO,/PUT_SAVE=$CD_SERIAL_NO/HARD="CD Serial No " $ $ Select CD % Composer/Artist : & Title : ' Serial No : ( FRM16-JUN-1990 09:27:33 6 FMSFLBFED20016-JUN-1990 09:26:5016-JUN-1990 09:26:50  8 ddh & 200) PP CD_SYSMGR  USER   A1TITLE   DAY  DATE   MAIL  7 COMPOSER  7 TITLE   SERIAL_NO   TTIME . F CHOICEPress GOLD H for Help  " A>EA L j         T .TYPEFMENU/USER=USER/DATE=DATE/MAIL=MAIL/CHOICE=CHOICE/CLEAR/GET=DAY,OA$DAY; 4 .TYPE&COMPOSER,$CD_COMPOSER;TITLE,$CD_TITLE; 6 .TYPE'SERIAL_NO,$CD_SERIAL_NO;TTIME,$CD_TTIME 2 .TYPE#/HARD=' CD Item Menu'/TITLE=A1TITLE "  OA$_MO_SELECT FORM CD_SEL "  OA$_MO_CREATE DO CD_CREATE ,  OA$_MO_EDIT.IF $CD_KEY EQS "" THEN L  OA$_MO_EDIT8 DISPLAY CD Item must be SELected to edit it\\FORCE ELSE .  OA$_MO_EDIT FORM CD_ENTRY/MODE=CHANGE F  OA$_MO_EDIT2/SAVE_START="$CD_COMPOSER,$CD_TITLE,$CD_SERIAL_NO"   OA$_MO_EDIT\IFEXIT :  OA$_MO_EDIT&\GET $CD_TTIME=CD_ENTRY.TTIME[$CD_KEY] "  OA$_MO_DELETE DO CD_DELETE ,  OA$_MO_PRINT.IF $CD_KEY EQS "" THEN N  OA$_MO_PRINT9 DISPLAY CD Item must be SELected to print it\\FORCE ELSE "  OA$_MO_PRINT DO CD_PRINT ,  OA$_MO_READ.IF $CD_KEY EQS "" THEN L!  OA$_MO_READ8 DISPLAY CD Item must be SELected to read it\\FORCE ELSE !0"  OA$_MO_READ FORM CD_ENTRY/MODE=INQUIRE "F#  OA$_MO_READ2/SAVE_START="$CD_COMPOSER,$CD_TITLE,$CD_SERIAL_NO" #>$  OA$_MO_INDEX(OA$SCL_EXIT\BIND_BREAK *CD\FORM CD$INDEX $B% OA$_MO_RECALL_INDEX%FOR FIRST *CD DO GET #CD_KEY = .%KEY\ %4& OA$_MO_RECALL_INDEX.IF #CD_KEY EQS "" THEN &^' OA$_MO_RECALL_INDEXB OA$MSG_PURGE\\GET OA$DISPLAY = OA$_INXNOINDEX ELSE FORM CD$INDEX ':( .PERIOD)DISPLAY Selecting . . . \FORCE\DO CD_NEXT (4) COMPOSER"/GET_SAVE=$CD_COMPOSER /HARD="Key" )0* TITLE!/GET_SAVE=$CD_TITLE /HARD="TITLE" *:+  SERIAL_NO(/GET_SAVE=$CD_SERIAL_NO/HARD="SERIAL_NO" +2, CD_TTIME!/GET_SAVE=$CD_TTIME /HARD="TTIME" ,8- CHOICE)/HARD='OPTIONS: SEL,C,E,D,P,R,I,RI,CO,RI' -. .DOWN DO CD_DOWN ./ .UPDO CD_UP /0 !.GOLD TDO CD_UP 0"1 "CO.IF $CD_KEY EQS "" THEN 1D2 #CO8 DISPLAY CD Item must be SELected to copy it\\FORCE ELSE 2$3 $CO FORM CD_ENTRY/MODE=COPY 3>4 %CO2/SAVE_START="$CD_COMPOSER,$CD_TITLE,$CD_SERIAL_NO" 45 &CO\IFEXIT 5F6 'CO:\GET $CD_KEY=$CD_COMPOSER:55 $CD_TITLE:55 $CD_SERIAL_NO:10 627 (CO&\GET $CD_TTIME=CD_ENTRY.TTIME[$CD_KEY] 7Z8 )TOTALKFOR CD_ENTRY DO OA$NULL\GET OA$DISPLAY = OA$SEL_COUNT " discs in database" 8 Homegrown Applications 9: 5CD Library Tracking Database : Composer/Artist : ;  < N = Title : >  ? N @ Serial No. : A  B !. C Total Time : D   E  0 F  SEL G Select H  C I Create J  E K Edit L  D M Delete N  P O Print P  R Q Read R  I S Index T  CO U Copy current item V (TOTAL W /Show total CDs X  RI Y  Recall Index Z&  Enter selection and press RETURN [ FRM16-JUN-1990 09:27:33 6 FMSFLBFLG20025-JUN-1989 15:37:4925-JUN-1989 15:37:49  n  4 20iPPMORE$SCROLL$KEYS$INDEX     .TYPEARG  .UP OA$SCL_UP  .DOWN OA$SCL_DOWN ( .PC NEXT SCREENOA$SCL_NEXT_PAGE * .PC PREV SCREENOA$SCL_PRIOR_PAGE "  .GOLD TABOA$SCL_NEXT_PAGE $  .GOLD F12OA$SCL_PRIOR_PAGE " .GOLD TOA$SCL_FIRST_PAGE . .GOLD BOA$SCL_LAST_PAGE\OA$SCL_BOTTOM  .GOLD UP OA$SCL_TOP    .GOLD DOWN OA$SCL_BOTTOM $  .PC SELECT.IF CHOICE EQS '' &  .PC SELECT THEN OA$SCL_SELECT H  .PC SELECT4 ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\\ (  .PC SELECT GET CHOICE=''\\ (  .PC SELECT OA$SCL_REFRESH * .GOLD PC SELECT.IF CHOICE EQS '' . .GOLD PC SELECT THEN OA$SCL_DESELECT N .GOLD PC SELECT6 ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\\ . .GOLD PC SELECT GET CHOICE=''\\ , .GOLD PC SELECT OA$SCL_REFRESH " .PERIOD.IF CHOICE EQS '' $ .PERIOD THEN OA$SCL_SELECT D .PERIOD4 ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\\ & .PERIOD GET CHOICE=''\\ $ .PERIOD OA$SCL_REFRESH &  .GOLD PERIOD.IF CHOICE EQS '' *!  .GOLD PERIOD THEN OA$SCL_DESELECT L"  .GOLD PERIOD6 ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\\ !*#  .GOLD PERIOD GET CHOICE=''\\ "*$  .GOLD PERIOD OA$SCL_REFRESH #% .F6 DO APPL_INT $"& !.F8XOP OA$_MO_CANCEL_ALL %"' ".F17XOP "~~UDP_PROCESS~~" &"( #.F18XOP "~~UDP_PROCESS~~" '") $.F19XOP "~~UDP_PROCESS~~" ("* %.F20XOP "~~UDP_PROCESS~~" )(+ & .GOLD F17XOP "~~UDP_PROCESS~~" *(, ' .GOLD F18XOP "~~UDP_PROCESS~~" +(- ( .GOLD F19XOP "~~UDP_PROCESS~~" ,(. ) .GOLD F20XOP "~~UDP_PROCESS~~" ->/ *~~UDP_PROCESS~~%.IF OA$FIELD_TERM_NAME = OA$_GBL_GOLD .R0 +~~UDP_PROCESS~~9 THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5 /B1 ,~~UDP_PROCESS~~) ELSE GET #UDP_NAME = OA$FIELD_TERM_NAME\ 0D2 -~~UDP_PROCESS~~+GET #UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"\ 1F3 .~~UDP_PROCESS~~-GET #FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]\ 2d4 /~~UDP_PROCESS~~L.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME 3@5 0~~UDP_PROCESS~~' ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE 4*6 1%NUMBEROA$SCL_GOTO OA$MENU_CHOICE 57 2%NULL OA$SCL_DOWN 6H8 3OA$_MO_SELECT_ALL.GET OA$FUNCTION="FOR " OA$SCROLL_BINDING " DO 7\9 4OA$_MO_SELECT_ALLB GET OA$FUNCTION = 'OA$SCL_SELECT OA$SEL_ADDRESS'"\OA$SCL_REFRESH 8<: 5OA$_MO_CANCEL_ALL!XOP "~~CAS_LOOP~~"\OA$SCL_REFRESH 9J; 6 ~~CAS_LOOP~~4GET #RFA = ''\NEXT_SELECTED OA$SCROLL_BINDING, #RFA\ ::< 7 ~~CAS_LOOP~~$IFSTATUS\OA$SCL_DESELECT #RFA\REPEAT ;8= 8~~CHECK_SELECTIONS~~.IF OA$SCROLL_SELECTED eq 0 <R> 9~~CHECK_SELECTIONS~~4 THEN GET OA$DISPLAY=OA$_INXNONESEL\\GET OA$STATUS=0 =2? :~~CHECK_SELECTIONS~~ ELSE GET OA$STATUS=1 >B@ ;OA$_MO_SCRATCH_PAD'GET #SP_TYPE_AHEAD = OA$MENU_REMAINDER\ ?6A <OA$_MO_SCRATCH_PADGET OA$MENU_REMAINDER = ""\ @.B =OA$_MO_SCRATCH_PADOA$MENU_LEVEL_PUSH\ ABC >OA$_MO_SCRATCH_PAD'GET OA$MENU_REMAINDER = #SP_TYPE_AHEAD\ BND ?OA$_MO_SCRATCH_PAD2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENU CE @ OA$_MO_TIMETIME DF A OA$_MO_EXITEXIT EG B OA$_MO_EXIT2EXIT FfH COA$_MO_DESK_CALCULATORFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER GFI DOA$_MO_ACTION_ITEMS*GET OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AI HfJ EOA$_MO_TIME_MANAGEMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER IVK FOA$_MO_ELECTRONIC_MESSAGING2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" JHL GOA$_MO_ELECTRONIC_MESSAGING$ THEN GET OA$CURMES = OA$SCROLL_KEY\ KjM HOA$_MO_ELECTRONIC_MESSAGINGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER LFN I OA$_MO_MAIL2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" M8O J OA$_MO_MAIL$ THEN GET OA$CURMES = OA$SCROLL_KEY\ NZP K OA$_MO_MAILFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER OVQ LOA$_MO_DOCUMENT_PROCESSING2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" PDR MOA$_MO_DOCUMENT_PROCESSING! THEN GET $WPDOC = OA$SCROLL_KEY\ QjS NOA$_MO_DOCUMENT_PROCESSINGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER RRT OOA$_MO_WORD_PROCESSING2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" S@U POA$_MO_WORD_PROCESSING! THEN GET $WPDOC = OA$SCROLL_KEY\ TfV QOA$_MO_WORD_PROCESSINGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER UNW ROA$_MO_FILE_CABINET2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" V@X SOA$_MO_FILE_CABINET# THEN GET @#CURDOC = OA$SCROLL_KEY\ WbY TOA$_MO_FILE_CABINETFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER XTZ UOA$_MO_DOCUMENT_TRANSFER2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" YD[ VOA$_MO_DOCUMENT_TRANSFER# THEN GET @#CURDOC = OA$SCROLL_KEY\ Zh\ WOA$_MO_DOCUMENT_TRANSFERFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER [f] XOA$_MO_DESK_MANAGEMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER \l^ YOA$_MO_INFORMATION_MANAGEMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ]l_ ZOA$_MO_BUISNESS_APPLICATIONSFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ^b` [OA$_MO_CUSTOM_MANAGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER _da \OA$_MO_COMMUNICATIONSFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ``b ]OA$_MO_USER_SETUPFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ajc ^OA$_MO_PROFESSION_SPECIFICFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER bbd _OA$_MO_DIRECTORIESFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER cje `OA$_MO_PROGRAM_DEVELOPMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER dnf aOA$_MO_APPLICATION_DEVELOPMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER e`g bOA$_MO_NICKNAMESFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER fhh cOA$_MO_DISTRIBUTION_LISTSFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER g\i d OA$_MO_PHONEFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER hDj eOA$_MO_ADMINISTRATOR&.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y" ijk fOA$_MO_ADMINISTRATORM THEN OA$FLD_EXIT\\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER jBl gOA$_MO_ADMINISTRATOR% ELSE GET OA$DISPLAY = OA$_ICR\\FORCE kZm h OA$_MO_MGTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER lRn iSMFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER m FRM16-JUN-1990 09:27:34 6 FMSFLBFED20016-JUN-1990 07:44:3116-JUN-1990 07:44:31  E  * 201PJ CD_ENTRY_OLD  7 @COMPOSER  7 @TITLE  @ SERIAL_NO   @TTIME   @LOGGED  2 @ ORCHESTRA  2 @ CONDUCTOR   ALIB_TYPE    ALPHA_LETTER  00LIB_NO   @LABEL $  RATING_PERFORMANCE    RATING_SOUND   @FORMAT    NUMBER_TRACKS  7nx -        $  B  E       2 .TYPE$ENTRY /MODE=UPDATE/HARD='Entry Form' , .TYPE/KEY=COMPOSER,TITLE,SERIAL_NO N .TYPE?/POST='IFEXIT\GET $CD_COMPOSER = COMPOSER\GET $CD_TITLE = TITLE . .TYPE\GET $CD_SERIAL_NO = SERIAL_NO'  .FILE CD.DAT,CD.FDL   .FORM_SET CD_ENTRY2 N COMPOSER *~~LIB_TYPE_REMARK~~J.REMARK The alpha-letter field is only 1 character, so loading the "whole" >Z? +~~LIB_TYPE_REMARK~~=field with composer's value is just loading the first letter. ?,@ ,FORMAT/RECOG=OA$TABLE:"DDD,ADD,AAD" @HA - .DATE & TIME3GET OA$FUNCTION = "GET " OA$FIELD_NAME " = OA$DATE" AHB ..COMMA8GET OA$FUNCTION = 'GET ' OA$FIELD_NAME '= #FIELD_BUFFER' BFC /.HYPHEN6GET OA$FUNCTION = 'GET #FIELD_BUFFER = ' OA$FIELD_NAME C@D 0.HYPHEN/\GET OA$FUNCTION = 'GET ' OA$FIELD_NAME ' = ""' DLE 1 .GOLD HYPHEN6GET OA$FUNCTION = 'GET #FIELD_BUFFER = ' OA$FIELD_NAME E" CD Library Tracking Database F @ Page 1 of 2 G Composer/Artist: H Title : I Serial No : J Total Time : K  Date Logged: L Orchestra : M Conductor : N Library Index : O Label : P :Rating: Q D/ R Format : S Number Tracks : T@  :Press Next Screen (or Gold TAB) for page 2 - (Track info) U FRM23-NOV-1990 12:15:19 6 FMSFLBFLG20023-NOV-1990 12:15:1723-NOV-1990 12:15:17  H   & 203PPCD_ENTRY  7 @COMPOSER  7 @TITLE  @ SERIAL_NO   @TTIME   @LOGGED    LOGGED_NBS  2 @ ORCHESTRA  2 @ CONDUCTOR   ALIB_TYPE    ALPHA_LETTER  00LIB_NO   @LABEL $  RATING_PERFORMANCE    RATING_SOUND   @FORMAT    NUMBER_TRACKS & 7nx - =         $  B  E      2 .TYPE$ENTRY /MODE=UPDATE/HARD='Entry Form' , .TYPE/KEY=COMPOSER,TITLE,SERIAL_NO N .TYPE?/POST='IFEXIT\GET $CD_COMPOSER = COMPOSER\GET $CD_TITLE = TITLE , .TYPE\GET $CD_SERIAL_NO = SERIAL_NO D .TYPE6\DATE_CONVERT #NBS,LOGGED,7\GET LOGGED_NBS = #NBS:6:2' 4 .FILE%CD_DATA_DIR:CD.DAT,CD_DATA_DIR:CD.FDL   .FORM_SET CD_ENTRY2 N COMPOSER )LIB_TYPE/B -- Blues,H -- Heavy Metal,M -- Miscellaneous" >B? *LIB_TYPE1/POST='.IF OA$MENU_CHOICE EQS OA$_MO_CREATE THEN ?@@ +LIB_TYPE/ GET ALPHA_LETTER = COMPOSER\\DO CD_TYPE_COUNT' @fA ,~~LIB_TYPE_REMARK~~J.REMARK The alpha-letter field is only 1 character, so loading the "whole" AZB -~~LIB_TYPE_REMARK~~=field with composer's value is just loading the first letter. B,C .FORMAT/RECOG=OA$TABLE:"DDD,ADD,AAD" CHD / .DATE & TIME3GET OA$FUNCTION = "GET " OA$FIELD_NAME " = OA$DATE" DHE 0.COMMA8GET OA$FUNCTION = 'GET ' OA$FIELD_NAME '= #FIELD_BUFFER' EFF 1.HYPHEN6GET OA$FUNCTION = 'GET #FIELD_BUFFER = ' OA$FIELD_NAME F@G 2.HYPHEN/\GET OA$FUNCTION = 'GET ' OA$FIELD_NAME ' = ""' GLH 3 .GOLD HYPHEN6GET OA$FUNCTION = 'GET #FIELD_BUFFER = ' OA$FIELD_NAME H" CD Library Tracking Database I @ Page 1 of 2 J Composer/Artist: K Title : L Serial No : M Total Time : N  Date Logged: O 7(NBS) P Orchestra : Q Conductor : R Library Index : S Label : T :Rating: U D/ V Format : W Number Tracks : X@  :Press Next Screen (or Gold TAB) for page 2 - (Track info) Y