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

Text File | 1980-01-01 | 1.5 KB | 78 lines

clear
set talk off
set device to screen
close database
use jh index jh1
if k1='y'
loca for jh1=a .and. jh2=b .and. jh3=c
if eof()
retu
endif
dele reco recno()
pack
retu
endif
j1='         '
j2='    '
j3='  '
j4='      '
j5='      '
j6='      '
j7='      '
j8='      '
j9='      '
j10='      '
j11='          '
j12='     '
a4=.t.
do while a4
clear
@ 1,1 say "╔Φ▒╕▒α║┼" get j1
@ 2,1 say "╨▐└φ└α▒≡ú¿┤≤╨▐ú▒ú¼╓╨╨▐ú▓ú¼╨í╨▐ú│ú¼╢■▒úú┤ú⌐" get j2
@ 3,1 say "╨▐└φ╩▒╝Σú¿╘┬ú⌐" get j3 pict '99'
@ 4,1 say "╟»╣ñ╣ñ╩▒" get j4 pict '####.#'
@ 5,1 say "╡τ╣ñ╣ñ╩▒" get j5 pict '####.#'
@ 6,1 say "╞≡╓╪╣ñ╩▒" get j6 pict '####.#'
@ 7,1 say "║╕╣ñ╣ñ╩▒" get j7 pict '####.#'
@ 1,50 say "╣▄╣ñ╣ñ╩▒" get j8 pict '####.#'
@ 2,50 say "╗·╝╙╣ñ╣ñ╩▒" get j9 pict '####.#'
@ 3,50 say "╞Σ╦ⁿ╣ñ╩▒" get j10 pict '####.#'
@ 4,50 say "╝╞╗«╨▐└φ╖╤╙├" get j11 pict '#######.##'
@ 5,50 say "═ú╨¬╠∞╩²" get j12 pict '#####'
read
@ 8,1 clear
wait "╟δ╤í╘±ú║╩²╛▌╒²╚╖ú┌ú¼╫≈╖╧ú╞ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥ú║" to j15
do case
case j15='r'
retu
case j15='f'
exit
case j15='x'
loop
case j15='z'
j3=val(j3)
j4=val(j4)
j5=val(j5)
j6=val(j6)
j7=val(j7)
j8=val(j8)
j9=val(j9)
j10=val(j10)
j11=val(j11)
j12=val(j12)
appe blank
repl jh1 with j1,jh2 with j2,jh3 with j3,jh4 with j4,jh5 with ì
j5,jh6 with j6,jh7 with j7,jh8 with j8,jh9 with j9,jh10 with ì
j10,jh11 with j11,jh12 with j12
exit
endcase
enddo a5
wait '╗╣╘÷╝╙┬≡ú¿ú┘ú»ú╬ú⌐' to q
if q='y'
loop
else
retu
endif
enddo
retu