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

Text File | 1979-12-31 | 662 b | 34 lines

SET DEVICE TO SCREEN
SET TALK OFF
STORE '  ' TO B
DO WHILE .NOT. B='0'
STORE '  ' TO B
CLEAR
@ 2,15 SAY '*****************╨▐╕─╘¡╩╝╡╡░╕*****************'
@ 3,15 SAY 'ú░ú«═╦│÷                      ú▒ú«╣╠╢¿╫╩▓·'
@ 4,15 SAY 'ú▓ú«╕¿╗·╠¿╒╩                  ú│ú«╚╦╩┬╡╡░╕┐Γ'
@ 5,15 SAY "ú┤ú«╔Φ▒╕╢■┐Γ"
@ 6,15 say "**********************************************"
wait '              ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4): ' to B
DO CASE
case b='4'
do sbe2
CASE B='1'
STORE '         ' TO C
USE SB
set index to sb1
DO XG1
CASE B='2'
STORE '         ' TO C
USE FJ
DO XG2
CASE B='3'
STORE '     ' TO C
USE RS
DO XG8
CASE B='0'
exit
ENDCASE
ENDDO
RETURN