Copia ed incolla nel tuo editor le seguenti routine per basic256.
Esempio di grafica
clg
color black
penwidth 5
line 0,0,400,400
penwidth 10
color blue
circle 200,90,80
color green
for x=20 to 100
for y=60 to 100
plot x,y
next y
next x
Esempio di programma che utilizza l’istruzione case
t=0
while t <> 3
print “digita un numero”
input a
print “digita un altro numero”
input b
print “premi 1 per sommare “+a+” e “+b
print “premi 2 per calcolare la differenza tra “+a+” e “+b
print “premi 3 per uscire dal menu”
input t
begin case
case t = 1
print a+b
exit while
case t = 2
print a-b
exit while
case t = 3
exit while
end case
end while
Nel seguente esempio creiao una semplice rubrica (nominativi e indirizzi di pura fantasia):
nome$={“Mario”,”Ugo”,”Giuseppe”}
cognome$={“Rossi”,”Bianchi”,”Verdi”}
via$={“via Milano 5″,”piazza Francia 1″,”corso Roma 60”}
citta$={“Milano”,”Milano”,”Milano”}
cap$={“20124″,”20131″,”20150″}
for r=0 to 2
print nome$[r]+” “+cognome$[r]
print via$[r]
print citta$[r]
print cap$[r]
next r