Program For Statement - Epson FX-80 User Manual

1~~
DIM A(18): LPRINT CHR$(27) "1" ;CHR$(27) "Ul";
1~5
r
may need to change line spacing to CHR$(27)
!!3"CHR$(2~);
11~
LPRINT CHR$(27)" :
"CHR$(~) CHR$(~) CHR$(~)
;
12~
LPRINT CHR$( 27) "%"CHR$ (1) CHR$
(~)
;
13~
LPRINT
CHR$(27)"&"CHR$(~)"at";
14~
FOR Y =1 TO
2~:
LPRINT CHR$ (139) ;
15~
FOR X=l TO 11: READ C: LPRINT CHR$(C);: NEXT X
16~
NEXT Y: LPRINT CHR$ (27) "C" CHR$ ( 66) ; : GOSUB
7~~
17~
LPRINT CHR$(27)" 1 8";" mpsrpr mnopqrst"; CHR$(27)" 1@";
18~
LPRINT CHR$(27) "B"CHR$(18)CHR$(25)CHR$(1);
19~
LPRINT
CHR$(27)"D"CHR$(13)CHR$(17)CHR$(57)CHR$(69)CHR$(1);
2~~
H$=CHR$(9): LPRINT H$;CHR$(14)" STATEMENT"
21~
GOSUB
7~~:
LPRINT: GOSUB
7~~
22~
LPRINT H$; H$; CHR$ (27) " 1 A" ;
"8~
TRACK DRIVE": GOSUB
7~~
23~
LPRINT: GOSUB
7~~:
LPRINT H$; "DATA TOWN, U. S. A.
~1248":
GOSUB
7~~
24~
LPRINT: LPRINT H$ ;H$; CHR$(27)" 1 Q"; "PHONE
lFX-8~42"
25~
LPRINT CHR$(27)"1@";
26~
LPRINT CHR$(27) "D"CHR$( 57) CHR$(72) CHR$(l);
27~
C=2: H=2:
F=~:
FT=l: GOSUB
5~0:
LPRINT
28~
LPRINT CHR$(l1) ;H$; "$"CHR$(8);: A$=CHR$(95): N=21:
GOSUB
8~~
29~
LPRINT: LPRINT H$; CHR$(27) "Sl"; AMOUNT REMITTED"
3~~
LPRINT CHR$ (27) "D"CHR$ (3) CHR$ (13) CHR$(29) CHR$ (46)
CHR$(55)CHR$(68)CHR$(1);
31~
LPRINT CHR$(l1) ;H$;H$;CHR$(27) "SW; " PLEASE DETACH AN
RETURN WITH YOUR PAYMENT"
32~
LPRINT CHR$(27) "T";:
N=8~:
A$="-": GOSUB
8~~:
LPRINT
33~
C=6: H=12: F=l:
FT=~:
GOSUB
5~~
34~
LPRINT CHR$(27) "D"CHR$( 8) CHR$(26) CHR$(38) CHR$(
5~)
CHR$(65)CHR$(1);
35~
C=5: H=2:
F=~:
GOSUB
5~~:
LPRINT
36~
LPRINT CHR$(27) "D"CHR&( 8) CHR$( 57)
CHR$(~)
37~
LPRINT CHR$(27)" 1 T" ;H$; "mpsrpr mnopqrst"H$;
38~
LPRINT CHR$(27)" 1 1"; CHR$(27) "4"; "THANK YOU"
39~
LPRINT CHR$(27) "@": STOP
499
r
***
BOX SUBROUTINE
***
5~~
FOR K=l TO 5: READ L$ (K) ,M$ (K) ,N$ (K) ,R$ (K) : NEXT K
51~
FOR K=l TO C: READ W(K) : NEXT K
52~
FOR L=l TO 5: IF L=4 THEN FOR G=l TO H
53~
IF FT=l THEN LPRINT H$;
54~
LPRINT L$(L),; : FOR K=l TO C-l
55~
FOR J=l TO W(K) : LPRINT M$(L); : NEXT J
Figure 19·3. Program for STATEMENT.
231