Re: BC Basic

I found disk demo for bc basic and I must say that I am impressed,
graphic is fast,commands are interesting and it is fast.

86 new commands and function (7 modified commands)
17 commands for sid

Wish vice could list entire program to file :)


list

10 sprclr:soundoff:himem=&8000
20 paper5:mode3,1:clg
25 volume6:adsr1,0,0,15,11:attack1:wavef
orm1,2
30 ink15:forp=10000to20000step250:pitch1
,p:drawtornd(1)*320,rnd(1)*200:next
50 ink15:paper2
60 hprintat5,14;"announcing:"
70 adsr2,0,0,15,11:attack2:waveform2,4
80 fork=12000to2000step-10:pitch2,k:next

85 ink4:paper6:hprintat11,10;#1;"
    "
86 ink15:paper4:hprintat12,10;#1;" bc ba
sic "
87 ink4:paper6:hprintat13,10;#1;"
    "
90 pitch3,5000:waveform1,1:ringmod1,1
100 release2:fork=0to65535step200:pitch1
,k:next
...


328 ink11:hprintat24,17;"lettering!"
330 ink15:plot0,100:forx=5to315step5:dra
wtox,sin(x/50)*80+100:next
340 drawto319,107
350 ink2:cx=92:cy=72:gosub10000
360 ink6:cx=228:cy=128:gosub10000
370 ink15:plot0,100:forx=5to315step5:dra
wtox,sin(x/50)*70+100:next:drawto319,106

380 forj=1to3000:next
390 paper2:ink10:mode0:print"S"
400 charset16,34:copy0to255:print"Sq]rbc
  basicR allows r5R graphics modes,"
410 print"q]plus ruser-defined graphicsR
"
420 forj=1to4000:next
430 printink14;"qq]for example, let's de
fine a 'space      invader'"
450 printink5;at9,20;"*";
460 forj=1to2000:next:restore480
break
ready.



On 5/27/20 6:47 PM, Ruud_at_Baltissen.org wrote:
> Hallo Zoran,
>
>
>> https://www.lemon64.com/forum/viewtopic.php?t=....
> That was the site that told me that BC BASIC was a cart. But....
>
>
>> What does it say in scan ?
> To be honest, I scanned the booklet w/o even reading it. But I just
> did and it starts with: "Insert the tape in your cassette drive.".
> Interesting, apperently there is also a tape version.
>
> I had a rather quick look and IMHO the extensions mostly focus on
> handling graphics an sound.
>
>
> --
>     
> Kind regards / Met vriendelijke groet, Ruud Baltissen
> www.Baltissen.org
>
>
>
>
>
>
>