Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 10 ON ERROR GOTO 100
- 20 CLS
- 30 FOR I=0 TO 1439
- 40 LOCATE 10,1:PRINT I+1:B$=DSKI$(0,I)
- 50 NEXT
- 60 END
- 70 RESUME 40
- 100 E=E+1
- 110 LOCATE 10,2:PRINT "ERROR NUMBER "E" AT "I+1
- 120 RESUME 40
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement