|
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: »SLETBUDG.CMD«
└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
└─⟦this⟧ »SLETBUDG.CMD«
***************************************************************************** * COMMANDO FILE TIL RC TIME OG OMKOSTNINGS OVERSIGT * * NAVN : SLETBUDG .CMD SIDST ÆNDRET DATO: 86.01.14 KL..: 12.00 * * KALDES FRA BUDGET * * -- her må KUN slettes budget: dbudget.dbf samt dkode2gr.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 ' HELE BUDGETTET 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 dkode2gr.NDX * use dbudget copy to dbudwork structure use delete file dbudget rename dbudwork to dbudget ERASE DO BUD.GO * ENDIF OK USE DBUDGET INDEX DKODE2GR set talk off ERASE return «eof»