menu:
print cls$;
%include j'headli
rem
rem    * ... oooooooo  !  * ... oooooooo  !  * ... oooooooo  !  * ... oooooooo
rem
print "A ... stAtus    !  B ... Blackscr  !  C ... Copy      !  D ... Uhrzeit"
print "E ... Erase     !  F ... Free      !  G ... Glocke    !  H ... Help"
print "I ... Inverse   !  J ... Joyeditor !  K ... Kursor    !  L ... Language"
print "M ... Menu      !  N ... fiNdword  !  O ... Overkill  !  P ... Paper"
print "Q ... PRINTfile !  R ... Rename    !  S ... Size *.*  !  T ... Type"
print "U ... TYPWRITER !  V ... Versatz   !  W ... Wo ist ?  !  X ... set24X80"
print "Y ... bYtes     !  Z ... Zeich/Z   !  <EXIT> ...Exit  !  <PTR> Print.STD"
print "0 ... U S A     !  1 ... F R A     !  2 ... G E R     !  3 ... U.K."
print "4 ... D A N     !  5 ... S W E     !  6 ... I T A     !  7 ... S P A"
print "8 ... J A P     !  9 ... Taschenrechner               !   ";
tswitch=1 : gosub calltime.label: : print in$;" ";zeit$;" ";ni$
print
print biw$
on error goto error.label:
antw=inkey
menu.wahl:
if antw=27 then goto exit:                          :REM <EXIT>
if antw>90 then antw=antw-32
if antw>=48 AND antw<=56 then goto lang.wahl:       :REM 0-8
if antw=57 then goto calculator.label:              :REM 9
if antw=65 then goto status.label:                  :REM A
if antw=66 then goto black.screen:                  :REM B
if antw=67 then goto copy.label:                    :REM C
if antw=68 then goto time.label:                    :REM D
if antw=69 then goto erase.label:                   :REM E
if antw=70 then goto free.label:                    :REM F
if antw=71 then goto ggg.label:                     :REM G
if antw=72 then goto help.label:                    :REM H
if antw=73 then goto inverse.label:                 :REM I
if antw=74 then goto joyedi.label:                  :REM J
if antw=75 then goto kursor.label:                  :REM K
if antw=76 then goto language:                      :REM L
if antw=77 then goto menu:                          :REM M
if antw=78 then goto fword.label:                   :REM N
if antw=79 then goto overkill:                      :REM O
if antw=80 then goto paper.label:                   :REM P
if antw=81 then goto fprint.label:                  :REM Q
if antw=82 then goto rename.label:                  :REM R
if antw=83 then goto size.label:                    :REM S
if antw=84 then goto asciitype:                     :REM T
if antw=85 then goto typewrite:                     :REM U
if antw=86 then goto pipera.label:                  :REM V
if antw=87 then goto whereis.label:                 :REM W
if antw=88 then goto set24x80.label:                :REM X
if antw=89 then goto bytes.label:                   :REM Y
if antw=90 then goto script.label:                  :REM Z
goto menu:
tw=89 then goto bytes.label:                   :REM Y
if antw=90 then goto script.label:                  :R