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

Text File | 1979-12-31 | 550 b | 26 lines

*******************
*    ╜¿    ┐Γ     *
*    1987.09.16   *
*******************
STORE '  'TO B
DO WHILE .NOT. B='0'
CLEAR
@ 3,15 SAY '******************╩²╛▌┤ª└φ********************'
@ 4,15 SAY 'ú░ú«═╦│÷                      ú▒ú«╘¡╩╝╡╡░╕ '
@ 5,15 SAY 'ú▓ú«╫█║╧╨┼╧ó╩Σ╚δ              ú│ú«┤·    ┬δ'
@ 6,15 say "**********************************************"
wait '              ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3): ' to B
DO CASE
CASE B='1'
DO A1
CASE B='2'
DO A2
CASE B='3'
DO A3
CASE B='0'
LOOP
ENDCASE
STORE '  ' TO B
ENDDO
RETURN