10 dim c(16),d(26)
        20 fori=1to16
        30 readc(i)
        40 nexti
        50 fori=1to26
        60 readd(i)
        70 next i
        80 print chr$(147)
        90 input"Inserire il codice fiscale";a$
        100 gosub 20000
        10000 print chr$(147):print "Lunghezza del codice errata":gosub30000
        10010 print chr$(147):print "Codice errato":gosub30000
        20000 z=1
        20010 if len(a$)<>16 then goto 10000
        20020 i=1
        20030 b$=mid$(a$,i,1)
        20040 if b$<"a" or b$>"z" then 20070
        20050 if c(i)<>0 then 10010
        20060 goto 20110
        20070 if b$<"0" or b$>"9" then goto 10010
        20080 if c(i)<>1 then 10010
        20090 i=i+1
        20100 if i<=16 then 20030
        20110 s=0
        20150 for i=1 to 15 step 2
        20160 b$=mid$(a$,i+1,1)
        20170 if c(i)=0 then 20200
        20180 s=s+d(val(b$)+1)
        20190 goto 20120
        20200 s=s+d(val(b$)-64)
        20210 if i=15 then 20270
        20220 b$=mid$(a$,i+1,1)
        20230 if c(i+1)=0 then 20260
        20240 s=s+val(b$)
        20250 goto 20270
        20260 s=s+asc(b$)-65
        20270 next i
        20280 r=s-int(s/26)*26
        20290 if mid$(a$,16,1)<>chr$(r+65) then 10010
        20300 z=0
        20400 print "Il codice";a$;"č esatto"
        30000 print" Se vuoi riinserire il codice premi R"
        30010 print" altrimenti un altro tasto…."
        30020 get x$:if x$="" then 30020
        30030 if x$="r" then run
        30040 end
        30100 data 0,0,0,0,0,0,1,1,0,1,1,0,1,1,1,0,1,0,5,7,9,13,15,17,19,21,2,4,18,20,11
        30110 data 3,6,8,12,14,16,10,22,25,24,23