10 REM*********************
20 REM*   3D-MENUE-DEMO   *
30 REM*                   *
40 REM* VOLKER SCHOENFUSS *
50 REM* OT KIRCHMOESER    *
60 REM* DROSSELWEG 6B     *
70 REM* 14774 BRANDENBURG *
80 REM*********************
100 A$="                   ":B=18
110 POKE53280,6:POKE53281,6:PRINT"[147]":GOTO170
120 PRINT"[155]"CHR$(B)A$A$:PRINT"[144] "CHR$(B)A$A$:RETURN
130 PRINT:PRINT:PRINT:RETURN
140 PRINT"[155]":PRINTCHR$(B)A$
150 FORI=1TO6:PRINTCHR$(B)A$"[144] [155]":NEXTI
160 PRINT"[144] "CHR$(B)A$:RETURN
170 GOSUB120:GOSUB140:GOSUB140:PRINT:GOSUB120:PRINT"":GOSUB130
180 PRINT:FORN=1TO6:PRINTTAB(2)"UNTERPROGRAMM"N:PRINT
190 IFN=3THENGOSUB130
200 NEXTN:POKE198,0:WAIT198,1:END