View qbasic\BCOUNT.BAS

Printer Port Interfacing 1 V1.0

Submitted By: myscripting
Rating:

(Rate It)

File Details

ZIP File Browser

DECLARE SUB delay (duration!)
baseaddress = 888
FOR x = 0 TO 255
OUT baseaddress, x
delay (1)
NEXT x

SUB delay (duration AS SINGLE)
tim = TIMER
DO
LOOP UNTIL (TIMER - tim + 86400) - (INT((TIMER - tim + 86400) / 86400) * 86400) > duration
END SUB

Home About PH Privacy Statement Contact Us Advertise Here

© 1996-2008 CommunityHeaven LLC. All rights reserved. Reproduction in whole or in part, in any form or medium without express written permission is prohibited.
Violators of this policy may be subject to legal action. Please read our Terms Of Use and Privacy Statement for more information.
North American business development: Nicolai Wadstrom. Publisher: Lars Hagelin.