Checksum

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.

Gallery

Checksum

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

People

No people associated with this content.

Scroll to Top