SCREEN 12
CLS
'80x30
ROWS% = 28
COLUMNS% = 80
DIM SYMBOL(1 TO ROWS%, 1 TO COLUMNS%) AS STRING
DIM COLORS(1 TO ROWS%, 1 TO COLUMNS%) AS INTEGER
'GENERATE SYMBOLS AND COLORS
RANDOMIZE TIMER
FOR X% = 1 TO ROWS%
FOR Y% = 1 TO COLUMNS% STEP 2
'SYMBOL(X%, Y%) = LTRIM$(STR$(INT(RND * 10))) 'TYPE A MATRIX : NUMBERS
REDUX:                                       '
SYMBOL(X%, Y%) = CHR$(RND * 255)             ' TYPE B MATRIX : SYMBOLS
IF ASC(SYMBOL(X%, Y%)) < 14 THEN GOTO REDUX  '
COLORS(X%, Y%) = (RND * 3 + 1)
NEXT
NEXT
'PRINT TO SCREEN
DO UNTIL INKEY$ <> ""
FOR X% = 1 TO ROWS%
FOR Y% = 1 TO COLUMNS% STEP 2
SELECT CASE COLORS(X%, Y%)
CASE 1
COLOR 0
CASE 2
COLOR 2
CASE 3
COLOR 10
END SELECT
COLORS(X%, Y%) = (RND * 3 + 1)
LOCATE X%, Y%
PRINT SYMBOL(X%, Y%)
NEXT
NEXT
LOOP
DO
LOCATE 10, 34
FOR a = 100 TO 0 STEP -1
time = a / 10
PRINT "System files will be deleted in "; time; " seconds"
IF time = 0 GOTO fail
NEXT
LOOP
fail:
DO
lin = lin + 1
COLOR 4: PRINT "SYSTEM FAILURE"
IF lin = 125 GOTO haha
LOOP





















haha:
COLOR 10
PRINT "Just kidding!"
END