home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8501.d64 / fileprotect (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  190 lines
  1. 360 GOSUB490
  2. 370 GOSUB770
  3. 380 GOSUB570
  4. 390 IFASC(A$)=140THENSYS64738
  5. 400 IFASC(A$)>135ORASC(A$)<133THEN380
  6. 410 IFASC(A$)=134THENP=1
  7. 420 IFASC(A$)=135THENP=0
  8. 430 ONASC(A$)-132GOSUB1470,2080,2080
  9. 440 GOTO370
  10. 450 END
  11. 490 BL$="                    "
  12. 500 POKE53280,9
  13. 510 POKE53281,9
  14. 520 PRINTCHR$(5);
  15. 530 RETURN
  16. 570 A$=""
  17. 580 POKE198,0:WAIT198,255
  18. 590 GETA$
  19. 600 RETURN
  20. 640 OPEN15,8,15,"I0"
  21. 650 OPEN2,8,2,"#"
  22. 660 RETURN
  23. 700 X$=""
  24. 710 GET#2,X$
  25. 720 IFX$=""THENX$=CHR$(0)
  26. 730 RETURN
  27. 770 PRINTCHR$(147);
  28. 780 PRINTSPC(13);"FILEPROTECT 64"
  29. 790 PRINTSPC(12);"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  30. 800 PRINT
  31. 810 PRINTSPC(6);CHR$(18);"SCRATCH-SCHUTZ VON FILES FUER";CHR$(146)
  32. 820 PRINTSPC(13);CHR$(18);"C-64 UND  1541";CHR$(146)
  33. 830 PRINT
  34. 840 PRINTCHR$(144);"        (C) 1984  BY JOCHEN FETTE";CHR$(5)
  35. 850 PRINT:PRINT:PRINT:PRINT
  36. 860 PRINTSPC(10);CHR$(18);" F1 ";CHR$(146);"   DIRECTORY"
  37. 870 PRINT
  38. 880 PRINTSPC(10);CHR$(18);" F3 ";CHR$(146);"   PROTECT"
  39. 890 PRINT
  40. 900 PRINTSPC(10);CHR$(18);" F5 ";CHR$(146);"   UNPROTECT"
  41. 910 PRINT
  42. 920 PRINTSPC(10);CHR$(18);" F8 ";CHR$(146);"   END"
  43. 930 PRINT
  44. 940 PRINT
  45. 950 PRINTSPC(10);"       IHRE WAHL ?";
  46. 960 RETURN
  47. 1000 PRINT
  48. 1010 PRINT"DISK EINLEGEN UND TASTE DRUECKEN . . ."
  49. 1020 GOSUB570
  50. 1030 OPEN15,8,15,"I0"
  51. 1040 INPUT#15,RM
  52. 1050 CLOSE15
  53. 1060 IFRM<>0THEN1140
  54. 1070 GOSUB640
  55. 1080 PRINT#15,"B-R";2;0;18;0
  56. 1090 PRINT#15,"B-W";2;0;18;0
  57. 1100 INPUT#15,RM
  58. 1110 CLOSE15
  59. 1120 CLOSE2
  60. 1130 PRINT
  61. 1140 IFRM<>0ORUE=0THEN1180
  62. 1150 PRINT" TYP  NAME"
  63. 1160 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  64. 1170 UE=0
  65. 1180 IFRM=0THEN1250
  66. 1190 PRINT
  67. 1200 IFRM<>26THENPRINTCHR$(144);"DISK FEHLER !";CHR$(5)
  68. 1210 IFUE=0ANDRM=26THENRM=0:GOTO1250:
  69. 1220 IFRM=26THENPRINTCHR$(144);"SCHREIBSCHUTZ ENTFERNEN !";CHR$(5):
  70. 1230 FORW=1TO1500
  71. 1240 NEXTW
  72. 1250 RETURN
  73. 1290 GOSUB700
  74. 1300 FT=0:FT$=""
  75. 1310 IFASC(X$)=1THENFT=1:FT$="*SEQ "
  76. 1320 IFASC(X$)=2THENFT=2:FT$="*PRG "
  77. 1330 IFASC(X$)=3THENFT=3:FT$="*USR "
  78. 1340 IFASC(X$)=4THENFT=4:FT$="*REL "
  79. 1350 IFASC(X$)=129THENFT=129:FT$=" SEQ "
  80. 1360 IFASC(X$)=130THENFT=130:FT$=" PRG "
  81. 1370 IFASC(X$)=131THENFT=131:FT$=" USR "
  82. 1380 IFASC(X$)=132THENFT=132:FT$=" REL "
  83. 1390 IFASC(X$)=193THENFT=193:FT$=" SEQ<"
  84. 1400 IFASC(X$)=194THENFT=194:FT$=" PRG<"
  85. 1410 IFASC(X$)=195THENFT=195:FT$=" USR<"
  86. 1420 IFASC(X$)=196THENFT=196:FT$=" REL<"
  87. 1430 RETURN
  88. 1470 PRINTCHR$(147)
  89. 1480 PRINTSPC(6);CHR$(18);"D I R E C T O R Y";CHR$(146)
  90. 1490 PRINT
  91. 1500 UE=0
  92. 1510 GOSUB1000
  93. 1520 IFRM<>0THEN1470
  94. 1530 GOSUB640
  95. 1540 T=18:S=1
  96. 1550 BB=0:FB=664
  97. 1560 ZE=0
  98. 1570 PRINT#15,"B-R";2;0;T;S
  99. 1580 PRINT#15,"B-P";2;0
  100. 1590 GOSUB700
  101. 1600 T=ASC(X$)
  102. 1610 GOSUB700
  103. 1620 S=ASC(X$)
  104. 1630 FORI=0TO7
  105. 1640 PRINT#15,"B-P";2;I*32+2
  106. 1650 GOSUB1290
  107. 1660 IFFT=0THEN1930
  108. 1670 PRINT#15,"B-P";2;I*32+30
  109. 1680 GOSUB700
  110. 1690 LB=ASC(X$)
  111. 1700 GOSUB700
  112. 1710 HB=ASC(X$)*256
  113. 1720 BB=HB+LB
  114. 1730 PRINTSTR$(BB)+LEFT$(BL$,5-LEN(STR$(BB)));
  115. 1740 FB=FB-BB
  116. 1750 PRINT#15,"B-P";2;I*32+5
  117. 1760 N$=""
  118. 1770 FORY=0TO15
  119. 1780 GOSUB700
  120. 1790 IFASC(X$)=160THENY=15:GOTO1810
  121. 1800 N$=N$+X$
  122. 1810 NEXTY
  123. 1820 PRINTN$+LEFT$(BL$,20-LEN(N$));FT$
  124. 1830 ZE=ZE+1
  125. 1840 IFZE<15THEN1930
  126. 1850 ZE=0
  127. 1860 PRINT
  128. 1870 PRINT"WEITERE EINTRAEGE"
  129. 1880 PRINT"BITTE TASTE DRUECKEN . . .";
  130. 1890 GOSUB570
  131. 1900 PRINTCHR$(147)
  132. 1910 PRINTSPC(6);CHR$(18);"D I R E C T O R Y";CHR$(146)
  133. 1920 PRINT:PRINT:PRINT:PRINT
  134. 1930 NEXTI
  135. 1940 IFT<>0THEN1570
  136. 1950 CLOSE2
  137. 1960 CLOSE15
  138. 1970 PRINT
  139. 1980 PRINTFB;
  140. 1990 IFFB<>1THENPRINT"   FREIE BLOECKE"
  141. 2000 IFFB=1THENPRINT"   FREIER BLOCK"
  142. 2010 PRINT
  143. 2020 PRINT"TASTE DRUECKEN . . .";
  144. 2030 GOSUB570
  145. 2040 RETURN
  146. 2080 PRINTCHR$(147)
  147. 2090 IFP=1THENPRINTSPC(13);CHR$(18);"P R O T E C T";CHR$(146)
  148. 2100 IFP=0THENPRINTSPC(12);CHR$(18);"U N P R O T E C T";CHR$(146)
  149. 2110 UE=1
  150. 2120 GOSUB1000
  151. 2130 IFRM<>0THEN2080
  152. 2140 GOSUB640
  153. 2150 T=18:S=1
  154. 2160 PRINT#15,"U1 2 0 18",S
  155. 2170 GOSUB700
  156. 2180 T=ASC(X$)
  157. 2190 GOSUB700
  158. 2200 SA=S
  159. 2210 S=ASC(X$)
  160. 2220 FORI=2TO226STEP32
  161. 2230 PRINT#15,"B-P";2;I
  162. 2240 GOSUB1290
  163. 2250 IFFT>128ANDFT<133ANDP=1THENGOSUB2330
  164. 2260 IFFT>192ANDFT<197ANDP=0THENGOSUB2330
  165. 2270 NEXTI
  166. 2280 IFRM=1THENRM=0:PRINT#15,"U2 2 0 18";SA
  167. 2290 IFT<>0THEN2160
  168. 2300 CLOSE2
  169. 2310 CLOSE15
  170. 2320 RETURN
  171. 2330 GOSUB700:GOSUB700
  172. 2340 N$=""
  173. 2350 FORY=0TO15
  174. 2360 GOSUB700
  175. 2370 IFASC(X$)=0THENN$=N$+" "
  176. 2380 IFASC(X$)<>0THENN$=N$+X$
  177. 2390 NEXTY
  178. 2400 IFP=1THENPRINTFT$+" "+N$+"   PROTECT (J/N)";
  179. 2410 IFP=0THENPRINTFT$+" "+N$+" UNPROTECT (J/N)";
  180. 2420 GOSUB570
  181. 2430 IFA$="N"THENPRINT"N":GOTO2510
  182. 2440 IFA$<>"J"THEN2420
  183. 2450 PRINT"J"
  184. 2460 PRINT#15,"B-P";2;I
  185. 2470 IFP=1THENFT=(FTOR64)
  186. 2480 IFP=0THENFT=(FTAND255-64)
  187. 2490 PRINT#2,CHR$(FT);
  188. 2500 RM=1
  189. 2510 RETURN
  190.