listbas: fix printing TO in OSS Integer BASIC.

1 files changed, 6 insertions, 1 deletions

diff --git a/listbas.c b/listbas.c
index acff568..99b80fc 100644
--- a/listbas.c
+++ b/listbas.c
@@ -941,7 +941,12 @@ CALLBACK(print_op) {
 			print_string(pos + 2, program[pos + 1]);
 			return;
 		case OP_EOL:
-			return;
+			/* in Integer BASIC, this token is TO */
+			if(bas_type != B_INT) return;
+			break;
+		case 0x13:
+			/* in Integer BASIC, this is the real end-of-line token */
+			if(bas_type == B_INT) return;
 		default: break;
 	}