home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 1 / run1.zip / ZOOMEN.BAS < prev    next >
BASIC Source File  |  2014-09-03  |  1KB  |  32 lines
  1. 100 REM IN- EN UITZOOMEN MET WINDOWS GWBASIC CGA
  2. 110 SCREEN 2:CLS:KEY OFF:Q=3000
  3. 120 X1=-90000!:Y1=-90000!:X2=90000!:Y2=90000!
  4. 130 GOTO 340
  5. 140 WINDOW (X1,Y1)-(X2,Y2):CLS
  6. 150 LINE (X1,Y1)-(X2,Y2),,B
  7. 160 LOCATE 24,2:PRINT "Beeld:";A;
  8. 170 LINE (-90,0)-(-50,70),,B
  9. 180 LINE (-150,-100)-(-110,0),,BF
  10. 190 LINE (0-210,-100)-(-10,100),,B
  11. 200 LINE (-210,100)-(-110,200)
  12. 210 LINE (-110,200)-(-10,100)
  13. 220 PAINT (-110,139)
  14. 230 LINE (-150,-100)-(-500,-500)
  15. 240 LINE (-110,-100)-(-10,-500)
  16. 250 LINE (-1,-3)-(1,1),,B:LINE (-1,1)-(0,7)
  17. 260 LINE (0,7)-(1,1):PAINT (.6,2)
  18. 270 CIRCLE (0,0),.5:LINE (1,-3)-(4,0),,B
  19. 280 LINE (0,0)-(0,.6):LINE (0,0)-(.2,.2)
  20. 290 LINE (90,-200)-(110,100),,BF
  21. 300 CIRCLE (100,350),100,,,,1.7
  22. 310 X1=X1*F:X2=X2*F:Y1=Y1*F:Y2=Y2*F
  23. 320 IF Q>0 THEN Q=Q-50
  24. 330 FOR B=1 TO Q:NEXT B:RETURN
  25. 340 FOR A=1 TO 44:F=.8:GOSUB 140:NEXT A
  26. 350 FOR A=45 TO 1 STEP -1:F=1.3:GOSUB 140
  27. 360 IF A=36 THEN Q=3000
  28. 370 REM /* 26/.1687,2188,0464,1603,1297,1876,1192,1439,1462,1265
  29. 380 REM /*/....1215,0853,1364,1308,1928,1505,1846,1772,1402,1371
  30. 390 REM /*/....1970,1006,1632,1997,2010,1014
  31. 400 REM Checksum...............:  38666
  32.