Source Code
1 SAVE "1002%4"
2 LIST
5 REM CHECKSUM PROGRAM
6 REM NUMBER VERIFICATION
8 PRINT TAB (10);"CHECKSUM PROGRAM"
9 PRINT
10 PRINT "ENTER DIGIT 1 "
11 INPUT A
30 PRINT "ENTER DIGIT 2 "
31 INPUT B
50 PRINT "ENTER DIGIT 3 "
51 INPUT C
70 PRINT "ENTER DIGIT 4 "
71 INPUT D
90 PRINT "ENTER DIGIT 5 "
91 INPUT E
110 PRINT "ENTER DIGIT 6 "
111 INPUT F
160 PRINT
170 PRINT " THE NUMBER IS ";A;B;C;D;E;F,
180 LET S=A+2*B+C+2*D+E+2*F
210 LET T=INT (S/10)
220 LET U=S-T*10
230 LET S=T+U
240 IF S>9 THEN GOTO 210
250 PRINT
260 PRINT
290 PRINT " THE CHECKDIGIT IS ";S
