Omron 8SM

Wat is zo’n retro vintage pocket calculator cool. Ik had bijna elk jaar wel een nieuwe, maar die is mijn all-time-favoriet. En wat een pret toen we ontdekten dat de omgekeerde cijfer in bepaalde combinaties best leesbare tekst opleveren. (0=O, 1=I, 2=Z,3=E etc).

Had je opeens “Lellebel” op scherm staan!

10 REM Calculatorwoorden in BASIC
20 DIM W$(10000)
30 OPEN "woordenlijst.txt" FOR INPUT AS #1
40 I = 0
50 WHILE NOT EOF(1)
60 LINE INPUT #1, W$
70 W$(I) = UCASE$(W$)
80 I = I + 1
90 WEND
100 CLOSE #1
110 FOR J = 0 TO I - 1
120 W$ = W$(J)
130 OK = -1
140 FOR K = 1 TO LEN(W$)
150 C$ = MID$(W$, K, 1)
160 IF INSTR("OIESGLB", C$) = 0 THEN OK = 0
170 NEXT K
180 IF OK THEN PRINT W$
190 NEXT J

Dat leverde eind jaren 70 niet veel op, omdat ik die woordenlijst natuurlijk zelf moest inkloppen.

Anno 2025 pluk je die zo van internet af, en kan ik vertellen dat er meer dan 1500 woorden te maken zijn!

Next post Fibonacci