Atari 400

TEXT MODES
CHARACTER
PRINT
This program prints the Atari charac te rs in their default c olors for t ext mode s
0,
1, a nd 2. In entering this program, remembe r 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· 10DE : ::; )
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;, :A F'HICS II; L
130 FOF.: .j=0 TO 7 = F.:EJ1 :3 LH~E~ ;
140 FO~: I=O TO 31 : PEr-1 32 CHA F.:: :: ; . .. ··:...wE
150 K=32t . j+ I
155 REf'1 DON'T DISPLAY !I CL EAR SC~~EEt-~" OR
"RETURt·~ ..
160 IF K=A::;C( ff} II ) OF.: K=155 THE U 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 L HJE
200 IF L< >2 OR ._!< >3 THEH 240
210 F.:Et1 :::c~~EE N F ULL
220 GOS U8 l·JA IT
230 P~ ~ I t·n ~ 1 ; II } '
1
, F.B-1 CL EAP scFEE r· l
24tt ~~E>=:T .J
250 GOS U E: ~·lA IT
265 PR!t ·H
11
L O~lE F. ~ c;::6E Ar · 10 GPAF'HIC: ;u
270 IF L< >0 TH Et·.f F·!Jt :::E CHE;A:3 .' L 0 1 · 1E ~~ : GO::;iJE~
WAIT
275 CLOSE # 1.
280 NE> = :T L
30ft GRAPHI CS 0 = END
1000 F. ~ EJ1 HAlT FOP
11
R E TU~till
1010 F'~:WT '! HIT M:ETUErl TO COt·H H4 UE" _;
1020 INF'U T A$
1030 RE TUR~ i
AppendLr H -7