10 REM*******GRIECHISCH/PARALLEL******* 11 REM 12 REM FUER VIZAWRITE & SG-10 DRUCKER 13 REM 14 REM RENE' KRAUSE 15 REM OTTOSTR. 21 16 REM 5100 AACHEN 17 REM 18 REM********************************* 20 OPEN 4,4 30 E$=CHR$(27):PRINT#4,E$ CHR$(42) CHR$(0) 40 FOR N=1 TO 26 50 FOR M=1 TO 13 60 READ A 70 IF M>1 THEN 100 80 PRINT#4,E$ CHR$(42) CHR$(1) CHR$(A) CHR$(A); 90 IF M=1 THEN 110 100 PRINT#4,CHR$(A); 110 NEXT M:NEXT N 120 PRINT#4,E$ CHR$(36) CHR$(1) 130 CLOSE4 140 DATA 35,139,28,0,34,0,34,20,8,20,34,0,0 150 DATA 36,139,127,128,0,128,18,128,106,4,0,0,0 160 DATA 38,11,128,2,133,72,33,18,12,32,64,128,0 170 DATA 64,139,12,2,16,66,176,2,156,0,64,0,0 180 DATA 192,139,0,0,108,16,130,16,130,68,0,0,0 190 DATA 222,139,0,0,73,180,1,36,1,36,2,0,0 200 DATA 223,11,32,0,64,60,0,64,0,64,62,1,0 210 DATA 161,139,16,32,0,60,2,192,34,128,124,0,16 220 DATA 162,139,0,0,128,126,0,24,36,66,0,66,0 230 DATA 166,139,0,0,64,2,68,40,16,8,4,2,0 240 DATA 167,11,1,126,0,4,0,4,0,120,4,0,0 250 DATA 168,139,0,64,0,66,60,0,8,16,32,64,0 260 DATA 169,139,0,0,65,168,21,170,0,40,0,0,0 270 DATA 170,139,32,0,62,0,32,0,62,0,32,0,0 280 DATA 171,139,0,2,1,16,1,126,128,16,224,0,0 290 DATA 172,139,0,28,34,0,34,28,32,0,32,0,0 300 DATA 173,139,0,32,64,0,64,0,124,2,64,0,64 310 DATA 174,139,0,8,0,127,128,16,160,64,0,0,0 320 DATA 175,139,0,34,68,8,64,60,2,32,66,4,0 330 DATA 176,139,128,96,16,0,8,54,8,0,16,96,128 340 DATA 177,139,60,64,2,0,2,28,2,0,2,64,60 350 DATA 178,139,2,4,10,16,34,64,34,16,10,4,2 360 DATA 179,139,0,56,68,16,130,16,130,16,68,56,0 370 DATA 189,139,0,130,68,170,16,130,0,130,0,130,0 380 DATA 190,139,0,0,24,36,0,255,0,36,24,0,0 390 DATA 191,139,58,0,70,0,64,0,70,0,58,0,0