home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 June / 64er_Magazin_91-06_1991_Markt__Technik_de.d64 / diskmonitor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  53 lines
  1. 0 rem diskmonitor von johannes timmer tel. 02821/48154
  2. 1 forz=49152to49335:reada:pokez,a:next
  3. 3 open1,8,15:print"[155][147]":poke53281,0:poke53280,0:t=18:gosub40
  4. 10 gosub90:ifa=17thener=80:gosub30
  5. 11 ifa=145thener=0:gosub30
  6. 12 ifa$="t"theninput"track";t:gosub31:a$="s"
  7. 13 ifa$="s"theninput"sector";s:gosub31
  8. 14 b=peek(49408):ifa$="n"andb>0andb<44thent=peek(49408):s=peek(49409):a$="r"
  9. 15 ifa$="r"thengosub40
  10. 16 ifa$="w"thenls=144:gosub20:print:gosub33
  11. 17 ifa$="m"thengosub50
  12. 19 goto10
  13. 20 print#1,"m-w"chr$(6)chr$(0)chr$(2)chr$(t)chr$(s)
  14. 22 print#1,"m-w"chr$(0)chr$(0)chr$(1)chr$(ls)
  15. 24 print#1,"m-r"chr$(0)chr$(0)chr$(1):get#1,a$:f=asc(a$):iff>127goto24
  16. 25 iff=11thenprint#1,"i":goto20
  17. 26 return
  18. 30 print"";:poke2,er:sys49213:print
  19. 31 print"[145]           "
  20. 33 print"track:"t"[157]    sector:"s"[157]    error:"f"[157]   "
  21. 34 print"read, write, modify, next[145][145][145]":return
  22. 40 ls=128:gosub20:print#1,"m-r"chr$(0)chr$(3)chr$(0):sys49152:gosub30:return
  23. 50 poke182,y:poke189,x*3+4:ifm=1thenpoke189,x+30
  24. 51 sys49174:sys49204:gosub90:b=aand127:sys49204
  25. 52 ifa=13thengosub30:return
  26. 53 ifm=1andb>31andb<91thenpoke189,x*3+4:sys49174:poke780,a:sys49316:gosub65
  27. 54 ifm=0and((a>47anda<58)or(a>64anda<71))thengosub60
  28. 55 ifa=29thenx=x+1:ifx>7thenm=1-m:x=0
  29. 56 ifa=157thenx=x-1:ifx<0thenm=1-m:x=7
  30. 57 ifa=17theny=y+1:ify>21theny=21:ifer=0thener=80:y=12:gosub30
  31. 58 ifa=145theny=y-1:ify<0theny=0:iferthener=0:y=9:gosub30
  32. 59 goto50
  33. 60 printa$;:ifa>64thena=a-7
  34. 61 b=(a-48)*16:sys49204
  35. 62 gosub90:ifnot((a>47anda<58)or(a>64anda<71))goto62
  36. 63 sys49204:printa$;:ifa>64thena=a-7
  37. 64 a=b+(a-48)
  38. 65 b=x+y*8+er:poke49408+b,a:print#1,"m-w"chr$(b)chr$(3)chr$(1)chr$(a)
  39. 66 poke189,x+30:sys49174:b=aand127:ifb<32thena=46
  40. 68 printchr$(a):a=0:x=x+1:ifx>7thenx=0:a=17
  41. 69 return
  42. 90 geta$:ifa$thena=asc(a$):return
  43. 91 goto90
  44. 200 data162,1,32,198,255,162,0,32,62,241,157,0,193,232,208,247,162,1,32,204,255
  45. 201 data96,169,19,32,210,255,169,17,166,182,240,6,32,210,255,202,208,250,169,29
  46. 202 data166,189,240,6,32,210,255,202,208,250,96,164,211,177,209,73,128,145,209
  47. 203 data96,165,2,141,0,194,173,0,194,170,24,105,8,141,1,194,138,32,164,192,169
  48. 204 data32,32,210,255,189,0,193,32,164,192,232,236,1,194,208,244,174,0,194,169
  49. 205 data32,32,210,255,32,210,255,189,0,193,168,41,127,201,32,176,4,169,46,208,1
  50. 206 data152,32,210,255,232,236,1,194,208,232,169,13,32,210,255,173,1,194,141,0
  51. 207 data194,56,229,2,201,176,144,172,96,24,105,48,201,58,144,2,105,6,32,210,255
  52. 208 data96,168,74,74,74,74,32,151,192,152,41,15,32,151,192,169,32,32,210,255,96
  53.