KNIGHT.BAS

Go back

Below you'll find the source for the QBasic file KNIGHT.BAS.

I've been in doubt if I'd republish this file again. Mainly for a few reasons;
1. The stuff I made as a kid is very childish (which kinda makes sense)
2. Times have changed; what was funny/innovative or sharable in 1997 doesn't meet standards in 2024.
3. Most of the code doesn't run natively anymore on modern operating systems.
4. It's in the Dutch language, where most of my shared content is in English.

Still, I've decided to share this file. Keep in mind the age of this content though.

Download KNIGHT.BAS for QBasic

DECLARE SUB Intro ()
DECLARE SUB GameOver ()
DECLARE SUB Aftiteling ()
DECLARE SUB Outro ()
DECLARE SUB Level1 ()
DECLARE SUB Kaart1 ()
DECLARE SUB Kaart2 ()
DECLARE SUB Kaart3 ()
DECLARE SUB Kaart4 ()
DECLARE SUB Kaart5 ()
DECLARE SUB Level2 ()
DECLARE SUB Level3 ()
DECLARE SUB Level4 ()
DECLARE SUB Level5 ()

DECLARE SUB Beeld (x!, Tekst$)
DECLARE SUB Einde (level!)
DECLARE SUB Kinput (Var$)
DECLARE FUNCTION Getal! (Van!, Tot!)
DECLARE SUB Menu (level!)
DECLARE SUB openSMP (level!)
DECLARE SUB Pause (Secondes!)

COMMON SHARED SMPbestand$, SMPnuhier, SMPregels                  'Sampledata's
COMMON SHARED TempBestand$                                      'Tempvariabele

ON ERROR GOTO Fout                                              'Foutmeldingen

a$ = ENVIRON$("TEMP")                                 '* * * * * * * * * * * *
IF RIGHT$(a$, 1) <> "\" THEN a$ = a$ + "\"            '* Hier wordt een temp *
IF a$ = "\" THEN a$ = ""                              '* bestand bepaald     *
TempBestand$ = a$ + "KNIGHT.TMP"                      '* * * * * * * * * * * *

CALL Intro                                          'Intro gemaakt door Marcel
Menu level                                                          'Keuzemenu

IF level < 2 THEN openSMP 1: Level1 '* * * * * * * * * * * * * * * * * * * * *
IF level < 3 THEN openSMP 2: Level2 '*   Eerst wordt per level het muziekje  *
IF level < 4 THEN openSMP 3: Level3 '*    geladen, daarna wordt het level    *
IF level < 5 THEN openSMP 4: Level4 '*                  gestart.             *
IF level < 6 THEN openSMP 5: Level5 '* * * * * * * * * * * * * * * * * * * * *

CALL GameOver                                   'Einde van spel door Christian
CALL Aftiteling                                     'Aftiteling door Christian
CALL Outro                                                  'Outro door Marcel

Fout: PRINT "Fout nr."; ERR; "gevonden": SYSTEM                   'Foutmelding

SUB Aftiteling
   CLS
   SCREEN 12
   COLOR 4
   OPEN "KNIGHT.004" FOR INPUT AS #2
      DO UNTIL EOF(2)
         INPUT #2, a$
         SMPregs = SMPregs + 1
      LOOP
   CLOSE #2
   OPEN "KNIGHT.004" FOR INPUT AS #2
   FOR a = 1 TO 50
      LOCATE 13, 34: PRINT "Programma:"
      LOCATE 14, 33: PRINT "Stefan"
      LOCATE 15, 27: PRINT "Christian"
      LOCATE 16, 34: PRINT "Marcel"
      INPUT #2, a$
      PLAY a$
      SMPnuhr = SMPnuhr + 1
      IF SMPnuhr = SMPregs THEN
         CLOSE #2
         SMPnuhr = 0
         OPEN "KNIGHT.004" FOR INPUT AS #2
      END IF
   NEXT a
   CLS
   FOR a = 1 TO 75
      LOCATE 14, 36: PRINT "Muziek:"
      LOCATE 15, 33: PRINT "Stefan"
      INPUT #2, a$
      PLAY a$
      SMPnuhr = SMPnuhr + 1
      IF SMPnuhr = SMPregs THEN
         CLOSE #2
         SMPnuhr = 0
         OPEN "KNIGHT.004" FOR INPUT AS #2
      END IF
   NEXT a
   CLS
   FOR a = 1 TO 50
      LOCATE 14, 35: PRINT "Graphics:"
      LOCATE 15, 27: PRINT "Christian"
      LOCATE 16, 34: PRINT "Marcel"
      INPUT #2, a$
      PLAY a$
      SMPnuhr = SMPnuhr + 1
      IF SMPnuhr = SMPregs THEN
         CLOSE #2
         SMPnuhr = 0
         OPEN "KNIGHT.004" FOR INPUT AS #2
      END IF
   NEXT a
   CLS
   FOR a = 1 TO 50
      LOCATE 13, 33: PRINT "Eindredactie:"
      LOCATE 14, 27: PRINT "Christian"
      INPUT #2, a$
      PLAY a$
      SMPnuhr = SMPnuhr + 1
      IF SMPnuhr = SMPregs THEN
         CLOSE #2
         SMPnuhr = 0
         OPEN "KNIGHT.004" FOR INPUT AS #2
      END IF
   NEXT a
   CLS
   FOR a = 1 TO 50
      LOCATE 13, 30: PRINT "Met samenwerking van:"
      LOCATE 14, 33: PRINT "Stefan"
      LOCATE 15, 27: PRINT "Christian"
      LOCATE 16, 34: PRINT "Marcel"
      INPUT #2, a$
      PLAY a$
      SMPnuhr = SMPnuhr + 1
      IF SMPnuhr = SMPregs THEN
         CLOSE #2
         SMPnuhr = 0
         OPEN "KNIGHT.004" FOR INPUT AS #2
      END IF
   NEXT a
   CLS
   FOR a = 1 TO 50
      LOCATE 13, 33: PRINT "Stefan Thoolen"
      LOCATE 14, 33: PRINT "-Address removed-"
      LOCATE 15, 33: PRINT "48** ** Breda"
      LOCATE 16, 32: PRINT "Tel. 076 5******"
      INPUT #2, a$
      PLAY a$
      SMPnuhr = SMPnuhr + 1
      IF SMPnuhr = SMPregs THEN
         CLOSE #2
         SMPnuhr = 0
         OPEN "KNIGHT.004" FOR INPUT AS #2
      END IF
   NEXT a
