DataMuseum.dk

Presents historical artifacts from the history of:

Christian Rovsing CR7, CR8 & CR16 CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦e0740abac⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »CONVERT.PRG«

Derivation

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

TextFile

* DESIGN: NIF/ASD/SEPTEMBER 1985
*
*PROCEDURE:CONVERT
*PARAMETERS: DATABASE IN USE
*CONVERSION FROM NVALUE TO CVALUE,SPECVALUE, TOLERANCE TO SPECTOLERANCE

ERASE
@ $+4,10 SAY 'CONVERSION OF NUMERIC VALUES,TOLERANCES AND VOLTAGE RATINGS'
@ $+2,10 SAY 'THIS MAY TAKE SOME TIME ...........................'

*SEQUENCE OF CONVERSION ROUTINES
@ $+2,10 SAY 'RESISTORS'
DO MAKER
@ $,$+2 SAY 'CAPACITORS'
DO MAKEC
@ $,$+2 SAY 'INDUCTORS'
DO MAKEL
IF MDBASE<>'DPL' 
   REPLACE ALL CVALUE WITH (STR(NVALUE,4)+' Pcs') FOR $(REF:CODE,1,2)='64'
ENDIF
RETURN

«eof»