start bastext 4097
start tok128 greet.prg
110 SCNCLR:COLOR0,1:COLOR4,1:COLOR1,2,7
120 CHAR1,5,0,"{reverse on}{sh pound}{cm asterisk}{reverse off}{space*2}{reverse on}{sh pound}{cm asterisk}{reverse off}{space*8}{reverse on}{sh pound}{cm asterisk}{reverse off}{space*2}{reverse on}{sh pound}{cm asterisk}{reverse off}{space*5}{reverse on}{sh pound}{space*7}{reverse off}{sh pound}"
130 COLOR1,2,5
140 CHAR1,4,1,"{reverse on}{sh pound}{space*2}{cm asterisk}{reverse off}{reverse on}{sh pound}{space*2}{cm asterisk}{reverse off}{space*6}{reverse on}{sh pound}{space*2}{cm asterisk}{reverse off}{reverse on}{sh pound}{space*2}{cm asterisk}{reverse off}{space*4}{reverse on}{space*7}{reverse off}{sh pound}"
150 COLOR1,2,4
160 CHAR1,3,2,"{reverse on}{sh pound}{space*8}{cm asterisk}{reverse off}{space*4}{reverse on}{sh pound}{space*8}{cm asterisk}{reverse off}{space*3}{cm asterisk}{reverse on}{space*7}{cm asterisk}{reverse off}"
170 COLOR1,2,3:CHAR1,2,3,"{reverse on}{sh pound}{space*3}{reverse off}{space*4}{reverse on}{space*3}{cm asterisk}{reverse off}{space*2}{reverse on}{sh pound}{space*3}{reverse off}{space*4}{reverse on}{space*3}{cm asterisk}{reverse off}{space*2}{reverse on}{sh pound}{space*8}{reverse off}"
180 COLOR1,2,1:CHAR1,1,4,"{reverse on}{sh pound}{space*4}{reverse off}{space*4}{reverse on}{space*4}{cm asterisk}{reverse off}{reverse on}{sh pound}{space*4}{reverse off}{space*4}{reverse on}{space*4}{cm asterisk}{reverse off}{reverse on}{sh pound}{space*8}{reverse off}{sh pound}"
190 COLOR1,2,5:CHAR1,17,7,"wishes"
200 CHAR1,15,8,"happy day to"
210 CHAR1,8,9,"all plus4world.com members"
220 CHAR1,10,11,"special greetings to:"
230 CHAR1,1,13,"all active forum members responded well"
240 CHAR1,2,14,"all the people made great games and"
250 CHAR1,3,15,"nice conversions for us on this"
260 CHAR1,5,16,"commodore plus/4 machine{sh space}{!*3}"
270 DIM l(60):pi=3.14:s=2328:t=2369:u=2408
280 pi=3.1415
290 FOR i=1 TO 60
300 rad=i*20*pi/180
310 l(i)=INT(7*ABS(SIN(rad)))
320 NEXT i
330 a=0
340 DO UNTIL l$<>""
350 a=a+1:IF a=18 THEN a=0
360 FOR j=1TO39:POKEs+j,(l(a+j)*16)+7:POKEt+j,(l(a+j+1)*16)+10:POKEu+j,(l(a+j+2)*16)+6:NEXT j
370 REM for j=1 to 39:poke2408+j,(lum(a+j+2)*16)+5:next j
380 GET l$
390 LOOP
400 COLOR1,2,7:END
stop tok128
(bastext 1.04)