400 DEFINTA-Z:PRINT@42,CHR$(27)"qcopying Model 100 CHR$'s 128-255        to FX80 RAM..."
401 RESTORE410:FORI=0TO31:READZ:POKE65024+I,Z:NEXT:FORI=0TO5:READMZ%(I):NEXT:CALL27967,27:CALL27967,38:CALL27967,0:CALL27967,128:CALL27967,255
402 FORM=128TO255:PRINT@M-8,CHR$(M);:PRINT@M-8,;:A=155:CALL30300:CALLVARPTR(MZ%(0)),0,VARPTR(MZ%(3)):FORI=0TO5:CALL27967,A:CALL65024,PEEK(VARPTR(MZ%(3))+I),VARPTR(A):CALL27967,A:A=0:NEXTI:NEXTM
410 DATA0,87,62,0,6,1,14,128,54,0,183,216,120,162,120,23,71,121,31,79,202,11,254,245,23,182,119,241,195,11,254,0,22,13005,-13964,0,0,0