Einde2:
   SCREEN 0
   WIDTH 80, 25
   xr = 1
   yr = 1
   x = 10
   y = 10
   DO
      COLOR INT(RND * 15) + 1
      LOCATE x, y: PRINT "              ";
      x = x + xr
      y = y + yr
      IF y = 80 - 14 THEN yr = -1
      IF y = 1 THEN yr = 1
      IF x = 25 THEN xr = -1
      IF x = 1 THEN xr = 1
      LOCATE x, y: PRINT "DRUK EEN TOETS";
      INPUT #2, a$
      PLAY a$
      SMPnuhr = SMPnuhr + 1
      IF SMPnuhr = SMPregs THEN
         CLOSE #2
         SMPnuhr = 0
         OPEN "KNIGHT.004" FOR INPUT AS #2
      END IF
   LOOP WHILE INKEY$ = ""
   COLOR 7, 0
   CLOSE #2
   CLS
END SUB

SUB Beeld (x, t$)
   LOCATE x, 40 - LEN(t$) / 2: PRINT t$;
END SUB

SUB Einde (level)
   SCREEN 12
   CLS
   PRINT "Gefeliciteerd!"
   PRINT "U heeft level"; level; "uitgespeeld"
   PRINT "U kunt nu een toegangscode opgeven voor level"; level + 1
   PRINT "Nieuwe code: ";
   y = POS(1): x = CSRLIN
   Tempje$ = ""
   DO
      IF LEN(Tempje$) > 256 THEN Tempje$ = LEFT$(Tempje$, 256): BEEP
      LOCATE x, y: PRINT Tempje$; CHR$(219);
      Tempje = ASC(INPUT$(1))
      LOCATE x, y: PRINT Tempje$; " ";
      IF Tempje = 0 THEN BEEP
      IF Tempje = 27 THEN
         Tempje = 0
         LOCATE x, y: PRINT SPACE$(LEN(Tempje$));
         Tempje$ = ""
      END IF
      IF Tempje = 27 THEN Tempje = 0: BEEP
      IF Tempje = 8 AND LEN(Tempje$) > 0 THEN
         Tempje = 0
         Tempje$ = LEFT$(Tempje$, LEN(Tempje$) - 1)
         LOCATE x, y: PRINT Tempje$; " ";
      END IF
      IF Tempje <> 13 AND Tempje <> 0 THEN Tempje$ = Tempje$ + CHR$(Tempje)
   LOOP WHILE Tempje <> 13
   Var$ = Tempje$
   OPEN "KNIGHT.003" FOR APPEND AS #2
      PRINT #2, level + 1; ","; Var$
   CLOSE #2
   SCREEN 9
   WIDTH 80, 25
END SUB

SUB GameOver
   SCREEN 12
   OPEN "KNIGHT.001" FOR INPUT AS #2
      DO UNTIL EOF(2)
         INPUT #2, a$
         SMPregs = SMPregs + 1
      LOOP
   CLOSE #2
   OPEN "KNIGHT.001" FOR INPUT AS #2
   DIM k(3)
   k(1) = 14
   k(2) = 4
   k(3) = 1
   k = 1
   DO
      FOR a = 1 TO INT(RND * 100) + 1
         CIRCLE (a, a * 12.5), 50 * 12.5, k(k)
         IF INKEY$ <> "" GOTO Einde
         LOCATE 12, 20: PRINT "Gefeliciteerd u heeft Knight Adventure II"
         LOCATE 13, 35: PRINT "Uitgespeeld"
         LOCATE 30, 32: PRINT "Druk op een toets";
         INPUT #2, a$
         PLAY a$
         SMPnuhr = SMPnuhr + 1
         IF SMPnuhr = SMPregs THEN
            CLOSE #2
            SMPnuhr = 0
            OPEN "KNIGHT.001" FOR INPUT AS #2
         END IF
      NEXT a
      k = k + 1
      IF k = 4 THEN k = 1
      FOR a = INT(RND * 100) + 1 TO 1 STEP -1
         CIRCLE (a, a * 12.5), 50 * 12.5, k(k)
         IF INKEY$ <> "" GOTO Einde
         LOCATE 12, 20: PRINT "Gefeliciteerd u heeft Knight Adventure II"
         LOCATE 13, 35: PRINT "Uitgespeeld"
         LOCATE 30, 32: PRINT "Druk op een toets";
         INPUT #2, a$
         PLAY a$
         SMPnuhr = SMPnuhr + 1
         IF SMPnuhr = SMPregs THEN
            CLOSE #2
            SMPnuhr = 0
            OPEN "KNIGHT.001" FOR INPUT AS #2
         END IF
      NEXT a
      k = k + 1
      IF k = 4 THEN k = 1
   LOOP
Einde:
   CLOSE #2
END SUB

FUNCTION Getal (Van, Tot)
   Temp$ = "": Temp = 0
   DO
      IF Temp$ <> "" THEN BEEP
      Temp$ = INKEY$
      IF Temp$ = CHR$(3) THEN CALL Outro     'Ctrl+C
      IF Temp$ = CHR$(17) THEN CALL Outro    'Ctrl+Q
      IF Temp$ = CHR$(27) THEN CALL Outro    'Escape
      Temp = VAL(Temp$)
      IF Van = 0 AND Tot = 0 AND Temp$ <> "" THEN Temp = 0
      IF Van = 0 AND Tot = 0 AND Temp$ = "" THEN Temp = 1
      IF Van = 1 AND Tot = 1 THEN Temp = 1: SMPregels = 0
      IF SMPregels = 0 THEN
         CLOSE #1
         OPEN SMPbestand$ FOR INPUT AS #1
            DO UNTIL EOF(1)
               INPUT #1, a$
               SMPregels = SMPregels + 1
            LOOP
         CLOSE #1
         OPEN SMPbestand$ FOR INPUT AS #1
         SMPnuhier = 1
      END IF
      IF SMPnuhier = SMPregels THEN
         CLOSE #1
         OPEN SMPbestand$ FOR INPUT AS #1
         SMPnuhier = 1
      END IF
      INPUT #1, a$
      PLAY a$
      SMPnuhier = SMPnuhier + 1
   LOOP WHILE Temp < Van OR Temp > Tot
   Getal = Temp
   IF Van = 0 AND Tot = 0 THEN Getal = ASC(LEFT$(Temp$, 1))
END FUNCTION

