1 REM **********************›2 REM * FAST DATA MOVEMENT *›3 REM *         by         *›4 REM *   Larry Serflaten  *›5 REM *    For: AC 1995    *›6 REM **********************›10 DIM SRC$(1),DST$(1),PLR$(16)›20 GRAPHICS 0:POKE 752,1:? " "›30 VVTP=PEEK(134)+PEEK(135)*256›40 STARP=PEEK(140)+PEEK(141)*256›50 FONT=PEEK(756)*256›60 DEST=(((PEEK(561)/4)-1)*4)*256›100 TEMP=FONT-STARP:GOSUB 9000›110 POKE VVTP+2,LO:POKE VVTP+3,HI›120 POKE VVTP+5,4:POKE VVTP+7,4›130 TEMP=DEST-STARP:GOSUB 9000›140 POKE VVTP+10,LO:POKE VVTP+11,HI›150 POKE VVTP+13,4:POKE VVTP+15,4›160 DST$=SRC$:POKE 756,DEST/256›170 POSITION 9,20›180 ? "The new font is ready."›190 DST$(9,16)=DST$›200 TEMP=PEEK(88)+PEEK(89)*256›210 TEMP=TEMP-STARP:GOSUB 9000›220 POKE VVTP+2,LO:POKE VVTP+3,HI›230 SRC$(125,125)=CHR$(128)›240 SRC$(126,155)=SRC$(125)›250 SRC$(685,715)=SRC$(125)›260 SRC$(165,165)=CHR$(1)›270 SRC$(166,195)=SRC$(165)›280 SRC$(205,675)=SRC$(165)›300 FOR I=1 TO 15:READ A›310 PLR$(I,I)=CHR$(A):NEXT I›320 TEMP=1›330 DST$(9,16)=PLR$(TEMP)›340 TEMP=TEMP+1:LO=SIN(1)›350 IF TEMP>8 THEN 320›360 GOTO 330›8000 END ›9000 HI=INT(TEMP/256)›9010 LO=TEMP-(HI*256)›9020 RETURN ›9998 DATA 0,0,48,48,0,0,3,3›9999 DATA 0,0,48,48,0,0,3›