1 REM ** DEMOPROGRAMM F. HI-RES TEXT
2 REM **
10 DIM A$(100)
20 GRAPHICS 8+16:COLOR 1
30 FOR I=0 TO 191:PLOT 191-I,I:DRAWTO 319-I,I:NEXT I
40 GOSUB 30000
50 A$="TEXT IN HI-RES BILDSCHIRM"
60 X=6:Y=20:GOSUB 10000
70 A$="ALLE NORMALEN ZEICHEN SIND DARSTELLBAR"
80 X=1:Y=50:GOSUB 10000
90 A$="Inverser Text, Graphik:. . . ."
100 X=5:Y=100:GOSUB 10000
110 A$="Auch Loeschen ist moeglich..."
120 X=5:Y=150
130 GOSUB 10000:FOR I=0 TO 200:NEXT I:GOTO 130
10000 REM * GIBT A$ AN POSITION X,Y AUS
10010 Q=USR(1536,ADR(A$),LEN(A$),X,Y)
10090 RETURN 
30000 REM * MASCHINEN-UNTERPROGRAMM LADEN
30010 S=0:RESTORE 30100
30020 FOR A=1536 TO 1701:READ D:POKE A,D:S=S+D:NEXT A
30030 IF S<>22328 THEN ? "DATEN-FEHLER!":STOP 
30090 RETURN 
30100 DATA 104,169,0,133,210,104,133,208,104,133,207,104,104,133,211
30110 DATA 104,104,133,205,104,104,133,209,10,38,210,10,38,210,24
30120 DATA 101,209,133,209,144,2,230,210,10,38,210,10,38,210,10,38
30130 DATA 210,24,101,205,144,2,230,210,24,101,88,133,209,165,210
30140 DATA 101,89,133,210,165,209,133,203,165,210,133,204,160,0,132
30150 DATA 212,132,206,177,207,16,4,162,255,134,212,41,127,201,96
30160 DATA 176,11,201,32,176,4,9,64,208,3,56,233,32,10,10,38,206,10
30170 DATA 38,206,133,205,24,165,206,109,244,2,133,206,160,0,162,8
30180 DATA 177,205,69,212,81,203,145,203,24,165,203,105,40,133,203
30190 DATA 144,2,230,204,230,205,202,208,232,230,209,208,2,230,210
30200 DATA 230,207,208,2,230,208,198,211,208,156,96
