    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= ATO 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= 0TO 63:PIX= 5* I 
  155 TAB= TAB+ 2:POKE (TAB+ PIX),255 
  160 FOR K= 1TO 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= 0TO 6:A$(I)= "":NEXT  
  410 PRINT :PRINT "UND JETZT WOLLEN WIR EIGENE     ZEICHEN GENERIEREN !" 
  420 FOR I= 1TO 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= 0TO 6:A= PEEK (TA+ I) 
  530 FOR K= 0TO 6 
  540 IF AAND 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= 84THEN 1040 
  740 IF A= 83THEN 1140 
  750 IF ATHEN GOSUB 870 
  760 GOTO 720 
  770 :REM*******CURSOR************ 
  780 P= 28672+ X+ Y* 32:GOSUB 800:FOR I= 1TO 15:GOSUB 830:NEXT  
  790 GOSUB 810:FOR I= 1TO 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= 13THEN 970 
  860 A$= CHR$ (A):RETURN  
  870 :REM*******POSITION********** 
  880 A= NOT PEEK (26863) 
  890 IF AAND 8,X= X+ 1 
  900 IF AAND 32,X= X- 1 
  910 IF AAND 16,Y= Y+ 1 
  920 IF AAND 2,Y= Y- 1 
  930 IF X= 12AND Y= 7GOSUB 1000 
  940 IF Y< 4OR Y> 10,Y= 8 
  950 IF X< 13OR 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 ATHEN 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= 0TO 6:A= 128 
 1080 FOR K= 0TO 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> 8THEN J= 8 
 1142 A= PEEK (30884)+ PEEK (30885)* 256+ 19 
 1143 FOR I= 0TO 7:IF I< JTHEN K= ASC (MID$ (U$,I+ 1,1)):ELSE K= 32 
 1144 POKE A+ I,K 
 1145 NEXT I:GOTO 205 

