benchmarko / cpcbasic Goto Github PK

1 ' CIRCLE WRITER... by "COMTEC", found in an old CPC Magazine
2 ' and very slightly modified.   Very slow on a real CPC, but
3 ' now ultra fast with *CPC Basic* on a modern computer.  ;-D
5 ' 
6 text$="CPC BASIC is SUPER AWESOME "
7 '
10 MODE 1:mo=16:INK 0,0:INK 1,26:INK 2,13:BORDER 0:PAPER 0:PEN 1
20 le=120:he=120:th=64:x=320:y=200:col=1
30 length=LEN(text$):steps=360/length:sti=steps/mo:thi=th/mo
40 PEN 2:LOCATE 1,25:PRINT text$
50 FOR nu=0 TO length-1
60 FOR i=0 TO mo-1:FOR o=0 TO mo-1
70 IF TEST((nu*mo)+i,o)<>0 THEN 90
80 NEXT o,i,nu
81 INK 2,0:CALL &BB18:PEN 1:END
90 de=-(nu*steps)-sti*i-180:th=thi*o:DEG
100 plot x+(le+th)*COS(de),y+(he+th)*SIN(de),col:GOTO 80