jonh@tekgen.TEK.COM (Jon Howell) (07/16/87)
I like reading the information that is posted in this newsgroup, it is a val- uable source of information. Just for a change, I think it would be fun for people to post a program (small, of course), whether RSDOS or OS9... I've been bored today, and in my spare time I made a moving sign for the CoCo3. (I read FSFnet electronic magazine, so I used it as a subject. You can change this by replacing the subroutine at line 100-. Also, change the palette values on line 35.) Enjoy... --------------------Snip, snip, snip...-------FSFNET.BAS-------------------- 5 POKE65497,0 10 HSCREEN2:O=16:P=36:FORI=0TO15:PALETTEI,0:NEXTI:PALETTE9,33:HCOLOR9:HPRINT(14,16),"Please Wait..." 15 GOSUB 100 20 FORX=10 TO 310 STEP 20:H=X/20-(INT(X/80)*4)+1:H2=5-H+1:HCIRCLE(X,10),8,H:HPAINT(X,10),H,H:HCIRCLE(X,170),8,H2:HPAINT(X,170),H2,H2:HSET(X-1,9,8):HSET(X-1,169,8):HSET(X,8,8):HSET(X,168,8):NEXTX 30 FOR X=30 TO 170 STEP 20:H=X/20-(INT(X/80)*4)+1:H2=5-H+1:HCIRCLE(10,X),8,H2:HPAINT(10,X),H2,H2:HCIRCLE(310,X),8,H:HPAINT(310,X),H,H:HSET(9,X-1,8):HSET(309,X-1,8):HSET(10,X-2,8):HSET(310,X-2,8):NEXTX 35 PALETTE7,33:PALETTE6,27:PALETTE5,24:PALETTE8,52:PALETTE9,0 40 PALETTE1,P:PALETTE4,O 50 PALETTE2,P:PALETTE1,O 60 PALETTE3,P:PALETTE2,O 70 PALETTE4,P:PALETTE3,O 80 GOTO 40 100 PALETTE5,0:PALETTE6,0 110 HDRAW"BM20,20C5F5D25G5R15H5U10R5F5U15G5L5U10R10F5U10L25":HPAINT(24,22),5,5 120 HDRAW"BM80,20G5H5L10G5D5F5R5F5D5G5L5H5D10R20E5U10H5L5H5U5F5R5F5U15":HPAINT(75,27),5,5 130 HDRAW"BM90,20C5F5D25G5R15H5U10R5F5U15G5L5U10R10F5U10L25":HPAINT(94,22),5,5 140 HDRAW"BM125,30C6F5D15G5R15H5U10E5F5D10G5R15H5U15H5L5G5U5L10":HPAINT(127,31),6,6 150 HDRAW"BM165,30G5D15F5R20E5U5G5L15H5R20E5U5H5L20G5BF5E5R10F5L20":HPAINT(165,33),6,6 160 HDRAW"BM210,20D10L10D5F10D5F5R10E5U5G5L5H5U10R10U5L10U10L5":HPAINT(213,22),6,6 170 PALETTE7,0:HCOLOR7 180 HPRINT(3,9),"BITNET Fantasy-Science Fiction":HPRINT(25,10),"Fanzine":HPRINT(5,12),"X-Edited by 'Orny' Liscomb" 200 RETURN --------------------Snip, snip, snip...-------Be sure to strip linefeeds--- -- ___ __ , __ __ _ , , __ , , ___ __ | |_ | |_ / / \ |\ /| |_\ | | | |_ | -- It's good for your | |_ |_ |_ \__ \_/ | V | | \_/ | |_ * health!