    4 CLEAR 100 
    5 :REM************************************************************* 
   10 :REM**                                                         ** 
   15 :REM**                     GERNOT SCHNASE                      ** 
   20 :REM**                     JAHNSTRASSE 1                       ** 
   25 :REM**                     3550 MARBURG                        ** 
   30 :REM**                     06421/23461                         ** 
   35 :REM**                     JAN  1987                           ** 
   40 :REM**                                                         ** 
   45 :REM************************************************************* 
   50 PRINT : CLS :COLOR 3,1:PRINT :PRINT :PRINT :PRINT :PRINT  
   55 PRINT "         " 
   60 FOR I= 1TO 1500:NEXT  
   65 CLS  
   70 PRINT "DIESES PROGRAMM BESTEHT" 
   75 PRINT "AUS ZWEI TEILEN," 
   80 PRINT :PRINT "DEM     " 
   85 PRINT "UND DEM " 
   90 PRINT :PRINT "MIT DEM ZEICHEN GENERATOR KOEN -NEN SIE EIGENE"; 
   95 PRINT " ZEICHEN ERFINDEN UND ABSPEICHERN,"; 
  100 PRINT "MIT DEM TREIBER LASSEN SICH DIE ZEICHEN AUF DEM DRUCKE"; 
  105 PRINT "R DURCH LPRINT ODER LLIST AUSGEBEN." 
  110 PRINT :PRINT :PRINT "IST DER DRUCKER BEREIT ?" 
  115 FOR I= 1TO 10000:NEXT  
  120 CLS :PRINT :PRINT :PRINT :PRINT :PRINT  
  125 PRINT "HIER KOMMT DER INVERSE" 
  130 PRINT "ZEICHEN-SATZ"; 
  135 PRINT " IM TEXT MODE" 
  140 PRINT "DEN SIE FUER DIE DRUCKERAUSGABE BEARBEITEN KOENNEN":PRINT  
  145 REM****INVERSE ZEICHEN****" 
  150 FOR I= 192TO 255:PRINT CHR$ (I);:NEXT  
  155 FOR I= 192TO 255:LPRINT CHR$ (I);:NEXT :LPRINT "" 
  160 CLS :PRINT :PRINT :PRINT :PRINT "ZUNAECHST WIRD DER TREIBER      GELADEN." 
  165 REM****AUF DEM DRUCKER****" 
  170 BLOAD"GRIECH" 
  175 POKE 30758,9:POKE 30759,116:REM TREIBER EIN 
  180 PRINT "SEHEN SIE SICH ANSCHLIESSEND" 
  185 PRINT "BITTE DIE ZEICHEN AUF DEM":PRINT "DRUCKER AN." 
  190 FOR I= 192TO 255:LPRINT CHR$ (I);:NEXT :LPRINT "" 
  195 REM******FORMELN**********" 
  200 CLS  
  205 LPRINT :LPRINT  
  210 LPRINT "     1   ","         " 
  215 LPRINT CHR$ (102);"=","E = - N " 
  220 LPRINT "  2LC","        ";CHR$ (116) 
  225 LPRINT :LPRINT :LPRINT  
  230 B$= "F'(" 
  235 A$= "X) = F(X) =(AX+ BX+CX + D * SIN(2F) 
  240 FOR I= 1TO LEN (A$) 
  245 A= ASC (MID$ (A$,I,1)):IF A> 64IF A< 91THEN A= A+ 32 
  250 B$= B$+ CHR$ (A) 
  255 NEXT  
  260 LPRINT B$ 
  265 LPRINT :LPRINT :LPRINT  
  270 CLS :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT "MIT SONDERZEICHEN" 
  275 PRINT "KOENNEN SIE SOGAR ZEICHNEN...," 
  280 PRINT "ZUM BEISPIEL....." 
  290 LPRINT :LPRINT  
  295 LPRINT " " 
  300 LPRINT "" 
  305 LPRINT "" 
  310 LPRINT "  " 
  315 LPRINT "  " 
  320 LPRINT "    " 
  325 LPRINT "    " 
  330 LPRINT " " 
  335 LPRINT :LPRINT  
  340 REM*******BILD************" 
  345 BLOAD"BILD" 
  350 POKE 30758,9:POKE 30759,116:REM TREIBER EIN 
  355 LPRINT " " 
  360 LPRINT "" 
  365 LPRINT "" 
  370 LPRINT "  " 
  375 LPRINT "  " 
  380 LPRINT "    " 
  385 LPRINT "    " 
  390 LPRINT " " 
  395 POKE 30758,141:POKE 30759,5:REM SONDERZEICHEN AUS 
  400 CLS  
  405 BLOAD"G" 
  410 POKE 30758,9:POKE 30759,116 
  415 LPRINT  
  420 LPRINT  
  425 LPRINT TAB( 25)"ALSO BIS DANN," 
  430 LPRINT TAB( 9);"" 
  435 LPRINT TAB( 9)""; 
  440 LPRINT CHR$ (14); 
  445 LPRINT CHR$ (16);"30ALLES GUTE !"; 
  450 LPRINT CHR$ (15) 
  455 LPRINT TAB( 9);"" 
  460 LPRINT TAB( 9);"             UND NOCH" 
  465 LPRINT TAB( 9)"" 
  470 LPRINT CHR$ (14); 
  475 LPRINT CHR$ (16);"35VIEL SPASS !"; 
  480 LPRINT CHR$ (15) 
  485 LPRINT  
  490 POKE 30758,141:POKE 30759,5 
  495 RUN "GNERATOR" 

