Epson FX-185 User Manual - Page 251
Lprint H$;h$;chr$27!a;80 Track Drive, Lprint Chr$27dchr$8chr$26chr$38
View all Epson FX-185 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 251 highlights
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";" mpsrpr 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$(11);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