My own way of describing the
odyssey, as I did some years ago through
QBasic. Now when you run the
program, you have to keep
pressing enter to
progress through the story (
spacebar or any other
key will do fine). There are some
parts when it might seem to have
stopped but if something is still
moving on the
screen then it's still
running, you'll just have to
wait. And
remember you need
QBasic (it's
free). It's not over until the
ending credits! (It was hard to type!)
(If you need QBasic you can currently find some (not necessarily good) compilers at:
http://www.quickbasic.net/main/compilers.shtml)
DECLARE SUB suitor ()
DECLARE SUB main ()
DECLARE SUB telemachus ()
DECLARE SUB fb1 ()
DECLARE SUB fb2 ()
DECLARE SUB fb3 ()
DECLARE SUB suitorshooter ()
DECLARE SUB credits ()
CLS
SCREEN 13
COLOR 250
LOCATE 11, 7
PRINT " ELM Media Company Co."
LOCATE 13, 7
PRINT "Corporations Incorporated "
LOCATE 15, 7
PRINT " Inc. Productions "
LOCATE 17, 7
PRINT " Presents "
FOR a = 0 TO 63
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
SLEEP 2
FOR a = 63 TO 0 STEP -1
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
CLS
SCREEN 13
COLOR 250
LOCATE 11, 13
PRINT "A Hackthemainframe "
LOCATE 13, 13
PRINT " Film "
FOR a = 0 TO 63
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
SLEEP 2
FOR a = 63 TO 0 STEP -1
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
CLS
SCREEN 13
COLOR 250
LOCATE 11, 13
PRINT " Produced "
LOCATE 13, 13
PRINT " by "
LOCATE 15, 13
PRINT "Hackthemainframe "
FOR a = 0 TO 63
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
SLEEP 2
FOR a = 63 TO 0 STEP -1
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
CLS
SCREEN 13
COLOR 250
LOCATE 11, 13
PRINT " Directed "
LOCATE 13, 13
PRINT " by "
LOCATE 15, 13
PRINT "Hackthemainframe "
FOR a = 0 TO 63
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
SLEEP 2
FOR a = 63 TO 0 STEP -1
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
CLS
SCREEN 13
COLOR 250
LOCATE 11, 13
PRINT " Okay, so it was written by "
LOCATE 13, 13
PRINT " Homer "
FOR a = 0 TO 63
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
SLEEP 2
FOR a = 63 TO 0 STEP -1
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
CLS
SCREEN 13
COLOR 250
LOCATE 11, 13
PRINT " But the rest was done by "
LOCATE 13, 13
PRINT " Hackthemainframe "
FOR a = 0 TO 63
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
SLEEP 2
FOR a = 63 TO 0 STEP -1
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
CLS
SCREEN 13
COLOR 250
LOCATE 11, 13
PRINT " Really "
FOR a = 0 TO 63
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
SLEEP 2
FOR a = 63 TO 0 STEP -1
PALETTE 250, a
FOR B = 1 TO 500
NEXT B
NEXT a
100
DEFINT A-B, D-Z
CLS : SCREEN 13
LOCATE 23, 3
PRINT "The"
midx = 160: midy = 100
LOCATE 1, 29
COLOR 15: PRINT "ODYSSEY"
FOR x = 220 TO 290
FOR y = 0 TO 10
IF POINT(x, y) > 0 THEN LINE ((x - 180) * 2, y * 2 + 47)-((x - 180) * 2 + 2, y * 2 + 49), 15, BF
NEXT y
NEXT x
LINE (0, 0)-(midx * 2, 10), 0, BF
FOR x = 80 TO 212
LINE (115, 50)-(x, 50), 0
NEXT
FOR x = 80 TO 215
FOR y = 46 TO 70
IF POINT(x, y) = 15 THEN GOTO skip2y
IF POINT(x + 1, y + 1) = 15 THEN PSET (x, y), 50
IF POINT(x, y + 1) = 15 OR POINT(x + 1, y) = 15 THEN PSET (x, y), 49
IF POINT(x - 1, y + 1) = 15 OR POINT(x + 1, y - 1) = 15 THEN PSET (x, y), 48
IF POINT(x, y - 1) = 15 OR POINT(x - 1, y) = 15 THEN PSET (x, y), 47
IF POINT(x - 1, y - 1) = 15 THEN PSET (x, y), 46
skip2y:
FOR dly = 1 TO 25: NEXT
NEXT y
NEXT x
FOR x = 80 TO 212
FOR y = 46 TO 80
IF POINT(x, y) = 15 THEN PSET (x, y), 32 - (y - 46)
FOR dly = 1 TO 25: NEXT
NEXT y
NEXT x
FOR i = 1 TO 5
n = i * 12
C = n * 65536 + n * 256 + n
PALETTE i + 45, C
NEXT i
shade = 0
col = 11
LOCATE 23, 3: COLOR 1: PRINT " ELM Media"
LOCATE 5, 9: COLOR 15: PRINT " The "
SLEEP 1
selector = 1
dotx = 92: dotc = 123
DO
LINE (dotx - 3, 50)-(dotx + 3, 50), 0
IF h = 1 THEN dotx = dotx + 1: IF dotx > 209 THEN h = 0
IF h = 0 THEN dotx = dotx - 1: IF dotx < 92 THEN h = 1
LINE (dotx - 3, 50)-(dotx + 3, 50), dotc
PALETTE dotc, ((col) * (256 ^ 1)) + ((-col + 66) * (256 ^ 2))
IF selector <> 1 THEN cs = 1
IF selector <> 2 THEN ci = 1
IF selector <> 3 THEN co = 1
IF selector <> 4 THEN cc = 1
IF selector <> 5 THEN cq = 1
SELECT CASE selector
CASE 1: cs = 6: PALETTE cs, col
CASE 2: ci = 6: PALETTE ci, col
CASE 3: co = 6: PALETTE co, col
CASE 4: cc = 6: PALETTE cc, col
CASE 5: cq = 6: PALETTE cq, col
END SELECT
IF shade = 0 THEN col = col + 1: IF col > 60 THEN shade = 1
IF shade = 1 THEN col = col - 1: IF col < 10 THEN shade = 0
IF LCASE$(a$) = "s" THEN selector = 1
IF LCASE$(a$) = "i" THEN selector = 2
IF LCASE$(a$) = "o" THEN selector = 3
IF LCASE$(a$) = "c" THEN selector = 4
IF a$ = CHR$(27) OR LCASE$(a$) = "q" THEN selector = 5
IF a$ = CHR$(0) + CHR$(72) THEN selector = selector - 1: IF selector < 1 THEN selector = 5
IF a$ = CHR$(0) + CHR$(80) THEN selector = selector + 1: IF selector > 5 THEN selector = 1
IF a$ = CHR$(13) THEN
IF selector = 1 THEN selector = 1: SLEEP 3
CALL main
IF selector = 2 THEN selector = 2: SLEEP 3
CALL main
IF selector = 3 THEN selector = 3: SLEEP 3
CALL main
IF selector = 4 THEN selector = 4: SLEEP 3
CALL main
IF selector = 5 THEN selector = 5: SLEEP 3
CALL main
END IF
a$ = INKEY$
LOOP
selector = 1
360
STOP
SLEEP 10
GOTO 650
370
STOP
SLEEP 10
GOTO 650
380
STOP
650
STOP
999
LOCATE 1, 1
INPUT "Are you sure you want to quit?(y/n)", quit$
IF quit$ = "y" THEN STOP
IF quit$ = "n" THEN STOP
IF quit$ <> "y" AND quit$ <> "n" THEN GOTO 999
SUB credits
CLS
SCREEN 13
CLS
SCREEN 13
LOCATE 1, 12
PRINT "Qbasic provided by"
FOR i = 1 TO 12
FOR n = 1 TO 11
LOCATE i, 12
PRINT "Qbasic provided by"
LOCATE n, 12
PRINT " "
FOR j = 1 TO 300
NEXT j
NEXT n
NEXT i
SLEEP
CLS
LOCATE 12, 12
PRINT "Justin Stark"
SLEEP
CLS
LOCATE 1, 12
PRINT "Story provided by"
FOR i = 1 TO 12
FOR n = 1 TO 11
LOCATE i, 12
PRINT "Story provided by"
LOCATE n, 12
PRINT " "
FOR j = 1 TO 300
NEXT j
NEXT n
NEXT i
SLEEP
CLS
LOCATE 12, 12
PRINT "Homer"
SLEEP
CLS
LOCATE 1, 12
PRINT "Super skills provided by"
FOR i = 1 TO 12
FOR n = 1 TO 11
LOCATE i, 12
PRINT "Super Skills provided by"
LOCATE n, 12
PRINT " "
FOR j = 1 TO 300
NEXT j
NEXT n
NEXT i
SLEEP
CLS
LOCATE 12, 12
PRINT "Hackthemainframe"
SLEEP
CLS
LOCATE 1, 12
PRINT "Hackthemainframe provided by"
FOR i = 1 TO 12
FOR n = 1 TO 11
LOCATE i, 12
PRINT "Hackthemainframe provided by"
LOCATE n, 12
PRINT " "
FOR j = 1 TO 300
NEXT j
NEXT n
NEXT i
SLEEP
CLS
LOCATE 12, 12
PRINT "Mr. and Mrs. mainframe"
SLEEP
CLS
LOCATE 1, 12
PRINT "Special thanks to:"
FOR i = 1 TO 12
FOR n = 1 TO 11
LOCATE i, 12
PRINT "Special thanks to:"
LOCATE n, 12
PRINT " "
FOR j = 1 TO 300
NEXT j
NEXT n
NEXT i
SLEEP
CLS
LOCATE 12, 12
PRINT "DysLexIc SoFtWaRe"
SLEEP
CLS
STOP
END SUB
SUB fb1
CLS
SCREEN 13
CIRCLE (100, 100), 20, 1601
PAINT (100, 100), 1601
CIRCLE (100, 90), 5, 15
PAINT (100, 90), 15
CIRCLE (100, 90), 2, 1
PAINT (100, 90), 1
PSET (100, 90), 0
CIRCLE (95, 110), 5, 0
PAINT (95, 110), 0
LINE (94, 106)-(97, 109), 15, BF
LINE (70, 118)-(125, 170), 2, BF
LINE (103, 118)-(103, 170), 0
LINE (100, 125)-(105, 125), 0
LINE (100, 130)-(105, 130), 0
LINE (72, 171)-(80, 190), 6
LINE (122, 171)-(115, 190), 6
LINE (80, 190)-(115, 190), 6
LINE (72, 171)-(122, 171), 6
PAINT (90, 180), 6
LINE (100, 172)-(96, 192), 0
LINE (69, 120)-(50, 130), 6
LINE (69, 140)-(60, 145), 6
LINE (50, 130)-(42, 140), 6
CIRCLE (50, 145), 10, 6
LINE (69, 120)-(69, 140), 6
PAINT (65, 125), 6
CIRCLE (54, 138), 10, 0, 0, 1.4
CIRCLE (50, 149), 6, 1602
PAINT (50, 149), 1602
LINE (46, 144)-(52, 142), 14
LINE (46, 144)-(42, 124), 14
LINE (52, 142)-(46, 122), 14
LINE (42, 124)-(46, 122), 14
PAINT (44, 125), 14
CIRCLE (43, 110), 15, 4
PSET (43, 115), 12
PSET (43, 116), 12
PSET (42, 116), 12
PSET (44, 116), 12
CIRCLE (43, 119), 3, 12
PSET (41, 118), 12
PSET (45, 118), 12
PSET (42, 118), 14
PSET (43, 118), 14
PSET (44, 118), 14
PSET (45, 119), 14
PSET (41, 119), 14
PSET (41, 120), 14
PSET (42, 120), 14
PSET (43, 120), 14
PSET (44, 120), 14
CIRCLE (125, 128), 10, 6, 4.8, 1.5
LINE (134, 130)-(132, 160), 6
LINE (132, 160)-(126, 160), 6
LINE (126, 160)-(126, 120), 6
PAINT (127, 155), 6
PAINT (128, 130), 6
CIRCLE (130, 165), 5, 1602
PAINT (130, 165), 1602
LINE (200, 200)-(250, 150), 6
LINE (250, 150)-(300, 150), 6
PSET (254, 145)
PSET (254, 146)
PSET (253, 146)
PSET (255, 146)
PSET (254, 147)
PSET (254, 148)
PSET (253, 149)
PSET (255, 149)
PSET (252, 145), 6
PSET (251, 144), 6
CIRCLE (250, 143), 1, 4
PRINT "Once I came upon the cave of"
PRINT "Polyphemos. He was mad "
PRINT "and almost ate me although he"
PRINT "did eat some of my men..."
SLEEP
LOCATE 1, 1
PRINT " "
PRINT " "
PRINT " "
PRINT " "
SLEEP
LINE (75, 75)-(50, 50)
LOCATE 2, 1
PRINT "Aargh!! What are you doing"
PRINT "in my cave!"
SLEEP
LINE (75, 75)-(50, 50), 0
LOCATE 2, 1
PRINT " "
PRINT " "
SLEEP
LINE (250, 100)-(250, 120)
LOCATE 12, 30
PRINT "Uhhhh..."
SLEEP
CLS
PRINT "And then I knocked him out with superior strength!"
SLEEP
CLS
PRINT "Kinda..."
SLEEP
CLS
PRINT "Maybe..."
SLEEP
CLS
PRINT "No..."
SLEEP
CLS
SCREEN 13
PRINT
COLOR 4
LINE (1, 100)-(100, 100), 6
CIRCLE (95, 83), 20, 6, 5, 0
LINE (115, 83)-(115, 0), 6
CIRCLE (50, 65), 40, 1602
PAINT (50, 65), 1602
LINE (1, 70)-(50, 50), 1602
LINE (1, 90)-(50, 90), 1602
LINE (1, 70)-(1, 90), 1602
PAINT (2, 80), 1602
CIRCLE (57, 32), 15, 0, 3.14, 0
LINE (57, 32)-(57, 39), 0
LINE (15, 15)-(30, 50), 0
SLEEP
LOCATE 20, 1
PRINT "But when he finally when to sleep,"
PRINT "my men and I snuck in and stabbed"
PRINT "him in the eye!"
SLEEP
FOR i = 1 TO 30
PSET (60, i), 6
PSET (61, i), 6
PSET (62, i), 6
PSET (63, i), 6
PSET (64, i), 6
PSET (65, i), 6
PSET (6, i + 1), 8
PSET (6, i), 0
PSET (6, i + 1), 8
PSET (6, i), 0
PSET (6, i + 1), 8
PSET (6, i), 0
PSET (6, i + 1), 8
PSET (6, i), 0
PSET (60, i + 1), 8
PSET (60, i), 6
PSET (61, i + 1), 8
PSET (61, i), 6
PSET (62, i + 1), 8
PSET (62, i), 6
PSET (63, i + 1), 8
PSET (63, i), 6
PSET (64, i + 1), 8
PSET (64, i), 6
PSET (65, i + 1), 8
PSET (65, i), 6
PSET (66, i + 1), 8
PSET (66, i), 0
PSET (67, i + 1), 8
PSET (67, i), 0
PSET (68, i + 1), 8
PSET (68, i), 0
PSET (60, i + 2), 8
PSET (60, i), 6
PSET (61, i + 2), 8
PSET (61, i), 6
PSET (6, i + 2), 8
PSET (6, i), 6
PSET (6, i + 2), 8
PSET (6, i), 6
PSET (6, i + 2), 8
PSET (6, i), 6
PSET (6, i + 1), 0
PSET (6, i), 0
PSET (6, i + 1), 0
PSET (6, i), 0
PSET (6, i + 1), 0
PSET (6, i), 0
PSET (6, i + 1), 0
PSET (6, i), 0
PSET (60, i + 1), 0
PSET (60, i), 6
PSET (61, i + 1), 0
PSET (61, i), 6
PSET (62, i + 1), 0
PSET (62, i), 6
PSET (63, i + 1), 0
PSET (63, i), 6
PSET (64, i + 1), 0
PSET (64, i), 6
PSET (5, i + 1), 0
PSET (65, i), 6
PSET (66, i + 1), 0
PSET (66, i), 0
PSET (67, i + 1), 0
PSET (67, i), 0
PSET (68, i + 1), 0
PSET (68, i), 0
PSET (60, i + 2), 0
PSET (60, i), 6
PSET (61, i + 2), 0
PSET (61, i), 6
PSET (69, i + 2), 0
PSET (69, i), 6
PSET (68, i + 2), 0
PSET (68, i), 6
PSET (67, i + 2), 0
PSET (67, i), 6
NEXT
SLEEP
DIM melt%(3000)
FOR rr = 1 TO 3000
RANDOMIZE TIMER
xx = INT(RND * 271)
RANDOMIZE TIMER
yx = INT(RND * 150)
GET (xx, yx)-(xx + 48, yx + 48), melt%
PUT (xx, yx + 1), melt%
IF INKEY$ = CHR$(27) THEN
STOP
END
END IF
NEXT rr
FOR i = 16 TO 30
LINE (0, 0)-(1000, 1000), i, BF
FOR j = 1 TO 3000
NEXT j
NEXT i
CALL fb2
END SUB
SUB fb2
CLS
SCREEN 13
PAINT (1, 1), 1590
CIRCLE (20, 50), 10, 14
PAINT (20, 50), 14
CIRCLE (20, 55), 10, 14
PAINT (20, 60), 14
CIRCLE (25, 55), 10, 14
PAINT (30, 60), 14
CIRCLE (20, 60), 10, 14
PAINT (20, 65), 14
CIRCLE (17, 61), 10, 14
PAINT (8, 62), 14
PAINT (16, 68), 14
CIRCLE (120, 155), 10, 14
PAINT (120, 160), 14
CIRCLE (120, 155), 10, 14
PAINT (120, 155), 14
CIRCLE (125, 155), 10, 14
PAINT (125, 155), 14
CIRCLE (120, 160), 10, 14
PAINT (120, 160), 14
CIRCLE (117, 161), 10, 14
PAINT (117, 161), 14
LINE (110, 160)-(125, 165), 14, BF
PAINT (120, 167), 14
PAINT (130, 150), 14
CIRCLE (200, 50), 10, 14
PAINT (200, 50), 14
LINE (50, 10)-(40, 20), 0
SLEEP
LINE (30, 30)-(25, 35), 0
LOCATE 12, 12
PRINT "I ended up traveling to"
LOCATE 13, 12
PRINT "Kirke's Isle..."
SLEEP
LINE (70, 70)-(290, 120), 1590, BF
SLEEP
LINE (20, 75)-(40, 90), 0
SLEEP
LINE (50, 100)-(60, 110), 0
SLEEP
LINE (70, 120)-(80, 130), 0
SLEEP
LINE (90, 140)-(100, 150), 0
SLEEP
LOCATE 12, 12
PRINT "And then to"
LOCATE 13, 12
PRINT "Calypso's Isle..."
SLEEP
LINE (70, 70)-(290, 120), 1590, BF
SLEEP
LINE (130, 130)-(140, 120), 0
SLEEP
LINE (150, 110)-(160, 100), 0
LOCATE 12, 12
PRINT "I once even came"
LOCATE 13, 12
PRINT "close to home..."
SLEEP
LINE (70, 70)-(290, 120), 1590, BF
FOR i = 16 TO 30
LINE (0, 0)-(1000, 1000), i, BF
FOR j = 1 TO 3000
NEXT j
NEXT i
CLS
PRINT "but that failed..."
SLEEP
CLS
CALL fb3
END SUB
SUB fb3
CLS
SCREEN 13
CIRCLE (136, 70), 80, 15, 0, 3.14
LINE (56, 65)-(56, 180)
LINE (26, 65)-(26, 180)
CIRCLE (1, 64), 25, 15, 0, 3.14
LINE (216, 65)-(216, 180)
LINE (246, 65)-(246, 180)
CIRCLE (295, 73), 50, 15, 1, 3.14
LINE (1, 180)-(300, 180)
LINE (1, 1)-(1, 42)
LINE (1, 1)-(300, 1)
LINE (300, 1)-(300, 30)
PAINT (20, 20), 0
PAINT (305, 15), 0
PAINT (70, 50), 15
PAINT (12, 90), 15
LINE (1, 180)-(1000, 180), 0
RANDOMIZE TIMER
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
PSET (RND * 300, RND * 200), 0
LINE (1, 180)-(900, 220), 0, BF
SLEEP
PRINT "I once even had to go to the depths"
PRINT "of the underworld."
SLEEP
CLS
LOCATE 12, 3
PRINT "And now it all comes to this."
SLEEP
CALL suitor
END SUB
SUB main
CLS
SCREEN 13
LINE (1, 150)-(10000, 10000), 1590, BF
PSET (20, 25)
PSET (100, 45)
PSET (150, 42)
PSET (40, 100)
PSET (150, 110)
PSET (300, 100)
PSET (250, 80)
PSET (260, 40)
FOR i = 1 TO 20
FOR n = 220 TO 225
CIRCLE (n, 20), i
NEXT n
NEXT i
SLEEP 2
FOR i = 15 TO 20
FOR n = 1 TO 20
FOR m = 1 TO 11
CIRCLE (i, 132), n, 6, 3.14, 0
CIRCLE (i - 20, 132), n, 0, 3.14, 5
LINE (i, 132)-(i, 111), 6
LINE (i - 6, 132)-(i - 6, 111), 0
CIRCLE (i + 1, 112), m, 15, 4.9, 0
CIRCLE (i, 112), m, 15, 4.9, 0
CIRCLE (i + 10, 132), n, 6, 4.9, 0
NEXT m
NEXT n
NEXT i
PRINT "After many years,"
PRINT "Odysseus returns home victorious."
SLEEP
FOR i = 1 TO 20
FOR n = 220 TO 225
CIRCLE (n, 20), i
NEXT n
NEXT i
LOCATE 1, 1
PRINT " "
PRINT " "
FOR i = 1 TO 20
FOR n = 220 TO 225
CIRCLE (n, 20), i
NEXT n
NEXT i
LINE (70, 130)-(120, 100)
LOCATE 12, 13
PRINT "Man!"
LOCATE 13, 10
PRINT "Our ship is beat up!"
SLEEP
LINE (70, 130)-(120, 100), 0
LOCATE 12, 13
PRINT " "
LOCATE 13, 10
PRINT " "
SLEEP
LINE (20, 105)-(20, 80)
LOCATE 10, 2
COLOR 15: PRINT "Yeah."
SLEEP
LOCATE 10, 2
PRINT " "
LINE (20, 105)-(20, 80), 0
SLEEP
FOR i = 20 TO 25
FOR n = 1 TO 20
FOR m = 1 TO 11
CIRCLE (i, 132), n, 6, 3.14, 0
CIRCLE (i - 20, 132), n, 0, 3.14, 5
LINE (i, 132)-(i, 111), 6
LINE (i - 6, 132)-(i - 6, 111), 0
CIRCLE (i + 1, 112), m, 15, 4.9, 0
CIRCLE (i, 112), m, 15, 4.9, 0
CIRCLE (i + 10, 132), n, 6, 4.9, 0
NEXT m
NEXT n
NEXT i
LINE (70, 130)-(120, 100)
LOCATE 12, 13
PRINT "Hey!"
LOCATE 13, 10
PRINT "Atleast we won the war!"
SLEEP
LINE (70, 130)-(120, 100), 0
LOCATE 12, 13
PRINT " "
LOCATE 13, 10
PRINT " "
SLEEP
LINE (20, 105)-(20, 80)
LOCATE 10, 2
COLOR 15: PRINT "Yeah."
SLEEP
LOCATE 10, 2
PRINT " "
LINE (20, 105)-(20, 80), 0
SLEEP
FOR i = 25 TO 27
FOR n = 1 TO 20
FOR m = 1 TO 11
CIRCLE (i, 132), n, 6, 3.14, 0
CIRCLE (i - 20, 132), n, 0, 3.14, 5
LINE (i, 132)-(i, 111), 6
LINE (i - 6, 132)-(i - 6, 111), 0
CIRCLE (i + 1, 112), m, 15, 4.9, 0
CIRCLE (i, 112), m, 15, 4.9, 0
CIRCLE (i + 10, 132), n, 6, 4.9, 0
NEXT m
NEXT n
NEXT i
LINE (70, 130)-(120, 100)
LOCATE 12, 13
PRINT "Too"
LOCATE 13, 10
PRINT "bad so many guys had to die."
SLEEP
LINE (70, 130)-(120, 100), 0
LOCATE 12, 13
PRINT " "
LOCATE 13, 10
PRINT " "
SLEEP
LINE (20, 105)-(20, 80)
LOCATE 10, 2
COLOR 15: PRINT "Yeah."
SLEEP
LOCATE 10, 2
PRINT " "
LINE (20, 105)-(20, 80), 0
SLEEP
FOR i = 27 TO 29
FOR n = 1 TO 20
FOR m = 1 TO 11
CIRCLE (i, 132), n, 6, 3.14, 0
CIRCLE (i - 20, 132), n, 0, 3.14, 5
LINE (i, 132)-(i, 111), 6
LINE (i - 6, 132)-(i - 6, 111), 0
CIRCLE (i + 1, 112), m, 15, 4.9, 0
CIRCLE (i, 112), m, 15, 4.9, 0
CIRCLE (i + 10, 132), n, 6, 4.9, 0
NEXT m
NEXT n
NEXT i
LINE (70, 130)-(120, 100)
LOCATE 12, 13
PRINT "Are"
LOCATE 13, 10
PRINT "you awake!?!?"
SLEEP
LINE (70, 130)-(120, 100), 0
LOCATE 12, 13
PRINT " "
LOCATE 13, 10
PRINT " "
SLEEP
LINE (20, 105)-(20, 80)
LOCATE 10, 2
COLOR 15: PRINT "I dunno."
SLEEP
LOCATE 10, 2
PRINT " "
LINE (20, 105)-(20, 80), 0
SLEEP
FOR i = 29 TO 31
FOR n = 1 TO 20
FOR m = 1 TO 11
CIRCLE (i, 132), n, 6, 3.14, 0
CIRCLE (i - 20, 132), n, 0, 3.14, 5
LINE (i, 132)-(i, 111), 6
LINE (i - 6, 132)-(i - 6, 111), 0
CIRCLE (i + 1, 112), m, 15, 4.9, 0
CIRCLE (i, 112), m, 15, 4.9, 0
CIRCLE (i + 10, 132), n, 6, 4.9, 0
IF i = 31 THEN CALL telemachus
NEXT m
NEXT n
NEXT i
END SUB
SUB suitor
CLS
SCREEN 13
PAINT (1, 1), 1590
LINE (25, 100)-(50, 50), 6
LINE (50, 50)-(250, 50), 6
LINE (250, 50)-(275, 100), 6
LINE (39, 75)-(39, 150), 6
LINE (260, 73)-(260, 150), 6
LINE (39, 150)-(260, 150), 6
LINE (1, 151)-(900, 200), 2, B
PAINT (2, 152), 2
LINE (1, 150)-(38, 150), 1590
LINE (38, 150)-(38, 76), 1590
LINE (38, 76)-(25, 102), 1590
PSET (25, 101), 1590
PSET (24, 101), 1590
PSET (24, 100), 1590
LINE (24, 100)-(50, 49), 1590
LINE (50, 49)-(250, 49), 1590
LINE (250, 49)-(275, 94), 1590
LINE (251, 49)-(275, 94), 1590
PSET (258, 64), 6
PSET (259, 66), 6
PSET (260, 68), 6
PSET (261, 70), 6
PSET (262, 72), 6
LINE (263, 74)-(274, 94), 6
PSET (263, 73), 6
LINE (273, 94)-(263, 74), 6
PSET (274, 95), 1590
PSET (275, 95), 1590
PSET (275, 96), 1590
PSET (274, 96), 1590
PSET (275, 97), 1590
PSET (275, 98), 1590
LINE (25, 100)-(50, 50), 6
LINE (250, 50)-(275, 100), 6
CIRCLE (250, 25), 14, 14
PAINT (250, 25), 14
FOR i = 1 TO 20
CIRCLE (250, 25), i, 14
NEXT i
PSET (260, 72), 6
PAINT (52, 52), 6
LINE (47, 72)-(255, 149), 29, BF
LINE (124, 72)-(257, 149), 29, BF
LINE (47, 149)-(258, 149), 29
LINE (228, 149)-(258, 72), 29
LINE (47, 72)-(40, 130), 29, BF
PSET (125, 149), 20
PSET (123, 149), 20
PSET (124, 148), 0
PSET (124, 147), 0
PSET (124, 146), 0
PSET (123, 146), 0
PSET (125, 146), 0
PSET (124, 145), 0
PSET (135, 149), 20
PSET (133, 149), 20
PSET (134, 148), 0
PSET (134, 147), 0
PSET (134, 146), 0
PSET (133, 146), 0
PSET (135, 146), 0
PSET (134, 145), 0
PSET (105, 149), 20
PSET (103, 149), 20
PSET (104, 148), 0
PSET (104, 147), 0
PSET (104, 146), 0
PSET (103, 146), 0
PSET (105, 146), 0
PSET (104, 145), 0
PSET (101, 149), 20
PSET (99, 149), 20
PSET (100, 148), 0
PSET (100, 147), 0
PSET (100, 146), 0
PSET (99, 146), 0
PSET (101, 146), 0
PSET (100, 145), 0
PSET (97, 149), 20
PSET (95, 149), 20
PSET (96, 148), 0
PSET (96, 147), 0
PSET (96, 146), 0
PSET (95, 146), 0
PSET (97, 146), 0
PSET (96, 145), 0
PSET (50, 145), 4
PSET (50 - 1, 145), 4
PSET (50, 146), 4
PSET (50 - 1, 146), 4
PSET (50 - 1, 146), 4
PSET (50 - 2, 146), 4
PSET (50 + 1, 146), 4
PSET (50, 147), 4
PSET (50 - 1, 147), 4
PSET (50, 148), 4
PSET (50 - 1, 148), 4
PSET (50 - 1, 149), 4
PSET (50 - 2, 149), 4
PSET (50 + 1, 149), 4
PSET (50, 149), 4
SLEEP
LOCATE 11, 9
PRINT "Now..."
LINE (100, 100)-(70, 140), 0
SLEEP
LINE (60, 80)-(255, 140), 29, BF
SLEEP
LOCATE 11, 9
PRINT "DIE!!!!"
LINE (100, 100)-(70, 140), 0
SLEEP
LINE (60, 80)-(255, 140), 29, BF
SLEEP
FOR i = 60 TO 135
PSET (i, 145), 6
PSET (i - 5, 145), 29
FOR j = 1 TO 300
NEXT j
NEXT i
FOR i = 1 TO 20
FOR n = 1 TO 5
FOR j = 1 TO 25
CIRCLE (20, 20), i, 4
CIRCLE (50, 30), n, 4
CIRCLE (100, 150), j, 4
CIRCLE (200, 100), i, 4
NEXT j
NEXT n
NEXT i
SLEEP 2
FOR i = 1 TO 30
LINE (1, 1)-(1000, 1000), i, BF
FOR j = 1 TO 3000
NEXT j
NEXT i
CLS
LOCATE 12, 12
PRINT "The End"
SLEEP
CALL credits
END SUB
DEFSNG A-B, D-Z
SUB telemachus
CLS
SCREEN 13
PAINT (1, 1), 1590
LINE (25, 100)-(50, 50), 6
LINE (50, 50)-(250, 50), 6
LINE (250, 50)-(275, 100), 6
LINE (39, 75)-(39, 150), 6
LINE (260, 73)-(260, 150), 6
LINE (39, 150)-(260, 150), 6
LINE (1, 151)-(900, 200), 2, B
PAINT (2, 152), 2
LINE (1, 150)-(38, 150), 1590
LINE (38, 150)-(38, 76), 1590
LINE (38, 76)-(25, 102), 1590
PSET (25, 101), 1590
PSET (24, 101), 1590
PSET (24, 100), 1590
LINE (24, 100)-(50, 49), 1590
LINE (50, 49)-(250, 49), 1590
LINE (250, 49)-(275, 94), 1590
LINE (251, 49)-(275, 94), 1590
PSET (258, 64), 6
PSET (259, 66), 6
PSET (260, 68), 6
PSET (261, 70), 6
PSET (262, 72), 6
LINE (263, 74)-(274, 94), 6
PSET (263, 73), 6
LINE (273, 94)-(263, 74), 6
PSET (274, 95), 1590
PSET (275, 95), 1590
PSET (275, 96), 1590
PSET (274, 96), 1590
PSET (275, 97), 1590
PSET (275, 98), 1590
LINE (25, 100)-(50, 50), 6
LINE (250, 50)-(275, 100), 6
CIRCLE (250, 25), 14, 14
PAINT (250, 25), 14
FOR i = 1 TO 20
CIRCLE (250, 25), i, 14
NEXT i
PSET (260, 72), 6
PAINT (52, 52), 6
LINE (47, 72)-(255, 149), 29, BF
LINE (124, 72)-(257, 149), 29, BF
LINE (47, 149)-(258, 149), 29
LINE (228, 149)-(258, 72), 29
LINE (47, 72)-(40, 130), 29, BF
PSET (125, 149), 20
PSET (123, 149), 20
PSET (124, 148), 0
PSET (124, 147), 0
PSET (124, 146), 0
PSET (123, 146), 0
PSET (125, 146), 0
PSET (124, 145), 0
PSET (135, 149), 20
PSET (133, 149), 20
PSET (134, 148), 0
PSET (134, 147), 0
PSET (134, 146), 0
PSET (133, 146), 0
PSET (135, 146), 0
PSET (134, 145), 0
PSET (105, 149), 20
PSET (103, 149), 20
PSET (104, 148), 0
PSET (104, 147), 0
PSET (104, 146), 0
PSET (103, 146), 0
PSET (105, 146), 0
PSET (104, 145), 0
PSET (101, 149), 20
PSET (99, 149), 20
PSET (100, 148), 0
PSET (100, 147), 0
PSET (100, 146), 0
PSET (99, 146), 0
PSET (101, 146), 0
PSET (100, 145), 0
PSET (97, 149), 20
PSET (95, 149), 20
PSET (96, 148), 0
PSET (96, 147), 0
PSET (96, 146), 0
PSET (95, 146), 0
PSET (97, 146), 0
PSET (96, 145), 0
PRINT "Meanwhile..."
SLEEP
LOCATE 11, 11
PRINT "We are the"
LOCATE 12, 11
PRINT "SUITORS!"
LINE (100, 100)-(100, 140), 0
SLEEP
LINE (80, 80)-(170, 140), 29, BF
SLEEP
LOCATE 11, 14
PRINT "I am"
LOCATE 12, 11
PRINT "Telemachus."
LINE (120, 100)-(125, 140), 0
SLEEP
LINE (80, 80)-(170, 140), 29, BF
LOCATE 11, 14
PRINT "I am"
LOCATE 12, 14
PRINT "Penelope. "
LINE (125, 100)-(132, 140), 0
SLEEP
LINE (80, 80)-(185, 140), 29, BF
LOCATE 11, 14
PRINT "And I am sick"
LOCATE 12, 11
PRINT "of you suitors."
LINE (120, 100)-(125, 140), 0
SLEEP
LINE (80, 80)-(210, 140), 29, BF
LOCATE 11, 14
PRINT "You come in and"
LOCATE 12, 11
PRINT "eat our beeves!"
LINE (120, 100)-(125, 140), 0
SLEEP
LINE (80, 80)-(226, 140), 29, BF
LOCATE 11, 11
PRINT "Those were some"
LOCATE 12, 11
PRINT "good beeves."
LINE (100, 100)-(100, 140), 0
SLEEP
LINE (80, 80)-(220, 140), 29, BF
LOCATE 11, 14
PRINT "You make us poor"
LOCATE 12, 11
PRINT "and dishonor my father"
LINE (120, 100)-(125, 140), 0
SLEEP
LINE (80, 80)-(255, 140), 29, BF
FOR i = 1 TO 37
PSET (i, 145)
PSET (i - 1, 145), 1590
PSET (i, 146)
PSET (i - 1, 146), 1590
PSET (i - 1, 146)
PSET (i - 2, 146), 1590
PSET (i + 1, 146)
PSET (i, 147)
PSET (i - 1, 147), 1590
PSET (i, 148)
PSET (i - 1, 148), 1590
PSET (i - 1, 149)
PSET (i - 2, 149), 1590
PSET (i + 1, 149)
PSET (i, 149), 1590
FOR j = 1 TO 3000
NEXT j
NEXT i
PSET (37, 145), 1590
PSET (37 - 1, 145), 1590
PSET (37, 146), 1590
PSET (37 - 1, 146), 1590
PSET (37 - 1, 146), 1590
PSET (37 - 2, 146), 1590
PSET (37 + 1, 146), 1590
PSET (37, 147), 1590
PSET (37 - 1, 147), 1590
PSET (37, 148), 1590
PSET (37 - 1, 148), 1590
PSET (37 - 1, 149), 1590
PSET (37 - 2, 149), 1590
PSET (37 + 1, 149), 1590
PSET (37, 149), 1590
PSET (50, 145), 0
PSET (50 - 1, 145), 0
PSET (50, 146), 0
PSET (50 - 1, 146), 0
PSET (50 - 1, 146), 0
PSET (50 - 2, 146), 0
PSET (50 + 1, 146), 0
PSET (50, 147), 0
PSET (50 - 1, 147), 0
PSET (50, 148), 0
PSET (50 - 1, 148), 0
PSET (50 - 1, 149), 0
PSET (50 - 2, 149), 0
PSET (50 + 1, 149), 0
PSET (50, 149), 0
SLEEP
PSET (50, 145), 4
PSET (50 - 1, 145), 4
PSET (50, 146), 4
PSET (50 - 1, 146), 4
PSET (50 - 1, 146), 4
PSET (50 - 2, 146), 4
PSET (50 + 1, 146), 4
PSET (50, 147), 4
PSET (50 - 1, 147), 4
PSET (50, 148), 4
PSET (50 - 1, 148), 4
PSET (50 - 1, 149), 4
PSET (50 - 2, 149), 4
PSET (50 + 1, 149), 4
PSET (50, 149), 4
SLEEP
LOCATE 11, 10
PRINT "Aaa-what?!?!?!"
LINE (120, 100)-(125, 140), 0
LINE (100, 100)-(100, 140), 0
LINE (125, 100)-(132, 140), 0
SLEEP
LINE (60, 80)-(255, 140), 29, BF
LOCATE 11, 9
PRINT "It is I, Odysseus!"
LINE (120, 100)-(70, 140), 0
SLEEP
LINE (60, 80)-(255, 140), 29, BF
LOCATE 11, 9
PRINT "And before I"
LOCATE 12, 9
PRINT "kill you..."
LINE (120, 100)-(70, 140), 0
SLEEP
LINE (60, 80)-(255, 140), 29, BF
LOCATE 11, 9
PRINT "I will tell you"
LOCATE 12, 9
PRINT "of my journey."
LINE (120, 100)-(70, 140), 0
SLEEP
LINE (60, 80)-(255, 140), 29, BF
FOR i = 16 TO 30
LINE (0, 0)-(1000, 1000), i, BF
FOR j = 1 TO 3000
NEXT j
NEXT i
LOCATE 12, 12
PRINT "(FLASH BACK)"
SLEEP
LINE (0, 0)-(1000, 1000), 15, BF
CALL fb1
END SUB