Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
Loading...
γ³γ³γγ₯γΌγγ£γ³γ°γΈγγγγΨ¨ΩΫΩΪΊ Ϊ©ΨͺΫ Ψ³Ϋ Ψ¨ΫΨͺΨ± ΫΫΪΊMae'r coleg hwn yn yr Alban01001100 01100101 01110111 01101001 01110011 00100000 01101100 01101001 01101011 01100101 00100000 01110100 01101111 00100000 01110000 01101100 01100001 01111001 00100000 01100011 01101111 01101101 01110000 01110101 01110100 01100101 01110010 00100000 01100111 01100001 01101101 01100101 0111001144 6f 6f 6d 20 45 74 65 72 6e 61 6c 20 77 61 73 20 61 20 67 72 65 61 74 20 67 61 6d 65CLS()PRINT("HELLO")SPR(0,64,64)SPR(0,x,64)
X=64
X=X+1FUNCTION _INIT()
x=64
END
FUNCTION _DRAW()
SPR(0,x,64)
END
FUNCTION _UPDATE()
X=X+1
ENDFUNCTION _UPDATE()
IF BTN(1) THEN
X=X+1
END
END FUNCTION _UPDATE()
IF BTN(1)
THEN X=X+1
END
IF BTN(0)
THEN X=X-1
END
ENDFUNCTION _UPDATE()
IF BTN(1) THEN
X=X+1
END
IF BTN(0)THEN
X=X-1
END
IF X>120 THEN
X=120
END
ENDFUNCTION _UPDATE()
IF BTN(1) THEN
X=X+1
END
IF BTN(0)THEN
X=X-1
END
IF X>120 THEN
X=120
END
IF X<0 THEN
X=0
END
END FUNCTION _INIT()
X=64
S=1
END
FUNCTION _DRAW()
CLS()
SPR(S,X,64)
END
FUNCTION _UPDATE()
IF BTN(1) THEN
X=X+1
END
IF BTN(0)THEN
X=X-1
S=S+1
END
IF X>120 THEN
X=120
END
IF X<0 THEN
X=0
END
IF S>2 THEN
S=1
END
ENDSPR(S,X,64,1,1,TRUE)SPR(S,X,64,1,1,F)F=FALSE FUNCTION _INIT()
X=64
S=1
F=FALSE
END
FUNCTION _DRAW()
CLS()
SPR(S,X,64)
END
FUNCTION _UPDATE()
IF BTN(1) THEN
X=X+1
S=S+1
F=FALSE
END
IF BTN(0)THEN
X=X-1
S=S+1
F=TRUE
END
IF X>120 THEN
X=120
END
IF X<0 THEN
X=0
END
IF S>2 THEN
S=1
END
ENDFUNCTION _INIT()
X=64--HORIZONTAL SPRITE VALUE
S=1--SPRITE SLOT
F=FALSE--FLIP SPRITE HORIZONTALLY
END
FUNCTION _DRAW()
CLS()--CLEAR SCREEN
SPR(S,X,64)--DRAW SPRITE
END
FUNCTION _UPDATE()
IF BTN(1) THEN--RIGHT KEY
X=X+1--MOVE SPRITE RIGHT
S=S+1--ANIMATE
F=FALSE
END
IF BTN(0)THEN--LEFT KEY
X=X-1--MOVE SPRITE LEFT
S=S+1--ANIMATE
F=TRUE--FLIP SPRITE
END
IF X>120 THEN--LIMIT X AT RIGHT EDGE OF SCREEN
X=120
END
IF X<0 THEN--LIMIT X AT LEFT EDGE OF SCREEN
X=0
END
IF S>2 THEN--LOOP ANIMATION
S=1
END
ENDhttps://www.sqa.org.uk/files/hn/F6BS35.pdf
https://www.sqa.org.uk/files/hn/HF8734.pdf
https://www.sqa.org.uk/files/hn/HF5034.pdf
An Introduction to the principles of 3D Modelling and Creative Commons
http://www.mysqa.info/files/hn/DDE2N35.pdf





































