1: DECLARE SUB Delay (N!) 2: DECLARE SUB disscrn () 3: DIM a AS STRING 4: DIM B AS STRING 5: DIM C AS INTEGER 6: a = "!!!!" 7: SCREEN 0 8: COLOR 2 9: COLOR , 4 10: PRINT "The virus is upon you "; a 11: PRINT "Infecting files like CanCer "; a 12: PRINT "Dialing up NuKe."; 13: Delay 1000 14: PRINT "."; 15: Delay 1000 16: PRINT "."; 17: Delay 1000 18: PRINT 19: PRINT "Connecting to the underground..."; 20: Delay 3000 21: PRINT "Connected "; a 22: Delay 1000 23: COLOR , 0 24: CLS 25: PRINT "Online :" 26: PRINT 27: PRINT "Acid Burn" 28: PRINT "Crash Override" 29: PRINT "-----------------------------------" 30: PRINT "Crash Override ¯MESS WITH THE BEST" 31: PRINT "Crash Override ¯DIE LIKE THE REST" 32: Delay 7000 33: COLOR 2 34: CLS 35: PRINT 36: PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ" 37: PRINT " ÛÛ ÛÛ" 38: PRINT " ÛÛ ÛÛ" 39: PRINT " ÛÛ ÜÜÜ ÜÜÜ ÛÛ" 40: PRINT " ÛÛ Û Û Û Û ÛÛ" 41: PRINT " ÛÛ ßßß ßßß ÛÛ" 42: PRINT " ÛÛ Ü ÛÛ" 43: PRINT " ÛÛ ÛÛ" 44: PRINT " ÛÛ ÜÜÜÜÜÜ ÛÛ" 45: PRINT " ÛÛ ÛßÜßÜßÜÛ ÛÛ" 46: PRINT " ÛÛ ßßßßßß ÛÛ" 47: PRINT " ÛÛ ÛÛ" 48: PRINT " ßßßßßßßßß" 49: PRINT 50: PRINT " Connection Termenated by Acid Burn..."; a 51: Delay 3000 52: LOCATE 1, 1 53: B = "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ" 54: C = 1 55: COLOR 18 56: 'DO 57: 'PRINT B 58: 'Delay 500 59: 'C = C + 1 60: 'LOOP UNTIL C = 20 61: disscrn 62: Delay 10000 63: END 64: 65: SUB Delay (N) 66: N = N / 1000 67: a = TIMER + N 68: DO UNTIL TIMER >= a: LOOP 69: END SUB 70: 71: SUB disscrn 72: DIM usd(25, 80) AS INTEGER 73: FOR q = 1 TO 79 74: FOR w = 1 TO 25 75: 11 RANDOMIZE TIMER 76: x% = INT(RND * 25) + 1 77: y% = INT(RND * 79) + 1 78: IF usd(x%, y%) = 1 THEN GOTO 11 79: LOCATE x%, y%: PRINT "Û"; 80: usd(x%, y%) = 1 81: NEXT w, q 82: END SUB 83: |