Program For Using Form - Epson FX-80 User Manual

120
NEW
1j2J LPRINT CHR$(27)"D"CHR$(14)CHR$(54)CHR$(1);
2j2J LPRINT
CHR$(27)"b"CHR$(j2J)CHR$(3)CHR$(j2J9)CHR$(5j2J)CHR$(1);
25 'Model I and Apple users see Appendix I
3j2J LPRINT CHR$(27) "b"CHR$(l) CHR$(3) CHR$(j2J9)
CHR$(19)CHR$(5j2J)CHR$(1);
4j2J LPRINT CHR$(27)"b"CHR$(2)CHR$(3)CHR$(j2J9)CHR$(19)
CHR$(38)CHR$(5j2J)CHR$( 1);
5j2J LPRINT CHR$(27) "b"CHR$(3) CHR$(3) CHR$(j2J9) CHR$( 19)
CHR$(28)CHR$(5j2J)CHR$( 1);
6j2J LPRINT CHR$(27)"b"CHR$(4)CHR$(3)CHR$(j2J9)CHR$(19)
CHR$(28)CHR$(38)CHR$( 5j2J)CHR$(1);
7j2J DATA j2Jj2Jj2J,1j2Jj2J,1j2J1,11j2J,111
8j2J DIM A(5),A$(4j2J),B$(2j2J),C$(1j2J)
9j2J FOR I=j2J TO 4: READ A(I): NEXT I
1j2Jj2J B = j 2 J
llj2J PRINT "IS THERE A CURRENT TENANT (Y/N)";:INPUT A$
12j2J IF LEFT$(A$,l)="N" THEN 2j2Jj2J
13j2J B = 1j2Jj2J
14j2J PRINT "IS THE TENANT MARRIED (Y/N)";:INPUT A$
15j2J IF LEFT$(A$,l)="N" THEN 17j2J
16j2J B = llj2J
17j2J PRINT "DOES THE TENANT HAVE ANY CHILDREN (Y/
N)";:INPUT A$
18j2J IF LEFT$(A$,l)="N" THEN 2j2Jj2J
19j2J B = B
+
1
2j2Jj2J FOR K=j2J TO 4
21j2J IF A(K)()B THEN NEXT K
22j2J LPRINT CHR$(27)"/"CHR$(K);
23j2J PRINT: INPUT "DATE (MM/DD/YY)";A$
24j2J LPRINT CHR$(11)CHR$(9)CHR$(9)A$CHR$(11);
25j2J INPUT "STREET ADDRESS ";A$:INPUT "APARTMENT
NUMBER" ;B$
26j2J LPRINT CHR$(9)A$CHR$(9)B$
27j2J INPUT "CITY ";A$:INPUT "STATE ";B$: INPUT "ZIP CODE
";C$
28j2J LPRINT CHR$(9)A$:LPRINT CHR$(9)B$CHR$(9)C$CHR$(11);
29j2J IF B ( 1j2Jj2J THEN 46j2J
3j2Jj2J PRINT:INPUT "TENANT'S NAME ";A$:INPUT "AGE ";B$
31j2J LPRINT CHR$(9)A$CHR$(9)B$
32j2J INPUT "OCCUPATION ";A$: INPUT "EMPLOYER ";B$
33j2J LPRINT CHR$(9)A$CHR$(9)B$CHR$(11);
34j2J B = B - 1j2Jj2J
Figure 10·1. Program for using FORM.