typewrite:     :REM * * * TYPWRITE  Joyce als Schreibmaschine * * *
                REM * * * * * * * * * * * * * * * * * * * * * * * *
print cls$
komp$=esc$+chr$(15) : elit$=esc$+chr$(77) : pica$=esc$+chr$(80)
fetton$=esc$+chr$(69) : fettof$=esc$+chr$(70) : gro$=chr$(14)
l$=" 0...V....1....V....2....V....3....V....4....V....5....V....6....V....7....V....8."
z$=" <f1f2> ... 17 Zeich/Zoll  <f3f4> ... 12 Zeichen/Zoll  <f5f6> ... 10 Zeichen/Zoll "
f$=" <Ð+Ô> ...  FETTDRUCK ein  <Ð-Ô> ... FETTDRUCK aus   <SUCHE> ... DOPPELT BREIT    "
t$=" <EXIT> ... beenden (MENU) <EZ>... Ende der Zeile    <Zeile> ... Anfang der Zeile "
e$=" <PRT> ... Druckersteuerung  <EINBL> ...  blendet letzte Zeile nochmals ein.      "
a$=" TYPWRITE.COM  (V1.1) 1988 (C) Herbert MOSCHITZ, P.O.BOX 96, A-8041 Graz, AUSTRIA "

print in$;a$ : print f$ : print z$ : print t$: print e$;ni$ : print l$
in.label:
   input ""; line zeile$
   if len(zeile$)=0 then zeile$=" "
   if asc(zeile$)<>27 then ender=0 else ender=1
lprinter
   for x=1 to len(zeile$)
   char$=mid$(zeile$,x,1)
   if asc(char$)>31 then goto grosschar: else goto kleinchar:
  grosschar:
   print char$; : goto nextchar:
  kleinchar:
   c=asc(char$)
   if c=26 then print komp$; : goto nextchar:
   if c=22 then print fetton$; : goto nextchar:
   if c=28 then print fettof$;: goto nextchar:
   if c=29 then print gro$;  : goto nextchar:
   if c=17 then print elit$; : goto nextchar:
   if c=19 then print pica$; : goto nextchar:
   if c=27 then ender=1 : : goto nextchar:
   nextchar:
   next
console
if ender=0 then goto in.label: else goto menu:


   if c=27 then ender=1 : : goto nex