SCREEN 0
WIDTH 80
CLS
PRINT "                               - = LIKE IT = -"
PRINT
PRINT "                              BY: DANIEL HEDS�N"
PRINT "                   THIS PROGRAM IS MADE IN QUICKBASIC 4.5"
PRINT
PRINT "                            PRESS A KEY TO START"

DO
LOOP UNTIL INKEY$ <> ""

CLS
PRINT "WHILE THE PROGRAM CALCULATE, THE SCREEN WILL BE BLANK..."
PRINT "...IT TAKES 10SEC. TO 3MIN. (DEPENDS ON WHAT COMPUTER YOU GOT)"
PRINT
PRINT "PRESS A KEY TO START THE CALCULATING!"
PRINT "PRESS ESC NOW TO END THE PROGRAM"

DO
  a$ = INKEY$
  IF a$ = CHR$(27) THEN CLS : PRINT "OK...": SLEEP 2: GOTO 10 ELSE IF a$ <> "" THEN GOTO start
LOOP

start:
SCREEN 13
CLS
DIM theend(1 TO 10000)
DEF SEG = &HA000

FOR a = 0 TO 255
  OUT 968, a
  OUT 969, 0
  OUT 969, 0
  OUT 969, 0
NEXT a

COLOR 126
LOCATE 1, 1
PRINT "- = THE END = -"

FOR x = 0 TO 128
   FOR y = 0 TO 10
     IF POINT(x, y) < 126 THEN GOTO 7
     LINE ((x * 2) + 30, (y * 4) + 90)-((x * 2 + 1) + 30, (y * 4 + 3) + 90), POINT(x, y), BF
7  NEXT y
NEXT x

COLOR 0
LOCATE 1, 1
PRINT "- = THE END = -"

FOR b = 1 TO 2
  FOR x = 27 TO 290
    FOR y = 87 TO 136
      IF POINT(x, y) < 1 THEN GOTO 4
      prick = (POINT(x + 1, y) + POINT(x - 1, y) + POINT(x, y + 1) + POINT(x, y - 1)) / 4
      POKE x + (y * 320), prick
4   NEXT y
  NEXT x
NEXT b

GET (27, 75)-(290, 140), theend

CLS
DIM pal(255, 3)
DIM fadein(255, 3)
DIM namn(120, 10)
DEF SEG = &HA000

COLOR 126
PRINT "Do YoU LiKE iT?"

FOR x = 0 TO 117
  FOR y = 0 TO 8
    namn(x, y) = POINT(x, y)
  NEXT y
NEXT x

CLS
FOR x = 0 TO 320
  FOR y = 0 TO 200
    POKE x + y * 320, (INT(RND * 150) + 1)
  NEXT y
NEXT x

FOR x = 0 TO 117
  FOR y = 0 TO 8
    IF namn(x, y) <= 1 THEN GOTO 1
    LINE ((x * 2) + 35, (y * 4) + 90)-((x * 2 + 1) + 35, (y * 4 + 3) + 90), namn(x, y), BF
1 NEXT y
NEXT x

FOR b = 1 TO 2
  FOR x = 0 TO 320
    FOR y = 0 TO 200
      POKE x + (y * 320), (POINT(x - 1, y) + POINT(x + 1, y) + POINT(x, y - 1) + POINT(x, y + 1)) / 4
    NEXT y
  NEXT x
NEXT b

a = 64
FOR b = 1 TO 63
  pal(b, 1) = b
  pal(b, 2) = b
  pal(b, 3) = b
  pal(b + 63, 1) = a - b
  pal(b + 63, 2) = a - b
  pal(b + 63, 3) = a - b
  pal(b + 126, 1) = b
  pal(b + 126, 2) = b
  pal(b + 126, 3) = b
  pal(b + 189, 1) = a - b
  pal(b + 189, 2) = a - b
  pal(b + 189, 3) = a - b
NEXT b

FOR a = 0 TO 255
  fadein(a, 1) = 0
  fadein(a, 2) = 0
  fadein(a, 3) = 0
NEXT a

