projects / qbasicapps.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
fixed directory name and file permissions
[qbasicapps.git] / graphics / presentations / KHK j6ulud / khkdemo2.bas
diff --git a/graphics/presentations/KHK j6ulud/khkdemo2.bas b/graphics/presentations/KHK j6ulud/khkdemo2.bas
deleted file mode 100755 (executable)
index acfc16a..0000000
--- a/graphics/presentations/KHK j6ulud/khkdemo2.bas
+++ /dev/null
@@ -1,294 +0,0 @@
-DECLARE SUB playsound (a$)\r
-DECLARE SUB start ()\r
-DECLARE SUB turnoff ()\r
-DECLARE SUB dispimg (a$)\r
-DECLARE SUB turnon ()\r
-DECLARE SUB ellips (x!, y!, s!, v!, t!)\r
-DECLARE SUB prn (x!, y!, msg$, siz!, col1!)\r
-DECLARE SUB timerAdd (element!, time!, value!)\r
-DECLARE SUB timerdisp ()\r
-DECLARE SUB timerinit ()\r
-DECLARE SUB timerprocess ()\r
-DECLARE SUB mo (x!, y!, an!, s!, w!)\r
-DIM SHARED depth\r
-DIM SHARED pi\r
-\r
-DIM SHARED sh1, sh2, sv1, sv2, hp, vp\r
-DIM SHARED timerTime(0 TO 50, 0 TO 100)\r
-DIM SHARED timerValue(0 TO 50, 0 TO 100)\r
-\r
-DIM SHARED timerCplace(0 TO 50)\r
-DIM SHARED timerCtime(0 TO 50)\r
-DIM SHARED timerCvalue(0 TO 50)\r
-DIM SHARED timerLast\r
-\r
-\r
-pi = 3.14128\r
-\r
-playsound "luule.mp3"\r
-SCREEN 13\r
-start\r
-\r
-timerinit\r
-2\r
-\r
-\r
-timerprocess\r
-IF timerCtime(0) > 0 THEN\r
-  IF im1 = 0 THEN\r
-    dispimg "pikk.i01"\r
-    im1 = 1\r
-  END IF\r
-END IF\r
-\r
-\r
-\r
-IF timerCtime(0) > 1.5 THEN\r
-  IF im2 = 0 THEN\r
-    dispimg "pikk4.i01"\r
-    im2 = 1\r
-  END IF\r
-END IF\r
-\r
-\r
-IF timerCtime(0) > 9 THEN\r
-  IF im3 = 0 THEN\r
-    dispimg "pikk3.i01"\r
-    im3 = 1\r
-  END IF\r
-END IF\r
-\r
-IF timerCtime(0) > 17 THEN\r
-  IF im4 = 0 THEN\r
-    dispimg "pikk2.i01"\r
-    im4 = 1\r
-  END IF\r
-END IF\r
-\r
-IF timerCtime(0) > 24 THEN\r
-  IF im5 = 0 THEN\r
-    dispimg "pikk1.i01"\r
-    im5 = 1\r
-  END IF\r
-END IF\r
-\r
-IF timerCtime(0) > 33 THEN\r
-  IF im6 = 0 THEN\r
-    dispimg "pikk5.i01"\r
-    im6 = 1\r
-  END IF\r
-END IF\r
-\r
-IF timerCtime(0) > 41 THEN\r
-  IF im7 = 0 THEN\r
-    dispimg "pikk.i01"\r
-    im7 = 1\r
-  END IF\r
-END IF\r
-\r
-\r
-IF timerCtime(0) > 43 THEN\r
-  turnoff\r
-END IF\r
-\r
-'LOCATE 1, 1\r
-'PRINT timerCtime(0)\r
-GOTO 2\r
-SYSTEM\r
-\r
-SUB dispimg (a$)\r
-\r
-\r
-OPEN a$ FOR INPUT AS #1\r
-INPUT #1, xs\r
-INPUT #1, ys\r
-\r
-FOR y = 1 TO ys\r
-FOR x = 1 TO xs\r
-INPUT #1, a\r
-PSET (x - 1, 200 - y), a\r
-NEXT x\r
-NEXT y\r
-\r
-\r
-CLOSE #1\r
-END SUB\r
-\r
-SUB ellips (x, y, s, v, t)\r
-\r
-IF x > 0 THEN\r
-IF y > 0 THEN\r
-\r
-CIRCLE (x, y), s, v, , , t\r
-PAINT (x, y), v\r
-\r
-END IF\r
-END IF\r
-\r
-END SUB\r
-\r
-SUB playsound (a$)\r
-\r
-SHELL "c:\progra~1\winamp\winamp.exe " + a$\r
-SCREEN 0\r
-SCREEN 7, , , 1\r
-\r
-END SUB\r
-\r
-SUB prn (x, y, msg$, siz, col1)\r
-IF x < 0 THEN GOTO prn1\r
-IF x > 319 THEN GOTO prn1\r
-\r
-DIM bck(10000)\r
-\r
-GET (0, 0)-(100, 7), bck\r
-LOCATE 1, 1\r
-PRINT msg$\r
-\r
-col = col1\r
-\r
-FOR x1 = 0 TO LEN(msg$) * 8 - 1\r
-FOR y1 = 0 TO 7\r
-  IF POINT(x1, y1) > 0 THEN\r
-    rx = x1 * siz + x\r
-    ry = y1 * siz + y\r
-    IF col1 > 100 THEN col = RND * 4 + 10\r
-    IF col1 > 200 THEN\r
-      LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, B\r
-    ELSE\r
-      LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, BF\r
-    END IF\r
-'      LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, BF\r
-  END IF\r
-NEXT y1\r
-NEXT x1\r
-\r
-\r
-PUT (0, 0), bck, PSET\r
-prn1:\r
-END SUB\r
-\r
-SUB start\r
-c = 0\r
-FOR r = 0 TO 5\r
-FOR g = 0 TO 5\r
-FOR B = 0 TO 5\r
-OUT &H3C8, c\r
-c = c + 1\r
-OUT &H3C9, r * 12\r
-OUT &H3C9, g * 12\r
-OUT &H3C9, B * 12\r
-NEXT B\r
-NEXT g\r
-NEXT r\r
-\r
-END SUB\r
-\r
-SUB timerAdd (element, time, value)\r
-\r
-FOR a = 0 TO 100\r
-  IF (timerTime(element, a) = 0) AND (timerValue(element, a) = 0) THEN GOTO timer3\r
-NEXT a\r
-timer3:\r
-\r
-timerTime(element, a) = time\r
-timerValue(element, a) = value\r
-\r
-END SUB\r
-\r
-SUB timerdisp\r
-LOCATE 1, 1\r
-\r
-FOR a = 0 TO 10\r
-  PRINT timerCplace(a), timerCtime(a), timerCvalue(a)\r
-NEXT a\r
-\r
-END SUB\r
-\r
-SUB timerinit\r
-timerLast = TIMER\r
-\r
-paus = 24\r
-\r
-' stuff size\r
-timerAdd 0, 0, 0\r
-timerAdd 0, 1000, 1000\r
-\r
-END SUB\r
-\r
-SUB timerprocess\r
-\r
-timerCurrent = TIMER\r
-timerDiff = timerCurrent - timerLast\r
-timerLast = timerCurrent\r
-\r
-FOR a = 0 TO 50\r
-  ctim = timerCtime(a) + timerDiff\r
-  Cplace = timerCplace(a)\r
-timer2:\r
-  IF timerTime(a, Cplace + 1) = -1 THEN\r
-    ctim = 0\r
-    Cplace = 0\r
-  END IF\r
-  IF timerTime(a, Cplace + 1) < ctim THEN\r
-    IF timerTime(a, Cplace + 1) = 0 THEN\r
-      timerCvalue(a) = timerValue(a, Cplace)\r
-      GOTO timer1:\r
-    END IF\r
-    Cplace = Cplace + 1\r
-    GOTO timer2\r
-  END IF\r
-\r
-  v1 = timerValue(a, Cplace)\r
-  t1 = timerTime(a, Cplace)\r
-  v2 = timerValue(a, Cplace + 1)\r
-  t2 = timerTime(a, Cplace + 1)\r
-\r
-  IF v1 = v2 THEN\r
-    timerCvalue(a) = v1\r
-  ELSE\r
-    Tdiff1 = t2 - t1\r
-    Tdiff2 = ctim - t1\r
-    Vdiff = v2 - v1\r
-    timerCvalue(a) = Tdiff2 / Tdiff1 * Vdiff + v1\r
-  END IF\r
-timer1:\r
-  timerCplace(a) = Cplace\r
-  timerCtime(a) = ctim\r
-NEXT a\r
-\r
-END SUB\r
-\r
-SUB turnoff\r
-x = 160\r
-\r
-FOR y = 100 TO 1 STEP -1\r
-\r
-  LINE (160 - x - 5, 90 - y - 5)-(160 + x + 5, 110 + y + 5), 0, B\r
-  LINE (160 - x - 3, 90 - y - 3)-(160 + x + 3, 110 + y + 3), 3, B\r
-  LINE (160 - x, 90 - y)-(160 + x, 110 + y), 15, B\r
-\r
-  SOUND 0, .1\r
-NEXT y\r
-\r
-\r
-\r
-FOR x = 160 TO 0 STEP -1\r
- \r
-  LINE (160 - x - 5, 90 - 5)-(160 + x + 5, 110 + 5), 0, B\r
-  LINE (160 - x - 3, 90 - 3)-(160 + x + 3, 110 + 3), 1, B\r
-  LINE (160 - x, 90)-(160 + x, 110), 15, B\r
-  SOUND 0, .05\r
-NEXT x\r
-\r
-playsound "silent.mp3"\r
-SCREEN 10\r
-SCREEN 13\r
-CLS\r
-1\r
-a$ = INPUT$(1)\r
-GOTO 1\r
-\r
-\r
-END SUB\r
-\r
Unnamed repository; edit this file 'description' to name the repository.