=> double arrow [SHIFT][VARS][F3][F3]
<= below or equal [SHIFT][VARS][F6][F3][F6]
>= above or equal [SHIFT][VARS][F6][F3][F5]
<> not equal to [SHIFT][VARS][F6][F3][F2]
/  divided by (the key below [AC/ON])
-> right arrow (the key above [AC/ON])

Source code in loops or conditions is moved right 2 digits.


FILE: DTD
=========

Identity 10->Mat A
Identity 10->Mat B
{101,1010,1001,1100,110,11,1101,1110,111,1011,1000,100,10,1,1111}->List 1
{0,0,0,0}->List 2
8->U:12->V
ClrGraph
ViewWindow 1,127,130,1,63,70
PlotOn 51,62
PlotOn 53,62
PlotOn 55,62
PlotOn 57,62
PlotOn 59,62
PlotOn 61,62
PlotOn 63,62
PlotOn 65,62
PlotOn 67,62
PlotOn 69,62
PlotOn 49,61
PlotOn 51,61
PlotOn 68,61
PlotOn 70,61
PlotOn 72,61
PlotOn 46,60
PlotOn 48,60
PlotOn 71,60
PlotOn 73,60
PlotOn 75,60
PlotOn 45,59
PlotOn 47,59
PlotOn 74,59
PlotOn 77,59
PlotOn 44,58
PlotOn 46,58
PlotOn 75,58
PlotOn 78,58
PlotOn 43,57
PlotOn 77,57
PlotOn 79,57
F-Line 34,56,40,56
PlotOn 42,56
PlotOn 44,56
PlotOn 76,56
F-Line 78,56,85,56
F-Line 27,55,41,55
PlotOn 43,55
PlotOn 77,55
F-Line 80,55,90,55
F-Line 26,54,40,54
PlotOn 42,54
PlotOn 78,54
F-Line 80,54,93,54
F-Line 27,53,39,53
PlotOn 41,53
PlotOn 43,53
PlotOn 77,53
PlotOn 79,53
F-Line 81,53,96,53
F-Line 28,52,40,52
PlotOn 42,52
PlotOn 44,52
PlotOn 52,52
PlotOn 54,52
PlotOn 67,52
PlotOn 69,52
PlotOn 71,52
PlotOn 76,52
PlotOn 78,52
F-Line 80,52,98,52
F-Line 26,51,39,51
PlotOn 41,51
PlotOn 43,51
PlotOn 45,51
PlotOn 49,51
PlotOn 51,51
PlotOn 53,51
PlotOn 55,51
PlotOn 66,51
PlotOn 68,51
PlotOn 70,51
PlotOn 72,51
PlotOn 77,51
F-Line 79,51,100,51
F-Line 23,50,40,50
PlotOn 42,50
PlotOn 44,50
PlotOn 46,50
PlotOn 74,50
PlotOn 78,50
F-Line 80,50,102,50
F-Line 21,49,41,49
PlotOn 43,49
PlotOn 45,49
F-Line 51,49,55,49
F-Line 66,49,71,49
PlotOn 77,49
F-Line 79,49,103,49
F-Line 20,48,42,48
PlotOn 44,48
F-Line 49,48,57,48
F-Line 65,48,73,48
F-Line 79,48,104,48
F-Line 19,47,43,47
PlotOn 45,47
F-Line 48,47,58,47
F-Line 64,47,74,47
F-Line 78,47,105,47
F-Line 19,46,44,46
F-Line 48,46,58,46
F-Line 64,46,74,46
F-Line 79,46,105,46
F-Line 20,45,43,45
F-Line 48,45,58,45
F-Line 64,45,74,45
F-Line 80,45,105,45
F-Line 22,44,42,44
F-Line 49,44,56,44
F-Line 67,44,74,44
F-Line 81,44,104,44
F-Line 27,43,42,43
F-Line 50,43,53,43
F-Line 71,43,73,43
F-Line 80,43,103,43
F-Line 29,42,43,42
F-Line 60,42,62,42
F-Line 79,42,100,42
F-Line 33,41,44,41
F-Line 58,41,64,41
F-Line 77,41,97,41
F-Line 35,40,47,40
F-Line 57,40,60,40
F-Line 62,40,65,40
F-Line 75,40,92,40
F-Line 38,39,48,39
PlotOn 50,39
PlotOn 52,39
F-Line 58,39,59,39
PlotOn 64,39
PlotOn 70,39
PlotOn 72,39
PlotOn 74,39
F-Line 76,39,88,39
F-Line 39,38,47,38
PlotOn 49,38
PlotOn 51,38
PlotOn 53,38
PlotOn 69,38
PlotOn 71,38
PlotOn 73,38
F-Line 75,38,87,38
F-Line 38,37,48,37
PlotOn 50,37
PlotOn 52,37
PlotOn 54,37
PlotOn 68,37
PlotOn 70,37
PlotOn 72,37
PlotOn 74,37
F-Line 76,37,88,37
F-Line 37,36,47,36
PlotOn 49,36
PlotOn 51,36
PlotOn 53,36
PlotOn 55,36
PlotOn 58,36
PlotOn 61,36
PlotOn 64,36
PlotOn 67,36
PlotOn 69,36
PlotOn 71,36
PlotOn 73,36
F-Line 75,36,90,36
F-Line 35,35,47,35
PlotOn 50,35
PlotOn 52,35
F-Line 54,35,55,35
PlotOn 58,35
PlotOn 61,35
PlotOn 64,35
PlotOn 67,35
F-Line 69,35,72,35
F-Line 76,35,92,35
F-Line 32,34,48,34
PlotOn 53,34
F-Line 55,34,70,34
F-Line 75,34,95,34
F-Line 27,33,32,33
F-Line 38,33,48,33
PlotOn 56,33
PlotOn 58,33
PlotOn 61,33
PlotOn 64,33
PlotOn 67,33
PlotOn 69,33
F-Line 74,33,98,33
F-Line 25,32,31,32
F-Line 40,32,50,32
PlotOn 56,32
PlotOn 58,32
PlotOn 61,32
PlotOn 64,32
PlotOn 67,32
F-Line 72,32,81,32
F-Line 87,32,101,32
F-Line 22,31,30,31
F-Line 41,31,53,31
F-Line 71,31,79,31
F-Line 88,31,103,31
F-Line 21,30,30,30
F-Line 43,30,56,30
F-Line 69,30,76,30
F-Line 90,30,104,30
F-Line 22,29,32,29
F-Line 47,29,75,29
F-Line 91,29,104,29
F-Line 22,28,38,28
F-Line 50,28,72,28
F-Line 90,28,104,28
F-Line 21,27,43,27
F-Line 54,27,69,27
F-Line 89,27,102,27
F-Line 22,26,47,26
F-Line 57,26,66,26
F-Line 78,26,100,26
F-Line 26,25,50,25
F-Line 54,25,63,25
F-Line 74,25,98,25
F-Line 29,24,59,24
F-Line 70,24,96,24
F-Line 30,23,56,23
F-Line 67,23,92,23
F-Line 29,22,52,22
F-Line 63,22,69,22
F-Line 72,22,88,22
F-Line 28,21,48,21
F-Line 59,21,65,21
F-Line 76,21,84,21
F-Line 29,20,42,20
F-Line 56,20,68,20
F-Line 83,20,85,20
F-Line 31,19,38,19
F-Line 53,19,71,19
F-Line 85,19,86,19
PlotOn 37,18
F-Line 49,18,74,18
F-Line 84,18,85,18
F-Line 38,17,39,17
F-Line 48,17,76,17
F-Line 82,17,83,17
F-Line 39,16,40,16
F-Line 46,16,47,16
F-Line 55,16,68,16
F-Line 77,16,81,16
F-Line 41,15,45,15
F-Line 59,15,64,15
Text 54,29,"DEATHTRAP DUNGEON"
Text 1,1,""
0->P
While P=0
  Getkey->P
