### Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Pages: [1] 2 3 4 5 6
1
##### Yabasic / Re: Stuck on Indicies
« on: March 22, 2013 »
Thanks. Small as it was, it wasn't an issue, because it didn't work.

Yes. I know about about the true random that the PS2 console demo disk gave.
In this case, having a set random helps me.

What also helps me is to have my lines of code in the order that they happen.

I've managed to solve my original problem.

Code: [Select]
`open window 640,512 rem >.go=1starz=3stars=100dim r(stars,starz),g(stars,starz),b(stars,starz)dim x(stars,starz),y(stars,starz)for a=1 to starzfor c=1 to starsr(c,a)=ran(256)g(c,a)=ran(256)b(c,a)=ran(256)x(c,a)=int(ran(64))*10y(c,a)=int(ran(51))*10next cnext arepeatsetdrawbuf vmvm=1-vmsetdispbuf vmclear windowgo=go+1if go>75 go=1setrgb 1,20,20,20fill rectangle 0,0 to 640,512for a=1 to starzfor c=1 to starsy(c,a)=y(c,a)+1if y(c,a)>515 y(c,a)=-3setrgb 1,r(c,a),g(c,a),b(c,a)if go>1 and go<25 fill circle x(c,1),y(c,1),2if go>25 and go<50 fill circle x(c,2),y(c,2),2if go>50 and go<75 fill circle x(c,3),y(c,3),2next cnext auntil (1=0)`

2
##### Yabasic / Stuck on Indicies
« on: March 21, 2013 »
I haven't quite got the hang of them yet.

This program (long version) shows what I want.

Code: [Select]
`open window 640,512 go=1starz1=100starz2=100dim x1(starz1)dim y1(starz1)dim r1(starz1)dim g1(starz1)dim b1(starz1)dim x2(starz2)dim y2(starz2)dim r2(starz2)dim g2(starz2)dim b2(starz2)for a=1 to starz1x1(a)=int(ran(64))*10y1(a)=int(ran(51))*10r1(a)=ran(256)g1(a)=ran(256)b1(a)=ran(256)next afor a=1 to starz2x2(a)=int(ran(64))*10y2(a)=int(ran(51))*10r2(a)=ran(256)g2(a)=ran(256)b2(a)=ran(256)next arepeatsetdrawbuf vmvm=1-vmsetdispbuf vmclear windowsetrgb 1,20,20,20fill rectangle 0,0 to 640,512go=go+1if go>50 go=1if go>1 and go<25 thenfor a=1 to starz1y1(a)=y1(a)+1if y1(a)>515 y1(a)=-3setrgb 1,r1(a),g1(a),b1(a)fill circle x1(a),y1(a),2'dot x1(a),y1(a)next aendifif go>25 and go<50 thenfor a=1 to starz2y2(a)=y2(a)+1if y2(a)>515 y2(a)=-3setrgb 1,r2(a),g2(a),b2(a)fill circle x2(a),y2(a),2'dot x2(a),y2(a)next aendifuntil (1=0)`
In the attempted short version, I'm not getting my random colours.

Can anyone see what I'm missing?

Code: [Select]
`open window 640,512 rem >.go=1starz=3stars=100dim r(starz),g(starz),b(starz)dim x(stars,starz),y(stars,starz)for a=1 to starzr(a)=ran(256)g(a)=ran(256)b(a)=ran(256)for c=1 to starsx(c,a)=int(ran(64))*10y(c,a)=int(ran(51))*10next cnext arepeatsetdrawbuf vmvm=1-vmsetdispbuf vmclear windowgo=go+1if go>75 go=1setrgb 1,20,20,20fill rectangle 0,0 to 640,512for a=1 to starzsetrgb 1,r(a),g(a),b(a)for c=1 to starsy(c,a)=y(c,a)+1if y(c,a)>515 y(c,a)=-3if go>1 and go<25 fill circle x(c,1),y(c,1),2if go>25 and go<50 fill circle x(c,2),y(c,2),2if go>50 and go<75 fill circle x(c,3),y(c,3),2next cnext auntil (1=0)`
Help!

3
##### Yabasic / It's funny . . .
« on: February 14, 2013 »
When I started learning Yabasic, I also looked for samples that would be useful.
Making screensavers is fun, but I wanted practical as well.

I realised I had to write them myself.
Like this one, for example.

I needed a list of numbers worked from a formula and sitting down with calculator
and pencil was out of the question. I took a picture of the running program and

The window could be altered to the same ratio as an A4 sheet of paper.

Code: [Select]
`open window 640,512 rem .> pi=3.14159repeatsetdispbuf vmvm=1-vmsetdrawbuf vmclear windowsetrgb 1,256,256,256fill rectangle 0,0 to 640,512setrgb 1,256,256,256f=90.2for a=1 to 40f=f+(f/9.038)y=0 for R=2 to 16 step Ry=y+1L=R/(1.414*pi*f) rem formulaC=1/(2.818*pi*f*R) rem formulaif len(str\$(int(f)))=3 theni=30elsei=20endifD=C*1000000setrgb 1,0,0,0text i,a*12+25,str\$(int(f))if len(str\$(int(L*100000)))=4 ii=-10 if len(str\$(int(L*100000)))=3 ii=0if len(str\$(int(L*100000)))=2 ii=10if len(str\$(int(L*100000)))=1 ii=20text y*140-50+ii,a*12+25,str\$(int(L*100000))if D>100 text y*140+20,a*12+25,str\$(C*1000000,"###")if D<100 and D>10 text y*140+30,a*12+25,str\$(C*1000000,"##")if D<10 and D>1 text y*140+20,a*12+25,str\$(C*1000000,"#.#")text 10,18,"freq."text y*140-40,18,"I"text y*140+30,18,"C"text y*140-30,10,str\$(R)+" ohm"setrgb 1,150,150,150line 10,a*12+17 to 630,a*12+17line y*140-70,30 to y*140-70,510line y*140,30 to y*140,510next Rnext auntil (1=0)`
By the way, these are xover values for speaker cabinet systems.
This has been my main interest in using Yabasic.

4
##### Yabasic / Re: Question about a question
« on: January 15, 2013 »
If James's example is literally correct,
it's something I've wanted to know.
How do you match letters?
If any name is inputted, it will go to 1.

All I've come up with is reverting to chr\$

Code: [Select]
`'right answer is VANCEPrint "welcome user"pause 1 label againprint "what is your name"input a\$if a\$=chr\$(86)+chr\$(65)+chr\$(78)+chr\$(67)+chr\$(69) print "right"if a\$<>chr\$(86)+chr\$(65)+chr\$(78)+chr\$(67)+chr\$(69) goto againprintprint chr\$(86);print chr\$(65);print chr\$(78);print chr\$(67);print chr\$(69)`

5
##### Yabasic / int, frac usage
« on: September 02, 2012 »
I found an 'ideal weight for height' conversion and wrote code for it.
It's in metric, but I wanted imperial also. And not just decimalized.
I knew int/frac  had to be used. Never tried more than 1 whole value before.
I did it, but don't ask me to explain it. I just know that it works.

Using L Pad up/down changes the height. Everything else follows it.

Does anyone know imperial? It starts at 175 cm or 5' 9" and inch fraction.

Code: [Select]
`open window 640,512ycm=175 repeatsetdrawbuf vmvm=1-vmsetdispbuf vmclear windowc=peek("port1")if and(c,16)>0 ycm=ycm+.01if and(c,64)>0 ycm=ycm-.01yin=(ycm/2.54)/12'ideal height to weight conversionwkg=(ycm-100)-(.1*(ycm-100))wst=wkg/6.35text 120,70,"metric /"text 220,70,"imperial"text 10,100,"height"text 10,180,"weight"'metric heighttext 100,100,str\$(ycm)text 160,100,"cm /"'imperial heighttext 210,100,str\$(int(yin))+"'"text 240,100,str\$(int(frac(yin)*12))text 260,100,str\$(int(frac(frac(yin)*12)*8))text 270,100,"/8"text 300,100,"in"'metric weighttext 100,180,str\$(wkg)text 160,180,"kg /"'imperial weighttext 200,180,str\$(int(wst))text 220,180,"st"text 250,180,str\$(int(frac(wst)*14))text 270,180,"lb"text 310,180,str\$(int(frac(frac(wst)*14)*16))text 330,180,"oz"until (1=0)`

6
##### Yabasic / Button bash bullets
« on: April 27, 2012 »
And ship.
Old bit of code I didn't apply.
Didn't stick with it to simplify it.  Couldn't now any way.
I was just happy I could write the code.

L/R and X to fire.
Code: [Select]
`open window 640,512 xb=320yb=505xm=320ym=505b=1 bullet=6dim fire(bullet),xb(bullet),yb(bullet),bm(bullet)for a=1 to bullet fire(a)=0 yb(a)=500xb(a)=xmbm(a)=0next aship=21dim l(ship),s(ship),h(ship),i(ship),p(ship) for a=1 to ship read l(a),s(a),h(a),i(a),p(a) next arepeat setdrawbuf vm vm=1-vm setdispbuf vm clear window setrgb 1,50,50,50fill rectangle 0,0 to 640,512c=peek("port1")if and(c,128)>0 xm=xm-8if and(c,32)>0 xm=xm+8if xm<11 xm=11if xm>629 xm=629if and(c,16384)>0 and go=0 thenz=z+3if z>5 z=5if z=5 go=1endifif z>4 b=b+1if b>bullet b=1for a=1 to bulletif z>4 and b=a fire(a)=1if fire(a)=1 thenbm(a)=bm(a)+0.5yb(a)=yb(a)-bm(a) endif if yb(a)<-20 thenyb(a)=500xb(a)=xmfire(a)=0bm(a)=0endifif yb(a)=500 xb(a)=xmsetrgb 1,200,200,0fill rectangle xb(a)-8,yb(a)-10 to xb(a)-6,yb(a)fill rectangle xb(a)+6,yb(a)-10 to xb(a)+8,yb(a)if bm(a)>1 and bm(a)<7 thensetrgb 1,200,100,0fill triangle xb(a)-9,yb(a)+2 to xb(a)-5,yb(a)+2 to xb(a)-7,yb(a)+12fill triangle xb(a)+5,yb(a)+2 to xb(a)+9,yb(a)+2 to xb(a)+7,yb(a)+12endifnext aif and(c,16384)>0 and go=1 thenz=z-3if z<0 z=0endifif and(c,16384)=0 go=0for a=1 to ship setrgb 1,l(a),l(a),l(a) line xm+s(a),ym+h(a) to xm+i(a),ym-p(a) next atext 600,260,str\$(b)until (1=0) data 200,-10,0,-10,3 data 200,-9,0,-9,4data 200,-8,0,-8,5 data 200,-7,0,-7,6 data 200,-6,0,-6,7 data 200,-5,0,-5,8 data 40,-4,0,-4,16 data 80,-3,0,-3,17 data 120,-2,0,-2,18 data 150,-1,0,-1,19 data 150,0,0,0,20data 150,1,0,1,19 data 120,2,0,2,18data 80,3,0,3,17 data 40,4,0,4,16 data 200,5,0,5,8 data 200,6,0,6,7 data 200,7,0,7,6 data 200,8,0,8,5 data 200,9,0,9,4 data 200,10,0,10,3 `

7
##### Yabasic / word string fade - emulation
« on: July 27, 2011 »
I liked the effect of the welcome note on the home page so much, I've tried to emulate it.
I know there'll be a better approach than the method I came up with,
but I achieved my goal.

