The
COMPUTER VIRUAL FORMULA

JOSEPH NECHVATAL


CLS
DIM 1 V$(9,5)
DIM 251 M$(3,900)
G$=FILES$(1,"TEXT",,V%)
W%=V%
OPEN"I",#1,G$,,V%
INPUT#1,NINFECTION
INPUT #1,NCOL
INPUT #1,NLIGN
FOR I=1 TO 4
FOR J=1 TO 8
INPUT#1,X%
V$(I,J)=CHR$(X)
NEXT J
NEXT I
CLOSE#1
F$=FILES$(1,"TEXT",,V%)
H$=LEFT$(F$,LEN(F$)-2)
FOR K=1 TO 3
IF K=1 THEN F$=H$+".R"
IF K=2 THEN F$=H$+".V"
IF K=3 THEN F$=H$+".B"
OPEN"I",#1,F$,,W%
LONG IF NCOL<=250
FOR I=1 TO NLIGN
READ#1,M$(1,I);NCOL
NEXT I
XELSE
FOR I=1 TO NLIGN
READ#1,M$(1,I);250
READ#1,M$(2,I);NCOL-250
NEXT I
END IF
CLOSE#1
RANDOM
FOR L=1 TO NINFECTION
VERTICAL=INT(RND(NCOL))
HORIZONTAL=INT(RND(250))
U=0
FOR J= VERTICAL TO VERTICAL+3
U=U+1
V=0
FOR I= HORIZONTAL TO HORIZONTAL+7
V=V+1
LONG IF ASC(V$(V,U))<>0
LONG IF NCOL<250
DEBUT$=LEFT$(M$(1,VERTICAL),LEN(M$(1,VERTICAL))-1)
FIN$=RIGHT$(M$(1,VERTICAL),LEN(M$(1,VERTICAL))-HORIZONTAL)
M$(1,VERTICAL)=DEBUT$+V$(V,U)+FIN$
XELSE
DEBUT$=LEFT$(M$(2,VERTICAL),LEN(M$(2,VERTICAL))-1)
FIN$=RIGHT$(M$(2,VERTICAL),LEN(M$(2,VERTICAL))-HORIZONTAL)
M$(1,VERTICAL)=DEBUT$+V$(V,U)+FIN$
END IF
END IF
NEXT I
NEXT J
NEXT L
IF K=1 THEN G$=H$+"-"+STR$(NINFECTION)+".R"
IF K=2 THEN G$=H$+"-"+STR$(NINFECTION)+".V"
IF K=3 THEN G$=H$+"-"+STR$(NINFECTION)+".B"
OPEN"O",#1,G$,,W%
LONG IF NCOL<=250
FOR I=1 TO NLIGN
PRINT#1,M$(1,I)
NEXT I
XELSE
FOR I=1 TO NLIGN
PRINT#1,M$(1,I)
PRINT#1,M$(2,I)
NEXT I
END IF
CLOSE#1
NEXT K
END








massonie text






virus text



NECHVATAL
home base