Vaikka kuusnelosen basic on varsin suppea on siin[ silti k[skyj[, joita harvemmin n[kee k[ytett[v[n ja joita ei kaikki v[ltt[m[tt[ tunnekaan. Useimmat n[ist[ k[skyist[ liittyv[t jotenkin ma- tematiikkaan ja se saattaa selitt[[ nii-den harvinaisuuden, sill[ eih[n kukaan voi k[ytt[[ esim. sin(x)-k[sky[, jos ei tied[ mik[ on sini.
T[ss[ on nyt muutamia harvinaisem- pia k[skyj[ selitykseneen aakkosj[rjes- tyksess[ esimerkin kanssa.
ABS(x) {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} Antaa x:n itseisarvon, eli arvon ilman etumerkki[. 10 a=-1 20 a1=abs(a) 30 print a,a1 Tuo ohjelma tulostaa a:n arvon (-1)ja a1:n arvon (1). Jos a olisi positii- vinen, olisi a1=a.
ATN(x) {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} Matemaattinen funktio, joka olisi syyt[ tuntea matematiikantunneilta, en- nen kuin k[ytt[[ ohjelmassa. Antaa vas- taukseksi kulman, jonka tangenttin on x.Vastaus on v[lill[ -pii/2 ja pii/2.
10 for i=0 to 255 20 print atn(i), 30 next
CLR {CBM-T}{CBM-T}{CBM-T} Tyhjent[[ kaikki muuttujat ja vas- taavat (gosubien paluu osoitteet, avoi- met tiedostot). 10 a=5 20 clr 30 print a Ohjelma tulostaa nollan.
CMD x,"aaaa" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} Siirt[[ tulostuksen kuvaruudulta x:n m[[rittelem[lle v[yl[lle. Teksiti x:n j[lkeen ei ole pakollinen, mutta josse on tulostuu se ensimm[isen[. Ennen komentoa on v[yl[ tietenkin avattava open-k[skyll[. Tavallisin tapa k[ytt[[ CMDt[ on avata v[yl[ printteriin (OPEN 4,4) ja siirt[[ tulostus sinne (CMD 4) ja listata ohjelma (LIST). CMDt[ voi kuitenkin k[ytt[[ my\s ohjelmissa. 10 open3,8,3,"tiedosto,s,w" 20 cmd3,"juttua" 30 print "lis[[ juttua"; 40 print#3 50 close3 Ohjelma muodostaa levylle seq-tie- doston, jonka sis[lt\ on: juttua<return>lis[[ juttua<return>.
DEF FNaa(x)=kaava {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} Ohjelmoisa voi itse m[[ritell[ jon-kin funktion. Kannattaa k[ytt[[ jos samalaskukaava esiintyy useasti ohjelmassa. 10 def fna1(x)=x^2+5 20 def fna2(x)=2*x+x 30 for i=0to200 40 print fna1(i),fna2(i) 50 next Ohjelma m[[rittelee ensin funktiot fna1 ja fna2, sitten tulostetaan funkti-oiden arvot, kun x kasvaa nollasta, yh- den v[lein, kahteensataan.
POS (x) {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} Tulostaa seuraavan printin tulos- tuksen alkamissarakkeen (0-39). 10 print chr$(19) 20 print pos(x); 30 goto 20 Ohjelma heitt[[ ruutuun lukuja, jotka ilmoittavat mist[ kohtaa kunkin luvun kirjoittaminen n[yt\lle alkaa.
SGN (x) {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} Ilmaisee onko x positiivinen (1), negatiivinen (-1) vai nolla (0). 10 input "anna luku";a 20 b=sgn(a) 30 ifb=-1thenprint"luku on negatiivinen"40 ifb=0thenprint"luku on nolla" 50 ifb=1thenprint"luku on positiivinen" Ohjelma tutkii onko k[ytt[j[n anta-ma luku positiivinen, negatiivinen vai nolla.
ST {CBM-T}{CBM-T} Ilmoittaa I/O toimintojen tilan. Jos arvo ei ole nolla on jotain pieles- s[. 10 open3,8,3,"tiedosto,s,r":ifst<>0thenprint"jotain pieless[":end 20 .....ohjelma jatkuu
USR (x) {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} Hypp[[ konekieliseen ohjelmaa, jon-ka alkuosoite on muistipaikoissa 785 ja 786 (kaava: peek(785)+256*peek(786)). X:ll[ annetaan arvo ohjelman k[ytt\\n. Ohjelmasta palatessa tulee muuttujalle, joka on m[[ritelty, arvo jonka ohjelma on saanut laskettua. Eik\s olekin hanka-laa ja sekavaa? 10 poke785,226:poke786,252 20 a=usr(x) Ohjelman suorittaa resetin. Kysees-s[ ei ole aivan oikeaoppinen tapa k[yt- t[[ USR-komentoa.
WAIT muistipaikka,x,y {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} Odottaa kunnes muistipaikan arvo t[ytt[[ seuraavat vaatimukset: (muisti- paikka AND x) X-OR y =0. Y:t[ ei tar- vitse m[[ritell[, jolloin X-ORia ei suo-riteta. 10 print "paina n[pp[int[" 20 wait 203,64,64 30 goto 10 Ohjelma odottaa kunnes jotain n[p- p[int[ painetaan ja k[skee sitten paina-maan uudestaan ja uudestaan ja ...
COS(x); SIN(x); TAN(x) {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} Laskevat x:st[ ko. matemaattisen funktion. 10 fori=0to255 20 print cos(i),sin(i),tan(i) 30 next Ohjelmaa tulostaa kosinin, sinin jatangetin kokonaisluvuista v[lilt[ 0-255. EXP(x); LOG(x) {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} EXP(x) korottaa vakion e(=2.71) po-tenssiin x. LOG(x) antaa luonnollisen logaritmin x:st[, eli on EXP-funktion k[[teinen toiminto.
10 a=exp(5)
20 print a
30 b=log(a)
40 print b
Ohjelma tulostaa ensin n. 148,41315ja sitten 5.
Syyt siihen ettei n[it[ k[skyj[ paljoakaan k[ytet[ lienev[t A) niiden k[ytt\ vaatii paljon pohjatietoja (mate-maattiset funktiot) B) niiden k[ytt\ on monimutkaista (wait, usr) C) niist[ ei ole juurikaan hy\ty[ (pos).
