home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / schreibschutz (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  39 lines
  1. 1 REM ********************************
  2. 2 REM **                            **
  3. 3 REM **       SCHREIBSCHUTZ        **
  4. 4 REM **                            **
  5. 5 REM ** (C)'85 BY                  **
  6. 6 REM ** MANFRED LINS               **
  7. 7 REM ** REITACKER 1                **
  8. 8 REM ** 6492 SINNTAL-ZUENTERSBACH  **
  9. 9 REM ********************************
  10. 10 PRINTCHR$(147):REM CLEAR/HOME
  11. 20 X=7:Y=2:GOSUB510
  12. 30 PRINT"D I S K  -  S C H U T Z"
  13. 40 X=2:Y=6:GOSUB510
  14. 50 PRINT"ALTES FORMATKENNZEICHEN :";
  15. 60 OPEN1,8,15,"I":OPEN2,8,2,"#"
  16. 70 PRINT#1,"U1 2 0 18 0"
  17. 80 PRINT#1,"B-P 2 2"
  18. 90 GET#2,AF$: REM ALTES FORMATKENNZ.
  19. 100 PRINTAF$
  20. 110 X=2:Y=9:GOSUB510
  21. 120 PRINT"WIRD GEAENDERT IN   ";
  22. 130 IFAF$="A"THENPRINT"X":GOTO150
  23. 140 PRINT"A"
  24. 150 X=20:Y=9:GOSUB510
  25. 160 INPUTNF$
  26. 170 PRINT#1,"M-W"CHR$(1)CHR$(1)CHR$(1)CHR$(65)
  27. 180 PRINT#1,"B-P 2 2"
  28. 190 PRINT#2,NF$:REM NEUES FORMATKENNZ.
  29. 200 PRINT#1,"U2 2 0 18 0"
  30. 210 CLOSE2:CLOSE1
  31. 220 IFNF$="A"THEND$="  KEIN SCHREIBSCHUTZ !  ":GOTO240
  32. 230 D$="  SCHREIBSCHUTZ AKTIVIERT !  "
  33. 240 X=6:Y=14:GOSUB510
  34. 250 PRINTD$
  35. 260 END
  36. 500 REM ROUTINE ZUM CURSORSETZEN
  37. 510 POKE211,X:POKE214,Y:SYS58640:RETURN
  38. 520 REM UNTERPROGRAMMENDE
  39.