|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »PLSEDIT.PRG«
└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
└─⟦this⟧ »PLSEDIT.PRG«
└─⟦9ce0f2175⟧ Bits:30004308/disk3.imd Listaid database backup
└─⟦this⟧ »PLSEDIT.PRG«
*******************************************************************************
* PROCEDURE PLSEDIT ;SUBROUTINE CALLED FROM UMOD
*******************************************************************************
*INITIALIZE PARAMETERS FOR CALL OF MODIN
STORE 'INITIAL STATE' TO MVALIDSTAT
STORE 'EDIT' TO MINTYPE
STORE 'M' TO MCONTINUE
STORE REF:CODE TO MREFC
STORE @('%',TOLERANCE) TO MPOINT
IF MPOINT=0
STORE @('A',TOLERANCE) TO MPOINT
IF MPOINT=0
STORE '0' TO MTOLV
ELSE
STORE $(TOLERANCE,1,MPOINT-1) TO MTOLV
ENDIF
ELSE
STORE $(TOLERANCE,1,MPOINT-1) TO MTOLV
ENDIF
IF MPOINT<>0
STORE $(TOLERANCE,MPOINT,1) TO MTOLT
ELSE
STORE '%' TO MTOLT
ENDIF
STORE &MTOLV TO MTOLV
STORE RATED:VOLT TO MRATE
*CALL TO INPUT ROUTINE MODIN
DO MODIN
*MAKE PPLSEARCH IF REQUESTED
DO WHILE MCONTINUE='F'
STORE 'M' TO MCONTINUE
ERASE
STORE ' ' TO MGEN
@ 10,10 SAY 'ENTER GENERIC NAME TO BE FOUND: ' GET MGEN PICTURE 'XXXXXXXXXX'
READ
CLEAR GETS
DO PPLSEARC
@ $+2,4 SAY 'ENTER SELECTED REF.CODE: ' GET MREFC PICTURE 'XXXXXX'
READ
STORE 'PPL-SEARCH COMPLETED' TO MVALIDSTAT
DO MODIN
ENDDO
*CASE STRUCTURE FOR EXECUTION OF REQUESTED ACTION
DO CASE
CASE MCONTINUE='A'
STORE F TO NEXT
CASE MCONTINUE='R'
RECALL
CASE MCONTINUE='D'
DELETE
ENDCASE
*RETURN TO CALLING CMD.-FILE
RETURN
«eof»