SUB Intro
   CLS
   SCREEN 8
   PLAY "g10f10e10d10c10b10a10"
   PLAY "a20b20c20d20e20f20g20"
   FOR a = 320 TO 640
      CIRCLE (a, 80), 60, 2
      CIRCLE (640 - a, 80), 60, 4
      CIRCLE (a, 160), 60, 1
      CIRCLE (640 - a, 160), 60, 14
      CIRCLE (a, 120), 60, 3
      CIRCLE (640 - a, 120), 60, 7
   COLOR 2
   LOCATE 1, 36: PRINT "STS-TEAM"
   COLOR 15
   PRINT
   LOCATE 2, 27: PRINT "HAVE MADE A NEW SUPER GAME"
   LOCATE 3, 32: PRINT "JUST FOR YOUR IQ"
   LOCATE 4, 32: PRINT "AND IT'S CALLED:"
   COLOR 2
   LOCATE 5, 29: PRINT "KNIGHT'S ADVENTURE II"
   COLOR 15
   LOCATE 6, 35: PRINT "STARTING :"
   COLOR 4
      LOCATE 14, 27: PRINT "                         "
      LOCATE 15, 27: PRINT "  KNIGHT'S ADVENTURE II  "
      LOCATE 16, 27: PRINT "                         "
      COLOR 15
      LOCATE 25, 30: PRINT "LOADING, PLEASE WAIT";
   NEXT a
   PLAY "g10f10e10d10c10b10a10"
   PLAY "a20b20c20d20e20f20g20"
END SUB

SUB Kaart1
   SCREEN 9
   CLS
   COLOR 1
   PRINT "           ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒                ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
   PRINT "          ▒▒▒▒"; : COLOR 2: PRINT "┌───────────────┐"; : COLOR 1: PRINT "▒▒▒              ▒▒▒";
   COLOR 2: PRINT "┌────────────────┐"; : COLOR 1: PRINT "▒▒▒▒"
   PRINT "          ▒▒▒▒"; : COLOR 2: PRINT "│               │"; : COLOR 1: PRINT "▒▒▒              ▒▒▒";
   COLOR 2: PRINT "│                ├─"; : COLOR 1: PRINT "▒▒▒▒"
   PRINT "    ▒▒▒▒▒▒▒▒▒▒"; : COLOR 2: PRINT "│               │"; : COLOR 1: PRINT "▒▒▒              ▒▒▒";
   COLOR 2: PRINT "│                │"; : COLOR 1: PRINT "▒▒▒▒"
   PRINT "   ▒▒▒▒"; : COLOR 2: PRINT "┌──────┴──────────┐    │";
   COLOR 1: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"; : COLOR 2: PRINT "└───────────┐    │"; : COLOR 1: PRINT "▒▒▒▒"
   PRINT "▒▒▒▒▒▒▒"; : COLOR 2: PRINT "│                 │    └─────────┐"; : COLOR 1: PRINT "▒▒▒▒"; : COLOR 7
   PRINT "K"; : COLOR 1: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
   COLOR 2: PRINT "│    │"; : COLOR 1: PRINT "▒▒▒▒"
   PRINT "▒▒"; : COLOR 2: PRINT "┌────┴───────────┐     ├───┐          │"; : COLOR 1: PRINT "▒▒▒▒";
   COLOR 2: PRINT "├─────────────────┼────┤"; : COLOR 1: PRINT "▒▒▒▒"
   PRINT "▒"; : COLOR 7: PRINT "S"; : COLOR 2: PRINT "┼──"; : COLOR 8: PRINT "░░░░░"; : COLOR 2
   PRINT "─┬───────┼"; : COLOR 8: PRINT "░░░░░"; : COLOR 2: PRINT "┘   ├───┐      ├────┘ ┌──┐            │    │";
   COLOR 1: PRINT "▒▒▒▒"
   PRINT "▒▒"; : COLOR 2: PRINT "└────────┘"; : COLOR 1: PRINT "▒▒▒▒▒▒▒"; : COLOR 2: PRINT "├"; : COLOR 8
   PRINT "░░░░░░░░░"; : COLOR 2: PRINT "┘   ├───┐  │      │  │            │    │"; : COLOR 1: PRINT "▒▒▒▒▒▒▒▒"
   PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒   ▒▒"; : COLOR 2: PRINT "├"; : COLOR 8: PRINT "░░░░░░░░░░░░░"; : COLOR 2
   PRINT "┴───┼──┘      │  └──┐         │    ├────┐"; : COLOR 1: PRINT "▒▒▒▒▒"
   PRINT "                 ▒▒"; : COLOR 2: PRINT "│                 │         │     │         │    │    ├──┐";
   COLOR 1: PRINT "▒▒▒": PRINT "                 ▒▒"; : COLOR 2
   PRINT "│                 │         │     │         │    │    │  │"; : COLOR 1: PRINT "▒▒▒"
   PRINT "                 ▒▒"; : COLOR 2: PRINT "└────┬────────────┘    ┌────┘     │         └──┬─┘    │  │";
   COLOR 1: PRINT "▒▒▒"
   PRINT "                  ▒▒▒▒▒▒"; : COLOR 2: PRINT "│                 ├──┐       │            └──┬───┘  │";
   COLOR 1: PRINT "▒▒▒"
   PRINT "                     ▒▒▒"; : COLOR 2: PRINT "└────┬────────────┘  ├───────┘               └──┬───┘";
   COLOR 1: PRINT "▒▒▒"
   PRINT "                      ▒▒▒▒▒▒▒"; : COLOR 2: PRINT "│               └─────────"; : COLOR 7: PRINT "E";
   COLOR 2: PRINT "                │"; : COLOR 1: PRINT "▒▒▒▒▒▒"
   PRINT "                          ▒▒▒"; : COLOR 2: PRINT "└──────────────────────────────────────────┘";
   COLOR 1: PRINT "▒▒▒▒▒"
   PRINT "                           ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
   COLOR 15
   PRINT STRING$(80, 220)
   PRINT
   COLOR 1: PRINT "▒▒"; : COLOR 15: PRINT "=Rivier "; : COLOR 2: PRINT "──"; : COLOR 15: PRINT "=Wegen ";
   COLOR 7: PRINT "K "; : COLOR 15: PRINT "=Kaart"
   COLOR 8: PRINT "░░"; : COLOR 15: PRINT "=Pinnen "; : COLOR 7: PRINT "S "; : COLOR 15: PRINT "=Start ";
   COLOR 7: PRINT "E "; : COLOR 15: PRINT "=Einde"
   COLOR 12
   CALL Beeld(25, "Druk op een toets")
   a = Getal(0, 0)
   COLOR 7
   CLS
END SUB

