DECLARE SUB FrTh ()
DECLARE SUB UnFrTh ()
DECLARE SUB Logiq ()
DECLARE SUB Menu ()
DECLARE SUB NoMenu ()
DECLARE SUB Pat1 ()
DECLARE SUB Pat2 ()
DECLARE SUB Pat3 ()
DECLARE SUB Koni ()
DECLARE SUB Slp ()
DECLARE SUB SlpSlo ()
DECLARE SUB Brugge ()

     D$ = CHR$(148): RRPS = 8: SHRT = .01

     CLS : T100K = TIMER: FOR AA = 1 TO 100000: NEXT AA
     T100K = TIMER - T100K: IF T100K < 0 THEN T100K = T100K + 86400
     SCREEN 12

A04: CLS : Koni: Menu: LOCATE 29, 11: PRINT "        "; : LOCATE 20, 1
     PRINT "         The 7 Bridges of K"; D$; "nigsberg": PRINT
     PRINT " On Sunday strolls, citizens of K"; D$; "nigsberg"
     PRINT " tried to cross all 7 bridges, each only once,  "
     PRINT " and end where they started. No one ever could. "
     PRINT " But no one could prove it was impossible.      ";

     LOCATE 2, 52: PRINT "           KONIG7           ";
     LOCATE 3, 52: PRINT "     Copyright (c) 2002     ";
     LOCATE 4, 52: PRINT "      by Robert Merkin      ";
     LOCATE 6, 52: PRINT "  Yankee Magnetic Software  ";
     LOCATE 7, 52: PRINT "     Northampton MA USA     ";
     LOCATE 9, 53:  PRINT CHR$(34); "Solving things you never";
     LOCATE 10, 53: PRINT "even knew were problems!"; CHR$(34);
     LOCATE 12, 52: PRINT "   bobmer.javanet{at}rcn.com  ";
     LOCATE 13, 52: PRINT "   http://users.rcn.com/   ";
     LOCATE 14, 52: PRINT "          bobmer.javanet/  ";
     LINE (400, 0)-(635, 235), 12, B

A08: G$ = INKEY$: IF G$ = "" GOTO A08
                  IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END

     : NoMenu: DZRT = SHRT: Pat1: DZRT = 2: Slp: Koni
               DZRT = SHRT: Pat2: DZRT = 2: Slp: Koni
               DZRT = SHRT: Pat3:                Menu

A12: G$ = INKEY$: IF G$ = "" GOTO A12
                  IF G$ = "R" OR G$ = "r" GOTO A04
                  IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END

     LINE (400, 0)-(635, 235), 0, BF: Koni
     LOCATE 1, 52: PRINT "After centuries of trying,  ";
     LOCATE 2, 52: PRINT "some K"; CHR$(148); "nigsberg
students    ";
     LOCATE 3, 52: PRINT "wrote Leonhard Euler (1707 -";
     LOCATE 4, 52: PRINT "1783), Europe's greatest    ";
     LOCATE 5, 52: PRINT "mathematician, and asked him";
     LOCATE 6, 52: PRINT "to solve the puzzle of the  ";
     LOCATE 7, 52: PRINT "7 Bridges.                  ";

     LOCATE 9, 52:  PRINT "Euler's notation:";
     LOCATE 11, 52: PRINT "   7 Bridges      abcdefg   ";
     LOCATE 5, 9:   PRINT "c"; : LOCATE 5, 18:  PRINT "d";
     LOCATE 5, 31:  PRINT "g"; : LOCATE 14, 9:  PRINT "a";
     LOCATE 14, 18: PRINT "b"; : LOCATE 14, 31: PRINT "f";
     LOCATE 10, 25: PRINT "e";

A16: G$ = INKEY$: IF G$ = "" GOTO A16
                  IF G$ = "R" OR G$ = "r" GOTO A04
                  IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END

     LOCATE 13, 52: PRINT "   4 Land Zones   ABCD      ";
     LOCATE 2, 39:  PRINT " C "; : LOCATE 17, 39: PRINT " B ";
     LOCATE 10, 5:  PRINT " A "; : LOCATE 10, 39: PRINT " D ";

A20: G$ = INKEY$: IF G$ = "" GOTO A20
                  IF G$ = "R" OR G$ = "r" GOTO A04
                  IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END

     : Brugge: LOCATE 9, 52:  PRINT "To Euler, the 4 Land Zones  ";
               LOCATE 10, 52: PRINT "ABCD were more important    ";
               LOCATE 11, 52: PRINT "than the 7 Bridges.         ";
               LOCATE 13, 52: PRINT SPACE$(27);

