100 REM READER      JIM BUTTERFIELD
110 DATA 2422,7542,0
120 READ X
130 IF X=0 THEN PRINT "UNKNOWN SYSTEM!":END
140 X=X+0:IF PEEK(X)<>ASC("J") GOTO 120
150 X=X+1:IF PEEK(X)<>ASC("I") GOTO 120
160 X=X+1:IF PEEK(X)<>ASC("M") GOTO 120
170 X=X+1:IF PEEK(X)<>ASC(" ") GOTO 120
180 X=X+1:IF PEEK(X)<>ASC("B") GOTO 120
190 X=X+1
200 REM SYS TO THE CODE, WHEREVER
210 OPEN 15,8,15
220 OPEN 1,8,0,"$0:*=S"
230 GET#15,E,E$:IF E<>0 THEN PRINTE$:STOP
240 SYS X
250 CLOSE 1