Ecco due programmini per giocare al gioco della Morra:

REM MORRA
DIM V(16)
:INPUT "GIOCA 0,...,Q x fine";g$
:WHILE G$<>"Q"
:X=V(i)<=V(i+1)
:Y=VAL(G$) MOD 2
:PRINT-X;Y,
:T=X=-Y 'T=Y=-X
:PRINT MID4("UC",1-T,1),
:TC=TC-T
:TU=TU+1+T
:I=I+Y
:PRINT USING"###
:V(i)=V(i)+1
:i=2*i MOD 8 '2*(2-(i\8)*8)
:G$=INPUT$(1)
:WEND

program numeri;
var n:longint;
begin
write(',commento');
read(n);
if n mod 2=0 then write(il numero è pari')
else(il numero è dispari);
end.

il prof ci ha consigliato di scaricare l'editor dal sito qui sotto:

http://www.scintilla.org/SciTEDownload.html