rem Quendata DWP1120 Fixed Pitch Daisywheel

cc '@'=27,"R",27,"&"
cc 'b'=27,"W"		; 27,"&"
cc 'd'=27,"Q"		; 27,"&"
cc 's'=27,30,6,27,"U"	; 27,"D",27,30,9
cc 't'=27,30,6,27,"D"	; 27,"U",27,30,9
cc 'u'=27,"_"		; 27,"R"

rc 12=13,12

rc '£'="#"
rc 'â'="a",8,"^"
rc 'ê'="e",8,"^"
rc 'î'="i",8,"^"
rc 'ô'="o",8,"^"
rc 'û'="u",8,"^"

IF SWEDISH
rc 'É'=64
rc 'Ä'=91
rc 'Ö'=92
rc 'Å'=93
rc 'Ü'=94
rc 'é'=96
rc 'ä'=123
rc 'ö'=124
rc 'å'=125
rc 'ü'=126
ENDIF
IF GERMAN
rc '§'=64
rc 'Ä'=91
rc 'Ö'=92
rc 'Ü'=93
rc 'ä'=123
rc 'ö'=124
rc 'ü'=125
rc 'ß'=126
ENDIF

hl 27,"U"
ab 0,0,0,27,26,"I"

IF VER5
ms on
pp on
mm 3
mf 1
omit qlip
regular bcdestu
ELSE
mc 27,31,2," ",27,31,13
mm 0
mf 1
cw 12
cc 'c'=27,31,9		; 27,31,13
cc 'e'=27,31,11		; 27,31,13
cc 'n'=27,31,13
ENDIF

IF VER5
rules c=2,e=1,n=0

font 0 ;; pica, 10 cpi
enter 27,31,13
cw 12

font 1 ;; elite, 12 cpi
enter 27,31,11
cw 10

font 2 ;; condensed, 15 cpi
enter 27,31,9
cw 8
ENDIF