'tallennus
If KeyDown (cbkeyt) Then tallennus1=OpenToWrite ("Tallennukset\ta1.ini")
If KeyDown (cbkeyt) And pisteet# < 10.0 Then WriteLine tallennus1, " " +arvo$
'avaus
If KeyDown (cbkeyo) Then avaa=OpenToRead("Tallennukset\ta1.ini")
If KeyDown (cbkeyo) Then talli$=ReadString(avaa)
'tallennus
If KeyDown (cbkeyt) Then tallennus1=OpenToWrite ("Tallennukset\ta1.ini")
If KeyDown (cbkeyt) And pisteet# < 10.0 Then WriteLine tallennus1, " " +arvo$
'avaus
If KeyDown (cbkeyo) Then avaa=OpenToRead("Tallennukset\ta1.ini")
If KeyDown (cbkeyo) Then talli$=ReadString(avaa)
Ei kirjoita tonne yhtään mitään.
Tässä voi olla vikana vaikka mitä. Esimerkiksi tiedostopoluissa saattaa olla vikaa, yleinen syy aloittelijoilla. Onko tiedosto olemassa? Jos ei, käytä OpenToEdit() -komentoa.
Tuossa koodissa teksti tallennetaan linenä ja luetaan stringinä. Ei näin.