diff --git a/src/_teco_/teco.1213 b/src/_teco_/teco.1213
index b01c1aa7..07da628c 100755
--- a/src/_teco_/teco.1213
+++ b/src/_teco_/teco.1213
@@ -22345,6 +22345,12 @@ PTLAB9:	MOVEI A,"0
 	TLZ FF,FLNEG
 IRPS Q,R,[270400/220500/330800]
 	LDB C,[Q,,PTLFCD]
+IFSE R,,[
+	PUSH P,D
+	IDIVI C,100.
+	MOVE C,D
+	POP P,D
+]
 	MOVEI TT,1
 	PUSHJ P,DPT1
 IFSE R,/,[	MOVEI CH,"/