home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Special 1 / run-special-1.zip / KUNST.BAS < prev    next >
BASIC Source File  |  1992-03-05  |  2KB  |  43 lines
  1. 100 REM DEMO-KREAT GRAFISCH CGA,EGA,HERC,VGA
  2. 110 DEFINT Q-Z:DEFDBL A-P:GOSUB 400:TS$="TOETS VOOR STOP."
  3. 120 WINDOW (-XM,-YM)-(XM-1,YM-1)
  4. 130 ASP=YM/XM:R=(XM-1)/2
  5. 140 RESTORE 350:FOR TEL1=1 TO 8:READ ST:ST=ST*FV
  6. 150 FOR TEL=0 TO 5:IF TEL=0 THEN TELW1=1:TELW2=2
  7. 160 IF TEL=1 THEN TELW1=1:TELW2=3
  8. 170 IF TEL=2 THEN TELW1=1:TELW2=4
  9. 180 IF TEL=3 THEN TELW1=2:TELW2=1
  10. 190 IF TEL=4 THEN TELW1=3:TELW2=1
  11. 200 IF TEL=5 THEN TELW1=4:TELW2=1
  12. 210 ZF=1080/ST:ZCF1=0:LOCATE 1,1:PRINT TS$:LOCATE 1,70:PRINT ST
  13. 220 FOR TEL2=0 TO 1080:HK=TEL2*2*PI/(1080):HK1=ST*HK
  14. 230 R1=R*SIN(HK1+HK)
  15. 240 X1=R*COS(HK1*TELW1):Y1=ASP*R1*SIN(HK1*TELW2)
  16. 250 X=X1+R*COS(HK):Y=Y1+ASP*R*SIN(HK)
  17. 260 ZC=15-(TEL2 MOD ZF+1)
  18. 270 IF ZCF=2 THEN ZC=ZC MOD 3 +1 ELSE IF ZCF=0 THEN ZC=3
  19. 280 IF ZCF1=1 THEN ZC=0
  20. 290 IF TEL2=0 THEN PSET(X,Y):GOTO 310
  21. 300 LINE-(X,Y),ZC
  22. 310 INV$=INKEY$:IF INV$<>"" THEN GOSUB 360:IF RFL THEN 340
  23. 320 NEXT TEL2:IF ZCF1=0 THEN ZCF1=1:GOTO 220
  24. 330 NEXT TEL:NEXT TEL1
  25. 340 END
  26. 350 DATA 179,181,215,216,217,269,271,359
  27. 360 LOCATE 1,1:PRINT"TOETS VOOR VERV.":LOCATE 2,1:PRINT"ESCAPE VOOR END."
  28. 370 INV$=INKEY$:IF INV$="" THEN 370 ELSE IF INV$=CHR$(27) THEN RFL=1
  29. 380 LOCATE 1,1:PRINT TS$:LOCATE 2,1:PRINT STRING$(16," ")
  30. 390 RETURN
  31. 400 KEY OFF:CLS:SCREEN 0:WIDTH 80:SM=12:ON ERROR GOTO 450
  32. 410 SCREEN SM:XM=POINT(0):YM=POINT(1):PI=4*ATN(1):ASP=4*YM/(3*XM)
  33. 420 IF SM=8 OR SM=9 OR SM=12 THEN ZCF=1
  34. 430 FV=1:IF YM<174 THEN FV=.5:IF SM=1 THEN ZCF=2:SCREEN 1,0:COLOR 0,1
  35. 440 ON ERROR GOTO 0:RETURN
  36. 450 SM=SM-1:IF SM>0 THEN RESUME 410 ELSE RESUME 460
  37. 460 PRINT"Grafische mode niet aanspreekbaar.":GOTO 340
  38. 470 REM /* 36/.3400,1707,1305,2756,2637,1796,1798,1797,1799,1801
  39. 480 REM /*/....3693,2815,1017,2854,2155,1201,2874,1098,1971,0844
  40. 490 REM /*/....3141,2392,1203,0215,1840,4383,3672,3139,0480,3289
  41. 500 REM /*/....3940,1980,3809,1450,2779,4154
  42. 510 REM Checksum...............:  83184
  43.