Collection of Education/collectionofeducationcarat1997.iso/COMPUSCI/PCCAI210.ZIP/COLORS.CAI

Text File | 1993-12-06 | 15KB | 972 lines

.rem
.rem -----------------PRESS CTRL-G (Go) TO RUN THIS PROGRAM---------
.rem
.cls
.color 15,1
.cls
.color 4,15
.box (*5,10*) border center

         COLORS.CAI

    written by Don Moore
 Teikyo Marycrest University
    Davenport, Iowa, USA

 This program is placed in the
   public domain and may be
 freely copied and distributed.

.endbox
.color 15,1
.locate 24,1
.pau

.color 15,5
.cls
.color 15,5
.cls
.col 15,2
.bord (*5,10,17,70*) fill
.loc 1,1
.skip 7
.cen (*Choose the appropriate*)
.cen (*screen command.*)
.skip 1
.cen (*X - .screen 0*)
.cen (*Y - .screen 9*)
.col 15,5
.skip 5
@case(*XY:X,Y*) nobox
@End
@label:X
.screen 0
@goto:z
@label:Y
.screen 9
@goto:z

@label:z
.color 15,5
.cls
.color 15,5
.cls
.col 15,2
.bord (*5,10,17,70*) fill
.loc 1,1
.skip 7
.cen (*Choose the background color*)
.cen (*you wish to display.*)
.skip 1
.cen (*A - #0    G - #6      M - #12 *)
.cen (*B - #1    H - #7      N - #13 *)
.cen (*C - #2    I - #8      O - #14 *)
.cen (*D - #3    J - #9      P - #15 *)
.cen (*E - #4    K - #10     Q - Quit*)
.cen (*F - #5    L - #11             *)
.col 15,5
.skip 5
@case(*ABCDEFGHIJKLMNOPQ:A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q*) nobox
@End
.pau
@label:A
.col 0,0
.cls
.cls
.col 0,0
.cen (*This is black, #0.*)
.skip 2
.col 1,0
.cen (*This is blue, #1.*)
.skip 2
.col 2,0
.cen (*This is green, #2.*)
.skip 2
.col 3,0
.cen (*This is Cyan, #3.*)
.skip 2
.col 4,0
.cen (*This is red, #4.*)
.skip 2
.col 5,0
.cen (*This is magenta, #5.*)
.skip 2
.col 6,0
.cen (*This is brown, #6.*)
.skip 2
.col 7,0
.cen (*This is white, #7.*)
.pau
.cls
.col 8,0
.cen (*This is gray, #8.*)
.skip 2
.col 9,0
.cen (*This is light blue, #9.*)
.skip 2
.col 10,0
.cen (*This is light green, #10.*)
.skip 2
.col 11,0
.cen (*This is light cyan, #11.*)
.skip 2
.col 12,0
.cen (*This is light red, #12.*)
.skip 2
.col 13,0
.cen (*This is light magenta, #13.*)
.skip 2
.col 14,0
.cen (*This is yellow, #14.*)
.skip 2
.col 15,0
.cen (*This is high intensity white, #15.*)
.pau
.cls
@stop go:z

@label:B
.col 0,1
.cls
.cls
.col 0,1
.cen (*This is black, #0.*)
.skip 2
.col 1,1
.cen (*This is blue, #1.*)
.skip 2
.col 2,1
.cen (*This is green, #2.*)
.skip 2
.col 3,1
.cen (*This is Cyan, #3.*)
.skip 2
.col 4,1
.cen (*This is red, #4.*)
.skip 2
.col 5,1
.cen (*This is magenta, #5.*)
.skip 2
.col 6,1
.cen (*This is brown, #6.*)
.skip 2
.col 7,1
.cen (*This is white, #7.*)
.pau
.cls
.col 8,1
.cen (*This is gray, #8.*)
.skip 2
.col 9,1
.cen (*This is light blue, #9.*)
.skip 2
.col 10,1
.cen (*This is light green, #10.*)
.skip 2
.col 11,1
.cen (*This is light cyan, #11.*)
.skip 2
.col 12,1
.cen (*This is light red, #12.*)
.skip 2
.col 13,1
.cen (*This is light magenta, #13.*)
.skip 2
.col 14,1
.cen (*This is yellow, #14.*)
.skip 2
.col 15,1
.cen (*This is high intensity white, #15.*)
.pau
.cls
@stop go:z

@label:C
.col 0,2
.cls
.cls
.col 0,2
.cen (*This is black, #0.*)
.skip 2
.col 1,2
.cen (*This is blue, #1.*)
.skip 2
.col 2,2
.cen (*This is green, #2.*)
.skip 2
.col 3,2
.cen (*This is Cyan, #3.*)
.skip 2
.col 4,2
.cen (*This is red, #4.*)
.skip 2
.col 5,2
.cen (*This is magenta, #5.*)
.skip 2
.col 6,2
.cen (*This is brown, #6.*)
.skip 2
.col 7,2
.cen (*This is white, #7.*)
.pau
.cls
.col 8,2
.cen (*This is gray, #8.*)
.skip 2
.col 9,2
.cen (*This is light blue, #9.*)
.skip 2
.col 10,2
.cen (*This is light green, #10.*)
.skip 2
.col 11,2
.cen (*This is light cyan, #11.*)
.skip 2
.col 12,2
.cen (*This is light red, #12.*)
.skip 2
.col 13,2
.cen (*This is light magenta, #13.*)
.skip 2
.col 14,2
.cen (*This is yellow, #14.*)
.skip 2
.col 15,2
.cen (*This is high intensity white, #15.*)
.pau
.cls
@stop go:z

@label:D
.col 0,3
.cls
.cls
.col 0,3
.cen (*This is black, #0.*)
.skip 2
.col 1,3
.cen (*This is blue, #1.*)
.skip 2
.col 2,3
.cen (*This is green, #2.*)
.skip 2
.col 3,3
.cen (*This is Cyan, #3.*)
.skip 2
.col 4,3
.cen (*This is red, #4.*)
.skip 2
.col 5,3
.cen (*This is magenta, #5.*)
.skip 2
.col 6,3
.cen (*This is brown, #6.*)
.skip 2
.col 7,3
.cen (*This is white, #7.*)
.pau
.cls
.col 8,3
.cen (*This is gray, #8.*)
.skip 2
.col 9,3
.cen (*This is light blue, #9.*)
.skip 2
.col 10,3
.cen (*This is light green, #10.*)
.skip 2
.col 11,3
.cen (*This is light cyan, #11.*)
.skip 2
.col 12,3
.cen (*This is light red, #12.*)
.skip 2
.col 13,3
.cen (*This is light magenta, #13.*)
.skip 2
.col 14,3
.cen (*This is yellow, #14.*)
.skip 2
.col 15,3
.cen (*This is high intensity white, #15.*)
.pau
.cls
@stop go:z

@label:E
.col 0,4
.cls
.cls
.col 0,4
.cen (*This is black, #0.*)
.skip 2
.col 1,4
.cen (*This is blue, #1.*)
.skip 2
.col 2,4
.cen (*This is green, #2.*)
.skip 2
.col 3,4
.cen (*This is Cyan, #3.*)
.skip 2
.col 4,4
.cen (*This is red, #4.*)
.skip 2
.col 5,4
.cen (*This is magenta, #5.*)
.skip 2
.col 6,4
.cen (*This is brown, #6.*)
.skip 2
.col 7,4
.cen (*This is white, #7.*)
.pau
.cls
.col 8,4
.cen (*This is gray, #8.*)
.skip 2
.col 9,4
.cen (*This is light blue, #9.*)
.skip 2
.col 10,4
.cen (*This is light green, #10.*)
.skip 2
.col 11,4
.cen (*This is light cyan, #11.*)
.skip 2
.col 12,4
.cen (*This is light red, #12.*)
.skip 2
.col 13,4
.cen (*This is light magenta, #13.*)
.skip 2
.col 14,4
.cen (*This is yellow, #14.*)
.skip 2
.col 15,4
.cen (*This is high intensity white, #15.*)
.pau
.cls
@stop go:z

@label:F
.col 0,5
.cls
.cls
.col 0,5
.cen (*This is black, #0.*)
.skip 2
.col 1,5
.cen (*This is blue, #1.*)
.skip 2
.col 2,5
.cen (*This is green, #2.*)
.skip 2
.col 3,5
.cen (*This is Cyan, #3.*)
.skip 2
.col 4,5
.cen (*This is red, #4.*)
.skip 2
.col 5,5
.cen (*This is magenta, #5.*)
.skip 2
.col 6,5
.cen (*This is brown, #6.*)
.skip 2
.col 7,5
.cen (*This is white, #7.*)
.pau
.cls
.col 8,5
.cen (*This is gray, #8.*)
.skip 2
.col 9,5
.cen (*This is light blue, #9.*)
.skip 2
.col 10,5
.cen (*This is light green, #10.*)
.skip 2
.col 11,5
.cen (*This is light cyan, #11.*)
.skip 2
.col 12,5
.cen (*This is light red, #12.*)
.skip 2
.col 13,5
.cen (*This is light magenta, #13.*)
.skip 2
.col 14,5
.cen (*This is yellow, #14.*)
.skip 2
.col 15,5
.cen (*This is high intensity white, #15.*)
.pau
.cls
@stop go:z

@label:G
.col 0,6
.cls
.cls
.col 0,6
.cen (*This is black, #0.*)
.skip 2
.col 1,6
.cen (*This is blue, #1.*)
.skip 2
.col 2,6
.cen (*This is green, #2.*)
.skip 2
.col 3,6
.cen (*This is Cyan, #3.*)
.skip 2
.col 4,6
.cen (*This is red, #4.*)
.skip 2
.col 5,6
.cen (*This is magenta, #5.*)
.skip 2
.col 6,6
.cen (*This is brown, #6.*)
.skip 2
.col 7,6
.cen (*This is white, #7.*)
.pau
.cls
.col 8,6
.cen (*This is gray, #8.*)
.skip 2
.col 9,6
.cen (*This is light blue, #9.*)
.skip 2
.col 10,6
.cen (*This is light green, #10.*)
.skip 2
.col 11,6
.cen (*This is light cyan, #11.*)
.skip 2
.col 12,6
.cen (*This is light red, #12.*)
.skip 2
.col 13,6
.cen (*This is light magenta, #13.*)
.skip 2
.col 14,6
.cen (*This is yellow, #14.*)
.skip 2
.col 15,6
.cen (*This is high intensity white, #15.*)
.pau
.cls
@stop go:z

@label:H
.col 0,7
.cls
.cls
.col 0,7
.cen (*This is black, #0.*)
.skip 2
.col 1,7
.cen (*This is blue, #1.*)
.skip 2
.col 2,7
.cen (*This is green, #2.*)
.skip 2
.col 3,7
.cen (*This is Cyan, #3.*)
.skip 2
.col 4,7
.cen (*This is red, #4.*)
.skip 2
.col 5,7
.cen (*This is magenta, #5.*)
.skip 2
.col 6,7
.cen (*This is brown, #6.*)
.skip 2
.col 7,7
.cen (*This is white, #7.*)
.pau
.cls
.col 8,7
.cen (*This is gray, #8.*)
.skip 2
.col 9,7
.cen (*This is light blue, #9.*)
.skip 2
.col 10,7
.cen (*This is light green, #10.*)
.skip 2
.col 11,7
.cen (*This is light cyan, #11.*)
.skip 2
.col 12,7
.cen (*This is light red, #12.*)
.skip 2
.col 13,7
.cen (*This is light magenta, #13.*)
.skip 2
.col 14,7
.cen (*This is yellow, #14.*)
.skip 2
.col 15,7
.cen (*This is high intensity