home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Current Shareware 1994 January
/
SHAR194.ISO
/
drawing
/
ansdis10.zip
/
ANSIDIS.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-11-03
|
2KB
|
43 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 SPEED OF CPU
'*********************************************************************
S! = TIMER ' GET TIME
DO
I! = 1! + 1 ' INCRIMENT TIMER UNTIL SOME
LOOP UNTIL TIMER - S! >= .5 ' AMOUNT OF TIME HAS PASSED
CALCDELAY = I! ' SAVE THAT TIME (COMPUTER SPEED)
CLS
'*********************************************************************
'* GET FILENAME OF INPUT (DON'T CHECK IT YOU KNOW WHAT YOU ARE DOING)
'*********************************************************************
FILENME$ = COMMAND$ 'GET COMMAND LINE(FILE NAME)
'*********************************************************************
'* OPEN FILES
'*********************************************************************
OPEN FILENME$ FOR INPUT AS #2 ' OPEN INPUT ANSI FILE
ON ERROR GOTO 0
OPEN "CONS:" FOR OUTPUT AS #1 ' OPEN SCREEN DISPLAY
'*********************************************************************
'* SEND ANSI CHAR. STRING TO DISPLAY
'*********************************************************************
NEXT.LINE:
LINE$ = INPUT$(1, #2) ' GET A CHARACTER
FOR I = 1 TO CALCDELAY * 25: NEXT ' WAIT SOME AMOUNT OF TIME (25)
PRINT #1, LINE$; ' SEND THE CHAR TO DISPLAY
IF EOF(2) THEN GOTO eoj ' IS THIS THE LAST CHAR
GOTO NEXT.LINE ' NO SEND NEXT CHARACTER
'*********************************************************************
'* DONE CLOSE FILES AND WAITE FOR USER TO END
'*********************************************************************
eoj: ' WHERE DONE
CLOSE #2, #1 ' CLOSE THE FILES
DO ' WAIT TILL USER
LOOP WHILE INKEY$ = "" ' HITS A KEY TO FINISH
CLS
END