10 CLS 20 u=#20:v=7:gosub 1000 30 lc0,1:?"Ichigojam Color Adopter.":u=#23:v=0:w=2:x=59:y=3:z=1:gosub 1000:wait 50 42 lc0,4:?"BLUE":w=8:x=20:y=w+1:z=1:gosub 1000:wait 50 43 lc0,5:?"GREEN":w=10:y=w+1:z=2:gosub 1000:wait 50 44 lc0,6:?"CYAN":w=12:y=w+1:z=3:gosub 1000:wait 50 45 lc0,7:?"RED":w=14:y=w+1:z=4:gosub 1000:wait 50 46 lc0,8:?"MAGENTA":w=16:y=w+1:z=5:gosub 1000:wait 50 47 lc0,9:?"YELLOW":w=18:y=w+1:z=6:gosub 1000:wait 50 50 for x= 10 to 29:for y=5 to 14:lcx,y:?chr$(1);:next:next 60 for i=1 to 7:u=#23:v=15+i*5:w=10:x=20+i*5:y=29:z=i:gosub 1000:next:wait 50 70 u=#23:v=20:w=10:x=60:y=29:z=0:gosub 1000:wait 50 75 u=#22:v=20:w=12:x=60:y=29:z=4:gosub 1000:wait 50 80 u=#24:v=20:w=20:x=60:y=20:z=7:gosub 1000:wait 50 90 for j=1 to 7:a=-1:b=10:fori=0to39:u=#25:v=20+i:w=14+b/3:x=j:gosub 1000:b=b+a*j 100 if b<5 a=-a 110 if b>40 a=-a 120 next:wait 10:next 130 goto 70 999 goto 999 1000 lc22,22:?chr$(#80);chr$(#48);CHR$(u+#40);CHR$(v+#40);chr$(w+#40);chr$(x+#40);chr$(y+#40);chr$(z+#40);:return