CLEAR
  SUSPENDPAGEBREAK

  ACTION "Viewing a File"

  CLS
  LOC 2,1
  ? "Aspect Technologies 2k � ListFile"
  ? "Press ENTER to quit..."
  ?
  RS E0, "Enter filename or path................: "
  IF E0 = "" GOTO Exit_Script
  IF E0 = " " GOTO Exit_Script
  CHECKFILE F0, E0
  IFVAL F0 = 0 GOTO Exit_Script

  LET Z1 = "+++ File Listed: " % E0
  LOG Z1

  CLS
  ? "�� Aspect Technologies 2k � ListFile ������������������������������������������"
  LET P0 = 0
  OPEN E0, "I"


Loop:
  READ L0
  IF L0 = "!EOF!" GOTO End_Loop
  JL L0, 79
  LET P0 = P0 + 1
  ? "" % L0
  IFVAL P0 <> 21 GOTO templabel1
    LOC 23, 1
    ? "�������������������������������������������������������������������������������"
    RC W1, "[Q]uit � Press any key to continue . . ."
    IF W1 <> "Q" GOTO templabel2
      GOTO End_Loop

    templabel2:
    CLS
    ? "�� Aspect Technologies 2k � ListFile ������������������������������������������"
    LET P0 = 0

  templabel1:
  GOTO Loop


End_Loop:
  CLOSE


Exit_Script:
  RESUMEPAGEBREAK

--
[AT2k] -- Your VBBS/VADV Support Center -- [www.at2k.org] -- [bbs.at2k.org]