home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1997 December / PCACTION1297.ISO / menue / POSTFACH / 97121411.TXT < prev    next >
Text File  |  1997-10-29  |  407b  |  18 lines
  1. 0
  2. Beispielprogramm fⁿr QBASIC
  3. Christopher Blair
  4. Christopher Blair
  5. rem ****Programm 1******************************
  6. PIXX = 640: PIXY = 480: rem Pixelanzahl
  7. INPUT 'StepX'; StepX : rem z.B. 40
  8. FOR X1 = 10 TO PIXX - 10 STEP StepX
  9. FOR X2 = 10 TO PIXX - 10 STEP StepX
  10. LINE (X1, 10)-(X2, PIXY - 10)
  11. NEXT X2
  12. NEXT X1
  13. rem ********************************************
  14.  
  15. Viel Spa▀
  16. by Christopher Blair
  17.  
  18.