Liren Large Software Subsidy 13

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / EDKEY.PRG < prev next >

Wrap

Text File | 1990-02-28 | 4.4 KB | 233 lines

STOR NK1 TO NK STOR GPSZ1 TO GPSZ ? ' ┤² ╨▐ ╕─ ╢╬ ╙╨ ╞╜ ╝ⁿ ▓█ ╗≥ ╗¿ ╝ⁿ ╡─ ╘░ ╓∙ ├µ' SET TALK OFF STOR 12 TO ZL SET TALK ON DO WHIL ZL<>0 ? ' ╨▐ ╕─ ▓╬ ╩² ╧ε :' ? ' 0) ╨▐ ╕─ ╜ß ╩° 1) │ñ ╢╚ = ',L1 ? ' 2) ╓▒ ╛╢ = ',DL1,' 3) ╓▒ ╛╢ ╣½ ▓ε ┤· ║┼ : ',DGCH1 ? ' 4) ╝ⁿ ▓█ ╬╗ ╓├ │▀ ┤τ=',LL1,' 5) ╝ⁿ ▓█ │ñ ╢╚ = ',LK1 ? ' 6) │ñ ╢╚ ╔╧ ╞½ ▓ε = ',SCHL1,' 7) │ñ ╢╚ ╧┬ ╞½ ▓ε = ',XCHL1 ? ' 8) ╫≤ ╡╣ ╜╟ ┴┐ = ',DGL1, ' 9) ╫≤ ╡╣ ╜╟ ╜╟ ╢╚ = ',ANGL1 ? ' 10) ╙╥ ╡╣ ╜╟ ┴┐ =╚ = ',DGR1, ' 11) ╙╥ ╡╣ ╜╟ ╜╟ ╢╚ = ',ANGR1 IF GPSZ='P ' ? ' 12) ╞╜ ╝ⁿ ┼Σ ║╧ └α ╨═' ELSE ? ' 12) ╗¿ ╝ⁿ ┼Σ ║╧ └α ╨═' ENDI INPUT '╝ⁿ ╚δ ╨▐ ╕─ ▓╬ ╩² ║┼' TO ZL CLEAR IF ZL=0 USE \HOUSEM\DBF\KEYSIZE GOTO NK STOR BGCH1 TO GCH STOR B1 TO D DO \HOUSEM\PRG\ZGCH USE \HOUSEM\DBF\KEYSIZE GOTO NK REPL BS1 WITH SCH,BX1 WITH XCH STOR DIGCH1 TO GCH STOR DI1 TO D DO \HOUSEM\PRG\ZGCH USE \HOUSEM\DBF\KEYSIZE GOTO NK REPL DIS1 WITH SCH,DIX1 WITH XCH STOR DGCH TO GCH STOR DL TO D DO \HOUSEM\PRG\ZGCH IF K=1 USE \HOUSEM\DBF\OUTL ELSE USE \HOUSEM\DBF\HOLE ENDI GOTO N REPL SCHD1 WITH SCH,XCHD1 WITH XCH ENDI IF ZL=2 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╓▒ ╛╢ =' TO DL SET TALK OFF REPLA DL1 WITH DL,DR1 WITH DL STOR DGCH1 TO DGCH IF GPSZ1='P ' USE \HOUSEM\DBF\KEY LOCA FOR DMIN<DL.AND.DMAX>=DL STOR B TO B STOR T TO T STOR T1 TO T1 STOR T1GCH TO DB STOR TGCH TO AD USE \HOUSEM\DBF\KEYSIZE GOTO NK STOR BGCH1 TO BGCH REPL B1 WITH B IF K=1 STOR DL-T TO H STOR AD TO PWDJ ELSE STOR DB TO PWDJ STOR DL+T1 TO H ENDI REPL H1 WITH H,HS1 WITH PWDJ IF K=1 USE \HOUSEM\DBF\OUTL ELSE USE \HOUSEM\DBF\HOLE ENDIF GOTO N ENDI IF GPSZ1='S ' USE \HOUSEM\DBF\SPLINE LOCA FOR DO=DL STOR DI TO DI STOR B TO B STOR KNUM TO KS DO \HOUSEM\PRG\KEYGCH USE \HOUSEM\DBF\SPLJD ACCEPT ' ═Γ ╛╢ ╢¿ ╨─ [O] ╗≥ ─┌ ╛╢ ╢¿ ╨─ [I] ? [O]' TO LR SET TALK OFF LOCA FOR TYPE=CHX.AND.OI=LR.AND.ZK=K STOR DGCH TO DGCH STOR BGCH TO BGCH STOR XDGCH TO PWDJ USE \HOUSEM\DBF\KEYSIZE GOTO NK REPL DI1 WITH DI,B1 WITH B,KS1 WITH KS,BGCH1 WITH BGCH,DIGCH1 WITH PWDJ IF K=1 USE \HOUSEM\DBF\OUTL ELSE USE \HOUSEM\DBF\HOLE ENDI GOTO N REPL DGCH1 WITH DGCH ENDI ENDI IF ZL=3 ACCEPT ' ╩Σ ╚δ ╨┬ ╡─ ╓▒ ╛╢ ╣½ ▓ε ┤· ║┼ :' TO DGCH SET TALK OFF REPL DGCH1 WITH DGCH ENDI IF ZL=4 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╝ⁿ ▓█ ╬╗ ╓├ │▀ ┤τ =' TO LL SET TALK OFF REPL LL1 WITH LL ENDI IF ZL=5 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╝ⁿ ▓█ │ñ ╢╚ =' TO LK SET TALK OFF REPL LK1 WITH LK ENDI IF ZL=1 INPUT ' ╩Σ ╚δ ╨┬ ╡─ │ñ ╢╚ =' TO L SET TALK OFF REPL L1 WITH L ENDI IF ZL=6 INPUT ' ╩Σ ╚δ ╨┬ ╡─ │ñ ╢╚ ╔╧ ╞½ ▓ε =' TO SCHL SET TALK OFF REPL SCHL1 WITH SCHL ENDI IF ZL=7 INPUT ' ╩Σ ╚δ ╨┬ ╡─ │ñ ╢╚ ╧┬ ╞½ ▓ε =' TO XCHL SET TALK OFF REPL XCHL1 WITH XCHL ENDI IF ZL=8 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╫≤ ╡╣ ╜╟ ┴┐ =' TO DGL SET TALK OFF REPL DGL1 WITH DGL ENDI IF ZL=9 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╫≤ ╡╣ ╜╟ ╜╟ ╢╚ =' TO ANGL SET TALK OFF REPL ANGL1 WITH ANGL ENDI IF ZL=10 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╙╥ ╡╣ ╜╟ ┴┐ =' TO DGR SET TALK OFF REPL DGR1 WITH DGR ENDI IF ZL=11 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╙╥ ╡╣ ╜╟ ╢╚ =' TO ANGR SET TALK OFF REPL ANGR1 WITH ANGR ENDI IF ZL=12.AND.GPSZ='P ' SELECT B USE \HOUSEM\DBF\KEYSIZE GOTO NK INPUT ' ╝ⁿ ╚δ ╝ⁿ ┼Σ ║╧ └α ╨═ : 1) ╜╧ ╦╔ , 2) ╥╗ ░π , 3) ╜╧ ╜⌠' TO Z1 SET TALK OFF IF Z1=1 REPL BGCH1 WITH 'H9' ENDI IF Z1=2.OR.Z1=3 REPL BGCH1 WITH 'N9' ENDI USE \HOUSEM\DBF\ABC ENDI IF ZL=12.AND.GPSZ='S' ACCEPT ' ═Γ ╛╢ ╢¿ ╨─ [O] ╗≥ ─┌ ╛╢ ╢¿ ╨─ [I] ? [O]' TO LR SET TALK OFF DO \HOUSEM\PRG\KEYGCH USE \HOUSEM\DBF\SPLJD LOCA FOR TYPE=CHX.AND.OI=LR.AND.ZK=K STOR DGCH TO DGCH STOR XDGCH TO PWDJ STOR BGCH TO BGCH USE \HOUSEM\DBF\KEYSIZE GOTO NK REPL BGCH1 WITH BGCH,DIGCH1 WITH PWDJ REPL DGCH1 WITH DGCH USE \HOUSEM\DBF\ABC ENDIF ENDD IF GPSZ='P ' STOR DL1 TO DL STOR DR1 TO DR STOR L1 TO L STOR LL1 TO LL STOR (DL+(DR-DL)*LL/L) TO D USE \HOUSEM\DBF\KEY LOCA FOR DMIN<D.AND.DMAX>=D STOR B TO B STOR T1 TO T1 STOR T TO T IF K=1 STOR D-T TO H ENDI IF K=2 STOR D+T1 TO H ENDI ENDI IF GPSZ='S ' STOR DL1 TO D USE \HOUSEM\DBF\SPLINE LOCA FOR DO=D STOR B TO B STOR DI TO DI STOR KNUM TO KS ENDI CLEAR USE \HOUSEM\DBF\KEYSIZE GOTO NK REPL B1 WITH B IF GPSZ='P ' REPL H1 WITH H ENDI IF GPSZ='S ' REPL DI1 WITH DI,KS1 WITH KS ENDI COPY TO KEYSIZE.TXT SDF USE \HOUSEM\DBF\ABC IF K=1 USE \HOUSEM\DBF\OUTL ENDI IF K=2 USE \HOUSEM\DBF\HOLE ENDI RETURN