Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/CBHS-6.PRG

Text File | 1989-04-02 | 389 b | 24 lines

*│╔▒╛║╦╦π╫╙│╠╨≥╓«┴∙(└·╩╖╫╩┴╧╓╞╫≈╫╙│╠╨≥):CBHS-6.PRG
set talk off
clear
@ 5,25 say '╧╓╘┌╜°╚δ└·╩╖╫╩┴╧╓╞╫≈╫╙│╠╨≥'
@ 6,28 say '╟δ╘┌ A:┼╠▓σ╚δ╩²╛▌┼╠'
@ 7,28 say '╟δ╘┌ B:┼╠▓σ╚δ└·╩╖┼╠'
?
?
wait
use b:cbk.dbf
append from &qbl6
use b:bcbdek.dbf
if w3='╙═╞ß'
append from a:bcbde
endif
use b:scfpk.dbf
append from &qbl4
use b:cbzck.dbf
append from &qbl5
use
release all
return