10 :GOSUB 1680:POKE 2053,143:LOAD"VDC-TOOLS",8,1
20 GOSUB 1620
30 IF A<>0 THEN POKE2053,ASC(":"):GOTO10
39 POKE808,225
40 REM ********************************
50 REM * GRAFIKKLAU FUER DEN VDC-CHIP *
60 REM *------------------------------*
70 REM * WRITTEN IN 1988 BY :         *
80 REM *                              *
90 REM * CHRISTIAN EIGLMEIER          *
100 REM * KATTOWITZER WEG 5            *
110 REM * 3057 NEUSTADT 1              *
120 REM * TEL.: 05032-62223            *
130 REM ********************************
140 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!