language:
print cls$;
print inon$;" L A N G U A G E : "; inof$ : print : print
print inon$;" 0 ";inof$;" ... USA     ";
      print inon$;" 1 ";inof$;" ... FRA     ";
            print inon$;" 2 ";inof$;" ... GER     ";
                  print inon$;" 3 ";inof$;" ... GB      ";
                        print inon$;" 4 ";inof$;" ... DAN"
print
      print inon$;" 5 ";inof$;" ... SVE     ";
            print inon$;" 6 ";inof$;" ... ITA     ";
                  print inon$;" 7 ";inof$;" ... SPA     ";
                        print inon$;" 8 ";inof$;" ... JAP"
print
print biw$;
lang.wahl.2:   antw=inkey
lang.wahl:
if antw>96 then antw=antw-32
   if antw=77 then goto menu:
   if antw=27 then goto exit:
rem
   if antw=48 then print lang$+"0"; :print: goto menu:
   if antw=49 then print lang$+"1"; :print: goto menu:
   if antw=50 then print lang$+"2"; :print: goto menu:
   if antw=51 then print lang$+"3"; :print: goto menu:
   if antw=52 then print lang$+"4"; :print: goto menu:
   if antw=53 then print lang$+"5"; :print: goto menu:
   if antw=54 then print lang$+"6"; :print: goto menu:
   if antw=55 then print lang$+"7"; :print: goto menu:
   if antw=56 then print lang$+"8"; :print: goto menu:
antw=0: goto lang.wahl.2:
5 then print lang