home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / schreibschutz (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.