FOR c = 0 TO 63
  FOR b = 1 TO 255
    IF fadein(b, 1) = pal(b, 1) THEN fadein(b, 1) = fadein(b, 1) ELSE fadein(b, 1) = fadein(b, 1) + 1
    IF fadein(b, 2) = pal(b, 2) THEN fadein(b, 2) = fadein(b, 2) ELSE fadein(b, 2) = fadein(b, 2) + 1
    IF fadein(b, 3) = pal(b, 3) THEN fadein(b, 3) = fadein(b, 3) ELSE fadein(b, 3) = fadein(b, 3) + 1
  NEXT b
  FOR a = 0 TO 255
    OUT 968, a
    OUT 969, fadein(a, 1)
    OUT 969, fadein(a, 2)
    OUT 969, fadein(a, 3)
  NEXT a
NEXT c

DO
  FOR a = 1 TO 255
    OUT 968, a
    OUT 969, pal((a + frg) MOD 255, 1)
    OUT 969, pal((a + frg) MOD 255, 2)
    OUT 969, pal((a + frg) MOD 255, 3)
  NEXT a
  IF frg > 255 THEN frg = 1
  frg = frg + 1
LOOP UNTIL INKEY$ <> ""

FOR a = 0 TO 255
  OUT 968, a
  pal(a, 1) = INP(&H3C9)
  pal(a, 2) = INP(&H3C9)
  pal(a, 3) = INP(&H3C9)
NEXT a

FOR c = 0 TO 63
  FOR b = 0 TO 255
    IF pal(b, 1) + pal(b, 2) + pal(b, 3) = 0 THEN GOTO 2
    IF pal(b, 1) <= 0 THEN pal(b, 1) = pal(b, 1) ELSE pal(b, 1) = pal(b, 1) - 1
    IF pal(b, 2) <= 0 THEN pal(b, 2) = pal(b, 2) ELSE pal(b, 2) = pal(b, 2) - 1
    IF pal(b, 3) <= 0 THEN pal(b, 3) = pal(b, 3) ELSE pal(b, 3) = pal(b, 3) - 1
2 NEXT b
  FOR a = 1 TO 255
    OUT 968, a
    OUT 969, pal(a, 1)
    OUT 969, pal(a, 2)
    OUT 969, pal(a, 3)
  NEXT a
NEXT c

CLS
FOR a = 0 TO 255
  OUT 968, a
  OUT 969, 0
  OUT 969, 0
  OUT 969, 0
NEXT a
 
FOR a = 1 TO 63
  OUT 968, a
  OUT 969, a
  OUT 969, 0
  OUT 969, 0
  OUT 968, a + 63
  OUT 969, 63
  OUT 969, a
  OUT 969, 0
NEXT a

PUT (30, 70), theend, PSET

FOR a = 1 TO 126
  OUT 968, a
  pal(a, 1) = INP(&H3C9)
  pal(a, 2) = INP(&H3C9)
  pal(a, 3) = INP(&H3C9)
NEXT a

FOR c = 0 TO 63
  FOR b = 1 TO 126
    IF pal(b, 1) + pal(b, 2) + pal(b, 3) = 0 THEN GOTO 5
    IF pal(b, 1) <= 0 THEN pal(b, 1) = pal(b, 1) ELSE pal(b, 1) = pal(b, 1) - 1
    IF pal(b, 2) <= 0 THEN pal(b, 2) = pal(b, 2) ELSE pal(b, 2) = pal(b, 2) - 1
    IF pal(b, 3) <= 0 THEN pal(b, 3) = pal(b, 3) ELSE pal(b, 3) = pal(b, 3) - 1
5 NEXT b
  FOR a = 1 TO 126
    OUT 968, a
    OUT 969, pal(a, 1)
    OUT 969, pal(a, 2)
    OUT 969, pal(a, 3)
  NEXT a
NEXT c

10 SCREEN 0
WIDTH 80
CLS
PRINT "                               - = LIKE IT = -"
PRINT
PRINT "                              BY: DANIEL HEDS�N"
PRINT "                    FEEL FREE TO COPY THIS TO YOUR FRIENDS"
PRINT "       PLEASE SEND A E-MAIL AND TELL ME WHAT YOU THINK ABOUT THE PROGRAM"
PRINT
PRINT "                    E-MAIL: daniel.hedsen@mn.medstroms.se"
PRINT "                            Visit: The QBasic Site"
PRINT "                        http://hem.passagen.se/hedsen"
SYSTEM