Code: [Select]
`open window 640,512go=1go1=1:m1=1go2=1:m2=1go3=1:m3=1go4=1:m4=1go5=1:m5=1go6=1:m6=1go7=1:m7=1go8=1:m8=1go9=1:m9=1go10=1:m10=1go11=1:m11=1go12=1:m12=1go13=1:m13=1repeatsetdrawbuf vmvm=1-vmsetdispbuf vmclear windowsetrgb 1,250,250,0fill rectangle 0,0 to 640,512goa=goa+1if goa>3 goa=1if goa=3 go=go+1if go>200 go=1if go>01 and go<20 thengo1=go1+m1if go1>30 m1=-m1if go1=0 m1=1setrgb 1,250-(go1*8),250-(go1*8),0text 200,250,"watch this space"endifsetrgb 1,0,0,0if go>15 and go<35 thengo2=go2+m2if go2>30 m2=-m2if go2=0 m2=1setrgb 1,250-(go2*8),250-(go2*8),0text 200,250,"here it comes"endifif go>30 and go<50 thengo3=go3+m3if go3>30 m3=-m3if go3=0 m3=1setrgb 1,250-(go3*8),250-(go3*8),0text 200,250,"any moment now"endifif go>45 and go<65 thengo4=go4+m4if go4>30 m4=-m4if go4=0 m4=1setrgb 1,250-(go4*8),250-(go4*8),0text 200,250,"still waiting?"endifif go>60 and go<80 thengo5=go5+m5if go5>30 m5=-m5if go5=0 m5=1setrgb 1,250-(go5*8),250-(go5*8),0text 200,250,"should be soon"endifif go>75 and go<95 thengo6=go6+m6if go6>30 m6=-m6if go6=0 m6=1setrgb 1,250-(go6*8),250-(go6*8),0text 200,250,"won't be long"endifif go>90 and go<110 thengo7=go7+m7if go7>30 m7=-m7if go7=0 m7=1setrgb 1,250-(go7*8),250-(go7*8),0text 200,250,"nearly there.."endifif go>105 and go<125 thengo8=go8+m8if go8>30 m8=-m8if go8=0 m8=1setrgb 1,250-(go8*8),250-(go8*8),0text 200,250,"did you see it?"endifif go>120 and go<140 thengo9=go9+m9if go9>30 m9=-m9if go9=0 m9=1setrgb 1,250-(go9*8),250-(go9*8),0text 200,250,"what you mean,"endifif go>135 and go<155 thengo10=go10+m10if go10>30 m10=-m10if go10=0 m10=1setrgb 1,250-(go10*8),250-(go10*8),0text 200,250,"you didn't see it"endifif go>150 and go<170 thengo11=go11+m11if go11>30 m11=-m11if go11=0 m11=1setrgb 1,250-(go11*8),250-(go11*8),0text 200,250,"I'll do it again"endifif go>165 and go<185 thengo12=go12+m12if go12>30 m12=-m12if go12=0 m12=1setrgb 1,250-(go12*8),250-(go12*8),0text 200,250,"what about that time"endifif go>180 and go<200 thengo13=go13+m13if go13>30 m13=-m13if go13=0 m13=1setrgb 1,250-(go13*8),250-(go13*8),0text 200,250,"let's start over"endifuntil (1=0)`
long-winded and repetitive. that's me.

8
##### Yabasic / Re: TEXT SIZING
« on: June 15, 2011 »
Thanks, everyone. That's other Yabasic combination ticked off.

9
##### General chat / Re: What do you do for your day job?
« on: June 15, 2011 »
I have an interest in a lot of things, but I repair loudspeakers for a living
and anything in the cabinet they might be in - including some modelling
and design - all learnt on the job. I just like repairing things, in general.

With this programming, I always liked making things dance around the screen.
No-one wants to see it though - except me and you guys.

10
##### Yabasic / Re: TEXT SIZING
« on: June 15, 2011 »
And now, 'SINED'.

Code: [Select]
`a\$="^^THE^QUICK^BROWN^FOX^JUMPS^OVER^THE^LAZY^DOG"a\$=a\$+"^^the^quick^brown^fox^jumps^over^the^lazy^dog^^"LoadFont()s=.45h=2.5w=0m=640ang=pi/180open window 640,512repeat    setdrawbuf vm    vm=1-vm    setdispbuf vm    clear window    c=peek("port1")    if c=16 s=s+.01    if c=64 s=s-.01    if c=128 w=w-.01    if c=32 w=w+.01    if w<0 w=0    x=40*s    for a=1 to len(a\$)    if x+m+(CharacterWidth*s)>50 and x+m+(CharacterWidth*s)<640 then    PrintCharacter(mid\$(a\$,a,1), x+m, y,s)    endif    if m<-(len(a\$)*40*s) m=640    x=x+(CharacterWidth*s)    next a    m=m-1until (1=0)    sub LoadFont()    MAX_CHARACTERS = 256    dim Start(MAX_CHARACTERS) // holds first line number to index    dim Count(MAX_CHARACTERS) // holds the number of lines to draw    dim x1(1), y1(1), x2(1), y2(1) // array of lines    read NumCharacters    read CharacterWidth    read CharacterHeight    TotalLines = 1    for ch = 1 to NumCharacters        read Ascii\$   // the character to use        read NumLines // the number of lines to draw        Ascii = asc(Ascii\$)        Start(Ascii) = TotalLines        Count(Ascii) = NumLines        for l = 1 to NumLines            redim x1(TotalLines), y1(TotalLines)            redim x2(TotalLines), y2(TotalLines)            read x1(TotalLines), y1(TotalLines)            read x2(TotalLines), y2(TotalLines)            TotalLines = TotalLines + 1        next l    next chend subsub PrintCharacter(char\$, x, y, s)    ch = asc(mid\$(char\$,1,1))    for i=Start(ch) to Start(ch)+Count(ch)-1        z=(y1(i)-y)*w        z1=(y2(i)-y)*w        y=sin((x+m)*ang)*200*s+300        line x+x1(i)*s-z, y+y1(i)*s*h to x+x2(i)*s-z1, y+y2(i)*s*h     next iend subdata 69// NumCharactersdata 40 // CharacterWidthdata 60 // CharacterHeightdata "A", 3data -18, 00, 00,-40data  00,-40, 18, 00data -13,-11, 13,-11data "B", 10data -17, 00, -17,-40data -17, 00,  07, 00data -17,-20,  07,-20data -17,-40,  07,-40data  12,-35,  12,-25data  12,-15,  12,-05data  07,-40,  12,-35data  07,-20,  12,-25data  07,-20,  12,-15data  07, 00,  12,-05data "C", 7data -15,-05, -15,-35data -10, 00,  10, 00data -10,-40,  10,-40data -15,-35, -10,-40data -15,-05, -10, 00data  10,-40,  15,-35data  10, 00,  15,-05data "D", 6data -15,-40, -15, 00data -15,-40,  07,-40data -15, 00,  07, 00data  12,-35,  12,-05data  07,-40,  12,-35data  07, 00,  12,-05data "E", 4data -17, 00, -17,-40data -17,-40,  15,-40data -17, 00,  15, 00data -17,-20,  12,-20data "F", 3data -17, 00, -17,-40data -17,-40,  17,-40data -17,-20,  10,-20data "G", 10data -17,-35, -17,-05data -12,-40,  12,-40data -12, 00,  12, 00data  17,-05,  17,-20data  17,-35,  17,-30data  17,-20,  07,-20data -17,-35, -12,-40data -17,-05, -12, 00data  12,-40,  17,-35data  12, 00,  17,-05data "H", 3data -15, 00, -15,-40data  15, 00,  15,-40data -15,-20,  15,-20data "I", 3data  00, 00,  00,-40data -10, 00,  10, 00data -10,-40,  10,-40data "J", 5data  00,-40,  00,-05data -10,-40,  10,-40data -17,-05, -12, 00data  00,-05, -05, 00data -05, 00, -12, 00data "K", 3data -15, 00, -15,-40data  15,-40, -15,-15data  15, 00, -10,-18data "L", 2data -15, 00, -15,-40data -15, 00,  10, 00data "M", 4data -17, 00, -17,-40data  17, 00,  17,-40data -17,-40,  00, 00data  17,-40,  00, 00data "N", 3data -15, 00, -15,-40data -15,-40,  15, 00data  15, 00,  15,-40data "O", 8data -15,-05, -15,-35data  15,-05,  15,-35data -10,-40,  10,-40data -10, 00,  10, 00data -15,-35, -10,-40data -15,-05, -10, 00data  15,-35,  10,-40data  15,-05,  10, 00data "P", 6data -17, 00, -17,-40data -17,-40,  10,-40data -17,-15,  10,-15data  15,-35,  15,-20data  10,-40,  15,-35data  10,-15,  15,-20data "Q", 9data -15,-05, -15,-35data  15,-05,  15,-35data -10,-40,  10,-40data -10, 00,  10, 00data -15,-35, -10,-40data -15,-05, -10, 00data  15,-35,  10,-40data  15,-05,  10, 00data  15, 00,  05,-10data "R", 7data -17, 00, -17,-40data -17,-40,  10,-40data -17,-15,  10,-15data  15,-35,  15,-20data  10,-40,  15,-35data  10,-15,  15,-20data  17, 00,  05,-15data "S", 11data -12, 00,  12, 00data -12,-20,  12,-20data -12,-40,  12,-40data -17,-25, -17,-35data  17,-05,  17,-15data -17,-35, -12,-40data -17,-05, -12, 00data  17,-35,  12,-40data  17,-05,  12, 00data -17,-25, -12,-20data  17,-15,  12,-20data "T", 2data  00, 00,  00,-40data -15,-40,  15,-40data "U", 5data -15,-05, -15,-40data -15,-05, -10, 00data -10, 00,  10, 00data  10, 00,  15,-05data  15,-05,  15,-40data "V", 2data -17,-40,  00, 00data  00, 00,  17,-40data "W", 4data -20,-40, -10, 00data -10, 00,  00,-40data  00,-40,  10, 00data  10, 00,  20,-40data "X", 2 data -15,-40,  15, 00data -15, 00,  15,-40data "Y", 3data -15,-40, 00,-15data  15,-40, 00,-15data  00,-15, 00, 00data "Z", 3data -15,-40,  15,-40data  15,-40, -15, 00data -15, 00,  15, 00data "?", 12data -07,-40, 07,-40data -07,-40,-12,-35data  07,-40, 12,-35data  12,-35, 12,-25data  12,-25, 07,-20data  07,-20, 05,-20data  05,-20, 00,-15data  00,-15, 00,-07data -01,-02, 01, 00data -01, 00, 01,-02data  00, 00, 00,-02data -01,-01, 01,-01data ".", 4data -01,-02, 01, 00data -01, 00, 01,-02data  00, 00, 00,-02data -01,-01, 01,-01data "!", 5data  00,-07, 00,-40data -01,-02, 01, 00data -01, 00, 01,-02data  00, 00, 00,-02data -01,-01, 01,-01data "-", 1data -07,-20, 07,-20data "'", 6data -01,-40, 01,-38data -01,-38, 01,-40data  00,-38, 00,-38data -01,-39, 01,-39data -01,-38,-02,-35data -02,-35, 01,-38data ",", 6data -01,-02, 01, 00data -01, 00, 01,-02data  00, 00, 00, 00data -01,-01, 01,-01data -01, 00,-02, 03data -02, 03, 01, 00data "1", 3data  00, 00, 00,-40data  00,-40,-05,-35data -05, 00, 05, 00data "2", 9data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-22data  15,-22, 10,-17data  10,-17,-10,-17data -10,-17,-15,-12data -15,-12,-15, 00data -15, 00, 15, 00data  "3",11data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-25data  15,-25, 10,-20data  10,-20, 15,-15data  15,-15, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data  00,-20, 10,-20data  "4", 4data  07, 00, 07,-40data  07,-40,-15,-15data -15,-15,-15,-10data -15,-10, 17,-10data "5", 8data  15,-40,-15,-40data -15,-40,-15,-22data -15,-22, 10,-22data  10,-22, 15,-17data  15,-17, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "6",11data  15,-35, 10,-40data  10,-40,-10,-40data -10,-40,-15,-35data -15,-35,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15,-05, 15,-17data  15,-17, 10,-22data  10,-22,-10,-22data -10,-22,-15,-15data "7", 2data -15,-40, 15,-40data  15,-40,-02, 00data "8",15data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-25data  15,-25, 10,-20data  10,-20, 15,-15data  15,-15, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data -15,-05,-15,-15data -15,-15,-10,-20data -10,-20,-15,-25data -15,-25,-15,-35data -10,-20, 10,-20data "9",11data  15,-22,10,-17data  10,-17,-10,-17data -10,-17,-15,-22data -15,-22,-15,-35data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "0", 9data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data -15,-05,-15,-35data -10,-40, 10, 00data "a",12data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15,-05data  15,-05, 20, 00data  15,-12, 10,-17data  10,-17,-10,-17data -10,-17,-15,-12data -15,-12,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data "b", 10data -10,-40,-15,-35data -15,-35,-15,-05data -15,-05,-20, 00data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "c", 7data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data "d",10data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  10,-40, 15,-35data  15,-35, 15,-05data  15,-05, 20, 00data "e", 9data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data -15,-05,-15,-20data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15,-12data  15,-12,-15,-12data "f", 5data  15,-35, 10,-40data  10,-40, 00,-40data  00,-40,-05,-35data -05,-35,-05, 00data -15,-20, 05,-20data "g",11data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15,-20, 15, 10data  15, 10, 10, 15data  10, 15,-10, 15data -10, 15,-15, 10data "h", 6data -10,-40,-15,-35data -15,-35,-15, 00data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15, 00data "i", 5data  00, 00, 00,-25data -01,-32, 01,-30data -01,-30, 01,-32data  00,-30, 00,-32data -01,-31, 01,-31data "j", 9data  00, 00, 00,-25data  00,-25, 00, 10data  00, 10,-05, 15data -05, 15,-10, 15data -10, 15,-15, 10data -01,-32, 01,-30data -01,-30, 01,-32data  00,-30, 00,-32data -01,-31, 01,-31data "k", 4data -10,-40,-15,-35data -15,-35,-15, 00data  10,-25,-15,-10data  10, 00,-08,-14data "l", 2data  00,-40,-05,-35data -05,-35,-05, 00data "m", 9data -15,-25,-15, 00data -15,-20,-10,-25data -10,-25,-05,-25data -05,-25, 00,-20data  00,-20, 00, 00data  00,-20, 05,-25data  05,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15, 00data "n",5data -15,-25,-15, 00data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15, 00data "o", 8data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15,-05, 15,-20data "p", 8data -15,-25,-15, 20data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "q", 8data  15,-25, 15, 20data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data "r", 4data -15,-25,-15, 00data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data "s",11data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-18data -15,-18,-10,-13data -10,-13, 10,-13data  10,-13, 15,-10data  15,-10, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "t", 3data -05,-40,-05,-05data -05,-05, 00, 00data -10,-25, 05,-25data "u", 5data -15,-25,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15, 00, 15,-25data "v", 2data -13,-25, 00, 00data  00, 00, 13,-25data "w", 4data -15,-25,-08, 00data -08, 00, 00,-25data  00,-25, 08, 00data  08, 00, 15,-25data "x", 2data -10,-25, 10, 00data -10, 00, 10,-25data "y", 8data -15,-25,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15,-25, 15, 10data  15, 10, 10, 15data  10, 15,-10, 15data -10, 15,-15, 10data "z", 3data -13,-25, 13,-25data  13,-25,-13, 00data -13, 00, 13, 00data "^",28data -04,-35, 04,-35data  04,-35, 11,-31data  11,-31, 15,-24data  15,-24, 15,-16data  15,-16, 11,-09data  11,-09, 04,-05data  04,-05,-04,-05data -04,-05,-11,-09data -11,-09,-15,-16data -15,-16,-15,-24data -15,-24,-11,-31data -11,-31,-04,-35data -06,-26,-04,-26data -07,-25,-03,-25data -08,-24,-02,-24data -08,-23,-02,-23data -07,-22,-03,-22data -06,-21,-04,-21data  04,-26, 06,-26data  03,-25, 07,-25data  02,-24, 08,-24data  02,-23, 08,-23data  03,-22, 07,-22data  04,-21, 06,-21data -09,-17,-06,-14data -06,-14, 00,-12 data  00,-12, 06,-14data  06,-14, 09,-17`

