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

Text File | 1979-12-31 | 1.0 KB | 55 lines

sET DEVICE TO SCREEN
SET TALK OFF
STORE '   'TO B
DO WHILE .NOT. B='G10'
CLEAR
CLEAR
@ 1,15 SAY '******************* ╘¡ ╩╝ ╡╡ ░╕ ********************'
@ 2,15 sAY 'ú░ú«═╦│÷                       ú▒ú«╣╠ ╢¿ ╫╩ ▓·'
@ 3,15 SAY 'ú▓ú«╕¿ ╗· ╠¿ ╒╩                ú│ú«╣°┬»╤╣┴ª╚▌╞≈'
@ 4,15 SAY 'ú┤ú«╣°╤╣░▓╚½╫░╓├               ú╡ú«╔Φ▒╕╚≤╗¼╡╡░╕'
@ 5,15 SAY 'ú╢ú«╣▄ ╡└ ╡╡ ░╕                ú╖ú«╡τ╞°╧▀┬╖┐Γ'
@ 6,15 SAY 'ú╕ú«╬¼╨▐╚╦╘▒╡╡░╕               ú╣ú«╡Ñ╬╗╣▄╡└├▄╖Γ╡π╩²┐Γ'
@ 7,15 SAY 'ú┴ú«╕≈╨═╔Φ▒╕╡─╞Σ╦ⁿú╞           ú┬ú«╔Φ▒╕╢■┐Γ'
@ 8,15 say "****************************************************"
wait '              ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8,9,a,b):' to B
DO CASE
case b='b'
do sbe
CASE B='1'
DO ZJKZ1
CASE B='2'
USE FJ
DO JKZ2
CASE B='3'
USE YL
DO JKZ3
CASE B='4'
USE YAN
DO JKZ4
CASE B='5'
USE YH
set index to yh2
DO JKZ5
CASE B='6'
USE GD
DO JKZ6
CASE B='7'
USE DX
DO JKZ7
CASE B='8'
USE RS
DO JKZ8
CASE B='9'
USE DGM
DO JKZ9
CASE B='a'
USE DE
DO QTF
CASE B='0'
EXIT
ENDCASE
STORE '   ' TO B
ENDDO
RETURN