HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)

Appendix A 467
SAMPLE PROGRAMS
BASIC
3400 REM1 <DELETE KEY>
3410 E$="DELETE key defined only for BROWSE"
3420 GOSUB 9200
3430 RETURN
3450 REM1 <PRINT KEY>
3455 I=1
3460 J=49
3465 CALL VPRINTFORM(C[*],I,J)
3470 IF C[1] THEN GOSUB 9100
3475 RETURN
3500 REM1 <REFRESH KEY>
3505 B1$="$REFRESH"
3510 GOSUB 8200
3515 RETURN
3550 REM1 <PREV KEY>
3555 E$=" The PREV key is only defined for BROWSE mode."
3560 GOSUB 9200
3565 RETURN
3600 REM1 <NEXT KEY>
3610 IF NOT C[27] THEN DO
3620 E$=" The NEXT key is not defined for a non-repeating form."
3630 GOSUB 9200
3640 DOEND
3650 ELSE C[27]=0
3660 RETURN
3700 REM1 <BROWSE KEY>
3710 IF NOT B1 THEN DO
3720 E$=" No BATCH file was specified, so BROWSE is not allowed."
3730 GOSUB 9200
3740 DOEND
3750 ELSE DO
3760 IF NOT C[44] THEN DO
3770 E$=" There are no more batch records."
3780 GOSUB 9200
3790 DOEND
3800 ELSE DO
3810 R1=C[46]
3820 GOSUB 8100
3830 BO$=B$
3840 C[5]=1
3850 C[27]=C[28]=0
3860 GOSUB 4000
3870 C[5]=0
3880 B1$=B0$
3890 GOSUB 8200
3900 C[46]=R1
3910 C[27]=C[28]=C[33]=0
3920 IF C[6]=8 THEN DO
3921 B$=B0$
3922 RETURN
3923 DOEND
3930 DOEND
3940 DOEND
3950 RETURN
4000 REM2 <BROWSE>
4005 R2=C[46]
4010 C[46]=C[46]-1
4015 D1=1