-.J _ CHSEFOFCASSLINLINICCOICBADICBLE dCHSET DATAMAKERf6+@%@66-+F:A,&@,$AVi;@,;@,n0-@0(@ character setx,-@@,(@ datamaker0(@0(@THIS UTILITY CREATES&&(@A SET OF DATA STATE-##(@MENTS FROM A SAVED##(@CHARACTER SET. IT""(@OPTIMIZES BY ONLY##(@LISTING CHARACTERS##(@NOT PRESENT IN THE##(@STANDARD CHARACTER(@SET.((@((@ PRESS  F:B2y,@A0+@%@$$(@THE DATA STATEMENTS (@WILL BE WRITTEN (@AS A list FILE.##(@USE enter TO MERGE"##(@THE DATA WITH YOUR,^(@PROGRAM.$(@@(@Ҡ^(@ƠҠ1'@'@6 (4A;(4C)4C:6-@( A2@60((Ҡ 3(6(J (4A0O82(*ҠŠ 5(8(TY@^/+@%@/0@@hS(@2(@POSITION CHARACTERS(@SET TAPE,HIT r--@@-(@ workingw" A"LOAD CHARACTER SETyC)(@}INSERT OUTPUT TAPE,C(@ PRESS |J @@2-@@J(@ 玎}\\(@ICHSET=(PEEK(106)-8)*256:FOR I=0 TO 1023:POKE CHSET+I,PEEK(57344+I):NEXT I~--(@%@RESTORE %@55(@%@READ A:IF A=-1 THEN RETURNHH(@%@-FOR J=0 TO 7:READ B:POKE CHSET+A*8+J,B:NEXT J**(@%@GOTO %@6-%@#-A'#6--@9-F:%$@%,F:BsD%$@%,96-@ (A`6-%@l(@ DATA ((@<-@](@,F:%$@%,a l(@& &(@%@DATA -1..(All finished! Use ENTER >:@4,(to merge the file.&&HIGH-SPEED LOAD OF CHARACTER SET, @@,OPEN FILE6-@$10'6-A46-A6'6-A@)%%@'AV)%'%%@@'%2%@'6-?:C:hhhLV,<,2CALL CIO$@$ D6:P067L4.BAS