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

Text File | 1979-12-31 | 637 b | 31 lines

*********************************
*        SBK.PRG                *
* ╔Φ ▒╕ ╣▄ └φ ╜¿ ┐Γ ╓≈ ┐╪ │╠ ╨≥ *
*********************************
STORE '  ' TO B
DO WHILE .NOT.B='F4'
CLEAR
@ 2,15 SAY '*******************╔Φ▒╕╠¿╒╩┤ª└φ*********************'
@ 3,15 say "    ú░ú«═╦│÷                      ú▒ú«╜¿┐Γ"
@ 4,15 SAY '    ú▓ú«╨▐╕─╝╟┬╝                  ú│ú«╔╛│²╝╟┬╝'
@ 5,15 say "****************************************************"
wait '               ╟δ╩Σ╚δ╣ª─▄▒α║┼(0,1,2,3):' to B
IF B='1'
DO F1
ELSE
IF B='2'
DO F2
ELSE
IF B='3'
DO F3
ELSE
IF B='0'
EXIT
ENDIF
ENDIF
ENDIF
ENDIF
STORE '  ' TO B
ENDDO
RETURN