home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_92-11_1992_-_de_Side_A.d64 / fk.undel (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  139 lines
  1. 10 goto1000
  2. 90 :
  3. 91 :
  4. 92 :
  5. 97 rem *******************
  6. 98 rem * header ausgeben *
  7. 99 rem *******************
  8. 100 print"[147]                 [213]n[196]elete               ";
  9. 110 print" [215]ritten and (c) by [213]li [194]asters in 1992 [153]"
  10. 120 return
  11. 187 :
  12. 188 :
  13. 189 :
  14. 197 rem **********************
  15. 198 rem * directory auslesen *
  16. 199 rem **********************
  17. 200 print"          [199]elesene [198]iles:"
  18. 205 open1,8,15,"i":open2,8,2,"#"
  19. 220 print#1,"u1 2 0 18 0"
  20. 230 gosub600:tr=a
  21. 240 gosub600:se=a
  22. 245 :
  23. 250 dn$="":id$=""
  24. 260 print#1,"b-p 2 143"
  25. 270 fori=0to15:get#2,a$:dn$=dn$+a$:next
  26. 280 print#1,"b-p 2 162"
  27. 290 fori=1to5:get#2,a$:id$=id$+a$:next
  28. 295 :
  29. 299 q=0
  30. 300 print#1,"u1 2 0";str$(tr);str$(se)
  31. 305 a=int(q/8):dt(a)=tr:ds(a)=se
  32. 310 gosub600:tr=a
  33. 320 gosub600:se=a
  34. 330 forj=1to8
  35. 335 print"[145]"q
  36. 340 gosub600:ty(q)=a
  37. 350 gosub600:ft(q)=a
  38. 360 gosub600:fs(q)=a
  39. 370 x$=""
  40. 380 fori=1to16:get#2,a$:x$=x$+a$:next
  41. 390 na$(q)=x$
  42. 400 fori=1to9:get#2,a$:next
  43. 410 gosub600:bl(q)=a
  44. 420 gosub600:bl(q)=bl(q)+a*256
  45. 425 get#2,a$:get#2,a$
  46. 430 q=q+1
  47. 440 next
  48. 450 iftr<>0then300
  49. 460 :
  50. 470 close1:close2
  51. 480 q=q-1
  52. 500 ifna$(q)=""thenq=q-1:goto500
  53. 510 return
  54. 520 :
  55. 521 :
  56. 522 :
  57. 597 rem **************
  58. 598 rem * byte lesen *
  59. 599 rem **************
  60. 600 get#2,a$
  61. 610 ifa$=""then a=0:return
  62. 620 a=asc(a$):return
  63. 780 :
  64. 781 :
  65. 782 :
  66. 997 rem *****************
  67. 998 rem * hauptprogramm *
  68. 999 rem *****************
  69. 1000 dim ty(144),ft(144),fs(144),bl(144),na$(144),dt(18),ds(18),li(144)
  70. 1005 tt$(0)="[196][197][204]":tt$(1)="[211][197][209]":tt$(2)="[208][210][199]":tt$(3)="[213][211][210]":tt$(4)="[210][197][204]"
  71. 1010 poke53280,11:poke53281,11:gosub100
  72. 1020 print"[153][194]eispielprogramm zum [198]loppy-[203]urs [212]eil 6.";
  73. 1030 print"[205]it ihm koennen [211]ie versehentlich"
  74. 1040 print"durch '[211][195][210][193][212][195][200]' geloschte [196]ateien wie-"
  75. 1045 print"derherstellen."
  76. 1050 print"[218]usaetzlich bietet sich die [205]oeglich-"
  77. 1060 print"keit, ein [198]ile vor dem [204]oeschen zu"
  78. 1070 print"schuetzen."
  79. 1074 print"[150]  [194]itte [196]iskette einlegen... [[212]aste]"
  80. 1075 geta$:ifa$=""then1075
  81. 1080 gosub100:print"[153]     [196]irectory wird eingelesen...[150]"
  82. 1090 gosub200
  83. 1095 :
  84. 1100 z=0:gosub100
  85. 1105 fori=0toq
  86. 1110 if(ty(i)and7)=0thenli(z)=i:z=z+1
  87. 1120 next
  88. 1130 :
  89. 1140 ifz>0then1180
  90. 1150 print"[153]  [203]eine [196][197][204]-[198]iles gefunden! [[212]aste]"
  91. 1160 geta$:ifa$=""then1160
  92. 1170 run
  93. 1175 :
  94. 1180 print"[153][199]efundene [197]intraege:";z;"[150]"
  95. 1190 fori=0to(z-1)
  96. 1200 printi")",na$(li(i))
  97. 1210 next
  98. 1220 input"[153][215]elcher [197]intrag ";n
  99. 1230 if(n>=z)or(n<0)then1220
  100. 1235 :
  101. 1240 gosub100:print"[153][218]u retten: [150]";na$(li(n))
  102. 1250 print"[153]0 - [196][197][204]"
  103. 1260 print"1 - [211][197][209]"
  104. 1270 print"2 - [208][210][199]"
  105. 1280 print"3 - [213][211][210]"
  106. 1290 print"4 - [210][197][204]"
  107. 1300 input"[215]elchen [198]iletyp soll ich zuordnen ";t1
  108. 1310 if(n<0)or(n>4)then1300
  109. 1320 print"[198]ile auch schuetzen ([202]/[206]) ?"
  110. 1330 geta$:ifa$=""then1330
  111. 1340 ifa$="j"thent1=t1+64
  112. 1350 t1=t1+128:ty(li(n))=t1
  113. 1360 :
  114. 1370 gosub100:print"[211]chreibe neuen [197]intrag..."
  115. 1380 bl=int(li(n)/8):ei=li(n)-bl*8
  116. 1390 tr=dt(bl):se=ds(bl)
  117. 1400 open1,8,15,"i":open2,8,2,"#"
  118. 1410 print#1,"u1 2 0";tr;se
  119. 1420 po=2+ei*32
  120. 1430 print#1,"b-p 2";po
  121. 1440 print#2,chr$(t1);
  122. 1450 print#1,"u2 2 0";tr;se
  123. 1460 :
  124. 1465 z=0
  125. 1470 print"[194]elege [194]locks neu... "
  126. 1480 tr=ft(li(n)):se=fs(li(n))
  127. 1490 print#1,"b-a 0";tr;se
  128. 1500 print#1,"u1 2 0";tr;se
  129. 1505 z=z+1
  130. 1510 gosub600:tr=a
  131. 1520 gosub600:se=a
  132. 1530 iftr<>0then1490
  133. 1540 close1:close2
  134. 1550 printz;"[194]locks gefunden."
  135. 1560 print"[150][215]eitere [198]iles suchen ([202]/[206]) ?"
  136. 1565 geta$:ifa$=""then1565
  137. 1570 ifa$="n"thenrun
  138. 1580 goto1100
  139.