10 LET TIMER = 500 20 CONST TIMER = 404 30 LET TIME$ = "TIME OUT" 50 ERDEV = ERDEV + 1 60 DECLARE SUB FNFFF 70 PRINT VAL(a$,1) 80 LEFT$(A$) = "FFF" 90 DIM RR(9E99) 100 IF VAL = 500 THEN STOP 299 FOR F = 1 TO 500 300 FOR G = 1 TO 556 305 NEXT F 306 NEXT G 400 WEND 405 ON ERROR GOSUB 444 406 SUB UCASE$ 407 PRINT SHELL$(500) 500 DIM VAL(500) 600 list 677 OPEN "ccc",284754,"NUL" 700 WHILE RIGHT$ = LEFT$ 800 OPEN "NUL" FOR SIGNAL AS 1 900 ON SIGNAL(1000000) GOTO 50000