Sepia GFA Basic code

Internet is such a strange place. I've found by chance some lines of GFA Basic code I wrote something like 20 years ago.

Actually in the late 80s the French magazine ST Mag used to publish short GFA Basic programs written by the readers. These were called GFA Punch. They had to have at most 20 lines of code, and had to do something funny or useful. Some GFA Punch I had written were published. Someone kept a floppy disk of a bunch of GFA Punch that were published and made it available.

Now, among all these programs I've found some of my old GFA Punch. For me its like finding an old sepia picture in a box. It's weird. I've decided to post two of these programs just for archeological reason. There isn't any technological interest as the quality of the code is poor.

This one draw colored frames :

<br />BOX 0,0,319,199<br />DIM b(1,3)<br />READ b(0,0),b(0,1),b(1,0),b(1,1),b(0,2),b(0,3),b(1,2),b(1,3)<br />DATA 30,30,40,21,1,1,1,1<br />COLOR 11<br />DO<br /> FOR t=0 TO 1<br /> ADD b(t,0),b(t,2)<br /> ADD b(t,1),b(t,3)<br /> IF POINT(b(t,0)+b(t,2),b(t,1))=1<br /> COLOR RANDOM(13)+2<br /> MUL b(t,2),-1<br /> ENDIF<br /> IF POINT(b(t,0),b(t,1)+b(t,3))=1<br /> COLOR RANDOM(13)+2<br /> MUL b(t,3),-1<br /> ENDIF<br /> LINE b(0,0),b(0,1),b(1,0),b(1,1)<br /> NEXT t<br />LOOP<br />
This one draw a big ugly and slow scroll text :

<br />Dim Big$(20)<br />For T%=1 To 20<br /> Print Mid$("SCROLLING, TRES LENT!",T%,1);Spc(10);"VEUILLEZ PATIENTER"<br /> For Y%=0 To 13 ! Monochrome: 13<br /> For X%=0 To 8<br /> If Point(X%,Y%)<>0<br /> Pcircle X%*10+5,Y%*10+5,5<br /> Endif<br /> Next X%<br /> Next Y%<br /> Get 9,0,71,80,Big$(T%) ! A modifier aussi pour le monochrome<br /> Cls<br />Next T%<br />For T%=1 To 20<br /> Put 240,50,Big$(T%)<br /> Get 0,50,319,130,A$<br /> For R%=0 Downto -70<br /> Put R%,50,A$<br /> Next R%<br />Next T%<br />