1 REM *********************************       *          ZVIZA                *
2 REM *     ZEICHENSATZ FUER          *       *     VIZAWRITE (ENGL.)         *
3 REM *      BERTRAM HAFNER           *       *********************************
10 I=I+1:READA:IFA=-1GOTO12
11 POKE49200+I,A:GOTO10
12 POKE49200+I,1
15 POKE160,0:POKE161,0:POKE162,0           :REM TIMER AUF 0 STELLEN
20 POKE789,192                             :REM START DES MASCHINENPRG
30 LOAD"VIZAWRITE 64",8,1
100 DATA165,161,201,12,240,3,76,49,234,162,0,189,100,192,201,1,240,25,133,251
101 DATA232,189,100,192,133,252,232,160,0,189,100,192,145,251,232,200,192,8
102 DATA48,245,76,60,192,169,234,141,21,3,76,49,234
200 REM  NEUE ZEICHEN FUER BILDSCHIRM            ****************************
210 REM  EINGABEFORMAT DER 10 DATAS:             ZIELADR LOW,HI,8 BYTES
211 REM  BERECHNUNG DER ZIELADRESSE:             BC=BILDSCHIRMCODE DES ZU
212 REM  ERSETZENDEN ZEICHENS (SATZ 2)           ZIELADR=BC*8+56*256
213 REM  HI = INT(ZIELADR/256)                   LOW= ZIELADR-HI*256
220 DATA0,56,102,0,60,6,62,102,62,0         :REM KLEIN AE FUER @
230 DATA224,56,102,0,60,102,102,102,60,0    :REM KLEIN OE FUER \
240 DATA216,56,102,24,60,102,126,102,102,0  :REM GROSS AE FUER [
250 DATA232,56,51,102,102,102,102,102,60,0  :REM GROSS UE FUER ]
260 DATA240,56,0,60,102,108,102,102,108,96  :REM SCHARF S FUER ^
270 DATA80,57,102,0,102,102,102,102,59,0    :REM KLEIN UE FUER *
280 DATA240,58,0,0,3,62,118,54,54,0         :REM (null) FUER SHIFT ^
500 DATA-1:REM FLAG FUER ENDE