home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Return to Jurassic
/
JURASSIC.ISO
/
mac
/
DINO_m
/
MOVIE
/
S31
/
S31.rsrc
/
BITD_1059
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1995-07-24
|
3KB
|
116 lines
GOTO
STATIC
<0x7e><0x5e><0xc5869c>AA<0xc5869f>A<0xc586a1><0x7e><0x5e>REM
<0x50>
<0xc586a8><0x5e><0x5e><0xc586ab>A<0xc586ad><0x7c>A
<0xc586b1><0x7e>Alabel1041<0xc586b7><0x7e><0x5e>
<0x7e><0x5e><0x4b>
VAL
<0x5e><0x7c>AMODeA<0x5e><0xc586ce><0xc586cf>A<0x5e><0x61>
MKS$
<0xc586d8>A<0xc586da><0xf6,0xfffffffc><0x7d>COS<0xf6,0x00><0xc586e1>AA<0x5e>AA<0x5e>MOD
FOR
<0x5e><0x7e>A<0x7c>e<0x7e>COS<0xc586f4><0x5e>COSCOS<0x5e>COSCOS
COS<0x7c>e<0x5e>A<0x5e>CVS
<0x7d><0x5e>
A<0x7d>e<0xc5870e>COSCOS<0x5e>COSCOS<0x5e>COS<0x5e>COSCOS<0x5e><0x7e>COS<0x7d>elabelffffde41<0x5e>EQV
MOD<0x5e>STRING$
+
<0x5e><0x7d><0xc5872d>
<0x5e><0x7e>e<0xc58732>COS<0x5e>COSCOS<0x5e><0xf6,0x00>COS<0x5e>COS<0x7c>evar41de<0xf6,0x00><0x7c><0x5e><0xc58748><0xc58749>A<0xc5874b><0xc5874c>A<0xc5874e>AA<0xc58751>AA<0x7d><0x5e><0x52>
<0x58>
varffffde10<0xf6,0x00><0x7e>COS
<0x5e>\COSvarffffde89<0x7c>evar41de<0x7c>
<0x7e><0x5e><0xc58771>A<0xc58773>A<0xc58775>A<0xc58777><0x7e>A&H1041A<0xc5877e>AA<0xc58781>AA<0xc58784>A<0x5e>MKL$
<0xc587b4><0x5e><0xc587b6>ee<0x5e><0xe7,0x00><0xe7,0x01>COSCOS<0x5e><0x7e>COS<0x7c>evarffffdede<0x7d>
<0xc587cc><0x5e><0x5e>A<0xc587d0>A<0xc587d2><0x7e>A
e<0x7e>A<0xc587d9>eAeeAAee<0x7d>Avar1041<0x7e><0x5e>READ
<0xc587eb><0x5e>Ae<0x5e><0x5e><0xe7,0x00><0xc587f3><0x5e><0x5e>COSCOS<0x5e>COSCOS<0x5e>COS<0x5e><0x7e>COS<0x7e>e<0xc58802>A<0x7f>A<0x5e>
<0x5e><0x5e>A<0xc5880c>A<0xc5880e><0x7d>A
evar4141XORe<0xc58818>AA<0xc5881b>A<0xc5881d><0x5e>REM
<0xc58821><0x5e>Ae<0x5e><0x5e><0xe7,0x00>labelffff8989<0x5e><0xe7,0x00><0xc5882f>COSeeAA<0x7f>A<0x7e><0x5e>label0941<0xc5883c><0x7d>Avar6541+e<0x7e>AvarffffdedeRETURN
<0x5e>var4141MODe<0xe7,0x00><0x7f>eA<0x7e><0x7f>labelffffdede<0xc5885e><0x7d>AAeA<0xe7,0x00>
<0x5e><0x7e>eCOSCOS<0x5e><0x7e>COS<0xe7,0x00>A<0xc58878><0x5e><0x45>
+
varffffdede<0xe7,0x00><0xc58883>AAeeCOSCOSA<0x7c>COS
A<0x7e><0x7f><0x7f>e<0x5e><0x7d>A MODe<0xc588c4>COSCOS<0x5e>COSCOS<0x5e><0x63,0x00>
<0x5e><0x7c>elabel4141<0x5e><0x5b>
<0x55>
labelffffde41A<0x7e>e
A<0x7e><0x7f><0x7e>Avarffffff41<0x63,0x00><0xc588ea>6<0x7f><0x7f>
<0x7f>e<0x5e><0x7e>A\e<0xc588f6><0x5e>COSCOS<0x5e>COSCOS<0x5e>OBJECT.Xvarffffdede<0x7d>COS<0x7e>elabel1041<0x5e>AND
WRITE
labelffffde10A<0x7e>evar4165<0x7d><0x7f>
AOBJECT.X<0xc5891e>e6<0x7f><0x7f>6 <0xc00,0x00><0xc58954><0x5e>e<0x5e>COSCOS<0x5e><0x7c>COS<0x7e><0x5e>labelffff89de<0x5e><0x7d>COSlabelffffdedeCOS
COS<0x7e>evar10deREM
<0xc58972><0x5e><0xc58974>AeeAA<0x7f><0x7c><0x7f><0x7f>AOBJECT.X6ee<0x5e>eA<0x7c>e<0xc5898d><0x5e>e<0x5e>eCOS<0x5e>^COS
<0x5e><0x7c>COS<0x7e>evar41deREM
varffffde41<0x7e>e<0xc589a6>AA<0x7f>
<0x7f>6<0xdc,0x00>varffff8989<0x7d>evarffff89de<0x7c>e<0xc589b9><0x5e>e<0x5e>e<0x5e>EQVCOSvarffffdede<0xdc,0x00><0x5e>COSe<0xc589cd>A<0x5e>SGN
<0x7d>
labelffffde10A<0x7d>e<0xc589da>6<0x7f><0x7f>6eMODCOS<0xc589e2>e<0x5e>COSCOSeCOS<0x5e>COS<0x5e>eCOS<0x5e><0xdc,0x00>
<0x5e><0xdc,0x00>
<0x5e><0x7d>COS
<0x5e><0x7e>COS
<0x5e><0x7e>COS<0x7e>evar10de<0x4a>
NOT
labelffffde41A<0x7d>e<0x7e>6
e\COSlabel6565<0x5e><0x7d>COSlabelffffde89<0x5e><0xdc,0x00>labelffffde89<0x5e>ORCOSvarffffdede<0xdc,0x00> A<0x5e><0x60>
<0x52>
<0xc58a6a>AA<0x63,0xfffffffc>DEFDBL<0x7e>e<0xc58a73><0x5e>COSCOS<0x5e>COS<0x5e><0x63,0x00>varffffdedeMODCOS<0x7e><0x5e>labelffff8989<0x5e><0x7e>COS
<0x5e><0x7e>COS<0xc58a8d><0x5e><0x5e>COSee<0xc58a93><0x5e>IMP
WEND
<0xc58a9b>AA<0x7e>eIMPCOS<0x7d>e
<0x5e>*COS
<0x5e>OBJECT.XCOSCOS<0x5e><0x7d>COS<0xc58ab3>COS<0x5e>COSCOS<0x5e>COSeeA<0x5e>RIGHT$
<0x5e><0x7e>A COS<0x7d>e
<0x5e>IMPCOSvarffffde89varffff8989<0x7e><0x5e>COS<0x5e><0x5e><0x63,0x00>
<0x5e>\COSlabel6510<0x5e>RIGHT$
<0xc58b14>AA<0x7d>e<0x63,0x00>varffff8989<0x7e>e
<0x5e><0x7e>COS<0x7e>evar41de<0x7e>COSvarffffdede\COS<0x63,0x00>\COS
<0x5e><0x7d>COSlabel6541<0x5e>SQR
<0x7c>
<0x5e><0x7d>A<0x7d>e\COSlabel6565<0x5e><0x7e>COS<0x7e>e<0xc58b50>AA<0x5e> COSvar6565<0x7c><0x5e><0xdc,0x00>
<0x5e>\COS<0xc58b8e><0x5e><0x5e>COSCOSeA<0x5e><0x4c>
THEN
<0x5e><0x7e>A<0x7c>eDEFDBL<0xc58ba2>ee<0x5e>COSCOS<0x7d>e&H4141<0x5e>eCOSee<0x5e>ee<0x5e><0x5e>A<0x7e>e<0xdc,0x00>COSCOS<0x5e><0xdc,0x00><0xc58bc3><0x5e>COSCOSeA<0x5e><0x62>
<0x51>
varffffde10<0x7e>A<0x7c>e<0xdc,0x00><0x7e>evarffffde89<0x7d>e<0xc58bde>AA<0x5e>ee<0x5e>ee<0x5e><0x5e>AA<0x7e>e<0xdc,0x00>COSCOS<0x5e><0x7e>COS
<0x5e>\COSlabel6541<0x5e>\
VAL
<0xc58c02><0x5e><0xc58c04><0x5e><0xc58c06>AA<0x7d>e<0xdc,0x00><0x7e>evarffffde89<0x7d>e<0x7e>A
<0x5e><0x7e>e
<0x5e><0x7e>A<0x7e>e\COS
<0x5e><0xdc,0x00><0xdc,0x01><0xc58c28><0x5e>COSCOSA<0x5e>RIGHT$
<0xc58c30><0x5e><0xc58c32><0x5e><0xc58c34>AA<0x7d>e<0xdc,0x00>e<0x5e>COS<0x7d>e<0xc58c42><0x5e>AA<0x5e>e<0x5e><0x5e><0x7e>Avar6565OBJECT.X
<0x5e>XORCOS<0xc58c55><0x5e><0x5e>COSCOS<0x5e><0x5e>e<0xc58c92><0x5e><0xc58c94><0x5e><0x5e><0xc58c97>A<0x7d>e<0x7d>COS<0x7e>COS<0xc58c9f>ee<0x5e>COSee<0x5e>e<0x5e>AA<0x5e>e<0x5e><0x7e>Avar6565<0xae,0x00>
<0x5e>ANDCOS<0xc58cb9><0x5e>COSCOS<0x5e>eA<0x5e>STR$
<0xae,0x00><0xc58cc5><0x5e><0xc58cc7><0x5e>k<0x5e><0xc58ccb>A<0x7d>e<0xae,0x00>&H65deCOSCOS<0x5e><0xc58cd7><0x5e>eeAA<0x5e><0x5e><0x7e>Avar6565<0x62>COSvar41de<0x4d>
USING
<0xc58ced><0x5e><0xc58cef><0x5e>
<0x5e>AA<0x7e>e<0xae,0x00><0xc58cf9>e<0x5e>COSe<0x5e><0xc58cff><0x7e>e<0xc58d02>AA<0x5e><0x5e>AAee<0x7d>COS
<0x5e>+COSvarffffdede<0x7d>COSvar41de<0x62>
<0x4e>
<0xc58d1d><0x5e><0xc58d1f><0x5e>k<0x5e><0xc58d23>AAee<0x7c>COS<0xc58d2a>e<0x5e>COSee<0x5e><0xc58d31>e<0x5e>AA<0x5e><0x7e>Avar6565<0x7e>COSefieAAfiAA˛e˚âfiââfiˆâfiââfiâfi¸âfiefi∑ <0x5e>^COS
<0x5e><0x7e>COS
<0x5e><0x7e>COSvar65de\
STR$
<0xc58d84><0x5e><0xc58d86><0x5e>
<0x5e><0xc58d8a>AA<0x7d><0x5f>COS<0x5e>COS<0x7e>e<0x5e>AA<0x5e>AA<0x7e>e<0x87,0x00>
<0x5e>XORCOSvarffffdede<0x7c>COS<0xc58dad><0x5e>COS<0x5e>COSe<0x5e>READ
<0xc58db6><0x5e><0x5e><0xc58db9><0x5e>k<0x5e>A<0x5e>e<0x7f><0x5e><0x5f><0x5e><0x5e><0x7c>elabelffffde10e<0x7e>A<0xc58dcd><0x5e>AAee<0x7e>COS<0x7e>COSCOSCOS<0x5e>\COS
<0x5e><0x7e>COS
<0x5e>OBJECT.Xlabelffffde65<0x5e>READ
<0xc58dec><0x5e><0x5e><0xc58def>A<0x5e>
<0x7f><0x7f>ee<0x7f>