Liren Large Software Subsidy 5/05.iso/a/a048/1.img/DEMO.PRG

Text File | 1993-05-03 | 2.9 KB | 219 lines

set talk off
clea all
SET FGCOLOR TO RED
SET BGCOLOR TO BLACK
clea
set dot to dot4
@12,2 SAY "ITBASE ═╝╬─╩²╛▌┐Γ╧╡═│╤▌╩╛"
set dot to dot2
@18,28 say "╔╜╢½║╩╘≤"
nnnaaa=1
do while nnnaaa<40
   nnnaaa=nnnaaa+1
enddo
SET BGCOLOR TO WHITE
clea
@ 2,2 say "ITBASE ═╝╬─╩²╛▌┐Γ╧╡═│╤▌╩╛"
SET DOT TO DOT1
@ 8,16 say "╧╘"
SET DOT TO DOT2
@ 8,21 say "╩╛"
SET DOT TO DOT3
@ 8,26 say "╫╓"
SET DOT TO DOT4
@ 8,34 say "╠σ"
SET DOT TO DOT5
@ 8,44 say "╩╛"
SET DOT TO DOT6
@ 8,55 say "╖╢"
?LINE(0,120, 570,120)
?LINE(0,120, 570,270)
set dot to dot3
@ 24,53 SAY "╔╜╢½║╩╘≤"
WAIT
set bgcolor to black
clea
?line(30,400,570,400)
?line(30,50 ,30,400)
set fgcolor to red
?rect(60,130,100,400)
set fgcolor to green
?rect(150,190,190,400)
set fgcolor to blue
?rect(240,250,280,400)
set fgcolor to bwhite
?rect(330,110,370,400)
set fgcolor to blue
?rect(420,340,460,400)
set fgcolor to red
?rect(510,140,550,400)
set bgcolor to black
nnnaaa=1
do while nnnaaa<100
nnnaaa=nnnaaa+1
enddo
clea
use aaa
GO 15
@3,20 SAY CCC
nnn=1
do while nnn<100
   nnn=nnn+1
enddo
CLEA
go 1
set zoom to -4
@1,1 say ccc
@1,14 say ccc
@1,27 say ccc
@1,40 say ccc
@1,53 say ccc
@1,66 say ccc
@7,1 say ccc
@7,14 say ccc
@7,27 say ccc
@7,40 say ccc
@7,53 say ccc
@7,66 say ccc
@13,1 say ccc
@13,14 say ccc
@13,27 say ccc
@13,40 say ccc
@13,53 say ccc
@13,66 say ccc
@19,1 say ccc
@19,14 say ccc
@19,27 say ccc
@19,40 say ccc
@19,53 say ccc
@19,66 say ccc
set zoom to -2
@1,1 say ccc
@1,27 say ccc
@1,53 say ccc
@13,1 say ccc
@13,27 say ccc
@13,53 say ccc
set zoom to -1
@1,14 say ccc
nnn=1
do while nnn<100
   nnn=nnn+1
enddo
CLEA
go 10
set zoom to 1
@1,18 say ccc
CLEA
@1,1 say ccc
@1,41 say ccc
nnn=1
do while nnn<100
   nnn=nnn+1
enddo
CLEA
go 11
@3,10 say ccc
nnn=1
do while nnn<100
   nnn=nnn+1
enddo
CLEA
skip
@3,21 say ccc
nnn=1
do while nnn<100
   nnn=nnn+1
enddo
skip
CLEA
@1,1 SAY CCC
set zoom to -2
@1,1 say ccc
set zoom to -4
@1,1 say ccc
nnn=1
do while nnn<100
   nnn=nnn+1
enddo
CLEA
set zoom to -1
@1,1 say ccc
SKIP -1
@1,1 say ccc
SKIP
SET ZOOM TO -4
@1,1 SAY CCC
SKIP -1
set zoom to -4
@1,1 say ccc
nnn=1
do while nnn<100
   nnn=nnn+1
enddo
clea
go 20
set zoom to 1
@3,25 say ccc
nnn=1
do while nnn<100
   nnn=nnn+1
enddo
CLEA
set zoom to 1
GO 15
@2,21 SAY CCC
nnn=1
do while nnn<100
   nnn=nnn+1
enddo
clea
set zoom to -4
@10,37 say ccc
nnn=1
do while nnn<50
   nnn=nnn+1
enddo
set zoom to -2
@5,32 say ccc
nnn=1
do while nnn<50
   nnn=nnn+1
enddo
set zoom to -1
@2,21 say ccc
nnn=1
do while nnn<50
   nnn=nnn+1
enddo
go 16
@1,1 SAY CCC
nnn=1
do while nnn<100
   nnn=nnn+1
enddo
GO 15
@1,1 SAY CCC
go 16
SET ZOOM TO -2
GO 15
@1,1 SAY CCC
set zoom to -4
@1,1 say ccc
nnn=1
do while nnn<100
   nnn=nnn+1
enddo
GO 15
SET ZOOM TO 1
@1,1 SAY CCC
wait
clea
HELP
RETURN