ftp.whtech.com/ftp.whtech.com.tar/ftp.whtech.com/club100/txt/crypt.ba

Text File | 2006-10-19 | 2KB | 29 lines

0 'CRYPT.LDR loads CRYPT.100 v3.1 c1987 Jon Diercks -- see CPTDOC.DO
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 GOSUB99
3 PRINT@42,"Enter end address";:PRINT@82,"<ENTER> to load at ALT LCD buffer"
4 Y="":PRINT@122,SPACE$(30);:PRINT@122,;:INPUTY:IFY=""THENB=64704:GOTO6ELSEB=VAL(Y)-E
5 IFB>=MAXRAM-ETHENBEEP:GOTO4ELSECLEAR256,B:B=HIMEM:GOSUB99
6 CLS:PRINT@48,"Creating CRYPT.CO v3.1":A=B:C=B+E:D=D+B:S=99:M=99:PRINT@88,"Line";:PRINT@128,"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
40 SAVEM"CRYPT",B,C,D:MENU
50 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN55
51 IFU>16THENU=U-16:O=1ELSEO=0
52 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN55
53 K=(U-1)*16+V-1:RETURN
55 BEEP:PRINT@165,"Bad character";:END
60 IFM<N*2+5THEN70
61 IFL<>RTHENBEEP:PRINT@165,"Checksum fail";END
62 READY:M=1:GOSUB50:IFK=0THEN40
63 S=S+1:PRINT@110,S;:PRINT@150,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
99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=276:D=0:RETURN
100 DATA38611521TB00CD585ACD421F21V000CDM1002185F62B237EFE2ECAHE00B7C2H30011GE010604CD69341185F63E0ACDAB5AC2J700CD6276C3G900CD
101 DATA385318E35A22H30121V600CDM1002185F606407EA7CANC0090CALB00FE1BD2LB007723C3K800CD6276C3JD00CD9157CD4446DA9757D7CA97572185
102 DATA38891BF67EA7C8CDE90F7723C3N10021VC00CD585ACD645DFE45C2OF00E797C3P700FE44C2O200E7973C32H2011185F62AH3017EFE1AC8FE21DAT7
103 DATA38471900FE7FD2T7004F1AA7C2R8001185F61A473AH201A7CASC007990FE21D2T500C65EC3T5007980FE7FDAT500D65E771323C3Q0000C1B704352
104 DATA35DD0C59505421202D2076332E311B710D0A0046696C653A004B7772643A003C453E6E6372206F72203C443E6563723F002E444F00000000
105 DATA00