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

Text File | 1979-12-31 | 1.4 KB | 93 lines

clear
set talk off
set device to screen
close database
a='   '
@ 4,20 say "╢α╔┘▒╕╝■?" get a pict '999'
read
a=val(a)
do while a<>0
k1='         '
k2='        '
k3='        '
k4='            '
k5='        '
k6='   '
k9='            '
k10='        '
k11='                '
a1=.t.
do while a1
clear
@ 0,1 say "▒╕╝■▒α║┼" get k1
@ 1,1 say "╣µ╕±╨═║┼" get k11
@ 2,1 say "╡Ñ╝█" get k2 pict '#####.##'
@ 3,1 say "╩²┴┐" get k3 pict '#####.##'
@ 4,1 say "╚δ┐Γ╚╒╞┌" get k5 pict '99.99.99'
@ 5,1 say "║╧═¼║┼" get k4
read
a2=.t.
do while a2
@ 6,1 clear
@ 6,1 say "╣⌐╗⌡╡Ñ╬╗▒α║┼" get k6
read
if k6='h'
use gh
do hel11.prg
loop
endif
exit
enddo a3
@ 7,1 say "╚δ┐Γ╡Ñ║┼" get k9
@ 8,1 say "╛¡╩╓╚╦" get k10
read
@ 9,0 clear
wait '╟δ╤í╘±ú║╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú¼╫≈╖╧ú¼╖╡╗╪ú╥ú║' to w
do case
case w='r'
retu
case w='x'
loop
case w='f'
a=a+1
exit
case w='z'
k2=val(k2)
k3=val(k3)
j1=substr(k5,4,2)
j2=substr(k5,7,2)
j3=substr(k5,1,2)
k5=j1+'/'+j2+'/'+j3
k5=ctod(k5)
use bj
set index to bj1,bj2
seek k1
if eof()
clear
@ 4,1 clear
wait "            ┤╦▒╕╝■╬¬╨┬▒╕╝■,╟δ╙├╨┬▒╕╝■╚δ┐Γ╣ª─▄,░┤ú╞╝ⁿ╖╡╗╪" to w
retu
endif
repl b5 with b5+k3
use bh
loca for h1=k4 .and. h2=k11
repl h10 with h10+k3
if h10=h7 .and. .not. eof()
e=recno()
dele reco e
pack
endif
use cr
appe blank
repl l1 with k1,l2 with k5,l3 with k3,l4 with k2,l6 ì
with k6,l8 with k9,l9 with k10,l10 with 'r'
exit
endcase
enddo
a=a-1
enddo
retu