home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / schreibschutz (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  469b  |  18 lines
  1. 10 open15,8,15,"i":open2,8,2,"#"
  2. 20 print#15,"u1 2 0 18 0"
  3. 30 print#15,"b-p 2 2":get#2,fo$
  4. 50 print"[147]   altes formatzeichen = ";fo$
  5. 55 iffo$="a"thenx$="x"
  6. 56 iffo$<>"a"thenx$="a"
  7. 60 print"   neues formatzeichen = ";x$;"[157]";
  8. 70 poke198,0:wait198,1
  9. 80 a$=x$:getx$:ifx$=chr$(13)thenx$=a$:goto90
  10. 85 printx$
  11. 90 iffo$="a"then200
  12. 100 print#15,"m-w"chr$(1)chr$(1)chr$(1)chr$(65)
  13. 200 print#15,"b-p 2 2":print#2,x$;
  14. 220 print#15,"u2 2 0 18 0":print
  15. 230 ifx$="a"thenprint"   schreibschutz entfernt"
  16. 240 ifx$<>"a"thenprint"   schreibschutz aktiviert"
  17. 250 print#15,"i":close2:close15
  18.