rem SCREEN
inverse.label:
print cls$
print "I N V E R S E"
print
print inon$;" 1 ";inof$;" ... INVERSE SCREEN ON";
      print tab(45);inon$;" 0 ";inof$;" ... INVERSE SCREEN OFF"
print
print onoff$ : print
print biw$
antw=inkey
if antw=27 then goto exit:
if antw>90 then antw=antw-32
if antw=77 then goto menu:
if antw=48 then print stdscreen$; : print : goto menu:
if antw=49 then print invscreen$; : print : goto menu:
print bel$ : goto inverse.label:
rem
kursor.label:
print cls$ :print :print "K U R S O R "
print
print inon$;" 1 ";inof$;" ... CURSOR ON";
      print tab(45);inon$;" 0 ";inof$;" ... CURSOR OFF"
print : print onoff$
print : print biw$
antw=inkey
if antw>90 then antw=antw-32
if antw=27 then goto exit:
if antw=77 then goto menu:
if antw=49 then print con$; : print : goto menu:
if antw=48 then print cof$; : print : goto menu:
print bel$; : goto kursor.label:
rem
status.label:
print cls$:print "S T A T U S Z E I L E":print
print in$;" 1 ";ni$;" ... STATUSZEILE ON";
      print tab(45);in$;" 0 ";ni$;" ... STATUSZEILE OFF"
print : print onoff$
print : print biw$
antw=inkey
   if antw>96 then antw=antw-32
   if antw=49 then print staton$;: print:goto menu:
   if antw=48 then print statoff$;:print:goto menu:
   if antw=77 then print cls$;       :goto menu:
   if antw=27 then goto exit:
   print bel$ : goto status.label:

 menu:
   i