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

468 AppendixA
SAMPLE PROGRAMS
BASIC
4020 REM1 *BROWSE UNTIL EXIT OR COLLECT KEY*
4025 IF NOT C[44] THEN RETURN
4030 IF C[46]=R1 THEN DO
4035 E$=" There are no more batch records."
4040 GOSUB 9200
4045 C[46]=C[46]-1
4050 D1=1
4055 DOEND
4060 IF C[46]<0 THEN DO
4065 E$=" There are no previous batch records."
4070 GOSUB 9200
4075 D1=C[46]=0
4080 DOEND
4085 CALL VREADBATCH(C[*])
4090 IF C[1] THEN GOSUB 9100
4095 IF NOT C[33] THEN DO
4100 IF C[46]<>R2 OR C[6]=4 THEN DO
4105 IF D1 OR C[6]=4 THEN C[27]=C[28]=0
4110 ELSE DO
4115 GOSUB 8100
4120 IF B$<>B1$ THEN C[27]=0
4125 DOEND
4130 IF C[6]=4 THEN DO
4135 B1 $="$REFRESH"
4140 GOSUB 8200
4145 DOEND
4150 CALL VGETNEXTFORM(C[*])
4155 IF C[1] THEN GOSUB 9100
4160 R2=C[46]
4165 DOEND
4170 IF NOT E THEN GOSUB 8000
4175 REM2 *SOFTKEY LOOP*
4180 E=0
4185 CALL VSHOWFORM(C[*])
4190 IF C[1] THEN GOSUB 9100
4195 C[34]=0
4200 CALL VREADFIELDS(C[*])
4205 IF C[1] THEN GOSUB 9100
4210 IF NOT E AND C [6] >6 THEN RETURN
4215 IF NOT E THEN GOSUB C[6]+1 OF 4300,4400,4450,4500,4550,4600,4650
4220 IF E OR C[6]=3 THEN 4175
4225 DOEND
4230 ELSE DO
4235 IF D1 THEN C[46]=C[46]-1
4240 ELSE C[46]=C[461+1
4245 DOEND
4250 GOTO 4020
4255 RETURN
4300 REM2 <ENTER KEY>
4305 D1=0
4310 CALL VFIELDEDITS(C[*])
4315 IF C[1] 0 C[7] THEN GOSUB 9100
4320 IF NOT E THEN DO
4325 CALL VFINISHFORM(C[*])
4330 IF C[1] THEN GOSUB 9100
4335 IF NOT C[27] AND C[28] OR C[27]=2 THEN DO
4340 CALL VSHOWFORM(C[*])
4345 IF C[1]THEN GOSUB 9100