home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug080.ark / BACKUP.STB < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.6 KB  |  51 lines
  1.  
  2.    10   Rem Copyright 1981 by David E. Trachtenbarg
  3.    20   Dim Today$(5),Last'edited$(5),Last'sorted$(5)
  4.    30   Dim Edit'file$(13),Data'file$(13),Sort'file$(13)
  5.    40   Dim File$(73),Name$(34)
  6.    50   Endcommon
  7.    60   If Today$="" Then Run"DATE.SAV"
  8.    70   Dsk"@"
  9.    80   Integer Sector,Record,Place,Chunk,Buffsiz
  10.    90   Sector=128
  11.   100   Chunk=Int(Fre(0)/128)-4
  12.   110   Buffsiz=Sector*(Chunk+1)
  13.   120   Dim Buffer$(Buffsiz),Backup'file$(13)
  14.   130   Backup'file$="B:"+Data'file$
  15.   140   @
  16.   150   @"Place the backup disk in drive B. "
  17.   155     Repeat
  18.   160     Input"Continue (Y/N)? ",Command$
  19.   165     Until Pos("yYnN",Command$(0,0),0)>-1
  20.   166   If Command$(0,0)="n" Or Command$(0,0)="N" Then Run"menu.sav"
  21.   170   On Error Goto 190
  22.   180   Erase Backup'file$
  23.   190   On Error Stop
  24.   200   Create Backup'file$
  25.   210   Set 3,0
  26.   230   Open\1,128,1\Data'file$
  27.   240   Open\2,128\Backup'file$
  28.   250   Record=-1
  29.   260     Repeat
  30.   270     Place=-1
  31.   280       Repeat
  32.   285       On Error Goto 315
  33.   290       Get\1,Record+1\Buffer$((Place+1)*128,(Place+2)*128-1)
  34.   300       Record=Record+1
  35.   310       Place=Place+1
  36.   315       On Error Stop
  37.   320       Until Sys(3)>0 Or Place>=(Chunk-1)
  38.   326     If Place>-1 Then  Do
  39.   330         For I=0 To Place
  40.   340         Put\2,(Record-Place+I)\Buffer$(I*128,(I+1)*128-1)
  41.   345         Next I
  42.   350       Enddo
  43.   360     Until Sys(3)>0
  44.   370   Close
  45.   380   @"Done"
  46.   390   @
  47.   400   @"Going to main menu......"
  48.   410   Run"MMENU.SAV"
  49.   420   End
  50.