опнцпюллю

0 GOSUB 61
1 CLS : PRINT "ондопнцпюллш"
2 PRINT "1-опнцпюллхпнбюмхе хг юдпеянб 50000...QBASIC"
3 PRINT "2-ярхпюмхе"
4 PRINT "3-времхе хг опнцпюллюрнпю"
5 PRINT "4-ббнд дюммшу он юдпеяюл 50000...QBASIC"
6 PRINT "5-бшунд хг опнцпюллш"
7 INPUT "ббедхре жхтпс ондопнцпюллш"; L: ON L GOTO 10, 30, 40, 50, 60
10 N1 = 50000: K = 52047: K1 = K + 1: REM юдпеяю я дюммшлх
11 OUT &H37A, &HB: FOR Y = 1 TO W2: NEXT Y: REM гюдепфйю 10 ЛЯ
12 OUT &H37A, &HD: FOR Y = 1 TO W1: NEXT Y: REM гюдепфйю 1 ЛЯ
13 OUT &H37A, 5: FOR Y = 1 TO W1: NEXT Y
14 STOP: REM ондйкчвхре 12 б х мюфлхре F5
15 P = PEEK(N1): OUT &H378, (P): OUT &H37A, 1
16 FOR Y = 1 TO W: NEXT Y: REM гюдепфйю 0,1 ЛЯ
17 OUT &H37A, 5: FOR Y = 1 TO W1: NEXT Y
18 OUT &H37A, 4: FOR Y = 1 TO W1: NEXT Y
19 OUT &H37A, 5: FOR Y = 1 TO W1: NEXT Y
20 N1 = N1 + 1
21 IF N1 = K1 GOTO 22 ELSE 15
22 OUT &H37A, &HF
23 STOP: REM нрйкчвхре 12 б х мюфлхре F5
24 GOTO 1
30 STOP: REM ондйкчвхре 12 V х мюфлхре F5
31 OUT &H37A, &HA: FOR Y = 1 TO W2: NEXT Y
32 OUT &H37A, &HE: FOR Y = 1 TO W1: NEXT Y
33 OUT &H37A, &HD
34 STOP: REM нрйкчвхре 12 б х мюфлхре F5
35 GOTO 1
40 CLS : N2 = 0: K2 = 2047: K3 = K2 + 1: OUT &H378, &HFF
41 OUT &H37A, &HD: LOCATE 1, 1: PRINT (N2 + 1)
42 STOP: REM дкъ опнднкфемхъ мюфлхре F5
43 FOR Y = 1 TO W3: NEXT Y: IF INKEY$ = " " THEN 47: REM гюдепфйю 1 Я
44 OUT &H37A, 4: FOR Y = 1 TO W1: NEXT Y
45 N2 = N2 + 1
46 IF N2 = K3 GOTO 47 ELSE 41
47 OUT &H37A, &HF: GOTO 1
50 FOR A = 0 TO 2047: PRINT (50000 + A)
51 PRINT "ббедхре дюммше б деяърхвмнл бхде 255 max"
52 INPUT D: POKE (50000 + A), D: IF D > 255 THEN 52
53 FOR Y = 1 TO W3: NEXT Y: IF INKEY$ = " " THEN 1: REM гюдепфйю 1 Я
54 NEXT A: GOTO 1
60 SYSTEM
61 N = TIMER: FOR X = 1 TO 1000000: NEXT X: K = TIMER: W = CINT(100 / (K - N))
62 W1 = W * 10: W2 = W * 100: W3 = W * 10000: RETURN