Herkese mutlu ve bol retrolu bir sene dilerim.
10 LET a$="iyi seneler retrojen"
15 PRINT AT 11,6;a$: LET u=LEN a$+1: LET py=11: LET ra=3
20 GO SUB 100: CLS
25 FOR y=1 TO u-1
30 FOR x=1 TO u-1
35 PRINT AT s(x+y),5+x;" "
40 PRINT AT s(x+y+1),5+x;a$(x)
50 NEXT x: NEXT y
60 GO TO 25
100 REM sin table
110 DIM s(50): LET add=(360/(u-1))*(0.01745)
120 FOR x=1 TO u*2
130 LET s(x)=11+(SIN (x*add)*ra)
140 NEXT x
150 RETURN
(sinclair basic)