Pangram checker: Difference between revisions
Added Sinclair ZX81 BASIC
(Added Sinclair ZX81 BASIC) |
|||
Line 495:
0 What's a jackdaw?
</pre>
==={{header|Sinclair ZX81 BASIC}}===
Works (just) with the 1k RAM model. The "37" that crops up a couple of times stops being a mystery if we remember that the ZX81 character code for <code>A</code> is 38 and that strings (like arrays) are indexed from 1, not from 0.
<lang basic> 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</lang>
{{in}}
<pre>THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.</pre>
{{out}}
<pre>PANGRAM</pre>
{{in}}
<pre>AND DARK THE SUN AND MOON, AND THE ALMANACH DE GOTHA</pre>
{{out}}
<pre>NOT A PANGRAM</pre>
=={{header|Batch File}}==
| |||