HEXSPEC

   10 REM "HEX 1"loader--SPECTRUM
   15 REM list  1 --  SPECTRUM
   20 DEF FN h$(a)=CHR$ (INT (a/16)+48+7*(a>159))+CHR$ (a-16*INT (a/16)+48+7*((a-16*INT (a/16))>9))
   30 DEF FN h(h$)=CODE h$-48-7*(h$>"9")
   40 INPUT "START ADDRESS:";s
   50 INPUT "FINISH ADDRESS:";f
   60 FOR n=s TO f STEP 8
   62 PRINT n;": ";
   65 LET tot=0
   66 REM      INPUT THE WHOLE LINE OF EIGHT HEXIDECIMAL FIGURES FROM THE FIRST DIGIT TO THE LAST WITH SPACES BETWEEN
   67 REM eg. at address 50000   input the line from C5 to 42    
   70 INPUT a$
   75 IF a$="END" THEN STOP 
   77 PRINT a$
   80 FOR b=0 TO 7
   90 LET z=FN h(a$(1))*16+FN h(a$(2))
   95 LET tot=tot+z
  100 POKE (n+b),z
  110 LET A$=A$(4 TO )
  120 NEXT B
  130 PRINT " = ";
  135 REM  enter total
  140 INPUT t
  150 IF t<>tot THEN PRINT "DATA INPUT ERROR": GO TO 62
  160 PRINT t
  170 NEXT n