' Spreadsheet Test Programma
' Maakt een simpele berekening voor 3 producten

' 1. Maak het grid eerst helemaal leeg (optioneel)
CLS
PRINT "Spreadsheet Grid Test wordt geladen..."
PRINT

' 2. Productnamen en prijzen invoeren
' We gebruiken CELLINPUT voor tekst en vaste getallen
CELLINPUT 1, 1, "Appels"
CELLINPUT 1, 2, 1.50   ' Prijs per stuk

CELLINPUT 2, 1, "Bananen"
CELLINPUT 2, 2, 0.80

CELLINPUT 3, 1, "Peren"
CELLINPUT 3, 2, 1.25

' 3. Aantallen invoeren (je zou hier ook een prompt kunnen gebruiken)
CELLINPUT 1, 3, 10     ' 10 appels
CELLINPUT 2, 3, 5      ' 5 bananen
CELLINPUT 3, 3, 12     ' 12 peren

' 4. Berekeningen maken met CELLSET en CELL()
' We berekenen de subtotalen: Prijs (kolom 2) * Aantal (kolom 3)
PRINT "Berekeningen uitvoeren..."
CELLSET 1, 4, CELL(1, 2) * CELL(1, 3)
CELLSET 2, 4, CELL(2, 2) * CELL(2, 3)
CELLSET 3, 4, CELL(3, 2) * CELL(3, 3)

' 5. Totaal berekenen van de hele kolom 4
CELLSET 5, 4, CELL(1, 4) + CELL(2, 4) + CELL(3, 4)
CELLINPUT 5, 3, "TOTAAL:"

' 6. Het resultaat tonen
PRINT "Klaar! Hier is het overzicht:"
SHOWGRID

Option explicit
Font 7
Type element
 valid As integer
 num As float
 label As string length 31
End Type
'
Dim spreadsheet(9,9) As element
spreadsheet(1,1)=loadnum(22)
spreadsheet(3,3)=loadstring("hello")
displaysheet

Function loadnum(a!) As element
 loadnum.num=a!
 loadnum.valid=1
End Function
'
Function loadstring(a$) As element
 loadstring.label=a$
 loadstring.valid=1
End Function
'
Sub displaysheet
 Local x,y,xp
 For x=Asc("A") To Bound(spreadsheet(),2)+Asc("A")
   Print  Tab((x-Asc("A")+1)*10);Chr$(x);
 Next x
 Print
 For y=0 To Bound(spreadsheet(),1)
   Print y;
   For x=Asc("A") To Bound(spreadsheet(),2)+Asc("A")
     xp=x-Asc("A")
     Print  Tab((x-Asc("A")+1)*10);
     If spreadsheet(y,xp).label <>"" Then
       Print spreadsheet(y,xp).label;
     ElseIf spreadsheet(y,xp).valid Then
       Print spreadsheet(y,xp).num;
     EndIf
   Next x
   Print
 Next y
End Sub