HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)
Appendix A 469
SAMPLE PROGRAMS
BASIC
4350 DOEND
4355 IF NOT E THEN DO
4360 CALL VWRITEBATCH(C[*])
4365 IF C[1] THEN GOSUB 9100
4370 IF NOT E THEN C[46]=C[46]+1
4375 DOEND
4380 DOEND
4385 RETURN
4400 REM1 <HEAD KEY>
4410 D1=C[27]=C[28]=C[46]=0
4420 RETURN
4450 REM1 <DELETE KEY>
4455 D1=0
4460 C[33]=1
4465 CALL VWRITEBATCH(C[*])
4470 IF C[1] THEN GOSUB 9100
4475 C[33]=0
4480 IF NOT E THEN C[46]=C[46]+1
4485 C[27]=C[28]=0
4490 RETURN
4500 REM1 <PRINT KEY>
4505 I=1
4510 J=49
4515 CALL VPRINTFORM(C[*],I,J)
4520 IF C[1] THEN GOSUB 9100
4525 RETURN
4550 REM1 <REFRESH KEY>
4560 RETURN
4600 REM1 <PREV KEY>
4610 D1=1
4620 C[46]=C[46]-1
4630 RETURN
4650 REM1 <NEXT KEY>
4655 D1=0
4660 C[46]=C[46]+1
4665 IF NOT C[27] AND C[28] OR C[27]=2 THEN DO
4670 CALL VSHOWFORM(C[*])
4675 IF C[1] THEN GOSUB 9100
4680 DOEND
4685 RETURN
5000 REM2 <EXIT>
5010 REM1 *CLOSE TERMINAL*
5020 CALL VCLOSETERM(C[*])
5030 IF C[1] THEN GOSUB 9000
5040 C[1]=0
5050 REM1 *CLOSE BATCH FILE*
5060 IF B1 THEN DO
5070 IF E THEN PRINT M1$
5080 ELSE DO
5090 CALL VCLOSEBATCH(C[*])
5100 IF C[1] THEN GOSUB 9100
5110 C[1]=0
5120 DOEND
5130 DOEND
5140 REM1 *CLOSE FORMS FILE*
5150 CALL VCLOSEFORMF(C[*])
5160 IF C[1] THEN GOSUB 9100
5170 C[1]=0