10 ' ; Schattenschrift
20 ' ; (c) by Michael Roehrl 30 ' ; 23.10.88 40 ' ; 50 ' ; Befehlsformat : 60 ' ; CALL &A000,1. Farbe,2.Farbe,x-Koord.,y-Koord. 70 ' ; von 40919 bis 40959 : Zeichen fuer die Schrift 80 ' ; 40918 : Laenge 90 ' ; 100 ' ; 110 ' org &a000 ; Anfangsadresse &a000 120 ' ; 130 ' ld a,1 ; a=1 140 ' call &bb63 ; TAG 150 ' ld e,(ix+2) ; Lowbyte x-Koordinate 160 ' ld d,(ix+3) ; Highbyte x-Koordinate 170 ' ld l,(ix+0) ; Lowbyte y-Koordinate 180 ' ld h,(ix+1) ; Highbyte y-Koordinate 190 ' call &bbc0 ; Move x,y 200 ' ld a,(ix+4) ; 2. Farbe 210 ' call &bbde ; Graphics Pen 3 220 ' ld hl,40918 ; HL mit 40918 230 ' text ld b,(hl) 240 ' ld hl,40919 ; Buchstaben 250 ' druck ld a,(hl) ; a mit Buchstaben laden 260 ' call &bb5a ; Buchstabe ausgeben (dunkel) 270 ' ld a,(ix+6) ; 1. Farbe 280 ' call &bbde ; Graphics Pen 1 290 ' push hl ; HL retten 300 ' ld de,-12 ; x=-12 310 ' ld hl,-8 ; y=-8 320 ' call &bbc3 ; Mover x,y 330 ' pop hl ; HL holen 340 ' ld a,(hl) ; a mit Buchstaben laden 350 ' call &bb5a ; Buchstabe ausgeben (hell) 360 ' inc hl ; HL erhoehen 370 ' push hl ; HL retten 380 ' ld a,(ix+4) ; 2. Farbe 390 ' call &bbde ; Graphics Pen 3 400 ' ld de,-2 ; x=-2 410 ' ld hl,8 ; y=8 420 ' call &bbc3 ; Mover x,y 430 ' pop hl ; HL holen 440 ' djnz druck ; letzter Buchstabe ? wenn nicht -> druck 450 ' ret ; Zurueck zu BASIC |