SPÌ¬Ì¬M¬Ï¬Ô¬Ã 
!     ÒÅV Ã ±±¯±´¯·´
       NAMÅ SÅÔSM(¸©
       ÌÅÔ UNDÆ BÅ ÃÏNSÔANÔ(±00±±0K©   !"UNDÅÆÉNÅD".
       ÌÅÔ MÉNUS BÅ ÃÏNSÔANÔ(±00030K©  !"-" 
       ÌÅÔ SÌÏÃÃ BÅ ÃÏNSÔANÔ(±00²50K©  !"ÌÏÃÃ"
       ÌÅÔ SØÆÅÒ BÅ ÃÏNSÔANÔ(±003±´K©  !".ØÆÅÒ" 
!      DÅÆÉNÅ GÌÏBAÌ ÃÏNSÔANÔS
       ÌÅÔ ÌÏÃÃ¬ÌÉSÔÏ¬UNDÆ±¬ASÔAK¬AVAÌU¬ÆÉÌÅØ BÅ ÉNÔÅGÅÒ¬ÅØÔÅÒNAÌ 
       ÌÅÔ Ì×AM¬Ì×AM±¬BÉNY BÅ ÉNÔÅGÅÒ¬ÅØÔÅÒNAÌ
       ÌÅÔ SÔAK¬SÔYP¬SVÌU¬É×P BÅ PSÅUDÏ¬ÅØÔÅÒNAÌ
       ÌÅÔ SÔMA BÅ ÆUNÃÔÉÏN¬ÅØÔÅÒNAÌ
      ÌÅÔ SÔPÒG¬DÉAG¬ABÏUÔ¬PÒÅNÔ¬ÃÆØUP¬BÌNK BÅ SUBÒÏUÔÉNÅ¬ÅØÔÅÒNAÌ
       ÉNÉÔÉAÌÉZÅ ÉNDÒÆ ÔÏ 0
PASS:  ÆUNÃÔÉÏN ÆÅØÉÔ¬DÉÒÅÃÔ
       PASSV_SÔAK(ASÔAK©?ÛÆÒÅÔUÒNÝ
       ÒÅÔUÒN 
       ÅND
! 
PASSD: SUBÒÏUÔÉNÅ  DÉÒÅÃÔ¬ÆÅØÉÔ         !ÏBÔAÉNS ÔÏP ÏÆ SÔAK
       AVAÌU¬ÔÏP_PASS (©?ÛÆÒÅÔUÒNÝ
       ÒÅÔUÒN 
       ÅND
ÃÌÅÒÅ: SUBÒÏUÔÉNÅ DÉÒÅÃÔ               !PÏP ASÔAK ¦ ÃÌÅAÒ AVAÌU 
       PASSD
       AVAÌU_0
       ÒÅÔUÒN 
       ÅND
! 
KÅY×D: SUBÒÏUÔÉNÅ (DUMY© DÉÒÅÃÔ¬GÌÏBAÌ
       PASSD                           !GÅÔ KÅY×ÏÒD S.Ô. ADDÒÒÅSS.
       SVÌU(ÔÏP©_$(ÀÌÏÃÃ+((ÔÏP-SÌÏÃÃ©¾-²©©
       ÒÅÔUÒN 
       ÅND
BKY×D: SUBÒÏUÔÉNÅ(DUMY±© DÉÒÅÃÔ¬ GÌÏBAÌ         !BÏUNDS KÅY×ÏÒD 
       PASSD                               !MÏVÅ KÅY×ÏÒD ÔÏ AVAÌU.
       ÒÅÔUÒN 
       ÅND
BNSÔM: SUBÒÏUÔÉNÅ (DUMY²© DÉÒÅÃÔ¬GÌÏBAÌ    !BÏUNDS SÔAÔÅMÅNÔ
BNSÔ±: PASSD(©?Û ÒÅÔUÒN Ý              !DÅÌÅÔÅ "BÏUNDS" ÏÒ "¬"
       ÔÒ_PASS(©                       !GÅÔ ÔAÒGÅÔ SYMBÏÌ ÔABÌÅ ADDÒÅSS.
       ÃÌÅÒÅ                           !DÅÌÅÔÅ "½"
       VU_PASS (© 
       VU_SVÌU(VU©
! 
!      SÔÏÒÅ SYMBÏÌ VAÌUÅ ÉN VÉÒÔUAÌ MÅMÏÒY.
! 
       SVÌU(ÔÒ©_VU
! 
!      SÔÏÒÅ ÔHÅ VAÌUÅ ÉN ÃÏÒÅ ÅNÔÒY PÔS (ÌABÅÌÌÅD ÌÏÃÃ¬ BPÌÏÃÃ¬
!      Æ×AM¬ Ì×AM¬ ÅÔÃ.©
! 
       $(ÀÌÏÃÃ+((ÔÒ-SÌÏÃÃ©¾-²©©_VU
! 
!      ÉÆ ÔHÉS BÏUND ÌÏ×ÅÒÅD Ì×AM¬ MAKÅ SUÒÅ Ì×AM± ÉS ÃÏÒÒÅSPÏNDÉNGÌY 
!      ÌÏ×ÅÒÅD. 
! 
       ÉÆ Ì×AM  < Ì×AM± ÔHÅN Ì×AM± _ Ì×AM 
       GÏÔÏ BNSÔ±                      !ÌÏÏP ÏN GÅÔÔÉNG NÅØÔ BKY×D ÌÉSÔ.
       ÅND
! 
ÔÅÒM:  SUBÒÏUÔÉNÅ (DUMY3© DÉÒÅÃÔ¬GÌÏBAÌ 
       PASSD
       ÒÅÔUÒN 
       ÅND
! 
ADDS:  SUBÒÏUÔÉNÅ (DUMY´© GÌÏBAÌ¬DÉÒÅÃÔ 
       PASSD                           !MÏVÅ "+" ÏÒ "-" ÔÏ AVAÌU
       ÒÅÔUÒN 
       ÅND
! 
ÅPNAM: SUBÒÏUÔÉNÅ (DUMY5© DÉÒÅÃÔ¬GÌÏBAÌ 
       PASSD                           !MÏVÅ S.Ô. PÔÒ ÔÏ AVAÌU
       ÒÅÔUÒN 
       ÅND
! 
ÅØPÒ:  SUBÒÏUÔÉNÅ (DUMY6© DÉÒÅÃÔ¬GÌÏBAÌ !<ÅØPÒÅSSÉÏN¾ 
       ÔÏP¬ÏP_PASS(©                   !ÉNÉÔÉAÌÉZÅ ÌÏÏP ×¯ ±SÔ ÏPÅÒAND
       Ô_0                             !SÔAÒÔ SUM 
ÌÏÏP:  Ô±_SVÌU(ÔÏP© 
       ÉÆ ÏP½MÉNUS ÔHÅN Ô±_-Ô±
       Ô_Ô+Ô± 
       ÏP_PASS(©?ÛAVAÌU_Ô» ÒÅÔUÒNÝ     !GÅÔ ÏPÅÒAÔÏÒ¬ÏÒ ÒÅÔUÒN VAÌUÅ. 
       PASSD                           !GÅÔ ²ND ÏPÅÒAND.
       GÏÔÏ ÌÏÏP
       ÅND
! 
ÉNDÒÃ: SUBÒÏUÔÉNÅ (DUMY·© DÉÒÅÃÔ¬GÌÏBAÌ !ÉNDÉÒÅÃÔ $( ©
      ÉNDÒÆ_-±
       PASSD                           !DÉSÃAÒD "$" 
       ÃÌÅÒÅ                           ! DÉSÃAÒD "("
       AVAÌU_PASS(©              !ÏBÔAÉN ÒÅSUÌÔSÅÔ ÉNDÉÒÅÃÔ ÆÌAG. 
       ÒÅÔUÒN 
       ÅND
! 
ÔÒGAD: SUBÒÏUÔÉNÅ (DUMY¸© DÉÒÅÃÔ¬GÌÏBAÌ 
       PASSD
       ÒÅÔUÒN 
       ÅND
! 
! 
SÅÔSÔ: SUBÒÏUÔÉNÅ (DUMY9© DÉÒÅÃÔ¬GÌÏBAÌ 
       PASSD                               !DÉSÃAÒD"SÅÔ"
       ÔÒ_PASS (©                          !GÅÔ ÔAÒGÅÔ
       ÃÌÅÒÅ
       ÉÆ ÔÏP½UNDÆ ÔHÅN\               SÅÔ SYMBÏÌ UNDÅÆÉNÅD.
       ÛSÔYP( ÔÒ©_(SÔYP( ÔÒ© AND ±···0·K©»ÒÅÔUÒNÝ!ÃÌÅAÒ 'DÅÆÉNÅD' BÉÔS
       VU_PASS (©                          !GÅÔ VAÌUÅ 
       ÉÆ ÉNDÒÆ ÔHÅN GÏÔÏ SÅÔ²
! 
!      ÔHÉS ÉS ÔHÅ SÅÔ SYMBÏÌ ÔÏ A VAÌUÅ ÆÏÒM.
!      ÔÒ ÉS ÔHÅ S.Ô. PÏÉNÔÅÒ ÔÏ ÔHÅ ÔAÒGÅÔ SYMBÏÌ.  ÉÆ ÉÔ ÉS A KÅY×ÏÒD¬
!      ÔHÅN ÔHÅ KÅY×ÏÒD BÌÏÃK MUSÔ BÅ UPDAÔÅD AS ×ÅÌÌ.
! 
       ÆÉÌÅØ¬ÏP_0 
       ÉÆ ÔÒ < SÌÏÃÃ ÔHÅN GÏÔÏ ÅP0     !ÅNÔÒY PÏÉNÔ NAMÅ
       ÉÆ ÔÒ ¾SØÆÅÒ ÔHÅN GÏÔÏ ÅP0      !  " 
       $(ÀÌÏÃÃ+((ÔÒ-SÌÏÃÃ©¾-²©©_VU         !ÅNÔÅÒ VAÌUÅ 
! 
!      ÉÆ ÔHÉS ÌASÔ "SÅÔ" ÃHANGÅD ÔHÅ VAÌUÅ ÏÆ Ì×AM¬ MAKÅ SUÒÅ
!      Ì×AM± ÉS ÃÏÒÒÅSPÏNDÉNGÌY ÌÏ×ÅÒÅD.
! 
       ÉÆ Ì×AM± < Ì×AM ÔHÅN Ì×AM± _ Ì×AM
       GÏÔÏ ÅP
! 
!      SÅÔ ÔYPÅ ÃÏDÅ AS DÅÆÉNÅD ÅNÔÒY PÏÉNÔ NAMÅ. 
ÅP0:   SÔYP(ÔÒ©_SÔYP(ÔÒ© ÏÒ 30K 
!      SÅÅ ÉÆ ÔHÉS NÅ× DÅÆÉNÉÔÉÏN MAÔÃHÅS ANY ÃUÒÒÅNÔÌY UNDÅÆÉNÅD 
!      SYMBÏÌS¬ AND ÉÆ SÏ¬ ÔHÅN ÒÅSÏÌVÅ ÉÔS ÆÉØUP ÌÉSÔ. 
       Ô_UNDÆ±
       AÌ×AYS DÏ\ SÅAÒÃH UNDÅÆÉNÅDS ÌÉSÔ ÆÏÒ MAÔÃH
        ÛÔÏP_Ô» Ô±_É×P(Ô©?Û ÆÉÌÅØ_ÉNDÒÆ» GÏÔÏ ÅPÝ»\GÅÔ NAMÅ SÔÒÉNG
       ÉNDÒÆ_É×P(Ô©» ÏP_É×P(Ô©»\GÅÔ ±SÔ ÒÅÆ.¦ÆÉØUP ÌÉSÔ 
       ÉÆ SÔMA(ÔÒ¬Ô±© ÔHÅN\  MAÔÃH ÔÏ NAMÅ ÆÏUND¬ 
       ÛÃAÌÌ SÔPÒG($ÔÏP©» ÃAÌÌ ÃÆØUP(ÏP¬VU¬0¬BÉNY¬ÆÉÌÅØ© »GÏÔÏ ÅPÝÝ 
!       PUÒGÅ NAMÅ
ÅP:    SVÌU(ÔÒ©_VU                         !PUÔ VAÌUÅ ÆÉÅÌD ÉN S.Ô. 
       ÉÆNÏÔ(ÌÉSÔÏ AND ±© ÔHÅN ÒÅÔUÒN 
!      BÌANK ÏUÔ ÔHÅ PÒÉNÔ ÌÉNÅ BUÆÆÅÒ
       ÃAÌÌ BÌNK(BÉNY¬´0©              !BÌANK PÒÉNÔ ÌÉNÅ
!      PÒÉNÔ ÔHÅ SYMBÏÌ AS AN ÅNÔÒY PÏÉNÔ.
!      ÔÒ½ SYMBÏÌ ÔABÌÅ ADDÒÅSS ÏÆ SYMBÏÌ 
!      VU½ SYMBÏÌ'S VAÌUÅ 
!      BÉNY½ BUÆÆÅÒ ÆPÒ ÆÏÒMÉNG PÒÉNÔ ÌÉNÅ
!      ÆÉÌÅØ ½ SYMBÏÌ ÔABÌÅ PÏÉNÔÅÒ ÔÏ ±SÔ ÒÅÆÅÒÅNÃÅ¬ ÏÒ 0 ÉÆ NÏNÅ
       ÃAÌÌ PÒÅNÔ(ÔÒ¬VU¬BÉNY¬ÆÉÌÅØ© 
       ÒÅÔUÒN 
! 
!      ÏUÔPUÔ VAÌUÅ "VU" ÔÏ ABSÏÌUÔÅ ÆÉÌÅ AÔ ADDÒÅSS "ÔÒ".
!      ÉÆ ADDÒÅSS <²¬ ÉÔ ÉS ASSUMÅD ÉÌÌÅGAÌ¬ AND ÉS ÉGNÏÒÅD.
! 
SÅÔ²:  ÉÆ ÔÒ < ´ ÔHÅN ÃAÌÌ DÉAG(±²¬ÔÒ©!ÉÌÌÅGAÌ ADDÒÅSS DÉAGNÏSÔÉÃ 
       $(ÛÔ_ÀBÉNYÝ©_´00K     !PUÔ ÉN ÌÏAD ADDÒÅSS ÏÆ ÒÅÃÏÒD 
       $(ÛÔ_Ô+±Ý©_Û$(ÛÔ_Ô+±Ý© _ÔÒÝ+Û$(ÛÔ_Ô+±Ý© _ VUÝ !ÉNSÔÒUÃÔÉÏN¬
       ÃAÌÌ ABÏUÔ(´¬BÉNY©    !¦ ÃHÅÃKSUM ÉNÔÏ ABS. ÒÅÃÏÒD ¦ ×ÒÉÔÅ ÉÔ
       ÒÅÔUÒN 
       ÅND
! 
! 
! 
       ÅND                                 !SÅÔSM 
ÅND$
                                                                                                                                                                                                                                                      