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¢
