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

Text File | 1980-01-01 | 1.4 KB | 65 lines

use gd
STORE '        ' TO GD4R
STORE '        ' TO GD18R
STORE ' ' TO D
DO WHILE .NOT. D='N'
c='         '
CLEAR
@ 4,25 SAY '╟δ╩Σ╚δ╣▄╡└▒α║┼' GET C
READ
LOCAT FOR GD1=C
IF EOF()
CLEAR
@ 5,25 SAY '╬▐┤╦▒α║┼╣▄╡└╝╟┬╝  '+C
*STORE 'N' TO CD
ELSE
CLEAR
STORE DTOC(GD4) TO GD4R1
STORE SUBS(GD4R1,7,2) TO GD4R2
STORE SUBS(GD4R1,1,2) TO GD4R3
STORE SUBS(GD4R1,4,2) TO GD4R4
STORE GD4R2+'.'+GD4R3+'.'+GD4R4 TO GD4R
STORE DTOC(GD18) TO GD18R1
STORE SUBS(GD18R1,7,2) TO GD18R2
STORE SUBS(GD18R1,1,2) TO GD18R3
STORE SUBS(GD18R1,4,2) TO GD18R4
STORE GD18R2+'.'+GD18R3+'.'+GD18R4 TO GD18R
@ 1,5 SAY '╣▄╡└▒α║┼:'+GD1
@ 1,25 SAY '╣▄╡└├√│╞:'+GD2
@ 1,50 SAY '╣µ╕±╨═║┼:'+GD3
@ 2,5 SAY '═╢▓·╚╒╞┌:'+GD4R
@ 2,25 SAY '▓─╓╩:'+GD5
@ 2,50 SAY '═╝╓╜║┼:'+GD6
@ 3,5 SAY '╣ñ╫≈╤╣┴ª:'+STR(GD7,3,0)
@ 3,25 SAY '╣ñ╫≈╬┬╢╚:'+STR(GD8,3,0)
@ 3,50 SAY '╣ñ╫≈╜Θ╓╩:'+GD9
@ 4,5 SAY '╖└╕»▓─┴╧:'+GD10
@ 4,30 SAY '─Ω╕»╩┤┴┐:'+STR(GD11,6,2)
@ 4,50 SAY '▒ú╬┬▓─┴╧:'+GD12
@ 5,5 SAY '╤╒╔½:'+GD13
@ 5,25 SAY '╣▄╡└│ñ╢╚:'+STR(GD14,8,2)
@ 5,50 SAY '╝∞▓Γ╓▄╞┌:'+STR(GD15,4,0)
@ 6,5 SAY '╞╠╔Φ╖╜╩╜:'+GD16
@ 6,25 SAY '░▓╚½▒┌║±:'+STR(GD17,8,2)
@ 6,45 SAY '╔╧┤╬╝∞▓Γ╗≥╕ⁿ╗╗╞┌:'+GD18R
@ 7,5 SAY '░▓╫░╡╪╡π:'+GD19
@ 7,45 SAY '▒┌║±:'+STR(GD17,8,2)
@ 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