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

Text File | 1979-12-31 | 1.3 KB | 51 lines

sTORE 'Y' TO C
use xs
DO WHILE .NOT. C='N'
clea
a='  '
b=' '
@ 4,20 say "╟δ╩Σ╚δ╔Φ▒╕└α▒≡║┼" get a
@ 5,20 say "╨▐└φ└α▒≡║┼" get b
read
loca for xs16=a .and. xs17=b
if eof()
@ 4,0 clea
wait '         ╬▐┤╦╢¿╢εú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
clos data
retu
endif
a1=.t.
do while a1
CLEAR
@ 0,10 SAY '╟»╣ñ╣ñ╩▒ú»ú╞╗·' GET xs1 pict '##.##'
@ 0,40 SAY '╡τ╣ñ╣ñ╩▒ú»ú╞╡τ' GET xs2 pict '##.##'
@ 1,10 SAY '╞≡╓╪╣ñ╩▒ú»ú╞╞≡╓╪' GET xs3 pict '##.##'
@ 1,40 SAY '║╕╣ñ╣ñ╩▒ú»ú╞║╕' GET xs4 pict '##.##'
@ 2,10 SAY '╣▄╣ñ╣ñ╩▒ú»ú╞╣▄' GET xs5 pict '##.##'
@ 2,40 SAY '╗·╝╙╣ñ╣ñ╩▒ú»ú╞╗·╝╙' GET xs6 pict '##.##'
@ 3,10 SAY '╞Σ╦ⁿ╣ñ╩▒ú»ú╞╞Σ╦ⁿ' GET xs7 pict '##.##'
@ 3,40 say '═ú╨¬╠∞╩²ú»ú╞╗·' get xs9 pict '###.#'
@ 4,10 SAY '╘¬ú»ú╞╗·' GET xs8 pict '#####.##'
@ 4,40 say '╘¬ú»ú╞╡τ' get xs10 pict '#####.##'
@ 5,10 say '╘¬ú»ú╞╞≡╓╪' get xs11 pict '#####.##'
@ 5,40 say '╘¬ú»ú╞║╕' get xs12 pict '#####.##'
@ 6,10 say '╘¬ú»ú╞╣▄' get xs13 pict '#####.##'
@ 6,40 say '╘¬ú»ú╞╗·╝╙' get xs14 pict '#####.##'
@ 7,10 say '╘¬ú»ú╞╞Σ╦ⁿ' get xs15 pict '#####.##'
@ 7,40 say "╔Φ▒╕└α▒≡║┼" get xs16
@ 8,10 say "╨▐└φ└α▒≡║┼(┤≤╨▐1,╓╨╨▐2,╨í╨▐3,╢■▒ú4)" get xs17
READ
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w<>'y'
loop
endif
exit
enddo
@ 8,0 clear
@ 9,20 SAY '╗╣╝╠╨°╨▐╕─┬≡ ?' GET C
READ
c=uppe(c)
ENDDO
clos data
RETURN