Table of Contents
Advertisement
Because some applications programs require the use of the eighth
bit, the Apple IIc PIC has a setting (DIP switch 2-2 ON) which does
not change the eighth bit. This allows you to use numbers between
and
decimal in your graphics programming, but because the
128
255
CHR$ function in Applesoft BASIC cannot send a code above
decimal, you must use a POKE command to send such codes. Also,
when DIP switch
you can print with switch 2-2 on only when you are printing graphics
and not words.
Because the Apple IIc has special uses for such low-numbered codes
as 4 and 9 you must make adjustments when you need these codes for
graphics or for horizontal tabbing. In some programs you can merely
avoid these codes, but when you cannot, there are two solutions.
The first solution is to use the following subroutine to send the
codes directly to the printer without interference by the BASIC inter-
preter:
10000 IF PEEK
10010 POKE 49304,N
10020 RETURN
with this subroutine in your program, two comands will send any
number to the printer: the first makes the number equal to N (for
example, N = 222), and the second is GOSUB 10000. The program
then uses the POKE in line 10010 to send the number to the printer.
The following short program shows how this subroutine works:
5 PRINT CHR$(4);"PR#1"
10 PRINT CHR$(27);"K";CHR$(20);CHR$(0);
20 FOR X=1 TO 20
30 N=X: GOSUB 10000
40 NEXT X: PRINT
300 PRINT CHR$(4);"PR#0"
400 END
l0000 IF PEEK (49305)<
10010 POKE 49304,N
10020 RETURN
If you need to use CHR$(9) to activate a horizontal tab on the
LX-90, you must reassign the special use that the Apple IIc has for this
code by typing the following:
PR#1
PRINT CHR$(9);CHR$(1)
E-6
is on, all letters are printed in italics. Therefore,
2-2
(49305)
< > 80 then 10000
>
then
80
10000
127
Hide quick links:
Advertisement
Table of Contents
