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
1
';
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"; AMOUNT
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";" PLEASE
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
17-4.
Program
for
STATEMENT
234
To Next Page
Loading...
Need help?
General
