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.
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