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

Text File | 1980-01-01 | 769 b | 43 lines

STORE ' ' TO D
DO WHILE .NOT. D='N'
CLEAR
@ 4,25 SAY '╟δ╩Σ╚δ╣ñ╫≈╓ñ║┼' GET C
READ
LOCAT FOR RS1=C
IF EOF()
CLEAR
@ 6,25 SAY '╬▐┤╦╣ñ╫≈╓ñ║┼╡─╝╟┬╝  '+C
ELSE
CLEAR
@ 1,5 SAY '╣ñ╫≈╓ñ║┼:'+RS1
@ 1,20 SAY '╨╒├√:'+RS2
@ 2,5 SAY '╨╘▒≡:'+RS3
@ 2,20 SAY '─Ω┴Σ:'+STR(RS4,2,0)
@ 3,5 SAY '╬─╗»╦«╞╜:'+RS5
@ 3,20 SAY '╝╝╩⌡╡╚╝╢:'+RS6
@ 4,5 SAY '╓░╬±:'+RS7
@ 4,20 SAY '╓░│╞:'+RS8
@ 5,5 SAY '╣ñ╫╩:'+STR(RS9,6,2)
@ 5,17 SAY '╒■╓╬├µ├▓:'+RS10
@ 6,5 SAY '╡Ñ╬╗▒α║┼:'+RS11
@ 6,20 SAY '╣ñ╫≈╡τ╗░:'+RS13
@ 7,5 SAY '└═┴ª╦«╞╜:'+RS12
@ 8,25 SAY '╩╟╥¬╔╛│²▒╛╝╟┬╝┬≡?(Y/N)' GET D
READ
STOR 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