100 REM QUIX
110 IF FLAG=0 THEN FLAG=1:LOAD "GRAPHTOOL.OBJ",8,1
120 SYS49152:SYS49158,1,0:REM GRAPHIK INITIALISIEREN
130 REM ANFANGSKOORDINATEN UND ANFANGSSTEIGUNGEN
140 REM PER ZUFALLSGENERATOR BESTIMMEN
150 X0=INT(RND(1)*320)
160 X1=INT(RND(1)*320)
170 Y0=INT(RND(1)*200)
180 Y1=INT(RND(1)*200)
190 A0=INT(RND(1)*7)+4
200 A1=INT(RND(1)*7)+4
210 B0=INT(RND(1)*7)+4
220 B1=INT(RND(1)*7)+4
230 REM QUIX AM BILDSCHIRMRAND REFLEKTIEREN
240 IF X0+A0 < 0 OR X0+A0>319 THEN A0=-SGN(A0)*(INT(RND(1)*7)+4)
250 IF X1+A1 < 0 OR X1+A1>319 THEN A1=-SGN(A1)*(INT(RND(1)*7)+4)
260 IF Y0+B0 < 0 OR Y0+B0>199 THEN B0=-SGN(B0)*(INT(RND(1)*7)+4)
270 IF Y1+B1 < 0 OR Y1+B1>199 THEN B1=-SGN(B1)*(INT(RND(1)*7)+4)
280 REM LETZTE LINIE LOESCHEN
290 SYS49164:SYS49173,X0(I),Y0(I),X1(I),Y1(I):SYS49161
300 X0(I)=X0:Y0(I)=Y0:X1(I)=X1:Y1(I)=Y1
310 I=I+1:IF I=10 THEN I=0
320 X0=X0+A0:X1=X1+A1:Y0=Y0+B0:Y1=Y1+B1
330 REM LINIE ZEICHNEN
340 SYS49173,X0,Y0,X1,Y1
350 GOTO 240