1 REM PATIENTEN REGISTRATIE- EN ZOEKPROGRAMMA
2 REM TRIOTEL / TRIOSORT
3 REM PROGRAMMA INFORMATIE
4 REM B.A.E. van der Pol
5 REM Spanjaardslaan 102
7 REM 8917 AW  LEEUWARDEN
8 REM november 1983
10 PRINT CHR$(&H1A):PRINT:PRINT:PRINT
20 PRINT "** PATIENTEN REGISTRATIE- EN ZOEKPROGRAMMA ..."
30 PRINT TAB(10);"TRIOTEL / TRIOSORT **"
40 PRINT:PRINT:INPUT "WILT U INFORMATIE ";J$
50 IF LEFT$(J$,1)="J" OR LEFT$(J$,1)="j" THEN 70 ELSE 60
60 IF LEFT$(J$,1)="N" OR LEFT$(J$,1)="n" THEN 940 ELSE 40
70 PRINT CHR$(&H1A):PRINT
80 PRINT "Dit programma maakt het mogelijk diagnoses en"
90 PRINT "oogheelkundige patienten op te slaan in een"
100 PRINT "bestand en hierin op zelf gedefinieerde"
110 PRINT "parameters te zoeken."
120 PRINT "Het WERKPROGRAMMA verzorgt de bewerkingen"
130 PRINT "in het actuele WERKBESTAND."
140 PRINT "Het ZOEKPROGRAMMA verzorgt het opzoeken van "
150 PRINT "bepaalde patienten uit de archiefbestanden."
160 PRINT
170 PRINT "Iedere patient wordt gekarakteriseerd door de"
180 PRINT "geboortedatum (DDMMJJ), de eerste vier"
190 PRINT "letters van de eigen achternaam en een"
200 PRINT "geslachtscode (M/V)."
210 PRINT "Als een foto gemaakt werd, kan dat aangegeven"
220 PRINT "worden met ja (J), werd dit niet gedaan "
230 PRINT "met nee (N)."
240 PRINT "Voor iedere diagnose wordt de patient "
250 PRINT "opnieuw ingevoerd."
260 PRINT:PRINT
270 INPUT "voor continueren type <return>";X$
280 PRINT CHR$(&H1A):PRINT
290 PRINT "Werd al eens een diagnose opgeslagen"
300 PRINT "dan wordt bij 'Eerdere Diagnose'"
310 PRINT "het jaar (JJ) opgegeven, waarin dit gebeurde."
320 PRINT "Betreft het een eerste codering,"
330 PRINT "dan wordt '00' ingevoerd."
340 PRINT
350 PRINT "De diagnose wordt gecodeerd volgens het:"
360 PRINT "Coding System for Disorders of the Eye,"
370 PRINT "van Schappert-Kimmijser, Colenbrander en Franken"
380 PRINT "(Karger, 1968)."
390 PRINT
400 PRINT "Iedere zo ingevoerde diagnose wordt "
410 PRINT "opgeslagen in een record van een random file,"
420 PRINT "waarvoor 23 posities gereserveerd worden."
430 PRINT "De eerste drie posities geven het"
440 PRINT "VOLGNUMMER in het betreffende bestand aan."
450 PRINT
460 PRINT "M.b.v. deze volgnummers kunnen op simpele"
470 PRINT "wijze veranderingen in iedere record"
480 PRINT "aangebracht worden."
490 PRINT:INPUT "Voor continueren type <return> ";X$
500 PRINT CHR$(&H1A):PRINT
510 PRINT "Als u een record wilt wijzigen,"
520 PRINT "is het verstandig aan de hand van het volgnummer"
530 PRINT "(dat gevonden kan worden middels de zoek module"
540 PRINT " in het werkprogramma)"
550 PRINT "eerst de inhoud van de te veranderen record"
560 PRINT "op te vragen."
570 PRINT "U kunt dan de inhoud nog eens controleren"
580 PRINT "en het programma controleert of de bedoelde"
590 PRINT "verandering inderdaad in de juiste record"
600 PRINT "terecht zal komen."
610 PRINT
620 PRINT "Wil men veranderen in archiefbestanden"
630 PRINT "dan zal het bestand eerst de naam PRWERK.DAT"
640 PRINT "moeten krijgen (via de CP/M REN of"
650 PRINT "de MBASIC NAME opdracht)."
660 PRINT
670 PRINT "VERGEET NADIEN NIET DE OUDE BESTANDSNAAM"
680 PRINT "WEER TE GEVEN !"
690 PRINT
700 PRINT:INPUT "Voor continueren type <return> ";X$
710 PRINT CHR$(&H1A):PRINT
720 PRINT "Om te zoeken in een bestand moet u alle"
730 PRINT "variabelen definieren in termen van"
740 PRINT "boven- en ondergrenzen."
750 PRINT "(De waarden, die daartussen liggen,"
760 PRINT " doen dan mee.)"
770 PRINT "Mag een variabele slechts een waarde hebben"
780 PRINT "om geselecteerd te worden,"
790 PRINT "dan moeten de beide grenzen aan elkaar"
800 PRINT "gelijk gesteld worden (dezelfde waarde"
810 PRINT "krijgen)."
820 PRINT 
830 PRINT "Van de geboortedatum en de diagnose"
840 PRINT "kunnen delen voor de selectieformule"
850 PRINT "gebruikt worden."
860 PRINT "U dient aan te geven hoeveel karakters"
870 PRINT "gebruikt moeten worden en vanaf welke plaats."
880 PRINT "(volgens het schema 123456)."
890 PRINT
900 PRINT "GEBRUIK ALLEEN HOOFDLETTERS !"
910 PRINT "DRUK DE ALPHA LOCK TOETS IN !"
920 PRINT:INPUT "Wilt u nog eens de informatie zien ";X$
930 IF LEFT$(X$,1)="J" THEN 10
940 RUN "TRIO"
HA LOCK TOETS IN !"
920 PRINT:INPUT "Wilt u nog eens de informatie zien ";X$
930 IF LEFT$(X$,1)="J" THEN