home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / programming / 22-destructor.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1996-10-29  |  510 b   |  22 lines
  1. 10 rem destructor 22
  2. 11 rem
  3. 12 rem by olivier peyoux
  4. 13 rem published in 1986 in microdor
  5. 14 rem a french cbm magazine
  6. 15 rem
  7. 20 rem create an error 22 on a sector
  8. 30 rem
  9. 70 input"[147]enter track,sector";t,s
  10. 90 open15,8,15,"u0>m9"
  11. 100 input#15,zz
  12. 110 ifzz<>31thenprint"1541 drive":goto140
  13. 120 print"1571 drive in 1541 mode"
  14. 130 print#15,"u0>m0"
  15. 140 print#15,"m-w"chr$(8)chr$(0)chr$(2)chr$(t)chr$(s)
  16. 150 print#15,"m-w"chr$(1)chr$(0)chr$(1)chr$(128)
  17. 160 print#15,"m-w"chr$(71)chr$(0)chr$(1)chr$(6)
  18. 170 print#15,"m-w"chr$(8)chr$(0)chr$(2)chr$(t)chr$(s)
  19. 180 print#15,"m-w"chr$(1)chr$(0)chr$(1)chr$(144)
  20. 190 print#15,"m-w"chr$(71)chr$(0)chr$(1)chr$(7)
  21. 200 close15
  22.