11
##### Yabasic / Re: TEXT SIZING
« on: June 11, 2011 »
Sorry. I guess I meant, I wanted to activate my smiley with the word 'smiley'
and have just the smiley face come up.
Instead of the smiley face and the letters 'miley' come up after it.

12
##### Yabasic / Re: TEXT SIZING
« on: June 10, 2011 »
Thanks. That was fun.

I also did this.

Code: [Select]
`data "^",28data -04,-35, 04,-35data  04,-35, 11,-31data  11,-31, 15,-24data  15,-24, 15,-16data  15,-16, 11,-09data  11,-09, 04,-05data  04,-05,-04,-05data -04,-05,-11,-09data -11,-09,-15,-16data -15,-16,-15,-24data -15,-24,-11,-31data -11,-31,-04,-35data -06,-26,-04,-26data -07,-25,-03,-25data -08,-24,-02,-24data -08,-23,-02,-23data -07,-22,-03,-22data -06,-21,-04,-21data  04,-26, 06,-26data  03,-25, 07,-25data  02,-24, 08,-24data  02,-23, 08,-23data  03,-22, 07,-22data  04,-21, 06,-21data -09,-17,-06,-14data -06,-14, 00,-12 data  00,-12, 06,-14data  06,-14, 09,-17`
It makes a smiley face.

I tried "smiley" instead of "^" and the 's' was replaced with the characters of 'smiley'.
Is it possible to have the characters disappear?

13
##### Yabasic / Re: TEXT SIZING
« on: June 10, 2011 »
With a couple more lines and a little alteration, I now have Italics.

