home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: The Best Of RUN 1-12 / thebest.zip / KUNST.BAS < prev    next >
BASIC Source File  |  1994-10-01  |  2KB  |  39 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.  
  39.