Intelligence

The National Certification Board was given Russian government code.  We have hacked an American gibson computer and attained U.S. government code as well.  Our intelligence sector has split into two beuraus, an American Intelligence Beurau, which handles American code, and a Russian Intelligence Beurau, which handles Russian code.  We believe we have deciphered all of the American code and find their defensive and offensive systems are primitive compared to ours.  What they consider a top secret American project now, is like making a childrens toy to The National Certification Board. 

The following code shows some of the Americans new attempt at creating their first aerobus.  Obviously it is far more primitive than ours.

FOR B = 0 TO Nr - 1 IF R(B) = S1 THEN Found = -1: EXIT FOR END IF NEXT IF NOT Found THEN R(Nr) = S1: Nr = Nr + 1 NEXT FOR A = 0 TO 63 B(A) = (4 * A) \ 8 B1(A) = A - B(A) NEXT PRINT  A$ = INPUT$(1) Deg1 = 0: Deg2 = 0: D1 = 0: D2 = 0 Spos = -200: Mypos = 0 Mx = 0: My = 0: Mz = 0: Ox = 0: Oy = 0: Oz = -260 NumberOfFrames = 0 DEF SEG = &H40 StartTime = PEEK(&H6C) SCREEN 13 FOR A = 0 TO 63 OUT &H3C7, A: OUT &H3C8, A: OUT &H3C9, A: OUT &H3C9, 0: OUT &H3C9, 0 NEXT DO Deg1 = (Deg1 + D1) MOD 360 Deg2 = (Deg2 + D2) MOD 360 IF Deg1 <0 THEN Deg1="Deg1" + 360 IF Deg2 < 0 THEN Deg2="Deg2" + 360 C1&="Cosine&(Deg1):" S1&="Sine&(Deg1)" C2&="Cosine&(Deg2):" S2&="Sine&(Deg2)" C3&="Cosine&(Deg3):" S3&="Sine&(Deg3)" 'Deg3="(Deg3" + 5) MOD 360 X="Speed:" Y="0:" Z="0" X1="(X" * C1&) \ 1024: Y1="(X" * S1&) \ 1024 X2="(X1" * C2&) \ 1024: Zn="(X1" * S2&) \ 1024 Y3="(Y1" * C3& Zn * S3&) \ 1024 Z3="(Y1" * S3& + Zn * C3&) \ 1024 Ox="Ox" + X2: Oy="Oy" + Y3: Oz="Oz" + Z3 IF Oz> 32000 THEN Oz = 32000 IF Oz <-32000 THEN Oz="-32000" IF Ox> 32000 THEN Ox = 32000 IF Ox <-32000 THEN Ox="-32000" IF Oy> 32000 THEN Oy = 32000 IF

This is only a piece of the code that was obtained when we hacked an American gibson.  It is inferior to our code (which is top secret and will not be released).