home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 80 / 64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64 / dokdeskpack (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  38 lines
  1. 1 poke53280,0:poke53281,0
  2. 2 printchr$(14)"[147]"tab(15)"[194]amdok 7"tab(97)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
  3. 3 print"[194]itte defekte [196]eskpackdiskette "tab(80)"in das [204]aufwerk legen"
  4. 4 print"und eine [212]aste druecken":wait203,64,64:open1,8,15,"i":open2,8,2,"#"
  5. 5 print#1,"u1:"2;0;10;5:print#1,"b-p"2;20:get#2,a$:a=asc(a$+chr$(0))
  6. 6 ifa<>169thenprint"[147]nicht auf dieser [196]isk anwendbar!":close2:close1:end
  7. 7 readn:ifn<0then9
  8. 8 print#1,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto7
  9. 9 on abs(n) goto10,11,14
  10. 10 read lb:goto 7
  11. 11 if si=1 thenprint#1,"u2:";2;0;t;s
  12. 12 read t: read s
  13. 13 print#1,"u1:";2;0;t;s:si=1:goto7
  14. 14 print#1,"u2:";2;0;t;s:print#1,"i"
  15. 15 close2:close1:print"[196]eskpackdiskette nun wieder"tab(80)"verwendbar!"
  16. 16 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
  17. 17 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
  18. 18 data0,0,0,0,0,0,0,0,16,252,253,7,0,0,0,0,0,0,0,0,0,0,0,0,10,210,150,6,19
  19. 19 data255,255,7,19,255,255,7,18,255,255,3,17,127,255,3,15,223,190,3,13,183,187
  20. 20 data1,18,255,255,3,18,255,255,3,17,255,255,1,17,255,255,1,17,255,255,1,17
  21. 21 data255,255,1,17,255,255,1,68,69,83,75,32,80,65,67,75,160,160,160,160,160
  22. 22 data160,160,160,160,68,49,160,50,65,160,160,160,160,19,8,71,69,79,83,32,102
  23. 23 data111,114,109,97,116,32,86,49,46,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  24. 24 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
  25. 25 data0,0,0,0,0,0,0,0,0,0,0,0,-2
  26. 26 data18,1,-1,0,18,9,131,1,16,71,82,65,80,72,73,67,83,32,71,82,65,66,66,69,82
  27. 27 data1,8,0,6,88,4,26,14,37,55,0,0,0,131,12,0,98,108,97,99,107,106,97,99,107
  28. 28 data160,160,160,160,160,160,160,12,13,0,5,88,1,4,16,15,39,0,0,0,131,14,5,99
  29. 29 data97,108,101,110,100,97,114,160,160,160,160,160,160,160,160,14,18,0,5,87
  30. 30 data12,29,16,4,49,0,0,0,131,14,4,73,99,111,110,32,69,100,105,116,111,114,160
  31. 31 data160,160,160,160,14,17,0,6,87,12,15,14,31,44,0,0,0,131,3,3,103,101,111
  32. 32 data68,101,120,160,160,160,160,160,160,160,160,160,160,3,16,0,5,88,4,26,14
  33. 33 data37,83,0,0,0,131,7,19,71,69,79,77,69,82,71,69,160,160,160,160,160,160,160
  34. 34 data160,7,6,1,6,88,7,6,13,6,66,0,0,0,131,27,8,67,111,109,109,111,100,111,114
  35. 35 data101,95,71,69,160,160,160,160,27,5,1,8,87,11,3,11,28,7,0,0,0,0,22,6,27,83
  36. 36 data119,97,112,32,70,105,108,101,160,160,160,160,160,160,22,17,0,13,88,7,6
  37. 37 data13,10,83,0,-3
  38.