Liren Large Software Subsidy 13

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

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

Wrap

Text File | 1991-04-18 | 8.7 KB | 419 lines

STOR .T. TO PP SET TALK ON DO WHIL PP CLEAR ? '* * * * * * * * * * * * * * * * *' ? '* *' ? '* ╨▐ ╕─ ╧ε ─┐ : *' ? '* 0) ╨▐ ╕─ ╜ß ╩° *' ? '* 1) ═Γ ┬╓ └¬ *' ? '* 2) ─┌ ┬╓ └¬ *' ? ? '* * * * * * * * * * * * * * * * *' INPUT ' ╟δ ╝ⁿ ╚δ ▓╦ ╡Ñ ║┼' TO K CLEAR IF K=0 EXIT ENDI IF K=1 USE \HOUSEM\DBF\OUTL ENDI IF K=2 USE \HOUSEM\DBF\HOLE ENDI STOR .T. TO BD DO WHIL BD INPUT ' ╝ⁿ ╚δ ╨▐ ╕─ ╢╬ ║┼' TO N GOTO N CLEAR IF GPSZ1='G ' STOR GPSZ1 TO GPSZ ? ' ┤² ╨▐ ╕─ ╢╬ ╩╟ ╘░ ╓∙ ├µ ╗≥ ╘░ ╫╢ ├µ' STOR 10 TO ZL SET TALK ON DO WHIL ZL<>0 ? ' ╨▐ ╕─ ▓╬ ╩² ╧ε :' ? ' 0) ╨▐ ╕─ ╜ß ╩° 1) ╫≤ ╓▒ ╛╢ = ',DL1 ? ' 2) ╙╥ ╓▒ ╛╢ = ',DR1,' 3) ╓▒ ╛╢ ╣½ ▓ε ┤· ║┼ = ',DGCH1 ? ' 4) │ñ ╢╚ = ',L1,' 5) │ñ ╢╚ ╔╧ ╞½ ▓ε = ',SCHL1 ? ' 6) │ñ ╢╚ ╧┬ ╞½ ▓ε =',XCHL1,' 7) ╫≤ ╡╣ ╜╟ ┴┐ = ',DGL1 ? ' 8) ╫≤ ╡╣ ╜╟ ╜╟ ╢╚ =',ANGL1,' 9) ╙╥ ╡╣ ╜╟ ┴┐ = ',DGR1 ? ' 10) ╙╥ ╡╣ ╜╟ ╜╟ ╢╚ =',ANGR1 INPUT '╝ⁿ ╚δ ╨▐ ╕─ ▓╬ ╩² ║┼' TO ZL CLEAR IF ZL=1 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╫≤ ╓▒ ╛╢ =' TO DL SET TALK OFF IF DL1=DR1 REPL DR1 WITH DL ENDI REPL DL1 WITH DL IF DL1=DR1 STOR DGCH1 TO GCH STOR DL TO D DO \HOUSEM\PRG\ZGCH IF K=1 USE \HOUSEM\DBF\OUTL ELSE USE \HOUSEM\DBF\HOLE ENDI LOCA FOR RECNO()=N REPL SCHD1 WITH SCH,XCHD1 WITH XCH ENDI ENDI IF ZL=2 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╙╥ ╓▒ ╛╢ =' TO DR SET TALK OFF REPL DR1 WITH DR IF DL1=DR1 STOR DGCH1 TO GCH STOR DR TO D DO \HOUSEM\PRG\ZGCH IF K=1 USE \HOUSEM\DBF\OUTL ELSE USE \HOUSEM\DBF\HOLE ENDI LOCA FOR RECNO()=N REPLA SCHD1 WITH SCH,XCHD1 WITH XCH ENDI ENDI IF ZL=3 ACCEPT ' ╩Σ ╚δ ╓▒ ╛╢ ╣½ ▓ε ┤· ║┼ :' TO DGCH SET TALK OFF REPL DGCH1 WITH DGCH IF DL1=DR1 STOR DGCH TO GCH STOR DL1 TO D DO \HOUSEM\PRG\ZGCH IF K=1 USE \HOUSEM\DBF\OUTL ELSE USE \HOUSEM\DBF\HOLE ENDI LOCA FOR RECNO()=N REPLA SCHD1 WITH SCH,XCHD1 WITH XCH ENDI ENDI IF ZL=4 INPUT ' ╩Σ ╚δ ╨┬ ╡─ │ñ ╢╚' TO L SET TALK OFF REPL L1 WITH L ENDI IF ZL=5 INPUT ' ╩Σ ╚δ │ñ ╢╚ ╔╧ ╞½ ▓ε =' TO SCHL SET TALK OFF REPL SCHL1 WITH SCHL ENDI IF ZL=6 INPUT ' ╩Σ ╚δ │ñ ╢╚ ╧┬ ╞½ ▓ε =' TO XCHL SET TALK OFF REPL XCHL1 WITH XCHL ENDI IF ZL=7 INPUT ' ╩Σ ╚δ ╫≤ ╡╣ ╜╟ ╨┬ │ñ ╢╚ =' TO DGL SET TALK OFF REPLA DGL1 WITH DGL ENDI IF ZL=8 INPUT ' ╩Σ ╚δ ╫≤ ╡╣ ╜╟ ╨┬ ╜╟ ╢╚ =' TO ANGL SET TALK OFF REPL ANGL1 WITH ANGL ENDI IF ZL=9 INPUT '╩Σ ╚δ ╙╥ ╡╣ ╜╟ ╨┬ │ñ ╢╚ =' TO DGR SET TALK OFF REPL DGR1 WITH DGR ENDI IF ZL=10 INPUT ' ╩Σ ╚δ ╙╥ ╡╣ ╜╟ ╨┬ ╜╟ ╢╚ =' TO ANGR SET TALK OFF REPL ANGR1 WITH ANGR ENDI ENDD ENDI IF GPSZ1='K ' STOR GPSZ1 TO GPSZ ? ' ┤² ╨▐ ╕─ ╢╬ ╩╟ ┐╒ ╡╢ ▓█' SET TALK OFF STOR 10 TO ZL SET TALK ON DO WHIL ZL<>0 CLEAR ? ' ╨▐ ╕─ ▓╬ ╩² ╧ε :' ? ' 0) ╨▐ ╕─ ╜ß ╩° ' ? ' 1) ┐╒ ╡╢ ┐φ ╢╚',L1 ? ' 2) ┐╒ ╡╢ ╔ε ╢╚',LL1 INPUT '╝ⁿ ╚δ ╨▐ ╕─ ▓╬ ╩² ║┼' TO ZL CLEAR IF ZL=1 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ┐╒ ╡╢ ┐φ ╢╚ =' TO L SET TALK OFF REPL L1 WITH L ENDI IF ZL=2 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ┐╒ ╡╢ ╔ε ╢╚ =' TO LL SET TALK OFF REPL LL1 WITH LL ENDI ENDD ENDI IF GPSZ1='Z ' STOR GPSZ1 TO GPSZ ? ' ┤² ╨▐ ╕─ ╢╬ ╩╟ │▌ ┬╓' SET TALK OFF STOR 10 TO ZL SET TALK ON DO WHIL ZL<>0.AND.ZL<>8 ? ' ╨▐ ╕─ ▓╬ ╩² ╧ε :' ? ' 0) ╨▐ ╕─ ╜ß ╩° ' ? ' 1) │ñ ╢╚ = ',L1,' 2) │ñ ╢╚ ╔╧ ╞½ ▓ε =',SCHL1 ? ' 3) │ñ ╢╚ ╧┬ ╞½ ▓ε =',XCHL1,' 4) ╫≤ ╡╣ ╜╟ ┴┐ = ',DGL1 ? ' 5) ╫≤ ╡╣ ╜╟ ╜╟ ╢╚ =',ANGL1,' 6) ╙╥ ╡╣ ╜╟ ┴┐ = ',DGR1 ? ' 7) ╙╥ ╡╣ ╜╟ ╜╟ ╢╚ =',ANGR1,' 8) ╨▐ ╕─ │▌ ┬╓ ▓╬ ╩²' INPUT ' ╝ⁿ ╚δ ╨▐ ╕─ ▓╬ ╩² ║┼' TO ZL SET TALK OFF STOR NZL1 TO NZL STOR NZL TO NZL1 STOR L1 TO L CLEAR IF ZL=1 INPUT ' ╩Σ ╚δ ╨┬ ╡─ │ñ ╢╚' TO L SET TALK OFF REPL L1 WITH L ENDI IF ZL=2 INPUT ' ╩Σ ╚δ │ñ ╢╚ ╔╧ ╞½ ▓ε =' TO SCHL SET TALK OFF REPLA SCHL1 WITH SCHL ENDI IF ZL=3 INPUT ' ╩Σ ╚δ │ñ ╢╚ ╧┬ ╞½ ▓ε =' TO XCHL SET TALK OFF REPL XCHL1 WITH XCHL ENDI IF ZL=4 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╡╣ ╜╟ ┴┐ =' TO DGL SET TALK OFF REPL DGL1 WITH DGL ENDI IF ZL=5 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╫≤ ╡╣ ╜╟ ╜╟ ╢╚ =' TO ANGL SET TALK OFF REPLA ANGL1 WITH ANGL ENDI IF ZL=6 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╙╥ ╡╣ ╜╟ ┴┐ =' TO DGR SET TALK OFF REPL DGR1 WITH DGR ENDI IF ZL=7 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╙╥ ╡╣ ╜╟ ╜╟ ╢╚ =' TO ANGR SET TALK OFF REPL ANGR1 WITH ANGR ENDI ENDD DO WHIL ZL<>0 USE \HOUSEM\DBF\GEAR GOTO NZL ? ' ╨▐ ╕─ ▓╬ ╩² ╧ε :' ? ' 0) ╨▐ ╕─ ╜ß ╩° 1) ─ú ╩² = ',M1 ? ' 2) ╨▐ ╒² ╧╡ ╩² = ',CSI1,' 3) ┬▌ ╨² ╜╟ = ',BF1 ? ' 4) ╓╨ ╨─ ╛α = ',A01,' 5) ┬▌ ╨² ╜╟ ╖╜ ╧≥ : ',DIR1 ? ' 6) │▌ ╩² = ',Z11,' 7) ▒╗ ╢» │▌ ┬╓ │▌ ╩² =',Z21 ? ' 8) ╘╦ ╢» ╛½ ╢╚ : ',YDDJ1,' 9) ╞╜ ╬╚ ╛½ ╢╚ : ',PWDJ1 ? ' 10) ╜╙ ┤Ñ ╛½ ╢╚ : ',JCDJ1,' 11) ▓α ╧╢ : ',CHX1 ? ' 12) ╚╚ ┤ª └φ ╥¬ ╟≤ :',TREAT1 INPUT '╝ⁿ ╚δ ╨▐ ╕─ ▓╬ ╩² ║┼' TO ZL SET TALK OFF STOR YDDJ1 TO YDDJ STOR PWDJ1 TO PWDJ STOR JCDJ1 TO JCDJ STOR BF1 TO LK STOR M1 TO M STOR Z11 TO Z1 STOR Z1 TO Z STOR CHX1 TO CHX STOR ZX1 TO XDGCH CLEAR IF ZL=0 STOR 1 TO NZ1 DO \HOUSEM\PRG\TJD COPY TO JDZ.TXT SDF USE \HOUSEM\DBF\TQJD COPY TO TQJD.TXT SDF SET TALK OFF ENDI IF ZL=1 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ─ú ╩² =' TO M SET TALK OFF STOR M*Z11/2 TO ZXJ REPLA A01 WITH ZXJ REPL M1 WITH M STOR M*Z11+2*M TO MM USE \HOUSEM\DBF\OUTL GO N REPL DR1 WITH MM,DL1 WITH MM ENDI IF ZL=2 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╨▐ ╒² ╧╡ ╩² =' TO DB SET TALK OFF REPLA CSI1 WITH DB ENDI IF ZL=3 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ┬▌ ╨² ╜╟ =' TO LK SET TALK OFF REPL BF1 WITH LK ENDI IF ZL=4 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╓╨ ╨─ ╛α =' TO AD SET TALK OFF REPLA A01 WITH AD ENDI IF ZL=5 ACCEPT ' ╩Σ ╚δ ╨┬ ╡─ ┬▌ ╨² ╜╟ ╖╜ ╧≥ :' TO KTYPE SET TALK OFF REPL DIR1 WITH KTYPE ENDI IF ZL=6 INPUT ' ╩Σ ╚δ ╨┬ ╡─ │▌ ╩² =' TO Z1 SET TALK OFF STOR Z1*M1/2 TO ZXJ REPL A01 WITH ZXJ REPL Z11 WITH Z1 STOR Z1*M1+2*M1 TO MM USE \HOUSEM\DBF\OUTL GO N REPL DL1 WITH MM,DR1 WITH MM ENDI IF ZL=7 INPUT '╩Σ ╚δ ╨┬ ╡─ ▒╗ ╢» │▌ ┬╓ │▌ ╩² =' TO Z2 SET TALK OFF REPL Z21 WITH Z2 ENDI IF ZL=8 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╘╦ ╢» ╛½ ╢╚ ╡╚ ╝╢ =' TO YDDJ SET TALK OFF REPL YDDJ1 WITH YDDJ ENDI IF ZL=9 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╞╜ ╬╚ ╛½ ╢╚ ╡╚ ╝╢ =' TO PWDJ SET TALK OFF REPLA PWDJ1 WITH PWDJ ENDI IF ZL=10 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╜╙ ┤Ñ ╛½ ╢╚ ╡╚ ╝╢ =' TO JCDJ SET TALK OFF REPL JCDJ1 WITH JCDJ ENDI IF ZL=11 ACCEPT ' ╩Σ ╚δ ╨┬ ╡─ ▓α ╧╢ ┤· ║┼ :' TO CHX SET TALK OFF REPL CHX1 WITH CHX ENDI IF ZL=12 ACCEPT ' ╩Σ ╚δ ╨┬ ╡─ ╚╚ ┤ª └φ ╥¬ ╟≤ :' TO TGCH SET TALK OFF REPL TREAT1 WITH TGCH ENDI ENDD USE \HOUSEM\DBF\GEAR COPY TO GEAR.TXT SDF USE \HOUSEM\DBF\OUTL ENDI IF GPSZ1='M '.OR.GPSZ1='T '.OR.GPSZ1='PI' IF GPSZ1='M ' STOR GPSZ1 TO GPSZ ? ' ┤² ╨▐ ╕─ ╢╬ ╩╟ ╣½ ╓╞ ┬▌ ╬╞ ' SET TALK OFF ENDI IF GPSZ1='T ' STOR GPSZ1 TO GPSZ ? ' ┤² ╨▐ ╕─ ╢╬ ╩╟ ╠▌ ╨═ ┬▌ ╬╞ ' SET TALK OFF ENDI IF GPSZ1='PI' STOR GPSZ1 TO GPSZ ? ' ┤² ╨▐ ╕─ ╢╬ ╩╟ ╣▄ ┬▌ ╬╞ ' SET TALK OFF ENDI STOR 10 TO ZL SET TALK ON DO WHIL ZL<>0 ? ' ╨▐ ╕─ ▓╬ ╩² ╧ε :' ? ' 0) ╨▐ ╕─ ╜ß ╩° ' ? ' 1) ╓▒ ╛╢ = ',DL1,' 2) ┬▌ ╛╪ = ',LL1 ? ' 3) │ñ ╢╚ = ',L1,' 4) │ñ ╢╚ ╔╧ ╞½ ▓ε =',SCHL1 ? ' 5) │ñ ╢╚ ╧┬ ╞½ ▓ε =',XCHL1,' 6) ╫≤ ╡╣ ╜╟ ┴┐ = ',DGL1 ? ' 7) ╫≤ ╡╣ ╜╟ ╜╟ ╢╚ =',ANGL1,' 8) ╙╥ ╡╣ ╜╟ ┴┐ = ',DGR1 ? ' 9) ╙╥ ╡╣ ╜╟ ╜╟ ╢╚ =',ANGR1 INPUT '╝ⁿ ╚δ ╨▐ ╕─ ▓╬ ╩² ║┼' TO ZL CLEAR IF ZL=1 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ┬▌ ╬╞ ╓▒ ╛╢ =' TO DL SET TALK OFF REPLA DL1 WITH DL,DR1 WITH DL ENDI IF ZL=2 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ┬▌ ╛α =' TO LL SET TALK OFF REPLA LL1 WITH LL ENDI IF ZL=3 INPUT ' ╩Σ ╚δ ╨┬ ╡─ │ñ ╢╚' TO L SET TALK OFF REPL L1 WITH L ENDI IF ZL=4 INPUT ' ╩Σ ╚δ ╨┬ ╡─ │ñ ╢╚ ╔╧ ╞½ ▓ε =' TO SCHL SET TALK OFF REPLA SCHL1 WITH SCHL ENDI IF ZL=5 INPUT ' ╩Σ ╚δ ╨┬ ╡─ │ñ ╢╚ ╧┬ ╞½ ▓ε =' TO XCHL SET TALK OFF REPLA XCHL1 WITH XCHL ENDI IF ZL=6 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╫≤ ╡╣ ╜╟ ┴┐ =' TO DGL SET TALK OFF REPL DGL1 WITH DGL ENDI IF ZL=7 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╫≤ ╡╣ ╜╟ ╜╟ ╢╚ =' TO ANGL SET TALK OFF REPL ANGL1 WITH ANGL ENDI IF ZL=8 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╙╥ ╡╣ ╜╟ ┴┐ =' TO DGR SET TALK OFF REPL DGR1 WITH DGR ENDI IF ZL=9 INPUT ' ╩Σ ╚δ ╨┬ ╡─ ╙╥ ╡╣ ╜╟ ╜╟ ╢╚ =' TO ANGR SET TALK OFF REPL ANGR1 WITH ANGR ENDI ENDD ENDI IF GPSZ1='P '.OR.GPSZ1='S ' DO \HOUSEM\PRG\EDKEY ENDI ACCEPT ' ╔╛ ╚Ñ ▒╛ ╢╬ [D] ╗≥ ║≤ ▓σ ╥╗ ╢╬ [I] ╗≥═╦│÷ [Q]' TO YN SET TALK OFF IF UPPER(YN)='I'.OR.UPPER(YN)='D' DO \HOUSEM\PRG\INDE STOR N+1 TO N ELSE STOR .F. TO BD ENDI ENDD IF K=1 COPY TO \HOUSEM\TXT\OUTL.TXT SDF ENDI IF K=2 COPY TO \HOUSEM\TXT\HOLE.TXT SDF ENDI ENDD RETURN