Amiga Computing - Commodore Is Awesome

• 8 •
• • • 18
• • •
8 8 O
•
Plcome back. Let's hope you have
the rest of the program typed in by
now, as we are going to give you
the rest of the Screen Info program by Graham
Moody. All set? Right let's get going.
As we said last month this is a screen into
program which loads a screen and gives you
info about it The author describes its usage
thus:
'Here is a routine that will give you information
on the current screen, from the screen number
to the amount of memory the screen is using.
There are two modes of operation.
illt _SCREE/LIM/11
Is the silent mode, where by the information is
returned from the procedure in a string.
_SCREENNUNISEI=Vat(Left$01,1)/
1
, ImhattlfidltILD,4))
A
a
NUI8EIDICOLOORS.Dat(lid$(1S,23,4)f
l
lUMBEIDIBITPLUESIatflidl(16,21„1/7
( AMOUNTOFSEREENNENDIInlatflidlffl,30,7)1
l
this is i how we get the information, that is
6 returned t from the procedure
d
1
_SCREEN_IIFOIO)
(
is non silent mode where by the information is
1
displayed directly on screen '
8
Okay, here's the second part of tne code.
,
Don't try to run this on its own as tt is not
3
complete! , Okay, here we go with part 2.
First
4
we open a screen:
1
)
Screen Dpen I
6,eires
Screen 11
1A„
spIr
We grab the - Palette of the current screen.
Then we fade In
Net Palette
Fidel F,S/FO,SfaCi,SCCI,SAAC,177A,Sf00
$11%. 11 • ;18F,83,SIC
,M
Curs Off : RIO Off : Paper 5
r • I I ; 1.0 : WIDIR.640 : IIIIIII.120 .
l1
• Ocisub UW3
i 1 • 1 4 0 : 1.13 : 011111.560 : NEINDIell'
d : Rosa LINNT31
e
: We then GOSUB to the routine that onnts the
linformation.
a
i Nosub INFOPIINT
t i Nait Wbt
lI
Ink 3 : Paint Is4,Y+4,0 : lea p
, of screen, in tabour 3
b
a
Piper 3 : Pen 5 : locate ,2 : Centre
t
i 'Screen
infortation"
n
for Ii4 Ti ISO Step 16 Scren Display I511,128,N„
t
Wait Vbt 4 111 1
Hut V
1
For 11.150 To 100 Step 1-4
Screen Display ISN,128,11„ 1
Veit lbt
Neat N
1
iFor 116100 To 150 Step 2 1
Screen Display I51,121,11,, 1
Veit VIA
lOst I
;Timer
Having done all that we set timer to zero and
then we go into a lade repeat/until loop:
111110 g0e5 •1
there?
11
Part B
lepeat
'
InIfmer/50
If T.m110
If 111.
- sina41
.0 If 110150 : UPI 1 fad If
If this is the case we will move screen down.
N=11-1
1If 11.c6° :UPO End If
1 1
2
if this is the case we will move screen up.
Sows Ols014I
o l l e . 1 1 1 . 6
.
Here's where
1
the decisions we made earlier
about moving the screen up/down come into
effect
End If
Halt Vbf
Wait for the next vertical blank and then set up
a mouse key sensor, so if a mouse key is
pressed we will continue, like so:
5INtif Noose Me "4111111111111111
Next we have a FOR/NEXT loop, which shows
us the into screen:
For NI Ti -IDO Step -16
Screen Display IS1,121,11„
Wait Dbt
Next
Then
.•
we close the information screen and exit
the procedure
ose IS :
1 1
Pop Proc
! itif Screen it Cl
ioto REPORT
I I
Right now we enter the tight3D area of the
program, Try this proc on its own to see what
happens. X and Y hold the x
box. . WIDTH and HEIGHT hold the width and
height y position
of the box. Simple and effective huh?
o f
LIGHT3a:
t h e
Ink : Bar t,1 To IWO I N T
Ir
j
This clears the middle with the background
colour
11111or
Write stuff
it you nave ,
,
i House Arlington Park Macclesfield 910 4NP
to Phil South, Amos Cokimn Amcy Cceopoong Medi
nitr
e
y a
Ink 6
Dram 1411110 To ItilIDTIGIOEINNT
Dram To 1,10EI5NI
Ink 4
Iran Ti 1,1
Orem To IrMIDI,I
Ink 6
Paw PWIDTW-1,10 To 1.1110IN-1,YelEIGNI-I
Draw To 1141,YmMEINIII-1
Ink 4
frau To I41,141
Iran To X+WIDIN-1,10
Ink 6
Draw leklIDTH-2,Y+2 To 10110TM-2,TOEIGNI-2
Paw To its.2,1
. Ink 4
0EINNT-2
Pfau To I.2,Y.2
Dray To 14111DIM-2,M2
'glum
And finally we have the INFORPRINT label we
referred to earlier:
1
. INFOPRIIT:
Pen 12
Locate ,4
Centre • The screen numbern"
,
DEC
iSt•SC_SEREEI_Ntill-
Locate ,5
Centre • The screen midth.".Strlf_SCREEI_VIDIlf
Locate ,6
Centre • The screen
Locate ,7
Centre "Tte maxima /weber of
cotourin'eStrl(_MAXIUR_NUMIER_OF_COLOORS)
Locate ,8
, Centre "The number of Planta
meillebtees5trl(110Pal
, Locate ,9
Centre "The tefthend side of the screen Is displayed
it".tstrsnotSPLAYI
Locate ,I0
, Centre 'The top of tie screen is displayed
et"*Stri(IESPLAY)
Locate pit
tee "Ti. totat memory requirement for tbfm
•
rlITSI/1024)elflOOITE5
e
Locate m,12
Centre
S
'Mtn the double buffer system is ift
,us, time by 2f*
t
k
Locate
r
4ii.
,I3
Pen D : Centre "Press souse key to um-
Return I
REPORT: f
End ProcEISI
I
l
l
And there you have rt. All the information you
/
could wish
e
for about a screen Handy to be able
to do this
b
kind of thing on the fly lf, for
example, y you had an image processing
program, t and you wanted to sense the
parameters e of an incoming screen file so you
could casually s pop them up on the screen after
a menu, ' for example. then this is the routine for
you. Ft . is a veritable Swiss Anry Knife of a
routine, ' so keep it handy.
Back oto
normal, whatever that is, next month,
and keep
r
those routines and letters coming.
Amiga Computing
OCTOBER 1995
• • • ••
•
g a n
• g • •• •
Phil South
look5 at part
two of the
WPM info
program