home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 10 / run10.zip / NAW4.BAS < prev    next >
BASIC Source File  |  1993-09-22  |  1KB  |  33 lines
  1. 100 REM RECORDS NAAR EEN RANDOM ACCESS BESTAND - NAW4.BAS
  2. 110 OPEN "NAW.ASC" FOR RANDOM AS #1 LEN=167
  3. 120 FIELD #1, 40 AS N$, 25 AS V$, 45 AS AD$, 7 AS P$, 30 AS W$, 20 AS T$
  4. 130 CLS:KEY OFF
  5. 140 LOCATE 8,20:PRINT "Adressenbestand"
  6. 150 LOCATE 10,20:PRINT "<A>anvullen bestand"
  7. 160 LOCATE 11,20:PRINT "<L>ezen bestand
  8. 170 LOCATE 12,20:PRINT "<W>ijzigen bestand"
  9. 180 LOCATE 13,20:PRINT "<E>inde"
  10. 190 LOCATE 15,20:INPUT "Uw keuze: ";KEUZE$
  11. 200 IF KEUZE$="A" OR KEUZE$="a" THEN 250
  12. 210 IF KEUZE$="L" OR KEUZE$="l" THEN 400
  13. 220 IF KEUZE$="W" OR KEUZE$="w" THEN 410
  14. 230 IF KEUZE$="E" OR KEUZE$="e" THEN 390
  15. 240 CLS:GOTO 130
  16. 250 TELLER=INT(LOF(1)/167):CLS
  17. 260 TELLER=TELLER+1:LOCATE 8,20:PRINT "Dit wordt recordnr.";TELLER
  18. 270 LOCATE 10,20:INPUT "Naam:       ";NAAM$
  19. 280 IF NAAM$="" THEN 390
  20. 290 LOCATE 11,20:INPUT "Voorletters:";VOORL$
  21. 300 LOCATE 12,20:INPUT "Adres:      ";ADR$
  22. 310 LOCATE 13,20:INPUT "Postcode:   ";POSTC$
  23. 320 LOCATE 14,20:INPUT "Woonplaats: ";WOONPL$
  24. 330 LOCATE 15,20:INPUT "Telefoon:   ";TEL$
  25. 340 REM SCHRIJVEN NAAR DISK
  26. 350 LSET N$=NAAM$:LSET V$=VOORL$:LSET AD$=ADR$:LSET P$=POSTC$
  27. 360 LSET W$=WOONPL$:LSET T$=TEL$
  28. 370 PUT #1,TELLER
  29. 380 CLS:GOTO 260
  30. 390 CLOSE:END
  31. 400 REM RECORDS LEZEN
  32. 600 REM RECORDS WIJZIGEN
  33.