script.label:
scriptline$=string$(50,"-")
%include j'scall
rem
print cls$
print "Z E I C H / Z   -   Schriftart fuer Drucker waehlen:"
print
print scriptline$
print in$;" P ...";ni$;" PICA (10 ZZ)    ! ";in$;" E ...";ni$;" ELITE (12 ZZ)"
print in$;" K ...";ni$;" KOMPAKT (17 ZZ) ! ";in$;" R ...";ni$;" PROPORTIONAL"
print scriptline$
print in$;" U ...";ni$;" SUBSCRIPT       ! ";in$;" O ...";ni$;" SUPERSCRIPT"
print in$;" Z ...";ni$;" SUxxxxxx off    ! "
print scriptline$
print in$;" I ...";ni$;" ITALIC (kursiv) ! ";in$;" V ...";ni$;" vergroessert on"
print in$;" J ...";ni$;" ITALIC off      ! ";in$;" W ...";ni$;" vergroessert off"
print scriptline$
print in$;" F ...";ni$;" fett on         ! ";in$;" D ...";ni$;" doppelt on"
print in$;" G ...";ni$;" fett off        ! ";in$;" S ...";ni$;" doppelt off"
print scriptline$
print in$;" + ...";ni$;" NULL MIT /      ! ";in$;" - ...";ni$;" NULL OHNE / "
print scriptline$
print
print biw$
print
script.wahl:
antw=inkey
if antw>90 then antw=antw-32
if antw=77 then lprinter: print chr$(24); : console :goto menu:
if antw=27 then lprinter: print chr$(24); : console: goto exit:
if antw=80 then call pica: : print " P," : goto script.wahl:
if antw=69 then call elite: : print " E," : goto script.wahl:
if antw=75 then call kompakt: : print " K," : goto script.wahl:
if antw=82 then call proport: : print " R," : goto script.wahl:
if antw=45 then call nullohne: : print " -," : goto script.wahl:
if antw=43 then call nullmit: : print " +," : goto script.wahl:
if antw=85 then call subscript: : print " U+," : goto script.wahl:
if antw=79 then call superscript: : print " O+," : goto script.wahl:
if antw=90 then call suoff: : print " UO-," : goto script.wahl:
if antw=73 then call italic: : print " I+," : goto script.wahl:
if antw=74 then call italic.off: : print " I-," : goto script.wahl:
if antw=70 then call fett: : print " F+," : goto script.wahl:
if antw=71 then call fett.off: : print " F-," : goto script.wahl:
if antw=86 then call vergroe: : print " V+," : goto script.wahl:
if antw=87 then call vergroe.off: : print " V-," : goto script.wahl:
if antw=68 then call doppelt: : print " D+," : goto script.wahl:
if antw=83 then call doppelt.off: : print " D-," : goto script.wahl:
goto script.wahl:
: :