samples/gen.bas
author Claudio Luck <claudio.luck@pep.foundation>
Wed, 27 Feb 2019 14:43:35 +0100
changeset 57 2f4ad3800a3f
permissions -rw-r--r--
Track changes of 2.5.10
57
2f4ad3800a3f Track changes of 2.5.10
Claudio Luck <claudio.luck@pep.foundation>
parents:
diff changeset
     1
110 DATA "Meier", "Uhlmannstrasse 42", "Laupheim"
2f4ad3800a3f Track changes of 2.5.10
Claudio Luck <claudio.luck@pep.foundation>
parents:
diff changeset
     2
120 DATA "Schmidt", "Haupstrasse 23", "Bad Waldsee"
2f4ad3800a3f Track changes of 2.5.10
Claudio Luck <claudio.luck@pep.foundation>
parents:
diff changeset
     3
1000 FOR I=1 TO 2 STEP 1
2f4ad3800a3f Track changes of 2.5.10
Claudio Luck <claudio.luck@pep.foundation>
parents:
diff changeset
     4
1010 READ NAME$, STREET$, VILLAGE$
2f4ad3800a3f Track changes of 2.5.10
Claudio Luck <claudio.luck@pep.foundation>
parents:
diff changeset
     5
1020 PRINT "INSERT INTO address (name, street, village) VALUES ('" + NAME$ + "', '" + STREET$ + "', '" + VILLAGE$ + "');"
2f4ad3800a3f Track changes of 2.5.10
Claudio Luck <claudio.luck@pep.foundation>
parents:
diff changeset
     6
1030 NEXT I