home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd617 / len_tucker / listbobs.amos / listbobs.amosSourceCode
AMOS Source Code  |  1986-08-03  |  716b  |  44 lines

  1. Load "duck.abk"
  2. _LISTBOBS_EASY[1,Length(1)]
  3. Procedure _LISTBOBS_CLASSIC[S,E]
  4. If Length(1)>0
  5. SX=0 : SY=0
  6. ' change the step width to suit
  7. BW=32 : BH=32
  8. For Z=1 To Length(1)
  9. Paste Bob SX,SY,Z
  10. Add SX,BW
  11. If SX>320 : SX=0 : Add SY,BH
  12. If SY>256
  13. Print "Press space for more"
  14. Repeat : Until Inkey$=" "
  15. Cls 
  16. SX=0 : SY=0
  17. End If 
  18.  End If 
  19. Next Z
  20. Else 
  21. Print "No bobs in bank!!"
  22. End If 
  23. End Proc
  24. Procedure _LISTBOBS_EASY[S,E]
  25. If Length(1)>0
  26. SX=0 : SY=0
  27. ' change the step width to suit
  28. BW=32 : BH=32
  29. For Z=1 To Length(1)
  30. Paste Bob SX,SY,Z
  31. SX=SX+BW
  32. If SX>320 : SX=0 : SY=SY+BH
  33. If SY>256
  34. Print "Press space for more"
  35. Repeat : Until Inkey$=" "
  36. Cls 
  37. SX=0 : SY=0
  38. End If 
  39.  End If 
  40. Next Z
  41. Else 
  42. Print "No bobs in bank!!"
  43. End If 
  44. End Proc