100 '**************************************************************************
110 '*      必殺仕事人                          Version 1.01    2000.03.03.   *
120 '*      Copyright (C) Takashi Utsunomiya    作成開始        1999.01.10.   *
130 '**************************************************************************
140  :
150  FILES"*.hsn":PRINT:INPUT"実行したいファイル(.hsn) >> ",F$
160  DEF SEG=SEGPTR(7):AD=PEEK(&H6A6)+PEEK(&H6A7)*256-1:LN=260
170  WHILE A$<>"*":READ A$
180   S=0:SUM=VAL("&H"+RIGHT$(A$,2)):LC=0
190   FOR I=0 TO LEN(A$)\2-2
200    A=VAL("&H"+MID$(A$,I*2+1,2)):S=(S+LC XOR A)AND 255:LC=LC+1
210    POKE AD,A:AD=AD+1
220   NEXT:LN=LN+10
230   IF S<>SUM THEN PRINT:PRINT"Error in";LN-10:STOP
240  WEND
250  :
260 DATA 002600DF0301BD01D101A4010EE0033AD101BD3ABD019D01A3010EE0033AA3010EE7
270 DATA E10300270C001700E003018F01133AC022283B5F3B29223A9A00270C003100E10303
280 DATA 01BB01460024F3222E68736E22019E01A70141015323113AC03AC022285E2D5E29BA
290 DATA 223AC03A4100F11700270C003000E203019E01410144F141014401DA01410144F3E3
300 DATA FFAE28231129F4123A4100F1284100F3112901FD010F0F00270C002500E30302C255
310 DATA 014101442CFF9228FFC428112C23112929FA284100F31129F50F1100270C000E002C
320 DATA E40301B73A86231100270C0016,*