Appears on
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.
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