SUB Kaart2
   SCREEN 9
   CLS
   COLOR 3
   PRINT "  ┌────────────────────────────┬────────────────────────────┐"
   PRINT "  │                            │                            │"
   PRINT "  │                            │                            │"
   PRINT "  │                            │                            │"
   PRINT "  │                            │                            │"
   COLOR 7: PRINT "S"; : COLOR 3: PRINT "─┼────────────────────────────";
   COLOR 7: PRINT "K"; : COLOR 3: PRINT "────────────────────────────┼─";
   COLOR 7: PRINT "E": COLOR 3
   PRINT "  │                            │                            │"
   PRINT "  │                            │                            │"
   PRINT "  │                            │                            │"
   PRINT "  │                            │                            │"
   PRINT "  └────────────────────────────┴────────────────────────────┘"
   COLOR 15
   PRINT STRING$(80, 220)
   PRINT
   COLOR 1: PRINT "▒▒"; : COLOR 15: PRINT "=Rivier "; : COLOR 2: PRINT "──"; : COLOR 15: PRINT "=Wegen "; : COLOR 7: PRINT "K "; : COLOR 15: PRINT "=Kaart"
   COLOR 8: PRINT "░░"; : COLOR 15: PRINT "=Pinnen "; : COLOR 7: PRINT "S "; : COLOR 15: PRINT "=Start "; : COLOR 7: PRINT "E "; : COLOR 15: PRINT "=Einde"
   COLOR 12
   CALL Beeld(25, "Druk op een toets")
   a = Getal(0, 0)
   COLOR 7
   CLS
END SUB

SUB Kaart3
   SCREEN 9
   CLS
   PRINT "           T"; : COLOR 2: PRINT "      ┌─────┐"
   PRINT "           ├──────┘     │"
   PRINT "  ┌─┬──┬─┬─┴─"; : COLOR 7: PRINT "H"; : COLOR 1: PRINT "▒▒▒▒▒"; : COLOR 2: PRINT "     │": COLOR 7
   PRINT "S"; : COLOR 2: PRINT "─┼─┘  "; : COLOR 7: PRINT "K"; : COLOR 2: PRINT " │        "; : COLOR 1: PRINT "▒"; : COLOR 2: PRINT "     │"
   PRINT "┌─┴────┬─┴─┬─"; : COLOR 7: PRINT "B"; : COLOR 1: PRINT "▒▒▒▒▒"; : COLOR 2: PRINT "     │"
   PRINT "│      │   │            │"
   PRINT "├─┬────┘   ├─┬────────┬─┘"
   PRINT "│ └─┬──┬───┘ │        │"
   PRINT "│   │"; : COLOR 8: PRINT "░░░"; : COLOR 2: PRINT "     │        │"
   PRINT "└───┴"; : COLOR 8: PRINT "░░"; : COLOR 2: PRINT "┴─────┼────"; : COLOR 7: PRINT "H"; : COLOR 1: PRINT "▒▒"; : COLOR 2: PRINT " └──────────────"; : COLOR 7: PRINT "B"; : COLOR 1: PRINT "▒▒": COLOR 2
   PRINT "             │      "; : COLOR 1: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒": COLOR 2
   PRINT "             │"
   PRINT "┌────┬───┬───┤": COLOR 8
   PRINT "░░░░░"; : COLOR 2: PRINT "│"; : COLOR 8: PRINT "░░░░░░░░": COLOR 2
   PRINT "└────┴───┴───┴─────"; : COLOR 7: PRINT "E"
   COLOR 15
   PRINT STRING$(80, 220)
   PRINT
   COLOR 1: PRINT "▒▒"; : COLOR 15: PRINT "=Rivier "; : COLOR 2: PRINT "──"; : COLOR 15: PRINT "=Wegen ";
   COLOR 7: PRINT "K "; : COLOR 15: PRINT "=Kaart"
   COLOR 8: PRINT "░░"; : COLOR 15: PRINT "=Pinnen "; : COLOR 7: PRINT "S "; : COLOR 15: PRINT "=Start ";
   COLOR 7: PRINT "E "; : COLOR 15: PRINT "=Einde"
   COLOR 12
   CALL Beeld(25, "Druk op een toets")
   a = Getal(0, 0)
   COLOR 7
   CLS
END SUB

SUB Kaart4
   SCREEN 9
   CLS
   COLOR 7: PRINT "        T": COLOR 3
   PRINT "        │"
   PRINT "        │"
   PRINT "        │": COLOR 7
   PRINT "S"; : COLOR 3: PRINT "───────┼───────┬───────┬───────"; : COLOR 7: PRINT "D"
   COLOR 3: PRINT "        │       │       │"
   PRINT "        │       │       │"
   PRINT "        │       │       │"
   COLOR 7: PRINT "        K       D       E"
   COLOR 15
   PRINT STRING$(80, 220)
   PRINT
   COLOR 7: PRINT "S "; : COLOR 15: PRINT "=Start "; : COLOR 7: PRINT "K "; : COLOR 15: PRINT "=Kaart "
   COLOR 7: PRINT "E "; : COLOR 15: PRINT "=Einde "; : COLOR 7: PRINT "D "; : COLOR 15: PRINT "=Dood "
   COLOR 12
   CALL Beeld(25, "Druk op een toets")
   a = Getal(0, 0)
   COLOR 7
   CLS
END SUB

SUB Kaart5
   SCREEN 9
   CLS
   PRINT "         S": COLOR 2
   PRINT "         │"
   PRINT "    "; : COLOR 7: PRINT "K"; : COLOR 2: PRINT "────┼─────"; : COLOR 7: PRINT "E": COLOR 2
   PRINT "         │"
   PRINT "         "; : COLOR 7: PRINT "B"; : COLOR 2: PRINT "        ┌───────────┐"
   PRINT "        "; : COLOR 1: PRINT "▒▒▒"; : COLOR 2: PRINT "       │           │"
   PRINT "         "; : COLOR 1: PRINT "▒▒▒▒▒▒"; : COLOR 7: PRINT "H"; : COLOR 2: PRINT "──┼"; : COLOR 8: PRINT "░░░░░░░░░░░"; : COLOR 2: PRINT "┤"
   PRINT "                  │           │"
   PRINT "                  └───────────┘"
   COLOR 15
   PRINT STRING$(80, 220)
   PRINT
   COLOR 7: PRINT "S "; : COLOR 15: PRINT "=Start "; : COLOR 7: PRINT "K "; : COLOR 15: PRINT "=Kaart "
   COLOR 7: PRINT "E "; : COLOR 15: PRINT "=Einde "; : COLOR 7: PRINT "D "; : COLOR 15: PRINT "=Dood "
   COLOR 12
   CALL Beeld(25, "Druk op een toets")
   a = Getal(0, 0)
   COLOR 7
   CLS
END SUB

