* *************************** DNSCAN COMMAND FILE ************************** * * dNAMES 1.1 * (c) Copyright 1982 Data Based Solutions * All Rights Reserved * **************************************************************************** IF eop#'CALL' STORE "@ 13,0 SAY "+eop TO era ELSE STORE 'CALL' TO era POKE 42000,12 ENDIF RELEASE point,srt,typ,sure,prn,correct IF 0=test(mmcl= ' ' ).OR.answer= '3' DO dnscreen ENDIF SET inte OFF @ 0,5 SAY ' S E L E C T I V E E D I T ' @ 0,60 SAY ' ' SET inte ON @ 4,60 SAY 'ENTERED-' @ 5,60 SAY 'UPDATED-' @ 17,0 SAY '|===========================================' +; '==================================|' @ 18,0 SAY '|| 1> Skip Forward 1 5> ' +; '9> Print an Envelope ||' @ 19,0 SAY '|| 2> Skip Back 1 6> ' +; ' ||' @ 20,0 SAY '|| 3> 7> ' +; ' ||' @ 21,0 SAY '|| 4> Show Classification 8> Edit This Record ' +; 'R> Return ||' @ 22,0 SAY '|===========================================' +; '==================================|' IF .not.noloca SET inte OFF @ 20,7 SAY 'Continue Search' ENDIF STORE t TO stop DO WHILE .not.eof.AND.stop SELECT PRIMARY SET inte OFF IF $(code,2,1)= 'M' @ 1,3 SAY 'MARKED FOR FUTURE TRANSFER TO ALTERNATE DISK DRIVE' @ 20,31 SAY 'Untag For Transfer' ELSE SET inte ON @ 20,31 SAY 'Tag For Transfer ' @ 1,3 SAY ' ' ENDIF SET inte OFF IF code= '*' @ 18,31 SAY 'Display Extra Comments' ELSE @ 18,31 SAY ' ' ENDIF IF * @ 19,31 SAY 'Recall Record ' @ 1,60 SAY '*** DELETED ***' ELSE @ 1,59 SAY ' ' SET inte ON @ 19,31 SAY 'Delete Record' ENDIF SET inte OFF @ 3,13 SAY name @ 3,55 SAY sal @ 4,13 SAY ADD @ 4,69 SAY $(DATE,1,2)+ '/' +$(DATE,3,2)+ '/' +$(DATE,5,2) @ 5,13 SAY city @ 5,41 SAY state @ 5,49 SAY zip @ 5,69 SAY $(UPDATE,1,2)+ '/' +$(UPDATE,3,2)+ '/' +$(UPDATE,5,2) @ 6,13 SAY $(phone,1,3) @ 6,24 SAY $(phone,4,3)+ '-' +$(phone,7,4) @ 6,40 SAY cl @ 6,69 SAY code @ 8,13 SAY com @ 9,3 SAY ' ' +; ' ' @ 10,3 SAY ' ' +; ' ' @ 11,3 SAY ' ' +; ' ' SET inte ON @ 7,3 SAY ' ' +; ' ||' STORE t TO correct DO WHILE correct.AND..not.eof CLEAR GETS SELECT PRIMARY STORE ' ' TO point SET colon ON SET inte ON @ 14,25 SAY 'Enter your choice please. ' GET point @ 16,3 SET inte OFF &con READ &coff DO CASE CASE point= '8'.AND..NOT.* RELEASE point,correct DO dnedit STORE t TO correct STORE '8' TO point LOOP CASE point= '3' .AND..not.noloca @ 16,3 SAY '*** SEARCHING FOR THE NEXT RECORD IN FILE YOU ' +; 'SPECIFIED ***' IF noloca SKIP ELSE CONTINUE ENDIF STORE f TO correct CASE point= '1' @ 16,3 SAY '*** SKIPPING TO NEXT RECORD ***' SKIP STORE f TO correct CASE point= '2' @ 16,3 SAY '*** SKIPPING BACK ONE RECORD ***' SKIP-1 STORE f TO correct CASE point= '4' @ 16,3 SAY '*** DISPLAYING CLASSIFICATION(S) ***' IF cl# ' ' STORE t TO showcl DO dnshow RELEASE showcl ENDIF LOOP CASE point= '5' .AND.code= '*' STORE str(no,5) TO nnn @ 16,3 SAY '*** DISPLAYING EXTRA COMMENTS ***' SELECT seco USE &c1 INDEX &c2 FIND &nnn @ 9,3 SAY line1 @ 10,3 SAY line2 @ 11,3 SAY line3 IF answer#'3' USE &b1 INDEX &b2 ELSE USE &b1 ENDIF RELEASE nnn CASE point= '6' STORE str(no,5) TO nnn IF .not. * @ 16,3 SAY '*** DELETING THIS RECORD ***' DELETE SELECT seco DELETE ELSE @ 16,3 SAY '*** RECALLING THIS RECORD ***' RECALL SELECT seco RECALL ENDIF IF $(code,1,1) = '*' USE &c1 INDEX &c2 FIND &nnn IF .not. * DELETE ELSE RECALL ENDIF ENDIF IF answer= '3' USE &b1 ELSE USE &b1 INDEX &b2 ENDIF SELECT PRIMARY RELEASE nnn @ 15,0 IF * @ 1,60 SAY '*** DELETED ***' @ 19,31 SAY 'Recall Record ' ELSE SET inte ON @ 1,59 SAY ' ' @ 19,31 SAY 'Delete Record' ENDIF CASE point= '7' IF $(code,2,1)# 'M' @ 16,3 SAY '*** TAGGING THIS RECORD FOR FUTURE TRANSFER ***' REPLACE code WITH $(code,1,1)+ 'M' +$(code,3,6) SELECT seco REPLACE mark WITH 'M' ELSE @ 16,3 SAY '*** UNTAGGING THIS RECORD FOR FUTURE TRANSFER ***' REPLACE code WITH $(code,1,1)+ ' ' +$(code,3,6) SELECT seco REPLACE mark WITH ' ' ENDIF IF code= '*' STORE str(no,5) TO nnn USE &c1 INDEX &c2 FIND &nnn IF mark# 'M' REPLACE mark WITH 'M' RELEASE nnn ELSE REPLACE mark WITH ' ' ENDIF IF answer# '3' USE &b1 INDEX &b2 ELSE USE &b1 ENDIF ENDIF IF $(code,2,1)= 'M' @ 1,3 SAY 'MARKED FOR FUTURE TRANSFER TO ALTERNATE DISK DRIVE' @ 20,31 SAY 'Untag For Transfer' ELSE SET inte ON @ 20,31 SAY 'Tag For Transfer ' @ 1,3 SAY ' ' ENDIF SET inte OFF @ 6,69 SAY code CASE point= '9' SET inte ON SET colon ON STORE ' ' TO plet @ 14,10 SAY 'Make sure printer is on and top left corner of envelope is' @ 15,10 SAY 'lined up at the home position on printer.' @ 16,10 SAY 'Type when ready or type "A" to ABORT. ' GET plet &con READ &coff SET colon OFF STORE @( '*' ,name) TO where IF where=0 STORE trim(name) TO pnam ELSE STORE $(name,where+1,len(trim(name))-where)+ ' ' +$(name,1,where-1) ; TO pnam ENDIF IF !(plet)<> 'A' SET FORMAT TO PRINT @ 11,30 SAY pnam IF '@' $com STORE $(com,1,@('@',com)-1) TO tcom @ 12,30 SAY tcom @ 13,30 SAY trim(ADD) @ 14,30 SAY trim(city)+ ', ' +trim(state) @ 15,30 SAY zip ELSE @ 12,30 SAY trim(ADD) @ 13,30 SAY trim(city)+ ', ' +trim(state) @ 14,30 SAY zip ENDIF EJECT SET FORMAT TO screen RELEASE tcom ENDIF @ 14,10 @ 15,10 @ 16,10 RELEASE plet,pnam,where LOOP CASE !(point)= 'R' SET colon OFF @ 1,0 SET inte ON RELEASE point,stop,fixing,fix,noloca,recno RETURN OTHERWISE ENDCASE SELECT PRIMARY IF eof &era @ 16,19 SAY '*** END OF THE FILE *** PRESS ANY KEY ***' SET colon OFF SET consol OFF WAIT SET cons ON RETURN ENDIF IF point# '9' STORE # TO recno SELECT seco GO recno ENDIF SET colon OFF ENDDO WHILE ENDDO WHILE RETURN