mirror of
https://github.com/romychs/Ocean-240.2-Emulator.git
synced 2026-04-21 11:03:21 +03:00
41 lines
1.8 KiB
QBasic
41 lines
1.8 KiB
QBasic
10 DIM A%(1000):CLS 0:SCRN 0,0:COLOR 1:RECT 100,10
|
||
20 COLOR 3:N%=1:PRINT CHR$(12);" MYUZIK SINTEZATOR"
|
||
30 A$=INKEY$:IF A$="" THEN 70
|
||
40 A=(ASC(A$)-47):IF A>9 THEN 90 ELSE A%(N%)=A+1
|
||
50 ON A GOSUB 200,210,220,240,260,280,310,340,380,420
|
||
60 N%=N%+1:GOTO 30
|
||
70 CURS 0,0:RECT N%*.1,10:IF N%=1 THEN 30
|
||
80 FOR I=0 TO 20:NEXT I:A%(N%)=0:N%=N%+1:GOTO 30
|
||
90 COLOR 1:IF N%=1 THEN N%=N1% ELSE N1%=N%
|
||
100 FOR N=1 TO N%:A=A%(N)-1
|
||
110 L=L+1:L=L+1:IF A<0 THEN 140
|
||
120 ON A GOSUB 200,210,220,240,260,280,310,340,380,420
|
||
140 CURS 0,0:RECT N*.1,10
|
||
150 NEXT N:GOTO 20
|
||
200 FOR I=0 TO 70:E=2:OUT 242,8:OUT 242,0:NEXT:RETURN
|
||
210 FOR I=0 TO 50:E=1:E=2:OUT 242,8:OUT 242,0:NEXT:RETURN
|
||
220 FOR I=0 TO 40:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
|
||
230 NEXT:RETURN
|
||
240 FOR I=0 TO 35:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
|
||
250 OUT 242,8:OUT 242,0:NEXT:RETURN
|
||
260 FOR I=0 TO 30:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
|
||
270 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:NEXT:RETURN
|
||
280 FOR I=0 TO 19:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
|
||
290 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8
|
||
300 OUT 242,0:NEXT:RETURN
|
||
310 FOR I=0 TO 16:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
|
||
320 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8
|
||
330 OUT 242,0:OUT 242,8:OUT 242,0:NEXT:RETURN
|
||
340 FOR I=0 TO 13:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
|
||
350 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8
|
||
360 OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
|
||
370 NEXT:RETURN
|
||
380 FOR I=0 TO 10:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
|
||
390 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8
|
||
400 OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
|
||
410 OUT 242,8:OUT 242,0:NEXT:RETURN
|
||
420 FOR I=0 TO 10:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
|
||
430 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8
|
||
440 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8
|
||
450 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:NEXT:RETURN
|
||
|