mirror of
https://github.com/romychs/Ocean-240.2-Emulator.git
synced 2026-04-21 11:03:21 +03:00
23 lines
1.1 KiB
QBasic
23 lines
1.1 KiB
QBasic
10 CLS 0:SCRN 4,0:COLOR 2:CURS 255,120:PLOT 0,120
|
||
20 COLOR 3:FOR I=0 TO 255:PLOT I,SIN(I/10)*100+120:NEXT
|
||
30 FOR I=255 TO 0 STEP -1:PLOT I,COS(I/10)*100+120:NEXT
|
||
40 COLOR 2:FOR I=0 TO 255:PLOT I,SIN(I/10)*100+120
|
||
50 PLOT I,COS(I/10)*100+120:NEXT:A$=INPUT$(1)
|
||
60 CLS 8:SCRN 4,0:COLOR 2:CURS 255,120:PLOT 0,120
|
||
70 COLOR 3:FOR I=0 TO 255:PLOT I,SIN(I/81)*100+120:NEXT
|
||
80 FOR I=0 TO 255:PLOT -I+255,COS(I/81)*100+120:NEXT
|
||
90 FOR I=0 TO 255:Y=TAN(I/81)*10+120:IF Y<0 THEN Y=0
|
||
100 IF Y>255 THEN Y=255
|
||
110 PLOT I,Y:NEXT:A$=INPUT$(1)
|
||
120 CLS 0:SCRN 4,0:COLOR 3
|
||
130 CURS 50,50:PLOT 49,201:PLOT 201,201:PLOT 201,49:PLOT 49,49
|
||
140 FOR I=50 TO 190 STEP 10:CURS 125,125:COLOR 0:PLOT 50,I
|
||
150 CURS 125,125:COLOR 1:PLOT 50,I+10:FOR J=0 TO 900:NEXT:NEXT
|
||
160 FOR I=50 TO 190 STEP 10:CURS 125,125:COLOR 0:PLOT I,200
|
||
170 CURS 125,125:COLOR 1:PLOT I+10,200:FOR J=0 TO 900:NEXT:NEXT
|
||
180 FOR I=50 TO 190 STEP 10:CURS 125,125:COLOR 0:PLOT 200,-I+250
|
||
190 CURS 125,125:COLOR 1:PLOT 200,-I+240:FOR J=0 TO 900:NEXT
|
||
200 NEXT
|
||
210 FOR I=50 TO 190 STEP 10:CURS 125,125:COLOR 0:PLOT -I+250,50
|
||
220 CURS 125,125:COLOR 1:PLOT -I+240,50:FOR J=0 TO 900:NEXT:NEXT
|
||
|