A24: G$ = INKEY$: IF G$ = "" GOTO A24
                  IF G$ = "R" OR G$ = "r" GOTO A04
                  IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END

     LOCATE 13, 52: PRINT "The Word DA means:    ";
     LOCATE 15, 52: PRINT "     Cross from zone D";
     LOCATE 16, 52: PRINT "             to zone A";

A28: DZRT = SHRT: FOR XX = 29 TO 18 STEP -1
     CIRCLE (((XX * RRPS) + 4), ((18 * RRPS) + 4)), 2, 0
     PAINT (((XX * RRPS) + 4), ((18 * RRPS) + 4)), 0: SlpSlo: NEXT XX

     DZRT = 1: Slp: XXL = (18 * RRPS)
                    XXR = (29 * RRPS) + 8
                    YYC = (18 * RRPS) + 4
     LINE (XXL, (YYC - 4))-(XXR, (YYC + 4)), 10, BF
     LINE (((21 * RRPS) - 10 + 4), (17 * RRPS))-(((26 * RRPS) + 10 + 4), (20 *
     : SlpSlo

     G$ = INKEY$: IF G$ = "" GOTO A28
                  IF G$ = "R" OR G$ = "r" GOTO A04
                  IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END

     LOCATE 13, 61: PRINT "C";
     LOCATE 15, 73: PRINT "C"; : LOCATE 18, 60: PRINT "by
either bridge.";

A32: DZRT = SHRT
     FOR YY = 3 TO 15: CIRCLE (((17 * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
     PAINT (((17 * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo: YYY = YY: NEXT Y

     DZRT = 1: Slp: YYH = (3 * RRPS)
                    YYL = (15 * RRPS) + 8
                    XXC = (17 * RRPS) + 4
     LINE ((XXC + 4), YYH)-((XXC - 4), YYL), 10, BF
     LINE (((17 * RRPS) - 6), (5 * RRPS))-(((17 * RRPS) + 14), (14 * RRPS)), 1
     : Slp

     DZRT = SHRT
     FOR YY = 3 TO 15: CIRCLE (((8 * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
     PAINT (((8 * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo: YYY = YY: NEXT YY

     DZRT = .5: Slp: XXC = (8 * RRPS) + 4
     LINE ((XXC + 4), YYH)-((XXC - 4), YYL), 10, BF
     LINE (((8 * RRPS) - 6), (5 * RRPS))-(((8 * RRPS) + 14), (14 * RRPS)), 12,
     : Slp

     G$ = INKEY$: IF G$ = "" GOTO A32
                  IF G$ = "R" OR G$ = "r" GOTO A04
                  IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END

     FOR LL = 1 TO 25: LOCATE LL, 52: PRINT SPACE$(28); : NEXT LL: NoMenu
     LOCATE 1, 52: PRINT "A Path that crosses 7   ";
     LOCATE 2, 52: PRINT "bridges can be described";
     LOCATE 3, 52: PRINT "by an 8-letter Word.    ";
     LOCATE 5, 52: PRINT "ABDCABDA means:         ";
     LOCATE 7, 52: PRINT "         Cross from A   ";
     LOCATE 8, 52: PRINT "                 to B   ";

     DZRT = .05: CIRCLE (((17 * RRPS) + 4), ((20 * RRPS) + 4)), 3, 13
     PAINT (((17 * RRPS) + 4), ((20 * RRPS) + 4)), 13
     FOR YY = 21 TO 34: CIRCLE (((17 * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
     PAINT (((17 * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo
     YYY = YY: NEXT YY: FOR XX = 17 TO 30
     CIRCLE (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 2, 0
     PAINT (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 0: SlpSlo
     XXX = XX: NEXT XX: Menu

A36: G$ = INKEY$: IF G$ = "" GOTO A36

     : NoMenu: LOCATE 9, 52: PRINT "      then cross to D";
     FOR YY = 34 TO 18 STEP -1
     CIRCLE (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
     PAINT (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo
     YYY = YY: NEXT YY: DZRT = .05: Menu

A40: G$ = INKEY$: IF G$ = "" GOTO A40

     : NoMenu: LOCATE 10, 52: PRINT "      then cross to C";
     FOR YY = 17 TO 2 STEP -1
     CIRCLE (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
     PAINT (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo
     YYY = YY: NEXT YY: FOR XX = 30 TO 8 STEP -1
     CIRCLE (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 2, 0
     PAINT (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 0: SlpSlo
     XXX = XX: NEXT XX: DZRT = .05: Menu

A48: G$ = INKEY$: IF G$ = "" GOTO A48

     : NoMenu: LOCATE 11, 52: PRINT "      then cross to A";
     FOR YY = 2 TO 18: CIRCLE (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
     PAINT (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo
     YYY = YY: NEXT YY: DZRT = .05: Menu

A60: G$ = INKEY$: IF G$ = "" GOTO A60

     : NoMenu: LOCATE 12, 52: PRINT "      then cross to B ...";
     FOR YY = 19 TO 34: CIRCLE (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
     PAINT (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo
     YYY = YY: NEXT YY: Menu

A64: G$ = INKEY$: IF G$ = "" GOTO A64
                  IF G$ = "R" OR G$ = "r" GOTO A04
                  IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END

A68: LOCATE 14, 52: PRINT "How many Path Words   ";
     LOCATE 15, 52: PRINT "can be spelled with   ";
     LOCATE 16, 52: PRINT "any combination of    ";
     LOCATE 17, 52: PRINT "A B C and D?          "; : WZT = 0: Logiq

A72: G$ = INKEY$: IF G$ = "" GOTO A72
                  IF G$ = "R" OR G$ = "r" GOTO A04
                  IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END

A76: LOCATE 14, 52: PRINT "A Path Word can't have";
     LOCATE 15, 52: PRINT "AA or BB or CC or DD  ";
     LOCATE 16, 52: PRINT "in it. Why not? How   ";
     LOCATE 17, 52: PRINT "many Path Words now?  "; : WZT = 1: Logiq

A80: G$ = INKEY$: IF G$ = "" GOTO A80
                  IF G$ = "R" OR G$ = "r" GOTO A04
                  IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END

     LOCATE 14, 52: PRINT "                        ";
     LOCATE 15, 52: PRINT "A Path Word can't have  ";
     LOCATE 16, 52: PRINT "BC or CB in it. Why not?";
     LOCATE 17, 52: PRINT "How many Path Words now?"; : WZT = 2: Logiq

A84: G$ = INKEY$: IF G$ = "" GOTO A84
                  IF G$ = "R" OR G$ = "r" GOTO A04
                  IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END

     LOCATE 14, 52: PRINT "In a Solution Path, the ";
     LOCATE 15, 52: PRINT "First letter must equal ";
     LOCATE 16, 52: PRINT "the Last letter. Why?   ";
     LOCATE 17, 52: PRINT "How many Path Words now?"; : WZT = 3: Logiq

A88: G$ = INKEY$: IF G$ = "" GOTO A88
                  IF G$ = "R" OR G$ = "r" GOTO A04
                  IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END

     LOCATE 14, 52: PRINT "In a Solution Path,     ";
     LOCATE 15, 52: PRINT "CD or DC must occur only";
     LOCATE 16, 52: PRINT "once. Why? How many     ";
     LOCATE 17, 52: PRINT "Path Words now?         "; : WZT = 4: Logiq

A92: G$ = INKEY$: IF G$ = "" GOTO A92
                  IF G$ = "R" OR G$ = "r" GOTO A04
                  IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END

     LOCATE 15, 52: PRINT "BD or DB"; : WZT = 5: Logiq

     LOCATE 26, 52: PRINT "QED! No Path exists which  ";
     LOCATE 27, 52: PRINT "satisfies these (and other)";
     LOCATE 28, 52: PRINT "Rules of the puzzle!       ";
     LOCATE 29, 7:  PRINT "    ";

A96: G$ = INKEY$: IF G$ = "X" OR G$ = "x" THEN SCREEN
0: CLS : END
                  IF G$ = "R" OR G$ = "r" GOTO A04 ELSE GOTO A96

SUB Brugge
SHARED RRPS

LINE (((8 * RRPS) - 6), (5 * RRPS))-(((8 * RRPS) + 14), (14 * RRPS)), 12, BF
LINE (((17 * RRPS) - 6), (5 * RRPS))-(((17 * RRPS) + 14), (14 * RRPS)), 12, BF
LINE (((30 * RRPS) - 6), (5 * RRPS))-(((30 * RRPS) + 14), (14 * RRPS)), 12, BF

LINE (((8 * RRPS) - 6), (23 * RRPS))-(((8 * RRPS) + 14), (32 * RRPS)), 12, BF
LINE (((17 * RRPS) - 6), (23 * RRPS))-(((17 * RRPS) + 14), (32 * RRPS)), 12, B
LINE (((30 * RRPS) - 6), (23 * RRPS))-(((30 * RRPS) + 14), (32 * RRPS)), 12, B

LINE (((21 * RRPS) - 10 + 4), (17 * RRPS))-(((26 * RRPS) + 10 + 4), (20 * RRPS






END SUB

SUB FrTh

LINE (450, 442)-(546, 468), 13, B
LOCATE 29, 59: PRINT "[F]reeze";

END SUB

SUB Koni
SHARED RRPS

     LINE (0, 0)-((49 * RRPS), (37 * RRPS)), 10, BF         ' green
     LINE (0, (7 * RRPS))-((49 * RRPS), (12 * RRPS)), 9, BF ' Pregel high
     LINE (0, (25 * RRPS))-((49 * RRPS), (30 * RRPS)), 9, BF ' Pregel low
     LINE (0, (7 * RRPS))-((3 * RRPS), (30 * RRPS)), 9, BF ' Pregel left
     LINE ((22 * RRPS), (7 * RRPS))-((26 * RRPS), (30 * RRPS)), 9, BF ' Pregel
     : Brugge

END SUB

SUB Logiq
SHARED WZT, DZRT

     DZRT = .5: NoMenu: FrTh
     PP = 0: PW$ = "DDDDDDDD"          ' prime the pump
     LOCATE (19 + WZT), 59: PRINT "0";

Q08: AA = 0
Q12: AA = AA + 1: IF AA = 9 GOTO Q24

     CC = 0: UU = ASC(MID$(PW$, AA, 1)) + 1: IF UU = 69 THEN UU = 65: CC = 1
     MID$(PW$, AA, 1) = CHR$(UU): IF CC = 1 GOTO Q12

'    ++++   new string complete   +++++++++++++++++++++++++

Q24: IF WZT < 4 GOTO Q26
     HCD = 0: FOR CC = 1 TO 7
     IF MID$(PW$, CC, 2) = "CD" OR MID$(PW$, CC, 2) =
"DC" THEN HCD = HCD + 1
     NEXT CC: IF HCD  1 GOTO Q64

Q26: IF WZT < 5 GOTO Q27
     HBD = 0: FOR CC = 1 TO 7
     IF MID$(PW$, CC, 2) = "BD" OR MID$(PW$, CC, 2) =
"DB" THEN HBD = HBD + 1
     NEXT CC: IF HBD  1 GOTO Q64

Q27: IF WZT = 0 GOTO Q60
     IF WZT < 3 GOTO Q28
     IF LEFT$(PW$, 1)  RIGHT$(PW$, 1) GOTO Q64

Q28: BB = 0
Q32: BB = BB + 1: IF BB = 8 GOTO Q60

     IF WZT = 0 GOTO Q32
     IF MID$(PW$, BB, 1) = MID$(PW$, (BB + 1), 1) GOTO Q64
     IF WZT < 2 GOTO Q32
     IF MID$(PW$, BB, 2) = "BC" GOTO Q64
     IF MID$(PW$, BB, 2) = "CB" GOTO Q64 ELSE GOTO Q32

Q60: PP = PP + 1
     LOCATE (19 + WZT), 55: PRINT USING "#####   "; PP; : PRINT PW$;
     IF PP < 13 THEN Slp

Q64: G$ = INKEY$: IF G$ = "" GOTO Q80

     LOCATE 29, 59: PRINT "[T]haw  ";
Q72: G$ = INKEY$: IF G$ = "" GOTO Q72
     LOCATE 29, 59: PRINT "[F]reeze";

Q80: IF PW$  "DDDDDDDD" GOTO Q08
     LOCATE (19 + WZT), 73: PRINT "done"; : UnFrTh: Menu

END SUB

SUB Menu

LINE (40, 442)-(219, 468), 13, B
LOCATE 29, 7: PRINT "[ ]  [R]eset  e[X]it";

END SUB

SUB NoMenu

LINE (40, 442)-(219, 468), 0, BF

END SUB

SUB Pat1
SHARED RRPS

'     "Another trolley always comes along." -- "McTeague"
'     this bucket brigade logic is sort of strange, but it works.

CIRCLE (((18 * RRPS) + 4), ((18 * RRPS) + 4)), 3, 13
PAINT (((18 * RRPS) + 4), ((18 * RRPS) + 4)), 13
FOR XX = 19 TO 30: CIRCLE (((XX * RRPS) + 4), ((18 * RRPS) + 4)), 2, 0
PAINT (((XX * RRPS) + 4), ((18 * RRPS) + 4)), 0: SlpSlo: XXX = XX: NEXT XX
FOR YY = 17 TO 2 STEP -1: CIRCLE (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
PAINT (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo: YYY = YY: NEXT YY
FOR XX = 29 TO 8 STEP -1: CIRCLE (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 2, 0
PAINT (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 0: SlpSlo: XXX = XX: NEXT XX
FOR YY = 3 TO 34: CIRCLE (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
PAINT (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo: YYY = YY: NEXT YY
FOR XX = 9 TO 17: CIRCLE (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 2, 0
PAINT (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 0: SlpSlo: XXX = XX: NEXT XX

END SUB

SUB Pat2
SHARED RRPS

CIRCLE (((30 * RRPS) + 4), ((3 * RRPS) + 4)), 3, 13
PAINT (((30 * RRPS) + 4), ((3 * RRPS) + 4)), 13
FOR YY = 4 TO 18: CIRCLE (((30 * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
PAINT (((30 * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo: YYY = YY: NEXT YY
FOR XX = 29 TO 17 STEP -1: CIRCLE (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 2,
PAINT (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 0: SlpSlo: XXX = XX: NEXT XX
FOR YY = 19 TO 34: CIRCLE (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
PAINT (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo: YYY = YY: NEXT YY
FOR XX = 16 TO 8 STEP -1: CIRCLE (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 2, 0
PAINT (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 0: SlpSlo: XXX = XX: NEXT XX
FOR YY = 33 TO 2 STEP -1: CIRCLE (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
PAINT (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo: YYY = YY: NEXT YY
FOR XX = 9 TO 17: CIRCLE (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 2, 0
PAINT (((XX * RRPS) + 4), ((YYY * RRPS) + 4)), 0: SlpSlo: XXX = XX: NEXT XX

END SUB

SUB Pat3
SHARED RRPS

CIRCLE (((29 * RRPS) + 4), ((18 * RRPS) + 4)), 3, 13
PAINT (((29 * RRPS) + 4), ((18 * RRPS) + 4)), 13
FOR XX = 28 TO 17 STEP -1
CIRCLE (((XX * RRPS) + 4), ((18 * RRPS) + 4)), 2, 0
PAINT (((XX * RRPS) + 4), ((18 * RRPS) + 4)), 0: SlpSlo: XXX = XX: NEXT XX
FOR YY = 17 TO 2 STEP -1
CIRCLE (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
PAINT (((XXX * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo: YYY = YY: NEXT YY
FOR XX = 18 TO 30
CIRCLE (((XX * RRPS) + 4), ((2 * RRPS) + 4)), 2, 0
PAINT (((XX * RRPS) + 4), ((2 * RRPS) + 4)), 0: SlpSlo: XXX = XX: NEXT XX
FOR YY = 3 TO 34
CIRCLE (((30 * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
PAINT (((30 * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo: YYY = YY: NEXT YY
FOR XX = 29 TO 8 STEP -1
CIRCLE (((XX * RRPS) + 4), ((34 * RRPS) + 4)), 2, 0
PAINT (((XX * RRPS) + 4), ((34 * RRPS) + 4)), 0: SlpSlo: XXX = XX: NEXT XX
FOR YY = 33 TO 18 STEP -1
CIRCLE (((8 * RRPS) + 4), ((YY * RRPS) + 4)), 2, 0
PAINT (((8 * RRPS) + 4), ((YY * RRPS) + 4)), 0: SlpSlo: YYY = YY: NEXT YY

END SUB

SUB Slp
SHARED T100K, DZRT

ZZ = (100000 * DZRT) / T100K: FOR TT = 1 TO ZZ: NEXT TT

END SUB

SUB SlpSlo
SHARED T100K, DZRT

     DZRTSLO = .05
     ZZ = (100000 * DZRTSLO) / T100K: FOR TT = 1 TO ZZ: NEXT TT

END SUB

SUB UnFrTh

LINE (450, 442)-(546, 468), 0, BF

END SUB

--- Peach v1.69