SUB Kinput (Var$)
   y = POS(1): x = CSRLIN
   Tempje$ = ""
   DO
      IF LEN(Tempje$) > 256 THEN Tempje$ = LEFT$(Tempje$, 256): BEEP
      LOCATE x, y: PRINT Tempje$; CHR$(219);
      Tempje = Getal(0, 0)
      LOCATE x, y: PRINT Tempje$; " ";
      IF Tempje = 0 THEN BEEP
      IF Tempje = 27 THEN
         Tempje = 0
         LOCATE x, y: PRINT SPACE$(LEN(Tempje$));
         Tempje$ = ""
      END IF
      IF Tempje = 27 THEN Tempje = 0: BEEP
      IF Tempje = 8 AND LEN(Tempje$) > 0 THEN
         Tempje = 0
         Tempje$ = LEFT$(Tempje$, LEN(Tempje$) - 1)
         LOCATE x, y: PRINT Tempje$; " ";
      END IF
      IF Tempje <> 13 AND Tempje <> 0 THEN Tempje$ = Tempje$ + CHR$(Tempje)
   LOOP WHILE Tempje <> 13
   Var$ = Tempje$
END SUB

SUB Level1   'Regels 1 t/m 76
76 SCREEN 9
   CLS
   COLOR 4
   PRINT "Start"
   COLOR 7
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtdoor"
   PRINT "2 Rechtsaf"
   PRINT "3 Linksaf"
   a = Getal(1, 3)
   IF a = 1 GOTO 1
   IF a = 2 GOTO 2
   GOTO 3
1  CLS
   DRAW "bm0,100c4"
   FOR a = 0 TO 640 STEP 20
      DRAW "e10f10"
   NEXT a
   COLOR 4
   CALL Beeld(1, "U bent de verkeerde weg gelopen.")
   CALL Beeld(2, "Probeert u het nog eens en hopelijk de goede weg!")
   COLOR 7
   CALL Beeld(12, "De afgrijselijke pinnendood!")
   COLOR 13
   CALL Beeld(25, "Druk op een toets")
   a = Getal(0, 0)
   GOTO 76
2  CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 8
   IF a = 2 GOTO 1
   GOTO 7
3  CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 5
   IF a = 2 GOTO 6
   GOTO 4
4  CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 1
   IF a = 2 GOTO 2
   GOTO 3
5  CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 20
   IF a = 2 GOTO 21
   GOTO 19
6  CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 1
   IF a = 2 GOTO 11
   IF a = 3 GOTO 10
   GOTO 9
7  CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 20
   IF a = 2 GOTO 21
   GOTO 19
8  CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 9
   IF a = 2 GOTO 10
   IF a = 3 GOTO 1
   GOTO 11
9  CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 5
   IF a = 2 GOTO 4
   GOTO 6
10 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 1
   IF a = 2 GOTO 12
   GOTO 13
11 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 7
   IF a = 2 GOTO 1
   GOTO 8
12 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 1
   IF a = 2 GOTO 15
   GOTO 14
13 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 11
   IF a = 2 GOTO 1
   IF a = 3 GOTO 9
   GOTO 10
14 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 1
   IF a = 2 GOTO 13
   GOTO 12
15 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 18
   IF a = 2 GOTO 17
   GOTO 16
16 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 1
   IF a = 2 GOTO 14
   GOTO 15
17 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 34
   IF a = 2 GOTO 36
   IF a = 3 GOTO 37
   GOTO 35
18 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 24
   IF a = 2 GOTO 26
   GOTO 25
19 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtdoor"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 2
   IF a = 2 GOTO 1
   GOTO 3
20 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 40
   IF a = 2 GOTO 38
   GOTO 39
21 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 23
   IF a = 2 GOTO 1
   GOTO 22
22 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 20
   IF a = 2 GOTO 19
   GOTO 21
23 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 28
   IF a = 2 GOTO 1
   GOTO 27
24 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 65
   IF a = 2 GOTO 66
   GOTO 64
25 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 16
   IF a = 2 GOTO 17
   GOTO 18
26 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 69
   IF a = 2 GOTO 68
   GOTO 67
27 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 1
   IF a = 2 GOTO 22
   GOTO 23
28 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 31
   IF a = 2 GOTO 30
   GOTO 29
29 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 27
   IF a = 2 GOTO 1
   GOTO 28
30 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 32
   IF a = 2 GOTO 1
   GOTO 33
31 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 34
   IF a = 2 GOTO 36
   IF a = 3 GOTO 35
   GOTO 37
32 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 35
   IF a = 2 GOTO 36
   IF a = 3 GOTO 37
   GOTO 34
33 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 31
   IF a = 2 GOTO 29
   GOTO 30
34 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 69
   IF a = 2 GOTO 1
   GOTO 32
35 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 18
   IF a = 2 GOTO 16
   GOTO 17
36 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 40
   IF a = 2 GOTO 39
   GOTO 38
37 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 29
   IF a = 2 GOTO 30
   GOTO 31
38 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Linksaf"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 37
   IF a = 2 GOTO 34
   IF a = 3 GOTO 35
   GOTO 36
39 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 19
   IF a = 2 GOTO 21
   GOTO 20
40 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 47
   IF a = 2 GOTO 45
   GOTO 46
41 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 45
   IF a = 2 GOTO 46
   GOTO 47
42 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 73
   IF a = 2 GOTO 75
   GOTO 74
43 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 51
   IF a = 2 GOTO 50
   GOTO 49
44 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 61
   IF a = 2 GOTO 63
   GOTO 62
45 CALL Kaart1
   GOTO 48
46 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 39
   IF a = 2 GOTO 38
   GOTO 40
47 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Linksaf"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 44
   IF a = 2 GOTO 43
   IF a = 3 GOTO 42
   GOTO 41
48 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 43
   IF a = 2 GOTO 46
   GOTO 45
49 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Linksaf"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 42
   IF a = 2 GOTO 41
   IF a = 3 GOTO 44
   GOTO 43
50 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 73
   IF a = 2 GOTO 74
   GOTO 75
51 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 54
   IF a = 2 GOTO 53
   GOTO 52
52 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 49
   IF a = 2 GOTO 50
   GOTO 51
53 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 61
   IF a = 2 GOTO 62
   GOTO 63
54 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 56
   IF a = 2 GOTO 57
   GOTO 55
55 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 52
   IF a = 2 GOTO 53
   GOTO 54
56 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 64
   IF a = 2 GOTO 65
   GOTO 66
57 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 58
   IF a = 2 GOTO 60
   GOTO 59
58 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 64
   IF a = 2 GOTO 66
   GOTO 65
59 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 56
   IF a = 2 GOTO 55
   GOTO 57
60 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 63
   IF a = 2 GOTO 62
   GOTO 61
61 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 58
   IF a = 2 GOTO 59
   GOTO 60
62 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Linksaf"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 43
   IF a = 2 GOTO 42
   IF a = 3 GOTO 41
   GOTO 44
63 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 54
   IF a = 2 GOTO 52
   GOTO 53
64 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 26
   IF a = 2 GOTO 25
   GOTO 24
