5 U=0:A=0:B=0:C=0:P=0
6 V=0:W=0:X=0:Y=0:Z=0
7 PRINT "Password berekening V1 17 juli 2013 Holborn Computers"
8 PRINT "Theo Laan Lelystad"
9 PRINT
10 INPUT "Dag:     ";A
20 IF A<1 THEN 10
30 IF A>31 THEN 10
40 INPUT "Maand:   ";B
50 IF B<1 THEN 40
60 IF B>12 THEN 40
70 INPUT "Jaar:    ";C
80 IF C<1 THEN 70
90 IF C>9999 THEN 70
100 P=A : GOSUB 900
110 P=B : GOSUB 900
120 P=C : GOSUB 900
160 P=U : GOSUB 1000 : Y=X
170 P=V : GOSUB 1100 : Z=X
180 Y=Y*100 : Y=Y+Z
190 PRINT "Password: ";Y
200 PRINT
210 INPUT "Nog een keer? (J/N)";A$
215 PRINT
220 IF A$="J" THEN 5
230 IF A$="j" THEN 5
240 PRINT 
250 END
900 GOSUB 1000 : U=U+X
910 GOSUB 1100 : V=V+X
920 RETURN
1000 X=P-(INT(P/9)*9)
1010 RETURN
1100 X=P-(INT(P/11)*11)
1110 RETURN
2000 REM "Programma gemaakt door Theo Laan"
2100 REM "17 Juli 2013"
2200 REM "Password generator voor Holborn Format en Configur program's"
mma gemaakt door Theo Laan"
2100 REM "17 Juli 2013"
2200 REM "Password generator voor Holborn Format en Configur p