WhileEnd
Cls
Text 2,19,"DEATHTRAP DUNGEON 1.1A"
Text 13,14,"F1"
Text 21,14,"F2"
Text 29,14,"F6"
Text 37,14,"EXIT"
Text 13,33,"- START NEW GAME"
Text 21,33,"- PLAY BONUS LEVEL"
Text 29,33,"- CONTINUE OLD GAME"
Text 37,33,"- LEAVE DTD"
Text 48,5,"(C) JOERG ROCKSTROH, 1997-2001."
Text 56,31,"WWW.CASIOFX.COM"
Text 1,1,""
0->P
Do
  Getkey->P
LpWhile P<>79 And P<>69 And P<>29 And P<>47
If P=47
  Then ClrGraph
  ClrList
  ClrText
  Stop
IfEnd
P=79=>0->G
P=69=>8->G
If P=29
  Then ClrText
  "YOUR PASSWORD"?->M
  Cls
  {0,0,0,0,0,0,0,0,0,0,0,0,0,0}->List 4
  0->O
  Do
    O+1->O
    Int (M/2)->N
    M-N*2->List 4[O]
    N->M
  LpWhile M>0 And O<15
  0->M
  For 1->N To 14
    M+List 4[N]*2^(14-N)->M
  Next 
  {0}->List 4
  Int (M/721)->U
  M-U*721->M
  Int (M/87)->G
  M-G*87->V
  If Abs (G-3)>2 Or Abs (U-8)>7 Or Abs (V-31)>30 Or V-Int (V/2)*2>0
    Then ClrGraph
    ClrText
    "ERROR"
    Stop
  IfEnd
