Atari 400 Basic Reference Manual page 104

TEXT MODES
CHARACTER
PRINT
This program prints the Atari characters in their default colors
for
text modes
0,
1,
and
2.
In entering this program, remember that the clear screen symbol
"..," is printed as " } " .
1 DIM A$( 1 >
5 ?
II) II :
REt·1
CLEAF.~
SCREEH
10 · - : : ·
11
GRAPHICS 0, L A~[l 2
nD=:T
r· 1 0DE:::; )
11
20 ? 11 DEr-10t·~~:r~~ATimj.
II
30
' 7 -·
11 D I SPLA\':3
CHAF.:ACTE~:
SET:::
FO~~
EACH t1
OOE.II
6e
l·JA IT= 100(1
=
F.U1 SUB
F.:
O UT I
t·~E
L I
t·~E t·~U~1BEF.:
70 CHBA:3=756 : PEM CHAF.:ACTEF: BA3E ADDPE:3:;
80 UPPER:=224 :
F.~E~1
DEFAULT FOR
C:HEA~3
90 LO\IER=226 : REt·1 LOWER CASE LETTER:;
t
GR
APHIC:S
95 GOSUB
~·JA!
T
100
FOF.~
L=0 TO 2
112 F.:81 USE
E:
FOF.: GRAPH!CS
(1
115 IF L=0 THEt-4
OF'Er-~ #L::: . .
(1,
11
E:
II:
GOTO 11
8
116 F.:Ei1 US£ S: FOR
GRAPHIC~;
1 AND 2
117 OPEN # 1 ·' :::! 0' II::; : II
118 GRAPHICS L
120 F'PINT "Gj;, : AF'HICS
II;
L
130 FOF.: .j=0 TO 7
=
F.:EJ1 :3
LH~E~;
140 FO~:
I=O TO 31 : PEr-1 32 CHAF.::::; .. . ··:...wE
150
K=32t.j+ I
155 REf' 1 DON'T DISPLAY
!I
C LEAR SC~~EEt-~" OR
"RETURt·~ ..
160 IF K=A::;C(
ff} II )
OF.: K=155 THEU 1:::0
165
IF L=0 iHaJ Pur
#L
A::;c::::
II !I
>,
PEi·1
E: : :cA
PE
170 PUT #1 .. K: RH1 DEPLA\'
CHAF::;
180
~~E::-::T
I
190 PRnn 11;
II " ,
~~Et-1
Em oF LHJE
200 IF L< >2 OR
._!<
>3 THEH 240
210 F.:Et1
:::c~~EEN
FULL
220 GOSU8 l·JA IT
230 P~~ I
t·n
~ 1 ;
II } '
1
,
F.B-1 C LEAP scFEEr·l
24tt ~~E>=:T
.J
250 GOSU E:
~·lA
IT
265 PR!t·H 11 LO~lEF.~ c;::6E Ar·10 GPAF'HIC:;u
270 IF L< > 0 TH Et·.f F·!Jt: : :E CHE;A:3 .' L01·1E~~ : GO::;iJE~
WAIT
275 CLOSE
#1.
280 NE>= : T L
30ft GRAPHICS 0
=
END
1000 F.~EJ1 HAlT FOP 11 RETU~till
1010
F'~:WT
'!HIT M:ETUErl TO COt·H H4 UE" _;
1020
INF'UT
A$
1030 RETUR~i
AppendLr H -7