HP 262SA - Page 96

Designing and Using Forms
FORMIO
10 FILES .,.
20 SYSTEM X1,"BUILD FDATA,rec--132"f,ascii"
30 SYSTEM X1,"FILE X-Sstdin;rec--25S"
40 ASSIGN "FDATA",1,A1
50
ASSIGN "X",2,A1,WR
60 DIM AS[255l,A1S[6l,CS[3l
70 PRINT CTLC20S),'27"F"'27
I
a";
SO ENTER 255,X,AS
90 CONVERT AS(S;3l TO R
100 PRINT
"This program creates basic statements that define the"
110 PRINT "FORM or other data in this terminal's memory.";LIN(3)
120 INPUT '~Startin9 statement number, increment ?",A,B
130 PRINT CTLC20S), '27
1
'f2a81c2L"'27
I
," '27"'fSE",
140 LINPUT AS
150 PRINT '27"h",
160 PRINT 11;l
scr
",END
170
FOR 1-1 TO R
1S0 PRINT
'27
I
d";
190 LINPUT 12;AS
200 IF UPSSCAS(1,3l)_"RUN" THEN 500
210 IF UPSSCAS(1,4l)-")RUN" THEN 500
220 CONVERT A TO A1S
230 REM compensate for imbedded marks
240 C--4
250 IF C+5)LENCAS) THEN 310
260 C1-POSCAS(C+5l,'34)
270 IF NOT C1 THEN 310
2S0 C-C1+C+4
290 AS-AS[1,Cl+"'34"+'34+AS[C+1l
300 GOTO 250
310 REM spaces )-7 are converted to direct cursor addresses
320 FOR C-1 TO LENCAS)
330 IF AS[C,e+6l-" .. THEN DO
340 FOR C1-C+7 TO LENCAS)
350 IF AS(C1,C1l()" .. OR LENCAS)-C1 THEN DO
360 CONVERT C1-C TO CS
370 AS[Cl-'27"'a+
I
+DEBSCCS)+"C"+AS(C1l
3S0
GOTO 310
390 DOEND
400 NEXT C1
410 DOEND
420 NEXT C
430 REM output form record as a BASIC print statement
440 PRINT 11," "+A1S+" print ctlC20S)"II,END
450 PRINT 11;'34+AS[1,LENCAS) MIN 127l;"''';END
460 IF LENCAS)(12S THEN PRINT 11,'34;END
470 IF LENCAS»-12S THEN PRINT 11;AS[12Sl+'34;END
4S0 A-A+B
490 NEXT I
500 PRINT '27"FNow type 'XEQ FDATA' then 'LIST'.";LIN(1)
510 PRINT "These statements will reproduce your terminal's memory-·-"
520 PRINT "modify, NAME, RENUM, and SAVE as you wish ..
530 PRINT CTLC20S),'27",f2aSk3L"'27":"'13'27",fSE";
540 LINPUT AS
550 END
Figure 5-5. FORMIO Source Listing
5-8