-' Stroboscope presentation\r
-' made by Svjatoslav Agejenko\r
-' in 2002\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslav@svjatoslav.eu\r
- \r
-DECLARE SUB pag4 ()\r
-DECLARE SUB getkey (a$)\r
-DECLARE SUB mo ()\r
-DEFINT A-Z\r
-DECLARE SUB dra ()\r
-DECLARE SUB get3d ()\r
-DECLARE SUB pag3 ()\r
-DECLARE SUB pag2 ()\r
-DECLARE SUB getfnt ()\r
-DECLARE SUB prn (x2%, y%, s%, c%, t$)\r
-DECLARE SUB pag1 ()\r
-\r
-DECLARE SUB start ()\r
-\r
-\r
-DIM SHARED font(0 TO 7, 0 TO 15, 0 TO 207)\r
-DIM SHARED det(1 TO 100)\r
-DIM SHARED px1(1 TO 1000)\r
-DIM SHARED py1(1 TO 1000)\r
-DIM SHARED px2(1 TO 1000)\r
-DIM SHARED py2(1 TO 1000)\r
-DIM SHARED opx1(1 TO 1000)\r
-DIM SHARED opy1(1 TO 1000)\r
-DIM SHARED opx2(1 TO 1000)\r
-DIM SHARED opy2(1 TO 1000)\r
-DIM SHARED linc(1 TO 1000)\r
-\r
-DIM SHARED myx, myy, myz\r
-DIM SHARED myx1, myy1, myz1\r
-DIM SHARED myx2, myy2, myz2\r
-DIM SHARED tfra\r
-\r
-DIM SHARED nl\r
-\r
-start\r
-\r
-pag1\r
-pag2\r
-pag3\r
-pag4\r
-END\r
-\r
-DATA 0,0,5,-2\r
-DATA 0,0,5,2\r
-DATA 0, 0, 15, 0\r
-\r
-DATA 15,-2,15,2\r
-DATA 25,-2,25,2\r
-DATA 15,-2,25,-2\r
-DATA 15,2,25,2\r
-\r
-DATA 25,0,35,0\r
-DATA 35,-2,35,2\r
-DATA 35,-2,40,0\r
-DATA 35,2,40,0\r
-DATA 40,-2,40,2\r
-\r
-DATA 40,0,80,0\r
-DATA 50,0,50,19\r
-DATA 48,19,52,19\r
-DATA 48,21,52,21\r
-DATA 50,21,50,35\r
-\r
-DATA 0,35,125,35\r
-DATA 0,35,5,33\r
-DATA 0,35,5,37\r
-\r
-DATA 70,0,70,15\r
-DATA 70,35,70,20\r
-DATA 69,16,71,19\r
-DATA 69,19,71,16\r
-DATA 67,10,73,10\r
-DATA 67,25,73,25\r
-DATA 67,10,67,25\r
-DATA 73,10,73,25\r
-\r
-DATA 75,15,75,25\r
-DATA 75,20,90,20\r
-DATA 90,20,91,21\r
-DATA 91,21,90,22\r
-DATA 90,22,91,23\r
-DATA 91,23,90,24\r
-DATA 90,24,91,25\r
-DATA 91,25,90,26\r
-DATA 90,26,90,35\r
-\r
-DATA 93,18,93,28\r
-DATA 92,18,92,28\r
-\r
-DATA 95,20,94,21\r
-DATA 94,21,95,22\r
-DATA 95,22,94,23\r
-DATA 94,23,95,24\r
-DATA 95,24,94,25\r
-DATA 94,25,95,26\r
-DATA 95,26,95,35\r
-\r
-DATA 95, 20, 115, 20\r
-DATA 115,20,115,15\r
-DATA 115,7,115,0\r
-DATA 125,35,125,26\r
-DATA 123,26,127,26\r
-DATA 123,24,127,24\r
-DATA 125,24,125,0\r
-DATA 125,0,110,0\r
-DATA 110,-2,110,2\r
-DATA 100,-2,100,2\r
-DATA 100,-2,110,-2\r
-DATA 100,2,110,2\r
-\r
-DATA 100,0,90,0\r
-DATA 90,-2,90,2\r
-DATA 80,-2,80,2\r
-DATA 80,-2,90,-2\r
-DATA 80,2,90,2\r
-\r
-DATA 113,5,117,5\r
-DATA 113,17,117,17\r
-DATA 113,5,113,17\r
-DATA 117,5,117,17\r
-DATA 115,11,125,11\r
-\r
-DATA 105,-2,105,-5\r
-DATA 105,-5,113,-5\r
-DATA 113,-5,113,0\r
-DATA 105,-2,104,-4\r
-DATA 105,-2,106,-4\r
-\r
-DATA 999,999,999,999\r
-\r
-SUB dra\r
-\r
-FOR a = 1 TO nl\r
-x1 = px1(a) - myx\r
-y1 = py1(a) - myy\r
-x2 = px2(a) - myx\r
-y2 = py2(a) - myy\r
-\r
-\r
-x1 = x1 * 30 / myz + 160\r
-y1 = y1 * 30 / myz + 100\r
-x2 = x2 * 30 / myz + 160\r
-y2 = y2 * 30 / myz + 100\r
-LINE (opx1(a), opy1(a))-(opx2(a), opy2(a)), 0\r
-LINE (x1, y1)-(x2, y2), linc(a)\r
-opx1(a) = x1\r
-opy1(a) = y1\r
-opx2(a) = x2\r
-opy2(a) = y2\r
-NEXT a\r
-\r
-END SUB\r
-\r
-SUB get3d\r
-\r
-nl = 0\r
-5\r
-READ x1, y1, x2, y2\r
-IF x1 = 999 THEN GOTO 6\r
-nl = nl + 1\r
-px1(nl) = x1\r
-py1(nl) = y1\r
-px2(nl) = x2\r
-py2(nl) = y2\r
-linc(nl) = 11\r
-GOTO 5\r
-6\r
-'PRINT nl, "of lines loaded"\r
-'a$ = INPUT$(1)\r
-END SUB\r
-\r
-SUB getfnt\r
-\r
-FOR c = 0 TO 15\r
-OUT &H3C8, c\r
-OUT &H3C9, 0\r
-OUT &H3C9, 0\r
-OUT &H3C9, 0\r
-NEXT c\r
-\r
-FOR a = 0 TO 207\r
-LOCATE 1, 1\r
-IF (a > 5) AND (a < 14) THEN GOTO 1\r
-PRINT CHR$(a)\r
-1\r
-FOR y = 0 TO 15\r
-FOR x = 0 TO 7\r
-font(x, y, a) = POINT(x, y)\r
-NEXT x\r
-NEXT y\r
-NEXT a\r
-END SUB\r
-\r
-SUB getkey (a$)\r
-\r
-FOR a = 1 TO 50\r
-b$ = INKEY$\r
-NEXT a\r
-\r
-7\r
-a$ = INKEY$\r
-IF a$ = "" THEN GOTO 7\r
-\r
-FOR a = 1 TO 50\r
-b$ = INKEY$\r
-NEXT a\r
-\r
-END SUB\r
-\r
-SUB mo\r
-\r
-myxv = myx2 - myx1\r
-myyv = myy2 - myy1\r
-myzv = myz2 - myz1\r
-\r
-FOR a = 1 TO tfra\r
-myx = myx1 + (myxv * a / tfra)\r
-myy = myy1 + (myyv * a / tfra)\r
-myz = myz1 + (myzv * a / tfra)\r
-dra\r
-SOUND 0, 1\r
-NEXT a\r
-dra\r
-\r
-\r
-\r
-END SUB\r
-\r
-SUB pag1\r
-\r
-SCREEN 13\r
-\r
-a = 0\r
-FOR c = 16 TO 31\r
-OUT &H3C8, c\r
-OUT &H3C9, a * 3\r
-OUT &H3C9, a * 4.5\r
-OUT &H3C9, a * 0\r
-a = a + 1\r
-NEXT c\r
-\r
-\r
-SHELL "playmov.com"\r
-\r
-OUT &H3C8, 101\r
-OUT &H3C9, 63\r
-OUT &H3C9, 63\r
-OUT &H3C9, 0\r
-\r
-OUT &H3C8, 102\r
-OUT &H3C9, 63\r
-OUT &H3C9, 10\r
-OUT &H3C9, 10\r
-\r
-OUT &H3C8, 103\r
-OUT &H3C9, 60\r
-OUT &H3C9, 60\r
-OUT &H3C9, 0\r
-\r
-\r
-a = 0\r
-FOR c = 50 TO 65\r
-OUT &H3C8, c\r
-OUT &H3C9, a * 4.5\r
-OUT &H3C9, a * 0\r
-OUT &H3C9, (15 - a) * 4.5\r
-a = a + 1\r
-NEXT c\r
-\r
-st$ = " Esitlus teemal:"\r
-\r
-FOR t = 0 TO 400\r
-IF t < 320 THEN\r
-FOR y = 0 TO 199\r
-c = POINT(319 - t, y)\r
-IF c < 100 THEN c = c + 34\r
-PSET (319 - t, y), c\r
-NEXT y\r
-x = 319 - t\r
-IF x / 16 = x \ 16 THEN\r
-s = x / 16\r
-IF s <= LEN(st$) THEN\r
-a$ = RIGHT$(LEFT$(st$, s), 1)\r
-prn x, 20, 2, 101, a$\r
-END IF\r
-END IF\r
-END IF\r
-\r
-IF (t < 360) AND (t > 39) THEN\r
-FOR y = 0 TO 13\r
-c = POINT(359 - t, y)\r
-IF c < 100 THEN c = c - 34\r
-PSET (359 - t, y), c\r
-NEXT y\r
-FOR y = 55 TO 199\r
-c = POINT(359 - t, y)\r
-IF c < 100 THEN c = c - 34\r
-PSET (359 - t, y), c\r
-NEXT y\r
-END IF\r
-\r
-\r
-SOUND 0, .2\r
-NEXT t\r
-\r
-prn 31, 101, 3, 102, "STROBOSKOOP"\r
-prn 29, 99, 3, 102, "STROBOSKOOP"\r
-prn 30, 100, 3, 103, "STROBOSKOOP"\r
-\r
-\r
-FOR x = 0 TO 160\r
-FOR y = 100 TO 150\r
-c = POINT(x, y)\r
-IF c = 102 THEN c = 103: GOTO 2\r
-IF c = 103 THEN c = 102: GOTO 2\r
-2\r
-PSET (x, y), c\r
-NEXT y\r
-SOUND 0, .1\r
-NEXT x\r
-\r
-FOR y = 199 TO 120 STEP -1\r
-FOR x = 0 TO 319\r
-c = POINT(x, y)\r
-IF c = 102 THEN c = 103: GOTO 3\r
-IF c = 103 THEN c = 102: GOTO 3\r
-3\r
-PSET (x, y), c\r
-NEXT x\r
-SOUND 0, .1\r
-NEXT y\r
-\r
-prn 49, 179, 1, 0, "autor: Svjatoslav Agejenko"\r
-prn 51, 181, 1, 0, "autor: Svjatoslav Agejenko"\r
-prn 50, 180, 1, 15, "autor: Svjatoslav Agejenko"\r
-\r
-getkey a$\r
-\r
-DIM buf(1 TO 30000)\r
-FOR a = 1 TO 320 / 5\r
-GET (0, 0)-(314, 100), buf(1)\r
-PUT (5, 0), buf(1), PSET\r
-LINE (0, 0)-(4, 100), 0, BF\r
-\r
-GET (5, 101)-(319, 199), buf(1)\r
-PUT (0, 101), buf(1), PSET\r
-LINE (315, 101)-(319, 199), 0, BF\r
-NEXT a\r
-\r
-\r
-END SUB\r
-\r
-SUB pag2\r
-SCREEN 13\r
-SCREEN 12\r
-\r
-\r
-END SUB\r
-\r
-SUB pag3\r
-\r
-myx1 = 20\r
-myy1 = 15\r
-myz1 = 100\r
-myx2 = 20\r
-myy2 = 15\r
-myz2 = 10\r
-tfra = 20\r
-\r
-mo\r
-\r
-prn 147, 66, 1, 3, "100 D336B 180k 680k"\r
-prn 180, 120, 1, 3, "50m 450V 1m"\r
-prn 180, 400, 2, 14, "Principal scheematic"\r
-\r
-getkey a$\r
-\r
-LINE (0, 0)-(639, 390), 0, BF\r
-\r
-myx1 = 20\r
-myy1 = 15\r
-myz1 = 10\r
-myx2 = 80\r
-myy2 = 5\r
-myz2 = 4\r
-tfra = 20\r
-mo\r
-getkey a$\r
-\r
-myx1 = 80\r
-myy1 = 5\r
-myz1 = 4\r
-myx2 = 40\r
-myy2 = 5\r
-myz2 = 4\r
-tfra = 20\r
-mo\r
-getkey a$\r
-\r
-myx1 = 40\r
-myy1 = 5\r
-myz1 = 4\r
-myx2 = 20\r
-myy2 = 15\r
-myz2 = 10\r
-tfra = 10\r
-mo\r
-prn 147, 66, 1, 3, "100 D336B 180k 680k"\r
-prn 180, 120, 1, 3, "50m 450V 1m"\r
-getkey a$\r
-\r
-\r
-\r
-\r
-\r
-END SUB\r
-\r
-SUB pag4\r
-CLS\r
-SCREEN 13\r
-prn 35, 100, 2, 14, " Thank you"\r
-prn 35, 140, 2, 14, " for attention!"\r
-\r
-DIM buf(1 TO 30000)\r
-\r
-GET (0, 100)-(319, 199), buf(1)\r
-FOR y = 100 TO 50 STEP -1\r
-PUT (0, y), buf(1), PSET\r
-SOUND 0, .5\r
-NEXT y\r
-\r
-getkey a$\r
-SYSTEM\r
-END SUB\r
-\r
-SUB prn (x2, y, s, c, t$)\r
-x = x2\r
-\r
-FOR a = 1 TO LEN(t$)\r
-b = ASC(RIGHT$(LEFT$(t$, a), 1))\r
-FOR y1 = 0 TO 15\r
-FOR x1 = 0 TO 7\r
-IF font(x1, y1, b) > 0 THEN\r
-LINE (x1 * s + x, y1 * s + y)-(x1 * s + s - 1 + x, y1 * s + s - 1 + y), c, BF\r
-END IF\r
-NEXT x1\r
-NEXT y1\r
-x = x + (8 * s)\r
-NEXT a\r
-END SUB\r
-\r
-SUB start\r
-SCREEN 12\r
-get3d\r
-getfnt\r
-\r
-myx = 30\r
-myy = 15\r
-myz = 10\r
-END SUB\r
-\r
+' Presentation about how to build stroboscope.
+' By Svjatoslav Agejenko.
+' Email: svjatoslav@svjatoslav.eu
+' Homepage: http://www.svjatoslav.eu
+'
+' Changelog:
+' 2002, Initial version
+' 2024, Improved program readability using AI
+
+DECLARE SUB pag4 ()
+DECLARE SUB getkey (a$)
+DECLARE SUB mo ()
+DEFINT A-Z
+DECLARE SUB dra ()
+DECLARE SUB get3d ()
+DECLARE SUB pag3 ()
+DECLARE SUB pag2 ()
+DECLARE SUB getfnt ()
+DECLARE SUB prn (x2%, y%, s%, c%, t$)
+DECLARE SUB pag1 ()
+
+DECLARE SUB start ()
+
+DIM SHARED font(0 TO 7, 0 TO 15, 0 TO 207)
+DIM SHARED det(1 TO 100)
+DIM SHARED px1(1 TO 1000)
+DIM SHARED py1(1 TO 1000)
+DIM SHARED px2(1 TO 1000)
+DIM SHARED py2(1 TO 1000)
+DIM SHARED opx1(1 TO 1000)
+DIM SHARED opy1(1 TO 1000)
+DIM SHARED opx2(1 TO 1000)
+DIM SHARED opy2(1 TO 1000)
+DIM SHARED linc(1 TO 1000)
+
+DIM SHARED myx, myy, myz
+DIM SHARED myx1, myy1, myz1
+DIM SHARED myx2, myy2, myz2
+DIM SHARED tfra
+
+DIM SHARED nl
+
+start
+
+pag1
+pag2
+pag3
+pag4
+END
+
+DATA 0,0,5,-2
+DATA 0,0,5,2
+DATA 0, 0, 15, 0
+
+DATA 15,-2,15,2
+DATA 25,-2,25,2
+DATA 15,-2,25,-2
+DATA 15,2,25,2
+
+DATA 25,0,35,0
+DATA 35,-2,35,2
+DATA 35,-2,40,0
+DATA 35,2,40,0
+DATA 40,-2,40,2
+
+DATA 40,0,80,0
+DATA 50,0,50,19
+DATA 48,19,52,19
+DATA 48,21,52,21
+DATA 50,21,50,35
+
+DATA 0,35,125,35
+DATA 0,35,5,33
+DATA 0,35,5,37
+
+DATA 70,0,70,15
+DATA 70,35,70,20
+DATA 69,16,71,19
+DATA 69,19,71,16
+DATA 67,10,73,10
+DATA 67,25,73,25
+DATA 67,10,67,25
+DATA 73,10,73,25
+
+DATA 75,15,75,25
+DATA 75,20,90,20
+DATA 90,20,91,21
+DATA 91,21,90,22
+DATA 90,22,91,23
+DATA 91,23,90,24
+DATA 90,24,91,25
+DATA 91,25,90,26
+DATA 90,26,90,35
+
+DATA 93,18,93,28
+DATA 92,18,92,28
+
+DATA 95,20,94,21
+DATA 94,21,95,22
+DATA 95,22,94,23
+DATA 94,23,95,24
+DATA 95,24,94,25
+DATA 94,25,95,26
+DATA 95,26,95,35
+
+DATA 95, 20, 115, 20
+DATA 115,20,115,15
+DATA 115,7,115,0
+DATA 125,35,125,26
+DATA 123,26,127,26
+DATA 123,24,127,24
+DATA 125,24,125,0
+DATA 125,0,110,0
+DATA 110,-2,110,2
+DATA 100,-2,100,2
+DATA 100,-2,110,-2
+DATA 100,2,110,2
+
+DATA 100,0,90,0
+DATA 90,-2,90,2
+DATA 80,-2,80,2
+DATA 80,-2,90,-2
+DATA 80,2,90,2
+
+DATA 113,5,117,5
+DATA 113,17,117,17
+DATA 113,5,113,17
+DATA 117,5,117,17
+DATA 115,11,125,11
+
+DATA 105,-2,105,-5
+DATA 105,-5,113,-5
+DATA 113,-5,113,0
+DATA 105,-2,104,-4
+DATA 105,-2,106,-4
+
+DATA 999,999,999,999
+
+SUB dra
+
+FOR a = 1 TO nl
+ x1 = px1(a) - myx
+ y1 = py1(a) - myy
+ x2 = px2(a) - myx
+ y2 = py2(a) - myy
+
+ ' Calculate the new coordinates based on the current zoom level
+ x1 = x1 * 30 / myz + 160
+ y1 = y1 * 30 / myz + 100
+ x2 = x2 * 30 / myz + 160
+ y2 = y2 * 30 / myz + 100
+
+ ' Draw the line from old coordinates to new coordinates
+ LINE (opx1(a), opy1(a)) - (opx2(a), opy2(a)), 0
+ LINE (x1, y1) - (x2, y2), linc(a)
+
+ ' Update the old coordinates to the new coordinates
+ opx1(a) = x1
+ opy1(a) = y1
+ opx2(a) = x2
+ opy2(a) = y2
+NEXT a
+
+END SUB
+
+SUB get3d
+
+nl = 0
+5
+READ x1, y1, x2, y2
+IF x1 = 999 THEN GOTO 6
+nl = nl + 1
+px1(nl) = x1
+py1(nl) = y1
+px2(nl) = x2
+py2(nl) = y2
+linc(nl) = 11
+GOTO 5
+6
+'PRINT nl, "of lines loaded"
+'a$ = INPUT$(1)
+END SUB
+
+SUB getfnt
+
+FOR c = 0 TO 15
+ OUT &H3C8, c
+ OUT &H3C9, 0
+ OUT &H3C9, 0
+ OUT &H3C9, 0
+NEXT c
+
+FOR a = 0 TO 207
+ LOCATE 1, 1
+ IF (a > 5) AND (a < 14) THEN GOTO 1
+ PRINT CHR$(a)
+1
+ FOR y = 0 TO 15
+ FOR x = 0 TO 7
+ font(x, y, a) = POINT(x, y)
+ NEXT x
+ NEXT y
+NEXT a
+END SUB
+
+SUB getkey (a$)
+
+FOR a = 1 TO 50
+ b$ = INKEY$
+NEXT a
+
+7
+a$ = INKEY$
+IF a$ = "" THEN GOTO 7
+
+FOR a = 1 TO 50
+ b$ = INKEY$
+NEXT a
+
+END SUB
+
+SUB mo
+
+myxv = myx2 - myx1
+myyv = myy2 - myy1
+myzv = myz2 - myz1
+
+FOR a = 1 TO tfra
+ myx = myx1 + (myxv * a / tfra)
+ myy = myy1 + (myyv * a / tfra)
+ myz = myz1 + (myzv * a / tfra)
+ dra
+ SOUND 0, 1
+NEXT a
+dra
+
+END SUB
+
+SUB pag1
+
+SCREEN 13
+
+a = 0
+FOR c = 16 TO 31
+ OUT &H3C8, c
+ OUT &H3C9, a * 3
+ OUT &H3C9, a * 4.5
+ OUT &H3C9, a * 0
+ a = a + 1
+NEXT c
+
+OUT &H3C8, 101
+OUT &H3C9, 63
+OUT &H3C9, 63
+OUT &H3C9, 0
+
+OUT &H3C8, 102
+OUT &H3C9, 63
+OUT &H3C9, 10
+OUT &H3C9, 10
+
+OUT &H3C8, 103
+OUT &H3C9, 60
+OUT &H3C9, 60
+OUT &H3C9, 0
+
+a = 0
+FOR c = 50 TO 65
+ OUT &H3C8, c
+ OUT &H3C9, a * 4.5
+ OUT &H3C9, a * 0
+ OUT &H3C9, (15 - a) * 4.5
+ a = a + 1
+NEXT c
+
+st$ = " Esitlus teemal:"
+
+FOR t = 0 TO 400
+ IF t < 320 THEN
+ FOR y = 0 TO 199
+ c = POINT(319 - t, y)
+ IF c < 100 THEN c = c + 34
+ PSET (319 - t, y), c
+ NEXT y
+ x = 319 - t
+ IF x / 16 = x \ 16 THEN
+ s = x / 16
+ IF s <= LEN(st$) THEN
+ a$ = RIGHT$(LEFT$(st$, s), 1)
+ prn x, 20, 2, 101, a$
+ END IF
+ END IF
+ END IF
+
+ IF (t < 360) AND (t > 39) THEN
+ FOR y = 0 TO 13
+ c = POINT(359 - t, y)
+ IF c < 100 THEN c = c - 34
+ PSET (359 - t, y), c
+ NEXT y
+ FOR y = 55 TO 199
+ c = POINT(359 - t, y)
+ IF c < 100 THEN c = c - 34
+ PSET (359 - t, y), c
+ NEXT y
+ END IF
+
+ SOUND 0, .2
+NEXT t
+
+prn 31, 101, 3, 102, "STROBOSKOOP"
+prn 29, 99, 3, 102, "STROBOSKOOP"
+prn 30, 100, 3, 103, "STROBOSKOOP"
+
+FOR x = 0 TO 160
+ FOR y = 100 TO 150
+ c = POINT(x, y)
+ IF c = 102 THEN c = 103: GOTO 2
+ IF c = 103 THEN c = 102: GOTO 2
+2
+ PSET (x, y), c
+ NEXT y
+ SOUND 0, .1
+NEXT x
+
+FOR y = 199 TO 120 STEP -1
+ FOR x = 0 TO 319
+ c = POINT(x, y)
+ IF c = 102 THEN c = 103: GOTO 3
+ IF c = 103 THEN c = 102: GOTO 3
+3
+ PSET (x, y), c
+ NEXT x
+ SOUND 0, .1
+NEXT y
+
+prn 49, 179, 1, 0, "autor: Svjatoslav Agejenko"
+prn 51, 181, 1, 0, "autor: Svjatoslav Agejenko"
+prn 50, 180, 1, 15, "autor: Svjatoslav Agejenko"
+
+getkey a$
+
+DIM buf(1 TO 30000)
+FOR a = 1 TO 320 / 5
+ GET (0, 0)-(314, 100), buf(1)
+ PUT (5, 0), buf(1), PSET
+ LINE (0, 0)-(4, 100), 0, BF
+
+ GET (5, 101)-(319, 199), buf(1)
+ PUT (0, 101), buf(1), PSET
+ LINE (315, 101)-(319, 199), 0, BF
+NEXT a
+
+END SUB
+
+SUB pag2
+SCREEN 13
+SCREEN 12
+
+END SUB
+
+SUB pag3
+
+myx1 = 20
+myy1 = 15
+myz1 = 100
+myx2 = 20
+myy2 = 15
+myz2 = 10
+tfra = 20
+
+mo
+
+prn 147, 66, 1, 3, "100 D336B 180k 680k"
+prn 180, 120, 1, 3, "50m 450V 1m"
+prn 180, 400, 2, 14, "Principal scheematic"
+
+getkey a$
+
+LINE (0, 0)-(639, 390), 0, BF
+
+myx1 = 20
+myy1 = 15
+myz1 = 10
+myx2 = 80
+myy2 = 5
+myz2 = 4
+tfra = 20
+mo
+getkey a$
+
+myx1 = 80
+myy1 = 5
+myz1 = 4
+myx2 = 40
+myy2 = 5
+myz2 = 4
+tfra = 20
+mo
+getkey a$
+
+myx1 = 40
+myy1 = 5
+myz1 = 4
+myx2 = 20
+myy2 = 15
+myz2 = 10
+tfra = 10
+mo
+prn 147, 66, 1, 3, "100 D336B 180k 680k"
+prn 180, 120, 1, 3, "50m 450V 1m"
+getkey a$
+
+END SUB
+
+SUB pag4
+CLS
+SCREEN 13
+prn 35, 100, 2, 14, " Thank you"
+prn 35, 140, 2, 14, " for attention!"
+
+DIM buf(1 TO 30000)
+
+GET (0, 100)-(319, 199), buf(1)
+FOR y = 100 TO 50 STEP -1
+ PUT (0, y), buf(1), PSET
+ SOUND 0, .5
+NEXT y
+
+getkey a$
+SYSTEM
+END SUB
+
+SUB prn (x2%, y%, s%, c%, t$)
+x = x2
+
+FOR a = 1 TO LEN(t$)
+ b = ASC(RIGHT$(LEFT$(t$, a), 1))
+
+ ' Draw each character in the string
+ FOR y1 = 0 TO 15
+ FOR x1 = 0 TO 7
+ IF font(x1, y1, b) > 0 THEN
+ LINE (x1 * s + x, y1 * s + y) - (x1 * s + s - 1 + x, y1 * s + s - 1 + y), c, BF
+ END IF
+ NEXT x1
+ NEXT y1
+
+ ' Move to the next character position
+ x = x + (8 * s)
+NEXT a
+END SUB
+
+SUB start
+SCREEN 12
+get3d
+getfnt
+
+myx = 30
+myy = 15
+myz = 10
+END SUB
projects / qbasicapps.git / commitdiff