' *********** CHECK README.1ST FIRST *********************
SCREEN 12
DIM Box1%(15000)
FOR a = 0 TO 15
READ b, c, d
OUT (&H3C8), a
OUT (&H3C9), b
OUT (&H3C9), c
OUT (&H3C9), d
NEXT a
DATA 000,000,000
DATA 000,010,063, 000,030,063, 060,030,000
DATA 080,030,000, 070,000,000, 100,000,000
DATA 050,056,050, 025,025,025, 100,100,100
DATA 020,030,020,035,058,035,050,075,050
DATA 040,040,000, 070,070,000, 100,100,000
'D-Kirjain
DIM r(15), g(15), b(15)
DIM r1(15), g1(15), b1(15)
FOR i = 1 TO 15
OUT (&H3C7), i
r(i) = INP(&H3C9)
g(i) = INP(&H3C9)
b(i) = INP(&H3C9)
IF r(i) = 0 THEN r(i) = 1
IF g(i) = 0 THEN g(i) = 1
IF b(i) = 0 THEN b(i) = 1
IF r(i) = 63 THEN r(i) = 62
IF g(i) = 63 THEN g(i) = 62
IF b(i) = 63 THEN b(i) = 62
r1(i) = r(i)
g1(i) = g(i)
b1(i) = b(i)
NEXT i
FOR a = 1 TO 63
FOR i = 1 TO 2
r(i) = ABS(r(i) - 1)
g(i) = ABS(g(i) - 1)
b(i) = ABS(b(i) - 1)
OUT (&H3C8), i
OUT (&H3C9), r(i)
OUT (&H3C9), g(i)
OUT (&H3C9), b(i)
COLOR i
NEXT i
NEXT a
LINE (5, 5)-(50, 3), 1
LINE (5, 5)-(5, 160), 1
LINE (5, 160)-(50, 163), 1
LINE (50, 3)-(50, 163), 1
PAINT (10, 10), 1, 1
LINE (50, 3)-(107, 85), 2
LINE (107, 85)-(50, 163), 2
LINE (50, 3)-(50, 163), 2
PAINT (80, 110), 2, 2
LINE (70, 70)-(70, 100), 1
LINE (70, 70)-(80, 85), 1
LINE (70, 100)-(80, 85), 1
PAINT (75, 85), 1, 1
'E-Kirjain
LINE (98, 72)-(120, 3), 1
LINE (90, 5)-(120, 3), 1
LINE (134, 123)-(78, 42), 1
LINE (78, 42)-(90, 5), 1
PAINT (100, 10), 1, 1
LINE (134, 123)-(100, 120), 1
LINE (100, 120)-(92, 107), 1
LINE (92, 107)-(108, 85), 1
PAINT (110, 100), 1, 1
LINE (134, 123)-(150, 100), 2
LINE (134, 123)-(100, 75), 2
LINE (100, 75)-(150, 100), 2
PAINT (140, 100), 2, 2
LINE (98, 75)-(120, 3), 2
LINE (120, 3)-(145, 20), 2
LINE (145, 20)-(98, 75), 2
PAINT (140, 25), 2, 2
LINE (98, 75)-(140, 55), 2
LINE (140, 55)-(135, 80), 2
LINE (135, 80)-(98, 75), 2
PAINT (120, 70), 2, 2
LINE (140, 55)-(114, 58), 1
LINE (114, 58)-(99, 73), 1
LINE (98, 75)-(140, 55), 1
PAINT (115, 60), 1, 1
'M-Kirjain
LINE (150, 5)-(180, 3), 1
LINE (150, 5)-(137, 93), 1
LINE (180, 3)-(160, 123), 1
LINE (160, 123)-(137, 120), 1
LINE (137, 120)-(151, 100), 1
LINE (151, 100)-(137, 93), 1
PAINT (150, 50), 1, 1
LINE (180, 3)-(200, 120), 2
LINE (180, 3)-(161, 123), 2
LINE (161, 123)-(200, 120), 2
PAINT (185, 50), 2, 2
LINE (180, 3)-(220, 70), 2
LINE (180, 3)-(210, 95), 2
LINE (210, 95)-(245, 3), 2
PAINT (200, 50), 2, 2
LINE (180, 3)-(210, 95), 1
LINE (210, 95)-(196, 92), 1
LINE (196, 92)-(180, 3), 1
PAINT (190, 50), 1, 1
LINE (210, 95)-(243, 65), 2
LINE (245, 3)-(240, 115), 2
PAINT (230, 50), 2, 2
LINE (240, 115)-(270, 112), 2
LINE (270, 112)-(246, 3), 2
PAINT (260, 90), 2, 2
LINE (240, 115)-(220, 112), 1
LINE (240, 115)-(242, 67), 1
LINE (242, 67)-(222, 84), 1
LINE (222, 84)-(220, 112), 1
PAINT (226, 92), 1, 1
LINE (245, 3)-(220, 5), 1
LINE (220, 5)-(205, 45), 1
LINE (205, 45)-(220, 70), 1
LINE (220, 70)-(245, 3), 1
PAINT (220, 60), 1, 1
'O-Kirjain
LINE (280, 5)-(262, 70), 1
LINE (280, 5)-(310, 3), 1
LINE (310, 3)-(285, 90), 1
LINE (262, 70)-(265, 90), 1
LINE (285, 90)-(310, 110), 1
LINE (265, 90)-(285, 107), 1
LINE (285, 107)-(310, 110), 1
PAINT (270, 50), 1, 1
LINE (310, 3)-(285, 90), 2
LINE (285, 90)-(310, 110), 2
LINE (310, 110)-(350, 90), 2
LINE (330, 10)-(350, 90), 2
LINE (330, 10)-(310, 3), 2
PAINT (320, 50), 2, 2
LINE (320, 50)-(325, 75), 1
LINE (325, 75)-(310, 80), 1
LINE (310, 80)-(320, 50), 1
PAINT (320, 55), 1, 1
GET (0, 0)-(360, 160), Box1%
CLS
PUT (150, 100), Box1%, PSET
FOR a = 1 TO 63
FOR i = 1 TO 5
IF r(i) < r1(i) THEN r(i) = r(i) + 1
IF g(i) < g1(i) THEN g(i) = g(i) + 1
IF b(i) < b1(i) THEN b(i) = b(i) + 1
OUT (&H3C8), i
OUT (&H3C9), r(i)
OUT (&H3C9), g(i)
OUT (&H3C9), b(i)
FOR h = 1 TO 500: NEXT h
NEXT i
NEXT a
SLEEP 2
FOR a = 1 TO 63
FOR i = 1 TO 5
r(i) = ABS(r(i) - 1)
g(i) = ABS(g(i) - 1)
b(i) = ABS(b(i) - 1)
OUT (&H3C8), i
OUT (&H3C9), r(i)
OUT (&H3C9), g(i)
OUT (&H3C9), b(i)
FOR h = 1 TO 500: NEXT h
NEXT i
NEXT a
LINE (1, 1)-(640, 480), 0, BF
FOR i = 1 TO 15
OUT (&H3C8), i
OUT (&H3C9), r1(i)
OUT (&H3C9), g1(i)
OUT (&H3C9), b1(i)
NEXT i
