BigEd wrote: ↑Sat Jun 23, 2018 11:35 am

**Drawing on the tube**

I tried typing that one in

, but it doesn't seem to produce quite the same image that's in the photo/printout you uploaded.

Have I made a typo? [EDIT: Yes, I had! Corrected now.]:

http://bbcmicro.co.uk/jsbeeb/play.php?p ... iplier=100
Code: Select all

```
50CLS
60*FX11,0
70I."Enter phrase: "A$
80IFLENA$>8 A$=LEFT$(A$,8)
90IFLENA$<8 A$=A$+" ":G.90
100LE%=LENA$
110DIM PO%(LE%,7),X% 100,SI%(35),CO%(35)
120F.T%=0TO35
130SI%(T%)=SIN(RAD(T%*5-45))*250
140CO%(T%)=COS(RAD(T%*5-45))*250
150N.
160Y%=X%DIV256
170F.T%=1TOLE%
180?X%=ASC(MID$(A$,T%,1))
190A%=10
200CALL&FFF1
210F.P%=0TO7
220PO%(T%,P%)=?(X%+1+P%)
230N.,
240
250MO.0
260V.29,640;0;
270F.T%=-640TO640ST.50
280MOV.T%,1023
290MOV.T%+25,1023
300PL.85,T%*6,0
310PL.85,(T%+25)*6,0
320N.
330V.26
340F.C%=-400TO1100
350V.29,C%-(C%MOD2);C%+(C%MOD2);
360PROCsemi(C%+400)
370N.
375ONERROR G.385
380*SAVE P.TUBE 3000 8000
385ONERROROFF
390END
400
410
420DEFPROCsemi(C%)
430LOCAL B%,K%,A%,H%
440B%=2^(7-(C%DIV4)MOD8)
450K%=4
460F.T%=0TO35
470H%=(C%DIV32+T%DIV8)MODLE%
480IF(PO%(H%+1,T%MOD8)ANDB%)=0 THEN GCOL0,0 EL. GCOL0,1
490PL.K%,SI%(T%),CO%(T%)
500K%=5
510N.
520END.
```