10 AD=&H33B 'CHRDT
20 BG=&H77B 'BGVRAM
30 PRINT "ʲ¹² ";:INPUT A
40 '
50 IF A=0 THEN
60  POKE &H101,&HB1:POKE &H102,&H02
70 ELSE
80  POKE &H101,&H97:POKE &H102,&H01
90 ENDIF
100 '
110 FOR I=0 TO 19:J=I*16
120  A=RND(2)   :POKE (AD+J+0),A 'CHRNO
130  A=RND(48)+8:POKE (AD+J+2),A 'X
140  A=RND(48)+8:POKE (AD+J+4),A 'Y
150  B=RND(1)
160  A=RND(256)-1
170  IF B=1 THEN
180   POKE(AD+J+5),0:POKE(AD+J+6),1
190   POKE(AD+J+7),A:POKE(AD+J+8),0
200  ELSE
210   POKE(AD+J+5),A:POKE(AD+J+6),0
220   POKE(AD+J+7),0:POKE(AD+J+8),1
230  ENDIF
240 NEXT
250 '
260 CALL &H100 'SAMPLE