Liren Large Software Subsidy 5/05.iso/a/a035/1.ddi/DB4/AS.BAK

Text File | 1991-07-16 | 1.4 KB | 79 lines

set talk off
set status off
set color to
dimen d(7)
d(1)='r+'
d(2)='g+'
d(3)='W+'
D(4)='RB+'
d(5)='b+'
d(6)='gr+'
d(7)='bg+'
clea
set color to w+/g+
@ 1,1 say '         ╩²   ╛▌   ┐Γ   ╬─   ╝■   ╡Ñ   ╧≥   ┤½   ╩Σ   ╫┤   ╠¼   ╞┴   '
@ 23,1 say '              ▒▒   ╛⌐   ╩╨   ╨┼   ╧ó   ┐╞   ╤º   ╤╨   ╛┐   ╦∙  ▒α    '
set color to
@ 10,3 say '⌐│⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╖              ⌐│⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╖'
@ 11,3 say '⌐º                ⌐º              ⌐º                ⌐º'
@ 12,3 say '⌐º                ⌐º              ⌐º                ⌐º'
@ 13,3 say '⌐º                ⌐º              ⌐º                ⌐º'
@ 14,3 say '⌐º                ⌐º              ⌐º                ⌐º'
@ 15,3 say '⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐┐              ⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐┐'
set color to g+/r+
@ 11,6 say '⌐│⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╖'
@ 11,40 say '⌐│⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╖'
@ 12,6 say '⌐º╕▀╜╠╛╓AST ⌐º'
@ 12,40 say '⌐º╨┼╧ó╦∙AST ⌐º'
@ 13,6 say '⌐º          ⌐º'
@ 13,40 say '⌐º          ⌐º'
@ 14,6 say '⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐┐'
@ 14,40 say '⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐┐'
i=0
t=42
tt=900
do whil t>0
@ 13,8+i say ' í·'
do whil tt>0
tt=tt-1
enddo
tt=990
t=t-1
i=i+1
enddo
t=42
i=0
fl=1
lo=0
do whil .t.
do whil t>0
y=time()
@ 10,25 say y
gg=d(fl)
set color to &gg/r+
@ 13,8+i say 'í╓'
fl=fl+2
if fl>=8
fl=1
endif
gg=d(fl)
set color to &gg/r+
t=t-1
i=i+2
if i>=42
i=0
endif
fl=fl+1
if fl>=8
fl=1
endi
enddo
i=0
t=42
fl=lo+1
lo=lo+1
if lo>=7
lo=0
endif
enddo