diff --git a/images/apple/PLEIADES-2.20-INST.po b/images/apple/PLEIADES-2.20-INST.po
index a72cf95..3d35951 100644
Binary files a/images/apple/PLEIADES-2.20-INST.po and b/images/apple/PLEIADES-2.20-INST.po differ
diff --git a/images/apple/PLEIADES-2.20.po b/images/apple/PLEIADES-2.20.po
index f271297..6ee78d7 100644
Binary files a/images/apple/PLEIADES-2.20.po and b/images/apple/PLEIADES-2.20.po differ
diff --git a/src/vmsrc/apple/cmd.pla b/src/vmsrc/apple/cmd.pla
index 05fb949..1f93265 100755
--- a/src/vmsrc/apple/cmd.pla
+++ b/src/vmsrc/apple/cmd.pla
@@ -23,6 +23,25 @@ const modflagkeep = $1000
 const modkeep     = $2000
 const modinitkeep = $4000
 //
+// 80 column flag
+//
+const vid80col    = $0800
+//
+// Machine ID values
+//
+const MACHID_CLOCK = $01
+const MACHID_80COL = $02
+const MACHID_MEM   = $30
+const MACHID_64K   = $20
+const MACHID_128K  = $30
+const MACHID_MODEL = $C8
+const MACHID_II    = $00
+const MACHID_IIPLUS= $40
+const MACHID_IIE   = $80
+const MACHID_III   = $C0
+const MACHID_IIC   = $88
+const MACHID_I     = $08
+//
 // Prefix commands
 //
 const GET_PFX     = $C7
@@ -1402,6 +1421,15 @@ heap = @lastdef
 //
 // Print PLASMA version
 //
+if  ^MACHID & MACHID_80COL
+    when ^MACHID & MACHID_MODEL
+        is MACHID_IIPLUS
+        is MACHID_II
+            ^$C059
+    wend
+    systemflags = systemflags | vid80col | restxt1
+    call($C300, 12, 0, 0, 0)
+fin
 prstr("PLEIADES 64K VM v2.20\n")
 //
 // Init symbol table.
diff --git a/src/vmsrc/apple/cmdjit.pla b/src/vmsrc/apple/cmdjit.pla
index 5faadc7..d3f9a04 100755
--- a/src/vmsrc/apple/cmdjit.pla
+++ b/src/vmsrc/apple/cmdjit.pla
@@ -23,6 +23,25 @@ const modflagkeep = $1000
 const modkeep     = $2000
 const modinitkeep = $4000
 //
+// 80 column flag
+//
+const vid80col    = $0800
+//
+// Machine ID values
+//
+const MACHID_CLOCK = $01
+const MACHID_80COL = $02
+const MACHID_MEM   = $30
+const MACHID_64K   = $20
+const MACHID_128K  = $30
+const MACHID_MODEL = $C8
+const MACHID_II    = $00
+const MACHID_IIPLUS= $40
+const MACHID_IIE   = $80
+const MACHID_III   = $C0
+const MACHID_IIC   = $88
+const MACHID_I     = $08
+//
 // Prefix commands
 //
 const GET_PFX     = $C7
@@ -1488,6 +1507,10 @@ heap = @lastdef
 //
 // Print PLASMA version
 //
+if  ^MACHID & MACHID_80COL
+    systemflags = systemflags | vid80col | restxt1 | resxtxt1
+    call($C300, 12, 0, 0, 0)
+fin
 prstr("PLEIADES 128K VM v2.20\n")
 //
 // Init symbol table.