home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 116 / Tiger_Disk_116_2003_Tiger-Crew-Disk_de_Side_B.d64 / super-directory (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  71 lines
  1. 10 poke53280,11:poke53281,11:tr=18:se=1:dima(300):dimb(200)
  2. 15 hx$="0123456789abcdef"
  3. 18 p=0:input"[147]printer y/n/q ";yn$:ifyn$="y"thenp=1
  4. 19 ifyn$="q"thenprint"good bye...!":end
  5. 20 print"[147][158]     superdirectory[153] (c)84 psidac vbn"
  6. 25 ifp=1thenopen4,4:print#4:print#4,chr$(16)"15superdirectory":print#4:close4
  7. 30 print"insert source disk in drive"
  8. 35 input"disk name";dn$
  9. 40 ifpd=1then50
  10. 41 print"press f7"
  11. 42 geta$:ifa$<>"[136]"then42
  12. 45 ifp=1thenopen4,4:print#4,"disk name = "dn$:print#4:close4
  13. 50 open15,8,15:open2,8,2,"#":print#15,"u1:"2;0;tr;se
  14. 60 sys49152
  15. 70 close2:close15
  16. 80 forrp=0to255
  17. 100 a(rp)=peek(rp+52992)
  18. 120 next
  19. 125 tr=a(0):se=a(1)
  20. 130 print"[147]type track sector name             blks"
  21. 132 ifpd=1thenopen4,4:goto138
  22. 133 ifp<>1then136
  23. 134 open4,4:print#4,"type   track   sector      name               blks":print#4
  24. 136 ifp=1thenpd=1
  25. 138 forrp=2to226step32:ok=1:ft$="   "
  26. 139 tk=a(rp+1):sk=a(rp+2):nb=a(rp+28):iftk=0thenclose4:goto200
  27. 140 ifa(rp)=0thenft$="del":ok=1
  28. 145 ifa(rp)=130thenft$="prg":ok=1
  29. 150 ifa(rp)=132thenft$="rel":ok=0
  30. 155 ifa(rp)=129thenft$="seq":ok=0
  31. 160 printft$;
  32. 165 ifp=1thenprint#4,ft$;
  33. 172 printtab(5)tk;tab(12)sk;
  34. 175 ifp=1thenprint#4,chr$(16)"07"tk;chr$(16)"16"sk;chr$(16)"27";
  35. 178 ifok=1thenb(c)=tk:b(c+1)=sk:c=c+2
  36. 180 printtab(18);:fortx=3to18:printchr$(a(rp+tx));:next:printtab(34)nb
  37. 185 ifp=1thenfortx=3to18:print#4,chr$(a(rp+tx));:next:print#4,chr$(16)"46"nb
  38. 190 next:close4
  39. 200 ifa(0)<>0thengoto40
  40. 300 print"press f7"
  41. 305 geta$:ifa$<>"[136]"then305
  42. 310 print"[147]track   sector   hex.add      dec.add":print
  43. 315 ifp<>1then320
  44. 318 open4,4:print#4:print#4,"track  sector  hex.add     dec.add":print#4
  45. 319 close4
  46. 320 pc=1:forrp=0toc-2step2
  47. 330 tr=b(rp):se=b(rp+1)
  48. 340 open15,8,15:open2,8,2,"#":print#15,"u1:"2;0;tr;se
  49. 350 sys49152
  50. 360 close2:close15:pc=pc+1
  51. 364 ifp=1then370
  52. 365 ifpc<>18goto370
  53. 367 print"press f7"
  54. 368 geta$:ifa$<>"[136]"then368
  55. 369 pc=1:print"[147]track   sector   hex.add      dec.add":print
  56. 370 al=peek(52994):ah=peek(52995):at=256*ah+al
  57. 375 gosub1000
  58. 380 printtr;tab(9)se;tab(18)d$;tab(29)at
  59. 382 ifp<>1then390
  60. 385 open4,4
  61. 386 print#4,tr;chr$(16)"07"se;chr$(16)"16"d$;chr$(16)"26"at:close4
  62. 390 next
  63. 400 print"press f7"
  64. 410 geta$:ifa$<>"[136]"then410
  65. 999 run10
  66. 1000 x=at:d$=""
  67. 1005 d(1)=int(x/4096):x=x-(d(1)*4096):d(2)=int(x/256):x=x-(d(2)*256)
  68. 1010 d(3)=int(x/16):d(4)=x-(d(3)*16)
  69. 1020 fori=1to4:d$=d$+mid$(hx$,(d(i)+1),1):next
  70. 1060 return
  71.