Ed" HIS PROGRAM ALLOWS YOU TO CHANGE THE TWO DIGIT ACCOUNT #i" OF YOUR YLVIA ORTER'S ERSONAL INANCE () ACCOUNTS ONn" YOUR TRANSACTION DISK.s"x" AVID . EVOLL}" 1002 .. 3RD. T." RAND RAIRIE, EXAS 75051#" PHONE: (214) 262-3975*"1"L 185 : SETUP 300 : GET VALID OLD AND NEW ID# FROM USER 675 : EXECUTE ACCOUNT ID CHANGE 865 : EXIT GRACEFULLY"ONE.:9 ***************************************************************** * THIS INITIALIZES VARIABLES, CLEARS SCREEN, ETC * *****************************************************************: ID$(15)TRUE (11)FALSE (10)%(14)""!-: #8y: "NSERT TRANSACTION DISK IN DRIVE 8 AND PRESS ANY KEY TO CONTINUE.": A$: #8,"TRANS.FILE",D0,U8,L72 DS 0 #8,18,REC$HREC((REC$,7,4))1LREC2 " ':N , ***************************************************************** 1 * GET VALID OLD AND NEW ACCOUNT ID#'S * 6 ***************************************************************** ;:!!@ : ***** GET VALID OLD ID # *****7!E: PROCEED TRUEe!J: " TWO CHARACTER ACCOUNT #";OID$n!O: !T: (OID$) 2 !Y: PROCEED FALSE!^: "# MUST BE EXACTLY TWO CHARACTERS."!c: 480!h: !m:"r: #9,"ACCOUNT."OID$,D0,U8,R$"w: #9:"|: DS 0 S": PROCEED FALSE": "ACCOUNT."OID$" NOT FOUND ON TRANSACTION DISK."": 480": ":": #8,1": 8,REC$": I 15": FOUND FALSE #: (I 43) FOUND7#: (REC$,I,2) OID$ FOUND TRUEJ#: I I 2S#: i#: FOUND #: PROCEED FALSE#: "# NOT FOUND IN TRANS.FILE."#: 480#: #:# PROCEED TRUE#:#:,$ : ***** GET VALID NEW ID # *****B$: PROCEED TRUEp$: " TWO CHARACTER ACCOUNT #";NID$y$: $: (NID$) 2 $: PROCEED FALSE$ : "# MUST BE EXACTLY TWO CHARACTERS."$: 655$: $:#%!: #9,"ACCOUNT."NID$,D0,U8,R/%&: #9D%+: DS 0 ]%0: PROCEED FALSE%5: "ACCOUNT."NID$" ALREADY EXISTS ON TRANSACTION DISK."%:: 655%?: %D:%I: #8,1%N: 8,REC$%S: I 15%X: FOUND FALSE&]: (I 43) FOUNDF&b: (REC$,I,2) NID$ FOUND TRUEY&g: I I 2b&l: v&q: FOUND &v: PROCEED FALSE&{: "# ALREADY EXISTS IN TRANS.FILE."&: 655&: &:& PROCEED TRUE&:'':O' *****************************************************************' * EXECUTE ID# CHANGE *' *****************************************************************':'#8,1,1'8,REC$ (I 15(FOUND FALSE4( (I 43) FOUNDT(: (REC$,I,2) OID$ i(: FOUND TRUE(: (REC$,I,2) NID$(: (: I I 2((#8,1,1(8,REC$(#8,1,1(:("CANNING TRANSACTIONS FOR OLD #") R LREC HREC 2E) : "RANSACTION # ("(HREC1)2"MAX) :"R2W): #8,(R),1i): #8,(R),1x): 8,REC$) : (REC$,8,2) OID$ )%: REC$)*: (REC$,8,2) NID$)/: REC$"")4: #8,(R),1)9: 8,REC$*>: #8,(R),1*C: $*H R**M:R*R "ACCOUNT."OID$ "ACCOUNT."NID$X*W^*\:*a ******************************************************************f * CLOSE FILE(S) *6+k *****************************************************************<+p:C+uI+z:O+