home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / cpx_acc / cpxbasic / beispiel / lines1.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  671 b   |  20 lines
  1. 10   REM Nochmal just for fun: Zeichne Linien, aber anders
  2. 20   USING$:CLS:PRINT CHR$(27),'f':FOR i=1 TO 25:PRINT:NEXT
  3. 30   x1=RAND 256:x2=RAND 256:y1=RAND 176:y2=RAND 176
  4. 40   xf1=1:yf1=1:xf2=1:yf2=1
  5. 50   WHILE
  6. 60     PRINT
  7. 70     LINE x1,y1,x2,y2
  8. 80     x1=x1+RAND 9*xf1:y1=y1+RAND 9*yf1
  9. 90     IF x1<0 THEN xf1=1:x1=0
  10. 100    IF y1<0 THEN yf1=1:y1=0
  11. 110    IF x1>255 THEN xf1=-1:x1=255
  12. 120    IF y1>175 THEN yf1=-1:y1=175
  13. 130    x2=x2+RAND 7*xf2:y2=y2+RAND 7*yf2
  14. 140    IF x2>255 THEN xf2=-1:x2=255
  15. 150    IF y2>175 THEN yf2=-1:y2=175
  16. 160    IF x2<0 THEN xf2=1:x2=0
  17. 170    IF y2<0 THEN yf2=1:y2=0
  18. 180  WEND INKEY$=CHR$ 27
  19. 190  CLS:PRINT CHR$(27),'e'
  20.