Oki OKIMATE 10 Handbook page 48

5 R E M :C O M M O D O R E CO L O R DE MO
OP E N
10
3 , 4
2D RE AD Y , M , C
3D P R I N T # 3 , C H R $ ( 2 ? ) ; C H R $ ( 2 5 ) ;
35 P R I N T # 3 , C H R $ ( A ) ;
ON Y G O S U B 1 0 0 0 , 2 0 0 0 , 3 0 0 0
40
50 ON M G O S U B 1 0 0 0 , 2 0 0 0 , 3 0 0 0
to ON C G O S U B 1 0 0 0 , 2 0 0 0 , 3 0 0 0
70 P R I N T # 3 , C H R $ ( 2 7 ) ; C H R $ ( 1 0 ) ; C H R $ ( 1 4 ) ;
AO IF Y=0 T H E N P R I N T # 3 , C H R $ ( 1 5 ) : C L O S E 3 : END
qo G O T O 20
1000 P R I N T # 3 , C H R $ ( 2 t ) ; C H R $ ( 2 5 0 ) ; C H R $ ( 2 5 5 ) ;
1005 P R I N T # 3 , C H R $ ( 1 3 ) ;
1010 R E T U R N
2000 FO R X=1 TO 125
2010 P R I N T # 3 , C H R $ ( 2 1 3 ) ; C H R $ ( 1 7 0) ;
20 20 N EX T X
2025 P R I N T # 3 , C H R $ ( 1 3 ) ;
2030 R E T U R N
3000 P R I N T # 3 , C H R $ ( 1 3 ) ;
3010 R E T U R N
4 000 D A T A 1 , 1 , 1 , 2 , 1 , 1 , 3 , 1 , 1 , 2 , 2 , 1 , 3 , 1 , 2 , 2 , 3 , 1 , 3 , 2 , 1 , 3 , 3 , 1 , 3 , 2 , 2 , 3 , 3 , 2, 1, 2,1
4010 D A T A 2 , 1 , 2 , 2 , 2 , 2 , 1 , 1 , 3 , 2 , 1 , 3 , 3 , 1 , 3 , 2 , 3 , 2 , 2 , 2 , 3 , 3 , 2 , 3 , 1 , 2 , 2 , 1 , 2 , 3, 1 ,3,3
402 0 D A T A 2 , 3 , 3 , 1 , 1 , 2 , 1 , 3 , 1 , 1 , 3 , 2 , 0 , 0 , 0
<03 0 R E M :l = S O L I D C O L O R
4040 R E M :2 = H A L F - T O N E
4 050 R E M :3 = W H I T E
( SKI P C OLO R)
DO-IT-YOURSELF COLOR
44