DOOM 3 By : Rodney Mackrell 

                             filename: "1"


                             "DOOM"

                             Mcl
                             ViewWindow 1,99,1,1,99,1
                             Cls
                             0->J
                             1->C
                             1->D
                             1->G
                             Norm
                             Prog "A"
                             
                             
                             Filename: "A"
                             
                             
                             Lbl 1
                             C->A:D->B
                             Ran#->G
                             G<.2=>6->G
                             A=1=>B=1=>Prog "E"
                             A=2=>Goto 2
                             A=3=>Goto 3
                             A=4=>Goto 4
                             B=2=>Prog "D"
                             B=3=>Prog "I"
                             B=4=>Prog "H"
                             B=5=>Prog "C"
                             B=6=>Prog "B"
                             B=7=>Prog "M"
                             B=8=>Prog "B"
                             B=9=>Prog "O"
                             Goto 1
                             Lbl 2
                             B=1=>Prog "B"
                             B=2=>Prog "F"
                             B=3=>Prog "J"
                             B=4=>Prog "D"
                             B=5=>Prog "K"
                             B=6=>Prog "C"
                             B=7=>Prog "Q"
                             B=8=>Prog "C"
                             B=9=>Prog "B"
                             Lbl 3
                             B=1=>Prog "D"
                             B=2=>Prog "G"
                             B=3=>Prog "B"
                             B=4=>Prog "F"
                             B=5=>Prog "L"
                             B=6=>Prog "R"
                             B=7=>Prog "B"
                             B=8=>Prog "K"
                             B=9=>Prog "C"
                             Lbl 4
                             B=1=>Prog "C"
                             B=2=>Prog "H"
                             B=3=>Prog "C"
                             B=4=>Prog "D"
                             B=5=>Prog "B"
                             B=6=>Prog "S"
                             B=7=>Prog "C"
                             B=8=>Prog "N"
                             B=9=>Prog "P"
                             Goto 1
                             
                             
                             Filename: "B"
                             
                             
                             Cls
                             Plot 40,50
                             Plot 42,47
                             Line
                             Plot 42,53
                             Line
                             Plot 40,50
                             Line
                             Plot 60,50
                             Line_ 
                             ?->E
                             Prog "Z"
                             
                             
                             Filename: "C"
                             
                             
                             Cls
                             Plot 40,50
                             Plot 60,50
                             Line
                             Plot 58,53
                             Line
                             Plot 58,47
                             Line
                             Plot 60,50
                             Line_
                             ?->E
                             Prog "Z"
                             
                             
                             Filename: "D"
                             
                             
                             Cls
                             Plot 40,50
                             Plot 42,47
                             Line
                             Plot 42,53
                             Line
                             Plot 40,50
                             Line
                             Plot 60,50
                             Line
                             Plot 58,53
                             Line
                             Plot 58,47
                             Line
                             Plot 60,50
                             Line_
                             ?->E
                             Prog "Z"
                             
                             
                             Filename: "E"
                             
                             
                             Cls
                             Plot 1,1
                             Plot 18,18
                             Line
                             Plot 18,82
                             Line
                             Plot 1,99
                             Line
                             Plot 99,1
                             Plot 82,18
                             Line
                             Plot 82,82
                             Line
                             Plot 99,99
                             Line
                             Plot 82,32
                             Plot 18,32
                             Line
                             Plot 82,68
                             Plot 18,68
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             E=8=>2->D

                             Filename: "F"
                             
                             
                             Cls
                             Plot 1,1
                             Plot 18,18
                             Line
                             Plot 18,82
                             Line
                             Plot 1,99
                             Line
                             Plot 99,1
                             Plot 68,32
                             Line
                             Plot 68,68
                             Line
                             Plot 99,99
                             Line
                             Plot 68,32
                             Plot 18,32
                             Line
                             Plot 18,68
                             Plot 68,68
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             D=4=>Goto 1
                             E=8=>9->D
                             Goto 2
                             Lbl 1
                             E=8=>3->D
                             Lbl 2
                             
                             
                             Filename: "G"
                             
                             
                             Cls
                             Plot 1,1
                             Plot 18,18
                             Line
                             Plot 82,18
                             Line
                             Plot 99,1
                             Line
                             Plot 1,99
                             Plot 18,82
                             Line
                             Plot 82,82
                             Line
                             Plot 99,99
                             Line
                             Plot 18,18
                             Plot 18,82
                             Line
                             Plot 82,82
                             Plot 82,18
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             E=8=>1->D
                             
                             
                             Filename: "H"
                             
                             
                             Cls
                             Plot 1,1
                             Plot 32,32
                             Line
                             Plot 32,68
                             Line
                             Plot 1,99
                             Line
                             Plot 99,1
                             Plot 82,18
                             Line
                             Plot 82,82
                             Line
                             Plot 99,99
                             Line
                             Plot 32,32
                             Plot 82,32
                             Line
                             Plot 32,68
                             Plot 82,68
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             D=2=>Goto 1
                             E=8=>5->D
                             Goto 2
                             Lbl 1
                             E=8=>3->D
                             Lbl 2
                             
                             
                             Filename: "I"
                             
                             
                             Cls
                             Plot 1,1
                             Plot 41,41
                             Line
                             Plot 41,59
                             Line
                             Plot 1,99
                             Line
                             Plot 99,99
                             Plot 68,68
                             Line
                             Plot 68,32
                             Line
                             Plot 99,1
                             Line
                             Plot 99,99
                             Line
                             Plot 41,41
                             Plot 68,41
                             Line
                             Plot 68,59
                             Plot 41,59
                             Line_
                             G=6=>Prog "T"
                             ?->"E"
                             Prog "Z"
                             E=8=>4->D

                             Filename: "J"
                             
                             
                             Cls
                             Plot 1,18
                             Plot 18,18
                             Line
                             Plot 32,32
                             Line
                             Plot 32,68
                             Line
                             Plot 18,82
                             Line
                             Plot 1,82
                             Line
                             Plot 18,18
                             Plot 18,82
                             Line
                             Plot 99,1
                             Plot 82,18
                             Line
                             Plot 82,82
                             Line
                             Plot 99,99
                             Line
                             Plot 82,32
                             Plot 68,32
                             Line
                             Plot 59,41
                             Line
                             Plot 32,59
                             Plot 59,59
                             Line
                             Plot 68,68
                             Line
                             Plot 82,68
                             Line
                             Plot 59,59
                             Plot 59,41
                             Line
                             Plot 68,68
                             Plot 68,32
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             E=8=>2->D
                             
                             
                             Filename: "K"
                             
                             
                             Cls
                             Plot 1,99
                             Plot 32,68
                             Line
                             Plot 32,32
                             Line
                             Plot 1,1
                             Line
                             Plot 99,18
                             Plot 82,18
                             Line
                             Plot 82,82
                             Line
                             Plot 99,82
                             Line
                             Plot 82,32
                             Plot 32,32
                             Line
                             Plot 32,68
                             Plot 82,68
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             D=8=>Goto 1
                             E=8=>6->D
                             Goto 2
                             Lbl 1
                             E=8=>9->D
                             Lbl 2
                             
                             
                             Filename: "L"
                             
                             
                             Cls
                             Plot 1,32
                             Plot 18,32
                             Line
                             Plot 18,18
                             Plot 32,32
                             Line
                             Plot 32,68
                             Line
                             Plot 18,82
                             Line
                             Plot 18,18
                             Line
                             Plot 99,1
                             Plot 59,41
                             Line
                             Plot 32,41
                             Line
                             Plot 32,59
                             Plot 59,59
                             Line
                             Plot 99,99
                             Line
                             Plot 1,68
                             Plot 18,68
                             Line
                             Plot 59,59
                             Plot 59,41
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             E=8=>4->D
                             
                             
                             Filename: "M"
                             
                             
                             Cls
                             Plot 1,1
                             Plot 18,18
                             Line
                             Plot 18,82
                             Line
                             Plot 1,99
                             Line
                             Plot 99,18
                             Plot 82,18
                             Line
                             Plot 68,32
                             Line
                             Plot 18,32
                             Line
                             Plot 18,68
                             Plot 68,68
                             Line
                             Plot 82,82
                             Line
                             Plot 99,82
                             Line
                             Plot 82,82
                             Plot 82,18
                             Line
                             Plot 68,68
                             Plot 68,32
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             E=8=>6->D

                             Filename: "N"
                             
                             
                             Cls
                             Plot 1,68
                             Plot 14,68
                             Line
                             Plot 18,65
                             Line
                             Plot 1,32
                             Plot 14,32
                             Line
                             Plot 18,35
                             Line
                             Plot 14,32
                             Plot 14,68
                             Line
                             Plot 18,18
                             Plot 32,32
                             Line
                             Plot 32,68
                             Line
                             Plot 18,82
                             Line
                             Plot 18,18
                             Line
                             Plot 99,1
                             Plot 82,18
                             Line
                             Plot 82,82
                             Line
                             Plot 99,99
                             Line
                             Plot 32,32
                             Plot 82,32
                             Line
                             Plot 32,68
                             Plot 82,68
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             E=8=>7->D
                             
                             
                             
                             Filename: "O"
                             
                             
                             Cls
                             Plot 1,18
                             Plot 18,18
                             Line
                             Plot 18,82
                             Line
                             Plot 1,82
                             Line
                             Plot 18,41
                             Plot 32,41
                             Line
                             Plot 32,59
                             Plot 18,59
                             Line
                             Plot 99,99
                             Line
                             Plot 68,68
                             Line
                             Plot 32,68
                             Line
                             Plot 32,32
                             Line
                             Plot 68,32
                             Line
                             Plot 99,1
                             Line
                             Plot 68,32
                             Plot 68,68
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             E=8=>8->D
                             
                             
                             
                             Filename: "P"
                             
                             
                             Cls
                             Plot 1,1
                             Plot 18,18
                             Line
                             Plot 18,82
                             Line
                             Plot 1,99
                             Line
                             Plot 18,32
                             Plot 32,32
                             Line
                             Plot 41,41
                             Line
                             Plot 68,41
                             Line
                             Plot 68,59
                             Plot 41,59
                             Line
                             Plot 32,68
                             Line
                             Plot 18,68
                             Line
                             Plot 32,68
                             Plot 32,32
                             Line
                             Plot 41,59
                             Plot 41,41
                             Line
                             Plot 82,18
                             Plot 68,32
                             Line
                             Plot 68,68
                             Line
                             Plot 82,82
                             Line
                             Plot 82,18
                             Line
                             Plot 82,32
                             Plot 99,32
                             Line
                             Plot 82,68
                             Plot 99,68
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             E=8=>2->D
                             
                             
                             
                             Filename: "Q"
                             
                             
                             Cls
                             Plot 1,18
                             Plot 18,18
                             Line
                             Plot 32,32
                             Line
                             Plot 82,32
                             Line
                             Plot 82,68
                             Line
                             Plot 32,68
                             Line
                             Plot 18,82
                             Line
                             Plot 1,82
                             Line
                             Plot 18,82
                             Plot 18,18
                             Line
                             Plot 32,32
                             Plot 32,68
                             Line
                             Plot 99,1
                             Plot 82,18
                             Line
                             Plot 82,82
                             Line
                             Plot 99,99
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             E=8=>8->D

                             Filename: "R"
                             
                             
                             Cls
                             Plot 1,1
                             Plot 18,18
                             Line
                             Plot 18,82
                             Line
                             Plot 1,99
                             Line
                             Plot 99,18
                             Plot 82,32
                             Line
                             Plot 82,68
                             Line
                             Plot 99,82
                             Line
                             Plot 68,32
                             Plot 32,32
                             Line
                             Plot 32,68
                             Line
                             Plot 68,68
                             Line
                             Plot 82,82
                             Line
                             Plot 82,18
                             Line
                             Plot 68,32
                             Line
                             Plot 18,41
                             Plot 32,41
                             Line
                             Plot 32,59
                             Plot 18,59
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             E=8=>7->D
                             
                             
                             
                             Filename: "S"
                             
                             
                             Cls
                             Plot 1,18
                             Plot 18,18
                             Line
                             Plot 18,82
                             Line
                             Plot 1,82
                             Line
                             Plot 99,1
                             Plot 68,32
                             Line
                             Plot 18,32
                             Line
                             Plot 18,68
                             Plot 68,68
                             Line
                             Plot 99,99
                             Line
                             Plot 68,68
                             Plot 68,32
                             Line_
                             G=6=>Prog "T"
                             ?->E
                             Prog "Z"
                             E=8=>5->D
                             
                             
                             Filename: "T"
                             
                             
                             0->H
                             Plot 47,55
                             Plot 49,55
                             Plot 51,55
                             Plot 53,55
                             Plot 48,53
                             Plot 52,53
                             Line
                             Plot 47,52
                             Plot 48,55
                             Plot 48,52
                             Plot 50,52
                             Plot 52,52
                             Plot 43,52
                             Plot 47,50
                             Plot 43,50
                             Line
                             Plot 47,48
                             Plot 49,48
                             Plot 51,48
                             Line
                             Plot 53,48
                             Plot 47,47
                             Plot 53,47
                             Plot 48,45
                             Plot 52,45
                             Line
                             Plot 50,44
                             Plot 49,42
                             Plot 51,42
                             Line
                             Plot 48,41
                             Plot 52,41
                             Line
                             Plot 44,18
                             Plot 46,18
                             Line
                             Plot 48,41
                             Line
                             Plot 45,20
                             Plot 49,39
                             Plot 51,39
                             Plot 52,39
                             Plot 54,18
                             Line
                             Plot 56,18
                             Line
                             Plot 55,20
                             Plot 47,41
                             Plot 43,44
                             Line
                             Plot 44,45
                             Plot 42,45
                             Plot 42,42
                             Plot 56,45
                             Plot 58,42
                             Plot 58,45
                             Plot 57,44
                             Plot 52,41
                             Line
                             ?->E
                             E=5=>Prog "U"
                             H=\=2=>Prog "V"
                             J=1=>Prog "W"
                             J=2=>Prog "W"
                             J=5=>Prog "W"
                             J=10=>Prog "W"
                             J=20=>Prog "W"
                             Lbl 1
                             
                             
                             Filename: "U"
                             
                             
                             50->I
                             Plot I,1
                             Plot I,10
                             Line
                             Plot I,2
                             Line
                             Plot I,30
                             Line
                             Plot I,40
                             Line
                             Plot I,I
                             Line
                             Plot 46,59
                             Plot I,I
                             Line
                             Plot I,63
                             Line
                             Plot 53,59
                             Plot I,I
                             Line
                             Plot 57,56
                             Line
                             Plot 59,I
                             Plot I,I
                             Line
                             Plot 56,39
                             Line
                             Plot 49,34
                             Plot I,I
                             Line
                             Plot 45,36
                             Line
                             Plot 43,41
                             Plot I,I
                             Line
                             Plot 43,53
                             Line
                             Plot 44,58
                             Plot 48,59
                             Plot 48,63
                             Plot 52,61
                             Plot 54,56
                             Plot 56,52
                             Plot 44,I
                             Plot 44,48
                             Plot 46,48
                             Plot 54,47
                             2->H
                             J+1->J

                             Filename: "V"
                             
                             
                             "YOU DIE!"
                             "SCORE;"
                             Jx10->J_
                             Prog "1"
                             
                             
                             Filename: "W"
                             
                             
                             "BODY COUNT;"
                             J_
                             
                             
                             Filename: "Z"
                             
                             
                             E=4=>C-1->C
                             E=6=>C+1->C
                             C=0=>4->C
                             C=5=>1->C
                             0->A
                             0->B