|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »SLETTEXT.CMD«
└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
└─⟦this⟧ »SLETTEXT.CMD«
***************************************************************************** * COMMANDO FILE TIL RC TIME OG OMKOSTNINGS OVERSIGT * * NAVN : SLETTEXT.CMD SIDST ÆNDRET DATO: 86.01.14 KL..: 12.00 * * KALDES FRA TEKST * * -- her må KUN slettes tekst : ftekst.dbf samt findex.ndx -- * ***************************************************************************** set talk on STORE ' ' TO OK USE erase @ 05,0 say '**************************************************************' @ 06,0 say '* *' @ 07,0 say '* RC TIME OG OMKOSTNINGS OVERSIGT *' @ 08,0 say '* *' @ 09,0 say '**************************************************************' @ 12,0 say ' ALLE TEKSTER SLETTES SA TAST OK !' @ 14,0 say ' ELLERS VED FORTRYD SÅ TAST RETUR !' GET OK READ IF !(OK) = 'OK' @ 16,0 say ' 2 FILER SKAL DELETES (SLETTES)' ? ' ' DELETE FILE findex.NDX * use ftekst copy to ftexwork structure use delete file ftekst rename ftexwork to ftekst ERASE DO TEX.GO * ENDIF OK USE FTEKST INDEX FINDEX set talk off ERASE return «eof»