Code: [Select]
`a\$="THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"a\$=a\$+" the quick brown fox jumps over the lazy dog  "LoadFont()s=1h=2w=0.4m=640open window 640,512x=40*sy=60*s+200repeat    setdrawbuf vm    vm=1-vm    setdispbuf vm    clear window    c=peek("port1")    if c=16 s=s+.01    if c=64 s=s-.01    if c=128 w=w-.01    if c=32 w=w+.01    if w<0 w=0    x=20*s    for a=1 to len(a\$)    PrintCharacter(mid\$(a\$,a,1), x+m, y,s)    x=x+(CharacterWidth*s)    next a    m=m-2if m<-(len(a\$)*40*s) m=640until (1=0)    sub LoadFont()    MAX_CHARACTERS = 256    dim Start(MAX_CHARACTERS) // holds first line number to index    dim Count(MAX_CHARACTERS) // holds the number of lines to draw    dim x1(1), y1(1), x2(1), y2(1) // array of lines    read NumCharacters    read CharacterWidth    read CharacterHeight    TotalLines = 1    for ch = 1 to NumCharacters        read Ascii\$   // the character to use        read NumLines // the number of lines to draw        Ascii = asc(Ascii\$)        Start(Ascii) = TotalLines        Count(Ascii) = NumLines        for l = 1 to NumLines            redim x1(TotalLines), y1(TotalLines)            redim x2(TotalLines), y2(TotalLines)            read x1(TotalLines), y1(TotalLines)            read x2(TotalLines), y2(TotalLines)            TotalLines = TotalLines + 1        next l    next chend subsub PrintCharacter(char\$, x, y, s)    ch = asc(mid\$(char\$,1,1))    for i=Start(ch) to Start(ch)+Count(ch)-1        z=(y1(i)-y)*w        z1=(y2(i)-y)*w        line x+x1(i)*s-z, y+y1(i)*s*h to x+x2(i)*s-z1, y+y2(i)*s*h '        line x+x1(i)*s, y+y1(i)*s*h to x+x2(i)*s, y+y2(i)*s*h    next iend subdata 68// NumCharactersdata 40 // CharacterWidthdata 60 // CharacterHeightdata "A", 3data -18, 00, 00,-40data  00,-40, 18, 00data -13,-11, 13,-11data "B", 10data -17, 00, -17,-40data -17, 00,  07, 00data -17,-20,  07,-20data -17,-40,  07,-40data  12,-35,  12,-25data  12,-15,  12,-05data  07,-40,  12,-35data  07,-20,  12,-25data  07,-20,  12,-15data  07, 00,  12,-05data "C", 7data -15,-05, -15,-35data -10, 00,  10, 00data -10,-40,  10,-40data -15,-35, -10,-40data -15,-05, -10, 00data  10,-40,  15,-35data  10, 00,  15,-05data "D", 6data -15,-40, -15, 00data -15,-40,  07,-40data -15, 00,  07, 00data  12,-35,  12,-05data  07,-40,  12,-35data  07, 00,  12,-05data "E", 4data -17, 00, -17,-40data -17,-40,  15,-40data -17, 00,  15, 00data -17,-20,  12,-20data "F", 3data -17, 00, -17,-40data -17,-40,  17,-40data -17,-20,  10,-20data "G", 10data -17,-35, -17,-05data -12,-40,  12,-40data -12, 00,  12, 00data  17,-05,  17,-20data  17,-35,  17,-30data  17,-20,  07,-20data -17,-35, -12,-40data -17,-05, -12, 00data  12,-40,  17,-35data  12, 00,  17,-05data "H", 3data -15, 00, -15,-40data  15, 00,  15,-40data -15,-20,  15,-20data "I", 3data  00, 00,  00,-40data -10, 00,  10, 00data -10,-40,  10,-40data "J", 5data  00,-40,  00,-05data -10,-40,  10,-40data -17,-05, -12, 00data  00,-05, -05, 00data -05, 00, -12, 00data "K", 3data -15, 00, -15,-40data  15,-40, -15,-15data  15, 00, -10,-18data "L", 2data -15, 00, -15,-40data -15, 00,  10, 00data "M", 4data -17, 00, -17,-40data  17, 00,  17,-40data -17,-40,  00, 00data  17,-40,  00, 00data "N", 3data -15, 00, -15,-40data -15,-40,  15, 00data  15, 00,  15,-40data "O", 8data -15,-05, -15,-35data  15,-05,  15,-35data -10,-40,  10,-40data -10, 00,  10, 00data -15,-35, -10,-40data -15,-05, -10, 00data  15,-35,  10,-40data  15,-05,  10, 00data "P", 6data -17, 00, -17,-40data -17,-40,  10,-40data -17,-15,  10,-15data  15,-35,  15,-20data  10,-40,  15,-35data  10,-15,  15,-20data "Q", 9data -15,-05, -15,-35data  15,-05,  15,-35data -10,-40,  10,-40data -10, 00,  10, 00data -15,-35, -10,-40data -15,-05, -10, 00data  15,-35,  10,-40data  15,-05,  10, 00data  15, 00,  05,-10data "R", 7data -17, 00, -17,-40data -17,-40,  10,-40data -17,-15,  10,-15data  15,-35,  15,-20data  10,-40,  15,-35data  10,-15,  15,-20data  17, 00,  05,-15data "S", 11data -12, 00,  12, 00data -12,-20,  12,-20data -12,-40,  12,-40data -17,-25, -17,-35data  17,-05,  17,-15data -17,-35, -12,-40data -17,-05, -12, 00data  17,-35,  12,-40data  17,-05,  12, 00data -17,-25, -12,-20data  17,-15,  12,-20data "T", 2data  00, 00,  00,-40data -15,-40,  15,-40data "U", 5data -15,-40, -15,-05data -15,-05, -10, 00data -10, 00,  10, 00data  10, 00,  15,-05data  15,-05,  15,-40data "V", 2data -17,-40,  00, 00data  00, 00,  17,-40data "W", 4data -20,-40, -10, 00data -10, 00,  00,-40data  00,-40,  10, 00data  10, 00,  20,-40data "X", 2 data -15,-40,  15, 00data -15, 00,  15,-40data "Y", 3data -15,-40, 00,-15data  15,-40, 00,-15data  00,-15, 00, 00data "Z", 3data -15,-40,  15,-40data  15,-40, -15, 00data -15, 00,  15, 00data "?", 12data -07,-40, 07,-40data -07,-40,-12,-35data  07,-40, 12,-35data  12,-35, 12,-25data  12,-25, 07,-20data  07,-20, 05,-20data  05,-20, 00,-15data  00,-15, 00,-07data -01,-02, 01, 00data -01, 00, 01,-02data  00, 00, 00,-02data -01,-01, 01,-01data ".", 4data -01,-02, 01, 00data -01, 00, 01,-02data  00, 00, 00,-02data -01,-01, 01,-01data "!", 5data  00,-07, 00,-40data -01,-02, 01, 00data -01, 00, 01,-02data  00, 00, 00,-02data -01,-01, 01,-01data "-", 1data -07,-20, 07,-20data "'", 6data -01,-40, 01,-38data -01,-38, 01,-40data  00,-38, 00,-38data -01,-39, 01,-39data -01,-38,-02,-35data -02,-35, 01,-38data ",", 6data -01,-02, 01, 00data -01, 00, 01,-02data  00, 00, 00, 00data -01,-01, 01,-01data -01, 00,-02, 03data -02, 03, 01, 00data "1", 3data  00, 00, 00,-40data  00,-40,-05,-35data -05, 00, 05, 00data "2", 9data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-22data  15,-22, 10,-17data  10,-17,-10,-17data -10,-17,-15,-12data -15,-12,-15, 00data -15, 00, 15, 00data  "3",11data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-25data  15,-25, 10,-20data  10,-20, 15,-15data  15,-15, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data  00,-20, 10,-20data  "4", 4data  07, 00, 07,-40data  07,-40,-15,-15data -15,-15,-15,-10data -15,-10, 17,-10data "5", 8data  15,-40,-15,-40data -15,-40,-15,-22data -15,-22, 10,-22data  10,-22, 15,-17data  15,-17, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "6",11data  15,-35, 10,-40data  10,-40,-10,-40data -10,-40,-15,-35data -15,-35,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15,-05, 15,-17data  15,-17, 10,-22data  10,-22,-10,-22data -10,-22,-15,-15data "7", 2data -15,-40, 15,-40data  15,-40,-02, 00data "8",15data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-25data  15,-25, 10,-20data  10,-20, 15,-15data  15,-15, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data -15,-05,-15,-15data -15,-15,-10,-20data -10,-20,-15,-25data -15,-25,-15,-35data -10,-20, 10,-20data "9",11data  15,-22,10,-17data  10,-17,-10,-17data -10,-17,-15,-22data -15,-22,-15,-35data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "0", 9data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data -15,-05,-15,-35data -10,-40, 10, 00data "a",12data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15,-05data  15,-05, 20, 00data  15,-12, 10,-17data  10,-17,-10,-17data -10,-17,-15,-12data -15,-12,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data "b", 10data -10,-40,-15,-35data -15,-35,-15,-05data -15,-05,-20, 00data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "c", 7data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data "d",10data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  10,-40, 15,-35data  15,-35, 15,-05data  15,-05, 20, 00data "e", 9data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data -15,-05,-15,-20data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15,-12data  15,-12,-15,-12data "f", 5data  15,-35, 10,-40data  10,-40, 00,-40data  00,-40,-05,-35data -05,-35,-05, 00data -15,-20, 05,-20data "g",11data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15,-20, 15, 10data  15, 10, 10, 15data  10, 15,-10, 15data -10, 15,-15, 10data "h", 6data -10,-40,-15,-35data -15,-35,-15, 00data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15, 00data "i", 5data  00, 00, 00,-25data -01,-32, 01,-30data -01,-30, 01,-32data  00,-30, 00,-32data -01,-31, 01,-31data "j", 9data  00, 00, 00,-25data  00,-25, 00, 10data  00, 10,-05, 15data -05, 15,-10, 15data -10, 15,-15, 10data -01,-32, 01,-30data -01,-30, 01,-32data  00,-30, 00,-32data -01,-31, 01,-31data "k", 4data -10,-40,-15,-35data -15,-35,-15, 00data  10,-25,-15,-10data  10, 00,-08,-14data "l", 2data  00,-40,-05,-35data -05,-35,-05, 00data "m", 9data -15,-25,-15, 00data -15,-20,-10,-25data -10,-25,-05,-25data -05,-25, 00,-20data  00,-20, 00, 00data  00,-20, 05,-25data  05,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15, 00data "n",5data -15,-25,-15, 00data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15, 00data "o", 8data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15,-05, 15,-20data "p", 8data -15,-25,-15, 20data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "q", 8data  15,-25, 15, 20data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data "r", 4data -15,-25,-15, 00data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data "s",11data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-18data -15,-18,-10,-13data -10,-13, 10,-13data  10,-13, 15,-10data  15,-10, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "t", 3data -05,-40,-05,-05data -05,-05, 00, 00data -10,-25, 05,-25data "u", 5data -15,-25,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15, 00, 15,-25data "v", 2data -13,-25, 00, 00data  00, 00, 13,-25data "w", 4data -15,-25,-08, 00data -08, 00, 00,-25data  00,-25, 08, 00data  08, 00, 15,-25data "x", 2data -10,-25, 10, 00data -10, 00, 10,-25data "y", 8data -15,-25,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15,-25, 15, 10data  15, 10, 10, 15data  10, 15,-10, 15data -10, 15,-15, 10data "z", 3data -13,-25, 13,-25data  13,-25,-13, 00data -13, 00, 13, 00`
Next , the sine wave thingy.

14
##### Yabasic / Re: TEXT SIZING
« on: June 09, 2011 »
Here's my full alphabet font, upper and lower case.

the height can be stretched separately. (h)

