User Manual
Page 26
...15) "BY" " E$"!X"; "EPSON AMERICA". 220 LPRINT E$"S0"; H$;": 9" 230 LPRINT "7 :"; " 9"; 130 LPRINT "7 :"; E$"4"; " " E$" - 1"; 140 LPRINT "TICKET TO SUCCESS!"; " 2"; 170 LPRINT CHR$(20);E$"F";E$"S1"; E$"T";H$; E$"!@"; H$; E$"F"; H$": 9": LPRINT "7 :"H$":9", 250 LPRINT "7 ";: FOR x=1 TO 25: LPRINT ":";: NEXT X: LPRINT H$ " 9" 260 LPRINT "7 "; FX...END 290 '*** FX xxx 300 DATA 64,0,127,0,127,0,64,0,65,0,112 310 DATA 1,0,127,0,127,0,65,0,96,0,0 320...5" " PRINTERS"; 200 LPRINT "6 :"; E$"5"; H$;": 9": LPRINT "7 "E$"!Q"; 240 LPRINT "GENERAL ADMISSION"; E$;"!@";
...15) "BY" " E$"!X"; "EPSON AMERICA". 220 LPRINT E$"S0"; H$;": 9" 230 LPRINT "7 :"; " 9"; 130 LPRINT "7 :"; E$"4"; " " E$" - 1"; 140 LPRINT "TICKET TO SUCCESS!"; " 2"; 170 LPRINT CHR$(20);E$"F";E$"S1"; E$"T";H$; E$"!@"; H$; E$"F"; H$": 9": LPRINT "7 :"H$":9", 250 LPRINT "7 ";: FOR x=1 TO 25: LPRINT ":";: NEXT X: LPRINT H$ " 9" 260 LPRINT "7 "; FX...END 290 '*** FX xxx 300 DATA 64,0,127,0,127,0,64,0,65,0,112 310 DATA 1,0,127,0,127,0,65,0,96,0,0 320...5" " PRINTERS"; 200 LPRINT "6 :"; E$"5"; H$;": 9": LPRINT "7 "E$"!Q"; 240 LPRINT "GENERAL ADMISSION"; E$;"!@";
User Manual
Page 179
...,4,16,8,0,128 820 DATA 0,0,0,64,32,16,72,36,-3,16,4,34, 65,0,0,65,34,-8,16,4,18,11,4,2,1,0,-9,0,0,128 839 DATA -8,0,0,64,32,16,72,36,16,-7, 4,16,36,65,0,0,1,66,36,16,-3,4,16,4,18,11,4,2,1, -2,0,0,128 840 DATA 0,32,16,64,8,64,-15,8,32,72,16,32,64,-6, 0,0,0,127,0,0,127,0,0,0,128 850 DATA -7,0,0,0,8,4,16...,2,16,-15, 2,8,18,36,72,16,32,64,-2,0,0,128 Now RUN the STRATA program.
...,4,16,8,0,128 820 DATA 0,0,0,64,32,16,72,36,-3,16,4,34, 65,0,0,65,34,-8,16,4,18,11,4,2,1,0,-9,0,0,128 839 DATA -8,0,0,64,32,16,72,36,16,-7, 4,16,36,65,0,0,1,66,36,16,-3,4,16,4,18,11,4,2,1, -2,0,0,128 840 DATA 0,32,16,64,8,64,-15,8,32,72,16,32,64,-6, 0,0,0,127,0,0,127,0,0,0,128 850 DATA -7,0,0,0,8,4,16...,2,16,-15, 2,8,18,36,72,16,32,64,-2,0,0,128 Now RUN the STRATA program.
User Manual
Page 180
..., do a lot with dot graphics. Three-Dimensional Program Using a little imagination and creativity, you a complete FX-100 program. 163 Take a look at the close of your favorite printer. l00 LPRINT CHR$(27)"1" 590 FOR K=1 TO 6 600 LPRINT CHR$(27)"L"CHR$(60)CHR$(0); 610 READ N: IF N=128 THEN 650 620 IF N>=0...128 820 DATA 0,0,0,64,32,16,72,36,-3,16,4,34, 65,0,0,65,34,-8,16,4,18,11,4,2,1,0,-9,0,0,123 830 DATA -8,0,0,64,32,16,72,36,16,-7, 4,16,36,65,0,0,1,66,36,16,-3, 4,16,4,18,11,4,2,1,-2,0,0,128 840 DATA 0,32,16,64,8,64,-15,8,32,72,16,32,64,-6, 0,0,0,127,0,0,127,0,0,0,128 850 DATA ...
..., do a lot with dot graphics. Three-Dimensional Program Using a little imagination and creativity, you a complete FX-100 program. 163 Take a look at the close of your favorite printer. l00 LPRINT CHR$(27)"1" 590 FOR K=1 TO 6 600 LPRINT CHR$(27)"L"CHR$(60)CHR$(0); 610 READ N: IF N=128 THEN 650 620 IF N>=0...128 820 DATA 0,0,0,64,32,16,72,36,-3,16,4,34, 65,0,0,65,34,-8,16,4,18,11,4,2,1,0,-9,0,0,123 830 DATA -8,0,0,64,32,16,72,36,16,-7, 4,16,36,65,0,0,1,66,36,16,-3, 4,16,4,18,11,4,2,1,-2,0,0,128 840 DATA 0,32,16,64,8,64,-15,8,32,72,16,32,64,-6, 0,0,0,127,0,0,127,0,0,0,128 850 DATA ...
User Manual
Page 219
The character would normally go in Half-Speed Mode, the printer simply refuses to print two overlapping dots. To be consistent with the program. Even in the top 8 rows, but we use only 7 rows. Type in ... and data for the character in the same row. Also note that two adjacent dots cannot be printed in Figure 15-2: 150 FOR X=1 TO 11: READ C: LPRINT CHR$(C);: NEXT X 1170 DATA 62,65,8,65,8,65,28,65,34,0,0: 'My E Notice that the DATA statement contains 11 numbers even though the design uses only 9 of Figure...
The character would normally go in Half-Speed Mode, the printer simply refuses to print two overlapping dots. To be consistent with the program. Even in the top 8 rows, but we use only 7 rows. Type in ... and data for the character in the same row. Also note that two adjacent dots cannot be printed in Figure 15-2: 150 FOR X=1 TO 11: READ C: LPRINT CHR$(C);: NEXT X 1170 DATA 62,65,8,65,8,65,28,65,34,0,0: 'My E Notice that the DATA statement contains 11 numbers even though the design uses only 9 of Figure...
User Manual
Page 227
... are printed by the printer cannot be changed code 27 to 20, 24, and 27. Imagine, if you choose to . CHR$(27)"R" lets you want them to define the ASCII code 8 (normally a backspace). International character locations Dec. It is stored where, use Table 15-1. CHR$(27)"R" to an...it works. no more ESCape codes. Code USA France Germ. And add: 1100 DATA 0,121,0,73,0,73,0,73,0,79,0: 'My S 1110 DATA 0,127,0,65,0,65,0,65,0,127,0: 'My Oh SOW The program now contains six DATA lines, but printing CHR$(8) still produces a backspace, even after a CHR$(27)"I1". Codes ...
... are printed by the printer cannot be changed code 27 to 20, 24, and 27. Imagine, if you choose to . CHR$(27)"R" lets you want them to define the ASCII code 8 (normally a backspace). International character locations Dec. It is stored where, use Table 15-1. CHR$(27)"R" to an...it works. no more ESCape codes. Code USA France Germ. And add: 1100 DATA 0,121,0,73,0,73,0,73,0,79,0: 'My S 1110 DATA 0,127,0,65,0,65,0,65,0,127,0: 'My Oh SOW The program now contains six DATA lines, but printing CHR$(8) still produces a backspace, even after a CHR$(27)"I1". Codes ...
User Manual
Page 253
...72,0,72,0,76,2,121,0: 's - Program for STATEMENT (concluded) 236 W 1150 DATA 0,7,8,16,36,64,36,16,8,7,0: 'r - R 1170 DATA 0,62,65,8,65,8,65,28,65,34,0: 't - 1100 DATA 0,121,0,73,0,73,0,73,0,79,0: 'm - T 1140 DATA 0,126,1,2,4,8,4,2,1,126,0: 'q - E 1199 ' > 1200 DATA 0,1,2,4,...> 1300 DATA a,j,f,b,k, ,k,k,g,j,i,h,k, ,k,k, d,j,e,c 1310 DATA 11,8, ACCOUNT NO.","DATE" 1320 DATA j,j,f,j, k, ",j,j,i,j, ,k, ,j,j,e,j 1330 DATA 11,11,20,8,8,15,"DATE","INVOICE NO." 1340 DATA "DESCRIPTION", "CHARGES", "PAYMENTS","BALANCE" 1350 DATA j,j,f,j, k, j,j,i,j, k, ,j,j,e,j 1360 DATA 22,11,11,12,...
...72,0,72,0,76,2,121,0: 's - Program for STATEMENT (concluded) 236 W 1150 DATA 0,7,8,16,36,64,36,16,8,7,0: 'r - R 1170 DATA 0,62,65,8,65,8,65,28,65,34,0: 't - 1100 DATA 0,121,0,73,0,73,0,73,0,79,0: 'm - T 1140 DATA 0,126,1,2,4,8,4,2,1,126,0: 'q - E 1199 ' > 1200 DATA 0,1,2,4,...> 1300 DATA a,j,f,b,k, ,k,k,g,j,i,h,k, ,k,k, d,j,e,c 1310 DATA 11,8, ACCOUNT NO.","DATE" 1320 DATA j,j,f,j, k, ",j,j,i,j, ,k, ,j,j,e,j 1330 DATA 11,11,20,8,8,15,"DATE","INVOICE NO." 1340 DATA "DESCRIPTION", "CHARGES", "PAYMENTS","BALANCE" 1350 DATA j,j,f,j, k, j,j,i,j, k, ,j,j,e,j 1360 DATA 22,11,11,12,...