Asteri Dos tuotekortiston (*.KTO, TUOTE.KTO) tietuekuvaus

ASTERI TUOTEKORTISTO, TIETUEKUVAUS
        - Tuotekortisto tallettaa peräkkäistiedostoa, jossa
          tiedot erotetaan toisistaan CR + LF merkillä.
        - Tuotekortisto saa aina tarkenteen KTO (esim TUOTE.KTO)
        - Laskutuksessa käytetyn tuotekortiston nimi on aina TUOTE.KTO
        - Yksi tietue (tuotekortti) koostuu kuudesta tiedosta
                1. TUOTTEEN YKSILÖIVÄ KOODI alfanumeerinen
                2. OSTOHINTA tai RYHMÄTUNNISTE tai MÄÄRÄMUOTOISTA
                   TAI VAPAAMUOTOISTA TIETOA
                3. NIMIKE
                4. TILASTOTIETO: MYYTY KAPPALETTA laskutusohjelma kerää
                   tähän tietoon laskutetut kappalemäärät
                5. TILASTOTIETO: MYYTY MARKKAA laskutusohjelma kerää
                   tähän tietoon laskutetut markkamäärät
                6. MYYNTIHINTA numeerinen desimaalipiste
        - Tiedot eivät ole määrämittaisia
        - Tyhjän tiedon merkkinä voidaan käyttää asteriskia *
        - Tiedostoa luetaan kuuden tiedon ryhmissä kunnes tiedosto on loppu.
        - skandien ASCII koodit ovat:
                  å = 134      Å = 143
                  ä = 132      Ä = 142
                  ö = 148      Ö = 153
        - kortisto tulostetaan DOS tilassa ruudulle kirjoittamalla:
                    TYPE TUOTE.KTO

TIEDOSTOESIMERKKI (kolme tuotetta)

                   1000

                   ASTERI YRITYSOHJELMASARJA
                   10
                   70000.00
                   7000.00
                   1010

                   ASTERI KIRJANPITO
                   11
                   29600.00
                   2500.00
                   1020

                   ASTERI LASKUTUS
                   3
                   7500.00
                   2500.00

ESIMERKKI GWBASIC OHJELMASTA, JOKA LUKEE TUOTEORTISTON:

                 10 DIM a$(1000,6)
                 20 LET kpl = 0
                 30 OPEN "I",#1,"TUOTE.KTO"
                 40 LET kpl = kpl+1
                 50 FOR x = 1 TO 6
                 60     LINE INPUT#1,a$(kpl,x)
                 70 NEXT x
                 80 IF EOF(1) = 0 THEN GOTO 40
                 90 CLOSE#1
        - rivillä 10 varataan taulukko 1000 tuotteelle
        - rivillä 30 avataan TUOTE.KTO niminen tiedosto lukemista varten
          (Lainausmerkeissä oleva kirjain on iso i)
        - rivillä 70 tutkitaan onko tiedoston loppu jo saavutettu

ASTERI DOS TUOTEKORTISTON (*.KTO, TUOTE.KTO) TIETUEKUVAUS