Code: [Select]
`a\$="abcdefghijklmnopqrstuvwxyz?A"LoadFont()s=1h=2m=640open window 640,512x=40*sy=60*s+200repeat    setdrawbuf vm    vm=1-vm    setdispbuf vm    clear window    c=peek("port1")    if c=16 s=s+.01    if c=64 s=s-.01    x=20*s    for a=1 to len(a\$)    PrintCharacter(mid\$(a\$,a,1), x+m, y,s)    x=x+(CharacterWidth*s)'x=x+(40*s)    next a    m=m-2if m<-(len(a\$)*40*s) m=640until (1=0)// ==================// Binary Data Format// ==================//// data NumCharacters// data CharacterWidth// data CharacterHeight// for (NumCharacters) {//     data ascii, NumLines//     for (NumLines) {//          data x1, y1, x2, y2//     }// }sub LoadFont()    MAX_CHARACTERS = 256    dim Start(MAX_CHARACTERS) // holds first line number to index    dim Count(MAX_CHARACTERS) // holds the number of lines to draw    dim x1(1), y1(1), x2(1), y2(1) // array of lines    read NumCharacters    read CharacterWidth    read CharacterHeight    TotalLines = 1    for ch = 1 to NumCharacters        read Ascii\$   // the character to use        read NumLines // the number of lines to draw        Ascii = asc(Ascii\$)        Start(Ascii) = TotalLines        Count(Ascii) = NumLines        for l = 1 to NumLines            redim x1(TotalLines), y1(TotalLines)            redim x2(TotalLines), y2(TotalLines)            read x1(TotalLines), y1(TotalLines)            read x2(TotalLines), y2(TotalLines)            TotalLines = TotalLines + 1        next l    next chend subsub PrintCharacter(char\$, x, y, s)    ch = asc(mid\$(char\$,1,1))    for i=Start(ch) to Start(ch)+Count(ch)-1        line x+x1(i)*s, y+y1(i)*s*h to x+x2(i)*s, y+y2(i)*s*h    next iend sub// ==================// Binary Data Format// ==================//// data NumCharacters// data CharacterWidth// data CharacterHeight// for (NumCharacters) {//     data ascii, NumLines//     for (NumLines) {//          data x1, y1, x2, y2//     }// }data 66// NumCharactersdata 40 // CharacterWidthdata 60 // CharacterHeightdata "A", 3data -18, 00, 00,-40data  00,-40, 18, 00data -13,-11, 13,-11data "B", 10data -17, 00, -17,-40data -17, 00,  07, 00data -17,-20,  07,-20data -17,-40,  07,-40data  12,-35,  12,-25data  12,-15,  12,-05data  07,-40,  12,-35data  07,-20,  12,-25data  07,-20,  12,-15data  07, 00,  12,-05data "C", 7data -15,-05, -15,-35data -10, 00,  10, 00data -10,-40,  10,-40data -15,-35, -10,-40data -15,-05, -10, 00data  10,-40,  15,-35data  10, 00,  15,-05data "D", 6data -15,-40, -15, 00data -15,-40,  07,-40data -15, 00,  07, 00data  12,-35,  12,-05data  07,-40,  12,-35data  07, 00,  12,-05data "E", 4data -17, 00, -17,-40data -17,-40,  15,-40data -17, 00,  15, 00data -17,-20,  12,-20data "F", 3data -17, 00, -17,-40data -17,-40,  17,-40data -17,-20,  10,-20data "G", 10data -17,-35, -17,-05data -12,-40,  12,-40data -12, 00,  12, 00data  17,-05,  17,-20data  17,-35,  17,-30data  17,-20,  07,-20data -17,-35, -12,-40data -17,-05, -12, 00data  12,-40,  17,-35data  12, 00,  17,-05data "H", 3data -15, 00, -15,-40data  15, 00,  15,-40data -15,-20,  15,-20data "I", 3data  00, 00,  00,-40data -10, 00,  10, 00data -10,-40,  10,-40data "J", 5data  00,-40,  00,-05data -10,-40,  10,-40data -17,-05, -12, 00data  00,-05, -05, 00data -05, 00, -12, 00data "K", 3data -15, 00, -15,-40data  15,-40, -15,-15data  15, 00, -10,-18data "L", 2data -15, 00, -15,-40data -15, 00,  10, 00data "M", 4data -17, 00, -17,-40data  17, 00,  17,-40data -17,-40,  00, 00data  17,-40,  00, 00data "N", 3data -15, 00, -15,-40data -15,-40,  15, 00data  15, 00,  15,-40data "O", 8data -15,-05, -15,-35data  15,-05,  15,-35data -10,-40,  10,-40data -10, 00,  10, 00data -15,-35, -10,-40data -15,-05, -10, 00data  15,-35,  10,-40data  15,-05,  10, 00data "P", 6data -17, 00, -17,-40data -17,-40,  10,-40data -17,-15,  10,-15data  15,-35,  15,-20data  10,-40,  15,-35data  10,-15,  15,-20data "Q", 9data -15,-05, -15,-35data  15,-05,  15,-35data -10,-40,  10,-40data -10, 00,  10, 00data -15,-35, -10,-40data -15,-05, -10, 00data  15,-35,  10,-40data  15,-05,  10, 00data  15, 00,  05,-10data "R", 7data -17, 00, -17,-40data -17,-40,  10,-40data -17,-15,  10,-15data  15,-35,  15,-20data  10,-40,  15,-35data  10,-15,  15,-20data  17, 00,  05,-15data "S", 11data -12, 00,  12, 00data -12,-20,  12,-20data -12,-40,  12,-40data -17,-25, -17,-35data  17,-05,  17,-15data -17,-35, -12,-40data -17,-05, -12, 00data  17,-35,  12,-40data  17,-05,  12, 00data -17,-25, -12,-20data  17,-15,  12,-20data "T", 2data  00, 00,  00,-40data -15,-40,  15,-40data "U", 5data -15,-40, -15,-05data -15,-05, -10, 00data -10, 00,  10, 00data  10, 00,  15,-05data  15,-05,  15,-40data "V", 2data -17,-40,  00, 00data  00, 00,  17,-40data "W", 4data -20,-40, -10, 00data -10, 00,  00,-40data  00,-40,  10, 00data  10, 00,  20,-40data "X", 2 data -15,-40,  15, 00data -15, 00,  15,-40data "Y", 3data -15,-40, 00,-15data  15,-40, 00,-15data  00,-15, 00, 00data "Z", 3data -15,-40,  15,-40data  15,-40, -15, 00data -15, 00,  15, 00data "?", 12data -07,-40, 07,-40data -07,-40,-12,-35data  07,-40, 12,-35data  12,-35, 12,-25data  12,-25, 07,-20data  07,-20, 05,-20data  05,-20, 00,-15data  00,-15, 00,-07data -01,-02, 01, 00data -01, 00, 01,-02data  00, 00, 00,-02data -01,-01, 01,-01data ".", 4data -01,-02, 01, 00data -01, 00, 01,-02data  00, 00, 00,-02data -01,-01, 01,-01data "!", 5data  00,-07, 00,-40data -01,-02, 01, 00data -01, 00, 01,-02data  00, 00, 00,-02data -01,-01, 01,-01data "-", 1data -07,-20, 07,-20data "'", 6data -01,-40, 01,-38data -01,-38, 01,-40data  00,-38, 00,-38data -01,-39, 01,-39data -01,-38,-02,-35data -02,-35, 01,-38data ",", 6data -01,-02, 01, 00data -01, 00, 01,-02data  00, 00, 00, 00data -01,-01, 01,-01data -01, 00,-02, 03data -02, 03, 01, 00data "1", 3data  00, 00, 00,-40data  00,-40,-05,-35data -05, 00, 05, 00data "2", 9data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-22data  15,-22, 10,-17data  10,-17,-10,-17data -10,-17,-15,-12data -15,-12,-15, 00data -15, 00, 15, 00data  "3",11data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-25data  15,-25, 10,-20data  10,-20, 15,-15data  15,-15, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data  00,-20, 10,-20data  "4", 4data  07, 00, 07,-40data  07,-40,-15,-15data -15,-15,-15,-10data -15,-10, 17,-10data "5", 8data  15,-40,-15,-40data -15,-40,-15,-22data -15,-22, 10,-22data  10,-22, 15,-17data  15,-17, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "6",11data  15,-35, 10,-40data  10,-40,-10,-40data -10,-40,-15,-35data -15,-35,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15,-05, 15,-17data  15,-17, 10,-22data  10,-22,-10,-22data -10,-22,-15,-15data "7", 2data -15,-40, 15,-40data  15,-40,-02, 00data "8",15data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-25data  15,-25, 10,-20data  10,-20, 15,-15data  15,-15, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data -15,-05,-15,-15data -15,-15,-10,-20data -10,-20,-15,-25data -15,-25,-15,-35data -10,-20, 10,-20data "9",11data  15,-22,10,-17data  10,-17,-10,-17data -10,-17,-15,-22data -15,-22,-15,-35data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "0", 9data -15,-35,-10,-40data -10,-40, 10,-40data  10,-40, 15,-35data  15,-35, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data -15,-05,-15,-35data -10,-40, 10, 00data "a",12data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15,-05data  15,-05, 20, 00data  15,-12, 10,-17data  10,-17,-10,-17data -10,-17,-15,-12data -15,-12,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data "b", 10data -10,-40,-15,-35data -15,-35,-15,-05data -15,-05,-20, 00data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "c", 7data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data "d",10data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  10,-40, 15,-35data  15,-35, 15,-05data  15,-05, 20, 00data "e", 9data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data -15,-05,-15,-20data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15,-12data  15,-12,-15,-12data "f", 5data  15,-35, 10,-40data  10,-40, 00,-40data  00,-40,-05,-35data -05,-35,-05, 00data -15,-20, 05,-20data "g",11data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15,-20, 15, 10data  15, 10, 10, 15data  10, 15,-10, 15data -10, 15,-15, 10data "h", 6data -10,-40,-15,-35data -15,-35,-15, 00data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15, 00data "i", 5data  00, 00, 00,-25data -01,-32, 01,-30data -01,-30, 01,-32data  00,-30, 00,-32data -01,-31, 01,-31data "j", 9data  00, 00, 00,-25data  00,-25, 00, 10data  00, 10,-05, 15data -05, 15,-10, 15data -10, 15,-15, 10data -01,-32, 01,-30data -01,-30, 01,-32data  00,-30, 00,-32data -01,-31, 01,-31data "k", 4data -10,-40,-15,-35data -15,-35,-15, 00data  10,-25,-15,-10data  10, 00,-08,-14data "l", 2data  00,-40,-05,-35data -05,-35,-05, 00data "m", 9data -15,-25,-15, 00data -15,-20,-10,-25data -10,-25,-05,-25data -05,-25, 00,-20data  00,-20, 00, 00data  00,-20, 05,-25data  05,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15, 00data "n",5data -15,-25,-15, 00data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15, 00data "o", 8data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15,-05, 15,-20data "p", 8data -15,-25,-15, 20data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data  15,-20, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "q", 8data  15,-25, 15, 20data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data "r", 4data -15,-25,-15, 00data -15,-20,-10,-25data -10,-25, 10,-25data  10,-25, 15,-20data "s",11data  15,-20, 10,-25data  10,-25,-10,-25data -10,-25,-15,-20data -15,-20,-15,-18data -15,-18,-10,-13data -10,-13, 10,-13data  10,-13, 15,-10data  15,-10, 15,-05data  15,-05, 10, 00data  10, 00,-10, 00data -10, 00,-15,-05data "t", 3data -05,-40,-05,-05data -05,-05, 00, 00data -10,-25, 05,-25data "u", 5data -15,-25,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15, 00, 15,-25data "v", 2data -13,-25, 00, 00data  00, 00, 13,-25data "w", 4data -15,-25,-08, 00data -08, 00, 00,-25data  00,-25, 08, 00data  08, 00, 15,-25data "x", 2data -10,-25, 10, 00data -10, 00, 10,-25data "y", 8data -15,-25,-15,-05data -15,-05,-10, 00data -10, 00, 10, 00data  10, 00, 15,-05data  15,-25, 15, 10data  15, 10, 10, 15data  10, 15,-10, 15data -10, 15,-15, 10data "z", 3data -13,-25, 13,-25data  13,-25,-13, 00data -13, 00, 13, 00`
The font will do for now. I'll do something with it later.

15
##### Yabasic / Re: TEXT SIZING
« on: June 06, 2011 »
Whew! I got the data version to scroll and realized the font sizing wasn't working.

I worked out where and how to fit the multiplier [*s] - I think I understand why the coding is correct.

before - line x+x1(i), y+y1(i) to x+x2(i), y+y2(i)

after - line m+x+x1(i)*s, y+y1(i)*s to m+x+x2(i)*s, y+y2(i)*s

rain_storm, you also shortened my letter scrambler. should have seen my first draft. Thanks again.

16
##### Yabasic / Re: TEXT SIZING
« on: June 06, 2011 »
Oh my god!

There was a lot more than what could be seen here in rain_storms data version.

I never tried to paste it.

I'd be years to understand how the data is retrieved.

It LOOKS a lot harder than the very simple stuff I've tried.

Thanks rain_storm. I'll see if I can add the scroll.

17
##### Yabasic / Re: TEXT SIZING
« on: June 05, 2011 »

I never did pursue it, back then, because I couldn't.
What could be done with the code was mind-blowing.
Even now.

but I did manage to scroll it.

