Advertisement
Guest User

MSX BASIC disk test program

a guest
Sep 11th, 2016
237
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 ON ERROR GOTO 100
  2. 20 CLS
  3. 30 FOR I=0 TO 1439
  4. 40 LOCATE 10,1:PRINT I+1:B$=DSKI$(0,I)
  5. 50 NEXT
  6. 60 END
  7. 70 RESUME  40
  8. 100 E=E+1
  9. 110 LOCATE 10,2:PRINT "ERROR NUMBER "E" AT "I+1
  10. 120 RESUME  40
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement