0 'LOCK.LDR loads LOCK.CO and LOCKC.CO v3.0 both c1987 Jon Diercks 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 'Based on UTIL.BA by Larry Foltz 3 B=64704 6 CLS:PRINT" Creating LOCK.CO":A=B:C=B+E:D=D+B:S=99:M=99:PRINT@48,"Line";:PRINT@88,"Address"; 7 GOSUB60:IFO=0THENPOKEA,K:A=A+1:GOTO7 8 P=K:GOSUB60:G=P+256*K+B:P=INT(G/256):Q=G-P*256 9 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO7 10 CLEAR200:GOSUB121 11 FORD=-1606TO-1408STEP11 12 IFPEEK(D)=0GOTO20 13 I=I+1 14 M(I)=D 15 FORN=3TO10 16 A$(I)=A$(I)+CHR$(PEEK(D+N)) 17 IFN=8THENA$(I)=A$(I)+"." 18 NEXT 19 A(I)=PEEK(D+1)+PEEK(D+2)*256-Z 20 NEXT 21 I=I+1 22 A$(I)="Basic*" 23 A(I)=PEEK(63898)+PEEK(63899)*256-Z 24 I=I+1 25 A$(I)="Paste*" 26 A(I)=PEEK(63909)+PEEK(63910)*256-Z 27 I=I+1 28 A4=MAXFILES 29 A$(I)=MID$(STR$(A4),2)+" Max*" 30 A(I)=A4*267 31 I=I+1 32 A$(I)="Saved*" 33 A(I)=MAXRAM-HIMEM 34 BEEP:BEEP:BEEP:BEEP 35 K=I-4 36 KEYON 37 ONKEYGOSUB68,94,103,108,,,,133 38 CLS:PRINT@40,"Directory" 39 FORN=1TOK 40 P(N)=(N+4)*10 41 PRINT@P(N),A$(N) 42 NEXT 43 N=1 44 PRINT@P(N),VR;A$(N)VN 45 IFE=1GOTO48ELSEPRINT@280,"Size Name Kill Move Menu"; 46 GOSUB59 47 K=I-4 48 C$=INKEY$:IFC$=""GOTO48 49 C=ASC(C$) 50 PRINT@P(N),A$(N) 51 IFC=28THENN=N+1:IFN>KTHENN=1 52 IFC=29THENN=N-1:IFN<1THENN=K 53 I 55 BEEP:PRINT@165,"Bad character";:END 60 IFMRTHENBEEP:PRINT@165,"Checksum fail";END 62 READY:M=1:GOSUB50:IFK=0THEN40 63 S=S+1:PRINT@70,S;:PRINT@110,A;:N=K:M=3:GOSUB50:M=5:L=K:GOSUB50:L=K*256+L:R=0 70 M=M+2:GOSUB50:R=R+K:RETURN 80 FORZ%=1TOLEN(Z$):POKE65449+2*Z%,ASC(MID$(Z$,Z%,1)):POKE65450+2*Z%,0:NEXT:POKE65450,Z%-1:RETURN 99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=269:D=61:RETURN 100 DATA38500F0870617373776F72640000000000000000224C4F434B2E434F006B6579776F72643E00206261642074726965732E07000A6C617374207472 101 DATA38BF1A79203D200021D1FCCD781ACD3142CD3F14210408CD7C4221DAFCCD585ACD8FFDCA52FD210408CD7C42CD694221DAFCCD585ACD6E42CD8FFD 102 DATA38B11ACA52FD3AD0FC3C32D0FC2146FF1166FF011F00CDDB6B0605CD294205C248FDC303FDCD4E42CD961A3AD0FCA7CA9757CD3142210408CD7C42 103 DATA38F21A3AD0FC6F2600CDD43921E3FCCD585A210408CD7C4221F0FCCD585A2166FFCD585ACD1053C397572146FFE5061FCD0A4FCD4942CD4272CA9B 104 DATA2E9D1BFDE1FE0DCAB8FD777DFE64C2B0FD3CC93E20E723E5C39BFD2146FF11C1FC3AC0FC471ABEC0231305C2C2FD7EB7C9 105 DATA00 200 'LOCKC 201 GOSUB218 202 B=64704 203 CLS:PRINT" Creating LOCKC.CO":A=B:C=B+E:D=D+B:S=218:M=99:RESTORE219:PRINT@48,"Line";:PRINT@88,"Address"; 204 GOSUB213:IFO=0THENPOKEA,K:A=A+1:GOTO204 205 P=K:GOSUB213:G=P+256*K+B:P=INT(G/256):Q=G-P*256 206 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO204 207 Z$="RUNM"+CHR$(34)+"LOCKC"+CHR$(13):GOSUB80:SAVEM"LOCKC",B,C,D:END 208 U=INST0 'MENU Robert Benson Sep/87