home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 147 / Tiger_Disk_147_19xx_Tiger-Crew-Disk_de_Side_B.d64 / diskhelfer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  111 lines
  1. 10 printchr$(147):poke53280,.:poke53281,.:poke53265,80:
  2. 15 gosub1000
  3. 100 print"----------------------------------------"
  4. 101 open5,0:print">auswahl<  (m = menue):  ";:input#5,a$:close5
  5. 120 ifa$="m"then gosub1000:goto240
  6. 130 ifa$="f"thengosub2000:goto240
  7. 140 ifa$="i"thengosub3000:goto240
  8. 150 ifa$="v"thengosub4000:goto240
  9. 160 ifa$="k"thengosub5000:goto240
  10. 170 ifa$="r"thengosub6000:goto240
  11. 180 ifa$="s"thengosub7000
  12. 190 ifa$="h"thengosub8000:goto240
  13. 200 ifa$="id"thengosub8500:goto240
  14. 210 ifa$="$"thengosub9000:goto240
  15. 220 ifa$="e"then10000:goto240
  16. 225 ifa$="@"thengosub11000:goto240
  17. 226 ifa$="dv"thengosub12000:goto240
  18. 230 print" [194][197][198][197][200][204]  ";a$;" [213][206][194][197][203][193][206][206][212] ":print" anwendbare befehle: ":gosub1000
  19. 240 goto100
  20. 1000 a=20:
  21. 1005 poke53283,peek(53284):    :poke56325,1
  22. 1010 print"[147] [194][197][198][197][200][204][197] "
  23. 1020 print"formatieren           f "
  24. 1030 print"initialisieren        i "
  25. 1040 print"validate              v "
  26. 1050 print"datei kopieren        k "
  27. 1060 print"dateinamen aendern    r "
  28. 1070 print"disknamen aendern     h "
  29. 1080 print"id aendern            id"
  30. 1090 print"directory zeigen      $ "
  31. 1100 print"datei loeschen        s "
  32. 1110 print"status anzeigen       @ "
  33. 1115 print"lw-abfrage            dv"
  34. 1120 print"menue                 m "
  35. 1130 print"ende                  e "
  36. 1140 :poke56325,55:   return
  37. 2000 print"[147]diskette  formatieren"
  38. 2001 print"====================="
  39. 2010 print"diskname, id ":inputn$,id$
  40. 2020 open2,8,15:print"disk wird formatiert"
  41. 2030 ifid$=""thenprint#2,"n0:"+n$:goto2050
  42. 2040 print#2,"n0:"+n$+","+id$
  43. 2050 close2:print"formatierung bendet":return
  44. 3000 "[147]disk wird initialisiert"
  45. 3010 open2,8,15,"i0":close2
  46. 3020 print"initialisierung beendet":return
  47. 4000 print"[147][146] validate [157][157][157][157][157][157][157][157][157][157]----------"
  48. 4001 :fort=1to750:next:print"validate erfolgt..."
  49. 4010 open2,8,15,"v0":close2
  50. 4020 print"[147] validate ausgefuehrt":return
  51. 5000 print" datei kopieren [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]----------------"
  52. 5020 input" datei-name";n$
  53. 5030 print" 'save'-name"
  54. 5040 inputn1$
  55. 5050 print" file "n$" wird kopiert"
  56. 5060 open2,8,15,"c0:"+n1$+"="+n$:close2
  57. 5070 print" vorgang abgeschlossen":return
  58. 6000 print" datei umbenennen [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]------------------"
  59. 6010 print" datei-name alt:":inputn$
  60. 6020 print" datei-name neu:":inputn1$
  61. 6030 :
  62. 6040 open2,8,15,"r0:"+n1$+"="+n$:close2
  63. 6050 print" name (alt) "n$" umbenannt in "n1$:return
  64. 7000 print"[147] datei loeschen [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]----------------"
  65. 7010 poke19,1:print" datei-name: ":inputn$:poke19,0
  66. 7020 print" datei "n$" wirklich loeschen? <j/n> "
  67. 7030 getl$:ifl$="n"thenreturn
  68. 7040 ifl$<>"j"then7030
  69. 7050 print" datei "n$" wird geloescht!"
  70. 7060 open2,8,15,"s0:"+n$:close2
  71. 7070 return
  72. 8000 print"[147] disk-namen aendern [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]---------------------"
  73. 8005 open15,8,15:print#15,"i"+ht$:open1,8,3,"#":print#15,"u1:3"ht",18,0"
  74. 8010 print#15,"b-p:3,144":hn$="":forn=1to16:get#1,a$:hn$=hn$+a$:next
  75. 8020 print" disketten-name alt:[160]  "hn$:print"[146]"
  76. 8030 poke19,1:input"disketten-name neu:   ";h$:print"[154][146]" :poke19,0
  77. 8040 h$=left$(h$+"                ",16)
  78. 8050 print#15,"b-p:3,144":print#1,h$:print#15,"u2:3"ht",18,0"
  79. 8060 i$="i"+mid$(str$(ht),2):print#15,i$
  80. 8070 print"name geaendert":close1:close15:return
  81. 8500 print"[147] disk-id aendern [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]-----------------"
  82. 8505 open15,8,15:print#15,"i"+it$:open1,8,3,"#":print#15,"u1:3"it",18,0"
  83. 8510 print#15,"b-p:3,162":get#1,a$,b$,c$,d$":?"disk-id: "a$b$
  84. 8520 [151]19,1:[133]" neue id-nummer":id$:[139][195](id$)[179][177]4[167]id$[178][200](id$[170]"  ",5)
  85. 8530 [152]15,"b-p:3,162":[152]1,id$;:[152]15,u2"3;0;18;0
  86. 8700 goto8060
  87. 9000 print"[147] directory [157][157][157][157][157][157][157][157][157][157][157]-----------"
  88. 9020 open1,8,0,"$0"
  89. 9030 get#1,a$,b$
  90. 9040 get#1,a$,b$
  91. 9050 get#1,a$,b$
  92. 9055 d=0
  93. 9060 ifa$<>""thend=asc(a$)
  94. 9070 ifb$<>""thend=d+asc(b$)*256
  95. 9080 print;"[156]"mid$(str$(d),2);tab(5):print" [146][151]";
  96. 9090 get#1,b$:ifstthen9180
  97. 9100 ifb$<>chr$(34)then9090
  98. 9110 get#1,b$:ifb$<>chr$(34)thenprintb$;:goto9110
  99. 9120 get#1,b$:ifb$=chr$(32)then9120
  100. 9130 printtab(23);:d$=""
  101. 9140 d$=d$+b$:get#1,b$:ifb$<>""then9140
  102. 9150 print""left$(d$,3)
  103. 9160 :
  104. 9170 ifst=0then9040
  105. 9180 print" blocks free":close1:return
  106. 10000 gosub11000:poke198,0:wait198,1:poke198,0:sys2048
  107. 11000 print"[146][147]  status [157][157][157][157][157][157][157][157][157] --------"
  108. 11030 open1,8,15: input#1,a,b$,c,d
  109. 11040 print"fehler in "a"("b$")"
  110. 11050 close1:return
  111.