User Manual
Page 26
... 2: LPRINT "7 :"H$ ":9": NEXT X 160 LPRINT "7 :";: LPRINT CHR$(14);E$;"E"; " INC "E$"T"; H$;": 9": LPRINT "7 "E$"!Q"; 240 LPRINT "GENERAL ADMISSION"; " 2"; 170 LPRINT CHR$(20);E$"F";E$"S1"; H$;": 5" " PRINTERS"; 200 LPRINT "6 :"; E$"A" CHR$(1) 270 FOR X=1 TO N: LPRINT CHR$(95);: NEXT X: LPRINT 280 LPRINT E$"@":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 DATA 64,48,72...
... 2: LPRINT "7 :"H$ ":9": NEXT X 160 LPRINT "7 :";: LPRINT CHR$(14);E$;"E"; " INC "E$"T"; H$;": 9": LPRINT "7 "E$"!Q"; 240 LPRINT "GENERAL ADMISSION"; " 2"; 170 LPRINT CHR$(20);E$"F";E$"S1"; H$;": 5" " PRINTERS"; 200 LPRINT "6 :"; E$"A" CHR$(1) 270 FOR X=1 TO N: LPRINT CHR$(95);: NEXT X: LPRINT 280 LPRINT E$"@":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 DATA 64,48,72...
User Manual
Page 227
...the character to print as a normal character . . . The three characters are printed by the printer cannot be changed code 27 to an easily printable location. Not all of the low-order (O-31...96 30 2 123 30 26 19 26 0 22 124 2 27 21 27 3 10 125 1 28 14 14 1 126 22 17 28 4 210 Codes that currently activate special modes or actions by line 180. It ...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, ...
...the character to print as a normal character . . . The three characters are printed by the printer cannot be changed code 27 to an easily printable location. Not all of the low-order (O-31...96 30 2 123 30 26 19 26 0 22 124 2 27 21 27 3 10 125 1 28 14 14 1 126 22 17 28 4 210 Codes that currently activate special modes or actions by line 180. It ...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, ...
User Manual
Page 232
...to define the two characters A and B. Enter the DATA lines: 200 DATA 0,2,5,0,11,16,3,32,70,0,84 210 DATA 68,32,66,49,8,21,14,5,2,0,0 And how do they look side by placing two characters next to each other to form a double-width letter. Enter this chapter we'll explore... the technique of combining userdefined characters to make large letters and symbols. This program prepares the printer to RAM 30 LPRINT CHR$(27)"%"CHR$(1)CHR$(0); 'Activates RAM 60 LPRINT CHR$(27)"&"CHR$(0)"AB"; 65 'Defines characters A & B 70 FOR Y=1 TO 2: LPRINT CHR$(139); 'Attribute byte 80 FOR x=1 TO 11: READ N: ...
...to define the two characters A and B. Enter the DATA lines: 200 DATA 0,2,5,0,11,16,3,32,70,0,84 210 DATA 68,32,66,49,8,21,14,5,2,0,0 And how do they look side by placing two characters next to each other to form a double-width letter. Enter this chapter we'll explore... the technique of combining userdefined characters to make large letters and symbols. This program prepares the printer to RAM 30 LPRINT CHR$(27)"%"CHR$(1)CHR$(0); 'Activates RAM 60 LPRINT CHR$(27)"&"CHR$(0)"AB"; 65 'Defines characters A & B 70 FOR Y=1 TO 2: LPRINT CHR$(139); 'Attribute byte 80 FOR x=1 TO 11: READ N: ...
User Manual
Page 245
... new characters: 70 DATA 2,1,64,32,16,8,4,2,1,64,32 80 DATA 127,0,99,0,65,0,65,0,99,0,127 90 DATA 127,0,28,0,62,65,62,0,28,0,127 228 Figure 17-1. Barchart In line 130 the parameters for "&" specify that our 14 user-defined characters will probably want to change this specification to 66 to conform...
... new characters: 70 DATA 2,1,64,32,16,8,4,2,1,64,32 80 DATA 127,0,99,0,65,0,65,0,99,0,127 90 DATA 127,0,28,0,62,65,62,0,28,0,127 228 Figure 17-1. Barchart In line 130 the parameters for "&" specify that our 14 user-defined characters will probably want to change this specification to 66 to conform...
User Manual
Page 247
...$(11): C$=CHR$(27)+"F" 70 DATA 2,1,64,32,16,8,4,2,1,64,32 80 DATA 127,0,99,0,65,0,65,0,99,0,127 90 DATA 127,0,28,0,62,65,62,0,28,0,127 100 LPRINT CHR$(27) "3"CHR$(10) 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)"&WR$(0)CHR$(94)CHR$(107); 140 FOR Y=1 TO 14... 11: READ C: LPRINT CHR$(C);: NEXT X 160 NEXT Y: LPRINT CHR$(27)"C"CHR$(33); 190 LPRINT CHR$(27)"D"CHR$(14)CHR$(19)CHR$(24) CHR$(34)CHR$(44)CHR(54); 200 LPRINT CHR$(60)CHR$(1);: H$=CHR$(137): Z=1 210...
...$(11): C$=CHR$(27)+"F" 70 DATA 2,1,64,32,16,8,4,2,1,64,32 80 DATA 127,0,99,0,65,0,65,0,99,0,127 90 DATA 127,0,28,0,62,65,62,0,28,0,127 100 LPRINT CHR$(27) "3"CHR$(10) 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)"&WR$(0)CHR$(94)CHR$(107); 140 FOR Y=1 TO 14... 11: READ C: LPRINT CHR$(C);: NEXT X 160 NEXT Y: LPRINT CHR$(27)"C"CHR$(33); 190 LPRINT CHR$(27)"D"CHR$(14)CHR$(19)CHR$(24) CHR$(34)CHR$(44)CHR(54); 200 LPRINT CHR$(60)CHR$(1);: H$=CHR$(137): Z=1 210...
User Manual
Page 251
...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...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 ...
...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...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 ...