CLS
RANDOMIZE TIMER
SCREEN 12
LOCATE 13, 35
PRINT "Line Angel"
PRINT TAB(29); "Prees any key to Start"
PRINT TAB(32); "Prees Esc to end"
DO: LOOP UNTIL INKEY$ <> ""
CLS
LOCATE 15, 25
INPUT "Input Time(s)>>>"; time
CLS
FOR i = 1 TO 100
  LOCATE 13, 36
  PRINT "Loading...."
  PRINT TAB(16); STRING$(i \ 2, 221)
  PRINT TAB(39); LTRIM$(STR$(i)); "%"
  FOR j = 1 TO (time \ 200 + 1) * 40000
    IF INKEY$ = CHR$(27) THEN END
  NEXT j
NEXT i
pl = TIMER
CLS
x = 10: y = 400: a = 1
DO
  p = INT(RND * 4) + 1
  SELECT CASE p
    CASE 1
      LINE (x, x)-(y, y), a, B
    CASE 2
      LINE (x, x)-(y, y), a, BF
    CASE 3
      LINE (x, y)-(y, x), a
    CASE ELSE
      b = INT(RND * 5000) + 100
      CIRCLE (x, y), b, a
  END SELECT
  x = INT(RND * 500) + 10
  y = INT(RND * 500) + 10
  a = INT(RND * 15) + 1
  IF INKEY$ = CHR$(27) THEN END
  i = i + 1
  LOCATE 14, 70: PRINT i
LOOP UNTIL INKEY$ = CHR$(27) OR TIMER - pl >= time
END