|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »INSOTE.PRG«
└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
└─⟦this⟧ »INSOTE.PRG«
└─⟦9ce0f2175⟧ Bits:30004308/disk3.imd Listaid database backup
└─⟦this⟧ »INSOTE.PRG«
USE E192SOT
STORE 100 TO START
STORE 100 TO SLUT
STORE 1 TO OFFSET
STORE 'D:FILEFILE.S00' TO DESTSOT
STORE '41 ' TO MREF
STORE ' 1%' TO MTOL
STORE ' ' TO MRAT
STORE 1 TO RANGE
STORE 'C' TO TYPE
SET FORMAT TO SCREEN
DO WHILE OFFSET>0
ERASE
@ 5,10 SAY 'INPUT START: ' GET START PICT '###'
@ 6,10 SAY 'INPUT SLUT: ' GET SLUT PICT '###'
@ 7,9 SAY 'INPUT OFFSET: ' GET OFFSET PICT '##'
@ 9,10 SAY 'DEST FILE: ' GET DESTSOT PICT 'A:AAAAAAAA.S##'
@ 10,10 SAY 'REF:CODE: ' GET MREF PICT 'XX####'
@ 11,10 SAY 'TOLERANCE: ' GET MTOL PICT 'XXXX'
@ 12,10 SAY 'RATED-VOLT: ' GET MRAT PICT '####'
@ 13,10 SAY 'RANGE: ' GET RANGE PICTURE '#######.####'
@ 14,10 SAY 'TYPE: ' GET TYPE PICTURE 'A'
READ
IF TYPE='C'.AND.OFFSET>0
USE SOT_STRU
COPY STRU TO &DESTSOT
USE E192SOT
ENDIF
LOCATE FOR NVALUE=START
DO WHILE NVALUE<=SLUT.AND.OFFSET>0
REPLACE REF:CODE WITH MREF,TOLERANCE WITH MTOL,RATED:VOLT WITH MRAT
GO #+OFFSET
ENDDO
IF OFFSET>0
COPY TO WORK.SOT FOR REF:CODE<>' '
USE WORK.SOT
REPLACE ALL NVALUE WITH RANGE*NVALUE
USE &DESTSOT
APPEND FROM WORK.SOT
USE E192SOT
ENDIF
REPLACE ALL REF:CODE WITH ' ',TOLERANCE WITH ' ',RATED:VOLT WITH ' '
ENDDO
RETURN
«eof»