Code: [Select]
`a\$="to the people at dbf interactive, thanks and more thanks for their tenacity"s=1open window 640,512x=20*sy=60*s+200repeatsetdrawbuf vmvm=1-vmsetdispbuf vmclear windowc=peek("port1")if c=16 s=s+.01if c=64 s=s-.01x=20*sfor a=1 to len(a\$)if  mid\$(a\$,a,1)="a" thenline m+x-(18*s),y to m+x,y-(40*s)line m+x,y-(40*s) to m+x+(18*s),yline m+x-(13*s),y-(11*s) to m+x+(13*s),y-(11*s)endifif mid\$(a\$,a,1)="b" thenline m+x-(17*s),y to m+x-(17*s),y-(40*s)line m+x-(17*s),y to m+x+(7*s),yline m+x-(17*s),y-(20*s) to m+x+(7*s),y-(20*s)line m+x-(17*s),y-(40*s) to m+x+(7*s),y-(40*s)line m+x+(12*s),y-(35*s) to m+x+(12*s),y-(25*s)line m+x+(12*s),y-(15*s) to m+x+(12*s),y-(5*s)line m+x+(7*s),y-(40*s) to m+x+(12*s),y-(35*s)line m+x+(7*s),y-(20*s) to m+x+(12*s),y-(25*s)line m+x+(7*s),y-(20*s) to m+x+(12*s),y-(15*s)line m+x+(7*s),y to m+x+(12*s),y-(5*s)endifif mid\$(a\$,a,1)="c" thenline m+x-(15*s),y-(5*s) to m+x-(15*s),y-(35*s)line m+x-(10*s),y to m+x+(10*s),yline m+x-(10*s),y-(40*s) to m+x+(10*s),y-(40*s)line m+x-(15*s),y-(35*s) to m+x-(10*s),y-(40*s)line m+x-(15*s),y-(5*s) to m+x-(10*s),yline m+x+(10*s),y-(40*s) to m+x+(15*s),y-(35*s)line m+x+(10*s),y to m+x+(15*s),y-(5*s)endifif mid\$(a\$,a,1)="d" thenline m+x-(15*s),y-(40*s) to m+x-(15*s),yline m+x-(15*s),y-(40*s) to m+x+(7*s),y-(40*s)line m+x-(15*s),y to m+x+(7*s),yline m+x+(12*s),y-(35*s) to m+x+(12*s),y-(5*s)line m+x+(7*s),y-(40*s) to m+x+(12*s),y-(35*s)line m+x+(7*s),y to m+x+(12*s),y-(5*s)endifif mid\$(a\$,a,1)="e" thenline m+x-(17*s),y to m+x-(17*s),y-(40*s)line m+x-(17*s),y-(40*s) to m+x+(15*s),y-(40*s)line m+x-(17*s),y to m+x+(15*s),yline m+x-(17*s),y-(20*s) to m+x+(12*s),y-(20*s)endifif mid\$(a\$,a,1)="f" thenline m+x-(17*s),y to m+x-(17*s),y-(40*s)line m+x-(17*s),y-(40*s) to m+x+(17*s),y-(40*s)line m+x-(17*s),y-(20*s) to m+x+(10*s),y-(20*s)endifif mid\$(a\$,a,1)="g" thenline m+x-(17*s),y-(35*s) to m+x-(17*s),y-(5*s)line m+x-(12*s),y-(40*s) to m+x+(12*s),y-(40*s)line m+x-(12*s),y to m+x+(12*s),yline m+x+(17*s),y-(5*s) to m+x+(17*s),y-(20*s)line m+x+(17*s),y-(35*s) to m+x+(17*s),y-(30*s)line m+x+(17*s),y-(20*s) to m+x+(7*s),y-(20*s)line m+x-(17*s),y-(35*s) to m+x-(12*s),y-(40*s)line m+x-(17*s),y-(5*s) to m+x-(12*s),yline m+x+(12*s),y-(40*s) to m+x+(17*s),y-(35*s)line m+x+(12*s),y to m+x+(17*s),y-(5*s)endifif mid\$(a\$,a,1)="h" thenline m+x-(15*s),y to m+x-(15*s),y-(40*s)line m+x+(15*s),y to m+x+(15*s),y-(40*s)line m+x-(15*s),y-(20*s) to m+x+(15*s),y-(20*s)endifif mid\$(a\$,a,1)="i" thenline m+x,y to m+x,y-(40*s)line m+x-(10*s),y to m+x+(10*s),yline m+x-(10*s),y-(40*s) to m+x+(10*s),y-(40*s)endifif mid\$(a\$,a,1)="j" thenline m+x,y-(40*s) to m+x,y-(5*s)line m+x-(10*s),y-(40*s) to m+x+(10*s),y-(40*s)line m+x-(17*s),y-(5*s) to m+x-(12*s),yline m+x,y-(5*s) to m+x-(5*s),yline m+x-(5*s),y to m+x-(12*s),yendifif mid\$(a\$,a,1)="k" thenline m+x-(15*s),y to m+x-(15*s),y-(40*s)line m+x+(15*s),y-(40*s) to m+x-(15*s),y-(15*s)line m+x+(15*s),y to m+x-(10*s),y-(18*s)endifif mid\$(a\$,a,1)="l" thenline m+x-(15*s),y to m+x-(15*s),y-(40*s)line m+x-(15*s),y to m+x+(10*s),yendifif mid\$(a\$,a,1)="m" thenline m+x-(17*s),y to m+x-(17*s),y-(40*s)line m+x+(17*s),y to m+x+(17*s),y-(40*s)line m+x-(17*s),y-(40*s) to m+x,yline m+x+(17*s),y-(40*s) to m+x,yendifif mid\$(a\$,a,1)="n" thenline m+x-(15*s),y to m+x-(15*s),y-(40*s)line m+x-(15*s),y-(40*s) to m+x+(15*s),yline m+x+(15*s),y to m+x+(15*s),y-(40*s)endifif mid\$(a\$,a,1)="o" thenline m+x-(15*s),y-(5*s) to m+x-(15*s),y-(35*s)line m+x+(15*s),y-(5*s) to m+x+(15*s),y-(35*s)line m+x-(10*s),y-(40*s) to m+x+(10*s),y-(40*s)line m+x-(10*s),y to m+x+(10*s),yline m+x-(15*s),y-(35*s) to m+x-(10*s),y-(40*s)line m+x-(15*s),y-(5*s) to m+x-(10*s),yline m+x+(15*s),y-(35*s) to m+x+(10*s),y-(40*s)line m+x+(15*s),y-(5*s) to m+x+(10*s),yendifif mid\$(a\$,a,1)="p" thenline m+x-(17*s),y to m+x-(17*s),y-(40*s)line m+x-(17*s),y-(40*s) to m+x+(10*s),y-(40*s)line m+x-(17*s),y-(15*s) to m+x+(10*s),y-(15*s)line m+x+(15*s),y-(35*s) to m+x+(15*s),y-(20*s)line m+x+(10*s),y-(40*s) to m+x+(15*s),y-(35*s)line m+x+(10*s),y-(15*s) to m+x+(15*s),y-(20*s)endifif mid\$(a\$,a,1)="q" thenline m+x-(15*s),y-(5*s) to m+x-(15*s),y-(35*s)line m+x+(15*s),y-(5*s) to m+x+(15*s),y-(35*s)line m+x-(10*s),y-(40*s) to m+x+(10*s),y-(40*s)line m+x-(10*s),y to m+x+(10*s),yline m+x-(15*s),y-(35*s) to m+x-(10*s),y-(40*s)line m+x-(15*s),y-(5*s) to m+x-(10*s),yline m+x+(15*s),y-(35*s) to m+x+(10*s),y-(40*s)line m+x+(15*s),y-(5*s) to m+x+(10*s),yline m+x+(15*s),y to m+x+(5*s),y-(10*s)endifif mid\$(a\$,a,1)="r" thenline m+x-(17*s),y to m+x-(17*s),y-(40*s)line m+x-(17*s),y-(40*s) to m+x+(10*s),y-(40*s)line m+x-(17*s),y-(15*s) to m+x+(10*s),y-(15*s)line m+x+(15*s),y-(35*s) to m+x+(15*s),y-(20*s)line m+x+(10*s),y-(40*s) to m+x+(15*s),y-(35*s)line m+x+(10*s),y-(15*s) to m+x+(15*s),y-(20*s)line m+x+(17*s),y to m+x+(5*s),y-(15*s)endifif mid\$(a\$,a,1)="s" thenline m+x-(12*s),y to m+x+(12*s),yline m+x-(12*s),y-(20*s) to m+x+(12*s),y-(20*s)line m+x-(12*s),y-(40*s) to m+x+(12*s),y-(40*s)line m+x-(17*s),y-(25*s) to m+x-(17*s),y-(35*s)line m+x+(17*s),y-(5*s) to m+x+(17*s),y-(15*s)line m+x-(17*s),y-(35*s) to m+x-(12*s),y-(40*s)line m+x-(17*s),y-(5*s) to m+x-(12*s),yline m+x+(17*s),y-(35*s) to m+x+(12*s),y-(40*s)line m+x+(17*s),y-(5*s) to m+x+(12*s),yline m+x-(17*s),y-(25*s) to m+x-(12*s),y-(20*s)line m+x+(17*s),y-(15*s) to m+x+(12*s),y-(20*s)endifif mid\$(a\$,a,1)="t" thenline m+x,y to m+x,y-(40*s)line m+x-(15*s),y-(40*s) to m+x+(15*s),y-(40*s)endifif mid\$(a\$,a,1)="u" thenline m+x-(15*s),y-(40*s) to m+x-(15*s),y-(5*s)line m+x-(15*s),y-(5*s) to m+x-(10*s),yline m+x-(10*s),y to m+x+(10*s),yline m+x+(10*s),y to m+x+(15*s),y-(5*s)line m+x+(15*s),y-(5*s) to m+x+(15*s),y-(40*s)endifif mid\$(a\$,a,1)="v" thenline m+x-(17*s),y-(40*s) to m+x,yline m+x,y to m+x+(17*s),y-(40*s)endifif mid\$(a\$,a,1)="w" thenline m+x-(20*s),y-(40*s) to m+x-(10*s),yline m+x-(10*s),y to m+x,y-(40*s)line m+x,y-(40*s) to m+x+(10*s),yline m+x+(10*s),y to m+x+(20*s),y-(40*s)endifif mid\$(a\$,a,1)="m+x" thenline m+x-(15*s),y-(40*s) to m+x+(15*s),yline m+x-(15*s),y to m+x+(15*s),y-(40*s)endifif mid\$(a\$,a,1)="y" thenline m+x-(15*s),y-(40*s) to m+x,y-(15*s)line m+x+(15*s),y-(40*s) to m+x,y-(15*s)line m+x,y-(15*s) to m+x,yendifif mid\$(a\$,a,1)="z" thenline m+x-(15*s),y-(40*s) to m+x+(15*s),y-(40*s)line m+x+(15*s),y-(40*s) to m+x-(15*s),yline m+x-(15*s),y to m+x+(15*s),yendifif mid\$(a\$,a,1)="." fill circle m+x-(10*s),y,(2*s)if mid\$(a\$,a,1)="," fill triangle m+x-(10*s),y-(2*s) to m+x-(7*s),y-(2*s) to m+x-(11*s),y+(4*s)x=x+(40*s)next am=m-2if m<-(len(a\$)*40*s) m=640until (1=0)`
hanging in there.

18
##### Yabasic / TEXT SIZING
« on: June 05, 2011 »
Here's something from my archives.

A simple attempt at changing the size of text.
The text sample is a short story.

Use the up/down d-pad to change the size.

