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

Appendix A 465
SAMPLE PROGRAMS
BASIC
2140 IF NOT LEN(U$) THEN 9900
2150 U$=U$+" "
2160 CALL VOPENFORMF(C[*],U$)
2170 IF C[1] THEN DO
2180 GOSUB 9000
2190 GOTO 2100
2200 DOEND
2210 REM1 *OPEN BATCH FILE*
2220 PRINT " Enter BATCH file name and press RETURN: ";
2230 LINPUT U$
2240 IF NOT LEN(U$) THEN B1=0
2250 ELSE DO
2260 U$=U$+" "
2270 CALL VOPENBATCH(C[*],U$)
2280 IF C[1] THEN DO
2290 IF C[1]=70 OR C[1]=73 THEN DO
2300 IF C[1]=70 THEN PRINT "WARNING: A different FORMS file was used to
2305 create this batch."
2310 IF C[1]=73 THEN PRINT "WARNING: FORMS file was recompiled since
2315 this batch was created.
2320 PRINT "Enter "’34"Y"’34" to continue: ";
2330 LINPUT U$
2340 IF UPS$(U$)="Y" THEN C[1]=0
2350 DOEND
2360 ELSE GOSUB 9000
2370 DOEND
2380 DOEND
2390 REM2 ** OPEN TERMINAL **
2400 IF NOT B1 OR NOT C[1] THEN DO
2410 U$="A264X"
2420 CALL VOPENTERM(C[*],U$)
2430 IF C[1] THEN DO
2440 GOSUB 9000
2450 END
2460 DOEND
2470 C[56]=C[56]+8
2480 RETURN
2490 DOEND
2500 ELSE DO
2510 C[1]=0
2520 CALL VCLOSEBATCH(C[*])
2530 CALL VCLOSEFORMF(C[*])
2540 DOEND
2550 GOTO 2100
3000 REM2 <COLLECT>
3005 F1=1
3010 C[5]=C[33]=0
3015 IF NOT C[6] OR C[6]=6 THEN DO
3020 IF NOT C[27] AND NOT C[28] OR C[27]=2 THEN DO
3025 CALL VSHOWFORM(C[*])
3030 IF C[1] THEN GOSUB 9100
3035 DOEND
3040 DOEND
3045 REM1 *COLLECT LOOP*
3050 CALL VGETNEXTFORM(C[*])
3055 IF F1 AND C[1] THEN DO
3060 CALL VERRMSG(C[*],M$,BO,I
3065 E=1