IfEnd
G=5=>Goto0
Do
  G+1->G
  Fill(0,Mat B)
  Prog "DTD.LVL"
  -1->E:0->F
  Do
    0->T
    If A<>E Or B<>F
      Then Mat A[B+1,A+1]->C
      1->Mat B[B+1,A+1]
      Prog "DTD.GFX"
      Mat A[B+1,A+1]->C
      C>199=>Prog "DTD.FGT"
    IfEnd
    If T=0
      Then Text 1,1,""
      0->M
      While M=0
        Getkey->M
      WhileEnd
      A->E:B->F
      M=64=>B-List 2[3]->B
      M=62=>B+List 2[1]->B
      M=73=>A-List 2[4]->A
      M=53=>A+List 2[2]->A
      M=79 And W=3 And A=H And B=I=>4->W
      If M=31
        Then Prog "DTD.MAP"
        10->E:10->F
      IfEnd
    Else Do
        Int (Ran#*4)+1->K
      LpWhile List 2[K]=0
      K=1=>B+1->B
      K=2=>A+1->A
      K=3=>B-1->B
      K=4=>A-1->A
      10->E:10->F
    IfEnd
  LpWhile A<>H Or B<>I Or W<4
  Cls
  G=9=>Goto1
  V+G*87+U*721->M
  {0,0,0,0,0,0,0,0,0,0,0,0,0,0}->List 4
  0->O
  Do
    O+1->O
    Int (M/2)->N
    M-N*2->List 4[O]
    N->M
  LpWhile M>0 And O<15
  0->M
  For 1->N To 14
    M+List 4[N]*2^(14-N)->M
  Next 
  {0}->List 4
  Text 10,32,"LEVEL"
  Text 10,56,G
  Text 10,64,"COMPLETE"
  Text 25,37,"YOUR PASSWORD"
  Text 33,63-(Int log M)*2,M
  Text 48,12,"PRESS ANY KEY TO CONTINUE"
  Text 1,1,""
  0->M
  While M=0
    Getkey->M
  WhileEnd
LpWhile G<5
Lbl 0
Cls
{0,0,12,12}->List 3
0->A:0->B:400->C:1->Z
F-Line 64,43,64,41
F-Line 63,40,62,37
F-Line 65,40,66,37
F-Line 60,36,68,36
F-Line 62,35,62,33
F-Line 63,32,63,31
F-Line 66,35,66,33
F-Line 65,32,65,31
PlotOn 64,30
Orange PlotOn 63,34
Orange PlotOn 65,34
Orange F-Line 64,32,64,31
F-Line 62,30,62,29
F-Line 61,28,60,23
PlotOn 59,22
F-Line 66,30,66,29
F-Line 67,28,68,23
PlotOn 69,22
F-Line 59,21,69,21
F-Line 61,30,58,33
F-Line 57,33,56,34
F-Line 58,32,58,30
F-Line 58,30,60,28
F-Line 55,34,56,33
F-Line 67,30,70,33
F-Line 71,33,72,34
F-Line 70,32,70,30
F-Line 70,30,68,28
F-Line 73,34,72,33
F-Line 49,37,49,31
PlotOn 50,32
F-Line 51,33,51,27
F-Line 79,37,79,31
PlotOn 78,32
F-Line 77,33,77,27
Text 4,93,"WARLOCK"
Prog "DTD.FGT"
Cls
Orange F-Line 8,51,17,42
Orange F-Line 8,50,16,42
Orange F-Line 24,59,22,57
Orange F-Line 26,60,22,56
Orange F-Line 25,58,22,55
F-Line 24,59,7,42
F-Line 26,60,8,42
F-Line 25,58,8,41
Orange F-Line 22,54,22,53
Orange F-Line 22,50,22,49
Text 4,34,"AS YOUR SWORD PIERCES"
Text 12,34,"THE WARLOCK HE DECAYS"
Text 20,34,"INTO DUST. NOW YOU"
Text 28,4,"WILL RETURN AND CELEBRATE"
Text 36,4,"YOUR VICTORY. YOUR MISSION"
Text 44,4,"WAS SUCCESSFULL..."
Text 1,1,""
0->M
While M=0
  Getkey->M
WhileEnd
ClrGraph
ClrList
ClrText
Stop
Lbl 1
Text 26,23,"BONUS LEVEL COMPLETE"
Text 1,1,""
0->M
While M=0
  Getkey->M
WhileEnd
ClrGraph
ClrList
ClrText
Stop


FILE: DTD.FGT
=============

For 1->M To Z Step 4
  If List 3[M]=A And List 3[M+1]=B
    Then List 3[M+2]->N
    List 3[M+3]->O
  IfEnd
Next 
Text 4,4,"PLAYER"
Text 20,4,"AG:"
Text 20,25-(Int log (U+0.9))*4,U
Text 28,4,"HE:"
Text 28,25-(Int log (V+0.9))*4,V
Text 20,99,"AG:"
Text 20,120-(Int log (N+0.9)*4,N
Text 28,99,"HE:"
Text 28,120-(Int log (O+0.9)*4,O
If C<400
  Then Text 56,4,"F1=FIGHT"
  Text 48,88,"F6=ESCAPE"
  Text 56,87,"HEALTH -2"
Else Text 56,4,"ANY KEY..."
IfEnd
Text 1,1,""
0->M
While M=0
  Getkey->M
WhileEnd
If M<>29 Or C=400
  Then Do
    U+Int (Ran#*6)+Int (Ran#*6)+2-(N+Int (Ran#*6)+Int (Ran#*6)+2)->P
    P>0=>O-2->O
    P<0=>V-2->V
    O<0=>0->O
    V<0=>0->V
    (Int log (O+0.9))*4->M
    Text 28,115-M," "
    Text 28,120-M,O
    (Int log (V+0.9))*4->M
    Text 28,20-M," "
    Text 28,25-M,V
  LpWhile V>0 And O>0
  V<1=>Goto9
  Int (C/20)->D
  C-D*20->Mat A[B+1,A+1]
  Text 56,4,"YOU WIN"
  If C<400
    Then Text 48,81,"   YOU MAY"
    Text 56,84,"   PROCEED"
  IfEnd
Else V-2->V:1->T
  V<1=>Goto9
IfEnd
Return
Lbl 9
Cls
F-Line 12,60,20,60
F-Line 20,60,20,52
F-Line 20,52,28,52
F-Line 28,52,28,44
F-Line 28,44,20,44
F-Line 20,44,20,28
F-Line 20,28,12,28
F-Line 12,28,12,44
F-Line 12,44,4,44
F-Line 4,44,4,52
F-Line 4,52,12,52
F-Line 12,52,12,60
Text 4,34,"YOU HAVE BEEN KILLED"
Text 12,34,"IN ACTION. AS YOU LIE"
Text 20,34,"DYING ON THE GROUND"
Text 28,34,"YOU THINK OF THE"
Text 36,34,"MISTAKES YOU HAVE"
Text 44,4,"MADE. YOUR MISSION IS"
Text 52,4,"FAILED..."
Text 1,1,""
0->M
While M=0
  Getkey->M
WhileEnd
ClrGraph
ClrList
ClrText
Stop


FILE: DTD.GFX
=============

Cls
Int (C/20)->M
C-20*M->C
C->Mat A[B+1,A+1]
List 1[C+1]->D
For 0->N To 3
  Int (D/10^N)-Int (D/10^(N+1))*10->List 2[N+1]
Next 
If List 2[1]=1
  Then F-Line 54,22,54,2
  F-Line 74,22,74,2
Else F-Line 54,22,74,22
IfEnd
If List 2[2]=1
  Then F-Line 74,22,94,22
  F-Line 94,42,74,42
Else F-Line 74,22,74,42
IfEnd
If List 2[3]=1
  Then F-Line 74,42,74,62
  F-Line 54,62,54,42
Else F-Line 54,42,74,42
IfEnd
If List 2[4]=1
  Then F-Line 54,42,34,42
  F-Line 34,22,54,22
Else F-Line 54,42,54,22
IfEnd
M=0=>Return
If M=1
  Then F-Line 56,26,65,26
  F-Line 65,26,71,32
  F-Line 71,32,71,37
  F-Line 71,37,62,37
  F-Line 62,37,56,31
  F-Line 56,31,56,26
  F-Line 65,31,65,26
  F-Line 56,31,65,31
  F-Line 65,31,71,37
  PlotOn 68,33
  Orange F-Line 65,34,62,34
  Orange F-Line 63,33,64,35
  Text 56,4,"MEDI-PACK"
  Text 56,87,"HEALTH +2"
  V+2->V
IfEnd
If M=2
  Then Orange F-Line 59,29,69,29
  Orange F-Line 60,28,68,28
  F-Line 63,24,63,38
  F-Line 64,24,64,40
  F-Line 65,24,65,38
  Text 56,4,"WEAPON"
  Text 56,84,"AGILITY +1"
  U+1->U
IfEnd
If M=3
  Then F-Line 58,32,66,32
  F-Line 67,33,67,31
  PlotOn 68,30
  PlotOn 68,34
  F-Line 69,31,69,33
  F-Line 59,31,59,30
  PlotOn 60,31
  Text 56,4,"KEY"
  W+1->W
  Text 56,83,"NO."
  Text 56,100,W
  Text 56,108,"OF 3"
IfEnd
If M=4
  Then F-Line 58,24,58,40
  F-Line 58,40,70,40
  F-Line 70,40,70,24
  F-Line 68,31,67,31
  M*20+C->C
  C->Mat A[B+1,A+1]
  Text 4,4,"EXIT"
  If W=3
    Then Text 12,4,"OPEN"
    Text 56,4,"F1=LEAVE"
  Else Text 12,4,"CLOSED"
  IfEnd
IfEnd
If M=10
  Then M*20+C->C
  C->Mat A[B+1,A+1]
  F-Line 61,38,67,38
  F-Line 60,37,61,30
  F-Line 68,37,67,30
  F-Line 62,29,64,27
  F-Line 64,27,66,29
  F-Line 63,28,63,24
  F-Line 62,28,62,24
  F-Line 65,28,65,24
  F-Line 66,28,66,24
  PlotOn 61,24
  PlotOn 67,24
  F-Line 60,34,57,34
  F-Line 60,33,57,33
  F-Line 58,40,58,24
  PlotOn 62,36
  PlotOn 66,36
  F-Line 62,35,63,35
  F-Line 65,35,66,35
  F-Line 64,33,64,32
  F-Line 68,33,70,31
  F-Line 68,32,70,30
  F-Line 68,31,70,29
  F-Line 57,39,59,39
  Text 4,103,"GUARD"
IfEnd
If M=11
  Then M*20+C->C
  C->Mat A[B+1,A+1]
  F-Line 63,40,65,40
  F-Line 62,39,62,38
  F-Line 64,39,64,36
  F-Line 66,39,66,38
  F-Line 63,38,63,36
  F-Line 65,38,65,36
  F-Line 64,35,64,30
  F-Line 63,29,61,27
  F-Line 65,29,67,27
  F-Line 61,26,61,24
  F-Line 67,26,67,24
  F-Line 63,34,60,31
  F-Line 60,31,59,35
  F-Line 66,33,66,31
  F-Line 69,33,69,31
  F-Line 67,30,68,30
  F-Line 67,34,68,34
  F-Line 65,34,65,33
  Text 4,90,"SKELETON"
IfEnd
If M=12
  Then M*20+C->C
  C->Mat A[B+1,A+1]
  F-Line 63,40,65,40
  F-Line 62,39,62,39
  F-Line 66,39,66,39
  F-Line 61,38,61,35
  F-Line 67,38,67,35
  F-Line 61,34,56,35
  F-Line 55,34,55,30
  F-Line 56,31,57,32
  F-Line 58,31,60,31
  F-Line 61,30,60,24
  F-Line 61,24,67,24
  F-Line 67,34,72,35
  F-Line 73,34,73,30
  F-Line 72,31,71,32
  F-Line 70,31,68,31
  F-Line 67,30,68,24
  PlotOn 63,37
  PlotOn 65,37
  Text 4,104,"GHOST"
IfEnd
If M=5
  Then F-Line 56,28,56,30
  F-Line 64,24,57,27
  F-Line 65,25,65,27
  F-Line 64,28,57,31
  F-Line 62,27,62,25
  F-Line 71,33,64,36
  F-Line 63,37,63,39
  F-Line 64,40,71,37
  F-Line 72,36,72,34
  F-Line 69,36,69,34
  F-Line 71,33,65,25
  F-Line 64,36,61,31
  Text 56,4,"MAP"
  For 1->N To 10
    For 1->O To 10
      If Mat B[O,N]=0
        Then 2->Mat B[O,N]
      IfEnd
    Next 
  Next 
IfEnd
If M=6
  Then F-Line 62,24,66,24
  PlotOn 61,25
  F-Line 60,26,60,28
  F-Line 63,31,63,34
  F-Line 61,29,62,30
  PlotOn 64,34
  F-Line 65,34,65,31
  F-Line 66,30,67,29
  F-Line 68,28,68,26
  PlotOn 67,25
  PlotOn 64,36
  F-Line 63,37,65,39
  PlotOn 64,40
  Text 56,4,"POISON"
  Text 56,84,"AGILITY -1"
  U-1->U
IfEnd
If M=13
  Then M*20+C->C
  C->Mat A[B+1,A+1]
  F-Line 60,24,63,24
  F-Line 61,25,61,27
  F-Line 63,25,63,28
  PlotOn 62,25
  PlotOn 64,29
  F-Line 65,28,65,25
  F-Line 65,24,68,24
  PlotOn 66,25
  F-Line 67,25,67,27
  F-Line 68,27,68,28
  F-Line 67,29,67,30
  F-Line 66,31,66,32
  F-Line 67,33,67,35
  F-Line 68,35,68,34
  F-Line 69,34,69,32
  PlotOn 68,31
  F-Line 66,37,64,35
  F-Line 63,36,62,37
  F-Line 62,39,62,40
  F-Line 66,39,66,40
  F-Line 61,35,61,33
  F-Line 60,35,60,34
  F-Line 59,34,59,32
  F-Line 62,32,62,31
  F-Line 61,30,61,29
  F-Line 60,27,60,28
  F-Line 60,30,60,31
  F-Line 63,39,65,39
  Orange PlotOn 63,38
  Orange PlotOn 65,38
  Green F-Line 59,30,58,31
  Green F-Line 57,31,57,30
  Green F-Line 56,29,56,36
  Green F-Line 57,37,58,37
  Green PlotOn 56,38
  Green F-Line 61,36,59,36
  Green F-Line 70,37,71,37
  Green F-Line 72,36,72,29
  Green F-Line 71,30,71,31
  Green F-Line 70,31,69,30
  Green F-Line 69,36,67,36
  Green PlotOn 72,38
  Text 4,101,"DEMON"
IfEnd
If M=14
  Then C+M*20->C
  C->Mat A[B+1,A+1]
  For 25->O To 37 Step 6
    56->P
    O=31=>62->P
    F-Line P,O,P+2,O+2
    F-Line P+2,O+1,P+8,O+1
    F-Line P+8,O+2,P+10,O
    F-Line P+4,O+3,P+4,O
    F-Line P+6,O+3,P+6,O
    Orange PlotOn P+4,O+2
    Orange PlotOn P+6,O+2
    PlotOn P+5,O+2
  Next 
  Text 4,108,"BATS"
IfEnd
Return


FILE: DTD.MAP
=============

Cls
Text 8,8,"LEVEL:"
Text 16,8,"KEYS:"
Text 32,8,"AGILITY:"
Text 40,8,"HEALTH:"
If G=9
  Then Text 8,44,"BONUS"
Else Text 8,62,G
IfEnd
Text 16,62,W
Text 32,62-(Int log (U+0.9))*4,U
Text 40,62-(Int log (V+0.9))*4,V
For 1->N To 10
  For 1->O To 10
    If Mat B[O,N]<>0
      Then Mat A[O,N]->P
      P-Int (P/20)*20->P
      (9-O)*5+14->Q
      N*5+65->R
      Mat B[O,N]=2=>Goto1
      Goto2
      Lbl 0
    IfEnd
  Next 
Next 
For 0->O To 4
  For 0->N To 4
    PlotChg A*5+70+N,(9-B)*5+9+O
  Next 
Next 
Text 1,1,""
0->M
While M=0
  Getkey->M
WhileEnd
Return
Lbl 1
P=0=>Orange F-Line R+2,Q,R+2,Q+4
P=1=>Orange F-Line R,Q+2,R+4,Q+2
If P=2
  Then Orange F-Line R+2,Q,R+2,Q+2
  Orange F-Line R+1,Q+2,R,Q+2
IfEnd
If P=3
  Then Orange F-Line R+2,Q+2,R+2,Q+4
  Orange F-Line R+2,Q+2,R,Q+2
IfEnd
If P=4
  Then Orange F-Line R+4,Q+2,R+2,Q+2
  Orange F-Line R+2,Q+2,R+2,Q+4
IfEnd
If P=5
  Then Orange F-Line R+4,Q+2,R+2,Q+2
  Orange F-Line R+2,Q+1,R+2,Q
IfEnd
If P=6
  Then Orange F-Line R+2,Q,R+2,Q+4
  Orange F-Line R,Q+2,R+1,Q+2
IfEnd
If P=7
  Then Orange F-Line R+4,Q+2,R,Q+2
  Orange F-Line R+2,Q+3,R+2,Q+4
IfEnd
If P=8
  Then Orange F-Line R+2,Q,R+2,Q+4
  Orange F-Line R+3,Q+2,R+4,Q+2
IfEnd
If P=9
  Then Orange F-Line R,Q+2,R+4,Q+2
  Orange F-Line R+2,Q+1,R+2,Q
IfEnd
P=10=>Orange F-Line R,Q+2,R+2,Q+2
P=11=>Orange F-Line R+2,Q+2,R+2,Q+4
P=12=>Orange F-Line R+4,Q+2,R+2,Q+2
P=13=>Orange F-Line R+2,Q,R+2,Q+2
If P=14
  Then Orange F-Line R,Q+2,R+4,Q+2
  Orange F-Line R+2,Q,R+2,Q+4
IfEnd
Goto0
Lbl 2
P=0=>F-Line R+2,Q,R+2,Q+4
P=1=>F-Line R,Q+2,R+4,Q+2
If P=2
  Then F-Line R+2,Q,R+2,Q+2
  F-Line R+1,Q+2,R,Q+2
IfEnd
If P=3
  Then F-Line R+2,Q+2,R+2,Q+4
  F-Line R+2,Q+2,R,Q+2
IfEnd
If P=4
  Then F-Line R+4,Q+2,R+2,Q+2
  F-Line R+2,Q+2,R+2,Q+4
IfEnd
If P=5
  Then F-Line R+4,Q+2,R+2,Q+2
  F-Line R+2,Q+1,R+2,Q
IfEnd
If P=6
  Then F-Line R+2,Q,R+2,Q+4
  F-Line R,Q+2,R+1,Q+2
IfEnd
If P=7
  Then F-Line R+4,Q+2,R,Q+2
  F-Line R+2,Q+3,R+2,Q+4
IfEnd
If P=8
  Then F-Line R+2,Q,R+2,Q+4
  F-Line R+3,Q+2,R+4,Q+2
IfEnd
If P=9
  Then F-Line R,Q+2,R+4,Q+2
  F-Line R+2,Q+1,R+2,Q
IfEnd
P=10=>F-Line R,Q+2,R+2,Q+2
P=11=>F-Line R+2,Q+2,R+2,Q+4
P=12=>F-Line R+4,Q+2,R+2,Q+2
P=13=>F-Line R+2,Q,R+2,Q+2
If P=14
  Then F-Line R,Q+2,R+4,Q+2
  F-Line R+2,Q,R+2,Q+4
IfEnd
Goto0


FILE: DTD.LVL
=============

0->W
If G=1
  Then [[92,1,202,5,1,1,1,1,1,2][5,2,0,0,13,32,1,1,2,0]
        [31,8,3,220,0,53,5,1,6,0][5,3,5,7,7,3,0,13,0,0]
        [0,73,0,12,241,2,0,0,4,3][8,3,4,1,2,8,3,0,72,2]
        [244,2,5,2,0,8,2,8,21,286][5,6,0,288,3,0,111,8,10,0]
        [0,0,31,0,73,0,13,4,2,0][11,4,1,7,3,4,7,1,3,11]->Mat A
  9->A:9->B:0->H:0->I:21->Z
  {2,0,7,8,3,2,6,8,4,4,7,6,0,6,6,6,9,6,5,4,3,7,5,5}->List 3
IfEnd
If G=2
  Then [[92,9,9,10,12,1,229,1,10,133][72,206,11,5,1,1,7,9,2,0]
        [5,3,12,6,5,1,50,11,8,6][0,5,1,3,0,5,9,1,3,0]
        [20,0,12,9,3,0,8,10,12,6][0,8,10,8,1,6,71,32,2,31]
        [8,3,13,0,112,226,5,1,7,2][288,1,6,8,2,11,8,1,2,0]
        [0,13,11,11,4,9,3,13,11,0][4,7,10,12,1,7,61,7,10,11]]->Mat A
  9->A:9->B:0->H:0->I:13->Z
  {6,0,6,10,1,1,8,8,5,6,7,5,0,7,4,6}->List 3
IfEnd
If G=3
  Then [[132,2,12,9,1,62,5,1,10,73][32,7,2,0,12,14,3,5,9,3]
        [33,5,7,7,2,8,10,51,0,13][8,7,1,2,240,0,5,9,247,3]
        [4,9,2,4,14,14,3,4,1,2][12,3,4,1,14,14,1,9,30,0]
        [12,9,209,1,3,0,112,7,2,0][92,3,4,9,1,7,1,1,14,6]
        [5,1,9,3,5,29,9,2,11,0][11,52,7,221,3,71,4,7,221,3]]->Mat A
  0->H:7->I:5->A:5->B:17->Z
  {2,6,8,8,3,9,5,6,8,9,6,4,4,3,6,5,8,3,7,6}->List 3
IfEnd
If G=4
  Then [[93,13,72,2,13,5,21,9,2,133][0,4,9,6,4,246,13,0,11,0]
        [8,261,6,8,10,0,0,0,5,3][8,2,0,11,5,3,8,234,3,13]
        [11,31,0,13,71,52,3,8,9,226][13,13,0,4,9,1,1,6,11,0]
        [288,6,8,1,3,5,2,0,5,6][0,11,8,2,13,0,11,0,11,71]
        [24,9,3,0,8,14,1,247,1,2][12,3,112,3,31,4,1,1,30,11]]->Mat A
  0->H:0->I:9->A:9->B:25->Z
  {1,2,10,12,5,1,7,8,7,3,7,7,9,4,6,6,2,6,5,6,7,8,6,8,0,6,5,6}->List 3
IfEnd
If G=5
  Then [[5,1,1,70,5,21,1,1,1,22][8,1,2,5,14,2,5,1,2,0]
        [0,33,0,260,260,260,0,33,0,0][0,0,0,4,14,3,0,0,0,0]
        [0,248,287,2,260,5,287,246,0,20][0,31,33,4,47,3,33,31,0,0]
        [8,1,6,73,113,73,8,1,6,0][228,30,228,3,20,4,226,32,226,0]
        [8,1,7,1,214,1,7,1,6,200][4,1,1,50,11,132,1,1,3,91]]->Mat A
  9->H:9->I:4->A:9->B:53->Z
  {3,2,11,12,4,2,12,8,5,2,10,14,1,4,6,8,7,4,6,8,2,4,5,6,6,4,5,6,0,7,7,6,2,7,7,6,6,7,7,6,8,7,7,6,9,8,8,8,4,8,9,8,4,4,11,10}->List 3
IfEnd
If G=9
  Then [[13,92,1,261,201,1,21,21,1,262][0,33,33,33,72,2,13,25,50,20]
        [0,0,8,7,2,24,27,266,13,0][0,8,223,33,288,290,53,8,286,20]
        [288,6,33,288,207,1,26,231,0,260][200,4,234,3,53,33,71,32,254,206]
        [0,133,31,12,14,7,29,290,20,0][20,4,2,33,20,53,4,2,131,20]
        [0,32,7,247,214,267,1,27,70,0][44,1,21,1,227,261,1,21,1,43]]->Mat A
  1->H:0->I:0->A:0->B:89->Z
  {0,4,5,6,4,4,7,8,2,3,6,8,4,3,4,6,5,3,5,5,2,5,6,7,3,4,5,4,0,5,7,8,4,9,7,7,3,8,7,6,4,8,9,8,7,6,6,4,5,8,10,10,5,9,11,12,9,5,8,8,8,5,7,9,8,3,5,6,7,4,6,10,7,2,12,9,9,0,12,12,4,0,9,8,3,0,14,14,9,4,11,8}->List 3
IfEnd
