home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Computing 66
/
ac066b.adf
/
AMOS.DMS
/
AMOS.adf
/
amos_3d_demos
/
Object_Look.AMOS
/
Object_Look.amosSourceCode
Wrap
AMOS Source Code
|
1991-07-30
|
1KB
|
50 lines
'
' Object invetigator (same as OL from the CLI)
'
' By Nick Harper
'
' (c) Europress / VooDoo Software 1991
'
'
Screen Open 0,640,200,2,Hires
Curs Off : Flash Off
POON:
Pen 1 : Paper 0 : Palette 0,$FFF
Cls 0
Locate 1,1 : Centre "AMOS 3D Object investigator"
Wait 25
F$=Fsel$("*.3DO","","Load an OBJECT!")
If F$="" Then Locate 1,5 : Centre "Back to AMOS..." : Wait 50 : Edit
Open In 1,F$
Erase 10 : Reserve As Work 10,Lof(1) : Bload F$,Start(10)
Close
ZERO=Start(10)
PS=1 : NUM=0
EURGH:
If Peek(ZERO+PS)<>41 Then Inc PS : Goto EURGH
PSS=PS : PS=1
A$=""
Repeat
A$=A$+Chr$(Peek(ZERO+PS))
Inc PS
Until PS=PSS
NUM=ZERO+Val(A$)
SET=0 : LT=0 : LINE=0 : Locate 1,2
Print
Repeat
A$=Chr$(Peek(NUM))
If A$="(" and SET=0 Then SET=1
If A$="2" and SET=1 Then Print "Surface - Filename is ";
If A$="4" and SET=1 Then Print "Template - Filename is ";
If A$="e" and Peek(NUM+1)=110 and Peek(NUM+2)=100 and SET=3 Then LT=1 : SET=0
If A$=")" and SET=3 Then SET=0 : Print : Inc LINE
If SET=3 Then Print A$;
If A$="," and SET=2 Then SET=3
If A$="," and SET=1 Then SET=2
Inc NUM
If LINE>14 Then Locate 1,20 : Print "Note these now ! Press any key to continue" : Wait Key : LINE=0 : Ink 0 : Bar 0,16 To 640,200 : Locate 0,3
Until LT=1
Z=Free
Repeat
Until Inkey$<>"" or Mouse Key<>0
Goto POON