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

Text File | 1979-12-31 | 3.5 KB | 182 lines

clear
set talk off
set device to screen
close database
a='   '
@ 4,10 say "╟δ╩Σ╚δ╫▄╝╟┬╝╩²" get a
read
a=val(a)
do while a<>0
clear
k1='         '
k2='            '
k3='    '
k4='   '
k5='          '
k6='                '
k7='        '
k8='         '
k9='        '
k10='  '
k11='    '
k12='   '
k13='     '
k14='    '
k15='      '
k16='            '
k17='            '
k18='            '
k19='            '
k20='            '
k21='   '
k22='   '
k23='            '
k24='   '
k25='                    '
k26='    '
k27='    '
k28='    '
k29='            '
k30='   '
clear
@ 1,1 say "╚▌╞≈▒α║┼" get k1
@ 1,30 say "╚▌╞≈├√│╞" get k2
@ 2,1 say "╚▌╞≈└α▒≡" get k3
read
a2=.t.
do while a2
@ 2,30 clear
@ 2,30 say "╩╣╙├╡Ñ╬╗▒α║┼" get k4
read
if k4='h'
use dw
do hel1.prg
a2=.t.
loop
endif
exit
enddo a2
w='y'
a1=.t.
do while a1
if w<>'y'
@ 1,1 say "╚▌╞≈▒α║┼" get k1
@ 1,30 say "╚▌╞≈├√│╞" get k2
@ 2,1 say "╚▌╞≈└α▒≡" get k3
@ 2,30 say "╩╣╙├╡Ñ╬╗▒α║┼" get k4
endif
@ 3,1 say "╝╝╩⌡╫╩┴╧║┼" get k5
@ 3,30 say "╓╞╘∞│º" get k6
@ 4,1 say "╓╞╘∞╚╒╞┌" get k7 pict 'xx.xx.xx'
@ 4,30 say "│÷│º▒α║┼" get k8
@ 5,1 say "╩╣╙├╚╒╞┌" get k9 pict 'xx.xx.xx'
@ 5,30 say "╔Φ╝╞╩╣╙├─Ω╧▐" get k10
@ 6,1 say "─┌╛╢(mm)" get k11
@ 6,30 say "▒┌║±(mm)" get k12
@ 7,1 say "│ñ(╕▀)(mm)" get k13
@ 7,30 say "╚▌╗²(m**3)" get k14
@ 8,1 say "╫▄╓╪(╣½╜∩)" get k15
@ 8,30 say "═▓╠σ(▓─┴╧)" get k16
@ 9,1 say "╖Γ═╖(▓─┴╧)" get k17
@ 9,30 say "╓≈┬▌╦¿(▓─┴╧)" get k18
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
if w<>'y'
clear
a1=.t.
loop
endif
exit
enddo a1
a1=.t.
do while a1
clear
@ 1,1 say "─┌▒┌╖└╕»┤δ╩⌐" get k19
@ 1,40 say "═Γ▒┌╖└╕»┤δ╩⌐" get k20
@ 2,1 say "╤╣┴ª(╣½╜∩┴ª/cm*cm)" get k21
@ 2,40 say "╬┬╢╚ C" get k22
@ 3,1 say "╜Θ╓╩" get k23
@ 3,40 say "▒┌╬┬ C" get k24
@ 4,1 say "╙├═╛" get k25
@ 4,40 say "═Γ╝∞╓▄╞┌(╠∞)" get k26
@ 5,1 say "─┌╝∞╓▄╞┌(╠∞)" get k27
@ 5,40 say "╚½├µ╝∞▓Θ╓▄╞┌(╠∞)" get k28
@ 6,1 say "░▓╫░╡╪╡π" get k29
@ 6,40 say "╩╘╤Θ╤╣┴ª" get k30
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
if w<>'y'
loop
endif
exit
enddo a1
j1=substr(k7,4,2)
j2=substr(k7,7,2)
j3=substr(k7,1,2)
k7=j1+'/'+j2+'/'+j3
k7=ctod(k7)
j1=substr(k9,4,2)
j2=substr(k9,7,2)
j3=substr(k9,1,2)
k9=j1+'/'+j2+'/'+j3
k9=ctod(k9)
k10=val(k10)
k11=val(k11)
k12=val(k12)
k13=val(k13)
k14=val(k14)
k15=val(k15)
k21=val(k21)
k22=val(k22)
k24=val(k24)
k26=val(k26)
k27=val(k27)
k28=val(k28)
k30=val(k30)
use yl
appe blank
repl yl1 with k1,yl2 with k2,yl3 with k3,yl4 with k4,yl5 with ì
k5,yl6 with k6,yl7 with k7,yl8 with k8,yl9 with k9,yl10 with k10
repl yl11 with k11,yl12 with k12,yl13 with k13,yl14 with k14,yl15 ì
with k15,yl16 with k16,yl17 with k17,yl18 with k18,yl19 with ì
k19,yl20 with k20,yl21 with k21,yl22 with k22,yl23 with k23
repl yl24 with k24,yl25 with k25,yl26 with k26,yl27 with k27,yl28 ì
with k28,yl29 with k29,yl30 with k30
clear
b='  '
@ 4,15 say "╟δ╩Σ╚δ┤╦╤╣┴ª╚▌╞≈░▓╚½╫░╓├╡─╕÷╩²:" get b
read
b=val(b)
do while b<>0
j1='            '
j2='                '
j3='                '
j4='  '
a5=.t.
do while a5
clear
@ 3,1 say "░▓╚½╫░╓├├√│╞" get j1
@ 4,1 say "╣µ╕±" get j2
@ 5,1 say "╨═║┼" get j3
@ 6,1 say "╩²┴┐" get j4
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
if w<>'y'
loop
endif
exit
enddo a5
j4=val(j4)
use yan
appe blank
repl yan1 with k1,yan2 with j1,yan3 with j2,yan4 with j4,yan5 ì
with j3
b=b-1
enddo
a=a-1
enddo
retu