10 'SAVE"Zemmix.cdr ][ By Cadari 2017
20 OUT(&H40),&HD4:Z=INP(&H49) 'XX0000XX =One chip: XX0001XX = Zemmix
30 IF NOT (Z AND &B00000100)=4 THEN PRINT "Nao e Zemmix"
40 SCREEN8:DEFINTA-Z:OPEN"grp:"AS#1
50 '
60 OUT&H40,&HD4:OUT&H41,&H3 ' Desliga turbo Zemmix
80 OUT&H40,&HD4:OUT&H41,&H1B ' Desliga turbo Blitter
82 PSET(5,60):PRINT#1,"Modo MSX2 puro "
85 GOSUB 130
87 OUT&H40,&HD4:OUT&H41,&HA ' liga turbo Zemmix
89 PSET(5,60):PRINT#1,"Turbo Zemmix sem turbo Blitter"
90 GOSUB 130
100 OUT&H40,&HD4:OUT&H41,&H1C ' Liga turbo Blitter
105 PSET(5,60):PRINT#1,"Turbo Zemmix COM turbo Blitter"
110 GOSUB 130
120 GOTO 80
125 '
130 LINE(0,0)-(255,50),,BF
135 FORX=0 TO 200 STEP50: FORI=0 TO 25:LINE(I+X,I)-(50-I+X,50-I),I,B:NEXTI:NEXTX
140 FORI=1 TO 200:COPY(0,0)-(50,50) TO (I,100):NEXTI
150 RETURN
160 GOTO 60