home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 80 / 64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64 / dokspell(e) (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  35 lines
  1. 1 poke53280,0:poke53281,0
  2. 2 printchr$(14)"[147]"tab(15)"[194]amdok 6"tab(97)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
  3. 3 print"[194]itte defekte [199]eo[211]pell(engl)[196]isk 2.0"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;18;2:print#1,"b-p"2;162:get#2,a$:a=asc(a$+chr$(0))
  6. 6 ifa<>195thenprint"[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"[199]eo[211]pell(engl)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,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,0
  18. 18 data0,0,0,0,0,0,17,252,255,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  19. 19 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
  20. 20 data0,0,15,239,191,1,17,255,255,1,71,101,111,83,112,101,108,108,32,101,110
  21. 21 data103,108,46,32,160,160,160,73,72,160,50,65,160,160,160,160,19,8,71,69,79
  22. 22 data83,32,102,111,114,109,97,116,32,86,49,46,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  23. 23 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,0
  24. 24 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2,18,1,-1,0,0,255,195,1,16,68,69,83,75,32
  25. 25 data84,79,80,160,160,160,160,160,160,160,160,1,8,1,4,88,10,11,17,2,119,0,0,0
  26. 26 data195,6,11,71,69,79,83,80,69,76,76,160,160,160,160,160,160,160,160,6,3,1,6
  27. 27 data89,4,2,0,23,108,0,0,0,195,11,19,71,101,111,68,105,99,116,105,111,110,97
  28. 28 data114,121,160,160,160,11,11,1,3,88,4,15,11,33,131,1,0,0,195,33,6,73,110,100
  29. 29 data105,101,110,160,160,160,160,160,160,160,160,160,160,11,3,1,7,88,7,6,13,17
  30. 30 data17,0,0,0,0,35,7,33,46,44,37,41,52,53,46,39,160,160,160,160,160,160,160,35
  31. 31 data0,1,7,88,7,6,13,45,2,0,0,0,0,128,34,1,91,83,55,33,48,32,70,41,44,37,160
  32. 32 data160,160,160,160,160,34,10,0,13,88,7,6,13,41,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  33. 33 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,0
  34. 34 data0,0,0,0,0,0,0,0,0,0,0,0,0,-3
  35.