100 REM CHSET DATAMAKER›102 GRAPHICS 1+16:CHSET=(PEEK(106)-8)*256›105 DIM F$(14),OF$(14)›110 POSITION 3,0:? #6;"character set"›120 POSITION 5,2:? #6;"datamaker"›130 ? #6:? #6;"THIS UTILITY CREATES"›140 ? #6;"A SET OF DATA STATE-";›150 ? #6;"MENTS FROM A SAVED"›160 ? #6;"CHARACTER SET.  IT"›170 ? #6;"OPTIMIZES BY ONLY"›180 ? #6;"LISTING CHARACTERS"›190 ? #6;"NOT PRESENT IN THE"›200 ? #6;"STANDARD CHARACTER"›210 ? #6;"SET."›220 ? #6:? #6;"PRESS ïðôéïî"›230 IF PEEK(53279)<>3 THEN 230›240 GRAPHICS 1+16›250 ? #6;"THE DATA STATEMENTS"›260 ? #6;"WILL BE WRITTEN"›270 ? #6;"AS A list FILE."›280 ? #6;"USE enter TO MERGE"›290 ? #6;"THE DATA WITH YOUR"›300 ? #6;"PROGRAM.":? #6:? #6;"ÅÎÔÅÒ ÆÉÌÅÎÁÍÅ":? #6;"ÏÆ ÃÈÁÒÁÃÔÅÒ ÓÅÔ"›305 POKE 82,0:POKE 87,0›310 ? "œ";:INPUT F$:IF F$="" THEN 310›315 IF F$="C" OR F$="C:" THEN CASS=1:GOTO 332›320 ? "œœœœœœÅÎÔÅÒ ÏÕÔÐÕÔ        ÆÉÌÅÎÁÍÅ":? :? ›330 ? "œ";:INPUT OF$:IF OF$="" THEN 330›335 ? "œœœÅÎÔÅÒ ÌÉÎÅ £ ÆÏÒ     ÄÁÔÁ ÓÔÁÔÅÍÅÎÔÓ":? :? ›340 INPUT SLINE›345 CLOSE #1›350 GRAPHICS 2+16:SETCOLOR 4,3,0›360 IF CASS THEN ? #6:? #6;"POSITION CHARACTER":? #6;"SET TAPE,HIT ÒÅÔÕÒÎ"›370 POSITION 5,6:? #6;"working"›375 GOSUB 1000:REM LOAD CHARACTER SET›377 IF CASS THEN ? #6;"}INSERT OUTPUT TAPE,":? #6;"PRESS ÒÅÔÕÒÎ"›380 OPEN #2,8,0,OF$:POSITION 5,6:? #6;"÷ïòëéî玎Ž"›381 ? #2;SLINE;"CHSET=(PEEK(106)-8)*256:FOR I=0 TO 1023:POKE CHSET+I,PEEK(57344+I):NEXT I"›382 ? #2;SLINE+1;"RESTORE ";SLINE+5›383 ? #2;SLINE+2;"READ A:IF A=-1 THEN RETURN"›384 ? #2;SLINE+3;"FOR J=0 TO 7:READ B:POKE CHSET+A*8+J,B:NEXT J"›385 ? #2;SLINE+4;"GOTO ";SLINE+2›387 LINE=SLINE+4›390 FOR I=0 TO 127:F=0›400 FOR J=0 TO 7›420 IF PEEK(CHSET+I*8+J)<>PEEK(57344+I*8+J) THEN F=1›430 NEXT J›440 IF  NOT F THEN 460›445 LINE=LINE+1›450 ? #2;LINE;" DATA ";:? #2;I;:FOR J=0 TO 7:? #2;",";PEEK(CHSET+I*8+J);:NEXT J:? #2›460 NEXT I:? #2;LINE+1;"DATA -1"›470 ? "All finished!  Use ENTER ";CHR$(34);OF$›480 ? "to merge the file."›490 END ›1000 REM HIGH-SPEED LOAD OF CHARACTER SET›1005 OPEN #1,4,0,F$:REM OPEN FILE›1010 X=16:REM $10›1020 ICCOM=834:ICBADR=836:ICBLEN=840›1030 POKE ICBADR+X+1,CHSET/256:POKE ICBADR+X,0›1040 POKE ICBLEN+X+1,4:POKE ICBLEN+X,0›1050 POKE ICCOM+X,7:A=USR(ADR("hhhªLVä"),X):REM CALL CIO›1060 CLOSE #1:RETURN ›