DataMuseum.dk

top - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »INSOTE.PRG«

└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
    └─ ⟦this⟧ »INSOTE.PRG« 

TextFile

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»