home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / PUSHPOP.BAS < prev    next >
BASIC Source File  |  1993-11-07  |  369b  |  27 lines
  1. SUB PUSH(p%)
  2. INCR StackPointer%
  3. CallStack%(StackPointer%) = p%
  4. END SUB
  5.  
  6. SUB POP(p%)
  7. IF StackPointer% = 0 THEN ERROR 800
  8. p%=CallStack%(StackPointer%)
  9. DECR StackPointer%
  10.  
  11. END SUB
  12.  
  13. SUB IFPUSH(p%)
  14. INCR IfPointer%
  15. IfStack%(IfPointer%) = p%
  16. END SUB
  17.  
  18. SUB IFPOP(p%)
  19. IF IfPointer% = 0 THEN ERROR 801
  20. p%=IfStack%(IfPointer%)
  21. DECR IfPointer%
  22.  
  23. END SUB
  24.  
  25.  
  26.  
  27.