Program For Statement - Epson FX Series User Manual

7 WIDTH LPRINT 255
90 LPRINT CHR$(27)"QP";
100 DIM A(18): LPRINT
CHR$(27)"3"CHR$(20)CHR$(27)"U1";
110 LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0);
120 LPRINT CHR$(27)"%"CHR$(1)CHR$(0);
130 LPRINT CHR$(27)"&"CHR$(0)"at
140 FOR Y=1 TO 20: LPRINT CHR$(139);
150 FOR X=1 TO 11: READ C: LPRINT CHR$(C);: NEXT X
160 NEXT Y: LPRINT CHR$(27)"C"CHR$(66);: GOSUB 700
170 LPRINT CHR$(27)"!8";"pmpsrpr mnopqrst";
CHR$(27)"!@";
180 LPRINT CHR$(27)"B"CHR$(18)CHR$(25)CHR$(1);
190 LPRINT CHR$(27)"D"CHR$(13)CHR$(17)CHR$(57)
CHR$(69)CHR$(1);
200 H$=CHR$(137): LPRINT H$;CHR$(14)" STATEMENT"
210 GOSUB 700: LPRINT: GOSUB 700
220 LPRINT H$;H$;CHR$(27)"!A";"80 TRACK DRIVE":
GOSUB 700
230 LPRINT: GOSUB 700: LPRINT H$;"DATA TOWN, U.S.A.
01248": GOSUB 700
240 LPRINT: LPRINT H$;H$;CHR$(27)"!Q";
"PHONE FX1-0080"
250 LPRINT CHR$(27)"!@";
260 LPRINT CHR$(27)"D"CHR$(57)CHR$(72)CHR$(1);
270 C=2: H=2: F=0: FT=1: GOSUB 500: LPRINT
280 LPRINT CHR$(ll);H$;"&"CHR$(8);: A$=CHR$(95):
N=21: GOSUB 800
290 LPRINT: LPRINT H$;CHR$(27) "S1";
REMITTED"
300 LPRINT CHR$(27)"D"CHR$(3)CHR$(13)CHR$(29)
CHR$(46)CHR$(55)CHR$(68)CHR$(1);
310 LPRINT CHR$(11);H$;H$;CHR$(27)"S0";"
DETACH AND RETURN WITH YOUR PAYMENT"
320 LPRINT CHR$(27)"T";: N=80: A$="-": GOSUB 800:
LPRINT
330 C=6: H=12: F=1: FT=0: GOSUB 500
340 LPRINT CHR$(27)"D"CHR$(8)CHR$(26)CHR$(38)
CHR$(50)CHR$(65)CHR$(1);
350 C=5: H=2: F=0: GOSUB 500: LPRINT
360 LPRINT CHR$(27)"D"CHR$(8)CHR$(57)CHR$(0)
370 LPRINT CHR$(27)"!T";H$;"mpsrpr mnopqrst"H$;
380 LPRINT CHR$(27)"!1";CHR$(27)"4";"THANK YOU"
390 LPRINT CHR$(27)"@": END
Figure
234
Program
17-4.
1
';
AMOUNT
STATEMENT
for
PLEASE