10 NUMSETS=8:GOSUB 30000›30000 FOR X=0 TO 85:READ A:POKE 1547+X,A:NEXT X›30010 DATA 104,104,104,141,8,6,104,104,141,10,6,160,0,104,153,0,6,200,204,8,6,240,5,24,105›30020 DATA 4,208,242,104,169,0,141,9,6,133,20,169,7,162,6,160,57,32,92,228,96,72,138,72,165›30030 DATA 20,205,10,6,208,24,169,0,133,20,174,9,6,189,0,6,141,244,2,232,236,8,6,208,2›30040 DATA 162,0,142,9,6,104,170,104,76,98,228›30050 REM * 86 BYTES›30060 REM ******* LOAD CHAR SETS*******›30070 POKE 106,PEEK(106)-NUMSETS*4-1:GRAPHICS 0:CHSET=(PEEK(106)+1)*256:? "ONE MOMENT"›30080 CHI=CHSET/256›30090 DIM XFR$(28):RESTORE 30100:FOR N=1 TO 28:READ ML:XFR$(N,N)=CHR$(ML):NEXT N›30100 DATA 104,169,0,133,205,168,169,224,133,206,177,205,145,203,200,208›30110 DATA 249,230,204,230,206,165,206,201,228,208,239,96›30120 FOR X=0 TO NUMSETS-1:POKE 203,0:POKE 204,CHI+X*4:XFR=USR(ADR(XFR$)):NEXT X›30130 RESTORE 30180:FOR X=0 TO NUMSETS-1›30140 READ A:IF A=-1 THEN NEXT X:RETURN ›30150 FOR Z=0 TO 7:READ J:POKE CHSET+(1024*X)+A*8+Z,J:NEXT Z›30160 GOTO 30140›