18 lines
398 B
Text
18 lines
398 B
Text
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
|