Atari 8-bit Source code

0 CLS:​POKE 756,​204:​R=1:​S=0:​DIM M(10,​6):​FOR A=1 TO 10:​READ T:​M(A,​0)=T:​FOR B=1 TO 6:​READ W:​M(A,​B)=W:​NEXT B:​NEXT A
1 DATA 2,​0,​2,​-1,​-1,​-1,​-1,​2,​3,​4,​-1,​-1,​-1,​-1,​3,​5,​0,​4,​-1,​-1,​-1,​2,​0,​2,​-1,​-1,​-1,​-1,​2,​3,​6,​-1,​-1,​-1,​-1,​2,​1,​7,​-1,​-1,​-1,​-1
2 # Q:​CLS:​? "Schritte = ";S:​TRAP #E:​?:​IF K=0 AND R=4:​EXEC F:​ENDIF:​? "Du bist in Raum ";R;".":​? "Dort gibt es ";M(R,​0);" Tren."
3 # R:​?:​INPUT "Welche Tr whlst Du?",​T:​IF T<1 OR T>M(R,​0):​?:​? "Diese Tr gibt es nicht!":​?:​GO# R:​ENDIF:​N=M(R,​T)
4 IF R=9 AND T=2 THEN IF K:​?:​? "Du hast die Tr aufgeschlosen.":​ELSE:​?:​? "Die Tr ist verschlossen!":​PAUSE 100:​GO# Q:​ENDIF
5 IF N=99 THEN ?:​?:​? "Herzlichen Glckwunsch!":​?:​? "Du hast den Ausgang gefunden.":​?:​? "Du bist frei!":​END:​ENDIF
6 IF N<>0:​R=N:​ENDIF:​EXEC S:​GO# Q:​DATA 2,​6,​8,​-1,​-1,​-1,​-1,​2,​9,​7,​-1,​-1,​-1,​-1,​2,​2,​10,​-1,​-1,​-1,​-1,​6,​0,​0,​0,​0,​0,​99
7 # E:​?:​? "Bitte nur Ziffern von 1 bis ";M(R,​0);" eingeben!":​?:​SOUND 0,​100,​12,​10:​PAUSE 25:​SOUND:​GO# R:​REM 
8 PROC F:​FOR L=14 TO 0 STEP -0.1:​SOUND 0,​100,​10,​L:​NEXT L:​? "Du hast einen Schlssel gefunden!":​?:​?:​K=1:​ENDPROC
9 PROC S:​FOR L=0 TO 2:​SOUND 0,​100,​8,​10:​PAUSE 10:​SOUND:​PAUSE 10:​SOUND 0,​150,​8,​10:​PAUSE 10:​SOUND:​PAUSE 10:​NEXT L:​SOUND:​S=S+1:​ENDPROC