8300 PRINT:PRINT" [196]ATENSATZ "CHR$(18)"D"CHR$(146)"RUCKEN ";
8305 PRINTCHR$(18)"E"CHR$(146)"DITIEREN "CHR$(18)"[200]"CHR$(146)"AUPTMENUE "
8310 GETT$
8320 IFT$="D"THENGOSUB8200:RETURN
8330 IFT$="E"THENGOSUB8400:RETURN
8335 IFT$="H"THENRETURN
8340 GOTO8310