Liren Large Software Subsidy 6/06.iso/b/b077/1.img/SBGL.ZIP/SC7.PRG

Text File | 1980-01-01 | 1.0 KB | 54 lines

use dx
STORE '        ' TO DX8R
STORE ' ' TO D
DO WHILE .NOT. D='N'
c='         '
CLEAR
@ 4,25 SAY '╟δ╩Σ╚δ╡τ╞°╧▀┬╖▒α║┼' GET C
READ
LOCAT FOR DX7=C
IF EOF()
CLEAR
@ 6,25 SAY '╬▐┤╦╠⌡╧▀┬╖  '+C
ELSE
CLEAR
STORE DTOC(DX8) TO DX8R1
STORE SUBS(DX8R1,7,2) TO DX8R2
STORE SUBS(DX8R1,1,2) TO DX8R3
STORE SUBS(DX8R1,4,2) TO DX8R4
STORE DX8R2+'.'+DX8R3+'.'+DX8R4 TO DX8R
@ 2,10 SAY '├√│╞:'+DX1
@ 2,40 SAY '╣µ╕±:'+DX2
@ 3,10 SAY '╨═║┼:'+DX3
@ 3,40 SAY '╞╠╔Φ╖╜╩╜:'+DX4
@ 4,10 SAY '╩╘╤Θ╓▄╞┌:'+STR(DX5,4,0)
@ 4,40 SAY '╩╘╤Θ╡τ╤╣:'+DX6
@ 5,10 SAY '╔╧┤╬╩╘╤Θ╚╒╞┌:'+DX8R
@ 5,40 SAY '╜ß╣√(║╧╕±▒Ω╓╛):'+DX9
@ 6,10 SAY '┤ª└φ╥Γ╝√:'+DX10
bb=dtoc(dx11)
j1=substr(bb,7,2)
j2=substr(bb,1,2)
j3=substr(bb,4,2)
bb=j1+'.'+j2+'.'+j3
@ 6,40 SAY '═╢▓·╚╒╞┌:'+bb
@ 7,10 say "░▓╫░╡╪╡π:"+dx12
@ 8,25 SAY '╩╟╥¬╔╛│²╒Γ╠⌡╝╟┬╝┬≡?(Y/N)' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
DELE
ENDIF
ENDIF
@ 9,25 SAY '╗╣╥¬╔╛│²╞Σ╦ⁿ╝╟┬╝┬≡?(Y/N)' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '          ' TO C
LOOP
ENDIF
PACK
ENDDO
RETURN