65 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 59
   IF a = 2 GOTO 60
   GOTO 58
66 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 55
   IF a = 2 GOTO 57
   GOTO 56
67 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 42
   IF a = 2 GOTO 25
   GOTO 26
68 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 72
   IF a = 2 GOTO 71
   GOTO 70
69 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 70
   IF a = 2 GOTO 71
   GOTO 72
70 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 69
   IF a = 2 GOTO 67
   GOTO 68
72 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 68
   IF a = 2 GOTO 67
   GOTO 69
73 CLS
   COLOR 1
   FOR a = 1 TO 13
      PRINT "▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀"
      PRINT
   NEXT a
   COLOR 4
   CALL Beeld(2, "U bent de verkeerde weg gelopen.")
   CALL Beeld(4, "Probeert u het nog eens en hopelijk de goede weg!")
   COLOR 6
   CALL Beeld(12, "De afgrijselijke verdrinkingsdood!")
   COLOR 13
   CALL Beeld(25, "Druk op een toets")
   a = Getal(0, 0)
   GOTO 76
74 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Linksaf"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 41
   IF a = 2 GOTO 44
   IF a = 3 GOTO 43
   GOTO 42
75 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 54
   IF a = 2 GOTO 53
   GOTO 52
71 Einde 1
END SUB

SUB Level2   'Regels 100 t/m 117
100 SCREEN 9
   CLS
   COLOR 4
   PRINT "Start"
   COLOR 7
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtdoor"
   PRINT "2 Rechtsaf"
   PRINT "3 Linksaf"
   a = Getal(1, 3)
   IF a = 1 GOTO 101
   IF a = 2 GOTO 102
   GOTO 103
101 CALL Kaart2
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 113
   IF a = 2 GOTO 116
   IF a = 3 GOTO 115
   GOTO 114
102 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 110
   IF a = 2 GOTO 111
   GOTO 112
103 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 106
   IF a = 2 GOTO 105
   GOTO 104
104 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 101
   IF a = 2 GOTO 102
   GOTO 103
105 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 107
   IF a = 2 GOTO 117
   IF a = 3 GOTO 109
   GOTO 108
106 CALL Kaart2
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 115
   IF a = 2 GOTO 104
   IF a = 3 GOTO 116
   GOTO 113
108 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 106
   IF a = 2 GOTO 104
   GOTO 105
109 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 110
   IF a = 2 GOTO 112
   GOTO 111
110 CALL Kaart2
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 114
   IF a = 2 GOTO 115
   IF a = 3 GOTO 113
   GOTO 116
111 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 117
   IF a = 2 GOTO 107
   IF a = 3 GOTO 108
   GOTO 109
112 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 101
   IF a = 2 GOTO 103
   GOTO 102
113 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 105
   IF a = 2 GOTO 104
   GOTO 106
114 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 103
   IF a = 2 GOTO 102
   GOTO 101
115 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 108
   IF a = 2 GOTO 109
   IF a = 3 GOTO 107
   GOTO 117
116 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 112
   IF a = 2 GOTO 111
   GOTO 110
117 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 116
   IF a = 2 GOTO 113
   IF a = 3 GOTO 114
   GOTO 115
107 Einde 2
END SUB

SUB Level3   'Regels 200 t/m 269
200 SCREEN 9
   CLS
   COLOR 4
   PRINT "Start"
   COLOR 7
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtdoor"
   PRINT "2 Rechtsaf"
   PRINT "3 Linksaf"
   a = Getal(1, 3)
   IF a = 1 GOTO 203
   IF a = 2 GOTO 202
   GOTO 201
201 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 206
   IF a = 2 GOTO 205
   GOTO 204
202 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 221
   IF a = 2 GOTO 219
   GOTO 220
203 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 205
   IF a = 2 GOTO 204
   GOTO 206
204 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtdoor"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 202
   IF a = 2 GOTO 203
   GOTO 201
205 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 207
   IF a = 2 GOTO 209
   GOTO 208
206 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 201
   IF a = 2 GOTO 202
   GOTO 203
207 Kaart3
   PRINT "U loopt terug"
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 209
   IF a = 2 GOTO 208
   GOTO 207
208 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 206
   IF a = 2 GOTO 204
   GOTO 205
209 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 211
   IF a = 2 GOTO 212
   GOTO 210
210 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 207
   IF a = 2 GOTO 209
   GOTO 209
211 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 226
   IF a = 2 GOTO 227
   GOTO 225
212 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 214
   IF a = 2 GOTO 215
   GOTO 213
213 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 211
   IF a = 2 GOTO 210
   GOTO 212
214 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 218
   IF a = 2 GOTO 216
   GOTO 217
215 CLS
   PRINT "U rent naar de haven"
   PRINT "De boot wilt net vertrekken"
   PRINT "U probeert net op de boot te springen, maar...";
   Pause 5
   PRINT "u haalt het net!"
   Pause 3
   COLOR 4
   PRINT "Helaas, het is een zeeroversschip!"
   COLOR 13
   CALL Beeld(25, "Druk op een toets")
   a$ = INKEY$
   a = Getal(0, 0)
   a$ = INKEY$
   GOTO 200
216 CLS
   COLOR 14
   PRINT "Gouden ";
   COLOR 7
   PRINT "tip:"
   PRINT "Als je een kaart in beeld hebt, druk dan op PrintScreen om hem uit te printen"
   PRINT "Druk een toets"
   a = Getal(0, 0)
   CLS
   PRINT "Je loopt terug"
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 218
   IF a = 2 GOTO 217
   GOTO 216
217 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 213
   IF a = 2 GOTO 215
   GOTO 214
218 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 245
   IF a = 2 GOTO 244
   GOTO 246
219 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 224
   IF a = 2 GOTO 223
   GOTO 222
220 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtdoor"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 201
   IF a = 2 GOTO 203
   GOTO 202
221 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 233
   IF a = 2 GOTO 234
   GOTO 232
222 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 220
   IF a = 2 GOTO 221
   GOTO 219
223 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 225
   IF a = 2 GOTO 226
   GOTO 227
224 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 237
   IF a = 2 GOTO 235
   GOTO 236
225 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 212
   IF a = 2 GOTO 210
   GOTO 211
226 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 228
   IF a = 2 GOTO 230
   GOTO 229
227 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 224
   IF a = 2 GOTO 222
   GOTO 223
228 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 240
   IF a = 2 GOTO 239
   GOTO 238
229 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 225
   IF a = 2 GOTO 227
   GOTO 226
230 CLS
   PRINT "Je staat bij een rivier waar een bootje in ligt"
   PRINT "1 Terug"
   PRINT "2 Gaan varen"
   a = Getal(1, 2)
   IF a = 1 GOTO 231
   CLS
   PRINT "Je komt in de haven aan"
   PRINT "De boot is weer vertrokken"
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   a = Getal(1, 2)
   IF a = 1 GOTO 214
   GOTO 213
