HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)
466 AppendixA
SAMPLE PROGRAMS
BASIC
3070 RETURN
3075 DOEND
3080 IF C[1] THEN GOSUB 9100
3085 F1=0
3090 CALL VINITFORM(C[*])
3095 IF C[1] OR C[7] THEN GOSUB 9100
3100 IF NOT E THEN GOSUB 8000
3105 REM1 *SOFTKEY LOOP*
3110 E=O
3115 CALL VSHOWFORM(C[*])
3120 IF C[1] THEN GOSUB 9100
3125 C[34]=0
3130 IF C[30]<=0 AND C[27]=0 AND C[28)<>0 THEN DO
3132 IF NOT E AND B1 THEN DO
3135 CALL VWRITEBATCH(C[*])
3140 IF C[1] THEN GOSUB 9100
3145 IF NOT E THEN DO
3146 C[46]=C[46]+1
3147 P1=20
3148 P=C[46] MOD P1
3149 IF P=0 THEN CALL VPOSTBATCH(C[*])
3150 DOEND
3151 DOEND
3152 DOEND
3155 ELSE DO
3160 CALL VREADFIELDS(C[*])
3165 IF C[1] THEN GOSUB 9100
3170 IF NOT E AND C[6]=8 THEN RETURN
3175 IF NOT E THEN GOSUB C[6]+1 OF 3300,3350,3400,3450,3500,3550,3600,370
3180 DOEND
3185 IF C[6]=8 THEN RETURN
3190 IF E OR C[6]=3 THEN 3105
3195 GOSUB 8100
3200 IF B1$<>"$END" OR C[27] THEN 3045
3205 RETURN
3300 REM2 <ENTER KEY>
3305 CALL VFIELDEDITS(C[*])
3310 IF C[1] OR C[7] THEN GOSUB 9100
3315 IF NOT E THEN DO
3320 CALL VFINTSHFORM(C[*])
3325 IF C[1] THEN GOSUB 9100
3330 IF NOT E AND B1 THEN DO
3335 CALL VWRITEBATCH(C[*])
3340 IF C[1] THEN GOSUB 9100
3342 IF NOT E THEN DO
3343 C [46]=C[46]+1
3344 P1 = 20
3345 P=C[46] MOD P1
3346 IF P=O THEN CALL VPOSTBATCH(C[*])
3347 DOEND
3348 DOEND
3349 DOEND
3350 RETURN
3351 REM1 <HEAD KEY>
3355 C[27]=C[28]=O
3360 B1$="$HEAD"
3365 GOSUB 8200
3370 RETURN