home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
601-625
/
apd617
/
len_tucker
/
listbobs.amos
/
listbobs.amosSourceCode
Wrap
AMOS Source Code
|
1986-08-03
|
716b
|
44 lines
Load "duck.abk"
_LISTBOBS_EASY[1,Length(1)]
Procedure _LISTBOBS_CLASSIC[S,E]
If Length(1)>0
SX=0 : SY=0
' change the step width to suit
BW=32 : BH=32
For Z=1 To Length(1)
Paste Bob SX,SY,Z
Add SX,BW
If SX>320 : SX=0 : Add SY,BH
If SY>256
Print "Press space for more"
Repeat : Until Inkey$=" "
Cls
SX=0 : SY=0
End If
End If
Next Z
Else
Print "No bobs in bank!!"
End If
End Proc
Procedure _LISTBOBS_EASY[S,E]
If Length(1)>0
SX=0 : SY=0
' change the step width to suit
BW=32 : BH=32
For Z=1 To Length(1)
Paste Bob SX,SY,Z
SX=SX+BW
If SX>320 : SX=0 : SY=SY+BH
If SY>256
Print "Press space for more"
Repeat : Until Inkey$=" "
Cls
SX=0 : SY=0
End If
End If
Next Z
Else
Print "No bobs in bank!!"
End If
End Proc