Category : Databases and related files
Archive   : DLITE10.ZIP
Filename : UNDELREC.FRB

 
Output of file : UNDELREC.FRB contained in archive : DLITE10.ZIP
RFÞÜÔ 
ˆT@
WINCOL)Q„
„@3
CENTER­=ï
LSET WINDOW TO "UNDELETE - "+FILENAME POSITION 4,CENTER SIZE &WINLIN,&WINCOL-ÿ­ ­ ï
USE &FILENAME-ÿOÓ  ­!OÓ
TONES ­!
Œ‰@3
„ð?
ˆ.@­O­'
Ì Œ@3
„ð?
ˆ.@­
„ð?3
„“
'File is empty. UnDELETE not available.­:­
3
AFLAG­=O­*
3
AFLAG­=O­'OÓ
 FMT_SPEC)(
„ ­!
 FMT_SPEC3
TMPFILE­=O­*
 FILENAME
.FMTd3
TMPFILE­=O­'OÓ
TMPFILE) ­!
3
AFLAG­=
„ð?3
„“
TMPFILE
$ (the format file) cannot be found.d­:OÓ
TONES ­!
Œ‰@3
„ð?
ˆ.@­O­'
Ì Œ@3
„ð?
ˆ.@­­O­'OÓ
 INDXNAME)(
„
AFLAG ­!ï
SET INDEX TO &INDXNAME-ÿOÓ
 LEADINDX)(
„A ­!
„­ KO­*
„ð?3

INDXCOUNT­=/Ó

INDXCOUNT
„ @!

INDXCOUNT)3)(
„¡ ­+OÓ
 LEADINDX)P
.d

INDXCOUNT)3)P ­!

INDXCOUNT­ K
„"@3

INDXCOUNT­=O­'

INDXCOUNT3

INDXCOUNT­=/­(O­'
ˆ>@)F3
THISREC­=OÓ
 LEADINDX)(
„ ­!
„ð?3
„ð?S
THISREC“
Enter
 LEADINDXd

to find:d­:O­*
„ð?3
„ð?S
THISREC“
Enter record number to find:­:O­'­OÓ &
ˆ;@¡ ­!
THISREC)N3
THISREC­=OÓ
THISREC)(
„A ­!
 3
THISREC­=O­'OÓ
 LEADINDX)(
„ ­!
THISREC­ O­*ï
GOTO &THISREC-ÿO­'OÓ  & & ­!OÓ
TONES ­!
Œ‰@3
„ð?
ˆ.@­O­'
Ì Œ@3
„ð?
ˆ.@­
3
AFLAG­=O­'O­*OÓ
TONES ­!
Œ‰@3
„ð?
ˆ.@­O­'
Ì Œ@3
„ð?
ˆ.@­
3
AFLAG­=O­'O­*OÓ
AFLAG ­!
„3
THISREC­=
„ð?3
„ð?S
THISRECs

@Z 999999“
"Enter record number to UnDELETE: ­:
„ð?3
ˆE@“
(1 - =
„@IId
)d­:­­4OÓ
THISREC
„
THISREC =a ­!
THISREC­"O­*OÓ
TONES ­!
Œ‰@3
„ð?
ˆ.@­O­'
Ì Œ@3
„ð?
ˆ.@­
3
AFLAG­=O­'O­'O­'
3
PASTEIT­=
=Í to abort. or to move through file. ÍÍÍ­ N/Ó &
ˆ;@¡
PASTEIT  
AFLAG ­+­4
TMPFILE3
„ð?­%/Ó
„ð?) ­+
TMPFLD3
„ð?­%€OÓ
„ð?)
TMPFLD
„ð?
„ð?iK
*¡ ­!
3
OOPS­=
OOPS=MESSAGE()­ï
&TMPFLD-ÿ­OÓ
OOPS)(
„¡ ­!3
_ERRORS
OOPS
CODE:
TMPFLDd
FILE:
TMPFILEd­=`O­'O­'/­(3
„ð?­%­4
„3
„­:
„3
„S
PASTEITs
Y“
UnDELETE this record? ­:­­+Ó
PASTEIT ­5
3
AFLAG­=
„3
„­:
„3
„“
UnDELETE in progress . . . ­:­Ó &
ˆ;@A & & ­5
3
AFLAG­=­Ó &
ˆ2@A ­5
„ð? ­­­­)OÓ  & ­!
3
AFLAG­=O­'/­(OÓ &
ˆ;@A
PASTEIT&
AFLAG& ­!
3
AFLAG­=OÓ
TONES ­!
Œ‰@3
„ð?
ˆ.@­O­'
Ì Œ@3
„ð?
ˆ.@­O­'­3/Ó
AFLAG ­+
3
AFLAG­=­@/­(­3­ €­

  3 Responses to “Category : Databases and related files
Archive   : DLITE10.ZIP
Filename : UNDELREC.FRB
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/