home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 10 / run10.zip / NAW3.BAS < prev    next >
BASIC Source File  |  1993-08-13  |  770b  |  20 lines
  1. 100 REM RECORDS NAAR EEN RANDOM ACCESS BESTAND - NAW3.BAS
  2. 110 CLS:KEY OFF
  3. 120 OPEN "NAW.ASC" FOR RANDOM AS #1 LEN=167
  4. 130 FIELD #1, 40 AS N$, 25 AS V$, 45 AS AD$, 7 AS P$, 30 AS W$, 20 AS T$
  5. 140 TELLER=INT(LOF(1)/167):CLS
  6. 150 TELLER=TELLER+1:LOCATE 8,20:PRINT "Dit wordt recordnr.";TELLER
  7. 160 LOCATE 10,20:INPUT "Naam:       ";NAAM$
  8. 170 IF NAAM$="" THEN 280
  9. 180 LOCATE 11,20:INPUT "Voorletters:";VOORL$
  10. 190 LOCATE 12,20:INPUT "Adres:      ";ADR$
  11. 200 LOCATE 13,20:INPUT "Postcode:   ";POSTC$
  12. 210 LOCATE 14,20:INPUT "Woonplaats: ";WOONP$
  13. 220 LOCATE 15,20:INPUT "Telefoon:   ";TEL$
  14. 230 REM SCHRIJVEN NAAR DISK
  15. 240 LSET N$=NAAM$:LSET V$=VOORL$:LSET AD$=ADR$:LSET P$=POSTC$
  16. 250 LSET W$=WOONP$:LSET T$=TEL$
  17. 260 PUT #1,TELLER
  18. 270 CLS:GOTO 150
  19. 280 CLOSE:END
  20.