samples/gen.bas
changeset 57 2f4ad3800a3f
equal deleted inserted replaced
56:d48cf08cf448 57:2f4ad3800a3f
       
     1 110 DATA "Meier", "Uhlmannstrasse 42", "Laupheim"
       
     2 120 DATA "Schmidt", "Haupstrasse 23", "Bad Waldsee"
       
     3 1000 FOR I=1 TO 2 STEP 1
       
     4 1010 READ NAME$, STREET$, VILLAGE$
       
     5 1020 PRINT "INSERT INTO address (name, street, village) VALUES ('" + NAME$ + "', '" + STREET$ + "', '" + VILLAGE$ + "');"
       
     6 1030 NEXT I