home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 80 / 64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64 / dokutilities (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  37 lines
  1. 1 poke53280,0:poke53281,0
  2. 11 printchr$(14)"[147]"tab(15)"[194]amdok 16"tab(97)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
  3. 21 print"[194]itte defekte [213]tilities [196]iskette"tab(80)"in das [204]aufwerk legen"
  4. 31 print"und eine [212]aste druecken":wait203,64,64:open1,8,15,"i":open2,8,2,"#"
  5. 41 print#1,"u1:"2;0;18;9:print#1,"b-p"2;118:get#2,a$:a=asc(a$+chr$(0))
  6. 51 ifa<>20thenprint"[147]nicht auf dieser [196]isk anwendbar!":close2:close1:end
  7. 61 readn:ifn<0then81
  8. 71 print#1,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto61
  9. 81 on abs(n) goto91,101,131
  10. 91 read lb:goto 61
  11. 101 if si=1 thenprint#1,"u2:";2;0;t;s
  12. 111 read t: read s
  13. 121 print#1,"u1:";2;0;t;s:si=1:goto61
  14. 131 print#1,"u2:";2;0;t;s:print#1,"i"
  15. 141 close2:close1:print"[213]tilities [196]iskette nun wieder"tab(80)"verwendbar!"
  16. 151 data-2,18,0,-1,0,18,1,65,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  17. 161 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  18. 171 data0,0,0,0,0,0,0,0,15,252,253,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  19. 181 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,255,191,1,17
  20. 191 data255,255,1,17,255,255,1,17,255,255,1,17,255,255,1,71,82,65,70,73,75,58
  21. 201 data32,50,32,118,111,110,32,50,160,160,160,68,66,48,50,55,160,160,160,160
  22. 211 data19,8,71,69,79,83,32,102,111,114,109,97,116,32,86,49,46,48,0,0,0,0,0,0,0
  23. 221 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  24. 231 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2,18,1,-1,0,18,9,195
  25. 232 data1,16,50,45,65,160,160,160,160,160,160
  26. 241 data160,160,160,160,160,160,160,1,8,1,7,88,7,6,1,0,29,0,0,0,195,2,2,50,45
  27. 251 data66,160,160,160,160,160,160,160,160,160,160,160,160,160,2,15,1,7,88,7
  28. 261 data6,1,0,53,0,0,0,195,4,6,50,45,67,160,160,160,160,160,160,160,160,160,160
  29. 271 data160,160,160,4,19,1,7,88,7,6,1,0,13,0,0,0,195,5,8,50,45,68,160,160,160
  30. 281 data160,160,160,160,160,160,160,160,160,160,5,0,1,7,88,7,6,16,20,32,0,0,0
  31. 291 data195,7,11,50,45,69,160,160,160,160,160,160,160,160,160,160,160,160,160
  32. 301 data7,3,1,7,88,7,6,1,0,38,0,0,0,195,8,19,50,45,70,160,160,160,160,160,160
  33. 311 data160,160,160,160,160,160,160,8,6,1,7,88,7,6,1,0,42,0,0,0,195,10,19,50
  34. 321 data45,71,160,160,160,160,160,160,160,160,160,160,160,160,160,10,11,1,7,88
  35. 331 data7,6,1,0,17,0,0,0,195,11,19,50,45,72,160,160,160,160,160,160,160,160
  36. 341 data160,160,160,160,160,11,11,1,7,88,7,6,1,0,25,0,-3
  37.