home *** CD-ROM | disk | FTP | other *** search
- 5 CLS:PRINT "DOWNLOADING TIMER EVENT ":PRINT
- 10 GOSUB 20000
- 20 INPUT "ENTER THE ADDRESS (0-127)";ADDRESS
- 30 FOR X=0 TO 7
- 40 PRINT "ENTER DATA FOR BYTE ";20+X;:INPUT TIM (X, ADDRESS): NEXT X
- 50 GOSUB 20800 :IF STATUS =-1 THEN PRINT " *** ERROR *** ":END
- 60 PRINT " DONE ":END
-