home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / drawing / ansdis10.zip / ANSIDIS.BAS < prev    next >
BASIC Source File  |  1993-11-03  |  2KB  |  43 lines
  1. '* AUTHOR CORKY CORCORAN (C)
  2. '* IF YOU LIKE IT FINE, IF YOU DON'T DONT BOTHER ME.
  3. '* THIS IS JUST FOR FUN CHANGE IT AS YOU LIKE. LOOK FOR NOTES FOR TIMER
  4. '* CHANGES
  5. '*********************************************************************
  6. '* DETECT SPEED OF CPU
  7. '*********************************************************************
  8. S! = TIMER                      ' GET TIME
  9. DO
  10.    I! = 1! + 1                  ' INCRIMENT TIMER UNTIL SOME
  11. LOOP UNTIL TIMER - S! >= .5     ' AMOUNT OF TIME HAS PASSED
  12. CALCDELAY = I!                  ' SAVE THAT TIME (COMPUTER SPEED)
  13. CLS
  14. '*********************************************************************
  15. '* GET FILENAME OF INPUT  (DON'T CHECK IT YOU KNOW WHAT YOU ARE DOING)
  16. '*********************************************************************
  17. FILENME$ = COMMAND$             'GET COMMAND LINE(FILE NAME)
  18. '*********************************************************************
  19. '* OPEN FILES
  20. '*********************************************************************
  21. OPEN FILENME$ FOR INPUT AS #2   ' OPEN INPUT ANSI FILE
  22. ON ERROR GOTO 0
  23. OPEN "CONS:" FOR OUTPUT AS #1   ' OPEN SCREEN DISPLAY
  24. '*********************************************************************
  25. '* SEND ANSI CHAR. STRING TO DISPLAY
  26. '*********************************************************************
  27. NEXT.LINE:
  28. LINE$ = INPUT$(1, #2)             ' GET A CHARACTER
  29. FOR I = 1 TO CALCDELAY * 25: NEXT ' WAIT SOME AMOUNT OF TIME (25)
  30. PRINT #1, LINE$;                  ' SEND THE CHAR TO DISPLAY
  31. IF EOF(2) THEN GOTO eoj           ' IS THIS THE LAST CHAR
  32. GOTO NEXT.LINE                    ' NO SEND NEXT CHARACTER
  33. '*********************************************************************
  34. '* DONE CLOSE FILES AND WAITE FOR USER TO END
  35. '*********************************************************************
  36. eoj:                              ' WHERE DONE
  37. CLOSE #2, #1                      ' CLOSE THE FILES
  38. DO                                ' WAIT TILL USER
  39. LOOP WHILE INKEY$ = ""            ' HITS A KEY TO FINISH
  40. CLS
  41. END
  42.  
  43.