Posted by Grant Foraker on May 16, 2017 at 06:21:51:
In Reply to: CONTINUE jumps to address 0000 posted by Robert G Laurin on May 15, 2017 at 14:01:42:
If we stick to code like this, these problems wouldn't happen :)
=================================================================
! //IB// Src(AZERO.IBS) Opt("")
!
! AZERO.....ZERO AVAILABILITY ACCOUNT BALANCES
! 08/13/86 AGENCY COMPUTERS
! KK
!
USE "^A1"
LENGTH 32 & LOCAL K$
2700 FORMAT (CS);(SB);@(15,2);"ZERO AVAILABILITY ACCOUNT BALANCES";_
""
2710 FORMAT @(25,12);"ON : ";K$;@(0,20);(BF)
2750 FORMAT (RB);@(12,20);"ACCOUNT : ";K$;" ON ANOTHER TERMINAL@21@@21@"
3000 CLEAR LOCAL
3100 ESCAPETO 9000
3800 CLOSE(2) & OPEN(2) "A1"
3900 PRINT(0,2700)
4000 K$="" & GOTO 4020
4010 K$=KEY(2,EXCP=5000)
4020 INQUIRE (2,0111) KEY = K$, EXCP = 5000
A1BAL=0
WRITE(2,0111)KEY=K$
PRINT(0,2710)
GOTO 4010
5000 IF EXCP=33 PRINT(0,2750) & GOTO 4020
IF EXCP=32 GOTO 4010
IF EXCP=2 GOTO 9000
ERROR
9000 CLOSE(2)
9010 RUN "A",EXCP=9090
9090 RUN "QMONITOR"
END
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.