Code: [Select]
`a\$="once upon a time there was a king and queen,"a\$=a\$+" and they lived happily ever after."s=1open window 640,512x=20*sy=60*srepeatsetdrawbuf vmvm=1-vmsetdispbuf vmclear windowc=peek("port1")if c=16 s=s+.01if c=64 s=s-.01x=20*sy=60*sfor a=1 to len(a\$)if  mid\$(a\$,a,1)="a" thenline x-(18*s),y to x,y-(40*s)line x,y-(40*s) to x+(18*s),yline x-(13*s),y-(11*s) to x+(13*s),y-(11*s)endifif mid\$(a\$,a,1)="b" thenline x-(17*s),y to x-(17*s),y-(40*s)line x-(17*s),y to x+(7*s),yline x-(17*s),y-(20*s) to x+(7*s),y-(20*s)line x-(17*s),y-(40*s) to x+(7*s),y-(40*s)line x+(12*s),y-(35*s) to x+(12*s),y-(25*s)line x+(12*s),y-(15*s) to x+(12*s),y-(5*s)line x+(7*s),y-(40*s) to x+(12*s),y-(35*s)line x+(7*s),y-(20*s) to x+(12*s),y-(25*s)line x+(7*s),y-(20*s) to x+(12*s),y-(15*s)line x+(7*s),y to x+(12*s),y-(5*s)endifif mid\$(a\$,a,1)="c" thenline x-(15*s),y-(5*s) to x-(15*s),y-(35*s)line x-(10*s),y to x+(10*s),yline x-(10*s),y-(40*s) to x+(10*s),y-(40*s)line x-(15*s),y-(35*s) to x-(10*s),y-(40*s)line x-(15*s),y-(5*s) to x-(10*s),yline x+(10*s),y-(40*s) to x+(15*s),y-(35*s)line x+(10*s),y to x+(15*s),y-(5*s)endifif mid\$(a\$,a,1)="d" thenline x-(15*s),y-(40*s) to x-(15*s),yline x-(15*s),y-(40*s) to x+(7*s),y-(40*s)line x-(15*s),y to x+(7*s),yline x+(12*s),y-(35*s) to x+(12*s),y-(5*s)line x+(7*s),y-(40*s) to x+(12*s),y-(35*s)line x+(7*s),y to x+(12*s),y-(5*s)endifif mid\$(a\$,a,1)="e" thenline x-(17*s),y to x-(17*s),y-(40*s)line x-(17*s),y-(40*s) to x+(15*s),y-(40*s)line x-(17*s),y to x+(15*s),yline x-(17*s),y-(20*s) to x+(12*s),y-(20*s)endifif mid\$(a\$,a,1)="f" thenline x-(17*s),y to x-(17*s),y-(40*s)line x-(17*s),y-(40*s) to x+(17*s),y-(40*s)line x-(17*s),y-(20*s) to x+(10*s),y-(20*s)endifif mid\$(a\$,a,1)="g" thenline x-(17*s),y-(35*s) to x-(17*s),y-(5*s)line x-(12*s),y-(40*s) to x+(12*s),y-(40*s)line x-(12*s),y to x+(12*s),yline x+(17*s),y-(5*s) to x+(17*s),y-(20*s)line x+(17*s),y-(35*s) to x+(17*s),y-(30*s)line x+(17*s),y-(20*s) to x+(7*s),y-(20*s)line x-(17*s),y-(35*s) to x-(12*s),y-(40*s)line x-(17*s),y-(5*s) to x-(12*s),yline x+(12*s),y-(40*s) to x+(17*s),y-(35*s)line x+(12*s),y to x+(17*s),y-(5*s)endifif mid\$(a\$,a,1)="h" thenline x-(15*s),y to x-(15*s),y-(40*s)line x+(15*s),y to x+(15*s),y-(40*s)line x-(15*s),y-(20*s) to x+(15*s),y-(20*s)endifif mid\$(a\$,a,1)="i" thenline x,y to x,y-(40*s)line x-(10*s),y to x+(10*s),yline x-(10*s),y-(40*s) to x+(10*s),y-(40*s)endifif mid\$(a\$,a,1)="j" thenline x,y-(40*s) to x,y-(5*s)line x-(10*s),y-(40*s) to x+(10*s),y-(40*s)line x-(17*s),y-(5*s) to x-(12*s),yline x,y-(5*s) to x-(5*s),yline x-(5*s),y to x-(12*s),yendifif mid\$(a\$,a,1)="k" thenline x-(15*s),y to x-(15*s),y-(40*s)line x+(15*s),y-(40*s) to x-(15*s),y-(15*s)line x+(15*s),y to x-(10*s),y-(18*s)endifif mid\$(a\$,a,1)="l" thenline x-(15*s),y to x-(15*s),y-(40*s)line x-(15*s),y to x+(10*s),yendifif mid\$(a\$,a,1)="m" thenline x-(17*s),y to x-(17*s),y-(40*s)line x+(17*s),y to x+(17*s),y-(40*s)line x-(17*s),y-(40*s) to x,yline x+(17*s),y-(40*s) to x,yendifif mid\$(a\$,a,1)="n" thenline x-(15*s),y to x-(15*s),y-(40*s)line x-(15*s),y-(40*s) to x+(15*s),yline x+(15*s),y to x+(15*s),y-(40*s)endifif mid\$(a\$,a,1)="o" thenline x-(15*s),y-(5*s) to x-(15*s),y-(35*s)line x+(15*s),y-(5*s) to x+(15*s),y-(35*s)line x-(10*s),y-(40*s) to x+(10*s),y-(40*s)line x-(10*s),y to x+(10*s),yline x-(15*s),y-(35*s) to x-(10*s),y-(40*s)line x-(15*s),y-(5*s) to x-(10*s),yline x+(15*s),y-(35*s) to x+(10*s),y-(40*s)line x+(15*s),y-(5*s) to x+(10*s),yendifif mid\$(a\$,a,1)="p" thenline x-(17*s),y to x-(17*s),y-(40*s)line x-(17*s),y-(40*s) to x+(10*s),y-(40*s)line x-(17*s),y-(15*s) to x+(10*s),y-(15*s)line x+(15*s),y-(35*s) to x+(15*s),y-(20*s)line x+(10*s),y-(40*s) to x+(15*s),y-(35*s)line x+(10*s),y-(15*s) to x+(15*s),y-(20*s)endifif mid\$(a\$,a,1)="q" thenline x-(15*s),y-(5*s) to x-(15*s),y-(35*s)line x+(15*s),y-(5*s) to x+(15*s),y-(35*s)line x-(10*s),y-(40*s) to x+(10*s),y-(40*s)line x-(10*s),y to x+(10*s),yline x-(15*s),y-(35*s) to x-(10*s),y-(40*s)line x-(15*s),y-(5*s) to x-(10*s),yline x+(15*s),y-(35*s) to x+(10*s),y-(40*s)line x+(15*s),y-(5*s) to x+(10*s),yline x+(15*s),y to x+(5*s),y-(10*s)endifif mid\$(a\$,a,1)="r" thenline x-(17*s),y to x-(17*s),y-(40*s)line x-(17*s),y-(40*s) to x+(10*s),y-(40*s)line x-(17*s),y-(15*s) to x+(10*s),y-(15*s)line x+(15*s),y-(35*s) to x+(15*s),y-(20*s)line x+(10*s),y-(40*s) to x+(15*s),y-(35*s)line x+(10*s),y-(15*s) to x+(15*s),y-(20*s)line x+(17*s),y to x+(5*s),y-(15*s)endifif mid\$(a\$,a,1)="s" thenline x-(12*s),y to x+(12*s),yline x-(12*s),y-(20*s) to x+(12*s),y-(20*s)line x-(12*s),y-(40*s) to x+(12*s),y-(40*s)line x-(17*s),y-(25*s) to x-(17*s),y-(35*s)line x+(17*s),y-(5*s) to x+(17*s),y-(15*s)line x-(17*s),y-(35*s) to x-(12*s),y-(40*s)line x-(17*s),y-(5*s) to x-(12*s),yline x+(17*s),y-(35*s) to x+(12*s),y-(40*s)line x+(17*s),y-(5*s) to x+(12*s),yline x-(17*s),y-(25*s) to x-(12*s),y-(20*s)line x+(17*s),y-(15*s) to x+(12*s),y-(20*s)endifif mid\$(a\$,a,1)="t" thenline x,y to x,y-(40*s)line x-(15*s),y-(40*s) to x+(15*s),y-(40*s)endifif mid\$(a\$,a,1)="u" thenline x-(15*s),y-(40*s) to x-(15*s),y-(5*s)line x-(15*s),y-(5*s) to x-(10*s),yline x-(10*s),y to x+(10*s),yline x+(10*s),y to x+(15*s),y-(5*s)line x+(15*s),y-(5*s) to x+(15*s),y-(40*s)endifif mid\$(a\$,a,1)="v" thenline x-(17*s),y-(40*s) to x,yline x,y to x+(17*s),y-(40*s)endifif mid\$(a\$,a,1)="w" thenline x-(20*s),y-(40*s) to x-(10*s),yline x-(10*s),y to x,y-(40*s)line x,y-(40*s) to x+(10*s),yline x+(10*s),y to x+(20*s),y-(40*s)endifif mid\$(a\$,a,1)="x" thenline x-(15*s),y-(40*s) to x+(15*s),yline x-(15*s),y to x+(15*s),y-(40*s)endifif mid\$(a\$,a,1)="y" thenline x-(15*s),y-(40*s) to x,y-(15*s)line x+(15*s),y-(40*s) to x,y-(15*s)line x,y-(15*s) to x,yendifif mid\$(a\$,a,1)="z" thenline x-(15*s),y-(40*s) to x+(15*s),y-(40*s)line x+(15*s),y-(40*s) to x-(15*s),yline x-(15*s),y to x+(15*s),yendifif mid\$(a\$,a,1)="." fill circle x-(10*s),y,(2*s)if mid\$(a\$,a,1)="," fill triangle x-(10*s),y-(2*s) to x-(7*s),y-(2*s) to x-11,y+(4*s)x=x+(40*s)if x>500 and mid\$(a\$,a,1)=" " theny=y+(60*s)x=20*sendifnext auntil (1=0)`
Unchanged since I did it.

19
##### Yabasic / Title sample
« on: May 18, 2011 »
This is one from my archives.

They're in such a mess.  No cataloging at all.

My early ideas came from imitating effects I'd seen.

Code: [Select]
`open window 640,512title=1go=1m=1go1=64m1=1stars=250ang=pi/180dir=6dim x(stars),y(stars),z(stars),m(stars),s(stars)for a=1 to starss(a)=ran(.01)x(a)=ran(360) rem degrees used of circlez(a)=ran(410) rem distance from centernext arepeatsetdrawbuf vmvm=1-vmsetdispbuf vmclear windowfor a=1 to starsm(a)=m(a)+s(a)z(a)=z(a)+m(a)if z(a)>410 thens(a)=ran(.01)m(a)=0z(a)=0x(a)=ran(360)endifsetrgb 1,256,256,256fill circle cos(dir*ang*x(a))*z(a)+320,sin(dir*ang*x(a))*z(a)+256,m(a)*1.5next ago=go+mif go<1 m=1if go>128 m=-1if go>128 title=title+1if title>13 title=1setrgb 1,256-(go*2),256-(go*2),256-(go*2)if title=1 text 210,260,"       SPACE . . ."if title=2 text 210,260,"   THE FINAL FRONTIER"if title=3 text 210,260,"      THESE ARE THE"if title=4 text 210,260,"   CONTINUING VOYAGES"if title=5 text 210,260,"     OF BIKEMADNESS."if title=6 text 210,260,"      HIS MISSION,"if title=7 text 210,260," AS HE IS ATTEMPTING IT,"if title=8 text 210,260," IS TO UNDERSTAND ENOUGH"if title=9 text 210,260,"   CODE AND PROGRAMMIMG"if title=10 text 210,260,"     TO REALISE MOST"if title=11 text 210,260,"      OF HIS IDEAS."if title=12 text 210,260," TO FRUITION AND COMPLETION,"if title=13 text 210,260,"WITH NOT TOO MUCH FRUSTRATION."until (1=0)`
I always liked the star field effect.

20
##### Yabasic / Re: Scrolling Shoot 'em Up
« on: May 14, 2011 »
I've done a bit more work.

There is now 400 lines.

Has a title screen.

And DON'T shoot the parachute.

