100 '  RESO. CHECK & POKE
110   IF PEEK(1)<>&HFA THEN 260 ' Is X1 standard IOCS ?
120   OUT&H37FF,0:OUT&H3FFF,1              'KANJI VRAM CHECK
130   X1=(INP(&H1FF0)AND1 OR INP(&H37FF))  'X1 OR STAND THEN X1=1
140 '
150   IF X1 THEN W4$="37 28 2D 34 1F 02 19 1C 00 07":W8$="6F 50 59 38":R=0:W=&HE ELSE W4$="35 28 2D 84 1B 02 19 1A 00 0F":W8$="6B 50 59 88":R=3:W=&H13
160 '
170 'DATA POKE
180   W4$=HEXCHR$(W4$):MEM$(&HDD,10)=W4$
190   W8$=HEXCHR$(W8$):MEM$(&HED,4 )=W8$
200   POKE &HABF,W : POKE &HADF,W                      'PCG Ver.1.0
210  'IF X1 THEN M1$="CD787C F7 ED78 FA1E7C D9 ED50 04 ED58":M2$="CD787C DD5600 DD5E00 DD5E08 DD23 F7" ELSE M1$="1E15CD3300 1E16CD3300 1E17C33300":M2$="1E15CD2B00 1E16CD2B00 1E17C32B00"                                        'PCG Ver 2.0
220  'MEM$(&H7C1A,15)=HEXCHR$(M1$):MEM$(&H7C3C,15)=HEXCHR$(M2$)  'PCG Ver 2.0
230 'RESO. SET
240   WIDTH 40:FOR I=0 TO 9:OUT&H1800,I:OUT&H1801,ASC(MID$(W4$,I+1,1)):NEXT
250   OUT &H1FD0,R
260 'SET END