ZENO/CIPHER/PASSWORD LOCK|COMBO LOCKPRG  "COMBO LOCK" PRG BLOCKS FREE. @AJ~JAjJJJ~J~J)~jJJJHӥT J$?K"* ZENO CIPHER *":"* AFTER READY TYPE TEXT ON SCREEN AND RUN"~" FOLLOWING LINES...":"-> ENCIPHER RUN 100""-> DECIPHER RUN 200":"-> PRINT SCREEN PRESS F1":"---------" "*** IF YOU INTEND TO PRINT MAKE ":"SURE PRINTER IS ON FIRST :)"3 "* PRESS RETURN TO CLEAR SCREEN..."G Z1$:Z1$""8Y Z1$""300d "":q d 2023,1 i I1024 2023 nA1(I) x(A11)(A114)G1A1A1:I,G1 (A114)(A126)G1A1A125:I,G1 A126G11:I,G1 I Z2$:Z2$""145" Z2$""300( 2 ***> 2023,AJ 2023,A^ I1024 2023j A1(I)z A126240 A12(A12)0I,A12 A12(A12)0I,((A11)2)13 A11 I,26 I Z3$:Z3$""260 Z3$""300  , 64,4 @Y00 JX1024 2023N TL1(X):L1128L1L1128q ^(L132)(L195)L1L164:370 h(L163)(L196)L1L1128 r4,(L1); |YY1 Y404:Y0 X 4:4  d**FILE ENCRYPT/DECRYPT***-n1 d**FILE ENCRYPT/DECRYPT***-n15,8,15Rx "SOURCE FILE NAME, TYPE";F$,T$m 5,8,5,F$","T$",R"w1000 "DESTINATION FILE NAME";F$6,8,6,F$","T$",W"1000"PASSWORD:";P$:"""WAIT..." NO PASSWARD FORCES ZERO VALUE KEY-NO ENCRYPT6 P$"" PL1:P(1)0:250D P((P$))T PL1(P$)l P(PL)((P$,PL,1))r **BEGINNING COPY LOOP*** #5,C$:C$""C$(0) SXST II1 IPL1I1 "C(C$) ,DP(I) 1**C XOR D SAME AS (C AND NOT D)OR(NOT C AND D)**4 66,((CD)(CD));B @SX0250] E***END OF COPY LOOP**d J5n T1000u ^6 h1000 r15 s5000 | 15,E,E$,F$,G$ E0 E,E$,F$,G$:5:6:15:  "ENTER FILE TO BE DELETED" PUT X$ 15,8,15:15,"S0:X$"% 15,8,15 **DISK DEFENDER6(DW$(17):Z$(0):CR$(13)J2R$(255),R(256)l<DW$"ENTER COMBINATION":C$""F"5 DIGIT CODE"P DW$"CODE:"6);ZA$:A$""A$CR$90d"*";:C$C$A$:A$"":(C$)5 **DISK DEFENDER6(DW$(17):Z$(0):CR$(13)J2R$(255),R(256)l<DW$"ENTER COMBINATION":C$""F"5 DIGIT CODE"P DW$"CODE:"6);ZA$:A$""A$CR$90d"*";:C$C$A$:A$"":(C$)590nCR$"ARE YOU SURE"; o AN$: (AN$,1)"Y"60 xN1((C$,1,1))7 N2((C$,2,1)):O2N2Q N3((C$,3,1)):O3N3k N4((C$,4,1)):O4N4 N5((C$,5,1)):O5N5 DW$"LOCK OR UNLOCK FILE? (L,U)"DW$ AN$: AN$"L" AN$"U"170 AN$"U"320 ***LOCK FILE*** 10000 CNN1 20000# L02554 R(L)R(L)N5R CNCN1:CN040000:280] 40500y R(L)255R(L)R(L)256 ":30000 ,"FILE:"AN$" IS LOCKED" 62: 15: :***END OF LOCK** @***UNLOCK FILE*** J10000:CNN1:20000 TL0255 ^R(L)R(L)N51 hCNCN1:CN0 40000:380< r40500V |R(L)0R(L)R(L)256c :30000 "FILE:"AN$" IS UNLOCKED"  2: 1: :**END OF UNLOCK** '**FIND AND TRACK SECTOR FILE** '"ENTER FILE NAME" : AN$ $'M(AN$):T18:S1 .' 2,8,2,"#":15,8,152 8'15,"U1:"2;8;T;S:50000= B'LN$""J L'L0254k V'#2,R$(L):R$(L)""R$(L)Z$ `'LN$LN$R$(L)::Z1 j'(LN$,Z,M)AN$10120 t'ZZ1:Z256MS(R$(1)):10040 ~'10090 'MZ25610140 ' ((LN$,MZ,1))16010100 'TR((LN$,Z2,1))/ 'SC((LN$,Z1,1))< '15:2:X N*READ & TRACK SECTOR**p *N2,8,2,"#":15,8,15 4N15,"U1:"2;8;TR;SC:50000 >NL0255 HN#2,R$(L):R$(L)""R$(L)Z$ RNR(L)(R$(L)) \N fN15:2: 0u**WRITE TRACK & SECTOR**:u2,8,2,"#":15,8,152Du15,"B-P:"2;0:L0255DXuR$(L)(R(L))Tbu2,R$(L);:klu15,"U2:"2;8;TR;SCxvu50000:@*CHECK CODE***JCNN1:N2O2:N3O3:N4O4:N5O5T4**ROTATE USER CODE**>OON5:N5N4:N4N3:N3N2:N2OOH PÏ*CHECK EROR**ZÄ15,A,A$,Q1,Q2)dË A0 8nÙ"ERROR";A@xÙA$]Ù"TRACK";Q1;" SECTOR";Q2jà15:2: