home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / programming / 23-destructor.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1996-10-29  |  1.2 KB  |  56 lines
  1. 10 rem destructor 23
  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 23 on a sector
  8. 30 rem
  9. 70 dimd$(11)
  10. 100 input"[147]enter track,sector";t,s
  11. 110 open15,8,15,"u0>m9"
  12. 120 input#15,zz
  13. 130 ifzz<>31thenprint"1541 drive":goto150
  14. 140 print"1571 drive in 1541 mode"
  15. 150 print#15,"u0>m0"
  16. 160 p=0
  17. 170 print#15,"m-w"chr$(8)chr$(0)chr$(4)chr$(t)chr$(s)chr$(t)chr$(s)
  18. 180 print#15,"m-w"chr$(1)chr$(0)chr$(1)chr$(128)
  19. 190 p=p+1
  20. 200 print#15,"m-r"chr$(1)chr$(0)
  21. 210 get#15,a$
  22. 220 ifa$=""thena$=chr$(0)
  23. 230 a=asc(a$)
  24. 240 ifp=500then430
  25. 250 ifa>127then190
  26. 260 forj=0to11
  27. 270 fori=0to7
  28. 280 readd
  29. 290 d$(j)=d$(j)+chr$(d)
  30. 300 nexti
  31. 310 nextj
  32. 320 i=0
  33. 330 forj=0to11
  34. 340 print#15,"m-w"chr$(i)chr$(5)chr$(8)d$(j)
  35. 350 i=i+8:nextj
  36. 360 print#15,"m-w"chr$(2)chr$(0)chr$(1)chr$(224)
  37. 370 print#15,"m-r"chr$(2)chr$(0)
  38. 380 get#15,a$
  39. 390 ifa$=""thena$=chr$(0)
  40. 400 a=asc(a$)
  41. 410 ifa>127then370
  42. 420 close15:print"finish ...":end
  43. 430 close15:print"error !"
  44. 440 data169,4,133,49,165,58,170,232
  45. 450 data138,133,58,32,143,247,32,16
  46. 460 data245,162,8,80,254,184,202,208
  47. 470 data250,169,255,141,3,28,173,12
  48. 480 data28,41,31,9,192,141,12,28
  49. 490 data169,255,162,5,141,1,28,184
  50. 500 data80,254,184,202,208,250,160,187
  51. 510 data185,0,1,80,254,184,141,1
  52. 520 data28,200,208,244,185,0,4,80
  53. 530 data254,184,141,1,28,200,208,244
  54. 540 data80,254,32,0,254,169,5,133
  55. 550 data49,169,1,76,105,249,234,234
  56.