231 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 228
   IF a = 2 GOTO 229
   GOTO 230
232 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 220
   IF a = 2 GOTO 219
   GOTO 221
233 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 237
   IF a = 2 GOTO 236
   GOTO 235
234 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 249
   IF a = 2 GOTO 250
   GOTO 231
235 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 234
   IF a = 2 GOTO 232
   GOTO 233
236 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 222
   IF a = 2 GOTO 223
   GOTO 224
237 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 247
   IF a = 2 GOTO 248
   GOTO 246
238 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 229
   IF a = 2 GOTO 230
   GOTO 228
239 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 252
   IF a = 2 GOTO 250
   GOTO 253
240 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 243
   IF a = 2 GOTO 242
   GOTO 241
241 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 239
   IF a = 2 GOTO 238
   GOTO 240
242 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 245
   IF a = 2 GOTO 246
   GOTO 244
243 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 215
   IF a = 2 GOTO 255
   IF a = 3 GOTO 256
   GOTO 254
244 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 243
   IF a = 2 GOTO 241
   GOTO 242
245 CLS
   PRINT "Je staat bij een rivier waar een bootje in ligt"
   PRINT "1 Terug"
   PRINT "2 Gaan varen"
   a = Getal(1, 2)
   IF a = 1 THEN
      CLS
      PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
      PRINT "1 Linksaf"
      PRINT "2 Rechtsaf"
      PRINT "3 Terug"
      a = Getal(1, 3)
      IF a = 1 GOTO 244
      IF a = 2 GOTO 246
      GOTO 245
   END IF
   CLS
   PRINT "Je komt in de haven aan"
   PRINT "De boot is weer vertrokken"
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 256
   IF a = 2 GOTO 254
   IF a = 3 GOTO 255
   GOTO 215
246 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 217
   IF a = 2 GOTO 216
   GOTO 218
247 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 250
   IF a = 2 GOTO 251
   GOTO 249
248 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 250
   IF a = 2 GOTO 253
   GOTO 252
249 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 246
   IF a = 2 GOTO 248
   GOTO 247
250 CLS
   DRAW "bm0,100c4"
   FOR a = 0 TO 640 STEP 20
      DRAW "e10f10"
   NEXT a
   COLOR 4
   CALL Beeld(1, "U bent de verkeerde weg gelopen.")
   CALL Beeld(2, "Probeert u het nog eens en hopelijk de goede weg!")
   COLOR 7
   CALL Beeld(12, "De afgrijselijke pinnendood!")
   COLOR 13
   CALL Beeld(25, "Druk op een toets")
   a = Getal(0, 0)
   GOTO 200
251 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 233
   IF a = 2 GOTO 232
   GOTO 234
252 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 247
   IF a = 2 GOTO 246
   GOTO 248
253 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 240
   IF a = 2 GOTO 238
   GOTO 239
254 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 241
   IF a = 2 GOTO 242
   GOTO 243
255 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 250
   IF a = 2 GOTO 250
   GOTO 269
256 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 258
   IF a = 2 GOTO 250
   GOTO 257
257 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 255
   IF a = 2 GOTO 215
   IF a = 3 GOTO 254
   GOTO 256
258 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 250
   IF a = 2 GOTO 260
   GOTO 259
259 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 257
   IF a = 2 GOTO 250
   GOTO 258
260 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 263
   IF a = 2 GOTO 250
   GOTO 261
261 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 250
   IF a = 2 GOTO 259
   GOTO 260
262 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 250
   IF a = 2 GOTO 261
   GOTO 263
263 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┬"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 264
   IF a = 2 GOTO 250
   GOTO 262
264 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 250
   IF a = 2 GOTO 266
   GOTO 265
265 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 262
   IF a = 2 GOTO 250
   GOTO 264
266 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 250
   IF a = 2 GOTO 268
   GOTO 267
267 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT "1 Rechtsaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 250
   IF a = 2 GOTO 265
   GOTO 266
269 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 4)
   IF a = 1 GOTO 254
   IF a = 2 GOTO 256
   IF a = 3 GOTO 225
   GOTO 255
268 Einde 3
END SUB

SUB Level4   'Regels 300 t/m 308
   SCREEN 9
300 CLS
   COLOR 4
   PRINT "Start"
   COLOR 7
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtdoor"
   PRINT "2 Rechtsaf"
   PRINT "3 Linksaf"
   a = Getal(1, 3)
   IF a = 1 GOTO 302
   IF a = 2 GOTO 301
   GOTO 303
301 CLS
   COLOR 14: PRINT "Gouden "; : COLOR 7: PRINT "tip:"
   COLOR 15
   PRINT "112, Daar red u levens mee!"
   COLOR 12
   CALL Beeld(25, "Druk op een toets")
   a = Getal(0, 0)
   COLOR 7
   CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 302
   IF a = 2 GOTO 303
   GOTO 301
302 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtdoor"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 305
   IF a = 2 GOTO 306
   GOTO 304
303 Kaart4
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtdoor"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 301
   IF a = 2 GOTO 302
   GOTO 303
304 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 301
   IF a = 2 GOTO 303
   GOTO 302
305 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "├"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtdoor"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 306
   IF a = 2 GOTO 308
   GOTO 307
306 CLS
   COLOR 4
   PRINT "U loopt een psygopaat op het lijf!"
   PRINT "U wordt koelbloedig vermoord"
   COLOR 13
   CALL Beeld(25, "Druk op een toets")
   COLOR 7
   DO
      COLOR 4
      COLOR 0
   LOOP WHILE INKEY$ = ""
   GOTO 300
307 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtdoor"
   PRINT "2 Linksaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 304
   IF a = 2 GOTO 306
   GOTO 305
308 Einde 4
END SUB

SUB Level5
400 SCREEN 9
   CLS
   COLOR 4
   PRINT "Start"
   COLOR 7
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtdoor"
   PRINT "2 Rechtsaf"
   PRINT "3 Linksaf"
   a = Getal(1, 3)
   IF a = 1 GOTO 403
   IF a = 2 GOTO 401
   GOTO 402
401 Kaart5
   PRINT "De rest van deze weg loopt dood"
   PRINT "Je loopt dus terug"
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Rechtdoor"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 402
   IF a = 2 GOTO 403
   GOTO 401
403 CLS
   PRINT "U komt bij een bootje aan"
   PRINT
   PRINT "1 Met de boot gaan varen"
   PRINT "2 Terug"
   a = Getal(1, 2)
   IF a = 2 GOTO 404
   PRINT "U komt aan in de haven"
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 405
   IF a = 2 GOTO 407
   IF a = 3 GOTO 408
   GOTO 406
