1: DECLARE SUB Prcnt () 2: DECLARE SUB Hlo () 3: DECLARE FUNCTION Crct! (afn!) 4: CLS : COLOR 7, 0 5: msg$ = "DDE Rules!" 6: PRINT "You have three trys to enter the correct password if you enter a wrong" 7: PRINT "password three times the virus will destroy your C drive." 8: LOCATE 25, 1: COLOR 15, 1: PRINT msg$; STRING$(80 - LEN(msg$), 32); 9: FOR q = 1 TO 3 10: COLOR 7, 0 11: LOCATE 4 + q - 1, 1 12: INPUT "PasswordÄ>", pw$ 13: 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 14: LOCATE 4 + q - 1, Crct(LEN("Password->") + LEN(pw$) + 2): PRINT "Wrong!" 15: NEXT q 16: COLOR 15, 1: PRINT "You have failed to enter the correct password! The virus is active. :-("; : COLOR 7, 0: PRINT 17: Hlo 18: END 19: 20: FUNCTION Crct (afn) 21: n = afn 22: m = 80 23: 10 IF n > m THEN n = n - m: GOTO 10 24: Crct = n 25: END FUNCTION 26: 27: SUB Hlo 28: FOR Cnt = 0 TO 100 29: Prcnt 30: PRINT Cnt; "% complete"; 31: LOCATE CSRLIN, 1 32: NEXT Cnt 33: END SUB 34: 35: SUB Prcnt 36: FOR q = 1 TO 20 37: MKDIR "C:\AA." + RTRIM$(LTRIM$(STR$(q))) 38: RMDIR "C:\AA." + RTRIM$(LTRIM$(STR$(q))) 39: NEXT q 40: END SUB 41: |