Notices by r_labibov (rlabibov@twiukraine.com)

@bbcmicrobot
#bbcmicrobot
🚀
MO.2:F.V=128TO0S.-1:F.U=0TO159:X=(U-80)/80:Y=(V-128)/160:Z=1/SQR(X*X+Y*Y+1):X=X*Z:Y=Y*Z:C=0
IFY<0P=(Y+4)/Y:C=(((INT(X*P)+INT(Z*P))A.2)DIV2)*6+1
GC.0,C:PL.69,8*U,4*V:N.,
FORU=0TO159:GC.0,(-(RND(10)>3)):MOVEU*8,512-ABS(U-80):DRAWU*8,1024:N.
COLOUR3
PRINT TAB(0,31);"[OMINOUS WHOOSHING]"
MOVE0,0:V.5,0

@bbcmicrobot
#bbcmicrobot MO.2:F=1:Y=512:REP.:N=(N MOD4)+1:GC.0,N:MOVE0,Y:DR.1280,Y:Y=Y-F:F=F*1.2:U.Y<0
GC.0,5:F.I=-8.5TO8.5:MOVE640+I*75,512:DR.640+I*220,0:N.:MOVE0,512:DR.1280,512
C.6:P. TAB(3,8);"NO CROWDSTRIKE":P. TAB(2,10);"BSOD IF YOU STILL":P. TAB(5,12);"USE 6502";
V.19,N,0,0,0,0:N=(N MOD4)+1:V.19,N,5,0,0,0:I=INKEY(12):G.30

@bbcmicrobot
#bbcmicrobot MODE 1
VDU 29,640;512;
VDU 19,1,4,0,0,0
VDU 19,2,6,0,0,0
GCOL 16,2
MOVE 0,0
MOVE 0,-200
PLOT &B1,0,400
GCOL 48,2
MOVE 0,0
MOVE 0,200
PLOT &B1,0,-400
GCOL 0,3
MOVE -109,257
DRAW 109,-257
MOVE -184,-78
DRAW 184,78
P."ğďąSUMMER SOLSTICE"
P."ğċĆIN NORTHERN HEMISPHERE"
P."ğďěWINTER SOLSTICE"
P."ğċĜIN SOUTHERN HEMISPHERE"
P."ğĈĎSUN"
MOVE -280,0
DRAW -400,0
DRAW -380,-12
MOVE -380,12
DRAW -400,0
MOVE 640,0
VDU 5

@bbcmicrobot
#bbcmicrobot 🚀 MODE 1
R=100
FOR n=1 TO 6
FOR d=1 TO 5
XC=n*200-50
YC=1024-(d*200-80)
M=d*180*(1-((n AND 1)+(d AND 1)=1))
FOR I=0 TO M STEP 4
S=R*COSRAD(n*I/d)
PLOT4-(I>0),XC+S*COSRAD(I),YC+S*SINRAD(I)
NEXT
NEXT,

@bbcmicrobot
#bbcmicrobot MODE1
VDU29,640;512;5,19,1,5;0;
DIMS(360):FORI%=0TO90:S(I%)=SINRAD(I%):S(180-I%)=S(I%):S(I%+180)=-S(I%):S(360-I%)=-S(I%):NEXT
n%=6
d%=5
M%=d%*180*(1-((n%AND1)+(d%AND1)=1))
FORI%=0TOM%STEP4
G%=500*FNCz(n%*I%/d%)
PLOT4-(I%>0),G%*FNCz(I%),G%*FNSz(I%)
NEXT
FORJ%=0TO4
GCOLJ%*16,1
G%=80+J%*100
FORI%=15*(J%MOD2)TO360STEP30
PLOT&85,G%*FNCz(I%),G%*FNSz(I%)
NEXT,
DEFFNSz(K%):=S(K%MOD360)
DEFFNCz(K%)=FNSz(K%+90)

@bbcmicrobot
#bbcmicrobot R%=500
MODE1
VDU19,1,5;0;29,640;512;
MOVE0,0
GCOL32,1
FORI%=0TO540STEP4
MOVE0,0
S=R%*COS(5*RAD(I%)/3):S=S*(1+.1*(ABS(S)/R%>.9))
PROCC(85,S,I%)
NEXT
GCOL0,3
FORI%=0TO360STEP45
PROCP(R%*.2,I%)
PROCP(R%*.3,I%+22)
NEXT
MOVE640,0
VDU5
DEFPROCC(k%,R,I%):PLOTk%,R*COSRAD(I%),R*SINRAD(I%):ENDPROC
DEFPROCP(R,I%):MOVE0,0:PROCC(5,R,I%):PLOT&99,12,12:ENDPROC