Email is: xxcrazyjousterxx@aol.com REQUESTED DATE: Jan 14, 2004 SUBJECT: FREAK OUT DATE: 1-20-04 11:30pm Written by: yochatwitme@yahoo.com FREAKIN OUT(Hacked to Death) 'Hacked to Death 'copyright January 2004 'By Steve M. (All Rights Reserved) '************************************* '* PRESS SPACE BAR REPEATEDLY TO END * '------------------------------------* '* DON'T WORRY THE PROGRAM IS SAFE. * '* THERE IS NO THREAT OF A VIRUS. * '************************************* SCREEN 12 DIM SaveX(500), SaveY(500) RANDOMIZE TIMER luminance = 14 CLS FOR DELAY=1 TO 5000 IF INKEY$=CHR$(27) THEN END IF DELAY/900 = INT(DELAY/900) THEN luminance = 15 GOSUB Flash ELSE luminance = 0 GOSUB Flash END IF NEXT CLS GOTO Garbage Flash: LINE(0,0)-(610,410),luminance, B PAINT(2,2), luminance RETURN Garbage: DO FOR X=1 TO 500 RANDOMIZE TIMER NM = INT(RND * 100) + 1 XR = INT(RND * 69) + 1 YR = INT(RND * 30) + 1 SaveX(X) = XR SaveY(X) = YR CH = INT(RND * 255) COLOR 7 + CYCLE LOCATE YR, XR PRINT CHR$(CH); IF INT(X/100) = X/100 THEN COLOR 14:LOCATE YR, XR:PRINT "SYNTAX ERROR!" ELSE IF ABS(NM) = 5 AND FL < 1 THEN COLOR 13:LOCATE YR,XR:PRINT "DANGER VIRUS!!!" FL=1 END IF END IF NEXT FOR L=500 TO -3-INT(RND*5) COLOR 0:LOCATE YR,XR:LOCATE SaveY(L),SaveX(L):PRINT " "; NEXT FL=0 IF INKEY$<> "" THEN CYCLE=CYCLE+1:IF CYCLE>1 THEN CYCLE=0 CLS END IF LOOP UNTIL INKEY$ = CHR$(32)