Code: [Select]
`open window 640,512label mainpause.25clear windowshoot=0bullx=heroxbully=heroy-10herox=190heroy=300'a\$="PLAYTHEGAME!"'a\$="PRISONEROFWAR"a\$="SAVETHEHOSTAGES"nos=len(a\$)gap=240/nosdim x(nos),y(nos)for a=1 to nosx(a)=a*gap+185y(a)=220next arepeatsetdrawbuf vmvm=1-vmsetdispbuf vmclear windowsetrgb 1,256,256,256rectangle 180,201 to 459,312herox=herox+.5if herox>450 herox=190shoot=0for a=1 to nostext x(a),y(a),mid\$(a\$,a,1)if herox>x(a)+5 and herox<x(a)+10 shoot=1next aheroy=heroy-1if heroy<300 heroy=300if shoot=1 thenheroy=304bully=bully-8endifif shoot=0 thenbully=heroy-10bullx=heroxendiffor a=1 to nosy(a)=y(a)+.5if y(a)>220 y(a)=220if bullx>x(a) and bullx<x(a)+10 and bully<y(a)+10 thensetrgb 1,256,256,256fill circle x(a)+5,y(a)-2,12setrgb 1,256,0,0fill circle x(a)+5,y(a)-2,10endifif herox>x(a)+5 and herox<x(a)+10 and bully<y(a) y(a)=160next asetrgb 1,0,0,0fill rectangle 180,150 to 460,200fill rectangle 180,312 to 460,362fill rectangle 130,150 to 180,362fill rectangle 460,150 to 510,362setrgb 1,256,256,256fill rectangle bullx-1,bully-2 to bullx+1,bully+2setrgb 1,256,128,0fill triangle herox-5,heroy to herox+5,heroy to herox,heroy-18if hiscore>0 thensetrgb 1,256,256,0text 230,335,"high score is "+str\$(hiscore)endifsetrgb 1,0,150,0text 235,355,"press X to start"setrgb 1,256,0,0text 245,180,"H O S T A G E !"c=peek("port1") until (and(c,16384)>0)rem game setupscore=0bonus1=0bonus2=0fire=0en=0sbomb=0bullet=-6stars=100dim xstar(stars),ystar(stars)dim r(stars),g(stars),b(stars)for a=1 to starsxstar(a)=int(ran(540))+20ystar(a)=int(ran(510))r(a)=ran(156)+100g(a)=ran(156)+100b(a)=ran(156)+100next abullets=6dim bulletx(bullets),bullety(bullets),fire(bullets)for a=1 to bulletsbulletx(a)=shipxbullety(a)=shipy-15fire(a)=0next ashipx=320shipy=510ships=10enemy=10dim enx(enemy),eny(enemy),enm(enemy)dim blow(enemy),go1(enemy),explode(enemy)dim explosionx(enemy),explosiony(enemy)for b=1 to enemyenx(b)=int(ran(27))*20+20eny(b)=ran(512)-500enm(b)=ran(.15)+.07blow(b)=0go1(b)=0explode(b)=0next benfire=2enbullety=eny(enfire)enbulletx=enx(enfire)para=0parachutex=enx(enfire)parachutey=enx(enfire)repeatsetdrawbuf vmvm=1-vmsetdispbuf vmclear windowsetrgb 1,50,50,50setrgb 2,50,50,50setrgb 3,50,50,250gtriangle 0,0 to 580,0 to 580,512setrgb 2,50,50,250gtriangle 0,0 to 580,512 to 0,512for a=1 to starssetrgb 1,r(a),g(a),b(a)fill circle xstar(a),ystar(a),1.2ystar(a)=ystar(a)+.25if ystar(a)>512 ystar(a)=0next ac=peek("port1")rem ship movementif and(c,128)>0 shipx=shipx-5if and(c,32)>0 shipx=shipx+5if shipx<10 shipx=10if shipx>570 shipx=570rem ship remove after hitshipy=shipy-1if shipy<510 shipy=510rem bullet fire and resetgo=go+1if go>7 go=7for a=1 to bulletsif and(c,16384)>0 and go=7 and fire(a)=0 thengo=0shipy=518fire(a)=1endifif fire(a)=1 bullety(a)=bullety(a)-10if bullety(a)<0 bullet=bullet+1if bullety(a)<0 and shipy=510 thenbonus1=0fire(a)=0bullety(a)=shipy-15endifif fire(a)=0 bulletx(a)=shipxfor b=1 to enemyrem enemy fireif enbullety>520 thenenfire=int(ran(b))+1enbullety=eny(enfire)enbulletx=enx(enfire)endifenbullety=enbullety+.03if bulletx(a)>enx(enfire)-8 and bulletx(a)<enx(enfire)+8 and bullety(a)>eny(enfire) and bullety(a)<eny(enfire)+60 para=1if para=1 thensetrgb 1,256,256,256fill circle parachutex,parachutey,10setrgb 1,0,0,parachutey/2fill rectangle parachutex-10,parachutey to parachutex+10,parachutey+10setrgb 1,256,256,256fill rectangle parachutex-1,parachutey+15 to parachutex+1,parachutey+20line parachutex,parachutey+15 to parachutex-10,parachuteyline parachutex,parachutey+15 to parachutex+10,parachuteyline parachutex,parachutey+15 to parachutex-4,parachuteyline parachutex,parachutey+15 to parachutex+4,parachuteyparachutey=parachutey+.05endifif parachutey>512 thenpara=0parachutex=enx(enfire)chute=chute+1endifif para=0 parachutey=eny(enfire)+11rem ship/parachute/bullet collision here'if parachutex>shipx-10 and parachutex<shipx-2 and parachutey>shipy-20 and parachute<shipy-20 chute=chute+1if bulletx(a)>parachutex-10 and bulletx(a)<parachutex+10 and bullety(a)>parachutey-10 and bullety(a)<parachutey thensetrgb 1,256,256,256fill circle parachutex,parachutey,50setrgb 1,128,128,256fill circle parachutex,parachutey,45setrgb 1,0,0,0text 200,255,"DON'T SHOOT THE PARACHUTE"gosub gameendendifrem suicide explosionif eny(b)>509 and eny(b)<512 thensetrgb 1,250,250,250fill circle enx(b),508,28setrgb 1,250,0,0fill circle enx(b),508,25endifrem ship/enemy collisionif abs(enx(b)-shipx)<38 and eny(b)>490 and eny(b)<492 theneny(b)=0ships=ships-1shipy=600'fire(a)=1'bulletx(a)=shipx'bullety(a)=shipy-15setrgb 1,250,250,250fill circle shipx,508,30setrgb 1,50,50,250fill circle shipx,508,27endifrem enemy resetif eny(b)>512 theneny(b)=0enx(b)=int(ran(27))*20+20endifrem ship bullet/enemy collisionrem bonuses:rem 10 sequential hits - extra shiprem 3 of any 10 hits - one smart bombrem smart bomb takes out screen enemyif bulletx(a)>enx(b)-8 and bulletx(a)<enx(b)+8 and bullety(a)>eny(b) and bullety(a)<eny(b)+22 thenen=en+1bullet=bullet+1score=score+int(100*enm(b))rem extra shipsbonus1=bonus1+1if bonus1>10 bonus1=0if bonus1=10 ships=ships+1if bonus1=10 bonus2=bonus2+1rem enemy reseteny(b)=0 enx(b)=int(ran(27))*20+20rem bullet resetfire(a)=0 bullety(a)=shipy-15endifrem enemy explosionif bulletx(a)>enx(b)-8 and bulletx(a)<enx(b)+8 and bullety(a)>eny(b) and bullety(a)<eny(b)+30 blow(b)=1if blow(b)=1 thengo1(b)=1explode(b)=explode(b)+go1(b)endifif explode(b)>20 thengo1(b)=0explode(b)=0blow(b)=0endifif blow(b)=0 thenexplosionx(b)=enx(b)explosiony(b)=eny(b)+11endifsetrgb 1,250,250,250fill circle explosionx(b),explosiony(b),explode(b)+3setrgb 1,0,256,0fill circle explosionx(b),explosiony(b),explode(b)rem parachute drop here?rem enemy movementeny(b)=eny(b)+enm(b)flame=flame+.1if flame>30 flame=6 rem enemy shipssetrgb 1,0,250,0fill triangle enx(b)-8,eny(b) to enx(b)+8,eny(b) to enx(b),eny (b)+22setrgb 1,250,125,20fill triangle enx(b)-4,eny(b) to enx(b)+4,eny(b) to enx(b),eny (b)-flamerem smart bombif bonus1>10 bonus2=bonus2+1if bonus2=3 sbomb=sbomb+1if bonus2=3 bonus2=0if and(c,4096)>0 and eny(b)>0 and sbomb>0 thenscore=score+int(100*enm(b))setrgb 1,256,256,256fill circle enx(b),eny(b)+11,25setrgb 1,0,256,0fill circle enx(b),eny(b)+11,22enx(b)=int(ran(27))*20+20eny(b)=ran(510)-500bonus2=0endifif sbomb<0 sbomb=0next bnext abmb=bmb+1if bmb>10 bmb=10if and(c,4096)>0 and bmb=10 thensbomb=sbomb-1bmb=0endifif sbomb<0 sbomb=0if score>hiscore hiscore=scoreif chute>hichute hichute=chuterem heads up displaysetrgb 1,250,250,250line 579,0 to 579,512setrgb 1,200,200,0fill rectangle 580,0 to 640,512setrgb 1,0,0,0text 580,20," GAME"text 580,35,"SCORE:"text 580,50,str\$(score)text 580,80,"HIGH"text 580,95,"SCORE:"text 580,110,str\$(hiscore)text 580,140,"SHIPS"text 580,155,"LEFT:"text 580,170,str\$(ships)text 580,200,"BONUS"text 580,215,"COUNT:"text 580,230,str\$(bonus1)text 610,230,str\$(bonus2)setrgb 1,256,0,0text 580,240,"10"text 610,240,"3"setrgb 1,0,0,0text 580,280,"ENEMYS"text 580,295," SHOT:"text 580,310,str\$(en)text 580,350,"SHOTS"text 580,365,"USED:"text 580,380,str\$(bullet)text 580,420,"SMART"text 580,435,"BOMBS"text 580,450,str\$(sbomb)text 580,480,"PEOPLE"text 580,495,"SAVED"text 580,510,str\$(chute)rem game displaysetrgb 1,250,250,250rem ship bullet/enemy bullet collisionfor a=1 to bulletsfill rectangle bulletx(a)-2,bullety(a)-5 to bulletx(a)+2,bullety(a)+5if bulletx(a)>enbulletx-2 and bulletx(a)<enbulletx+2 and  bullety(a)>enbullety-3 and bullety(a)<enbullety+3 thenship=ship+1setrgb 1,256,256,256fill circle enbulletx,enbullety,15setrgb 1,100,100,100fill circle enbulletx,enbullety,12bulletx(a)=shipxbullety(a)=shipy-15enfire=int(ran(a))+1enbullety=eny(enfire)enbulletx=enx(enfire)endifnext afill rectangle enbulletx-2,enbullety-3 to enbulletx+2,enbullety  +3setrgb 1,256,130,0fill triangle shipx-10,shipy to shipx+10,shipy to shipx,shipy-30rem enemy bullet collisionif enbulletx>shipx-10 and enbulletx<shipx+10 and enbullety>shipy-30 thenships=ships-1enfire=int(ran(a))+1enbullety=eny(enfire)enbulletx=enx(enfire)setrgb 1,250,250,250fill circle shipx,shipy-15,40setrgb 1,250,125,0fill circle shipx,shipy-15,35shipy=600fire=1endifif ships=0 gosub gameenduntil (1=0)label gameendopen window 640,512repeatsetdrawbuf vmvm=1-vmsetdispbuf vmclear windowsetrgb 1,256,256,256rectangle 200,185 to 440,312text 220,230,"most men saved: "+str\$(hichute)text 220,245," HIGH SCORE IS "+str\$(hiscore)text 220,260,"YOUR SCORE WAS "+str\$(score)setrgb 1,255,0,0text 230,215," G A M E O V E R"setrgb 1,0,255,0text 230,285,"press X to restart"c=peek("port1") until (and(c,16384)>0)gosub main`
I think I'm finished with it now.

Pages: [1] 2 3 4 5 6