    5 REM0-195
   10 A = PEEK (30884) + PEEK (30885) * 256 + 4
   15 POKE A,182 : POKE A + 2,206
   20 LPRINT "" : COLOR 2,0
   25 : REM*************************************************************
   30 : REM** **
   35 : REM** GERNOT SCHNASE **
   40 : REM** JAHNSTRASSE 1 **
   45 : REM** 3550 MARBURG **
   50 : REM** 06421/23461 **
   55 : REM** JAN 1987 **
   60 : REM** **
   65 : REM*************************************************************
   70 CLS : PRINT "DAS MASCHINENPROGRAMM BELEGT DENBILDSPEICHER VON";
   75 PRINT " 29696 BIS 29777" : PRINT : PRINT "FUER DIE PIXELTABELLE VON
   80 PRINT "29780 BIS 30227."
   85 : REMMC 29696 - 29777
   90 DATA 33,9,116,34,38,120,195,207,54
   95 DATA 121,183,202,196,5,254,11
  100 DATA 202,159,5,254,12,202,153,5,229,33,176,5,227,183,250
  105 DATA 36,116,195,186,58,203,119,202,115,44,230,63,245,197,213
  110 DATA 229,111,38,0,62,8,205,186,58,6,6,229,209,183,237,90
  115 DATA 16,252,229
  120 DATA 193,33,82,116,9,6,7,126,35,205,186,58,16,249,195,132
  125 DATA 57
  130 A = 29696 : B = 29777
  135 FOR I = A TO B : READ C : POKE I,C : NEXT 
  140 PRINT " DIE IM ROM ENTHALTENE TABELLE  WIRD JETZT UEBERTRAGEN."
  145 TAB = 29776 : ALT = 15251
  150 FOR I = 0 TO 63 : PIX = 5 * I
  155 TAB = TAB + 2 : POKE (TAB + PIX),255
  160 FOR K = 1 TO 5
  165 POKE (TAB + PIX + K), PEEK (ALT + PIX + K)
  170 NEXT K
  175 POKE (TAB + PIX + K),255
  180 NEXT I
  185 PRINT : PRINT "FERTIG !" : PRINT "BITTE MIT BLOAD FERTIGEN"
  190 PRINT "ZEICHENSATZ LADEN UND/ODER"
  195 PRINT "MIT RUN STARTEN" : RUN 
  200 GOTO 380
  205 BSAVE"@@@@@@@@",7400,7611
  210 RUN 
  380 : REM*************************
  390 DIM A$(6) : CLEAR 100
  400 FOR I = 0 TO 6 : A$(I) = "" : NEXT 
  410 PRINT : PRINT "UND JETZT WOLLEN WIR EIGENE     ZEICHEN GENERIEREN !"
  420 FOR I = 1 TO 3000 : NEXT 
  430 CLS : PRINT "WELCHES ZEICHEN SOLL ES SEIN"
  440 A$ = INKEY$ : A$ = INKEY$ 
  450 IF A$ = "" THEN 440
  460 A = ASC ( LEFT$ (A$,1))
  470 IF A < 64,A = A + 128
  480 IF A < 96,A = A + 64
  490 A = A - 128
  500 CLS : POKE 28908,A
  510 TA = 29778 + A * 7
  520 FOR I = 0 TO 6 : A = PEEK (TA + I)
  530 FOR K = 0 TO 6
  540 IF A AND 2 ^ K,A$(K) = A$(K) + "" : : ELSE A$(K) = A$(K) + ""
  550 NEXT K,I
  560 PRINT "";
  570 PRINT "Ҁ";
  580 PRINT "";
  590 PRINT @141,A$(0)
  600 PRINT @173,A$(1)
  610 PRINT @205,A$(2)
  620 PRINT @237,A$(3)
  630 PRINT @269,A$(4)
  640 PRINT @301,A$(5)
  650 PRINT @333,A$(6)
  660 PRINT "      ENTER - PUNKTE SETZEN"
  670 PRINT "PFEILTASTEN - CURSORSTEUERUNG" : PRINT 
  680 PRINT "T -ZEICHEN IN TABELLE EINTRAGEN"
  690 PRINT "S -TREIBER AUF CAS. ABSPEICHERN";
  700 : REM******HAUPTSCHLEIFE******
  710 Y = 7 : X = 16
  720 GOSUB 770
  730 IF A = 84 THEN 1040
  740 IF A = 83 THEN 1140
  750 IF A THEN GOSUB 870
  760 GOTO 720
  770 : REM*******CURSOR************
  780 P = 28672 + X + Y * 32 : GOSUB 800 : FOR I = 1 TO 15 : GOSUB 830 : NEXT 
  790 GOSUB 810 : FOR I = 1 TO 2 : GOSUB 830 : NEXT : RETURN 
  800 B = PEEK (P) : POKE P,239 : RETURN 
  810 POKE P,B : RETURN 
  820 GOSUB 800 : GOSUB 810 : RETURN 
  830 : REM********TASTE************
  840 POKE 30873,0 : A = PEEK (30873)
  850 IF A = 13 THEN 970
  860 A$ = CHR$ (A) : RETURN 
  870 : REM*******POSITION**********
  880 A = NOT PEEK (26863)
  890 IF A AND 8,X = X + 1
  900 IF A AND 32,X = X - 1
  910 IF A AND 16,Y = Y + 1
  920 IF A AND 2,Y = Y - 1
  930 IF X = 12 AND Y = 7 GOSUB 1000
  940 IF Y < 4 OR Y > 10,Y = 8
  950 IF X < 13 OR X > 19,X = 16
  960 GOTO 820
  970 : REM****PUNKTE SETZEN*********
  980 IF B > 144,B = B - 15 : : ELSE B = B + 15
  990 SOUND 31,1 : GOTO 810
 1000 : REM***ANDERER BUCHSTABE*****
 1010 GOSUB 830 : GOSUB 770 : IF A THEN 1020 : ELSE 1010
 1020 IF A > 63,B = A - 64 : ELSE B = A
 1030 GOTO 990
 1040 : REM****TABELLENEINTRAG******
 1050 A = PEEK (28908)
 1060 TA = 29778 + A * 7
 1070 FOR I = 0 TO 6 : A = 128
 1080 FOR K = 0 TO 6
 1090 IF PEEK (28813 + K * 32 + I) = 144,A = A + 2 ^ K
 1100 NEXT K
 1110 POKE (TA + I),A
 1120 NEXT I
 1130 GOTO 400
 1140 : REM***SAVE SONDERZEICHEN***
 1141 CLS : INPUT "BITTE TEXTNAMEN EINGEBEN";U$ : J = LEN (U$) : IF J > 8 THEN J = 8
 1142 A = PEEK (30884) + PEEK (30885) * 256 + 19
 1143 FOR I = 0 TO 7 : IF I < J THEN K = ASC ( MID$ (U$,I + 1,1)) : ELSE K = 32
 1144 POKE A + I,K
 1145 NEXT I : GOTO 205

