home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Current Shareware 1994 January
/
SHAR194.ISO
/
drawing
/
anssho10.zip
/
ANSISHOW.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-11-03
|
4KB
|
74 lines
'* AUTHOR CORKY CORCORAN (C)
'* IF YOU LIKE IT FINE, IF YOU DON'T DONT BOTHER ME.
'* THIS IS JUST FOR FUN CHANGE IT AS YOU LIKE. LOOK FOR NOTES FOR TIMER
'* CHANGES
'**********************************************************************
'* DETECT COMPUTER SPEED
'**********************************************************************
S! = TIMER ' SET TIME
DO
I! = 1! + 1 ' INCREMENT COUNT
LOOP UNTIL TIMER - S! >= .5 ' UNTIL WE GET A RELATIVE TIME
CALCDELAY = I! ' SAVE IT (COMPUTER SPEED)
'**********************************************************************
'* GET FILE NAME OF ANSI FILES TO BE DISPLAYED
'**********************************************************************
ANSIFILE$ = COMMAND$ ' GET COMMAND LINE
'**********************************************************************
'* DEFAULT TO SHOW.FLE IF NONE ENTERED
'**********************************************************************
IF ANSIFILE$ = "" THEN ANSIFILE$ = "SHOW.FLE" ' IF NONE DEFAULT
'**********************************************************************
'* OPEN A FILE NAME
'**********************************************************************
START.OVER:
OPEN ANSIFILE$ FOR INPUT AS #3 ' OPEN FILE NAMES FILE
'**********************************************************************
'* GET AN ANSI FILE NAME
'**********************************************************************
NEXT.FILE:
LINE INPUT #3, FILENME$ ' GET A FILE NAME
CLS
OPEN FILENME$ FOR INPUT AS #2 ' OPEN THAT FILE NAME
ON ERROR GOTO 0
OPEN "CONS:" FOR OUTPUT AS #1 ' OPEN CONSOLE(DISPLAY SCREEN)
S! = TIMER ' START A TIMER
'**********************************************************************
'* READ AN ANSI FILE
'**********************************************************************
NEXT.LINE:
IF INKEY$ <> "" THEN ' DID THE USER HIT A KEY
CLOSE #2, #1, #3 ' YES, CLOSE
CLS
GOTO ALL.DONE ' WERE DONE
END IF
LINE$ = INPUT$(1, #2) 'GET A CHARACTER
FOR I = 1 TO CALCDELAY * 25: NEXT ' WAIT FOR A WHILE (25)
PRINT #1, LINE$; ' DISPLAY THE CHARACTER
IF EOF(2) THEN GOTO EOF.SHOW ' IS THIS FILE DONE
GOTO NEXT.LINE ' NO DISPLAY ANOTHER CHARACTER
'**********************************************************************
'* DONE WITH THIS FILE
'**********************************************************************
EOF.SHOW:
CLOSE #2, #1 ' CLOSE CONSOLE AND ANSI FILE
DO ' WAIT FOR A RELATIVE AMOUNT
I! = 1! + 1 ' OF TIME (10) HAS EXPIRED TO LET
LOOP UNTIL TIMER - S! >= 10 ' QUICK SCREENS HAVE SOME TIME
CLS
IF EOF(3) THEN GOTO EOJ ' HAS THE FILE LIST ENDED
GOTO NEXT.FILE ' START ALL OVER AGAIN
'**********************************************************************
'* DONE WITH THIS LIST OF FILES
'**********************************************************************
EOJ: ' WERE DONE WITH THIS SET
CLOSE #3 ' CLOSE THE FILE
GOTO START.OVER ' AND DO IT AGAIN
'**********************************************************************
'* DONE EVERY THING
'**********************************************************************
ALL.DONE: ' USER HIT A KEY
CLS ' GO HOME
END