10 LET A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 20 LET L=26
 30 INPUT P$
 40 IF LEN P$<26 THEN GOTO 170
 50 FAST
 60 LET C=1
 70 IF P$(C)<"A" OR P$(C)>"Z" THEN GOTO 120
 80 IF A$(CODE P$(C)-37)=" " THEN GOTO 120
 90 LET A$(CODE P$(C)-37)=" "
100 LET L=L-1
110 IF L=0 THEN GOTO 150
120 IF C=LEN P$ THEN GOTO 170
130 LET C=C+1
140 GOTO 70
150 PRINT "PANGRAM"
160 GOTO 180
170 PRINT "NOT A PANGRAM"
180 SLOW