34DEFABCYTSELECLFLGWAIFLSTLIENLINERAS-<KZ_ A 塒򸵒籲 Ap TO DISPLAY TITLE]];@,;@,;@,;@,;@,;@,;@,;@, +, +,(SELECT OPERATION BY NUMBER ( ( ( ((1) FOR ENTRY"((( (2) ENTRY,(2##((3) EXSISTING ENTRY4(8((4) Ԡ ENTRIES9(:((5) ENTRY<(>((6) @ ( (BF77AA A0AA`AP @  A +XTO LIST ALL ENTRIESZ#] APb "l (q A%%(_____________________________(($(TO CONTINUE PRESS ($!!SEARCH FOR ENTRY SUBROUTINE6- +--(%INPUT FIRST WORD OF ENTRY TO BE FOUND ( (# ( ( Ae "4AP A &(FIRST WORD IS---&6-@(SECOND WORD IS---(THIRD WORD IS---($ A ):""( ENTRY FOUND6-A: *$($(SEARCH FOR ANOTHER ENTRY?,4Y A.$//TO PUT ENTRY IN A COMPUTER GENERATED LINE +(INPUT FIRST WORD(INPUT SECOND WORD(INPUT THIRD WORD#1 A P1CATCHES LAST EXISTING LINE NUMBER "LN=LINE NUMBER A 0 6-%@AI & = BP=BRANCHES TO AUTOMATIC LINE WRITING SUBROUTINE( ((ANOTHER ENTRY? *4YA 4$ TO CORRECT AN ENTRY + # ))(!INPUT FIRST WORD OF CURRENT ENTRY  6- A1 "@ A1  "  4 A2 A0  AA(9ENTRY TO BE CORRECTED NOT FOUND.DO YOU WANT TO TRY AGAIN?& + 4YA0- @ 0 $ VVTO PRINT OLD DATA TO ASSURE PROPER LINE IS BEING CORRECTED AND TO MAKE NEW ENTRY + ( #1 OLD IS--- ( #2 OLD IS--- ( #3 OLD IS--- -)(!IS THIS THE DATA TO BE CORRECTED?-  4Y A2` A0   +6-@ 3"(INPUT CORRECTED FIRST WORD&-436. 4#(INPUT CORRECTED SECOND WORD'.446. 3"(INPUT CORRECTED THIRD WORD&-436. 2/('IS THIS THE CORRECTED ENTRY YOU DESIRE?2( ( FIRST WORD--- (SECOND WORD--- ( THIRD WORD--- 0Y A2b BP 4(0(%DO YOU WISH TO CORRECT ANOTHER ENTRY?4 4YA0 $4000,EPSILON,RHO,GAMMA**4002,MILLER,3907 MAIN,FORT WORTH TX.,,4004,COMPUTER,COMPUTE! MAG.,SEPT. 1981!!4006,JONES,938-3456,A/C 817//4008,SMITH W.R.,406 OAK ST.,DETROIT MICH.p. TO DELETE AN ENTRYq +r#t))(!INPUT FIRST WORD OF CURRENT ENTRYuz6- Aa"@ Aa  " 4 Ab A`  Aa ??(7ENTRY TO BE DELETED NOT FOUND.DO YOU WANT TO TRY AGAIN?4YA` @ $8TTTO PRINT OLD DATA TO ASSURE PROPER LINE IS BEING DELETED AND TO MAKE NEW ENTRYB +L( #1 OLD IS---N( #2 OLD IS---P( #3 OLD IS---V+'(IS THIS THE DATA TO BE DELETED?+` 4Y Ab`j A` t6-@~ 6-6- B $X +@b-@@l @ DATA STORAGEv-@@ @SAMPLE-A $@ +@J-@@T @GOODBYE!^-A h$a$$AUTOMATIC DATA LINE GENERATIONa(>:A%,a]'(DATA ,,,]THIS IS THE DUMMY LINE SET UP WHERE DATA IS ENTEREDa( ( ((a (CONTa ( ( (a-aAB@&aAB@a$} TO DELETE A GROUP OF LINES}B B }B B }((STARTING LINE= }( ENDING LINE= } -} (>:A%, CLEARS SCREEN(}` (` APPARENTLY MOVES CURSOR DOWN."ERASE" IS THE LINE NUMBER BEING DELETED THIS PASS.2}R( ((CONTRMUST HAVE THIS TO WORK.APPEARS TO START IT AFTER STOP COMMAND<}-F}>AB@&>APPARENTLY PUTS INTO "RETURN MODE".P}0AB@0PUTS BACK TO NORMAL MODEZ} _} +d}(ANOTHER DELETION?i}l} 4Y A`}$D:DATALINE.BAS