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

Text File | 1979-12-31 | 1.6 KB | 58 lines

STORE 'Y' TO C
k1='     '
k2='     '
k3='     '
k4='     '
k5='     '
k6='     '
k7='     '
k8='     '
k9='        '
k10='        '
k11='        '
k12='        '
k13='        '
k14='        '
k15='        '
k20='  '
k21=' '
DO WHILE .NOT. C='N'
CLEAR
@ 0,10 SAY '╟»╣ñ╣ñ╩▒ú»ú╞╗·' GET k1 pict '##.##'
@ 0,40 SAY '╡τ╣ñ╣ñ╩▒ú»ú╞╡τ' GET k2 pict '##.##'
@ 1,10 SAY '╞≡╓╪╣ñ╩▒ú»ú╞╞≡╓╪' GET k3 pict '##.##'
@ 1,40 SAY '║╕╣ñ╣ñ╩▒ú»ú╞║╕' GET k4 pict '##.##'
@ 2,10 SAY '╣▄╣ñ╣ñ╩▒ú»ú╞╣▄' GET k5 pict '##.##'
@ 2,40 SAY '╗·╝╙╣ñ╣ñ╩▒ú»ú╞╗·╝╙' GET k6 pict '##.##'
@ 3,10 SAY '╞Σ╦ⁿ╣ñ╩▒ú»ú╞╞Σ╦ⁿ' GET k7 pict '##.##'
@ 3,40 say '═ú╨¬╠∞╩²ú»ú╞╗·' get k8 pict '###.#'
@ 4,10 SAY '╘¬ú»ú╞╗·' GET k9 pict '#####.##'
@ 4,40 say '╘¬ú»ú╞╡τ' get k10 pict '#####.##'
@ 5,10 say '╘¬ú»ú╞╞≡╓╪' get k11 pict '#####.##'
@ 5,40 say '╘¬ú»ú╞║╕' get k12 pict '#####.##'
@ 6,10 say '╘¬ú»ú╞╣▄' get k13 pict '#####.##'
@ 6,40 say '╘¬ú»ú╞╗·╝╙' get k14 pict '#####.##'
@ 7,10 say '╘¬ú»ú╞╞Σ╦ⁿ' get k15 pict '#####.##'
@ 7,40 say "╔Φ▒╕└α▒≡║┼" get k20
@ 8,10 say "╨▐└φ└α▒≡║┼(┤≤╨▐1,╓╨╨▐2,╨í╨▐3,╢■▒ú4)" get k21
READ
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w<>'y'
loop
endif
use xs
appe blan
repl xs1 with val(k1),xs2 with val(k2),xs3 with val(k3),xs4 with ì
val(k4),xs5 with val(k5),xs6 with val(k6),xs7 with val(k7)
repl xs8 with val(k9),xs9 with val(k8),xs10 with val(k10),xs11 ì
with val(k11),xs12 with val(k12),xs13 with val(k13),xs14 with ì
val(k14)
repl xs15 with val(k15),xs16 with k20,xs17 with k21
@ 8,0 clear
@ 9,20 SAY '╗╣╝╠╨°╩Σ╚δ┬≡ ?' GET C
READ
c=uppe(c)
ENDDO
clos data
RETURN