home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
576-600
/
apd593
/
n_info_box_demo.amos
/
n_info_box_demo.amosSourceCode
Wrap
AMOS Source Code
|
1993-03-31
|
1KB
|
57 lines
'
'****************************************************
'
' SIMPLE INFO BOX
' ---------------
'
' BY MALCOLM LAVERY 1993
'
'****************************************************
'
Screen Open 0,320,256,8,Lowres
Curs Off : Cls 3 : Hide On : Flash Off
Palette $0,$FFF,$0,$7
Get Disc Fonts
LEV=1
'
Do
_INFO_ONE[100,50,100,50,"LEVEL",Mid$(Str$(LEV),2),1+Rnd(30)]
Wait 100
Cls 3
Inc LEV
Loop
'
Procedure _INFO_ONE[X,Y,WIDTH,HEIGHT,TEX1$,TEX2$,PATTERN]
'
Ink 1
Box X,Y To X+WIDTH,Y+HEIGHT
Ink 2
Box X-1,Y-1 To X+WIDTH+1,Y+HEIGHT+1
Box X+1,Y+1 To X+WIDTH-1,Y+HEIGHT-1
Gr Writing 0
Ink 2
Set Pattern PATTERN
Bar X+2,Y+2 To X+WIDTH-2,Y+HEIGHT-2
'
Set Font 1
XP=X+WIDTH/2-Text Length(TEX1$)/2
Ink 2
Text XP-1,Y+19,TEX1$
Text XP+1,Y+19,TEX1$
Text XP-1,Y+21,TEX1$
Text XP+1,Y+21,TEX1$
Ink 1
Text XP,Y+20,TEX1$
'
XP=X+WIDTH/2-Text Length(TEX2$)/2
Ink 2
Text XP-1,Y+39,TEX2$
Text XP+1,Y+39,TEX2$
Text XP-1,Y+41,TEX2$
Text XP+1,Y+41,TEX2$
Ink 1
Text XP,Y+40,TEX2$
'
Gr Writing 1
'
End Proc