home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / d12.amos / d12.amosSourceCode
AMOS Source Code  |  1990-10-14  |  4KB  |  141 lines
  1. Break Off 
  2. On Error Proc INIT_ERROR
  3. Shared AANMAKEN,NAAM$,ADRES$,WOONP$,GROEP$,FUNCTIE$,RN,TELLER
  4. Proc INIT_SCREEN
  5. Proc INIT_INLEIDING
  6. Proc CHECK_FILE
  7. '----------------------------------------------- 
  8. Procedure INIT_SCREEN
  9.  Screen Open 0,320,200,16,Lowres
  10.  Palette $0,$0,$0 : Flash Off : Curs Off 
  11.  Screen Open 1,640,200,2,Hires
  12.  Palette $5,$5,$FFF : Flash Off : Curs Off 
  13.  Colour 1,$FFF : Pen 1 : Ink 1 : Curs Off 
  14.  Screen Display 1,,60,,
  15. End Proc
  16. Procedure INIT_INLEIDING
  17.  Locate 1,0 : Centre ">>  AMOS DISK TRACER  <<"
  18.  Locate 1,4 : Print "De bedoeling van dit programma is het bijhouden van gegevens van de personen"
  19.  Locate 1,6 : Print "die deze diskette in bezit hebben of hebben gehad, het is dus een soort van "
  20.  Locate 1,8 : Print "ketting-brief."
  21.  Locate 1,10 : Print "Elk persoon krijgt een nummer. Als u nummer 100 bent, stuurt u dan a.u.b. deze "
  22.  Locate 1,12 : Print "diskette op naar de auteur, u krijgt dan een nieuwe diskette terug vol met "
  23.  Locate 1,14 : Print "de nieuwste software."
  24.  Locate 1,18 : Centre "Druk op de linker muis toets"
  25.  Repeat 
  26.  Until Mouse Click=1
  27.  Cls 
  28. End Proc
  29. Procedure CHECK_FILE
  30.  If Not Exist("trace.dat")
  31.   Locate 1,1 : Centre "Er staat nog geen data file op deze diskette."
  32.   Locate 1,2 : Centre "Verwijder de write-protect beveiliging van deze diskette."
  33.   AANMAKEN=True
  34.  End If 
  35.  If Exist("trace.dat")
  36.   Locate 1,1 : Centre "Er staat een data file op deze disk."
  37.  End If 
  38.  Locate 1,18 : Centre "Druk op de linker muis toets."
  39.  Wait 1
  40.  Repeat 
  41.  Until Mouse Click=1
  42.   If AANMAKEN=True Then Proc AANMAKEN
  43.  Proc HOOFD_MENU
  44. End Proc
  45. Procedure HOOFD_MENU
  46.  Cls 
  47.  Locate 1,0 : Centre ">>> Hoofdmenu <<<"
  48.  Locate 1,6 : Print "1 - Bestand bekijken."
  49.  Locate 1,8 : Print "2 - Gegevens toevoegen."
  50.  Locate 1,10 : Print "0 - Stoppen."
  51.  Locate 1,18 : Centre "Disc tracer v1.0 (c) 1991 by Jurgen Valks"
  52.  Do 
  53.   A$=Inkey$
  54.   If A$="1" Then Proc BEKIJKEN
  55.   If A$="2" Then Proc AANVULLEN
  56.   If A$="0" Then Proc EINDE
  57.  Loop 
  58. End Proc
  59. Procedure AANMAKEN
  60.  RN=1
  61.  Open Out 1,"trace.data"
  62.  Print #1,RN
  63.  Close 1
  64.  Proc BESTAND_OPENEN
  65.  NAAM$="Jurgen Valks"
  66.  ADRES$="Kerkeind 8a"
  67.  WOONP$="Gemonde"
  68.  GROEP$="Sensor"
  69.  FUNCTIE$="Coder, Gfx"
  70.  On Error Proc INIT_ERROR
  71.  Put 1,RN
  72.  On Error Proc INIT_ERROR
  73.  Close 1
  74. End Proc
  75. Procedure BEKIJKEN
  76.  Cls : Proc BESTAND_OPENEN
  77.  TELLER=0
  78.  For TELLER=1 To RN
  79.   Get 1,TELLER : Cls 
  80.   Locate 1,1 : Print "Nummer           :";TELLER
  81.   Locate 1,2 : Print "Naam             : ";NAAM$
  82.   Locate 1,3 : Print "Adres            : ";ADRES$
  83.   Locate 1,4 : Print "Woonplaats       : ";WOONP$
  84.   Locate 1,5 : Print "Lid van groep    : ";GROEP$
  85.   Locate 1,6 : Print "Functie in groep : ";FUNCTIE$
  86.   Locate 1,18 : Centre "Druk op de linker muis toets."
  87.   Repeat 
  88.   Until Mouse Click=1
  89.  Next TELLER
  90.  Close 1
  91.  Proc HOOFD_MENU
  92. End Proc
  93. Procedure AANVULLEN
  94.  Proc BESTAND_OPENEN
  95.   Cls : RN=RN+1
  96.   Locate 1,2 : Input "Naam             : ";NAAM$
  97.   Locate 1,3 : Input "Adres            : ";ADRES$
  98.   Locate 1,4 : Input "Woonplaats       : ";WOONP$
  99.   Locate 1,5 : Input "Lid van groep    : ";GROEP$
  100.   Locate 1,6 : Input "Functie in groep : ";FUNCTIE$
  101.   Locate 1,18 : Centre "Druk op de linker muis toets."
  102.   On Error Proc INIT_ERROR
  103.   Put 1,RN
  104.   On Error Proc INIT_ERROR
  105.   Close 1
  106.   Proc SCHRIJF_DATA
  107.   Repeat 
  108.   Until Mouse Click=1
  109.   Proc HOOFD_MENU
  110. End Proc
  111. Procedure BESTAND_OPENEN
  112.  Open In 1,"trace.data"
  113.   Input #1,RN
  114.  Close 1
  115.  Open Random 1,"trace.dat"
  116.  Field 1,20 As NAAM$,20 As ADRES$,25 As WOONP$,20 As GROEP$,20 As FUNCTIE$
  117. End Proc
  118. Procedure SCHRIJF_DATA
  119.  Kill "trace.data"
  120.  Open Out 1,"trace.data"
  121.   On Error Proc INIT_ERROR
  122.   Print #1,RN
  123.   On Error Proc INIT_ERROR
  124.  Close 1
  125. End Proc
  126. Procedure INIT_ERROR
  127. Cls 
  128. If Errn=84
  129.  Curs Off 
  130.  Locate 1,4 : Centre "Disk is write protect, verwijder beveiliging"
  131.  Locate 1,18 : Centre "Druk op de linkse muis toets."
  132.  Repeat 
  133.  Until Mouse Click=1
  134.  Resume 
  135. End If 
  136. End Proc
  137. Procedure EINDE
  138.  Cls 
  139.  Screen Close 1
  140.  Run "menu.AMOS"
  141. End Proc