Inhaltsverzeichnis
Werbung
Kapitell2:
EPSON-Emulation- Ladbare Zeichen u nd Gra fiken
Nachfolgend ein Beispielprogramm:
10
REM
9
-
Nadel
-
Grafikdemo
20
30
DATA 0
,
128
,
1
,
0
,
2
,
128
,
5
,
0
,
10
,
0
,
20
,
0
,
40
,
0
,
80
,
0
,
160
,
0
,
64
,
0
,
128
,
0
4 0
REM Musterdaten
50
60
RES':'üRE
70
WIDTH
"
~pt1
.",
255
80
9 0
FüR I
=
1 Tü 2 2
:
REM Grafikzeichenfolge
generieren
100
READ A
1
1
0
APS -
AP$ + CER$ (A
)
120
NEXT I
130
1 4 0
FüR M
~
0 Tü
1
:
REM einfache und doppelte Dichte
150
LPRINT CHR$(27)
;
"
"
";
CHRS(M)
;
CHR$(220)
;
CHR$(0)
;
15
'1
FüR I -
1 Tü 2 0
160
LPRINT AP$
;
165
NEXT I
:70
L?RINT CHR$ (10)
;:
REM Zeilenvorschub
:80
NEXT M
1
qO
END
12-27
Werbung
Inhaltsverzeichnis
Fehlerbehebung
