home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / programming / 21-destructor.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1996-10-29  |  707 b   |  35 lines
  1. 10 rem destructor 21
  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 21 on a whole
  8. 25 rem track !!
  9. 30 rem
  10. 70 input"enter track";t
  11. 80 open15,8,15,"u0>m9"
  12. 90 input#15,zz
  13. 100 if zz<>31 then print"1541 drive":goto 130
  14. 110 print"1571 drive in 1541 mode"
  15. 120 print#15,"u0>m0"
  16. 130 fori=0to23
  17. 140 readd
  18. 150 d$=d$+chr$(d)
  19. 160 nexti
  20. 170 print#15,"m-w"chr$(0)chr$(4)chr$(24)d$
  21. 180 print#15,"m-w"chr$(8)chr$(0)chr$(2)chr$(p)chr$(0)
  22. 190 print#15,"m-w"chr$(1)chr$(0)chr$(1)chr$(224)
  23. 200 z=z+1
  24. 210 print#15,"m-r"chr$(1)chr$(0)
  25. 220 get#15,a$
  26. 230 if a$=""then a$=chr$(0)
  27. 240 a=asc(a$)
  28. 250 if z=500 goto 280
  29. 260 if a>127 then 200
  30. 270 print"done ...":close15:end
  31. 280 print"error !":close15
  32. 290 data 32,163,253,169,85,141,1,28,162
  33. 300 data 255,160,48,32,201,253,32,0,254
  34. 310 data 169,1,76,105,249,234
  35.