0
Beispielprogramm für QBASIC
Christopher Blair
Christopher Blair
rem ****Programm 1******************************
PIXX = 640: PIXY = 480: rem Pixelanzahl
INPUT 'StepX'; StepX : rem z.B. 40
FOR X1 = 10 TO PIXX - 10 STEP StepX
FOR X2 = 10 TO PIXX - 10 STEP StepX
LINE (X1, 10)-(X2, PIXY - 10)
NEXT X2
NEXT X1
rem ********************************************

Viel Spaß
by Christopher Blair