home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
spoc88
/
tbtasm
/
maxdemo.bas
< prev
next >
Wrap
BASIC Source File
|
1988-06-14
|
217b
|
18 lines
CLS
DEFINT A-Z
DIM A(100)
RANDOMIZE(157)
FOR I=1 TO 100
A(I)=10000*RND(9)
NEXT
MAXVAL=0
COUNT=100
CALL GTMAX(MAXVAL,A(1),COUNT)
PRINT MAXVAL
END
SUB GTMAX INLINE
$INLINE "TBMAX.BIN"
END SUB