10 REM PROGRAMM EINZELZEICHEN
20 REM STARTADRESSE FUER ZEICHEN
30 REM 24576 + (ASCII-32) *47
40 OPEN3,4
50 PRINT#3,CHR$(27);CHR$(120);CHR$(49):REM NLQ EIN
60 PRINT#3,CHR$(27);CHR$(58);CHR$(0);CHR$(0);CHR$(0):REM DOWNLOAD
65 CLOSE3
70 INPUT "ASCII-WERT? ";A
80 IF A=0 THEN 300
90 IF A<33 THEN 40
100 IF A>127 THEN 40
110 B=A-32
120 B=24576+B*47
125 OPEN3,4
130 PRINT#3,CHR$(27);CHR$(38);CHR$(0);:REM EIGENES ZEICHEN
140 PRINT#3,CHR$(A);CHR$(A);
150 FOR I=0 TO 46
160 C=PEEK(B+I)
170 PRINT#3,CHR$(C);
180 NEXTI
190 CLOSE3
200 GOTO70
300 GETA$
310 IF A$<>""THEN300
320 PRINT "TESTEN J/N"
330 GET A$
340 IF A$=""THEN 330
350 IF A$="J" THEN 400
360 STOP
400 OPEN3,4
410 PRINT#3,CHR$(27);CHR$(37);CHR$(49);CHR$(0)
420 FOR I=32 TO 127
430 PRINT#3,CHR$(I);
440 NEXTI
445 PRINT#3
450 CLOSE3
460 STOP