
nderung der Drucksymbole     von Ing. Smetana
-------------------------

Di folgende Programm erweiter de bestehende Zeichensat a 
Drucke u besonder mathematisch Formelzeichen E wir gezeigt 
wi di Punktmatri f dies Zeiche gebilde wir un wi da 
zugehrig BASIC-Program aufgebau wird Nac diese Muste is e 
mglic Druckbilde f de eigene Bedar z erzeugen Di zugeh
rige Programm sin nich vollstndi abgedruckt de gesamte 
Quellcod finde Si au de Diskett TGM-10.


Zunchst das Ergebnis:

De Zeichensat de Drucker umfa 25 Zeichen Davo is di 
unte Hlft (0..127 de ASCII-Zeichensatz un di ober Hlft 
ei Mischun au grafische Zeichen multinationale Zeiche un 
griechische Zeichen D wi i allgemeine mi de deutsche 
Umlaute da Auslange finden wurde i vorgestellte Beispie di 
nich s hufi verwendete internationale Zeichen da sin di 
Zeiche 128..172 mi Ausnahm de deutsche Umlaute  ersetzt.

Da Ergebni knne Si a folgende auszugsweise Ausdruc able
sen de durc da Program ASCII.BA entstande ist Da Program 
ASCIɠ druck ein Tabell mi alle abdruckbare Zeiche Ihre 
Drucker i de jeweil gewhlte Schriftgart.

Programm : ASCII.BAS

10 RE ASCI - CODE
11 CLS:N=30:KE OFF
11 CLS
12 LOCAT 2,30:
    PRIN "<alt><Nr  ASCII-ZEICHEN"
14 FO I= T 4:
    FO J= T 20:
    LOCAT (3+J),1+(15*I):
    PRIN N:
    LOCAT (3+J),7+15*I:
    I  < 1 THE PRIN CHR$(N 
               ELS PRIN "CLS":
145 N=N+1:
    IF N<256 THEN NEXT J 
             ELSE LOCATE 25,1:END
147 NEXT I
150 INPUT K: GOTO 115
160 END

Anmerkung Di Programmzeile 120,140,14 sin eigentlic typisch 
BASIC-'Bandwurmzeilen' Si wurd de bersichtlichkei halber i 
Anlehnun a C-BASI geteilt.
.pa
Erklrun a Beispie de Buchstaben Thet (Zeichen-Numme 147):
Jede Zeiche wir gebilde inde a de Drucke di Zeichenfolge:
ESC,'y',Zeichennummer(binr),9xPunktmuster(Binr gesende wird.

Zeile
20.........Rcksetzen des Druckers  
40.........Zeichen 226 wird geladen
50-70......Punktmuster fr 'Gamma'
280-310....wie 40-70, nur fr Buchstabe 'Theta'

10 REM DOWNLD.BAS
15 REM written by ING. ROLAND SMETANA 1140, STAARG. 16
20 LPRINT CHR$(27)+"@";
30 REM STORE  GAMMA      IN LOCATION 226 (DEC)
40 LPRINT CHR$(27)+"y"+CHR$(226);
50 LPRINT CHR$(0)+CHR$(0)+CHR$(110);
60 LPRINT CHR$(17)+CHR$(46)+CHR$(0);
70 LPRINT CHR$(64)+CHR$(32)+CHR$(0);
80 REM
90 REM STORE  EPSILON    IN LOCATION 128 (DEC)
100 LPRINT CHR$(27)+"y"+CHR$(128);
110 LPRINT CHR$(0)+CHR$(108)+CHR$(146);
120 LPRINT CHR$(0)+CHR$(170)+CHR$(16);
130 LPRINT CHR$(130)+CHR$(68)+CHR$(0);
140 REM
150 REM STORE  GR DELTA   IN LOCATION 130 (DEC)
160 LPRINT CHR$(27)+"y"+CHR$(130);
170 LPRINT CHR$(6)+CHR$(8)+CHR$(18);
180 LPRINT CHR$(32)+CHR$(18)+CHR$(8);
190 LPRINT CHR$(6)+CHR$(0)+CHR$(0);
200 REM
210 REM STORE  ETA        IN LOCATION 131 (DEC)
220 LPRINT CHR$(27)+"y"+CHR$(131);
230 LPRINT CHR$(16)+CHR$(32)+CHR$(30);              Wertigkeit
240 LPRINT CHR$(32)+CHR$(0)+CHR$(32);                 
250 LPRINT CHR$(30)+CHR$(1)+CHR$(0);
260 REM                                            128 o o o o o  o o o 
27 RE STOR  THET      I LOCATIO 14 (DEC     64 o o o o  o  o o 
280 LPRINT CHR$(27)+"y"+CHR$(147);                  32 o o o o  o  o o 
290 LPRINT CHR$(8)+CHR$(16)+CHR$(12);               16 o  o o o  o  o 
300 LPRINT CHR$(2)+CHR$(96)+CHR$(146);               8  o  o o o  o o 
310 LPRINT CHR$(108)+CHR$(16)+CHR$(0);               4 o o  o o o  o o 
320 REM                                              2 o o o  o  o o o 
330 REM STORE  LAMBDA     IN LOCATION 155 (DEC)      1 o o o o o o o o o 
34 LPRIN CHR$(27)+"y"+CHR$(155)                            8 9
350 LPRINT CHR$(64)+CHR$(130)+CHR$(68);               
36 LPRIN CHR$(40)+CHR$(16)+CHR$(8)                  Numme de 
370 LPRINT CHR$(4)+CHR$(2)+CHR$(0);                    Punktmusters
380 REM
390 REM STORE  NY         IN LOCATION 156 (DEC)
400 LPRINT CHR$(27)+"y"+CHR$(156);
410 LPRINT CHR$(0)+CHR$(32)+CHR$(16);
420 LPRINT CHR$(12)+CHR$(2)+CHR$(4);
430 LPRINT CHR$(56)+CHR$(0)+CHR$(0);
440 REM
  ..
  Hier folgen die Punktmuster fr die anderen mathematischen Symbole.
  ..
2630 SYSTEM
2640 END
.pa
..Eine Druckrichtung
 U
..Engschrift
 !
A S C I I - Zeichensatz
=======================

                 Steuerzeiche                    Zahlen, Zeichen        Grobuchstaben          Kleinbuchstaben

  D  H Ch   Ctrl Mem   D  H Ch   Ctrl Mem   D  H Ch    D  H Ch   D  H Ch    D  H Ch   D  H Ch    D  H Ch 

  0 00       ^@  NUL  16 10       ^P  DLE  32 20 SP  48 30  0  64 40  @  80 50  P  96 60  ` 112 70  p 
  1 01       ^A  SOH  17 11       ^Q  DC1  33 21  !  49 31  1  65 41  A  81 51  Q  97 61  a 113 71  q 
  2 02       ^B  STX  18 12       ^R  DC2  34 22  "  50 32  2  66 42  B  82 52  R  98 62  b 114 72  r 
  3 03       ^C  ETX  19 13       ^S  DC3  35 23  #  51 33  3  67 43  C  83 53  S  99 63  c 115 73  s 
  4 04       ^D  EOT  20 14       ^T  DC4  36 24  $  52 34  4  68 44  D  84 54  T 100 64  d 116 74  t 
  5 05       ^E  ENQ  21 15       ^U  NAK  37 25  %  53 35  5  69 45  E  85 55  U 101 65  e 117 75  u 
  6 06       ^F  ACK  22 16       ^V  SYN  38 26  &  54 36  6  70 46  F  86 56  V 102 66  f 118 76  v 
  7 07       ^G  BEL  23 17       ^W  ETB  39 27  '  55 37  7  71 47  G  87 57  W 103 67  g 119 77  w 
  8 08       ^H  BS   24 18       ^X  CAN  40 28  (  56 38  8  72 48  H  88 58  X 104 68  h 120 78  x 
  9 09       ^I  HT   25 19       ^Y  EM   41 29  )  57 39  9  73 49  I  89 59  Y 105 69  i 121 79  y 
 10 0A       ^J  LF   26 1A       ^Z  SUB  42 2A  *  58 3A  :  74 4A  J  90 5A  Z 106 6A  j 122 7A  z 
 11 0B       ^K  VT   27 1B       ^[  ESC  43 2B  +  59 3B  ;  75 4B  K  91 5B  [ 107 6B  k 123 7B  { 
 12 0C       ^L  FF   28 1C       ^\  FS   44 2C  ,  60 3C  <  76 4C  L  92 5C  \ 108 6C  l 124 7C  | 
 13 0D       ^M  CR   29 1D       ^]  GS   45 2D  -  61 3D  =  77 4D  M  93 5D  ] 109 6D  m 125 7D  } 
 14 0E       ^N  SO   30 1E       ^^  RS   46 2E  .  62 3E  >  78 4E  N  94 5E  ^ 110 6E  n 126 7E  ~ 
 15 0F       ^O  SI   31 1F       ^_  US   47 2F  /  63 3F  ?  79 4F  O  95 5F  _ 111 6F  o 127 7F   




Internationaler IBM-Zeichensatz
===============================

                            Internationale Zeichen                  Grafikzeichen            Mathematische Zeichen

                         D  H Ch    D  H Ch   D  H Ch    D  H Ch   D  H Ch    D  H Ch   D  H Ch    D  H Ch 
                       
                       128 80   144 90   160 A0   176 B0   192 C0   208 D0   224 E0   240 F0   
                       129 81   145 91   161 A1   177 B1   193 C1   209 D1   225 E1   241 F1   
                       130 82   146 92   162 A2   178 B2   194 C2   210 D2   226 E2   242 F2   
                       131 83   147 93   163 A3   179 B3   195 C3   211 D3   227 E3   243 F3   
                       132 84   148 94   164 A4   180 B4   196 C4   212 D4   228 E4   244 F4   
                       133 85   149 95   165 A5   181 B5   197 C5   213 D5   229 E5   245 F5   
                       134 86   150 96   166 A6   182 B6   198 C6   214 D6   230 E6   246 F6   
                       135 87   151 97   167 A7   183 B7   199 C7   215 D7   231 E7   247 F7   
                       136 88   152 98   168 A8   184 B8   200 C8   216 D8   232 E8   248 F8   
                       137 89   153 99   169 A9   185 B9   201 C9   217 D9   233 E9   249 F9   
                       138 8A   154 9A   170 AA   186 BA   202 CA   218 DA   234 EA   250 FA   
                       139 8B   155 9B   171 AB   187 BB   203 CB   219 DB   235 EB   251 FB   
                       140 8C   156 9C   172 AC   188 BC   204 CC   220 DC   236 EC   252 FC   
                       141 8D   157 9D   173 AD   189 BD   205 CD   221 DD   237 ED   253 FD   
                       142 8E   158 9E   174 AE   190 BE   206 CE   222 DE   238 EE   254 FE   
                       143 8F   159 9F   175 AF   191 BF   207 CF   223 DF   239 EF   255 FF   
                       
.. Zurckschalten auf Normalbetrieb
 @
.pa
