home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / DOSIT54.ARC / LOCK (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  54 lines
  1. 100 REM:LOCK/UNLOCK
  2. 110 :
  3. 290 DI=18:AB=19
  4. 295 PRINT"[147]":POKE53265,27
  5. 300 PRINT"[147]"TAB(10)"*** LOCK - UNLOCK[146] ***"
  6. 310 INPUT"L[146]OCK OR U[146]NLOCK  L[157][157][157]";C$
  7. 320 C$=LEFT$(C$,1):AK$=CHR$(34)
  8. 330 IFC$<>"L"ANDC$<>"U"THEN300
  9. 340 PRINT"[145]";TAB(16);:OS=0
  10. 350 IFC$="L"THENAC$="LOCK":PRINTAC$:OS=64:GOTO370
  11. 360 AC$="UNLOCK":PRINTAC$
  12. 370 O1=64-OS
  13. 380 INPUT"WHICH FILE  *[157][157][157]";F$
  14. 390 IFF$="*"THENPRINT"[145][145]";:GOTO380
  15. 400 D=0
  16. 420 INPUT"TYPE OF FILE  PRG[157][157][157][157][157]";TY$
  17. 430 TY=128-(TY$="SEQ")-2*(TY$="PRG")-3*(TY$="USR")-4*(TY$="REL")
  18. 450 IFTY=128THENPRINT"[145]";:GOTO420
  19. 460 :
  20. 490 OPEN15,8,15:NL$=CHR$(0):N$=F$
  21. 500 OPEN2,8,2,"#":GET#2,A$
  22. 540 PRINT"LOOK FOR "TY$" FILE "AK$F$AK$
  23. 560 FORS=1TOAB
  24. 600 PRINT#15,"U1:";2;0;DI;S
  25. 610 FORI=0TO7
  26. 620 PRINT#15,"B-P:";2;(2+32*I)
  27. 630 GET#2,FT$
  28. 640 IFFT$=""THENFT$=NL$
  29. 650 FT=ASC(FT$):IFFT<>TY+O1THEN770
  30. 690 H$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":F$=LEFT$(F$+H$,16)
  31. 700 PRINT#15,"B-P:";2;(5+32*I)
  32. 710 W$=""
  33. 720 FORQ=1TO16
  34. 730 GET#2,A$:IFA$=""THENA$=NL$
  35. 740 W$=W$+A$
  36. 750 NEXTQ
  37. 760 IFF$=W$THEN800
  38. 770 NEXTI
  39. 780 NEXTS:PRINT""TY$" FILE "AK$N$AK$" NOT FOUND[146]":GOTO940
  40. 800 PRINT"FOUND: "AK$N$AK$" ,"AC$
  41. 840 I1=I:S1=S
  42. 890 PRINT#15,"B-R:";2;0;DI;S1
  43. 900 PRINT#15,"B-P:";2;(2+32*I1)
  44. 910 PRINT#2,CHR$(TY+OS);
  45. 920 PRINT#15,"U2:";2;0;DI;S1
  46. 940 CLOSE2:CLOSE15
  47. 1000 GETWE$:PRINT"[145][145]INSERT DOSIT V5.0 DISK AND PRESS ANY KEY":IFWE$=""THEN1000
  48. 1005 PRINT"[147]"
  49. 1010 PRINT""
  50. 1015 POKE53265,11
  51. 1020 PRINT"LOAD"+CHR$(34)+"DOSIT5.0" +CHR$(34);:PRINT",8,1[145][145][145]"
  52. 1040 POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13:POKE198,5
  53. 2000 END
  54.