404 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 401
   IF a = 2 GOTO 402
   GOTO 403
405 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 408
   IF a = 2 GOTO 410
   GOTO 409
406 CLS
   PRINT "U rent naar de haven"
   PRINT "De boot wilt net vertrekken"
   PRINT "U probeert net op de boot te springen, maar...";
   Pause 5
   COLOR 4
   PRINT "je haalde het net niet!"
   COLOR 13
   CALL Beeld(25, "Druk op een toets")
   a = Getal(0, 0)
   GOTO 400
407 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┤"; : COLOR 7: PRINT " kruising"
   PRINT "1 Linksaf"
   PRINT "2 Rechtdoor"
   PRINT "3 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 408
   IF a = 2 GOTO 409
   GOTO 410
408 CLS
   DRAW "bm0,100c4"
   FOR a = 0 TO 640 STEP 20
      DRAW "e10f10"
   NEXT a
   COLOR 4
   CALL Beeld(1, "U bent de verkeerde weg gelopen.")
   CALL Beeld(2, "Probeert u het nog eens en hopelijk de goede weg!")
   COLOR 7
   CALL Beeld(12, "De afgrijselijke pinnendood!")
   COLOR 13
   CALL Beeld(25, "Druk op een toets")
   a = Getal(0, 0)
   GOTO 400
409 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 408
   IF a = 2 GOTO 406
   IF a = 3 GOTO 407
   GOTO 405
410 CLS
   PRINT "Je staat voor een "; : COLOR 15: PRINT "┼"; : COLOR 7: PRINT " kruising"
   PRINT
   PRINT "1 Linksaf"
   PRINT "2 Rechtsaf"
   PRINT "3 Rechtdoor"
   PRINT "4 Terug"
   a = Getal(1, 3)
   IF a = 1 GOTO 406
   IF a = 2 GOTO 408
   IF a = 3 GOTO 405
   GOTO 407
402 Einde 5
END SUB

SUB Menu (level)
   SMPbestand$ = "KNIGHT.001"
   a = Getal(1, 1)
Start:
   OPEN TempBestand$ FOR OUTPUT AS #2: CLOSE #2
   SCREEN 12
   COLOR 7
   CLS
   CALL Beeld(14, "-- 1) Code  --")
   CALL Beeld(15, "-- 2) Nieuw --")
   CALL Beeld(16, "-- 3) Einde --")
   a = Getal(1, 3)
   IF a = 1 GOTO Code
   IF a = 2 GOTO Nieuw
   IF a = 3 THEN CALL Outro
Code:
   LOCATE 18, 1: PRINT "Code: ";
   Kinput Code$
   Code$ = LTRIM$(UCASE$(RTRIM$(Code$)))
   OPEN "KNIGHT.003" FOR INPUT AS #2
      DO UNTIL EOF(2)
         INPUT #2, Lev, Cod$
         Cod$ = LTRIM$(UCASE$(RTRIM$(Cod$)))
         IF Cod$ = Code$ THEN level = Lev
      LOOP
   CLOSE #2
   IF level = 0 THEN BEEP: GOTO Start
   SCREEN 9
   WIDTH 80, 25
   GOTO Einde
Nieuw:
   SCREEN 9
   WIDTH 80, 25
   level = 1
Einde:
END SUB

SUB openSMP (level)
   CLOSE #1
   CLS
   CALL Beeld(12, "LOADING SAMPLES FOR PC-SPEAKER")
   k = 0
   OPEN "KNIGHT.002" FOR INPUT AS #1
      FOR a = 1 TO level
         OPEN TempBestand$ FOR OUTPUT AS #2
            DO
               LINE INPUT #1, a$
               PRINT #2, a$
               COLOR , k
               k = k + 1
               IF k > 15 THEN k = 0
            LOOP WHILE a$ <> ""
         CLOSE #2
      NEXT a
   CLOSE #1
   SMPbestand$ = TempBestand$
   a = Getal(1, 1)
   COLOR , 0
END SUB

SUB Outro
   SCREEN 8
   CLS
   PLAY "o4g10f10e10d10c10b10a10"
   PLAY "a20b20c20d20e20f20g20"
   FOR a = 320 TO 160 STEP -1
      CIRCLE (10 + a, 120), 60, 5
      CIRCLE (320 - a, 120), 60, 1
      CIRCLE (a, 160), 60, 7
      CIRCLE (320 - a, 160), 60, 3
      CIRCLE (10 + a, 80), 60, 4
      CIRCLE (320 - a, 80), 60, 2
      COLOR 15
      LOCATE 1, 27: PRINT "THIS PROGRAM IS WRITTEN BY"
      COLOR 2
      LOCATE 2, 38: PRINT "STS"
      COLOR 4
      LOCATE 3, 33: PRINT "STEFAN"
      COLOR 4
      LOCATE 4, 27: PRINT "CHRISTIAN"
      COLOR 4
      LOCATE 5, 34: PRINT "MARCEL"
      COLOR 15
      LOCATE 6, 29: PRINT "THANK YOU FOR PLAYING"
      COLOR 15
      LOCATE 25, 26: PRINT "ENDING PROGRAM, PLEASE WAIT";
      LOCATE 14, 55
      COLOR 4
      PRINT "KNIGHT'S ADVENTURE II"
      LOCATE 15, 55
      PRINT ""
      LOCATE 16, 55
      PRINT "THIS IS A PROTECTED"
      LOCATE 17, 55
      PRINT "STS-PRODUCT"
   NEXT a
   PLAY "g10f10e10d10c10b10a10"
   PLAY "a20b20c20d20e20f20g20"
   CLOSE #1
   SCREEN 0
   CLS
   SYSTEM
END SUB

SUB Pause (Secondes)
   FOR Temp = 1 TO Secondes
      Tijd = VAL(RIGHT$(TIME$, 2))
      DO
         IF SMPregels = 0 THEN
            CLOSE #1
            OPEN SMPbestand$ FOR INPUT AS #1
               DO UNTIL EOF(1)
                  INPUT #1, a$
                  SMPregels = SMPregels + 1
               LOOP
            CLOSE #1
            OPEN SMPbestand$ FOR INPUT AS #1
            SMPnuhier = 1
         END IF
         IF SMPnuhier = SMPregels THEN
            CLOSE #1
            OPEN SMPbestand$ FOR INPUT AS #1
            SMPnuhier = 1
         END IF
         INPUT #1, a$
         PLAY a$
         SMPnuhier = SMPnuhier + 1
      LOOP WHILE Tijd = VAL(RIGHT$(TIME$, 2))
   NEXT Temp
END SUB