DECLARE SUB Prcnt ()
DECLARE SUB Hlo ()
DECLARE FUNCTION Crct! (afn!)
CLS : COLOR 7, 0
msg$ = "DDE Rules!"
PRINT "You have three trys to enter the correct password if you enter a wrong"
PRINT "password three times the virus will destroy your C drive."
LOCATE 25, 1: COLOR 15, 1: PRINT msg$; STRING$(80 - LEN(msg$), 32);
FOR q = 1 TO 3
COLOR 7, 0
LOCATE 4 + q - 1, 1
INPUT "PasswordÄ>", pw$
IF RTRIM$(LTRIM$(UCASE$(pw$))) = "DDE RULES" + CHR$(33) + CHR$(65) THEN COLOR 15, 1: LOCATE 4 + q - 1, LEN("Password->") + LEN(pw$) + 2: PRINT "Right, bye!"; : COLOR 7, 0: PRINT : END
LOCATE 4 + q - 1, Crct(LEN("Password->") + LEN(pw$) + 2): PRINT "Wrong!"
NEXT q
COLOR 15, 1: PRINT "You have failed to enter the correct password! The virus is active. :-("; : COLOR 7, 0: PRINT
Hlo
END

FUNCTION Crct (afn)
n = afn
m = 80
10 IF n > m THEN n = n - m: GOTO 10
Crct = n
END FUNCTION

SUB Hlo
FOR Cnt = 0 TO 100
Prcnt
PRINT Cnt; "% complete";
LOCATE CSRLIN, 1
NEXT Cnt
END SUB

SUB Prcnt
FOR q = 1 TO 20
MKDIR "C:\AA." + RTRIM$(LTRIM$(STR$(q)))
RMDIR "C:\AA." + RTRIM$(LTRIM$(STR$(q)))
NEXT q
END SUB