360 IF CT=0 THEN BEEP:LOCATE 16,1 :PRINT "Geen checksumregels..! CHECK onmogelijk.";:GOTO 750
370 FL=0:IF CT<>VAL(RIGHT$(REGEL$,6)) THEN IF REGC(1)<>0 THEN FL=1
380 IF FL=1 THEN LOCATE 16,1:PRINT "Fouten in checksumregels!" :LOCATE 25,1:PRINT "Toets <Enter> om ";PROG$" te laden";:GOTO 690
390 LOCATE 25,1:PRINT "Controleren: ";PROG$;
400 OPEN PROG$ FOR INPUT AS #1:WHILE NOT EOF(1):LINE INPUT #1,REGEL$
410 TEL2=TEL2+1:TEL3=TEL3+1
420 LOCATE 22,22:COLOR 15,0:PRINT USING "####";TEL4;:LOCATE 22,51 :PRINT USING "#######";CHKSUM:LOCATE 22,77:PRINT USING "##";TEL;
430 LOCATE 23,22:PRINT USING "####";REGC(P);:LOCATE 23,51 :PRINT USING "#######";TEL3;
440 LOCATE 23,77:PRINT USING "##";TEL2;
450 LOCATE 15,1:COLOR 14,0:FOR A=1 TO LEN(REGEL$)
460 IF MID$(REGEL$,A,7)=CHR$(32)+CHR$(82)+CHR$(69)+CHR$(77)+CHR$(32)+ZOEK2$ THEN TEL2=TEL2-1:GOTO 570
470 IF MID$(REGEL$,A,1)=CHR$(58) THEN TEL3=TEL3+1
480 IF MID$(REGEL$,A,4)=CHR$(32)+CHR$(82)+CHR$(69)+CHR$(77) THEN TEL2=TEL2-2:PRINT:FOR B=1 TO LEN(REGEL$):PRINT MID$(REGEL$,B,1); :NEXT B:COLOR 7,0:GOSUB 740:GOTO 570
490 IF ASC(MID$(REGEL$,A,1))=32 THEN IF VL=1 THEN VL=0
500 IF ASC(MID$(REGEL$,A,1))<>32 THEN IF A>4 THEN CHKSUM=CHKSUM+ASC(MID$(REGEL$,A,1)): REGCHS=REGCHS+ASC(MID$(REGEL$,A,1))
510 NEXT A:PRINT:VL=1:TEL4=REGCHS
520 P=P+1:IF REGCHS<>REGC(P) THEN BEEP:LOCATE 22,22:COLOR 30,0:PRINT USING "####";REGCHS;:LOCATE 23,22:COLOR 15,0:PRINT USING "####";REGC(P);:TEL=TEL+1
530 IF REGCHS<>REGC(P) THEN LOCATE 16,1:COLOR 30,0:FOR A=1 TO LEN(REGEL$) :PRINT MID$(REGEL$,A,1);:NEXT A:GOSUB 740:FOR T=1 TO 4000:NEXT T:COLOR 7,0 :GOTO 550
540 COLOR 14,0:PRINT LEFT$(REGEL$,3);:FOR A=4 TO LEN(REGEL$) :PRINT MID$(REGEL$,A,1);:NEXT A:GOSUB 740