Liren Large Software Subsidy 6/06.iso/b/b032/6.img/31/GYC1.PRG

Text File | 1993-11-09 | 615 b | 30 lines

set talk off
set echo off
set scor off
set stat off
set esca off
clear
do fk1 with 3,10,5,60,"í∙"
@ 4,20 say "  ╓╨   ╤º   ╙ó   ╙∩   ╡Ñ   ┤╩"
@ 10,29 say "┐╞  ╤º  ╝╟  ╥Σ "
@ 16,22 say "  ┤╩         ╗π         ▒φ"
@ 20,16 say "      ╚½╣·╓╨╨í╤º╝╞╦π╗·╜╠╙²╤╨╛┐╓╨╨─"
do fk1 with 8,20,12,50,"í≥"
do fk1 with 15,16,17,56,"íε"
@ 22,9 say repl("í╘",28)
wait " "
@ 2,0 clear
do tsh
sele 1
use cdk1
zxcx="gyc10"
do cd with "xm",1,0,9,9,1,1
close data
set stat on
set scor on
set esca on
@ 10,16 say "    ╘╦       ╨╨       ╜ß       ╩°"
@ 13,20 say "        ╘┘           ╝√"
set talk on
set echo on